Quick report를 이용하여 report프로그램을 작성중인데요
한 Preview에서 여러개의 폼을 가진 report가 필요해요..
그래서 Quickreport를 가진 폼을 만들었는데...
그리구 한폼을 여러번 실행시킬수도 있거든요..
한번만 실행하면 error가 없는데..
여러번 preview을 실행한뒤 close를 하면 error가 나거든요..
MDIchild로 하면 화면이 앞에 보이구..
이럴땐 어떻게 해야하는건가요?
Application.CreateForm(Tuser_rep1_Form, user_rep1_Form);
with user_rep1_Form do
begin
sel_Query.Close;
sel_Query.SQL.Clear;
sel_Query.SQL.Text := F_SQL;
sel_Query.Open;
user_rep1_QuickRep.prepare;
QR_Title.Caption := Title_Text;
QRL_pagecnt.Caption := IntToStr(user_rep1_QuickRep.QRPrinter.PageNumber);
user_rep1_QuickRep.Preview;
sel_Query.Close;
Free;
end;
혹시 메모리 문제라면 메모리를 해제해 본세요.
아래의 코드 레포트 폼의 종료시 메모리 해제 예제 코딩입니다.
참고 하세요.
procedure TqrfmDay_Hab_Form.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
qrfmDay_Hab_Form := Nil;
Action := caFree;
end;