2024年3月26日发(作者：)

vb中使用水晶报表教程

水晶报表（Crystal Report）是业内最专业、功能最强的报表系统，它除

了强大的报表功能外，最大的优势是实现了与绝大多数流行开发工具的集成和接

口。在平台做过报表开发的程序员，一定都对水晶报表强大、高效、集

成等特性留下了深刻印象。除了开发新程序外，在工作中我们常需要接触到很多

较早的软件系统报表功能升级的需求，如果能结合水晶报表这一强大的工具，往

往能事半功倍。

VB是以前流行的数据库开发平台，用其开发的C/S系统在社会上有非常大

的保有量，但VB超弱的报表功能往往让程序员面对客户的升级要求一筹莫展。

本文并不做水晶报表的使用和编程教学，实际上水晶报表本身的使用方法和

平台并没有太大的差别，我主要是和大家探讨一下VB和水晶报表的一种

较方便的接口方式。我的开发测试平台是Windows2003 Standard简体中文版、

VB6.0+sp5英文版、Crystal 9.０简体中文开发版。

关于在水晶报表中制作报表模板的方法，并非本文的探讨范围，读者可以参

考Crystal Report的帮助文件和官方网站的技术资料。简单得说，首先要通过

水晶报表的数据库引擎手动连接相应的表结构，制作报表模板，并保存为rpt

文件，该项操作和利用VB自带的报表工具制作报表大同小异。

简单地说，用VB调用水晶报表进行报表开发的简单接口方法就是，在水晶

报表中用"仅字段定义"来获得字段分布文件，用虚拟的文件创建表字段，用

CRAXDRT对象来强制改变数据源（set），其效果相当于在VB中调用

了rpt文件。下面分步骤介绍编程方法。

第一步：

在VB工程中Project菜单加入"Add Crystal Report 9"，报表名使用默认

即可。这时Form2（Crystal Rerport自动添加的Form，假设名为Form2）被自

动分配了如下代码：

Option Explicit

dim Report as New Cystal1

Private Sub Form_Load()

ointer = vbHourglass

'调用水晶报表时置鼠标为沙漏状 Source = Report '该

语句的赋值将在后面被修改

port

ointer = vbDefault '调用水晶报表完成后置鼠标为默认形状

End Sub

Private Sub Form_Resize()

= 0

= 0

= ScaleHeight

= ScaleWidth

End Sub

第二步：

点击Crystal Report设计器的"数据库字段"，选定"数据库专家…"，然后

点"创建新连接"，再点"仅字段定义"，创建"数据库定义"文件，字段名和宽度和

原数据库表保持一致。最后，在数据库字段中获得了相应字段，将其置于报表上，

按水晶报表的要求配置。

第三步：

该步骤非常关键，添加一个Modual到工程文件中，定义全局的ADODB变量，

实现数据库和水晶报表的动态连接。代码如下：

Public conn As New tion

Public rs As New set

第四步：

关于VB程序的ADO数据库连接注意事项，请看下面的打印按钮例程。

Private Sub Command1_Click()

Dim connstr As String

If = adStateOpen Then

connstr = "Provider=.4.0;Data Source=" &

& ";Persist Security Info=False" '是程

序当前目录的测试Access数据库

tionString = connstr

Location = adUseClient

If = adStateOpen Then

"test", conn, adOpenKeyset, adLockReadOnly

' aSource rs, 3, 1

1 '数据库连接完成后，调用Form2水晶报表工程

End Sub

需要提请大家注意的是，上面代码中的aSource rs,

3, 1是初用水晶报表的程序员容易犯的错误，使用该语句后将造成数据库和水

晶报表的连接失败。如何动态调用水晶报表呢？请看第四步。

第五步：

创建水晶报表和数据库数据源的连接，需要修改上面Form2的代码。

Option Explicit

'dim Report as New Cystal1

'上面一行取消

Private Sub Form_Load()

Dim oApp As New ation

Dim oRpt As

Dim reportName As String

'上面三行是新增加的

ointer = vbHourglass

reportName = "" '定义要引用的rpt文件

Set oRpt = port( & reportName, 1)

aSource rs '连接水晶报表和数据源

cords

Source = oRpt '启用水晶报表的预览功能

port

ointer = vbDefault

End Sub

Private Sub Form_Resize()

= 0

= 0

= ScaleHeight

= ScaleWidth

End Sub

Private Sub Form_Unload(Cancel As Integer)

'Set Report = Nothing

Set rs = Nothing

Set conn = Nothing

Unload Form2

End Sub

上面介绍了在VB中使用水晶报表进行报表开发的一种方法，该方法简单易

用，适合初学者上手。大家熟悉以后，还可以继续学习Crystal Report提供的

API函数（Lib库 ）进行水晶报表开发，可以获得更大的灵活性。