Bom dia, venho tentar novamente obter ajuda dos Irmãos!!!!!
Estou começando em delphi agora e preciso de uma luz!!!!
tenho a seguinte procedure abaixo que roda no momento em clicko na tecla consulta:
procedure Tfrmagenda1.btnconsultarClick(Sender: TObject);
var
pesquisa:integer;
begin
FrmAgenda1Cons.ShowModal;
tblAgenda1.SetKey;
pesquisa := StrToInt(Trim(FrmAgenda1Cons.EdtauxCodigo.Text));
tblAgenda1.FieldByName('Ag_Codigo').asinteger := pesquisa;
if not tblAgenda1.GotoKey then
begin
showmessage('Código não encontrado');
tblAgenda1.First;
end;
end;
E esta procedure no form de consulta.
procedure Tfrmagenda1cons.btnokClick(Sender: TObject);
begin
if edtauxcodigo.Text='' then
begin
showmessage('Digite código para pesquisa');
edtauxCodigo.SetFocus;
end
else
close;
end;
Qdo clicko no botão consulta ele executa belezinha, mas quando clicko em OK no form da
consulta, para me dar o retorno, mesmo eu digitando um codigo cadastrado, ele me
retorno "Não encontrado".
O que poderia ser!!! Já olhei e não sei se por inexperiencia deixei passar alguma
coisa, agradeço desde já alguma ajuda!!!!
TAsquim
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
--------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
