用FASTREPORT实现WEB应用中自定义报表

开发WEB应用系统通常都会遇到报表打印问题。简单应用可利用IE的页面打印功能，利用HTML标签控制格式来实现。但复杂的业务型应用系统，报表不仅是组成应用的重要部分，还常常是相当复杂的。现在很多应用系统都要求提供自定义报表的功能——即客户可以自行设计、修改报表。

在C/S结构系统中，报表问题有很多成熟的解决方法。如DELPHI开发工具不仅自带有报表控件，还可以利用第三方控件来实现快速灵活的报表制作和打印，其中有名的控件是FR-Software & A.Tzyganenko 的FastReport。FastReport提供了能与DELPHI无缝集成的从设计到打印的完整控件包，提供的设计界面友好灵活，对于开发可让用户自定义报表的C/S应用来说，是一种很好的解决方式。

在B/S结构应用中，Crystal Report是一种大型报表系统常用和推荐的解决方案。但Crystal Report目前价格昂贵，而且该系统相当庞大。它的可定制性及精确控制打印效果方面尚不够完善。当然，在目前市场上，它仍是一种首选的WEB应用的报表解决方案。

如果能将C/S应用中成熟的报表解决方案搬到B/S应用中，相信对于大部分开发人员来说，都是非常欢迎的。本文将讲述一个在JAVA环境中利用FastReport实现B/S应用中用户可自定义的报表解决方案。因为笔者近段时间正用DELPHI、JAVA做一些项目，所以样例代码就以DELPHI、JAVA编写。

 

本解决方案样例的基本环境是：WINDOWS 2000 SERVER+SQL SERVER 2000+TOMCAT 4.0。开发工具：IntelliJ IDEA 3.0，DELPHI 5.0。客户端为IE 5.0浏览器。

方案共要求用DELPHI编写两个程序，一个是将被包含在网页中并在浏览器中运行的ACTIVEX（.ocx），一个是运行在服务器端的报表处理程序，中间通过JAVA程序连接——或任何其他WEB语言都可以，如ASP、PHP等。方案的基本原理图如下：

报表设计过程
   

报表打印过程

 

REPORT SERVER：可以做成一个普通的WINDOWS程序，也可以做成一个COM程序（Automation Object）。在报表设计过程中，用户端（ACTIVEX）向WEB SERVER发送报表设计请求，请求中包含要设计报表的名称；WEB SERVER 收到该请求后，调用REPORT SERVER请求设计的报表文件；REPORT SERVER收到请求后，先装载报表的数据环境，然后将报表设计文件（.frf）和该报表的数据环境文件压缩成一个包文件（.zip），将该包文件的完整路径名返回给WEB SERVER调用程序；WEB SERVER将包文件回送给用户端（ACTIVEX），用户端将接收到的包文件保存到本地硬盘上，并解压缩，从数据环境文件中恢复数据环境，通过FASTREPORT的相应控件打开报表文件给用户提供可视化设计。用户在ACTIVEX中设计报表时，虽然不能和数据库连接，但因数据环境已存在，所以用户仿如在通常的C/S应用结构下设计报表，能正常地看到报表的数据字典信息。在报表打印过程中，用户端（ACTIVEX）向WEB SERVER发送报表打印/预览请求，请求中包含要打印/预览的报表名称；

WEB SERVER 收到该请求后，调用REPORT SERVER请求打印或预览的报表文件；REPORT SERVER收到请求后，先装载报表的数据环境，然后装载报表文件（.frf），接着在无界面状态下运行报表，最后将生成的已准备的报表文件（.frp）压缩成一个包文件（.zip），将该包文件的完整路径名返回给WEB SERVER调用程序；WEB SERVER将包文件回送给用户端（ACTIVEX），用户端将接收到的包文件保存到本地硬盘上，并解压缩，通过FASTREPORT的相应控件打开报表文件(.frp)给用户预览或打印或重新调整格式或输出为其他格式文件。用户在ACTIVEX中预览报表，仿如在通常的C/S应用结构下预览报表。

 

WEB SERVER：提供通常的WEB服务功能。

ACTIVEX：ActiveX是Microsoft提出的一组使用COM（Component Object Model，部件对象模型）使得软件部件可在网络环境中进行交互的技术集。它与具体的编程语言无关。作为针对Internet应用开发的技术，ActiveX被广泛应用于WEB服务器以及客户端的各个方面。本方案中的ACTIVEX控件主要做两方面的事情，一是利用FASTREPORT控件进行报表处理，包括报表设计（.frf文件）和报表打印（.frp文件）。一是与WEB SERVER进行通信，请求和接收包文件。本文样例的ACTIVEX采用DELPHI 5.0编写。

 

下面分述各部分的一例具体实现（因为仅为说明方案的实现，所以很多代码细节都进行了简省）。

一、             REPORT SERVER

REPORT SERVER既可以做成一个普通的WINDOWS程序，也可以做成一个COM程序（Automation Object）。本例中为简化见，采用普通的WINDOWS程序实现。

在DELPHI中NEW一个应用程序。在FORM中加入TfrReport、TfrDBDataSet、ADOConnection、TADOQuery等控件——为了使用FASTREPORT的控件，需要安装该控件包，可从站点http://www. 下载，国内很多软件站点都提供该控件包的下载。其中TfrDBDataSet、TADOQuery控件视应用需要可加入多个，另外为了压缩文件，还要加入一个压缩控件，本例使用VCLZip。在Form1中加入三个函数：preDesignReport(rpFileName:String)，prePrintReport(rpFileName:String)，zipReportFiles(rpFileName:String)，分别用于准备报表设计文件、准备报表打印文件、压缩报表文件 。Form1.Create方法为：

 

procedure TForm1.FormCreate(Sender: TObject);

var

        rpFileName,mode:String;

begin

        if paramCount>1 then

        begin

                mode:=paramStr(1);

                rpFileName:=paramStr(2);

                if mode='d' then   //设计报表

                        if preDesignReport(rpFileName) then

   zipReportFiles(rpFileName);

                if mode='r' then   //打印报表

                        if prePrintReport(rpFileName) then

                                zipReportFiles(rpFileName);

        end;

        Application.Terminate;

end;

程序根据调用参数判断是准备报表设计文件还是准备报表打印文件，接着调用相应的过程来实现。最后的Application.Terminate 是让程序执行功能后即退出——因为这是服务端程序，是不能与用户交互的。

preDesignReport(rpFileName:String)方法：

function TForm1.preDesignReport(rpFileName:String):boolean;

var   //其他变量

 

        dtfFileName:String;

begin

        ……

dtfFileName:=StringReplace(rpFileName, ExtractFileExt(rpFileName),'.dtf',

[rfReplaceAll, rfIgnoreCase]);

        try

rpAdoquery.SQL.Add('…');

                rpAdoquery.open;//打开报表的数据环境

                rpAdoquery.FieldList.SaveToFile(dtfFileName);

                result:=true;

        except

            on Exception do

                result:=false;