Fórum Buscar dados da tabela #381811
20/07/2010
0
Estou configurando um sistema na qual existe um formulário com um campo (edit), que ao digitar o documento de um cliente e der enter ele irá verificar no banco de dados se este cliente já está cadastrado. Se o cliente tiver cadastrado, algumas informações, tais como o nome, irá ser preenchida automaticamente. Mas se ele não tiver cadastrado irá aparecer um formulário para o cadastro deste.
Porém, não sei como começar..... alguém poderia explicar passo a passo o procedimento que devo fazer??????
Ou pelo menos me dá alguma dica?????? POR FAVOR!!!
OBRIGADA. Juliana.
Juliana Lira
Curtir tópico
+ 0Posts
20/07/2010
Marco Salles
Gostei + 0
20/07/2010
Wilson Junior
uses SqlExpr;
function Ret_TemCLiente(qryCLiente: TSQLQuery; Filtro: string): Boolean;
begin
if Filtro <> '' then
Filtro := ' WHERE ' + Filtro
;
with qryCLiente do
begin
SQL.Text :=
' SELECT' +
' cli.*' +
' FROM' +
' CLIENTE cli' +
Filtro;
Close;
Open;
end;
Result := not qryCLiente.IsEmpty;
end;
procedure Evento_Do_Edit;
var
Filtro: string;
qryCLiente: TSQLQuery;
begin
qryCLiente := TSQLQuery.Create( Self );
try
qryCLiente.SQLConnection := Seu_SQLConnection; { Coloque o componente que faz a coxão com o banco }
Filtro := 'Campo = ' + Edit.Text; { Aqui você coloca o filtro que quiser }
if Ret_TemCLiente( qryCLiente, Filtro ) then
begin
{ Preenche os dados do cliente com a qryCLiente }
end
else
begin
{ Cham o formulário de inclusão }
end
;
finally
FreeAndNil( qryCLiente );
end;
end;Espero ter colaborado.
Gostei + 0
21/07/2010
Juliana Lira
Vou tentar fazer.......
Gostei + 0
21/07/2010
Marco Salles
Gostei + 0
27/07/2010
Juliana Lira
Gostei + 0
27/07/2010
Marco Salles
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)