VB中使用水晶報(bào)表編程的一種簡(jiǎn)單方法

1、VB中使用水晶報(bào)表編程的一種簡(jiǎn)單方法 2005-04-14 09:22作者：馮強(qiáng)出處：天極網(wǎng)責(zé)任編輯：方舟下載本文源代碼水晶報(bào)表（Crystal Report）是業(yè)內(nèi)最專業(yè)、功能最強(qiáng)的報(bào)表系統(tǒng)，它除了強(qiáng)大的報(bào)表功能外，最大的優(yōu)勢(shì)是實(shí)現(xiàn)了與絕大多數(shù)流行開(kāi)發(fā)工具的集成和接口。在VS.Net平臺(tái)做過(guò)報(bào)表開(kāi)發(fā)的程序員，一定都對(duì)水晶報(bào)表強(qiáng)大、高效、集成等特性留下了深刻印象。除了開(kāi)發(fā)新程序外，在工作中我們常需要接觸到很多較早的軟件系統(tǒng)報(bào)表功能升級(jí)的需求，如果能結(jié)合水晶報(bào)表這一強(qiáng)大的工具，往往能事半功倍。 VB是以前流行的數(shù)據(jù)庫(kù)開(kāi)發(fā)平臺(tái)，用其開(kāi)發(fā)的C/S系統(tǒng)在社會(huì)上有非常大的保有量，但VB超弱的報(bào)表功能往往

2、讓程序員面對(duì)客戶的升級(jí)要求一籌莫展。本文并不做水晶報(bào)表的使用和編程教學(xué)，實(shí)際上水晶報(bào)表本身的使用方法和VS.Net平臺(tái)并沒(méi)有太大的差別，我主要是和大家探討一下VB和水晶報(bào)表的一種較方便的接口方式。我的開(kāi)發(fā)測(cè)試平臺(tái)是Windows2003 Standard簡(jiǎn)體中文版、VB6.0+sp5英文版、Crystal 9.簡(jiǎn)體中文開(kāi)發(fā)版。關(guān)于在水晶報(bào)表中制作報(bào)表模板的方法，并非本文的探討范圍，讀者可以參考Crystal Report的幫助文件和官方網(wǎng)站的技術(shù)資料。簡(jiǎn)單得說(shuō)，首先要通過(guò)水晶報(bào)表的數(shù)據(jù)庫(kù)引擎手動(dòng)連接相應(yīng)的表結(jié)構(gòu)，制作報(bào)表模板，并保存為rpt文件，該項(xiàng)操作和利用VB自帶的報(bào)表工具制作報(bào)表大同小異

3、。簡(jiǎn)單地說(shuō)，用VB調(diào)用水晶報(bào)表進(jìn)行報(bào)表開(kāi)發(fā)的簡(jiǎn)單接口方法就是，在水晶報(bào)表中用"僅字段定義"來(lái)獲得字段分布文件，用虛擬的文件創(chuàng)建表字段，用CRAXDRT對(duì)象來(lái)強(qiáng)制改變數(shù)據(jù)源（ADO.recordset），其效果相當(dāng)于在VB中調(diào)用了rpt文件。下面分步驟介紹編程方法。第一步：在VB工程中Project菜單加入"Add Crystal Report 9"，報(bào)表名使用默認(rèn)即可。這時(shí)Form2（CrystalRerport自動(dòng)添加的Form，假設(shè)名為Form2）被自動(dòng)分配了如下代碼：Option Explicitdim Report as New Cystal1P

4、rivate Sub Form_Load(Screen.MousePointer = vbHourglass '調(diào)用水晶報(bào)表時(shí)置鼠標(biāo)為沙漏狀 CRViewer91.ReportSource = Report '該語(yǔ)句的賦值將在后面被修改CRViewer91.ViewReportScreen.MousePointer = vbDefault '調(diào)用水晶報(bào)表完成后置鼠標(biāo)為默認(rèn)形狀End SubPrivate Sub Form_Resize(CRViewer91.Top = 0CRViewer91.Left = 0CRViewer91.Height = ScaleHeight

5、CRViewer91.Width = ScaleWidthEnd Sub第二步：點(diǎn)擊Crystal Report設(shè)計(jì)器的"數(shù)據(jù)庫(kù)字段"，選定"數(shù)據(jù)庫(kù)專家"，然后點(diǎn)"創(chuàng)建新連接"，再點(diǎn)"僅字段定義"，創(chuàng)建"數(shù)據(jù)庫(kù)定義"文件，字段名和寬度和原數(shù)據(jù)庫(kù)表保持一致。最后，在數(shù)據(jù)庫(kù)字段中獲得了相應(yīng)字段，將其置于報(bào)表上，按水晶報(bào)表的要求配置。第三步：該步驟非常關(guān)鍵，添加一個(gè)Modual到工程文件中，定義全局的ADODB變量，實(shí)現(xiàn)數(shù)據(jù)庫(kù)和水晶報(bào)表的動(dòng)態(tài)連接。代碼如下：Public conn As New ADO

6、DB.ConnectionPublic rs As New ADODB.Recordset第四步：關(guān)于VB程序的ADO數(shù)據(jù)庫(kù)連接注意事項(xiàng)，請(qǐng)看下面的打印按鈕例程。Private Sub Command1_Click(Dim connstr As StringIf conn.State = adStateOpen Then conn.Closeconnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "prtest.mdb;Persist Security Info=

7、False" 'prtest.mdb是程序當(dāng)前目錄的測(cè)試Access數(shù)據(jù)庫(kù)conn.ConnectionString = connstrconn.Open conn.CursorLocation = adUseClient If rs.State = adStateOpen Then rs.Closers.Open "test", conn, adOpenKeyset, adLockReadOnly' Report.Database.SetDataSource rs, 3, 1Form2.Show 1 '數(shù)據(jù)庫(kù)連接完成后，調(diào)用Form2水晶

8、報(bào)表工程End SubOption Explicit'dim Report as New Cystal1'上面一行取消Private Sub Form_Load(Dim oApp As New CRAXDRT.ApplicationDim oRpt As CRAXDRT.ReportDim reportName As String'上面三行是新增加的Screen.MousePointer = vbHourglassreportName = "rptPr1.rpt" '定義要引用的rpt文件Set oRpt = oApp.OpenReport(

9、App.Path & reportName, 1oRpt.Database.SetDataSource rs '連接水晶報(bào)表和數(shù)據(jù)源oRpt.ReadRecordsCRViewer91.ReportSource = oRpt '啟用水晶報(bào)表的預(yù)覽功能CRViewer91.ViewReportScreen.MousePointer = vbDefaultEnd SubPrivate Sub Form_Resize(CRViewer91.Top = 0CRViewer91.Left = 0CRViewer91.Height = ScaleHeightCRViewer91.Width = ScaleWidthEnd SubPrivate Sub Form_Unload(Cancel As Integer'Set Report = NothingSet rs = NothingSet c