在VB中用数据报表设计器创建报表

在VB中用数据报表设计器创建报表
数据环境设计器（Data Environment designer）与数据报表设计器（Data Report designer）均是Visual Basic 6.0的新增功能，它们的出现大大增强了Visual Basic处理数据的能力。

在以往的Visual Basic版本中，制作报表都是通过第三方产品来完成并通过ActiveX控件输出的。

这两种设计器的出现，使得Visual Basic程序员再也不用考虑选择一个什么样的第三方工具设计报表了，所有的设计全部在Visual Basic内部完成，再加上Visual Basic 6.0新增的开发IIS应用程序和开发DHTML应用程序功能，使得Visual Basic 6.0是一个名副其实的装备齐全的集成开发环境了。

下面我们以一个比较简单的报表为例，详细阐述如何使用数据环境设计器和数据报表设计器来设计一个数据报表。

一、数据环境设计器与数据报表设计器
数据环境设计器提供了一个交互式的设计环境。

通过设置Connection对象和Command 对象的属性，可以快速完成到一个数据源的连接。

对于设置好的数据环境设计器，可以将它的对象拖放到表单上或是报表上，它会自动创建并完成数据绑定控件的设置。

数据报表设计器是一个极为灵活的设计报表的工具。

它以数据环境设计器作为数据源，能创建有层次的、汇总若干个关系型数据表数据的复杂报表。

除了像传统的报表设计工具那样能将报表通过打印机输出以外，数据报表设计器还能以HTML或文本文件的格式输出报表。

二、数据环境对象
数据环境设计器包含以下几个对象：
1. 数据连接（Connection）对象：连接对象表示到一个作为数据源的远端数据库或本地数据库的连接。

在数据环境中必须至少包含一个连接对象，要使用数据环境存取数据，必须首先创建连接对象。

2. 数据命令（Command）对象：命令对象定义了从数据库连接中将取回什么数据的详细信息。

命令对象可基于任何一个数据库对象（表、视图、存储过程或同义字）或是一个SQL 查询。

三、数据报表对象
数据报表设计器包括以下几个对象：
1. 数据报表（Data Report）对象：类似于Visual Basic表单，它包含一个可视化设计器和一个代码模块。

设计器用来创建报表的布局，也可以往设计器的代码模块里添加代码，用程序对包含在设计器里的控件或区域进行控制。

2. 区域（Section）对象：数据报表设计器的每一个区域均由一个区域集对象中的一个区域对象来表示。

在设计阶段，每一个区域都有一个标题，若要选择区域，只需用鼠标选择标题即可，并且在区域内可布置控件。

在报表建立之前，使用区域对象及其属性调整报表。

使用过报表的人都知道，报表可分为报头、报脚、页头、页脚、组头、组脚和细节等部分，在区域内也是一样的。

3. 数据报表控件：这些控件只能与Data Report designer（数据报表设计器）一起使用（注意：在数据报表设计器内不能使用Visual Basic的标准控件或者任何其他的ActiveX控件）。

这些控件位于Visual Basic工具箱上的“DataReport”标签内。

由于这些控件外观及功能与Visual Basic某些标准控件很类似，所以不再单独讲述。

四、一个实例
我们使用Data Environment designer（数据环境设计器）作为数据报表的数据源，由Visual Basic自带的NWind.mdb数据库提供数据，设计一个简单的报表。

设计好的报表如图1所示。

1. 创建数据环境设计器
（1）创建一个新的标准EXE工程文件。

（2）在工程菜单上，选择添加数据环境。

如果在工程菜单中没有列出这一项，那么选择组件—设计器标签—选中数据环境，选择确定。

（3）在数据连接属性对话框中，选择Microsoft Jet 3.51 OLE DB Provider。

（4）选择“下一步”按钮，这样就进入了Connection标签。

（5）选择第一个文本框旁的“...”按钮。

（6）在存取数据库对话框中浏览并选择数据库文件Nwind.mdb。

（7）选择“确定”关闭该对话框。

（8）用鼠标右击Connection1图标，然后选择Rename，将名字改为Northwind。

（9）用鼠标右击Northwind图标，然后选择Add Command，再用鼠标右击Command1，选择“属性”命令，弹出属性对话框，在对话框中，按下表所示设置属性值。

Command Name
Customers
Connection
Northwind
DataBase Object
Table
Object Name
Customers
（10）选择“确定”关闭该对话框。

（11）用鼠标右击Customers命令，选择Add Child Command，再用鼠标右击Command1，选择“属性”命令，弹出属性对话框，在对话框中，按下表所示设置属性值。

Command Name
Orders
Connection
Northwind
DataBase Object
Table
Object Name
Orders
（12）选择Relation标签，选中Relate to a Parent Command Object检查框。

在Parent下拉框中选中Customers；Parent域和Child域中均已包含了CustomerID。

（13）选择添加，按“确定”关闭对话框。

（14）在属性窗口中按下表设置工程文件和设计器的属性值，然后保存工程文件。

Project Name
prjNwind
DataEnvironment Name
deNwind
Form Name
frmShowReport
2. 创建数据报表
一旦创建了数据环境设计器，就可以创建一个数据报表了。

由于不是所有在数据环境设计器内的字段都会用于设计报表，因此下面的过程只创建了一个显示几个字段的报表。

创建一个新报表的步骤如下：
（1）在工程菜单上，选择Add Data Report命令，Visual Basic会在工程中添加一个新的数据报表。

（2）在属性窗口中按下表设置数据报表的属性。

Name
rptNwind
Caption
Northwind Data Report
（3）在属性窗口中，将DataSource设置为deNwind，DataMember设置为Customers。

（4）用鼠标右击数据报表设计器，选择Retrieve Structure。

（5）用鼠标将数据环境设计器的CompanyName字段（在Customers命令下）拖放到组标题为Customers_Header的区域。

（6）删除标签控件Label1。

（7）用鼠标将数据环境设计器的OrderDate字段（在Orders命令下）拖放到Orders_Detail 区域，并删除标签控件。

（8）调整数据报表设计器的各个区域，如图2所示。

（9）保存工程文件。

3. 用Show方法预览数据报表
现在数据环境和数据报表对象都已建立，可以准备运行程序了。

我们要做的最后一件事情就是编写代码以显示数据报表。

（1）在工程浏览器窗口中，用鼠标双击frmShowReport以显示表单设计器。

（2）在工具箱上，点击General标签。

（3）点击CommandButton图标，然后在表单上画一个命令按钮。

（4）在属性窗口中按下表设置命令按钮控件的属性。

Name
cmdShow
Caption
Show Report
（5）在按钮事件中，键入以下代码：
Private Sub cmdShow_Click()
rptNwind.Show
End Sub
（6）保存并运行工程文件。

点击Show Report以打印预览模式显示报表。