用FASTREPORT實現WEB應用中自定義報表

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語言都可以,如ASPPHP等。方案的基本原理圖如下:

報表設計過程

 

報表打印過程

 

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.fast-report.com 下載,國內很多軟件站點都提供該控件包的下載。其中TfrDBDataSet、TADOQuery控件視應用需要可加入多個,另外爲了壓縮文件,還要加入 一個壓縮控件,本例使用VCLZip。在Form1中加入三個函 數:preDesignReport(rpFileName:String),prePrintReport(rpFileName:String),zipReportFiles(rpFileName:String), 分別用於準備報表設計文件、準備報表打印文件、壓縮報表文件 。Form1.Create方法爲:

程序根據調用參數判斷是準備報表設計文件還是準備報表打印文件,接着調用相應的過程來實現。最後的Application.Terminate 是讓程序執行功能後即退出——因爲這是服務端程序,是不能與用戶交互的。

preDesignReport(rpFileName:String)方法:

函數preDesignReport的作用是準備報表設計文件。報表中可以引用多 個DataSet,本例假設報表只引用一個名爲rpAdoquery的DataSet。rpFileName 爲報表文件名(.frf),DtfFileName爲保存數據環境的文件名(.dtf)。因爲用戶端不能連接數據庫,所以將DataSet中的 Fileds通過rpAdoquery.FieldList.SaveToFile(dtfFileName)保存到文件,和報表文件一起傳送給用戶端的 ACTIVEX,ACTIVEX利用.dtf文件復現報表的數據環境。

prePrintReport(rpFileName:String)方法:

  

函數prePrintReport的作用是準備打印的報表文件,即先在服務器端裝 載報表並運行,將運行好的報表保存爲文件,用於傳送到用戶端進行預覽或打印。RepFileName是已準備好的報表文件名(.frp)。同樣假設報表只 引用一個名爲rpAdoquery的DataSet。frReport1.ShowProgress:=False 使報表運行過程中不顯示進度窗口(服務器端不能顯示與用戶交互的界面);接下來frReport1.Clear;…裝載報表文件及設置相關數據屬 性;frReport1.PrepareReport 是在不顯示預覽窗口的情況下運行報表;frReport1.SavePreparedReport(repFileName) 將運行好的報表保存到文件,該文件傳送給用戶端的ACTIVEX,ACTIVEX可以直接預覽或顯示該報表。

zipReportFiles(rpFileName:String)方法:

函數zipReportFiles的作用是把要傳送給用戶端的報表文件壓縮爲一個.zip文件,簡化文件傳送過程,而且壓縮了數據量。ACTIVEX接收到.zip文件後,先解壓出包中文件,再進行處理。  

二、             WEB SERVER

方案中WEB SERVER的作用主要是根據ACTIVEX的請求調用REPORT SERVER,並將REPORT SERVER生成的.zip文件發送給ACTIVEX。樣例通過一個report.jsp文件來處理:ACTIVEX通過get請求report.jsp文件,report.jsp文件調用REPORT SERVER處理後,將.zip文件發送給ACTIVEX。

Report.jsp文件:

String l_cmd="reportserver.exe "+reqMode+" "+ reqFileName; 組成調用REPORT SERVER的命令串。while(l_ps.getInputStream().read(l_b,0,100)!=-1){ ; } 等待REPORT SERVER執行完成,否則,程序在啓動REPORT SERVER後即執行下一行語句。發送文件的方式有多種,比如也可以由ACTIVEX通過ftp方式取得。

三、ACTIVEX

方案中的ACTIVEX控件主要做兩方面的事情,一是報表利用FASTREPORT控件進行報表處理,包括報表設計(.frf文件)和報表打印(.frp文件)。一是與WEB SERVER進行通信,請求和接收包文件。

DELPHI中NEW一個ActiveForm 應用,取名爲reportAForm。在form中加入Combox、button、edit、label等與用戶交互的控件;爲了處理報表,加入 FASTREPORT的多個frSpeedButton用於處理報表事件,如設計、預覽、打印、翻頁、保存等;加入frReport、 frDBDataSet、frDesigner等用於在運行時設計報表;如果設計報表時要使用圖形、複選框等內容,也要加入相應的控件;加入 frPreview、frTextExport、frRTFExport等控件使可以預覽報表並可以將報表輸出爲text、rtf等格式文件;加入 ADOQuery(根據實際需要可加入多個)爲報表設計提供數據環境,ADOQuery不OPEN,不與數據庫連接;加入NMHTTP用於與WEB SERVER聯繫。加入四個函 數:DesignReport(rpFileName:String),PrintReport(rpFileName:String),unzipReportFiles(rpFileName:String),getReportFile(rpFileName,mode:String) 分別用於設計報表、打印報表、解壓縮報表和向WEB SERVER發送請求以取得報表文件 。

getReportFile(rpFileName,mode:String)方法:

  

函數getReportFile的作用是向WEB SERVER發送報表請求(通過NMHTTP的Get方法),並將返回的壓縮包文件保存到本地硬盤(zipFileName)。

unzipReportFiles(rpFileName:String)方法:

  

函數unzipReportFiles的作用是將壓縮包中的文件解壓出來,供ACTIVEX使用。它與REPORT SERVER程序中的zipReportFiles剛好是個相反的過程。

DesignReport(rpFileName:String)方法:

  

函數DesignReport先從.dtf(由REPORT SERVER生成)文件中恢復報表的數據環境,接着使用FASTREPORT的FrReport控件設計報表。在FASTREPORT中,對 DataSet中的Field只關心名稱(全部通過Variant類型處理),而並不關心數據類型,所以恢復報表的數據環境時,所有字段都當作 String類型加入。樣例假設報表只有一個名爲rpAdoquery的DataSet。報表設計運行時窗口在ACTIVEX進程空間運行。

用戶端設計好報表並保存後,需要將保存的報表文件(.frf)回送給服務器存儲。文件上傳對於大部分開發人員來說應該都是熟悉而簡單的,該部分程序本文就省略了。

 

PrintReport(rpFileName:String)方法:

  

 函數PrintReport裝入由REPORT SERVER運行好的報表.frp文件,通過調用FrReport的ShowPreparedReport方法在ACTIVEX端預覽和打印

方案實現方法的介紹結束。本方案具有的優點爲:保持應用的結構形式不變(B/S),將C/S應用結構下已非常成熟的報表方案移植過來,使得在WEB應用中也可實現任意複雜的報表設計和打印,以及對打印效果進行精確控制。

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章