NET程序设计案例教程——Visual Basic 2005 教学课件 作者 徐布克 第11章 制作通用报表.pptVIP

Visual Basic.NET 程序设计 第11 章 制作通用报表 学习和实践的目标 需求分析要求：“向Excel输出当前浏览的内容。” 用户需要输出浏览到的数据，同时又拥有进一步加工处理的权利。 Excel是计算机中普遍使用的电子表格工具。将Excel和VB.NET有机地结合起来，可以制作很灵活的报表。因为此类报表的广泛适用性，所以称其为通用报表。 学习和实践的目标 图11-1是用户需要输出的浏览到的数据 。 实现目标的知识点 使用对象浏览器查看Excel对象 在VB.NET中操作Excel对象 11.1 制作通用报表的思路 1.通过查询（以后设计查询类）功能确定需要输出的“frm浏览”中的数据。 2．了解Excel对象体系，通过Excel对象将数据送至Excel系统中。 3．在Excel系统中进行排版和计算，得出需要的报表。 11.2 了解Microsoft Excel对象类 11.2.2 对象浏览器 若在系统中安装了Microsoft Excel或引用了Excel动态链接库文件，可以使用Visual Studio.NET对象浏览器来查看Excel的对象、属性和方法。 Visual Studio.NET对象浏览器有两种用途： 显示在Visual Studio.NET开发环境中的正在开发的程序所使用的对象、属性和方法。 显示系统中支持自动化的应用程序中可用的对象、属性和方法。 操作步骤：(详见教材P117） 首先添加对Excel动态链接库的引用。 使用对象浏览器，了解Excel对象体系。 11.2.2 对象浏览器 11.3 将学生成绩档案输出到Excel中 11.3 将学生成绩档案输出到Excel中 11.3.1制作Excel报表的程序流程 10.4 显示报表 11.3.2 代码分析 利用Excel对象制作Excel报表 Private Sub MakeExcelReport(ByVal dgv区域 As DataGridView) Windows.Forms.Cursor.Current = Cursors.WaitCursor 将光标设置为等待状态 声明并创建Excel应用对象 Dim xlApp As Excel.Application = New Excel.Application 声明并创建Excel工作簿对象 Dim xlBook As Excel.Workbook = xlApp.Workbooks.Add(True) 获取工作簿对象的当前工作页对象 Dim xlSheet As Excel.Worksheet = xlApp.ActiveWorkbook.ActiveSheet 10.4 显示报表 11.3.2 代码分析 输出数据 With ds内存.Tables(dgv区域.DataMember) xlSheet.Cells(1, 5) = dgv区域.DataMember 添加表格标题 Dim i, j As Integer For j = 0 To .Columns.Count - 1 处理浏览数据表格的每一列 If (.Columns(j).ToString().IndexOf(ID) 0) Then 对名字中含有ID的字段（内部管理字段）不处理 xlSheet.Cells(3, j + 1) = .Columns(j).ToString() 添加表格字段名称 For i = 0 To .Rows.Count - 1 10.4 显示报表 11.3.2 代码分析 处理浏览数据表格当前列的每一行 xlSheet.Cells(i + 4, j + 1) = .Rows(i)(j).ToString() 添加表格内容 Next i End If Next j End With Windows.Forms.Cursor.Current = Cursors.Default 将光标设置为缺省状态 ? xlApp.Visible = True 显示Excel应用对象 End Sub * 第11章 制作通用报表 * 图11-2是输出至Excel的学生基本信息的样式。 11.2.1 自动化技术 自动化技术是一种基于COM交互标准的技术。 完全自动化的