对外汉语大学文学院毕业论文开题报告(图)(2)

在高校信息化管理系统中，教学管理部门根据教学要求生成多种形式的数据报表。数据报告是管理者决策和保证高效工作的依据。任何管理系统无论界面多么友好，操作多么方便，最终都会以各种报表的形式输出。因此，报表输出功能的强弱往往直接影响系统开发的效果。 VB作为专业的数据库开发语言之一，提供了报表功能的支持，可以提供简单的数据报表输出。但是，用户需要的报表形式是多种多样的，尤其是表格的格式或样式，如框线样式、斜线添加、字体设置、某些单元格的合并等等。在制表方面，微软的EXCEL是一款优秀的表格设计软件，支持多种复杂表格格式。如果能将EXCEL的优点引入VB，就可以将两者完美结合，完成复杂报表的制作过程。 .

一、设计思路和步骤

在华东理工大学继续教育学院信息化管理系统中，前端开发工具使用VB，配合数据库管理系统（SQL SERVER 2000）收集系统中有价值的数据，然后与EXCEL模板文件一起使用，通过编写VB代码，调用EXCEL模板文件，有效解决各种数据报表的生成，下面以教学管理中课程的设计与输出为例举例说明设计思路和步骤。

(一）用EXCEL对象设计报表模板

根据院系的教学安排要求，学院教务管理系统工作人员提出了课程的输出模板格式（EXCEL格式）：见表1，希望能把所有的课程安排打印出来本教学点分批发布，便于分发和发布。

表1 EXCEL模板样式

上述模板相关的EXCEL对象：Application对象、Workbook对象、Worksheet对象、Range对象、Cells对象。应用对象：Excel对象模型的顶层，代表整个Excel应用； Workbook 对象：表示当前在 Excel 应用程序中打开的工作簿； Worksheet对象：表示Excel的工作表； Range对象：表示某个工作表的一个或多个单元格； Cells 对象：表示工作表的一个单元格。

技巧：如何获取上表中的参数和命令？打开Excel，选择“工具\宏（M）\录制新宏（R）”，按照常规方法制作上表，然后选择“停止录制”，然后分析录制的内容，就可以绘制出各种Excel了形式的方法和命令为VB开发提供代码参考。或者参考VBA代码说明。

(二）在VB中参考Excel制作报表

(1)在运行代码之前，从下拉菜单“Project”中选择“Reference”，进一步选择“Microsoft Excel 9.0 Object Library”体育课表格教案模板，然后选择“OK”，表示是在项目 Excel 类型库中被引用。

(2)在程序中定义 Excel 对象：

Dim Excel_App As Excel．应用

(3)创建 Excel 对象

设置 Excel_App = CreateObject("Excel.Application")

(4)复制预制好的Excel模板文件（存放在应用程序的Samples目录下）

FileCopy App.Path & "\Samples\Outside_Course Schedule All.xls", mFileName

Excel_App.Workbooks.Open (mFileName)

(5)设置 Excel 对象可见（或不可见）

Excel_App.Visible = True

(6)格式化 Excel 工作表

'定义需要格式化的表格范围

Excel_App.Workbooks(1).Worksheets(1).Range("A" & 23 * i + 1 & ":I" & 23 * i + 1).merge

'设置表格的水平位置

Excel_App.Workbooks(1).Worksheets(1).Range("A" & 23 * i + 1 & ":I" & 23 * i + 1).Horizo​​ntalAlignment = -4108

' 表示表格字体为粗体

Excel_App.Workbooks(1).Worksheets(1).Range("A" & 23 * i + 1 & ":I" & 23 * i + 1).Font.粗体 = 真

'设置表格字体大小

Excel_App.Workbooks(1).Worksheets(1).Range("A" & 23 * i + 1 & ":I" & 23 * i + 1).Font.大小 = 24

'设置表格字体

Excel_App.Workbooks(1).Worksheets(1).Range("A" & 23 * i + 1 & ":I" & 23 * i + 1).Font. name = "中国新魏"

'设置表格行高

Excel_App.Workbooks(1).Worksheets(1).Range("A" & 23 * i + 1 & ":I" & 23 * i + 1).RowHeight = 29.25

'定义表格单元格内容

Excel_App.Workbooks(1).Worksheets(1).Cells(23 * i + 2, 1) = "开学日期："

……

(7）生成工作表内容

Excel_App.Workbooks(1).Worksheets(1).Cells(23 * (i - 1) + 6 + m, 1) = ctGrid1.单元格文本(k, 2)

Excel_App.Workbooks(1).Worksheets(1).Cells(23 * (i - 1) + 6 + m, 2) = ctGrid1.单元格文本(k, 3)

Excel_App.Workbooks(1).Worksheets(1).Cells(23 * (i - 1) + 6 + m, 3) = ctGrid1.单元格文本(k, 4)

Excel_App.Workbooks(1).Worksheets(1).Cells(23 * (i - 1) + 6 + m, 4) = ctGrid1.单元格文本(k, 5)

……

表示ctGrid1是VB中引用的ActiveX表格控件，用于显示系统收集的数据，CellText是表格控件的单元格内容引用。 i变量为循环体变量，通过i的操作定位输出表中单元格的位置。

最后，用户可以看到生成的报表，就像操作EXCEL程序一样简单，可以打印预览，然后决定是否输出和打印。或者直接调用打印程序输出打印信息。打印后退出EXCEL，将控制权交还给EXCEL。

'退出 Excel

Excel_App.退出

'将控件返回给 Excel

设置 Excel_App=nothing

二、结束语

在VB中结合Excel设计复杂的报表，可以减少报表设计的工作量体育课表格教案模板，提高报表的灵活性。也可以直接调用打印机对象来完成打印功能。本文仅为客户提出样式模板，阐述报表制作流程，为教学管理部门提供多种形式的报表。

参考文献

1 李斌华，刁明军，文军，方旭东 VB结合Excel在数据处理和绘图中的工程应用[J]2007