摘要：在信息管理系统开发中,经常要使用报表分析和统计数据，水晶报表是一款优秀的报表开发工具，简单、易用和功能强大，使得在开发信息管理系统时报表的开发变得很方便，本文通过一个教务管理系统介绍了在VB.NET 平台下用水晶报表开发报表的方法

　　关键词：VB.NET 水晶报表

　　客户 DataSour CrystalReportVie BuildingSou DataSet

　　DataAdapter XML数据 传统数据源

　　RDLC文件

数据源 . ADO.NET 一.前言VB.NET开发应用程序时，经常需要生成报表，，如何开发出既满足用户需求，又能减少开发人员工作量的报表是开发人员普遍面临的问题。水晶报表是由Crystal Decisions 公司开发的商务智能软件，是一款优秀的专业报表开发和制作工具，Crystal Reports for Visual Studio.NET 是以CrystalReports9.0 为蓝本，专门为. NET 平台定制的，提供了丰富的编程模型，充分利用.NET Framwork 和CRL，大大降低了开发大型，复杂的企业级报表过程的复杂度，同时它使用开放而灵活的结构，其标准类似XML，可通过Web 共享报表与信息，可提供深化图表、报表导航和文本搜索等功能。此外，导出的Excel文件格式非常完美，任何其它报表在这方面都不能与之比拟，而且并不需要安装Excel，它还为.NET 开发人员提供丰富的API，便于开发人员调用。

　　二.VB.Net下的水晶报表设计

　　1.水晶报表数据传递模型

　　水晶报表数据传递模型如图1图示，其中,数据源可以是传统数据库也可以是XML文件,使用ADO.NET的对象DATAAdapter及Connection等来连接数据库，DataSet向下用来存储数据，同时可以直接操作XML文件，向上填充BindingSource,并用BindingSource来填充DataSource, CrystalReportViewer的功能是利用Datasource的填充的数据及指定给它的RDLC报表文件表显示报表(如图1)。

　　XML

　　图1

　　2水晶报表的应用实例

　　本文以某高校一个教务管理系统为例介绍如何使用水晶报表，

　　2.1创建报表模板

　　2.1.1新建基于Windows的工程WindowsApp lication1，在“解决方案管理器”中，右击项目名，在弹出的“项目”菜单中选择“添加”，打开“添加”菜单，在“添加”菜单里选择“新建顶”，打开“添加新项”对话框。

　　2.1.2在“添加新项”中选择“Crystal报表，单击“添加”，弹出 “Crystal Reports库” 对话框。在选项组“创建新Crystal Report文档”中，有3个选项：1. 使用报表向导：有对话框指导完成报表的创建，并将选择保存到报表设计器中;2. 作为空白报表：对报表不做任何设置;3. 来自于现有的报表：用目前设计好的报表作为模板，重新设计报表。

　　在选项组“选择专家”中包含三种不同的报表专家，可以指导完成特定类型报表的创建工作。有3个选项：1. 标准：指导如何选择数据源和连接数据库表。还可以帮助用户添加字段以及分组、统计、图表以及排序。2. 交叉表：报表中的数据作为交叉表对象显示，并指导自定义格式。3. 邮件标签：允许用户格式化报表，目的是打印在任意尺寸的邮件标签上。

　　2.1.3分别选择“使用报表向导”和“标准”选项，点击确定，“标准报表创建对话框，对话框“数据”为要创建的报表选择数据源，列表中包括如下的选项：1. 项目数据：显示当前项目的数据源列表和ADO.NET的数据源;2. 当前连接：显示当前连接到数据源的列表;3. 收藏夹：显示“收藏夹”列表中维护的数据源列表。4. 历史记录：显示最新5条使用过的数据源;5. 创建新连接：显示可以创建的所有数据源，取决于安装过程中选定的数据访问组件。

　　2.1.4在列表中选择“创建新连接”中选择“OLE DB(ADO)”文件夹，对话框“OLE DB(ADO)”

　　2.1.5选择“Microsoft OLE DB Provider for SQL Server”并进入下一步，将要连接的数据库信息填写到对话框中。服务器名字为“(local)”，用户名和密码分别为“sa”和“123456”，并选择要连接的数据库为JWGL。

　　2.1.6单击按钮“完成”返回到“标准报表创建向导”对话框，依次点开文件夹，找到连接的数据，并将表“stdent”添加到右边的选定列表中，将表“student”中的所有字段都选中，并添加要显示的字段列表中。下面还有两个配置的窗口，分别是分组和筛选的对话框，因为这里不需要设置，所以都直接跳到最后一步“报表样式”，可选的样式有10个，这里选择“标准”样式。创建好的报表将加载到主窗口中。

　　2.2在工程中添加报表模板

　　2.2.1 在窗体上放置一个CrystalReport Viewer 控件

　　2.2.2在程序中添加报表验证信息，在form1下自定义一个过程

　　Private Sub SetDBLogonForReport(ByVal myConnectionInfo As ConnectionInfo)

　　Dim myTableLogonInfos As TableLogOnInfos = CrystalReportViewer1.LogOnInfo

　　For Each myTableLogOnInfo As TableLogOnInfo In myTableLogonInfos

　　myTableLogOnInfo.ConnectionInfo = myConnectionInfo

　　Next

　　End Sub

　　2.2.3在form控件的load 事件下加入下面的代码，

　　Dim dir As String

　　dir = System.Environment.CurrentDirectory

　　Dim path = dir.Substring(0, dir.LastIndexOf("\") - 3)

　　'MessageBox.Show(path + "Hierarchical Grouping.rpt")

　　Dim myConnectionInfo As ConnectionInfo = New ConnectionInfo()

　　CrystalReportViewer1.ReportSource = path + "CrystalReport1.rpt"

　　myConnectionInfo.ServerName = "(local)"

　　myConnectionInfo.DatabaseName = "jwgl"

　　myConnectionInfo.IntegratedSecurity = False

　　myConnectionInfo.UserID = "sa"

　　myConnectionInfo.Password = "123456"

　　'CrystalReportViewer1.LogOnInfo = myConnectionInfo

　　SetDBLogonForReport(myConnectionInfo)

　　三.总结

　　水晶报表在与VB.NET 紧密集成后，功能强大，性能稳定，操作便捷，利用自身提供的报表设计器和VB.NET 提供的丰富特性，在开发报表时可以极大地提高开发效率，减少开发人员工作量。

　　参考文献：

　　[1]许清荣,新一代Visual Basic 2005 程序设计[M].清华大学出版社,2006.

　　[2]石志国，VB.Net数据库编程，清华大学出版社