Fórum Fechar QuickReport #259052
19/11/2004
0
Pessoal, por favor, como faço para fechar um formulário com QuickReport? Qdo o usuário fecha o relatório depois de dar um preview, ele exibe a tela de layout do formulário (aquela na qual desenhamos o relatório). Como faço para fechar diretamente esta tela? Estou usando uma interface MDI.
Para exibir o relatório estou usando:
frmRelMatConsumo := TfrmRelMatConsumo.Create(Self);
Qdo o formulário com o relatório é criado:
procedure TfrmRelMatConsumo.FormCreate(Sender: TObject);
begin
dmConsult.dbConsultorio.Open;
dmConsult.qryRelMatConsumo.Open;
qrpMatConsumo.Preview;
end;
Qdo ele é fechado:
procedure TfrmRelMatConsumo.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dmConsult.qryRelMatConsumo.Close;
dmConsult.dbConsultorio.Close;
frmRelMatConsumo.qrpMatConsumo.Free;
frmRelMatConsumo.Free;
Action := caFree;
end;
Obrigado.
Para exibir o relatório estou usando:
frmRelMatConsumo := TfrmRelMatConsumo.Create(Self);
Qdo o formulário com o relatório é criado:
procedure TfrmRelMatConsumo.FormCreate(Sender: TObject);
begin
dmConsult.dbConsultorio.Open;
dmConsult.qryRelMatConsumo.Open;
qrpMatConsumo.Preview;
end;
Qdo ele é fechado:
procedure TfrmRelMatConsumo.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dmConsult.qryRelMatConsumo.Close;
dmConsult.dbConsultorio.Close;
frmRelMatConsumo.qrpMatConsumo.Free;
frmRelMatConsumo.Free;
Action := caFree;
end;
Obrigado.
Gleison_gomes
Curtir tópico
+ 0
Responder
Posts
19/11/2004
Thomaz_prg
Tenta fazer o seguinte:
procedure TfrmRelMatConsumo.FormCreate(Sender: TObject);
begin
dmConsult.dbConsultorio.Open;
dmConsult.qryRelMatConsumo.Open;
qrpMatConsumo.Preview;
close;
end;
procedure TfrmRelMatConsumo.FormCreate(Sender: TObject);
begin
dmConsult.dbConsultorio.Open;
dmConsult.qryRelMatConsumo.Open;
qrpMatConsumo.Preview;
close;
end;
Responder
Gostei + 0
20/11/2004
Gleison_gomes
Muito obrigado!!!
Deu certo!
Deu certo!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)