在VB中使用水晶报表的一种简易编程方法

第一步：
在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中使用水晶报表进行报表开发的一种方法，该方法简单易用，适合初学者上手。