在VB中使用水晶報表的一種簡易編程方法

2019-11-18 17:52:00

字體：大中小

來源：轉載

供稿：網友

水晶報表（CrystalReport）是業內最專業、功能最強的報表系統，它除了強大的報表功能外，最大的優勢是實現了與絕大多數流行開發工具的集成和接口。在VS.Net平臺做過報表開發的程序員，一定都對水晶報表強大、高效、集成等特性留下了深刻印象。除了開發新程序外，在工作中我們常需要接觸到很多較早的軟件系統報表功能升級的需求，如果能結合水晶報表這一強大的工具，往往能事半功倍。

　　VB是以前流行的數據庫開發平臺，用其開發的C/S系統在社會上有非常大的保有量，但VB超弱的報表功能往往讓程序員面對客戶的升級要求一籌莫展。本文并不做水晶報表的使用和編程教學，實際上水晶報表本身的使用方法和VS.Net平臺并沒有太大的差別，我主要是和大家探討一下VB和水晶報表的一種較方便的接口方式。我的開發測試平臺是Windows2003Standard簡體中文版、VB6.0 sp5英文版、Crystal9.０簡體中文開發版。

　　關于在水晶報表中制作報表
　　第一步：

　　在VB工程中 access數據庫

　　conn.ConnectionString=connstr
　　conn.Open
　　conn.CursorLocation=adUseClient

　　Ifrs.State=adStateOpenThenrs.Close
　　　rs.Open"test",conn,adOpenKeyset,adLockReadOnly
　　　'Report.Database.SetDataSourcers,3,1
　　　Form2.Show1'數據庫連接完成后，調用Form2水晶報表工程
EndSub->
　　需要提請大家注意的是，上面代碼中的Report.Database.SetDataSourcers,3,1是初用水晶報表的程序員容易犯的錯誤，使用該語句后將造成數據庫和水晶報表的連接失敗。如何動態調用水晶報表呢？請看第四步。

　　第五步：

　　創建水晶報表和數據庫數據源的連接，需要修改上面Form2的代碼。

->OptionExplicit
'dimReportasNewCystal1
'上面一行取消

PrivateSubForm_Load()

　DimoAppAsNewCRAXDRT.application
　DimoRptAsCRAXDRT.Report
　DimreportNameAsString
　'上面三行是新增加的

　Screen.MousePointer=vbHourglass
　reportName="/rpt/Pr1.rpt"　　'定義要引用的rpt文件

　SetoRpt=oApp.OpenReport(App.Path&reportName,1)

　oRpt.Database.SetDataSourcers'連接水晶報表和數據源
　oRpt.ReadRecords

　CRViewer91.ReportSource=oRpt'啟用水晶報表的預覽功能

　CRViewer91.ViewReport
　Screen.MousePointer=vbDefault

EndSub

PrivateSubForm_Resize()

　CRViewer91.Top=0
　CRViewer91.Left=0
　CRViewer91.Height=ScaleHeight
　CRViewer91.Width=ScaleWidth

EndSub

PrivateSubForm_Unload(CancelAsInteger)

　'SetReport=Nothing

　Setrs=Nothing
　Setconn=Nothing
　UnloadForm2
EndSub->

　　上面介紹了在VB中使用水晶報表進行報表開發的一種方法，該方法簡單易用，適合初學者上手。大家熟悉以后，還可以繼續學習CrystalReport提供的API函數（Lib庫　Crpe32.dll）進行水晶報表開發，可以獲得更大的靈活性。->

上一篇：VB中訪問存儲過程的幾種辦法

下一篇：關于VisualBasic6.0類開發（下）