Auto Completar

Delphi

21/03/2004

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 .


Tiagojmilam

Tiagojmilam

Curtidas 0

Respostas

Skaarj

Skaarj

21/03/2004

vc qr q o campo DESCRIÇAO apareça para o user?
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


GOSTEI 0
Paulo

Paulo

21/03/2004

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.


GOSTEI 0
Paulo

Paulo

21/03/2004

Corrigindo:
if not tabela....then mesangem a dar caso não encontre


GOSTEI 0
POSTAR