创建一个顾客列表报表，此报表仅显示以字母“A”开头的公司名称。
Table1:
DatabaseName = ‘DBDEMOS’
TableName = ‘customer.db’

frxDBDataSet1:
DataSet = Table1
UserName = ‘Customers’
打开报表编辑器创建如下报表：

选中数据栏，然后在对象查看器中切换到“事件”标签页：

双击“OnBeforePrint”事件右边空白处，会自动创建相关联的事件：

同时，此事件的空默认实现代码将添加到脚本文本中，报表设计器也自动切换到“代码”页：

在此方法体中写具体的实现：
if Copy(<Customers.“Company”>, 1, 1) = ‘A’ then
MasterData1.Visible := True else
MasterData1.Visible := False;
运行报表，脚本运行正常&#