急!急!! 表格报表问题(100分)

  • 主题发起人 主题发起人 nkczx
  • 开始时间 开始时间
N

nkczx

Unregistered / Unconfirmed
GUEST, unregistred user!
如何实现如下带表格报表:
每页为20行表格,查到数据往里面填
 
可以对记录集进行计算,如果记录数不是20的倍数,差多少,就插入多少空记录。
 
通过程序控制,或用一些报表控帛:如PrintGrid控件,它能设置每页打印多少页。
你只要把数据用程序填入Grid后,再打印。如果不显示,可以设其可视属性为False.
 

打印的数据为查询出来的数据
如何插记录
 
也可以用forumla one来实现。
 
添加一个UpdateSQL控件,将Query的UpDateObject指向这个控件,并改Query的CachUpdate
为True就可以插入记录啦。
 
是不是打印后,释放updatesql
 
如果你是动态建立,打印后就要释放;如果是在设计是就加上的,不用释放。
 
能否具体一点,我是初学者
 
再具体一点,给你100分,ok?
 
Var I:Integer;
begin
//在设计时已将Query的CachUpdate:=True,而且UpdateObject:=UpdateSQL(对UpdateSQL
不作任何处理),而且Query有一字段作Key用(不是自增,不打印)。
if (Query.RecordCount Mod 20)<>0 then
begin
for I:=1 to (Query.RecordCount Mod 20)do
begin
Query.Append;
Query.FieldByName('Key').Value:=-I;//此处仅是为了不出现重复纪录。
..........
Query.Post;
end;
end;

QuickReport.PreView;
end;
 
上面的For循环应为:]

for I:=1 to (20-(Query.RecordCount Mod 20))do
 
如果其它字段not null有没有影响
 
我的办法是先在qreport里把表格线全部画好
 
很不方便的
 
接受答案了.
 
如何使释放updatesql生效
 
后退
顶部