Fórum Tela de quot;Localizaquot; #180516
08/09/2003
0
OI PESSOAL, PRECISO FAZER UMA TELA DE ´LOCALIZAR´, COM UM COMBOBOX, UM EDIT E O GRID, NO COMBOBOX DEVE APARECER OS CAMPOS DE UMA DETERMINADA TABELA, E NO GRID O USUARIO IRÁ DIGITAR O ITEM QUE DESEJA LOCALIZAR, EXEMPLO: TABELA DE CLIENTE, NO COMBOBOX APARECERÁ AS OPÇÕES, NOME, ENDEREÇO, CPF E ETC, O USUARIO SELECIONA QUAL A OPÇÃO DE PESQUISA E AO LADO, NO EDIT INFORMA O NOME QUE DESEJA LOCALIZAR, SE ALGUEM SOUBER COMO FAZ POR FAVOR ME AJUDE.
[b:403c160920]esqueceu o CapsLock ligado - escrever em miúsculas significa gritar (4_olho)[/b:403c160920]
[b:403c160920]esqueceu o CapsLock ligado - escrever em miúsculas significa gritar (4_olho)[/b:403c160920]
Pisquila
Curtir tópico
+ 0
Responder
Posts
08/09/2003
Mmtoor
Prezado(a).
procedure TForm1.Edit1Change(Sender: TObject);
var a,b,c: String;
begin
if ComboBox1.Text=´Nome´then
Begin
query1.SQL.Clear;
a:=´Select * From Clientes ´;
b:=´Where Nome Like:Consulta ´;
c:=´Order By Codigo´;
query1.SQL.Add(a+b+c);
query1.Params[0].AsString;
query1.ParamByName(´Consulta´).AsString:=´´+´¬´+Edit1.Text+´¬´;
query1.qryClientes.Close;
query1.qryClientes.Open;
end;
e assim por diante, lembrando que cada procedimento deve ser findado e reiniciado na mesma procedure.
Espero ter ajudado.
MMTOOR2003
procedure TForm1.Edit1Change(Sender: TObject);
var a,b,c: String;
begin
if ComboBox1.Text=´Nome´then
Begin
query1.SQL.Clear;
a:=´Select * From Clientes ´;
b:=´Where Nome Like:Consulta ´;
c:=´Order By Codigo´;
query1.SQL.Add(a+b+c);
query1.Params[0].AsString;
query1.ParamByName(´Consulta´).AsString:=´´+´¬´+Edit1.Text+´¬´;
query1.qryClientes.Close;
query1.qryClientes.Open;
end;
e assim por diante, lembrando que cada procedimento deve ser findado e reiniciado na mesma procedure.
Espero ter ajudado.
MMTOOR2003
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)