相關文章:
水晶報表封裝成VB的DLL
水晶報表（Crystal Report）是業內最專業、功能最強的報表系統，它除了強大的報表功能外，最大的優勢是實現了與絕大多數流行開發工具的集成和接口。在VS.Net平台做過報表開發的程序員，一定都對水晶報表強大、高效、集成等特性留下了深刻印象。除了開發新程序外，在工作中我們常需要接觸到很多較早的軟件系統報表功能升級的需求，如果能結合水晶報表這一強大的工具，往往能事半功倍。
VB是以前流行的數據庫開發平台，用其開發的C/S系統在社會上有非常大的保有量，但VB超弱的報表功能往往讓程序員面對客戶的升級要求一籌莫展。本文並不做水晶報表的使用和編程教學，實際上水晶報表本身的使用方法和VS.Net平台並沒有太大的差別，我主要是和大家探討一下VB和水晶報表的一種較方便的接口方式。我的開發測試平台是Windows2003 Standard簡體中文版、VB6.0+sp5英文版、Crystal 9.０簡體中文開發版。
關於在水晶報表中制作報表模板的方法，並非本文的探討范圍，讀者可以參考Crystal Report的幫助文件和官方網站的技術資料。簡單得說，首先要通過水晶報表的數據庫引擎手動連接相應的表結構，制作報表模板，並保存為rpt文件，該項操作和利用VB自帶的報表工具制作報表大同小異。
簡單地說，用VB調用水晶報表進行報表開發的簡單接口方法就是，在水晶報表中用"僅字段定義"來獲得字段分布文件，用虛擬的文件創建表字段，用CRAXDRT對象來強制改變數據源（ADO.recordset），其效果相當於在VB中調用了rpt文件。下面分步驟介紹編程方法。
第一步：
在VB工程中Project菜單加入"Add Crystal Report 9"，報表名使用默認即可。這時Form2（Crystal Rerport自動添加的Form，假設名為Form2）被自動分配了如下代碼：
Option Explicit
dim Report as New Cystal1
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
'調用水晶報表時置鼠標為沙漏狀 CRViewer91.ReportSource = Report '該語句的賦值將在後面被修改
CRViewer91.ViewReport
Screen.MousePointer = vbDefault '調用水晶報表完成後置鼠標為默認形狀
End Sub
Private Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
End Sub
第二步：
點擊Crystal Report設計器的"數據庫字段"，選定"數據庫專家…"，然後點"創建新連接"，再點"僅字段定義"，創建"數據庫定義"文件，字段名和寬度和原數據庫表保持一致。最後，在數據庫字段中獲得了相應字段，將其置於報表上，按水晶報表的要求配置。
第三步：
該步驟非常關鍵，添加一個Modual到工程文件中，定義全局的ADODB變量，實現數據庫和水晶報表的動態連接。代碼如下：
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
第四步：
關於VB程序的ADO數據庫連接注意事項，請看下面的打印按鈕例程。
Private Sub Command1_Click()
Dim connstr As String
If conn.State = adStateOpen Then conn.Close
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\prtest.mdb;Persist Security Info=False" 'prtest.mdb是程序當前目錄的測試Access數據庫
conn.ConnectionString = connstr
conn.Open
conn.CursorLocation = adUseClient
If rs.State = adStateOpen Then rs.Close
rs.Open "test", conn, adOpenKeyset, adLockReadOnly
' Report.Database.SetDataSource rs, 3, 1
Form2.Show 1 '數據庫連接完成後，調用Form2水晶報表工程
End Sub
需要提請大家注意的是，上面代碼中的Report.Database.SetDataSource rs, 3, 1是初用水晶報表的程序員容易犯的錯誤，使用該語句後將造成數據庫和水晶報表的連接失敗。如何動態調用水晶報表呢？請看第四步。
第五步：
創建水晶報表和數據庫數據源的連接，需要修改上面Form2的代碼。
Option Explicit
'dim Report as New Cystal1
'上面一行取消
Private Sub Form_Load()
Dim oApp As New CRAXDRT.Application
Dim oRpt As CRAXDRT.Report
Dim reportName As String
'上面三行是新增加的
Screen.MousePointer = vbHourglass
reportName = "\rpt\Pr1.rpt" '定義要引用的rpt文件
Set oRpt = oApp.OpenReport(App.Path & reportName, 1)
oRpt.Database.SetDataSource rs '連接水晶報表和數據源
oRpt.ReadRecords
CRViewer91.ReportSource = oRpt '啟用水晶報表的預覽功能
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
End Sub
Private Sub Form_Unload(Cancel As Integer)
'Set Report = Nothing
Set rs = Nothing
Set conn = Nothing
Unload Form2
End Sub
上面介紹了在VB中使用水晶報表進行報表開發的一種方法，該方法簡單易用，適合初學者上手。大家熟悉以後，還可以繼續學習Crystal Report提供的API函數（Lib庫 Crpe32.dll）進行水晶報表開發，可以獲得更大的靈活性。
