Fórum Formulario com grid #291481
11/08/2005
0
Pessoal, quem pode me ajudar?
Eu tenho um formulario principal que chama outro como modal.
No formulario chamado existe uma grid.
Como faço para o formulario chamado retornar
para o formulario principal o conteúdo
de determinado campo selecionado da grid?
grato,
mjobs.
Eu tenho um formulario principal que chama outro como modal.
No formulario chamado existe uma grid.
Como faço para o formulario chamado retornar
para o formulario principal o conteúdo
de determinado campo selecionado da grid?
grato,
mjobs.
Marcosjobs
Curtir tópico
+ 0
Responder
Posts
11/08/2005
Paullsoftware
esse formulário criado usa o mesmo componente de acesso aos dados do formulário principal??
se não, tente assim::
supendo que tenho os campos na tabela clientes
Codigo, Nome e Telefone...
Usando uma query faça:
[i:8b1de74382]Select * From Clientes
Where Codigo > 0
Order By Nome[/i:8b1de74382]
Crie uma variável global chamada vPesquisa : Integer;
dai vc atribui o valor do código
botão q chama o formulário
vPesquisa := 0;
try
Application.CreateForm(TfCli,fCli);
fCli.ShowModal;
finally
fCil.Release;
fCli:=Nil;
End;
if vPesquisa <> 0 then
begin
Query1.Close;
Query1.Sql[1]:= ´Where Codigo=´+IntToStr(vPesquisa);
Query1.Open;
end;
no DBGrid do form pesquisa vc coloca no Evento QueryClose fo form pesquisa...
vPesquisa := QyPesquisaCodigo.AsInsteger;
...
espero ter ajudado...
qq coisa posta ai q te mando um exemplo :wink:
se não, tente assim::
supendo que tenho os campos na tabela clientes
Codigo, Nome e Telefone...
Usando uma query faça:
[i:8b1de74382]Select * From Clientes
Where Codigo > 0
Order By Nome[/i:8b1de74382]
Crie uma variável global chamada vPesquisa : Integer;
dai vc atribui o valor do código
botão q chama o formulário
vPesquisa := 0;
try
Application.CreateForm(TfCli,fCli);
fCli.ShowModal;
finally
fCil.Release;
fCli:=Nil;
End;
if vPesquisa <> 0 then
begin
Query1.Close;
Query1.Sql[1]:= ´Where Codigo=´+IntToStr(vPesquisa);
Query1.Open;
end;
no DBGrid do form pesquisa vc coloca no Evento QueryClose fo form pesquisa...
vPesquisa := QyPesquisaCodigo.AsInsteger;
...
espero ter ajudado...
qq coisa posta ai q te mando um exemplo :wink:
Responder
Gostei + 0
15/08/2005
Marcosjobs
Valeu Paulo, deu pra eu ter uma ideia de como fazer.
mJobs.
mJobs.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)