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;
Osmar

Osmar

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;


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;


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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar