彩票走势图

汽车业务管理系统(VBMS)使用FastReport设计报表（一）

一、 报表设计与范例

根据报表需求的不同，你可以利用多种报表方式完成报表。下面我将结合VBMS中已经实现的报表范例讲述各种报表的设计方法和思路。FastReport

1、简单报表(Simple list)

*报表格式

一般由报表抬头、页首、页脚（或者栏首、栏尾，或者头、尾）、主项数据组成。

*报表范例

#商品档案列表

步骤如下：

1. 新建数据源(FIB Components->FIB Query)，起名tblProduct。（修改Name属性）

2. 获取所需数据(tblProduct->SQL)。

3. 依次添加ReportTitle、PageHeader、MastData、PageFooter区域。

4. 设置MastData区域连接的数据源->tblProduct。（双击MastData区域）

5. 在ReportTitle中添加文本对象，录入报表名称。

6. 在PageHeader中添加若干文本对象，录入字段中文名称。

7. 在MastData中添加若干文本对象，并连接该文本对象至对应数据字段。（可以从下拉框中选取）

8. 在PageFooter中添加文本对象，录入页码。（使用FastReport中的系统变量 [Page]）

SQL语句:

SELECT * FROM TB_PRODUCT;

《备注：一般报表都是从简单开始构建，然后逐步细化后得出的。因此可以利用FastReport报表中的新建报表向导功能(菜单->文件->新建…->标准报表向导)快速搭建起一个报表的雏形，而且他会自动将各个字段排列整齐，这样可以节约一些时间。

如果希望在报表抬头打印本公司的名称以及电话等信息，可以使用自定义变量(Custom)中的相关变量，该变量内容为VBMS在参数设置中定义的本公司资料。

在向PageHeader中添加中文栏目和向MastData中添加数据字段时，你可以直接用鼠标从右侧的数据列表框中拖拽相应字段到相应的区域中。你可以将栏目和字段一起建立，当然数据列表框下方的多选框要打勾。

可以在PageFooter中添加页码(Page)和总页数(TotalPages)。一般在文本对象中的格式为：共[TotalPages]页第[Page]页。但是需要声明的是，必须将报表设置成两遍报表(Double pass)模式后TotalPages变量才起作用否则为0。这很好理解，当报表引擎(Engine)执行第一遍时并不知道数据将充满几页纸，只有当第一遍完成后才计算得出，因此需要二遍报表才能打印出总的页数。因此两遍报表在FastReport中是一个重要概念，对于某些特殊报表可能会用到。例如：需要将统计的合计值打印在所有明细之前而不是之后。》

技巧：

前面说过，你可以利用字段别名修改英文的字段名称为中文名称，这样对于系统不很熟悉的人也可以看得懂报表。这里介绍另一个方法，使用该方法既可以达到修改中文名称的目的，又可以令报表制作更加快捷。例如还是上面这张商品档案列表。我们可以直接在SQL语句中加入中文别名。如下所示：

SQL语句：(中文别名需要用双引号包含)

SELECT PRODUCTNUMBER AS "商品编号",

PRODUCTNAME AS "品名规格",

PRODUCTUNIT AS "单位",

SELLPRICE AS "零售价"

FROM TB_PRODUCT

这样做的好处，一是报表中的数据字段均为中文容易理解，二是在执行上面6、7步骤时，你可以拖拽右侧的数据字段同时建立栏目头和字段，而此时栏目头中也跟随着变成了中文，避免了重新修改成中文的麻烦。当然由于vbms中的报表数量庞大，因此并未采用这种方法。

*报表中的变量

FastReport中的变量分为三种。

#系统变量

系统定义的一些与报表打印相关的变量，这里介绍几个常用的变量。

• Date --- 系统当前日期
• Time --- 系统当前时间
• TotalPages --- 总页数（必须设置Double pass）
• Page --- 当前页码
• Line --- 当前行序号
• Line# --- 也是当前行序号，但区别是在一个新的数据区域(Band)内该变量将重新计数。

#自定义变量(Custom)

自定义变量是由VBMS系统传入到报表系统中的。

#编程(Code)中使用的全局变量

你可以在Code页的起始处定义一些需要的全局变量。

例如：

var

S: string;

