如何在打印时生成序号?(50分)

  • 主题发起人 主题发起人 wing_sky
  • 开始时间 开始时间
W

wing_sky

Unregistered / Unconfirmed
GUEST, unregistred user!
我想在打印的时候生成一个自动排列的序号!
如: 编号 x1 y1 z3
1 xx yy zz
2 xx yy zz
3 xx yy zz
4 xx yy zz
.
.
.
其是编号是表里没有的字段,要怎么去生成它?我用的是reportbuilder!
 
没人会吗?[:(]
 
帮你提前。
 
关于编号,你可以定义一个变量,动态生成,在table中动态一个字段,然后在打印的时候,就可以自动编号了,我做过的
 
建个临时数据库,用于存贮要打印的数据,这个临时数据库要有编号这个字段,这样就可以
达到你的要求了。
 
建立一个计算字段,其值等于记录号即可。
procedure TForm1.QueryCalcFields(DataSet: TDataSet);
begin
DataSet.FieldByName('编号').AsInteger:=DataSet.RecNo;
end;
 
如果用FASTREPORT,有行号变量,非常简单
 
在想显示记录序号的地方放一 QRSysData1 控件,
将QRSysData1的data属性设置为qrsDetailNo即可,好运^_^
 
to hdfsun
我没有找到QueryCalcFields这个事件,是不是自定义的过程?还有你的编号这个字段
在哪里设进去,我的意思是不在数据库里添加字段;
to f-h-s and coaco
因为我一开始所有的报表都是用reportbuilder做的,能不能在reportbuilder里实现
这个功能?
 
能在reportbuilder里实现这个功能
请见
http://218.5.148.198/qzbob/repo_xh.htm
附上源代码
我是用ADO连VFP7的表
你如没有装VFP7你需改程序中的数据连接
参见http://www.delphibbs.com/delphibbs/dispq.asp?lid=1494039

如果实现了就——
随便给点分吧 ^_^
 
to qzbob
请问你用的是D几?我用Delphi6打开,开始提示ppReport1.OutlineSettings.CreateNode
等等出错,随后Delphi出现非法操作就自动关闭了,你能不能把思路贴出来或发邮件给我
也行! 问题解决100分送上!
 
对了,我用的是SQL Server7!
 
因为我是用ADO连VFP7的表
你需下载MDAC (Microsoft Data Access Components) 2.7 (中文版)
http://218.5.148.198/qzbob/mdac_typ.exe
你可参见
http://218.5.148.198/qzbob/repo_xh.htm
有详细说明(我刚才忘了放上贴图了)
另可参见
http://218.5.148.198/qzbob/repo.htm


如果实现了就——
随便给点分吧 ^_^
我要的不多
 
to qzbob
问题也解决,我就放了一个TppDBCalc,然后把DBCalcType改成dcCount就行了[:)]
谢谢! 100分送上! ^_^
 
to qzbob
请到主题为:‘qzbob请进’里拿另外50分!
 
后退
顶部