Inserir dados do 2form no 1form?
14/09/2019
0
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;
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
Curtir tópico
+ 0
Responder
Posts
16/09/2019
Ricardo Araujo
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;
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....
Responder
16/09/2019
Osmar
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;
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.
Responder