VB程序设计案例驱动型教程第四篇.ppt

论文数据录入子模块 (4) 主要代码。 论文多作者排序系数的设置。 论文数据录入子模块 (4) 主要代码。 论文转载刊物的设置。 论文数据录入子模块 (4) 主要代码。 论文转载分值的确定 。 论文数据录入子模块 (4) 主要代码。 论文分值统计 。 科研项目数据录入子模块 (4) 主要代码。 “添加”按钮代码 科研项目数据录入子模块 (4) 主要代码。 确定教师系部代码 科研项目数据录入子模块 (4) 主要代码。 确定相应等级的科研项目的分值 科研项目数据录入子模块 (4) 主要代码。 “保存”按钮代码 科研项目管理模块 2) 科研项目查询子模块 (1) 效果图。 科研项目查询分为按教师姓名、系部查询和科研项目名称、编号的查询。其中，按教师信息的查询是一种公共的查询方式，界面如图所示。 科研项目查询子模块 (2) 具体设计要求。 查询方式主要以教师的系部和姓名、科研项目的名称和编号为依据进行查询。当选择按教师系部或姓名查询时，可自动显示学院的系部名称或在职教师姓名；当选择按科研项目名称或项目编号查询时，可自动列出所有项目的名称或编号。单击“取消”按钮时，则将查询方式和查询条件值清空。单击“修改”按钮时，则可修改表格中的数据。单击“删除”按钮时，可删除当前记录行。 科研项目查询子模块 (3) 界面设置。 该模块程序的界面关键控件设置，如图所示。 科研项目查询子模块 (4) 主要代码。 确定相应的查询值代码 科研项目查询子模块 (4) 主要代码。 “查询”按钮代码 科研项目查询子模块 (4) 主要代码。 “修改”按钮设置 “删除”按钮设置 科研项目管理模块 3) 科研项目报表子模块 (1) 报表制作方法。 ① 利用数据环境设计器(Data Environment Designer)与数据报表设计器(Data Report Designer) 两个工具来设计。这是Visual Basic中最常规的报表制作方法。 ② 使用第三方产品来完成并通过ActiveX控件输出。可以从网络上下载如水晶报表、ActiveReport、VideoSoft VsGrid等工具设计报表。 ③ 利用Excel对象将数据库导出到Excel工作簿。 科研项目报表子模块 (2) Excel对象。 ① Application对象。Application对象处于Excel对象层次结构的顶层，表示Excel自身的运行应用程序。 ② Workbook对象。Workbook对象处于Application对象的下层，表示一个Excel工作簿文件。 ③ Worksheet对象。Worksheet对象包含于Workbook对象，表示一个Excel工作表。 ④ Cells对象。Cells对象包含于Worksheet对象，表示Excel工作表中的一个单元格。 科研项目报表子模块 (3) VB创建Excel报表流程。 ① 用VB创建Excel对象。每个Microsoft Office应用程序提供了一个顶层Application对象，Excel应用程序提供了一个Excel对象。Visual Basic中使用该对象前需引用相应的对象库才能使用它。Visual Basic中引用Excel对象库的步骤是：选择菜单“工程”“引用”后，选中“Microsoft Excel 9.0 Object Library”，单击“确定”按钮即可。 科研项目报表子模块 (3) VB创建Excel报表流程。 引用完成后，可对Microsoft Excel的 Application 对象进行引用，即定义相应的Excel对象变量，代码如图所示。 科研项目报表子模块 (3) VB创建Excel报表流程。 创建了工作簿、工作表对象变量后，可以用这些变量来访问在Excel应用程序中的从属对象，以及这些对象的属性和方法，代码如图所示。 科研项目报表子模块 (3) VB创建Excel报表流程。 ② 生成工作表内容。生成了Excel工作表文件后，再对工作表中的单元格进行格式设置和赋值，就可完成报表的制作了。 科研项目报表子模块 (3) VB创建Excel报表流程。 ② 生成工作表内容。 科研项目报表子模块 (3) VB创建Excel报表流程。 ② 生成工作表内容。 论文管理模块 论文主要包括教师发表在国家规定的一级、二级和三级期刊和学院自定的一些级别的刊物上的论文。论文管理主要包括教师论文相关数据的录入、论文数据查询和论文报表三大模块。论文数据录入模块实现：管理员可自动选择教师姓名、系部、论文字数、期次、发表的刊物的名称、级别及分值、论文转载刊物信息等。论文数据查询是指可按照教师姓名、系部、论文名称、刊物名称等方式进行论文查询。论文报表主要是将教