问题描述:
  我在服务器上写了一段托盘程序用于夜间审核!
由于夜间审核会产生很多报表, 但由于酒店节约资源,所以没有夜间审核员。 所以我们现在的解决方法是:
服务器夜间产生的报表都保存起来。第二天上班以后才来根据夜间报表进行审核!
代码如下:
procedure Tw_AutoYS.btn8click();
var
sFileName:string;
PreDate:string;
serverTime:TDateTime;
begin
 qrlabel12.Caption:='终结表' ;
 qrlabel30.Caption:='制表人:'+'自动夜审';
 qrlabel29.Caption:=datetimetostr(now);
 ServerTime:=now;
 preDate:=DateToStr(ServerTime-1);
 sFileName:=preDate+'A试算表与终点表';
 QuickRep3.Preview;
 QuickRep3.QRPrinter.Save('C:\Inetpub\ftproot\'+sFileName);
/////上面代码加上QuickRep3.onPreview事件代码为保存报表。
end;
procedure Tw_AutoYS.QuickRep3Preview(Sender: TObject);
begin
/////////<-----------------------
end;
报表数据都是从数据库很多表中得到的最终数据集。
对数据操作都能很快完成。
问题是为什么保存一张报表大概要7分钟,而我有很多报表。大概就要30分钟左右了。
我试了一下,如果把保存报表的代码写在按钮里,而运行程序我去单按钮来保存的话,不到一分钟就能保存。
为什么我写成过程让它自动保存却要7分钟呢?
不知道我描述清楚没?若有疑问请回贴。真的很急啊!!!!