FastReport用户手册（十六）"OnBeforePrint" 事件示例-FastReport中文网

FastReport用户手册（十六）"OnBeforePrint" 事件示例

作者：zhuhm 来源：本站原创浏览：Loading... 日期：2012-12-20

创建一个客户端报表，报表中需要包含以A字母开头的公司。在Delphi中创建一个新的项目，将“TTable,” “TfrxDBDataSet,”“TfrxReport”组件拖动到窗体中，并对它们进行设置：

Table1:
DatabaseName = 'DBDEMOS'
TableName = 'customer.db'

frxDBDataSet1:
DataSet = Table1
UserName = 'Customers'

在报表编辑器中，创建以下类型的报表：

选择data-band，然后切换到对象检查器的“Events” 页面标签，如下图所示：

双击事件名称右的空白字段，创建一个“OnBeforePrint”事件处理器，如下图所示：

同时，空白处理器被添加到脚本文本，设计器切换到 “Code”页面。

在处理程序中编写以下代码：

PascalScript:

if Copy(<Customers."Company">, 1, 1) = 'A' then
MasterData1.Visible := True else
MasterData1.Visible := False;

C++Script:

if (Copy(<Customers."Company">, 1, 1) == "A")
MasterData1.Visible = true;
else
MasterData1.Visible = false;

运行的报告，检查脚本是否工作正常：

FastReport用户手册（十六）"OnBeforePrint" 事件示例