vidolmar
09/03/2010 - 22:26
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
10/03/2010 - 08:35
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
10/03/2010 - 23:48
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.