Como passar data do form1 para form2

Delphi

02/01/2014

Pessoal,

Estou tendo problema para imprimir a data selecionada pelo usuário no form1, a qual deve ser passada para o form2.

aqui pego a data:

procedure TFrmRelFichaIndiv_Bim_ModII124Chamar.FormActivate(Sender: TObject);
begin
 monthCalendar1.Date:= Date;
end;


nesse código chamo o form2 ou form3

procedure TFrmRelFichaIndiv_Bim_ModII124Chamar.BtnImprimeClick(Sender: TObject);
begin
    (* verifica se existe algum cadastro realizado *)
  if DmDados.IBQryalunoturma.RecordCount = 0 then
  begin
 (* se não existir exibe a mensagem de alerta *)
    Application.MessageBox('Não existe Aluno cadastrado na Turma!!','Atenção',mb_ok + MB_ICONWARNING);
    abort;
  end;

  if RbTodos.Checked then
      begin
       _Sql := 'select * from alunoturma';
       ConsultaSql;
       Application.CreateForm(TFrmRelFichaIndiv_Bim_ModII124_Varios,FrmRelFichaIndiv_Bim_ModII124_Varios);
       FrmRelFichaIndiv_Bim_ModII124_Varios.BtnVariasPaginas.Click;
       FrmRelFichaIndiv_Bim_ModII124_Varios := nil;
       exit;
      end
  else
  if  RbSelecionar.Checked then
      _Sql := 'Select * from AlunoTurma where MATRICULA_ALUNO = ' + DmDados.IBQryAlunoTurmaMATRICULA_ALUNO.Text;
      ConsultaSql;
      Application.CreateForm(TFrmRelFichaIndiv_Bim_ModII124,FrmRelFichaIndiv_Bim_ModII124);
      FrmRelFichaIndiv_Bim_ModII124.BtnUnica.Click;
      FrmRelFichaIndiv_Bim_ModII124 := nil;
end;
Osmar

Osmar

Curtidas 0

Respostas

Leandro Chiodini

Leandro Chiodini

02/01/2014

Bom dia
Voce pode fazer assim,
Passar a data antes de dar o showModal no form2.
Onde a data pode ser a data que você esta pegando do form1,
para ficar melhor podes ser criado um parametro pra pegar a data do form1,
e depois no lugar do 15/12/88 jogar esse parametro.

form2.edDataNascimento.Text:='15/12/88';
form2.ShowModal;

att,
Leandro
GOSTEI 0
Osmar

Osmar

02/01/2014

Amigo agradeço pela ajuda, o erro estava na passagem da data que deve ser antes do click do botão do form2 ou form3 e do nil, veja como ficou:


procedure TFrmRelFichaIndiv_Bim_ModII124Chamar.BtnImprimeClick(Sender: TObject);
begin

PegaData := FormatDateTime('dd "de" mmmm "de" yyyy', MonthCalendar1.Date);

if RbTodos.Checked then
begin
_Sql := 'select * from alunoturma';
ConsultaSql;
Application.CreateForm(TFrmRelFichaIndiv_Bim_ModII124_Varios,FrmRelFichaIndiv_Bim_ModII124_Varios);
FrmRelFichaIndiv_Bim_ModII124_Varios.RecebeData := PegaData;
FrmRelFichaIndiv_Bim_ModII124_Varios.BtnVariasPaginas.Click;
FrmRelFichaIndiv_Bim_ModII124_Varios := nil;
exit;
end
else
if RbSelecionar.Checked then
_Sql := 'Select * from AlunoTurma where MATRICULA_ALUNO = ' + DmDados.IBQryAlunoTurmaMATRICULA_ALUNO.Text;
ConsultaSql;
Application.CreateForm(TFrmRelFichaIndiv_Bim_ModII124,FrmRelFichaIndiv_Bim_ModII124);
FrmRelFichaIndiv_Bim_ModII124.RecebeData := PegaData;
FrmRelFichaIndiv_Bim_ModII124.BtnUnica.Click;
FrmRelFichaIndiv_Bim_ModII124 := nil;
end;
GOSTEI 0
Deivison Melo

Deivison Melo

02/01/2014

Finalizando Tópico!
GOSTEI 0
POSTAR