《vb中如何使用水晶报表》由会员分享，可在线阅读，更多相关《vb中如何使用水晶报表（6页珍藏版）》请在金锄头文库上搜索。
1、水晶报表（Crystal Report）的业内最专业、功能最强的报表系统，它除了强大的报表功能外，最大的优势是实现了与绝大多数流行开发工具的集成和接口。在 VS.Net 平台做过报表开发的程序员，一定都对水晶报表强大、高效、集成等特性留下了深刻印象。除了开发新程序外，在工作中我们常需要接触到很多较早的软件系统报表功能升级的需求，如果能结合水晶报表这一强大的工具，往往能事半功倍。VB 是以前流行的数据库开发平台，用其开发的 C/S 系统在社会上有非常大的保有量，但VB 超弱的报表功能往往让程序员面对客户的升级要求一筹莫展。本文并不做水晶报表的使用和编程教学，实际上水晶报表本身的使用方法和 VS.
2、Net 平台并没有太大的差别，我主要是和大家探讨一下 VB 和水晶报表的一种较方便的接口方式。我的开发测试平台是Windows2003 Standard 简体中文版、VB6.0+sp5 英文版、Crystal 9.0 简体中文开发版。关于在水晶报表中制作报表模板的方法，并非本文的探讨范围，读者可以参考 Crystal Report 的帮助文件和官方网站的技术资料。简单地说，首先要通过水晶报表的数据库引擎手动连接相应的表结构，制作报表模板，并保存为 rpt 文件，该项操作和利用 VB 自带的报表工具制作报表大同小异。用 VB 调用水晶报表进行报表开发的简单接口方法就是，在水晶报表中用仅字段定义
3、来获得字段分布文件，用虚拟的文件创建表字段，用 CRAXDRT 对象来强制改变数据源（ADO.recordset），其效果相当于在 VB 中调用了 rpt 文件。下面分步骤介绍编程方法。第一步：在 VB 工程中 Project 菜单加入Add Crystal Report 9，报表名使用默认即可。这时Form2（CrystalRerport 自动添加的 Form，假设名为 Form2）被自动分配了如下代码：Option Explicitdim Report as New Cystal1Private Sub Form_Load()Screen.MousePointer = vbHourglas
4、s 调用水晶报表时置鼠标为沙漏状CRViewer91.ReportSource = Report 该语句的赋值将在后面被修改CRViewer91.ViewReportScreen.MousePointer = vbDefault 调用水晶报表完成后置鼠标为默认形状End SubPrivate Sub Form_Resize()CRViewer91.Top = 0CRViewer91.Left = 0CRViewer91.Height = ScaleHeightCRViewer91.Width = ScaleWidthEnd Sub第二步：点击 Crystal Report 设计器的 数据库字段
5、，选定数据库专家.，然后点创建新连接，再点仅字段定义 ，创建数据库定义文件，字段名和宽度和原数据库表保持一致。最后，在数据库字段中获得了相应字段，将其置于报表上，按水晶报表的要求配置。第三步：该步骤非常关键，添加一个 Modual 到工程文件中，定义全局的 ADODB 变量，实现数据库和水晶报表的动态连接。代码如下：Public conn As New ADODB.ConnectionPublic rs As New ADODB.Recordset第四步：关于 VB 程序的 ADO 数据库连接注意事项，请看下面的打印按钮例程。Private Sub Command1_Click()Dim co
6、nnstr As StringIf conn.State = adStateOpen Then conn.Closeconnstr = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & prtest.mdb;Persist Security Info=False prtest.mdb 是程序当前目录的测试 Access 数据库conn.ConnectionString = connstrconn.Open conn.CursorLocation = adUseClient If rs.State = adStateOpen T
7、hen rs.Closers.Open test, conn, adOpenKeyset, adLockReadOnly Report.Database.SetDataSource rs, 3, 1 此行取消Form2.Show 1 数据库连接完成后，调用 Form2 水晶报表工程End Sub需要提请大家注意的是，上面代码中的 Report.Database.SetDataSource rs, 3, 1 是初用水晶报表的程序员容易犯的错误，使用该语句后将造成数据库和水晶报表的连接失败。如何动态调用水晶报表呢？请看第五步。第五步：创建水晶报表和数据库数据源的连接，需要修改上面 Form2 的代
8、码。Option Explicitdim 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(App.Path & reportName, 1)oRpt.Database
9、.SetDataSource rs 连接水晶报表和数据源oRpt.ReadRecordsCRViewer91.ReportSource = oRpt 启用水晶报表的预览功能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 conn = NothingUnload Form2End Sub上面介绍了在 VB 中使用水晶报表进行报表开发的一种方法，该方法简单易用，适合初学者上手。大家熟悉以后，还可以继续学习 Crystal Report 提供的 API 函数（Lib 库Crpe32.dll）进行水晶报表开发，可以获得更大的灵活性。（完）
