水晶報(bào)表（Crystal Report）是業(yè)內(nèi)最專業(yè)、功能最強(qiáng)的報(bào)表系統(tǒng)，它除了強(qiáng)大的報(bào)表功能外，最大的優(yōu)勢是實(shí)現(xiàn)了與絕大多數(shù)流行開發(fā)工具的集成和接口。在VS.Net平臺做過報(bào)表開發(fā)的程序員，一定都對水晶報(bào)表強(qiáng)大、高效、集成等特性留下了深刻印象。除了開發(fā)新程序外，在工作中我們常需要接觸到很多較早的軟件系統(tǒng)報(bào)表功能升級的需求，如果能結(jié)合水晶報(bào)表這一強(qiáng)大的工具，往往能事半功倍。

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

　　關(guān)于在水晶報(bào)表中制作報(bào)表模板的方法，并非本文的探討范圍，讀者可以參考Crystal Report的幫助文件和官方網(wǎng)站的技術(shù)資料。簡單得說，首先要通過水晶報(bào)表的數(shù)據(jù)庫引擎手動連接相應(yīng)的表結(jié)構(gòu)，制作報(bào)表模板，并保存為rpt文件，該項(xiàng)操作和利用VB自帶的報(bào)表工具制作報(bào)表大同小異。

　　簡單地說，用VB調(diào)用水晶報(bào)表進(jìn)行報(bào)表開發(fā)的簡單接口方法就是，在水晶報(bào)表中用"僅字段定義"來獲得字段分布文件，用虛擬的文件創(chuàng)建表字段，用CRAXDRT對象來強(qiáng)制改變數(shù)據(jù)源（ADO.recordset），其效果相當(dāng)于在VB中調(diào)用了rpt文件。下面分步驟介紹編程方法。

　　第一步：

　　在VB工程中Project菜單加入"Add Crystal Report 9"，報(bào)表名使用默認(rèn)即可。這時Form2（Crystal　Rerport自動添加的Form，假設(shè)名為Form2）被自動分配了如下代碼：

Option Explicit dim Report as New Cystal1 Private Sub Form_Load() 　Screen.MousePointer = vbHourglass 　‘調(diào)用水晶報(bào)表時置鼠標(biāo)為沙漏狀 CRViewer91.ReportSource = Report ‘該語句的賦值將在后面被修改 　CRViewer91.ViewReport 　Screen.MousePointer = vbDefault ‘調(diào)用水晶報(bào)表完成后置鼠標(biāo)為默認(rèn)形狀 End Sub Private Sub Form_Resize() 　CRViewer91.Top = 0 　CRViewer91.Left = 0 　CRViewer91.Height = ScaleHeight 　CRViewer91.Width = ScaleWidth End Sub

　　第二步：

　　點(diǎn)擊Crystal Report設(shè)計(jì)器的"數(shù)據(jù)庫字段"，選定"數(shù)據(jù)庫專家…"，然后點(diǎn)"創(chuàng)建新連接"，再點(diǎn)"僅字段定義"，創(chuàng)建"數(shù)據(jù)庫定義"文件，字段名和寬度和原數(shù)據(jù)庫表保持一致。最后，在數(shù)據(jù)庫字段中獲得了相應(yīng)字段，將其置于報(bào)表上，按水晶報(bào)表的要求配置。