微软在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 向特定的设备输出指定显示的页面 ReportListener子类 Visual FoxPro主目录中的FFC（FoxPro基础类）子目录包含了_ReportListener.VCX文件，该文件包含了ReportListener的一些子类，而这些子类的功能比基类更多。这些子类中最有用的是_ReportListener。 _ReportListener最重要的特性之一是对继承（successors）的支持。当你运行报表的时候，你可以希望使用多个报表监听器。例如，如果你希望预览某个报表，同时输出为HTML，就会涉及到一个以上的报表监听器。_ReportListener通过提供Successor（它包含一个引用另一个监听器的对象）属性允许我们构建监听器链。 例如，假设ListenerA和ListenerB都是_ReportListener的子类，它们各自执行某些事务，并且你希望在某个报表上同时使用这两个监听器。下面是把这些监听器链接起来的代码： loListener = createobject('ListenerA')loListener.Successor = createobject('ListenerB')report form MyReport object loListener 报表引擎只与REPORT或LABEL命令中指定的监听器（称为lead listener，头监听器）通讯。当报表引擎引发报表事件的时候，头监听器调用它的后继者的适当方法，而后继者又调用自己的后继者的适当方法，这样一直沿着链进行下去。这种架构就是响应链，链中的任何监听器都可以决定执行某些操作或者把消息传递给链中的后继节点。 _ReportListener的另外一种有趣的能力是链接报表。AddReport方法把一个报表添加到定制的ReportFileNames集合中。你给这个方法传递报表名、可选参数还有将要使用的报表子句（例如RANGE子句）和另一个监听器对象的引用。RemoveReports方法从集合中删除所有的报表。RunReports运行报表；传递进去的第一个参数是.T.的时候将在报表运行后从集合中删除报表，第二个参数为.T.时将忽略AddReport指定的任何监听器。下面是一个示例，它运行了两个报表，但是表面看起来好像是一个报表： loListener = newobject('_ReportListener', home() + 'ffc\_ReportListener.vcx')loListener.ListenerType = 1loListener.AddReport('MyReport1.frx', 'nopageeject')loListener.AddReport('MyReport2.frx')loListener.RunReports() HTML 和 XML 输出 由于开发小组的设计目标之一是提供更多的报表输出类型，所以Visual FoxPro 9包含了_ReportListener的两个子类，叫做HTMLListener和XMLListener，分别用来来提供HTML和XML输出。这些监听器都内建在ReportOutput.APP中，但是在_ReportListener.VCX中也可以使用。监听器类型5指定为HTML输出、4指定为XML输出，因此你可以使用下面的命令把输出指定为HTML： report form MyReport object type 5 但是如果这样操作你将无法控制将要建立的文件名和其它一些设置。作为替代，调用ReportOutput.APP可以让你得到需要的监听器引用、设置需要的属性、接着告诉REPORT命令使用该监听
