简单地说，用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 [/CODE] 　　第二步： 　　点击Crystal Report设计器的"数据库字段"，选定"数据库专家…"，然后点"创建新连接"，再点"仅字段定义"，创建"数据库定义"文件，字段名和宽度和原数据库表保持一致。最后，在数据库字段中获得了相应字段，将其置于报表上，按水晶报表的要求配置。 　　第二步： 　　点击Crystal Report设计器的"数据库字段"，选定"数据库专家…"，然后点"创建新连接"，再点"仅字段定义"，创建"数据库定义"文件，字段名和宽度和原数据库表保持一致。最后，在数据库字段中获得了相应字段，将其置于报表上，按水晶报表的要求配置。 [CODE] Public conn As New ADODB.Connection Public rs As New ADODB.Recordset [/CODE] 第四步： 　　关于VB程序的ADO数据库连接注意事项，请看下面的打印按钮例程。 [CODE] 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 [/CODE] 　　需要提请大家注意的是，上面代码中的Report.Database.SetDataSource rs, 3, 1是初用水晶报表的程序员容易犯的错误，使用该语句后将造成数据库和水晶报表的连接失败。如何动态调用水晶报表呢？请看第四步。 　　第五步： 　　创建水晶报表和数据库数据源的连接，需要修改上面Form2的代码。 [CODE] 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）进行水晶报表开发，可以获得更大的灵活性。

评论