第一步：
在VB工程中Project菜單加入"Add Crystal Report 9"，報表名使用默認即可。這時Form2（Crystal Rerport自動添加的Form，假設(shè)名為Form2）被自動分配了如下代碼：
Option Explicit
dim Report as New Cystal1
Private Sub Form_Load()
Screen.MousePointer = vbHourglass '調(diào)用水晶報表時置鼠標為沙漏狀
CRViewer91.ReportSource = Report '該語句的賦值將在后面被修改
CRViewer91.ViewReport
Screen.MousePointer = vbDefault '調(diào)用水晶報表完成后置鼠標為默認形狀
End Sub
Private Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
End Sub
第二步：
點擊Crystal Report設(shè)計器的"數(shù)據(jù)庫字段"，選定"數(shù)據(jù)庫專家..."，然后點"創(chuàng)建新連接"，再點"僅字段定義"，創(chuàng)建"數(shù)據(jù)庫定義"文件，字段名和寬度和原數(shù)據(jù)庫表保持一致。最后，在數(shù)據(jù)庫字段中獲得了相應(yīng)字段，將其置于報表上，按水晶報表的要求配置。
第三步：
該步驟非常關(guān)鍵，添加一個Modual到工程文件中，定義全局的ADODB變量，實現(xiàn)數(shù)據(jù)庫和水晶報表的動態(tài)連接。代碼如下：
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
第四步：
關(guān)于VB程序的ADO數(shù)據(jù)庫連接注意事項，請看下面的打印按鈕例程。
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是程序當(dāng)前目錄的測試Access數(shù)據(jù)庫
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 '數(shù)據(jù)庫連接完成后，調(diào)用Form2水晶報表工程
End Sub
需要提請大家注意的是，上面代碼中的Report.Database.SetDataSource rs, 3, 1是初用水晶報表的程序員容易犯的錯誤，使用該語句后將造成數(shù)據(jù)庫和水晶報表的連接失敗。如何動態(tài)調(diào)用水晶報表呢？請看第五步。
第五步：
創(chuàng)建水晶報表和數(shù)據(jù)庫數(shù)據(jù)源的連接，需要修改上面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 '連接水晶報表和數(shù)據(jù)源
oRpt.ReadRecords
CRViewer91.ReportSource = oRpt '啟用水晶報表的預(yù)覽功能
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中使用水晶報表進行報表開發(fā)的一種方法，該方法簡單易用，適合初學(xué)者上手。
在VB工程中Project菜單加入"Add Crystal Report 9"，報表名使用默認即可。這時Form2（Crystal Rerport自動添加的Form，假設(shè)名為Form2）被自動分配了如下代碼：
Option Explicit
dim Report as New Cystal1
Private Sub Form_Load()
Screen.MousePointer = vbHourglass '調(diào)用水晶報表時置鼠標為沙漏狀
CRViewer91.ReportSource = Report '該語句的賦值將在后面被修改
CRViewer91.ViewReport
Screen.MousePointer = vbDefault '調(diào)用水晶報表完成后置鼠標為默認形狀
End Sub
Private Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
End Sub
第二步：
點擊Crystal Report設(shè)計器的"數(shù)據(jù)庫字段"，選定"數(shù)據(jù)庫專家..."，然后點"創(chuàng)建新連接"，再點"僅字段定義"，創(chuàng)建"數(shù)據(jù)庫定義"文件，字段名和寬度和原數(shù)據(jù)庫表保持一致。最后，在數(shù)據(jù)庫字段中獲得了相應(yīng)字段，將其置于報表上，按水晶報表的要求配置。
第三步：
該步驟非常關(guān)鍵，添加一個Modual到工程文件中，定義全局的ADODB變量，實現(xiàn)數(shù)據(jù)庫和水晶報表的動態(tài)連接。代碼如下：
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
第四步：
關(guān)于VB程序的ADO數(shù)據(jù)庫連接注意事項，請看下面的打印按鈕例程。
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是程序當(dāng)前目錄的測試Access數(shù)據(jù)庫
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 '數(shù)據(jù)庫連接完成后，調(diào)用Form2水晶報表工程
End Sub
需要提請大家注意的是，上面代碼中的Report.Database.SetDataSource rs, 3, 1是初用水晶報表的程序員容易犯的錯誤，使用該語句后將造成數(shù)據(jù)庫和水晶報表的連接失敗。如何動態(tài)調(diào)用水晶報表呢？請看第五步。
第五步：
創(chuàng)建水晶報表和數(shù)據(jù)庫數(shù)據(jù)源的連接，需要修改上面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 '連接水晶報表和數(shù)據(jù)源
oRpt.ReadRecords
CRViewer91.ReportSource = oRpt '啟用水晶報表的預(yù)覽功能
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中使用水晶報表進行報表開發(fā)的一種方法，該方法簡單易用，適合初學(xué)者上手。