订阅 报表作为系统信息的典型输出形式之一，是大多数应用系统非凡是MIS系统的重要功能。是否具有一个良好的打印功能，往往从一定程度上关系到系统的成败。Delphi有很强的报表功能，但是它的报表功能还不能满足我们的需要。于是许多Delphi高手相继推出了不少优秀的报表控件（模块），作为QuickReport的补充，其中FastReport就是一个代表。
FastReport综合了QuickReport和Re portBuilder的优点，个头小，速度快，并带有全部源码。笔者在开发一个药品治理系统时，用FastReport2.51成功制作出了和药品验收单、药品调拨单一模一样的表单式报表。下面给朋友们介绍一下。
FastReport2.51下载地址：http//www.skycn.com/soft/8805.Html。
报表的需求分析
在医院工作的朋友都知道，药品入库时要填写药品验收单，药房工作人员领取药品时要填写药品调拨单。笔者单位使用的药品验收单和调拨单不是专用的，而是通用的商品验收单和调拨单。与百货业、电信系统使用的报表不同，它的外形为条形，每张固定可填五种药品，内容包括发货单位、发货单号、收货单位、品名、规格、单位、价格、金额等，一式三联。
综上所述，我们可以把报表设计的需求归纳如下：
1. 大小为：长21cm，宽10cm；
2. 每张可以打印5种药品，表单下面有本页小计。
3. 多于5种药品时开始新一张表单的打印，不足5种药品时要用空行补足。
报表设计
1.打开FastReport的报表设计器，按照图1设计出“药品验收单”。
(图片较大，请拉动滚动条观看)
另外，InHJ、OutHJ、CaHj、LineCount这几个变量分别表示“入库合计”、“出库合计”、“差价合计”和“数据总行数”，在程序中将对这几个变量赋值。
2.按F11键，调出对象查看器，选中Band2，在它的OnBeforPrint事件中输入如下代码：
begin
if LINE#-1<>0 and LINE#-1 mod 5=0 then
begin
showBandChild1
showBandband1
end
end
代码中用FastReport的内置函数LINE#取得当前行号，假如满足条件，就显示页头和Child3，开始新的一张表单。
3.选中Child3，在它的OnBeforPrint事件中输入如下代码：
begin
lin=lineCount //在程序中要对该变量赋值
while lin mod 5<>0 do
begin
showbandchild2 //打印空行
inclin
end
showBandchild3
end
这段代码的用途是假如最后数据行不够一张表单显示时，就打印空行。
4. 选中Band3，在它的OnBeforPrint事件中输入如下代码：
begin
showbandchild1 //到达报表结束时显示表单底部的内容
end
5.将报表保存后回到Delphi开发环境。
Delphi编程部分
在Delphi编程部分我们主要完成报表所需参数的传递，因为要在好几个过程中访问这些参数，所以要将这几个参数设为全局变量：
private
line1line2integer //保存行号
inputXjintemp //入库小计 ，每5行后清零，下同
outXjoutemp //出库小计
CajiaXjcatempReal //差价小计
下面是几个主要过程的代码清单。
//单张表单数据合并过程
procedure TInputForm.frDBDataSet1NextSender TObject
var
ReCountinteger
begin
ReCount = Adoruku.RecordCount
Incline1// 该变量传至报表文件控制打印空行
Incline2// 该变量控制清零小计值
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 55 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是程序运行时生成的报表预览效果。
(图片较大，请拉动滚动条观看)
| 笑话军事旅游美容女性百态母婴家电游戏互联网财经美女干货家饰健康探索资源娱乐学院 数码美食景区养生手机购车首饰美妆装修情感篇厨房科普动物植物编程百科知道汽车珠宝 健康评测品位娱乐居家情感星座服饰美体奢侈品美容达人亲子图库折扣生活美食花嫁风景 | |
Delphi中用FastReport制作报表
报表作为系统信息的典型输出形式之一，是大多数应用系统非凡是MIS系统的重要功能。是否具有一个良好的打印功能，往往从一定程度上关系到系统的成败。Delphi有很强的报表功能，但是它的报表功能还不能满足我们的需要。于是许多Delphi高手相继推出了不少优秀的报表控件（模块），作为QuickReport的补充，其中FastReport就是一个代表。
FastReport综合了QuickReport和Re portBuilder的优点，个头小，速度快，并带有全部源码。笔者在开发一个药品治理系统时，用FastReport2.51成功制作出了和药品验收单、药品调拨单一模一样的表单式报表。下面给朋友们介绍一下。
FastReport2.51下载地址：http//www.skycn.com/soft/8805.Html。
报表的需求分析
在医院工作的朋友都知道，药品入库时要填写药品验收单，药房工作人员领取药品时要填写药品调拨单。笔者单位使用的药品验收单和调拨单不是专用的，而是通用的商品验收单和调拨单。与百货业、电信系统使用的报表不同，它的外形为条形，每张固定可填五种药品，内容包括发货单位、发货单号、收货单位、品名、规格、单位、价格、金额等，一式三联。
综上所述，我们可以把报表设计的需求归纳如下：
1. 大小为：长21cm，宽10cm；
2. 每张可以打印5种药品，表单下面有本页小计。
3. 多于5种药品时开始新一张表单的打印，不足5种药品时要用空行补足。
报表设计
1.打开FastReport的报表设计器，按照图1设计出“药品验收单”。
(图片较大，请拉动滚动条观看)
另外，InHJ、OutHJ、CaHj、LineCount这几个变量分别表示“入库合计”、“出库合计”、“差价合计”和“数据总行数”，在程序中将对这几个变量赋值。
2.按F11键，调出对象查看器，选中Band2，在它的OnBeforPrint事件中输入如下代码：
begin
if LINE#-1 <>0 and LINE#-1 mod 5=0 then
begin
showBandChild1
showBandband1
end
end
代码中用FastReport的内置函数LINE#取得当前行号，假如满足条件，就显示页头和Child3，开始新的一张表单。
3.选中Child3，在它的OnBeforPrint事件中输入如下代码：
begin
lin=lineCount //在程序中要对该变量赋值
while lin mod 5<>0 do
begin
showbandchild2 //打印空行
inclin
end
showBandchild3
end
这段代码的用途是假如最后数据行不够一张表单显示时，就打印空行。
4. 选中Band3，在它的OnBeforPrint事件中输入如下代码：
begin
showbandchild1 //到达报表结束时显示表单底部的内容
end
5.将报表保存后回到Delphi开发环境。
Delphi编程部分
在Delphi编程部分我们主要完成报表所需参数的传递，因为要在好几个过程中访问这些参数，所以要将这几个参数设为全局变量：
private
line1line2integer //保存行号
inputXjintemp //入库小计 ，每5行后清零，下同
outXjoutemp //出库小计
CajiaXjcatempReal //差价小计
下面是几个主要过程的代码清单。
//单张表单数据合并过程
procedure TInputForm.frDBDataSet1NextSender TObject
var
ReCountinteger
begin
ReCount = Adoruku.RecordCount
Incline1 // 该变量传至报表文件控制打印空行
Incline2 // 该变量控制清零小计值
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是程序运行时生成的报表预览效果。
(图片较大，请拉动滚动条观看)
更多内容
熱帖排行
- 深度探秘中国最邪门的八个地方都在哪儿
- 色彩搭配也会影响你的情绪?
- 智能家居也疯狂玩转家具N种功能
- 你们说美白为何这么难?这些白不了原因你都知道吗？
- 抓好以下四点降低大型游乐设施和游乐场设备事故发生率
- 90%的女性都不知道的疾病-外阴白斑
- 分类信息网站建设如何支持网站快速获得排名
微信扫码关注本站公众号 wangchaonetcn
免责声明：本文仅代表作者个人观点，与王朝网络无关。王朝网络登载此文出于传递更多信息之目的，并不意味著赞同其观点或证实其描述，其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
© 2005- 王朝網路 版權所有