关于Quick Report释放的问题。dwang大侠帮忙!其他各位也请帮忙,急!急!急!(0分)

Q

QQ

Unregistered / Unconfirmed
GUEST, unregistred user!
关于Quick Report释放的问题。dwang大侠帮忙!其他各位也请帮忙,急!急!急!
我写了一个数据库程序,用 Quick Report 写了一个标签打印程序,
每次输入打一份(当前记录),且需要控制某些值,因为需要一次
打印标签的正面、反面和夹层,其位置、内容都不相同所以需要做
三个报表。
每次执行打印按钮,系统资源都回减少,直到死机!
有时会出现:ACCESS XXXX WRITE XXXX的奇怪错误,如果继续打印
则出现 A COMPONENT NAMED LABELFORMX IS ALREADY EXIST的错误
怀疑QREPORT需要自己释放资源,请问如何做?
我的程序下周一定要完成,分数不够了,希望多多原谅,如果说
多加分数,我可以同志版主,以后再加给你们,谢谢!
dwang大侠:我见你有问必答,也是本版首富,想必不会和我计较这
几分!
CJ大侠: 你寄东西到是很勤快,这次仰仗你了!
版主:希望多出注意
千万帮忙!
我的打印程序段如下:
procedure TForm1.BtnPrintClick(Sender : TObject);
begin
Showmessage('print Ok to print!');
with LabelForm1do
//LabelForm1 是放报表容器的FORM,每个FORM一个报表容器
begin
//以下为给QUICK REPORT赋值
QNumber.Caption := Self.Number.Caption;
QName.Caption := Self.Name.Caption;
....
end
with LabelForm2do
//LabelForm1 是放报表容器的FORM,每个FORM一个报表容器
begin
QIn.Caption := Self.In.Caption;
QOut.Caption := Self.Out.Caption;
QTime.Caption := FormatDateTime('yyyy-mm-dd',now);
....
end
with LabelForm3do
//LabelForm1 是放报表容器的FORM,每个FORM一个报表容器
begin
QNumber.Caption := Self.Number.Caption;
QName.Caption := Self.Name.Caption;
....
end
//因为需要一次打印标签的正面、反面和夹层,其位置、内容都不相同所以需要做三个报表
LabelForm1.QRpt.Print;
LabelForm2.QRpt.Print;
LabelForm3.QRpt.Print;
end;
 
Q

QQ

Unregistered / Unconfirmed
GUEST, unregistred user!
我有事先下去了!
晚上12点以前一定回来
 
D

dwwang

Unregistered / Unconfirmed
GUEST, unregistred user!
QQ啊!分数是没问题,可是谁说我有问必答呢?
尤其是QReport的问题,我好像从没得过分 :(
而且你也不必把我写在标题里呀!还写错了 :(
正如huiZhang和another_eYes说的,大家都不喜欢
qReport,这个错误从你的程序里一点看不出来,
你的LabelForm1之类的变量都是静态的吗?
你确认没有labelform1:=tlabelform1.create之类的语句吗?
如果只是像每次打印这么简单,恐怕就是qReport的问题了,
还是从升级Delphi或QReport的角度考虑吧!
不好意思,帮不上忙.
 
C

CJ

Unregistered / Unconfirmed
GUEST, unregistred user!
既然号称大侠,就要该出手时就出手,我虽然不能帮忙,
但是我愿意借QQ 30 分,如哪位能答出此题,我愿意出
30个铜板
谁让在信中提到我了!
我早说过Q REPORT 不是什么好东西
 
Q

QQ

Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
顶部