Function

12/12/2009

1

Boa tarde a todos...
Responder

Posts

12/12/2009

Ureis

Boa tarde a todos,.....   Tenho 2 campos edit e um botão. Tenho a intensão de que ao clicar no botão ele acione uma janela de pesquisa ao selecionar o registro desejado ele me retorna para os dois edits o dados do registro.   Imaginei desta forma: No botão, coloco uma função passando como parametro o nome da tabela e os nomes dos campos a ser preenchido, com isso a função iria mostrar o form de pesquisa com as informações da tabela que passei como parametro, após dar dois cliques no dbgrid em cima do registro escolhido, ele iria me retorna os dois campos e preencher os edits...   alguem pode me ajudar com esta proeza.   Obrigado.   Uelinton
Responder

12/12/2009

Delivan

costumo fazer assim:   dois edits,um panel,um dbgrid, uma query,um datasource o dbgrid dentro do panel.   no evento onkeydown do edit; if Key = vk_f8 then begin
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('select * from clientes');
  Query1.Open;
  //a Query1 esta conectado um datasource que por sua vez está conectado a um dbgri1
  //o dbgrid está no panel1
  //panel1 esta com a propriedade visible =false
  panel1.visible:=True;
 end;   NO evento DblClick do dbgrid:  Edit1.Text:=Query1.fieldbyname('Nome').AsString;
 Edit2.Text:=Query1.fieldbyname('Cidade').AsString;
 Panel1.Visible:=False;
 Edit1.SelectAll;
 Edit1.SetFocus;   desta forma elimino o botao, e quando o usuário apertar o F8 será exibida a tela de procura.
Responder