Fórum Form de Pesquisa #174763
13/08/2003
0
Preciso passar isso pro form de cadastro , mais ou menos assim
qdo acontecer TFm_Pesq_Descricao.DBGrid1DblClick faça
Como faço isso???
procedure TFm_Pesq_Descricao.DBGrid1DblClick(Sender: TObject);
begin
if (dm_Geral.query1.locate(´Nm_TpDoc´,DBGrid1.Columns[1].Field.AsString,[])) then
begin
Fm_Cad_TpDocumento.DBEdit1.Text := DBGrid1.Columns[0].Field.AsString;
Fm_Cad_TpDocumento.DBEdit2.Text := DBGrid1.Columns[1].Field.AsString;
Fm_Pesq_Descricao.Close;
Fm_Cad_TpDocumento.Show;
end;
end;
Se alguém tiver outra solução pra reaproveitar um form de pesquisa em diferentes formulários???
Catharina
Curtir tópico
+ 0Posts
13/08/2003
Vmotta
Gostei + 0
13/08/2003
Catharina
Vou chamá-lo em todos os formulários de cadastro onde se pesquise por descrição ou código.
Catharina.
Gostei + 0
13/08/2003
Catharina
Gostei + 0
13/08/2003
Vmotta
Se sim, vc pode ao dar duplo clique no DBGrid1 apenas fechar o formulário de pesquisa, pois ao clicar, a dm_Geral.query1 apontará para o registro selecionado.
e no form de cadastro, chamar o form de pesquisa utilizando showmodal, e depois preencher os campos Fm_Cad_TpDocumento.DBEdit1.Text eFm_Cad_TpDocumento.DBEdit2.Text pegando diretamente de dm_Geral.query1. Entendeu ?
qq dúvida me mande um e-mail ok?
T+
Vitor <vmotta@eep.br>
Gostei + 0
13/08/2003
Catharina
Em que momento eu pego os dados do form pesquisa????
Gostei + 0
13/08/2003
Vmotta
olha, fiz um exemplo bem simples do que tentei te dizer.
http://www.vmotta.cjb.net/pesquisar.zip
espero que te ajude, qq coisa nao deixe de perguntar novamente ...
T+
Vitor <vmotta@eep.br>
Gostei + 0
13/08/2003
Catharina
Obrigada, funcionou perfeitamente!!!
Catharina.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)