Ajuda - Busca - Membros - Calendário
Versão Completa: Formulario de Consulta
Fórum Script Brasil > Programação & Desenvolvimento > Delphi, Kylix
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.
vidolmar
beleza..
vou adaptar e posto aqui se deu certo ou não.
vlw
Esta é uma versão simplificada de nosso conteúdo principal. Para ver a versão completa com maiores informações, formatação e imagens, por favor clique aqui.
Invision Power Board © 2001-2012 Invision Power Services, Inc.