• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号
登陆 注册

Delphi中用FastReport制作报表

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
报表作为系统信息的典型输出形式之一，是大多数应用系统特别是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
showBand Child1
showBand band1
end
end

　　代码中用FastReport的内置函数 LINE# 取得当前行号，如果满足条件，就显示页头和Child3，开始新的一张表单。

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

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是程序运行时生成的报表预览效果。

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
MATLAB 2020a安装教程和破解方法(附密钥)发布时间：2022-07-18
下一篇：
[Matlab]二维隐函数绘图发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap