Delphi中用FastReport制作报表

下载本文示例代码
　　报表作为系统信息的典型输出形式之一，是大多数应用系统特别是MIS系统的重要功能。是否具有一个良好的打印功能，往往从一定程度上关系到系统的成败。Delphi有很强的报表功能，但是它的报表功能还不能满足我们的需要。于是许多Delphi高手相继推出了不少优秀的报表控件（模块），作为QuickReport的补充，其中FastReport就是一个代表。　　FastReport综合了QuickReport和Re portBuilder的优点，个头小，速度快，并带有全部源码。笔者在开发一个药品管理系统时，用FastReport2.51成功制作出了和药品验收单、药品调拨单一模一样的表单式报表。下面给朋友们介绍一下。　　FastReport　V3.22.16下载地址：。　　报表的需求分析　　在医院工作的朋友都知道，药品入库时要填写药品验收单，药房工作人员领取药品时要填写药品调拨单。笔者单位使用的药品验收单和调拨单不是专用的，而是通用的商品验收单和调拨单。与百货业、电信系统使用的报表不同，它的形状为条形，每张固定可填五种药品，内容包括发货单位、发货单号、收货单位、品名、规格、单位、价格、金额等，一式三联。　　综上所述，我们可以把报表设计的需求归纳如下：　　1. 大小为：长21cm，宽10cm；　　2. 每张可以打印5种药品，表单下面有本页小计。　　3. 多于5种药品时开始新一张表单的打印，不足5种药品时要用空行补足。　　报表设计　　1.打开FastReport的报表设计器，按照图1设计出“药品验收单”。　　另外，InHJ、OutHJ、CaHj、LineCount这几个变量分别表示“入库合计”、“出库合计”、“差价合计”和“数据总行数”，在程序中将对这几个变量赋值。　　2.按F11键，调出对象查看器，选中Band2，在它的OnBeforPrint事件中输入如下代码： beginif ???LINE#?-1?<>0? and ???LINE#?-1? mod 5=0? thenbeginshowBand?Child1??showBand?band1??end?end?　　代码中用FastReport的内置函数?LINE#?取得当前行号，如果满足条件，就显示页头和Child3，开始新的一张表单。　　3.选中Child3，在它的OnBeforPrint事件中输入如下代码： beginlin?=?lineCount?? //在程序中要对该变量赋值while ?lin mod 5<>0? dobeginshowband?child2?? //打印空行inc?lin??end?showBand?child3??end?　　这段代码的用途是如果最后数据行不够一张表单显示时，就打印空行。　　4. 选中Band3，在它的OnBeforPrint事件中输入如下代码： beginshowband?child1?? //到达报表结束时显示表单底部的内容end?　　5.将报表保存后回到Delphi开发环境。共2页。 1 2 8 : 　　报表作为系统信息的典型输出形式之一，是大多数应用系统特别是MIS系统的重要功能。是否具有一个良好的打印功能，往往从一定程度上关系到系统的成败。Delphi有很强的报表功能，但是它的报表功能还不能满足我们的需要。于是许多Delphi高手相继推出了不少优秀的报表控件（模块），作为QuickReport的补充，其中FastReport就是一个代表。　　FastReport综合了QuickReport和Re portBuilder的优点，个头小，速度快，并带有全部源码。笔者在开发一个药品管理系统时，用FastReport2.51成功制作出了和药品验收单、药品调拨单一模一样的表单式报表。下面给朋友们介绍一下。　　FastReport　V3.22.16下载地址：。　　报表的需求分析　　在医院工作的朋友都知道，药品入库时要填写药品验收单，药房工作人员领取药品时要填写药品调拨单。笔者单位使用的药品验收单和调拨单不是专用的，而是通用的商品验收单和调拨单。与百货业、电信系统使用的报表不同，它的形状为条形，每张固定可填五种药品，内容包括发货单位、发货单号、收货单位、品名、规格、单位、价格、金额等，一式三联。　　综上所述，我们可以把报表设计的需求归纳如下：　　1. 大小为：长21cm，宽10cm；　　2. 每张可以打印5种药品，表单下面有本页小计。　　3. 多于5种药品时开始新一张表单的打印，不足5种药品时要用空行补足。　　报表设计　　1.打开FastReport的报表设计器，按照图1设计出“药品验收单”。　　另外，InHJ、OutHJ、CaHj、LineCount这几个变量分别表示“入库合计”、“出库合计”、“差价合计”和“数据总行数”，在程序中将对这几个变量赋值。　　2.按F11键，调出对象查看器，选中Band2，在它的OnBeforPrint事件中输入如下代码： beginif ???LINE#?-1?<>0? and ???LINE#?-1? mod 5=0? thenbeginshowBand?Child1??showBand?band1??end?end?　　代码中用FastReport的内置函数?LINE#?取得当前行号，如果满足条件，就显示页头和Child3，开始新的一张表单。　　3.选中Child3，在它的OnBeforPrint事件中输入如下代码： beginlin?=?lineCount?? //在程序中要对该变量赋值while ?lin mod 5<>0? dobeginshowband?child2?? //打印空行inc?lin??end?showBand?child3??end?　　这段代码的用途是如果最后数据行不够一张表单显示时，就打印空行。　　4. 选中Band3，在它的OnBeforPrint事件中输入如下代码： beginshowband?child1?? //到达报表结束时显示表单底部的内容end?　　5.将报表保存后回到Delphi开发环境。共2页。 1 2 8 : 下载本文示例代码


Delphi中用FastReport制作报表Delphi中用FastReport制作报表Delphi中用FastReport制作报表Delphi中用FastReport制作报表Delphi中用FastReport制作报表Delphi中用FastReport制作报表Delphi中用FastReport制作报表Delphi中用FastReport制作报表Delphi中用FastReport制作报表Delphi中用FastReport制作报表Delphi中用FastReport制作报表Delphi中用FastReport制作报表Delphi中用FastReport制作报表Delphi中用FastReport制作报表Delphi中用FastReport制作报表