微软在2004年岁末发布最新版Visual Foxpro 9.0，这则消息让我们回想起曾经风光无限的Foxpro，现在它已经被Java、Delphi、VB等众多明星遮掩了光芒，有人认为如果不是诞生在豪门微软，它肯定已经消失。但了解Visual Foxpro的都知道，Visual Foxpro的卓越性能是无法代替的。
新版Visual Foxpro 9.0在Foxpro社区引起了轰动，新版中将包含一个更快的本地数据引擎，支持更多的数据类型，SQL语句执行中有更大的一致性，一个完全重新设计的可扩展报表编写器，以及一系列效率和功能增强特性。
在Visual FoxPro 9.0的报表系统出现了难以置信的改进。在本文中，我只讨论几个新增功能中的一个——扩展运行时报表引擎（runtime reporting engine）的能力。
Visual FoxPro小组在处理运行时改进工作时一直紧记着几个目标，包括：
- 处理打印和预览之外的多种报表输出
- 使用GDI 进行报表输出。这会带来很多显著的改进，例如精确地显示、图像和字体的平滑调整，以及一些附加的能力（例如文本旋转）
- 提供一个更加灵活和可扩展的报表系统
你可以同时访问旧的和新的报表引擎，因此你可以根据需要选择在哪种引擎下运行报表。但是一旦你看到新的报表引擎的优点，你就再也不希望使用旧式报表了。
报表系统的架构
Visual FoxPro 9以前版本中的报表系统类似于单片电路：它处理所有细节信息，只有少量的例外（用户定义的函数、报表带条的OnEntry和OnExit表达式等等），在报表运行的时候，你是不能与它交互操作的。
新的报表引擎把报表的功能分成了两部分：现在的报表引擎只处理数据和对象定位；一种新对象（报表监听器）处理显示和输出的事务。由于报表监听器是类（class），因此我们现在可以使用以前梦寐以求的方式与报表进程交互操作。
新的报表语法
Visual FoxPro 9支持使用旧的报表引擎运行报表；你可以像以前一样使用REPORT命令（尽管你可以使用新命令重载REPORT的行为）。为了得到新式的报表行为，必须使用REPORT命令的OBJECT子句。OBJECT子句支持两种使用方法：指定报表监听器和指定报表样式。微软把它归纳为对象辅助（object-assisted）报表。
报表监听器是提供新式报表行为的对象。报表监听器是基于Visual FoxPro 9的新的基础类ReportListener的。为了让Visual FoxPro 9使用报表指定的监听器，需要实例化监听器类，并在REPORT命令的OBJECT子句中指出该对象的名称。下面是一个例子：
loListener = createobject( MyReportListener )
report form MyReport object loListener |
如果不希望手动实例化监听器，可以通过指定报表类型让Visual FoxPro自动为你完成实例化过程，例如：
| report form MyReport object type 1 |
已经定义好的类型有：
- 0——从打印机输出
- 1——预览
- 2——某个时刻的页面信息模式，但不会输出到打印机
- 3——所有页面模式，但不会调用预览窗口
- 4——XML输出
- 5——HTML输出
当然我们还可以使用其它的用户自定义类型。
使用这种方式运行报表的时候，将调用新的_REPORTOUTPUT系统变量（默认情况下它位于Visual FoxPro主目录的ReportOutput.APP中）中指定的应用程序来决定指定该类型使用哪种监听器类来实例化。它是通过查看APP中内建的监听器注册表（尽管你可以指定它使用一个外部表）中的监听器类型来实现的。如果它找到了需要的类，它就实例化该类并传递该监听器对象的一个引用到报表引擎中。因此，在REPORT命令中使用OBJECT TYPE 某种类型的效果与下面的代码的效果是相同的：
loListener = .NULL.
do (_ReportOutput) with SomeType, loListener
report form MyReport object loListener |
报表监听器
在报表运行的过程中，伴随着报表事件的发生，Visual FoxPro把这些事件暴露给基于ReportListener基类的对象。Visual FoxPro帮助文件记录了ReportListener的属性、事件和方法（PEMs），但是在本文中我只讨论其中最有用的一些。
表1列举了ReportListener类的最常使用的一些属性。
表1：ReportListener类的一些有用属性
属性
|
描述
|
CurrentDataSession
|
报表数据的数据对话ID
|
FRXDataSession
|
FRX游标的数据对话ID
|
GDIPlusGraphics
|
用于显示的GDI 绘图对象句柄
|
ListenerType
|
监听器生成的报表输出类型。默认值是-1（无输出），你应该把它改成符合需要的值。它的值与REPORT 命令的OBJECT TYPE 子句中规定的值是相同的。
|
OutputPageCount
|
被显示的页面的数量
|
QuietMode
|
如果它的值为.T. (默认值是 .F.) 就支持进度信息
|
表2显示了经常使用的ReportListener的事件和方法。
表2：ReportListener的一些有用的事件和方法
|
事件/方法
|
描述 |
LoadReport
|
在FRX被载入和打印机假脱机操作被打开前调用 |
UnloadReport
|
在报表运行之后调用 |
BeforeReport
|
在FRX被载入但是报表运行前调用 |
AfterReport
|
报表运行后调用 |
BeforeBand
|
处理某个报表条带前调用 |
AfterBand
|
处理某个报表条带后调用 |
EvaluateContents
|
显示某个字段前调用 |
Render
|
显示对象的时候调用 |
OutputPage
|
向特定的设备输出指定显示的页面 |