vbnet第6章

为了创建良好的用户体验，需要 在程序中添加报表的验证信息。

Imports CrystalDecisions.CrystalReports.Engine Imports CrystalDecisions.Shared Imports System.Collections Public Class 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 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim dir As String dir = System.Environment.CurrentDirectory Dim path = dir.Substring(0, stIndexOf("\") - 3) 'MessageBox.Show(path + "Hierarchical Grouping.rpt") CrystalReportViewer1.ReportSource = path + "CrystalReport1.rpt" Dim myConnectionInfo As ConnectionInfo = New ConnectionInfo() myConnectionInfo.ServerName = "(local)" myConnectionInfo.DatabaseName = "sales" myConnectionInfo.IntegratedSecurity = False erID = "sa" myConnectionInfo.Password = "sa123" SetDBLogonForReport(myConnectionInfo) End Sub End Class

分别选择“使用报表向导”和“标准”选项，下一步 出现对话框“数据”

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

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

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



要在Windows窗体上显示报表，需要添加CrystalReportViewer控 件，按照以前的方法，在Form.Load方法中添加控件和报表的连 接代码。 案例名称：在工程中添加报表模板 工程名称：Proj6-2 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim dir As String dir = System.Environment.CurrentDirectory Dim path = dir.Substring(0, stIndexOf("\") - 3) 'MessageBox.Show(path + "Hierarchical Grouping.rpt") CrystalReportViewer1.ReportSource = path + "CrystalReport1.rpt" End Sub
6.2.3 报表数据导出与打印


水晶报表支持将报表导出的格式包括：1. Adobe Acrobat(.pdf)； 2. Crystal Reports(.rpt)；3. Rich Text Format (.rtf)；4. Microsoft Word (.doc)；5. Microsoft Excel (.xls)；6. HTML 3.2 (.htm)；7. HTML 4.0 (.htm)。 数据导出有两种模式： 1.拉模型。通过指定的数据驱动程序，来进行数据库的连接和提 取数据。基本上，不需要开发人员编写代码。 2. 推模型。需要开发人员自己编写代码来处理数据库连接，填充 DataSet，并传递到报表中。如果后台数据库需要认证，则应提供 登录信息，这里需要编写代码来实现；如果后台数据库是Access， 则一般不需要提供登陆信息。

接着弹出对话框“Crystal Reports库”


在选项组“创建新Crystal Report文档”中，有3个选 项：1. 使用报表向导：有对话框指导完成报表的创建， 并将选择保存到报表设计器中；2. 作为空白报表：对 报表不做任何设置；3. 来自于现有的报表：用目前设 计好的报表作为模板，重新设计报表。 在选项组“选择专家”中包含三种不同的报表专家， 可以指导完成特定类型报表的创建工作。有3个选项： 1. 标准：指导如何选择数据源和连接数据库表。还可 以帮助用户添加字段以及分组、统计、图表以及排序。 2. 交叉表：报表中的数据作为交叉表对象显示，并指 导自定义格式。3. 邮件标签：允许用户格式化报表， 目的是打印在任意尺寸的邮件标签上。



案例名称：数据导出和打印 工程名称：Proj6-3 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click CrystalReportViewer1.ExportReport() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click CrystalReportViewer1.PrintReport() End Sub

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




使用水晶报表设计的报表又称为RDLC报表。在2005之前， SQL Server Reporting Services中已经提供了一种被称为报表定义 语言（Report Definition Language, RDL）的语言；在 2005中，Microsoft提供了针对这种报表的设计器，并提供了在 WinForm和WebForm中使用这种报表的能力。Microsoft将这种报 表的后缀定为RDLC，RDL仍然是Report Definition Language的缩 写，C代表Client-Side Processing，凸显了它的客户端处理能力。 水晶报表具有如下的特点： (1) 具有简单易用的控件，特别是Table控件，非常方便字段在报 表上的排列； (2) 灵活的可定制性，用XML来描述一个报表相关数据； (3) 高度可编程性，不需要报表文件，通过代码就可以实现报表 生成、预览和打印等一系列操作； (4) 导出的Excel文件格式非常完美，任何其它报表在这方面都不 能与之比拟，而且并不需要安装Excel。
使用已有的报表模板

案例名称：使用已有的报表模板 工程名称：Proj6-1 Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim dir As String dir = System.Environment.CurrentDirectory Dim path = dir.Substring(0, stIndexOf("\") - 3) 'MessageBox.Show(path + "Hierarchical Grouping.rpt") CrystalReportViewer1.ReportSource = path + "Hierarchical Grouping.rpt" End Sub End Class
6.2 创建自定义报表

在数据库应用程序中，不同的数据库需 要显示不同的字段，即使是同一数据库， 不同的工程需要显示的顺序也是不一样 的，所以一般都需要自定义报表。