Preencher todos Dbedits do form.

02/04/2006

Oi gente, gostaria de uma ajudinha. Tenho um form com vários Dbedits que mostram os dados da minha tabela (Cad_Cliente), o que quero éo seguinte:

Quando entro no form os Dbedits estão todos limpos e quero colocar o código do cliente no Dbedit (Codigo_cli) e se ele encontrar este código na tabela me preencher todos os outros Dbedits com os dados da tabela.

Sera que alguém pode me ajudar?


Peninha

Respostas

03/04/2006

Mvicente

Olá amigo!
Faça o seguinte: Use um edit normal e no evento onkeypress coloque o código, tipo assim:

procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
if (key = #13) then
with query do
begin
close;
params[0].asInteger := StrToInt(edt1.text);
open;
end;
end;

Espero ter ajudado.

Abraço!

Marcelo


Responder Citar

03/04/2006

Paullsoftware

Olá amigo! Faça o seguinte: Use um edit normal e no evento onkeypress coloque o código, tipo assim: procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char); begin if (key = #13) then with query do begin close; params[0].asInteger := StrToInt(edt1.text); open; end; end; Espero ter ajudado. Abraço! Marcelo

melhorando um pouco a sua ideia

A query para pesquisa deve ter +/- essa instrução SQL:
 Select * From Cad_Cliente
 Where Codigo_Cli=:Cod

daí vc faz a pesquisa com o [b:7e41e44b90]TEdit[/b:7e41e44b90] normal no evento OnKeyPress
if (key = 13) then
 with query do
  begin
    close;
    params&91;0&93;.asInteger := StrToInt(edt1.text);
    open;
  end;
pespero ter ajudado :wink:


Responder Citar