Fórum Auto Completar #221314
21/03/2004
0
Caros amigos .
Num form tenho os seguintes componentes : um Edit e um dbGrid .
No DbGrid eu linquei com uma dataset onde há os seguintes campos :
Codigo e Descrição ;
Eu quero fazer o seguinte , conforme o usuário for digitanto um nome no edit 1 va completando conforme os cadastro no campo DESCRICAO . Como fazer isso passo-a-passo ? Pois eu sou iniciante . . . .
Agredeço muito .
Num form tenho os seguintes componentes : um Edit e um dbGrid .
No DbGrid eu linquei com uma dataset onde há os seguintes campos :
Codigo e Descrição ;
Eu quero fazer o seguinte , conforme o usuário for digitanto um nome no edit 1 va completando conforme os cadastro no campo DESCRICAO . Como fazer isso passo-a-passo ? Pois eu sou iniciante . . . .
Agredeço muito .
Tiagojmilam
Curtir tópico
+ 0
Responder
Posts
21/03/2004
Skaarj
vc qr q o campo DESCRIÇAO apareça para o user?
Pelo q entendi, eu faria assim:
Criei a tabela pessoas e o campo nome só a título de exemplo..
O que faria entao:
A cada vez que uma nova letra fosse digitada, ou apagada, refaria a pesquisa com o novo valor e setaria em um memo a descrição;; Claro se usar um DBMemo vc tiraria as 2 ultimas linhas
Pelo q entendi, eu faria assim:
OnChange do TEdit
with Query1 do
begin
close;
sql.Clear;
sql.text := ´select * from PESSOA where NOME like "´+
edit1.text+´¬" order by NOME´;
open;
end;
memo1.Clear;
memo1.text := Query1.fieldbyname(´descricao´).AsString;
Criei a tabela pessoas e o campo nome só a título de exemplo..
O que faria entao:
A cada vez que uma nova letra fosse digitada, ou apagada, refaria a pesquisa com o novo valor e setaria em um memo a descrição;; Claro se usar um DBMemo vc tiraria as 2 ultimas linhas
Responder
Gostei + 0
21/03/2004
Paulo
if tabela.locate(´campo´, edit.text,[loPartialKey]);
Deve-se usar a unit DB na USES.
(´select * from tabela where campo like´+quotedstr(edit1.text+´¬´))
Usando SQL.
Deve-se usar a unit DB na USES.
(´select * from tabela where campo like´+quotedstr(edit1.text+´¬´))
Usando SQL.
Responder
Gostei + 0
21/03/2004
Paulo
Corrigindo:
if not tabela....then mesangem a dar caso não encontre
if not tabela....then mesangem a dar caso não encontre
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)