VB中水晶报表使用.docVIP

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 =