(Resolvido) Como Mostrar Uma Mensagem Ao Validar Uma Consulta?

[Allanrf]

Estou querendo fazer uma consulta, a pessoa coloca o cpf do cliente e se já estiver cadastrado da uma mensagem "Cliente já cadastrado" como posso fazer isso no delphi?

Editado Setembro 24, 2007 por Micheus
Tópico desmembrado do "Somar Data". Tentar manter apenas o mesmo assunto em cada tópico aberto.

[Vivendo&Aprendendo]

Olá...

Se a consulta for usar SQL utilize assim:

AdoQuery.Close;
      AdoQuery.SQL.Clear;
      AdoQueryentes.SQL.Add('Select * From Clientes');
      AdoQuery.SQL.Add('Where CPF Like :pCpf ');
      AdoQuery.SQL.Add('Order By Codigo');
      AdoQuery.Parameters[0].Value := Edit1.Text + '%';
      AdoQuery.Open;

Se for usar sem SQL:

AdoQuery.Locate('Cpf', Edit1.Text,[LoCaseInsenditive,LoPartialKey]);

Alexandre

[Allanrf]

minhas tabelas são paradox... mesmo usando query esse código ai não deu

:/

Após a mensagem "Cliente Já Cadastrado" queria que os dados desse cliente aparecessem em um DBGrid por exemplo...

Editado Setembro 24, 2007 por Allanrf

[Vivendo&Aprendendo]

Olá Allanrf

A pesquisa funciona perfeitamente...

Fiz um exemlpo com Table da paleta BDE e funcionou.

Table1.Locate('VendorNo',Edit1.Text,[loCaseInsensitive]);

Utilizei o banco de dados do Access padrão do delphi como exemplo (DBDemos), com DB é a mesma coisa...

Qualquer coisa posta o seu código para dar uma olhada..

Alexandre

[Micheus]

Após a mensagem "Cliente Já Cadastrado" queria que os dados desse cliente aparecessem em um DBGrid por exemplo...

para isto, basta que o dataset que você utiliza para fazer a busca, esteja vinculado ao DBGrid.

[Allanrf]

É eu já consegui aqui, obrigado a todos.

:D