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.


Gleison_gomes

Gleison_gomes

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;


Responder

Gostei + 0

20/11/2004

Gleison_gomes

Muito obrigado!!!
Deu certo!


Responder

Gostei + 0

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

Aceitar