《水晶报表在vb中的应用》由会员分享，可在线阅读，更多相关《水晶报表在vb中的应用（4页珍藏版）》请在金锄头文库上搜索。
1、在 VB 中使用水晶报表的一种简易编程方法第一步：在 VB 工程中 Project 菜单加入Add Crystal Report 9 ，报表名使用默认即可。这时Form2（CrystalRerport 自动添加的 Form，假设名为 Form2）被自动分配了如下代码：Option Explicitdim Report as New Cystal1Private Sub Form_Load()Screen.MousePointer = vbHourglass 调用水晶报表时置鼠标为沙漏状CRViewer91.ReportSource = Report 该语句的赋值将在后面被修改CRViewer9
2、1.ViewReportScreen.MousePointer = vbDefault 调用水晶报表完成后置鼠标为默认形状End SubPrivate Sub Form_Resize()CRViewer91.Top = 0CRViewer91.Left = 0CRViewer91.Height = ScaleHeightCRViewer91.Width = ScaleWidthEnd Sub 第二步：点击 Crystal Report 设计器的 数据库字段，选定数据库专家.，然后点 创建新连接，再点仅字段定义 ，创建数据库定义文件，字段名和宽度和原数据库表保持一致。最后，在数据库字段中获得了相
3、应字段，将其置于报表上，按水晶报表的要求配置。第三步：该步骤非常关键，添加一个 Modual 到工程文件中，定义全局的 ADODB 变量，实现数据库和水晶报表的动态连接。代码如下：Public conn As New ADODB.ConnectionPublic rs As New ADODB.Recordset 第四步：关于 VB 程序的 ADO 数据库连接注意事项，请看下面的打印按钮例程。Private Sub Command1_Click()Dim connstr As StringIf conn.State = adStateOpen Then conn.Closeconnstr =
4、Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Persist Security Info=False prtest.mdb 是程序当前目录的测试 Access 数据库conn.ConnectionString = connstrconn.Open conn.CursorLocation = adUseClient If rs.State = adStateOpen Then rs.Closers.Open test, conn, adOpenKeyset, adLockReadOnly Report.Database.SetDataSource r
5、s, 3, 1 此行取消Form2.Show 1 数据库连接完成后，调用 Form2 水晶报表工程End Sub 需要提请大家注意的是，上面代码中的 Report.Database.SetDataSource rs, 3, 1 是初用水晶报表的程序员容易犯的错误，使用该语句后将造成数据库和水晶报表的连接失败。如何动态调用水晶报表呢？请看第五步。第五步：创建水晶报表和数据库数据源的连接，需要修改上面 Form2 的代码。Option Explicitdim Report as New Cystal1上面一行取消Private Sub Form_Load()Dim oApp As New CRAX
6、DRT.ApplicationDim oRpt As CRAXDRT.ReportDim reportName As String上面三行是新增加的Screen.MousePointer = vbHourglassreportName = rptPr1.rpt 定义要引用的 rpt 文件Set oRpt = oApp.OpenReport(App.Path & reportName, 1)oRpt.Database.SetDataSource rs 连接水晶报表和数据源oRpt.ReadRecordsCRViewer91.ReportSource = oRpt 启用水晶报表的预览功能CRVie
7、wer91.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 中使用水晶报表进行报表开发的一种方法，该方法简单易用，适合初学者上手。
