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

來源:互聯網
上載者:User
編程|水晶報表
      水晶報表(Crystal Report)的業內最專業、功能最強的報表系統,它除了強大的報表功能外,最大的優勢是實現了與絕大多數流行開發工具的整合和介面。在VS.Net平台做過報表開發的程式員,一定都對水晶報表強大、高效、整合等特性留下了深刻印象。除了開發新程式外,在工作中我們常需要接觸到很多較早的軟體系統報表功能更新的需求,如果能結合水晶報表這一強大的工具,往往能事半功倍。

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

      關於在水晶報表中製作報表範本的方法,並非本文的探討範圍,讀者可以參考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)進行水晶報表開發,可以獲得更大的靈活性。(完)



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。