Formulario com grid
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
Curtidas 0
Respostas
Paullsoftware
11/08/2005
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:
GOSTEI 0
Marcosjobs
11/08/2005
Valeu Paulo, deu pra eu ter uma ideia de como fazer.
mJobs.
mJobs.
GOSTEI 0