Array
(
)

Preencher todos Dbedits do form.

Peninha
   - 02 abr 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?


Mvicente
   - 03 abr 2006

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


Paullsoftware
   - 03 abr 2006


Citação:
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:
#Código

Select * From Cad_Cliente
Where Codigo_Cli=:Cod

daí vc faz a pesquisa com o TEdit normal no evento OnKeyPress
#Código
if (key = 13) then
with query do
begin
close;
params[0].asInteger := StrToInt(edt1.text);
open;
end;
pespero ter ajudado :wink: