Inserir dados do 2form no 1form?

Delphi

14/09/2019

Pessoal não consigo inserir os dados, vejam o código:

procedure TFrmHistorico.BtnPesqEscola_historicoClick(Sender: TObject);
begin
Application.CreateForm(TFrmEscola_Historico,FrmEscola_Historico);
FrmEscola_Historico.ShowModal;
FrmEscola_Historico.Refresh;
FreeAndNil(FrmEscola_Historico);
end;


procedure TFrmEscola_Historico.BtnSairClick(Sender: TObject);
begin
DmDados.IBQryEscola_Historico.Close;
DmDados.IBQryEscola_Historico.Open;

FrmEscola_Historico.Close;
FrmHistorico.Nome_Escola_Fund.Text := DmDados.IBQryEscola_HistoricoNOME_ESCOLA.AsString;
dbEd_Nome_Escola.SetFocus;
end;
Osmar

Osmar

Curtidas 0

Respostas

Ricardo Araujo

Ricardo Araujo

14/09/2019

Pessoal não consigo inserir os dados, vejam o código:

procedure TFrmHistorico.BtnPesqEscola_historicoClick(Sender: TObject);
begin
Application.CreateForm(TFrmEscola_Historico,FrmEscola_Historico);
FrmEscola_Historico.ShowModal;

FrmHistorico.Nome_Escola_Fund.Text := DmDados.IBQryEscola_HistoricoNOME_ESCOLA.AsString;
TFrmHistorico.Ed_Nome_Escola.SetFocus;

FrmEscola_Historico.Refresh;
FreeAndNil(FrmEscola_Historico);
end;


procedure TFrmEscola_Historico.BtnSairClick(Sender: TObject);
begin
DmDados.IBQryEscola_Historico.Close;
DmDados.IBQryEscola_Historico.Open;
FrmEscola_Historico.Close;
end;


Boa tarde, tenta fazer como fiz no código acima, qualquer coisa me envie um email, blz....
GOSTEI 0
Osmar

Osmar

14/09/2019

Pessoal não consigo inserir os dados, vejam o código:

procedure TFrmHistorico.BtnPesqEscola_historicoClick(Sender: TObject);
begin
Application.CreateForm(TFrmEscola_Historico,FrmEscola_Historico);
FrmEscola_Historico.ShowModal;

FrmHistorico.Nome_Escola_Fund.Text := DmDados.IBQryEscola_HistoricoNOME_ESCOLA.AsString;
TFrmHistorico.Ed_Nome_Escola.SetFocus;

FrmEscola_Historico.Refresh;
FreeAndNil(FrmEscola_Historico);
end;


procedure TFrmEscola_Historico.BtnSairClick(Sender: TObject);
begin
DmDados.IBQryEscola_Historico.Close;
DmDados.IBQryEscola_Historico.Open;
FrmEscola_Historico.Close;
end;


Boa tarde, tenta fazer como fiz no código acima, qualquer coisa me envie um email, blz....



Amigo boa tarde. agradeço a atenção, mas já consigui fazer usando variáveis.
GOSTEI 0
POSTAR