Busca com DBedit

Delphi

14/02/2004

Caros Amigos, preciso de ajuda urgente

Em um form de cadastro gostaria de colocar um DBedit que buscasse no banco paradox 7 os cadastro ja existente e listasse em uma aba, como no internet explore e que a medida que fosse digitando fosse aparecendo os nomes exemplo:
digitando: Clau, apareceria os nomes com estas iniciais ate completar a digitação, caso o usuario localiza o registro bastaria colocar o cursos em cima e clica ou der enter e retornaria os outros campos.
O campo que quero é o Key do arquivo

Arquivo: Nome, Endereço, CEp, Cidade etc

Ja utilizo DBGrid e gostaria que fosse com DBedit, tambem utilizei o Combo mas como é o mesmo arquivo listado retorna um erro.
Sei que é simples mas não estou fazendo. Espero que ajude.

Meu e-mail e: dpinhoinfor@ig.com.br - cttBahia@hotmail.com

Muito Obrigado


:D ´Sabio não é aquele que sabe tudo, mas aquele que sabe encontrar a informação quando precisar´ Lincoln

[b:98ae6681d3][color=red:98ae6681d3]Título editado pelo Moderador (AZ) - Eliminado: ´Urgente´[/color:98ae6681d3][/b:98ae6681d3]


Kpinho

Kpinho

Curtidas 0

Respostas

Vinicius2k

Vinicius2k

14/02/2004

Colega,

Acho que não é exatamente o que vc pediu, mas a idéia básica é esta :

procedure TForm1.ComboBox1KeyUp(Sender: TObject; var Key: Word; 
Shift: TShiftState); 
var 
l:Integer; 
begin 
if (key=VK_BACK) or (key=VK_DELETE) or (key=VK_LEFT) or (key=VK_RIGHT) 
or (KEY=vk_home) or (key=VK_END) or (key=VK_SHIFT) or (key=VK_TAB) then exit; 
ComboBox1.DroppedDown:=true; 
l:=Length(Combobox1.text); 
Table1.Locate(´Nome´,ComboBox1.Text,[LoPartialKey]); 
if Copy(Table1.Fieldbyname(´Nome´).asString,1,L)= 
Copy(ComboBox1.Text,1,L) then begin 
Combobox1.Text:= Table1.FieldByName(´Nome´).asString; 
Combobox1.SelStart:=l; 
ComboBox1.SelLength:=Length(ComboBox1.Text)-l; 
end; 
end;


espero ter ajudado...


GOSTEI 0
POSTAR