Formulario de Consulta

[vidolmar]

Boa noite!

estou tendo dificuldade para criar um formulario de consulta no "sistema" que estou criando em um exercício,

o que preciso fazer é o seguinte..

tenho uma tabela "cliente_cpf" eu queria fazer a busca da seguinte maneira,

conforme o usuario vai digitando vai aparecendo somente o que esta relacionado com o que foi digitado.

exemplo: digito no campo "maria" aparece todas as "maria" que tiver na tabela "cliente_cpf", seria uma busca parcial..

e quando eu clicar no nome que estava sendo procurado abrir o formulario de cadastro com os dados desse cliente.

Como posso fazer isso?

Qual a melhor maneira de fazer?

estou usando

- Delphi 2009

- Interbase 6.5

- IBDataBase

- IBTransaction

- IBTable

Obrigado!

[Alberto Mota]

O que voce quer é pesquisa incremental.

Coloque no evento onChange do Edit

procedure TFrmAssociados.Edit2Change(Sender: TObject);

var txt, Items : string;

begin

txt := Edit2.text;

QueryAssociados.close;

QueryAssociados.sql.clear;

QueryAssociados.sql.Add('Select * from TblAssociados where CNPJ like '+#39+trim(edit2.Text)+'%'+#39+' order by CNPJ');

QueryAssociados.open;

label17.Caption := 'Nº Total: ' + IntTostr(QueryAssociados.recordcount);

end;

Esse exemplo é com ADO mas deve funcionar.

Coloque um dbgrid, ao clicar mostrará o registro.

Adpate para sua necessidade.

Um abraço.

Editado Março 10, 2010 por Alberto Mota

[vidolmar]

beleza..

vou adaptar e posto aqui se deu certo ou não.

vlw