Delphi中用FastReport制作报表

日期：2007年6月7日作者：查看:[大字体中字体小字体]

begin
lin=lineCount //在程序中要对该变量赋值
while lin mod 5<>0　 do
begin
showbandchild2　 //打印空行
inclin　
end
showBandchild3　
end
　　这段代码的用途是如果最后数据行不够一张表单显示时，就打印空行。

　　4. 选中Band3，在它的OnBeforPrint事件中输入如下代码：

begin
showbandchild1　 //到达报表结束时显示表单底部的内容
end
　　5.将报表保存后回到Delphi开发环境。

　　Delphi编程部分

　　在Delphi编程部分我们主要完成报表所需参数的传递，因为要在好几个过程中访问这些参数，所以要将这几个参数设为全局变量：

private
line1line2integer //保存行号
inputXjintemp //入库小计，每5行后清零，下同
outXjoutemp //出库小计
CajiaXjcatempReal //差价小计
下面是几个主要过程的代码清单。
//单张表单数据合并过程
procedure TInputForm.frDBDataSet1NextSender TObject　
var
ReCountinteger
begin
ReCount = Adoruku.RecordCount
Incline1　// 该变量传至报表文件控制打印空行
Incline2　// 该变量控制清零小计值
if not Adoruku.Eof then
begin
inputXj=inputXj+ADORuku.fieldByName'入库金额'　.AsFloat
outXj=outXj+Adoruku.fieldByName'出库金额'　.AsFloat
CajiaXj=CajiaXj+AdorukuJXCJ.AsFloat
end
//每5行后将小计值清零
if line2 mod 5 = 0　 and ReCount>line2 div 5　5　　 then
begin
intemp=inputXj
outemp=outXj
Catemp=CajiaXj
inputXj=0
outXj=0
CajiaXj=0
end
//到达数据集末尾时给变量赋值
if Adoruku.Eof then
begin
intemp=inputXj
outemp=outXj
Catemp=CajiaXj
end
end
　　以上程序在windows 2000/XP+Delphi6.0中调试通过。至此，我们已经完成了药品验收单的设计工作，其他的类似报表设计可以参照以上过程。图2是程序运行时生成的报表预览效果。

(图片较大，
请拉动滚动条观看)
上一页 [1] [2] [3] 下一页
Delphi中用FastReport制作报表相关文章：
·Delphi中用FastReport制作报表
Delphi中用FastReport制作报表相关软件

上一篇:定制任务栏上的系统菜单

下一篇:C++文件的输入/输出之一

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

Delphi中用FastReport制作报表

精品推荐

热点TOP10

特别推荐