Fórum Ajuda com DBGrid amp; Form #175420
16/08/2003
0
Tudo bem, fiz uma pesquisa e meu resultado apareceu num DBGrid, até aí tudo bem. O que eu queria na realidade é que quando eu clicasse duas vezes num dos registros mostrados pelo DBGrid essa ação abrisse o Form (no qual foi cadastrado esse registro ) com os dados do registro no qual cliquei.
Tentei filtrar a tabela, mas em qualquer registro que eu clico sempre me aparece o mesmo.
Galera Ajuda Aê!
Tentei filtrar a tabela, mas em qualquer registro que eu clico sempre me aparece o mesmo.
Galera Ajuda Aê!
Denysk
Curtir tópico
+ 0
Responder
Posts
16/08/2003
Diogoalles
O Exemploa abaixo é se vc utiliza Tables
No evento OnDblClick (executará qdo vc clicar duas vezes no registro do grid) do seu DbGrid coloque:
if not assigned(FormCadastro)then // se o FormCadastro não estiver cria ainda então vamos criá-lo
FormCadastro := TFrmCadastro.Create(Application);
// agora daremos um Findkey na Tabela do FormCadstro para ele localizar
// o registro que vc clicou duas vezes
FormCadastro.Table1.Open;
FormCadastro.Table1.Findkey([TableGrid.FieldbyName(´Campo1´).Value]);
abraço
Diogo
No evento OnDblClick (executará qdo vc clicar duas vezes no registro do grid) do seu DbGrid coloque:
if not assigned(FormCadastro)then // se o FormCadastro não estiver cria ainda então vamos criá-lo
FormCadastro := TFrmCadastro.Create(Application);
// agora daremos um Findkey na Tabela do FormCadstro para ele localizar
// o registro que vc clicou duas vezes
FormCadastro.Table1.Open;
FormCadastro.Table1.Findkey([TableGrid.FieldbyName(´Campo1´).Value]);
abraço
Diogo
Responder
Gostei + 0
16/08/2003
Joilson_gouveia
O colega Denysk deu um exmplo usando Table. Abaixo segue um exemplo usando query no form cadastro:
no evento ONDBLCLICK do Grid:
if not assigned(FormCadastro) then
formCadastro := TFrmCadastro.Create(Application);
with formCadastro do
begin
query1.Close;
query1.ParamByName(´CAMPO1´).AsInteger := TableGrid.FieldbyName(´Campo1´).AsInteger;
query1.Open;
Show; (ou ShowModal)
end;
no evento ONDBLCLICK do Grid:
if not assigned(FormCadastro) then
formCadastro := TFrmCadastro.Create(Application);
with formCadastro do
begin
query1.Close;
query1.ParamByName(´CAMPO1´).AsInteger := TableGrid.FieldbyName(´Campo1´).AsInteger;
query1.Open;
Show; (ou ShowModal)
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)