专业提供网站建设,软件开发,用友财务软件等服务

全国咨询热线:0537-2691860

24小时服务热线:13053762207

当前位置: 首页 >> 网站建设学习 >> 网站开发 >> 学习NET
学习NET
在VB中使用水晶报表的一种简易编程方法
发布时间:2007-09-10 浏览 962次

第一步:

在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 = " ptPr1.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 = _disibledevent= Nothing

Unload Form2

End Sub

上面介绍了在VB中使用水晶报表进行报表开发的一种方法,该方法简单易用,适合初学者上手。

 

  • 手机:13053762207
  • 电话:0537-2691860
  • 地址:山东省济宁市创想大厦

Copyright © 2003-2023 济宁金瑞软件有限公司 All Rights Reserved.鲁ICP备12026420号 XML地图

济宁金瑞软件公司专业提供济宁网站建设,济宁软件开发,济宁做网站,济宁财务软件,济宁用友软件等服务