这里S就成了一个全局的字符型变量，你可以对它进行赋值、取值。也可以在文本对象中引用它，格式为：[<S&gt;]。

《备注：其实在FastReport报表系统中，所有对象诸如页(Page)、区域(Band)、文本对象(TextObject)、对话框控件、数据源字段、系统变量、自定义变量等，你均可以在文本对象中显示他们的值，只是引用他们的方式不同罢了。

例如：通过文本对象(TextObject)

打印文本编辑框的内容可以引用Text属性，格式：[Edit1.Text]。

打印公司名称可以引用自定义变量，格式：[CompanyName]。

打印数据字段值，格式：[tblProduct."商品编号&quot;]。其实数据字段也可以看成变量。

打印自定义的全局变量，格式：[<S>]。这里S需要用尖括号包含，其实一般情况下对于变量而言均需要用尖括号包含，只是FastReport对于非自定义的变量（不是在Code中定义的）有了一个预先判断，允许省略尖括号而已，你加上尖括号也不会出错。但在编程(Code)中所有变量被引用就一定需要有尖括号。

特别提醒：在文本对象中打印所有变量都必须用中括号[]将变量包含起来。》

2、主从报表（Master Detail）

*报表格式

一般由报表抬头、页首、页脚（或者栏首、栏尾，或者头、尾）、主项数据、细项数据组成。

*报表范例

#销售单据列表

步骤如下：

1. 新建2个数据源(FIB Components->FIB Query)，起名tblOrder、tblItem。

2. 获取所需数据(tblOrder->SQL、tblItem->SQL)。

3. 依次添加ReportTitle、PageHeader、MastData、Header、DetailData、Footer、PageFooter区域。

4. 设置MastData区域连接的数据源->;tblOrder，DetailData->tblItem。

5. 在ReportTitle中添加文本对象，录入报表名称。

6. 在PageHeader中添加若干文本对象，录入字段中文名称（单据头）。

7. 在MastData中添加若干文本对象，并连接该文本对象至对应数据字段。

8. 在Header中添加若干文本对象，录入字段中文名称（单据体）。

9. 在DetailData中添加若干文本对象，并连接该文本对象至对应数据字段。

10. 在Footer中添加System Text对象，用于显示金额合计。

11. 在PageFooter中添加文本对象，录入页码。（使用FastReport中的系统变量 [Page]）

SQL语句:

#tblOrder

SELECT * FROM TB_ORDER WHERE ORDERTYPE='销售出库';

#tblItem

SELECT * FROM TB_ITEM WHERE ORDERID=:ORDERID;

《备注：主从报表的关键是需要关联主数据源和从数据源。一般情况需要通过以下方式关联：

#从数据源的SQL语句中一般需要有用于关联的关键字段（外键）。例如上例中的ORDERID=:ORDERID。前面的ORDERID为tblItem的外键，即明细数据通过ORDERID与某一条主项数据关联。而:ORDERID为一个变量（在SQL语句中使用<冒号+变量名称>表示一个变量）。而一般这个变量的名称（ORDERID）的定义与tblOrder（主项数据）中的主键的名称相同，即变量名称定义为:ORDERID而不是:O或者其他。这样做的目的是系统可以自动进行匹配。

#定义tblItem的属性Master等于tblOrder。这样明细数据就被主项数据所控制了。

#定义tblItem的属性Params中的变量ORDERID的类型为整型（Integer），值为变量<tblOrder."ORDERID">。当你打开Params时，ORDERID变量已经默认存在了，这是因为你在tblItem的SQL中定义了这个变量的缘故。将来你可能会在一个数据源中定义多个变量，操作方法是相同的。设置值等于<tblOrder."ORDERID">表示当需要获取:ORDERID变量的值时，将会从主项数据中获取。这样当主项数据的ORDERID发生变化时，明细数据也随之变化。这个值的选取你可以通过按钮(fx)更方便的获取》

*SystemText对象

该对象与文本对象（TextObject）基本上相同，区别在于使用SystemText可以更加方便的对一个数据集进行求和或者其他的操作。虽然你也可以直接在文本对象（TextObject）中使用求和函数对数据集进行求和，不过使用SystemText可以令你不需要记忆许多函数，因为它帮你做了，基本上它就是一个构建函数向导的工具。当然如果你对FastReport中的函数比较熟悉，完全可以不必使用SystemText而直接使用TextObject更加快捷。

SystemText的用法如下：

#放置一个SystemText对象到Footer中，用于对销售明细数据中的金额进行求和。

#系统会立即弹出一个对话向导框。你可以选择三种方式中的一种：系统变量、求和、文本。这里主要将求和，另外两种方式很好理解（系统变量用于打印时间、页码等，而文本与TextObject中一样）。

#选择求和（Ageregate value）。选择函数->SUM（其他为最大值、最小值、平均值、数量），数据Band->DetailData1（设置你需要求和的数据区域，这里当然是明细数据），数据库->tblItem（上一步选择好后，系统自动会设定为该数据区域连接的数据源），下一步你可以从数据字段中选择需要求和的字段（例如：TotalTaxSum）。或者在表达式中构造更为复杂的求和内容（这里暂不讲述）。

#按确定后，SystemText中的文本自动生成为[SUM(<tblDetail."TOTALTAXSUM">,MasterData2)]。当你再次双击该SystemText，你会发现对话框中系统默认为文本，而文本内容就是上面的内容。由此可见，SystemText其实就是TextObject加上函数向导。

《备注：大家如果仔细会发现在求和向导对话框中有两个选项，一个是"计算不可见Band的数据"，一个是"执行总数"。这两个选项是做什么用的呢？

"计算不可见Band的数据"：有时候在报表中我们会对数据源做一些设置，例如满足某些条件的数据不显示出来（例如：维修结算单打印中仅打印自付内容）。那么这个选项可以使得系统在求和时只计算可见的数据。

"执行总数"：我们知道，对于主从报表中明细的求和，例如销售明细中商品的销售金额。该金额是表示本单据的合计。当单据变化时，这个合计值也随之变化。而有些时候，我们可能不希望这样，而是希望有一个值一直在累加合计金额，而不是随着单据的变化这个合计值被重置。那么这个选项可以使得系统一直累计合计值直到最后一张单据。

上面两个选项对于很多报表是很有用处的。》

*SUM函数

完整定义：SUM(Expr,Band,Flags);

• Expr：你需要求和的变量或者更加复杂的函数，例如：<tblItem."TOTALTAXSUM">。
• Band：你需要求和的数据区域名称，例如：DetailData1。
• Flags：默认为0，可以省略。

1 --- 计算不可见Band数据

2 --- 执行总数

3 --- 1 并且2（计算不可见Band数据 并且 执行总数）

3、分组报表（Group）

*报表格式

一般由报表抬头、群组首、主项数据、群组尾组成。

*报表范例

#商品档案报表(按商品分类分组)

步骤如下：

1. 新建1个数据源(FIB Components->FIB Query)，起名tblProduct。

2. 获取所需数据(tblProduct->SQL)。

3. 依次添加ReportTitle、GroupHeader、MastData、GroupFooter区域。

4. 设置MastData区域连接的数据源->tblProduct。

5. 在ReportTitle中添加文本对象，录入报表名称。

6. 双击GroupHeader，设置分组条件，选择数据字段tblProduct->PRODUCTSORT。

7. 在MastData中添加若干文本对象，并连接该文本对象至对应数据字段。

8. 在GroupHeader中添加若干文本对象，录入字段中文名称。

9. 在GoupHeader中添加一个文本对象，录入<;tblProduct."PRODUCTSORT">。用于显示商品分类名称。

10. 在GroupFooter中添加System Text对象，用于显示合计数。

11. 在PageFooter中添加文本对象，录入页码。（使用FastReport中的系统变量 [Page]）

SQL语句:

SELECT * FROM TB_PRODUCT ORDER BY PRODUCTSORT;

《所谓分组报表，就是按某一个字段进行分组显示，该字段具有相同的值的数据记录将被归类显示在一起。例如：上例中将商品档案按照商品分类归类显示。

要达到分组的目的，其中一个关键是该数据集必须按分组条件排序。即SQL语句中一定要有ORDER BY这样的排序语句，而排序字段就是分组的字段。

分组是可以多级的，也就是可以嵌套分组。例如：商品档案定义时可能用商品分类表示大类，商品类型表示小类。分组显示时希望按大类包含小类这样嵌套方式显示。那你可以让数据集按ORDER BY PRODUCTSORT,PRODUCTSTYLE这样来排序。排序时，排在前面的字段首先被排序，在相同的条件下，对排在后面的字段再进行排序。同样的这种情况下，你需要增加两个群组首尾，让他们嵌套排列。居于外层的设置分组条件为商品分类，居于内层的设为商品类型。》

*分组条件设置中的选项

在你设置GroupHeader的分组条件时，有以下几个选项，他们的用途如下：

#保持与群组在一起 --- 这个选项表示，FastReport报表系统总是试图将一个群组的内容打印在一张纸上而不做分割。例如：有一个群组的内容比较多，而这个群组的开始打印位置居于纸的中部，因此本页将无法将全部该群组的内容显示完毕。那么FastReport将把这个群组打印在新的一页上，这样上页纸的底部将会留出空白。当然如果这个群组在新的一页仍然无法显示完毕，那FastReport就接着显示，不再做其他处理了。

#换页 --- 这个选项与上面这个选项基本概念相同，只是他总是将新的分组内容打印在新的一页上，而不管这个分组的内容有多少。当然这样纸张的空白也更多更浪费。但这种方式对于某些客户来说仍然可能是需要的。

#显示在大纲 --- 如果选择本选项，那么在你预览报表时，你可以使用纲要功能（有一个纲要按钮）。他可以将分组的名称显示在左边的树型框中，这样你可以更加方便的定位到相应的分组。

《如果你想预览时总是显示纲要（不需要总是按纲要按钮）。你可以选择左侧Page1中的Report对象，在属性PreviewOptions->OutlineVisibe设置为True。》

*Reprint On NewPage

如果你选择GroupHeader区域，然后点击鼠标右键弹出菜单（Context PopupMenu）。你会发现有一个选项Reprint On NewPage，这个在其他区域的右键菜单中是没有的。他是起什么作用呢？

我们知道，一般分组报表设计时，总是将分组条件和中文字段名称显示在群组首。这样打印时，碰到一个新的分组，FastReport先是打印群组首中的内容，例如：商品分类的名称等。然后再打印该分组的数据。但如果数据较多时不能在一页中显示，那么剩余内容将打印在后面的一页中。这带来一个问题就是，如果独立看待后面一页纸，上面显示的数据我们不知道是属于哪一个商品分类的（分组），必须返回去查看上一页中的群组首才知道。而使用Reprint On NewPage，则FastReport将在新的一页中将群组首中的内容再打印一遍（Reprint）。这样你就可以清楚知道本组数据的归属了。当然这样的话，群组首中的内容将可能会被打印超过一遍，这取决于数据的多少。

分栏报表、多列报表、子报表、交叉报表就不详讲了

二、 常用功能及函数

常用功能列举如下：

*报表设置

什么时候需要两遍报表（Double pass）？

应用1 用于显示总的页数（TotalPages），例如：页脚显示第1页/共20页。系统第一遍扫描报表时计算出TotalPages，然后第二遍实际生成报表。如果不使用Double pass，则TotalPages返回0。

应用2 用于将明细项的合计值打印在报表起始位置，而不是在末尾。这需要在第一遍扫描报表时计算出然后在第二遍生成报表时显示在起始位置。

密码 --- 用于将报表加密，这样在设计或者显示报表时需要输入密码。

*页面设置

分栏 --- 可以将报表在一张纸上分成若干列来打印，比较利于节省纸张。这与在主项数据的Band中设置多个列（Column）不同，分栏打印顺序是从上往下，然后从左往右。多列打印顺序是从左往右，再从上往下。

函数

ListValue --- 根据SQL语句自动填充一个列表的值；

procedure ListValue(ASQL: string;AList: TStrings);

begin

tblList.Close;

tblList.SQL.Text := ASQL;

tblList.Open;

tblList.First;

while not tblList.Eof do

begin

AList.Add(tblList.Fields[0].AsString);

tblList.Next;

end;

end;

ShowLoginSector --- 登陆分公司列表自动选择，如果不是管理部门则不允许选择；

procedure ShowLoginSector(L: TfrxComboBoxControl);

var

S: string;

begin

S := VarToStr(Get('LoginSector'));

if S = '' then S := '管理部门';

L.ItemIndex := L.Items.IndexOf(S);

L.Enabled := S = '管理部门';

end;

报表设计中常用技巧：

A 为系统数据源增加自定义数据源，达到扩展数据的目的

在VBMS中的报表中心我们可以自己设计数据源然后设计自己需要的报表。其实，我们在其他的模块中一样可以自己设计数据源（原来以为不可以）。

设计方法与报表中心中是一样的。

下面我举一个例子：

在客户档案模块中的打印报表中，增加每个客户的对应的车辆资料的显示。

原报表中已经有了一个系统传入的数据源dsCustomer。

1. FIB->FIB Query，新增一个数据源 dsVehicle。

SQL语句为：

SELECT * FROM TB_VEHICLE WHERE CLIENTID=:CLIENTID；

其中:CLIENTID为变量，是随着dsCustomer的变化而变化的。

（注意：如果你希望这个变量由主数据源来控制，则该变量的命名必须与主数据源中的字段名称一致。）

2. 设置dsVehicle的如下属性：

Master -> dsCustomer；（设置主数据源）

Params -> CLIENTID，数据类型 Integer，值 <dsCustomer.&quot;CLIENTID">

（设置参数：设置值时可以选择按钮fx来选择）

3. 插入一个Band（明细数据）。

设置连接数据库为dsVehicle。然后放入相关的字段（Text Object）。

4. 鼠标右键设置MastData1的 Print if Detail Empty。目的是如果该客户没有车辆依然需要打印出来。

总结：

现在，我们既可以在报表中心，也可以在任何位置的打印报表中设计自己的数据源，并且可以将自己的数据源与vbms系统传入的数据源进行关联。这样的应用可以使报表设计更加灵活、更加强大。

B 为报表增加分组显示功能

在vbms系统的设计报表功能中，有一个群组头、群组尾的功能。

如果将群组头和群组尾分别置于主项数据的上面和下面，则可以对该主项数据进行分组统计功能，设置群组头时，系统会询问对哪一个字段进行分组。然后你可以在该群组头上放置一个该字段的TextObject来显示分组内容，在群组尾放置一个用于求和的SystemText。这样就可以按照该字段来分组统计了。

注意：要让相同组别的记录显示在一起，必须使数据源按该字段排序。因此，在一般报表中，如果你希望按照某个字段来分组统计，必须在打印所在的窗体上点击数据列表的该字段项（即排序，可以正排和逆排），然后再进入打印对话框来打印；如果是在报表中心中设计的报表，则在SQL中必须加上ORDER BY语句来排序。

另外，在群组头的属性中有一个OutLine，如果等于True。则可以在预览中使用列表导航。

C 将对话框（DialogForm）中的信息显示在报表中。

例如：对话框中录入开始日期和结束日期，你希望将该时间范围显示在报表头上。

方法是，在报表头上加一个Text Object，然后录入[edtBD.Text]；edtBD就是开始日期编辑框的Name，记住要用中括号括起来。其他的类推。

*在对话框中的下拉框中显示一个列表。

例如，在对话框中你可能需要用一个下拉框让用户选择某一个供应商，下拉框中存储了所有供应商。

方法是，首先建一个数据源（tblProvider），该数据源返回了所有供应商。在对话框中放一个下拉框（cmbClientName），在对话框的OnShow事件中编写如下代码：

tblProvider.Open;

tblProvider.First;

while not tblProvder.Eof do

begin

cmbClientName.Items.Add(tblProvider.FieldByName('CLIENTNAME').AsString);

tblProvder.Next;

end;

该方法通用，只需要替换相应的数据源就可以实现其他的内容。

D 在分组脚或者栏尾显示多个数据项的合计。

例如，对于导购人员统计表，有销售金额、项目金额、其他金额三项，我希望在栏尾显示三项的合计值（不是每一项的合计）。

如果要分别统计每一项的合计，你只需这样。

SUM(<tblBMAccount.&quot;SELLSUM">)就可以统计销售金额了。

将三项加起来，则写如下代码

SUM(<tblBMAccount."SELLSUM&quot;>+<tblBMAccount."SERVICESUM">+<tblBMAccount."OTHERSUM"&gt;)

*这里讲一下一些语法格式。

取一个字段的格式，

格式：TableName."FieldName"

表名+逗号+字段名，字段名用双引号引起来。

如果你希望在一个TextObject中显示某一个字段内容，

格式是：[TableName."FieldName"]

用中括号括起来，中间是字段。

如果该字段内容作为参数参加运算或者作为一个函数的参数，则需要用<>尖括号将字段括起来。

格式：SUM(<TableName."FieldName">)

比如：SUM(<tblBMAccount."SELLSUM">)；

或者 <tblBMAccount."SELLSUM">+<tblBMAccount."SERVICESUM&quot;>；

同样的，如果希望将他们放在Text Object中显示，还必须加上中括号。

例如：[SUM(<TableName."FieldName">)]

这里关键记住，如果想在TextObject中显示要用[]中括号，要在函数的参数中引用字段或者使用字段进行运算，需要用<>尖括号将字段括起来。

E 如何将报表底部的合计显示在报表头

如果直接将合计的TextObject放在主项数据的前面，将不能统计值，因为此时尚未解析出所有数据。

利用FastReport的两遍报表和临时变量功能实现。

首先设置该报表为两遍报表（Double Pass）。

在底部的某一个Band中的OnBeforePrint事件中加入以下代码：

例如：

Set(<tblBMAccount."BM">,SUM(<tblBMAccount."SELLSUM">+<tblBMAccount."SERVICESUM">+<tblBMAccount."OTHERSUM">));

说明：Set是一个函数，他将一个值存入了一个变量中。

Set(var,value)；其中变量var可以利用数据表中的某一个字段，Value是你的合计值。

在主项数据（MastData）的上面的某一个Band中放一个TextObject（例如：memTotal）

然后在该TextObject的OnBeforePrint事件中加入如下代码：

例如：

if Engine.FinalPass then

memTotal.Text := Format('%8.2f',[Get(<tblBMAccount."BM">)]);

说明：Engine是FastReport管理报表的对象，FinalPass表示最后一遍报表。

Get(var)将变量var的值返回。Format是一个格式化数字的函数。

F 在底部显示多个数据源某个字段的合计值

例如：将三个明细的合计相加后显示总的合计。

方法一：

公式如下：

[SUM(<dsServiceItem."TOTALTAXSUM">,MasterData1)+SUM(<dsProductItem."TOTALTAXSUM">,MasterData2)+SUM(<dsOtherItem."TOTALTAXSUM">,MasterData3)]

但有一个问题是，当三个明细不是全部存在时，打印时会发生Variant Operate操作错误。

我分析该错误产生的的原因是当其中一个明细不存在时，此时SUM后的结果为NULL（空值）而不是0，所以当一个NULL值与其他一个数值相加时会发生上述错误。

解决的方法是，判断一下：如果SUM后为NULL，则给它赋值0。恰好FastReport中有一个函数IIF(Expression,TureValue,FalseValue);该函数可以通过判断条件，如果条件为True，则返回True值，为False则返回False值。

所以将上述表达式进行一些改造。

IIF(SUM(<dsServiceItem."TOTALTAXSUM">,MasterData1)<>null,SUM(<dsServiceItem."TOTALTAXSUM">,MasterData1),0)

上面这个表达式表示：如果合计值不为空，则返回合计值，否则返回0。

因此，整个表达式如下：

[IIF(SUM(<dsServiceItem."TOTALTAXSUM">,MasterData1)<>null,SUM(<dsServiceItem."TOTALTAXSUM">,MasterData1),0)+IIF(SUM(<dsProductItem."TOTALTAXSUM">,MasterData2)<>null,SUM(<dsProductItem."TOTALTAXSUM"&gt;,MasterData2),0)+IIF(SUM(<dsOtherItem."TOTALTAXSUM&quot;>,MasterData3)<>null,SUM(<dsOtherItem."TOTALTAXSUM">,MasterData3),0)]

方法二：

在Code页的最顶部定义三个变量，例如：

var

V1,V2,V3: Double;

在每个数据源的主项脚的OnBeforePrint的事件中分别录入：

主项脚1的OnBeforePrint:

V1 := SUM(<dsServiceItem."TOTALTAXSUM">,MasterData1);

主项脚2的OnBeforePrint:

V2 := SUM(<dsProductItem."TOTALTAXSUM">,MasterData2);

主项脚3的OnBeforePrint:

V3 := SUM(<dsOtherItem."TOTALTAXSUM">,MasterData3);

在需要显示合计的TextObject中使用：

[<V1>]或者[<V2>;]或者[<V3>]或者[<V1+V2+V3>]即可。

G 在报表中引入自己的数据源

有客户需求：希望打印条码时同时打印出商品的品名规格和零售价（或其它商品相关信息），但条码库数据表中没有相应的数据字段。如何进行设计呢？

其实利用条码库数据表中的商品序号（ProductID），可以自己增加一个数据源（dsBarCodeEx），通过ProductID作为主键来连接数据表TB_BARCODE和TB_PRODUCT，将TB_PRODUCT表中的某些字段引入（根据需要）。

数据源可能是如下内容：

SELECT

TB_BARCODE.PRODUCTID,

TB_BARCODE.BARCODE,

TB_PRODUCT.PRODUCTNUMBER,

TB_PRODUCT.PRODUCTNAME,

TB_PRODUCT.SELLPRICE

FROM

TB_BARCODE

LEFT JOIN TB_PRODUCT

ON TB_PRODUCT.PRODUCTID=TB_BARCODE.PRODUCTID

这样，你可以利用自己设计的数据源（原来的数据源dsBarCode不去管他）设计出相应的条码打印报表（可以打印零售价等）。

H 在报表中实现可变数据源

在报表中可以根据对话框中的条件实时调整数据源中的参数。

例如：在库存状况表中导出到条码库后（所有商品均导出），有时需要只打印某些商品的条码。你可以设计一个对话框，可以按照商品编号筛选，如果筛选条件为空，则打印所有商品，否则打印筛选出的商品。

设计数据源如下：

SELECT

BA.PRODUCTID,

BA.BARCODE,

PR.PRODUCTNUMBER,

PR.PRODUCTNAME,

PR.SELLPRICE

FROM

TB_BARCODE BA

LEFT JOIN TB_PRODUCT PR

ON PR.PRODUCTID=BA.PRODUCTID

WHERE PR.PRODUCTNUMBER = :N

然后在数据源的Params中设置N的参数。

此时，如果筛选条件为空，则查询出来的数据也为空。

这是因为条件 WHERE PR.PRODUCTNUMBER = :N 导致的。

筛选条件为空时，数据源应该去掉该条件。此时需要根据条件动态调整数据源。

在btnOK（对话框中的确定按钮）的OnClick事件中加入以下代码：

procedure btnOKOnClick(Sender: TfrxComponent);

var

S: string;

begin

S := 'SELECT BA.PRODUCTID,BA.BARCODE,PR.PRODUCTNUMBER,PR.PRODUCTNAME,PR.SELLPRICE'+

' FROM TB_BARCODE BA'+

' LEFT JOIN TB_PRODUCT PR'+

' ON PR.PRODUCTID=BA.PRODUCTID';

if edtProductNumber.Text<>'' then

begin

S := S + ' WHERE PR.PRODUCTNUMBER = :N';

dsBarCodeEx.ParamByName('N').Value := edtProductNumber.Text;

end;

dsBarCodeEx.SQL.Text := S;

end;

该代码根据筛选条件不同，对数据源的SQL语句进行不同的设置。

这样就可以达到要求了。

I 在对话框中，显示开始日期和结束日期。

在DialogPage1的OnShow事件中加入以下代码：

方式1：

procedure DialogPage1OnShow(Sender: TfrxComponent);

begin

edtBD.Text := DateToStr(Date);

edtED.Text := DateToStr(Date);

end;

说明：

edtBD,edtED为开始日期、结束日期的编辑框。

DateToStr()函数将日期型变量转为字符串。

现在，开始日期和结束日期默认为今日。

方式2：

procedure DialogPage1OnShow(Sender: TfrxComponent);

var

Y,M,D: Integer;

begin

Y := YearOf(Date);

M := MonthOf(Date);

D := DaysInMonth(Y,M);

edtBD.Text := DateToStr(EnCodeDate(Y,M,1));

edtED.Text := DateToStr(EnCodeDate(Y,M,D));

end;

说明：

YearOf()函数返回某个日期的年份；

MonthOf()函数返回某个日期的月份；

DaysInMonth()函数返回某月的天数；

EnCodeDate()函数将年、月、日整型数转为日期型；

现在，开始日期为本月的1号，结束日期为本月的最后一天。

J 在对话框DialogPage1中使用警告框提醒输入相关内容

例如：你可能需要用户必须录入某些查询内容，否则提醒用户输入。

在btnOK（确定按钮）的OnClick事件中加入以下代码：

procedure btnOKOnClick(Sender: TfrxComponent);

begin

if edtDepotName.Text = '' then

begin

ShowMessage('请输入仓库!');

edtDepotName.SetFocus;

DialogPage1.ModalResult := mrNone;

Exit;

end else

DialogPage1.ModalResult := mrOK;

end;

说明：

ShowMessage()函数用于显示一条警告信息。

edtDepotName.SetFocus 表示该编辑框获取输入焦点；

DialogPage1.ModalResult := mrOK 表示通过；

DialogPage1.ModalResult := mrNone 表示不通过；

K 单据打印中如何实现空表格填满剩余的空行，达到指定的行数。

在原来的报表基础上，增加一个子Band（Child1），在这个Band上设计空白行。

可以将Footer1的高度Height设置为0；

在Code页中录入以下代码：

var

PageLine: Integer; //在现在页打印到第几行

PageMaxRow: Integer = 8; //指定的每页固定行数 你可以修改

//在MasterData1的OnBeforePrint事件中加入以下内容

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);

begin

PageLine := <Line#> mod PageMaxRow;

if (PageLine = 1) and (<Line#> > 1) then

Engine.NewPage;

end;

//在Footer1的OnBeforePrint事件中加入以下内容

procedure Footer1OnBeforePrint(Sender: TfrxComponent);

var

i: Integer;

begin

i := iif(PageLine=0,PageMaxRow,PageLine);

while i < PageMaxRow do

begin

i := i + 1;

Engine.ShowBand(Child1); //增加一个子Band，在该Band上设计空白的行

end;

end;

L 在报表中使用金额大写

在FastReport的设计模式下，在Code页中加入以下函数：

function SumToCaps(const Value : Double): string;

const

d = '零壹贰叁肆伍陆柒捌玖分角元拾佰仟万拾佰仟亿';

var

m,k : string;

j : Integer;

begin

k :='';

m :=FloatToStr(int(Value*100));

for j:=length(m) downto 1 do

k := k+d[(strtoint(m[Length(m)-j+1])+1)*2-1]+

d[(strtoint(m[Length(m)-j+1])+1)*2]+d[(10+j)*2-1]+d[(10+j)*2];

result := k;

end;

当你需要将一个金额转换为金额大写时可以如下操作：

1、在Code页的开始处定义一个字符串。

Var

TOTALSUM_CAPS: string;

2、在相应的事件（可能是OnBeforePrint）中加入

TOTALSUM_CAPS := SumToCaps(TOTALSUM);

注：这里的TOTALSUM可能是一个变量，也可以是数据源中的字段或者合计值。例如：

<tblMaster."TOTALSUM">或者SUM(<;tblMaster."TOTALSUM",MasterData1,1>)。

3、在需要显示大写金额的TextObject中键入[<TOTALSUM_CAPS>]。

M 如何隐藏某些主项数据记录

通常当某个数值为零时，我们不希望这条记录被打印或者显示。

步骤如下：

1、选择主项数据MastData1的OnBeforePrint时间。

2、在OnBeforePrint事件中填写代码

if <tblMaster."TotalSum">=0 then

MastData1.Visible := False else

MastData1.Visible := True;

其中<tblMaster."TotalSum&quot;>=0是条件，你可以定义为自己的条件。

N 如何强调某些主项数据的内容

有时我们希望当满足一定条件时，某些数据的字体或者颜色显示不同，以达到强调的目的。

步骤如下：

1 选择需要强调的TextObject。

2 选择工具栏中的强调按钮。

3 在对话框中录入需要强调时的条件。例如：<tblMasterData."TotalSum"&gt; >= 1000

4 选择强调的字体，颜色。