VisualBasic程序设计案例驱动型教程 第4篇 Visual Basic数据库编程实战.ppt

1、Visual Basic数据库编程实战,案例 科研工作量统计系统,案例 科研工作量统计系统,需求背景 系统数据库设计 系统模块结构 基本信息维护管理模块 科研项目管理模块 论文管理模块 科技著作管理模块 系统设置模块,系统的开发意义： 为减少不必要的重复工作，保证数据录入准确，更好地统计教师科研工作，以便做到科研工作的统计更加公平、合理、有效，开发一套适合高校智能化管理的科研工作量统计系统具有重要意义。,需求背景,需求背景,科研工作量的计算方法 科研项目 根据科研项目的等级不同予以计分。,需求背景,科研工作量的计算方法 (2) 学术论文 教职工发表的二级及以上学术论文，学院给予奖励。 同一篇论

2、文被多家刊物转载、收录，按最高分数计，不重复计分。 论文被中国社会科学文摘论点摘要、新华文摘论点摘编摘录，加4分，但总分不超过10分。 一篇学术论文以4000字为标准字数，少于4000字的一级论文计5分、二级论文计2分；少于等于3000字的一级论文计4分、二级论文计1.5分；文科类少于等于1500字的一级论文计2分。 合作论文按一定系数分配,需求背景,科研工作量的计算方法 (3) 学术著作 (1) 学术著作注重学术价值，不包括通俗性、普及性（含科普）、知识性出版物，特指具有独到的、较大学术创新意义的著作。 (2) 学术著作超过30万字，以30万字计算。,需求背景,3) 科研工作量的输出要求 (

3、1) 科研项目,需求背景,3) 科研工作量的输出要求 (2) 论文,需求背景,3) 科研工作量的输出要求 (3) 科技著作,系统数据库设计,根据系统需求分析资料所提供的数据及用户最终的数据输出要求，本系统创建一个Access数据库“ky.mdb” 。,系统数据库设计,1) 教师表 由于教师的科研统计需要以系部为单位进行汇总，因此教师表主要提供学院所有教师的姓名和系部，其主要结构如下。,系统数据库设计,2) 科研项目等级表 科研项目的等级及相应的分值由该高校科研处确定，且随着时间而发生改变。表结构如表4-6所列。,系统数据库设计,3) 科研项目表 本表主要用于确定教师科研项目的相关数据，其中教师

4、的姓名是从教师表中获得的，课题等级与分值是从科研项目等级表中获取的，表结构如下。,系统数据库设计,4) 论文级别表 教师发表论文的杂志的等级及分值是由该高校科研处根据相关科研政策而定的，并且随着时间而改变，该表主要用于确定论文的级别与分值，结构如下。,系统数据库设计,5) 论文合作表 教师的论文若属多人合作的，则分值与其排名是密切相关的。本表主要用于确定教师论文合作的排名与系数，表结构如下。,系统数据库设计,6) 论文刊物表 本表主要用于确定论文刊物的信息，不同的论文刊物其级别不一样，级别不同的刊物上发表的论文其计分是有区别的，表结构如下。,系统数据库设计,7) 论文转载表 若论文被不同的刊物

5、转载，则应给予相应的加分。本表主要用于确定论文转载刊物及分值，结构如表所示。,系统数据库设计,8) 教师论文表 本表主要用于存放教师论文的信息。其中教师姓名、系部是从教师表中获取的，刊物名称、国内刊号、国际刊号、核定等级的数据均是从论文刊物表中获取的，论文分值是最终统计得到的，计酬分值是扣减掉三级论文后的分值，表结构如表所示。,系统数据库设计,9) 著作类别计分表 本表主要用于确定著作类别的信息，不同类别的著作计分标准不同，表结构如表所示。,系统数据库设计,10) 教师著作表 本表主要用于存放教师著作的综合信息，其中教师姓名、系部来自教师表，著作类别、分值来自著作类别计分表，表结构如表所示。,

6、系统数据库设计,11) 用户表 为了保证系统数据的安全，本系统登录时需要相应的身份。本表主要用于存放系统的管理员的信息，通过该表可识别用户登录时是否合法，表结构如表所示。,系统模块结构,根据系统需求分析结果，确定科研工作量统计系统功能主要包括科研项目、教师论文、教师著作三方面科研工作的数据录入、查询和报表统计处理。此外，为方便管理员进行数据更新，增加了相关科研内容的基本信息维护处理与数据备份等系统设置功能。,系统模块结构,1) 主界面 系统主要功能界面如图所示。,系统模块结构,2) 系统模块结构 系统的主要模块结构如图所示。,系统模块结构,3) 标准模块 由于该系统大部分模块中均使用了数据库对

7、象、记录集对象、查询字符串等，因此该系统添加了一个标准模块Module1。在此模块中定义了下列全局变量，如图所示。,基本信息维护管理模块,基本信息维护，是指按科研管理处制定的政策（如科研级别分值、论文级别分值、著作记分标准等）进行信息的维护。由于这些信息会随着时间的移动而经常发生改变，因此需要经常进行维护操作。在系统设计中，由于这些维护操作基本相似，故这里只介绍教师数据和科研项目等级的维护两块内容。,基本信息维护管理模块,教师数据维护子模块 (1) 效果图。 教师数据设置主要用于添加、修改、删除本院教师的姓名与系部，效果如图所示。,教师数据维护子模块,(2) 具体设计要求。 窗体运行初始时，“

8、添加”、“删除”和“修改”按钮可用，“确认”和“取消”按钮不可用。单击“添加”后，“删除”和“修改”按钮不可用，“确认”和“取消”按钮可用。单击“删除”按钮后弹出相应的提示信息。 选中“确定”按钮则删除记录，否则不删除记录。 单击“修改”按钮时，姓名和系部所在的文本框可用。,教师数据维护子模块,(3) 主要代码。 初始化代码如图所示 。,教师数据维护子模块,(3) 主要代码。 “添加”按钮代码,教师数据维护子模块,(3) 主要代码 “删除”按钮代码,教师数据维护子模块,(3) 主要代码 “修改”按钮代码,教师数据维护子模块,(3) 主要代码 “确认”按钮代码,基本信息维护管理模块,2) 科研项

9、目等级设置子模块 (1) 效果图。 科研项目等级设置主要用于添加、修改、删除教师科研项目的等级与计分标准，效果如右图所示。,科研项目等级设置子模块,(2) 具体设计要求。 窗体运行初始时，“添加”、“删除”和“修改”按钮可用，“确认”和“取消”按钮不可用。单击“添加”按钮后，“删除”和“修改”按钮不可用 ，“确认”和“取消”按钮可用。单击“删除”按钮后弹出提示信息。选中“确定”按钮则删除记录，否则不删除记录。 单击“修改”按钮时，课题级别和计分所在的文本框可用。,科研项目等级设置子模块,(3) 主要代码。 初始化代码如图所示。,科研项目等级设置子模块,(3) 主要代码。 “添加”按钮代码,科研

10、项目等级设置子模块,(3) 主要代码。 “删除”按钮代码,科研项目等级设置子模块,(3) 主要代码。 “修改”按钮代码,科研项目等级设置子模块,(3) 主要代码。 “确认”按钮代码,科研项目管理模块,教师科研项目，主要是指教师每学年所主持承担的课题研究工作，包括学院级、市厅级、省部级、教育部级、国家级等各种级别的课题。科研项目管理模块主要包括科研项目的数据录入、科研项目数据查询和科研项目报表三大模块。科研项目数据录入主要实现：管理员录入教师科研项目数据时，可自动选择教师姓名、系部、课题等级、分值等，只需输入科研项目名称、项目编号、立项时间等少数信息。科研项目数据查询主要实现：管理员可按教师姓名

11、、系部、科研项目名称、科研项目编号进行科研项目的查询。科研项目报表主要是将教师的科研项目按照立项时间分为上半年和下半年分别导入到Excel文件中，并且按照系部进行了科研项目汇总，以便让用户通过Excel打印输出所需的科研项目统计表格。,科研项目管理模块,科研项目数据录入子模块 (1) 效果图。 根据科研项目输出表格的要求，科研项目数据录入情况如图所示。,科研项目数据录入子模块,(2) 具体设计要求。 “添加”按钮：将教师姓名和科研项目等级添加到姓名和核定等级处；教师姓名来自教师表，教师姓名确定后自动显示相应的系部名；科研项目的等级来自科研等级表，等级确定后自动显示相应的分值。 “保存”按钮：当

12、管理员输入所有科研项目数据信息后将其保存到科研项目表中，若数据不完整则提示管理员。 “取消”按钮：进行重新输入，将教师姓名、项目名称、项目编号和审批部门等数据清空。,科研项目数据录入子模块,(3) 界面设置。 该模块程序的界面关键控件设置如图所示。,科研项目数据录入子模块,(4) 主要代码。 “添加”按钮代码,科研项目数据录入子模块,(4) 主要代码。 确定教师系部代码,科研项目数据录入子模块,(4) 主要代码。 确定相应等级的科研项目的分值,科研项目数据录入子模块,(4) 主要代码。 “保存”按钮代码,科研项目管理模块,2) 科研项目查询子模块 (1) 效果图。 科研项目查询分为按教师姓名、

13、系部查询和科研项目名称、编号的查询。其中，按教师信息的查询是一种公共的查询方式，界面如图所示。,科研项目查询子模块,(2) 具体设计要求。 查询方式主要以教师的系部和姓名、科研项目的名称和编号为依据进行查询。当选择按教师系部或姓名查询时，可自动显示学院的系部名称或在职教师姓名；当选择按科研项目名称或项目编号查询时，可自动列出所有项目的名称或编号。单击“取消”按钮时，则将查询方式和查询条件值清空。单击“修改”按钮时，则可修改表格中的数据。单击“删除”按钮时，可删除当前记录行。,科研项目查询子模块,(3) 界面设置。 该模块程序的界面关键控件设置，如图所示。,科研项目查询子模块,(4) 主要代码。

14、 确定相应的查询值代码,科研项目查询子模块,(4) 主要代码。 “查询”按钮代码,科研项目查询子模块,(4) 主要代码。 “修改”按钮设置 “删除”按钮设置,科研项目管理模块,3) 科研项目报表子模块 (1) 报表制作方法。 利用数据环境设计器(Data Environment Designer)与数据报表设计器(Data Report Designer) 两个工具来设计。这是Visual Basic中最常规的报表制作方法。 使用第三方产品来完成并通过ActiveX控件输出。可以从网络上下载如水晶报表、ActiveReport、VideoSoft VsGrid等工具设计报表。 利用Excel对

15、象将数据库导出到Excel工作簿。,科研项目报表子模块,(2) Excel对象。 Application对象。Application对象处于Excel对象层次结构的顶层，表示Excel自身的运行应用程序。 Workbook对象。Workbook对象处于Application对象的下层，表示一个Excel工作簿文件。 Worksheet对象。Worksheet对象包含于Workbook对象，表示一个Excel工作表。 Cells对象。Cells对象包含于Worksheet对象，表示Excel工作表中的一个单元格。,科研项目报表子模块,(3) VB创建Excel报表流程。 用VB创建Excel对象

16、。每个Microsoft Office应用程序提供了一个顶层Application对象，Excel应用程序提供了一个Excel对象。Visual Basic中使用该对象前需引用相应的对象库才能使用它。Visual Basic中引用Excel对象库的步骤是：选择菜单“工程”“引用”后，选中“Microsoft Excel 9.0 Object Library”，单击“确定”按钮即可。,科研项目报表子模块,(3) VB创建Excel报表流程。 引用完成后，可对Microsoft Excel的 Application 对象进行引用，即定义相应的Excel对象变量，代码如图所示。,科研项目报表子模块,

17、(3) VB创建Excel报表流程。 创建了工作簿、工作表对象变量后，可以用这些变量来访问在Excel应用程序中的从属对象，以及这些对象的属性和方法，代码如图所示。,科研项目报表子模块,(3) VB创建Excel报表流程。 生成工作表内容。生成了Excel工作表文件后，再对工作表中的单元格进行格式设置和赋值，就可完成报表的制作了。,科研项目报表子模块,(3) VB创建Excel报表流程。 生成工作表内容。,科研项目报表子模块,(3) VB创建Excel报表流程。 生成工作表内容。,论文管理模块,论文主要包括教师发表在国家规定的一级、二级和三级期刊和学院自定的一些级别的刊物上的论文。论文管理主要

18、包括教师论文相关数据的录入、论文数据查询和论文报表三大模块。论文数据录入模块实现：管理员可自动选择教师姓名、系部、论文字数、期次、发表的刊物的名称、级别及分值、论文转载刊物信息等。论文数据查询是指可按照教师姓名、系部、论文名称、刊物名称等方式进行论文查询。论文报表主要是将教师的论文按照发表时间，分为上半年和下半年分别导入到Excel文件中，并按照系部进行论文汇总，以便通过Excel输出论文统计表格。,论文管理模块,1) 论文数据录入子模块 效果图。 论文数据录入主要包括论文基本信息，论文基本信息如图所示。,论文数据录入子模块,（1）效果图。 论文刊物信息如图所示。,论文数据录入子模块,（1）效

19、果图。 论文转载或收录情况如图所示。,论文数据录入子模块,(2) 具体设计要求。 教师姓名与系部是自动从教师表中取出的，论文发表的刊物杂志的信息是由刊物表提供的，论文作者的排序是由作者排序表提供的，论文转载是由转载表提供的。,论文数据录入子模块,(3) 界面设置。 该模块程序的界面关键控件设置如图所示。,论文数据录入子模块,(4) 主要代码。 模块变量定义： Dim str1 As String Dim jh As Integer Dim jbf As single论文基本分 Dim jczf As Single计酬总分,论文数据录入子模块,(4) 主要代码。 “添加”按钮主要功能是将本院所有

20、教师的姓名添加到姓名组合框Cmb_xm中，代码如图所示。,论文数据录入子模块,(4) 主要代码。 教师对应系部的确定,论文数据录入子模块,(4) 主要代码。 不同字数论文的分值标记 。,论文数据录入子模块,(4) 主要代码。 论文刊物名称装载。,论文数据录入子模块,(4) 主要代码。 论文刊物的等级与分值录入 。,论文数据录入子模块,(4) 主要代码。 论文多作者的人数录入。,论文数据录入子模块,(4) 主要代码。 论文多作者排序设置 。,论文数据录入子模块,(4) 主要代码。 论文多作者排序系数的设置。,论文数据录入子模块,(4) 主要代码。 论文转载刊物的设置。,论文数据录入子模块,(4)

21、 主要代码。 论文转载分值的确定 。,论文数据录入子模块,(4) 主要代码。 论文分值统计 。,论文数据录入子模块,(4) 主要代码。 “保存”代码 。,论文管理模块,2) 论文查询子模块 (1) 效果图。 论文的查询分为按教师信息查询和论文信息查询两种方式，效果如图所示。,论文查询子模块,(2) 具体设计要求。 选择不同的查询方式后，可自动列出相应的值供选择进行查询。按系部查询时，可列出本院现有系部名称；选择姓名时，可列出本院现有教师姓名；选择论文题目时，可列出教师发表的论文题目；选择刊物名称时，可列出教师发表的论文的刊物。,论文查询子模块,(3) 主要代码。 按教师信息进行查询设置的代码与

22、科研项目中的代码相同。 按论文题目和刊物名称进行查询设置的代码如图所示，将此段代码添加到课题查询代码之后即可。,提示：提示：当单击主界面中的“科研论文”下的“论文查询”时，需要设置查询字符串的初始值：strsjcx = select * from lw: strcnt = select count(*) from lw,论文管理模块,3) 论文报表子模块 论文报表的生成步骤与科研项目报表的生成步骤相同 ， 主要代码如图。,科技著作管理模块,科技著作，是指教师独立或者与他人合作所编写的教材、专著等。科技著作的管理主要包括科技著作的数据录入、科技著作数据查询和科技著作报表三大模块。科技著作数据录入

23、主要实现：管理员可自动选择教师姓名、系部、著作类别、计分标准，可自动计算著作的分值等。科技著作数据查询模块实现：管理员可选择按教师姓名、系部、著作名称、类别等方式进行著作查询。科技著作报表模块可将教师的著作分为上半年和下半年两期著作导入到Excel文件中，并按照教师系部进行著作的汇总，以便通过Excel输出教师科技著作统计表格。,科技著作管理模块,1) 著作数据录入子模块 (1) 效果图。 教师的著作数据主要涉及到教师姓名和所在系部、著作的名称、类别、字数、计分标准等相关信息，其数据录入的界面如图所示。,著作数据录入子模块,(2) 具体设计要求。 著作数据录入时，著作作者来自本院教师，著作类别

24、计分标准均由管理员设置好后自动导入。,著作数据录入子模块,(3) 界面设置。 该模块程序的界面关键控件设置如图所示。,著作数据录入子模块,(4) 主要代码。 著作类别载入代码,著作数据录入子模块,(4) 主要代码。 著作的计分标准设置,著作数据录入子模块,(4) 主要代码。 著作的最终分值计算,著作数据录入子模块,(4) 主要代码。 “添加”按钮代码。,著作数据录入子模块,(4) 主要代码。 保存著作数据。,科技著作管理模块,2) 著作查询子模块 (1) 效果图。 著作查询除了全部、姓名、系部3种查询方式外，还分为按著作作者信息查询和著作名称与类别查询两种查询方式，如图所示。,著作查询子模块,

25、(2) 具体设计要求。 按著作作者查询时，作者姓名来自本院教师姓名；按著作信息查询时，著作名称、类别自动从教师著作表中获取。,著作查询子模块,(3) 主要代码。 按著作名称和著作类别进行查询设置，如图所示。将该段代码添加到课题查询代码的查询方式之后即可。,提示：提示：当单击主界面中的“科技著作”下的“著作查询”时，需要设置查询字符串的初始值：strsjcx = select * from jczz: strcnt = select count(*) from jczz,科技著作管理模块,3) 著作报表子模块 著作报表的生成步骤与科研项目报表的生成步骤相同 ，主要代码如下。,系统设置模块,系统设

26、置是指系统所提供的系统辅助功能，如系统初始化、数据备份、数据导入、用户身份设置等。本系统设置模块包括用户管理、系统初始化和数据备份等模块。用户管理模块主要是添加删除和修改系统的使用用户；系统初始化模块主要是将系统中教师的科研项目表、论文表和著作表中的数据清空，以便重新录入新的学年的科研数据；数据备份是将已经录入成功的科研数据备份到磁盘中，以防止数据丢失。,系统设置模块,1) 用户管理设置子模块 (1) 效果图。 用户管理主要用于设置系统管理员的信息，包括用户名称、密码与身份，效果如图所示。,用户管理设置子模块,(2) 具体设计要求。 窗体运行初始时，“添加”、“删除”、“修改”按钮可用，“确认

27、”、“取消”按钮不可用。单击“添加”按钮后，“删除”、“修改”按钮不可用 ，“确认”、“取消”按钮可用。单击“删除”按钮后弹出相应的提示信息。单击“确定”按钮，则删除记录，否则不删除记录。 单击“修改”按钮时，用户名、口令和身份所在的控件可用。,用户管理设置子模块,(3) 主要代码。 初始化代码,用户管理设置子模块,(3) 主要代码。 “添加”按钮代码,用户管理设置子模块,(3) 主要代码。 “删除”按钮代码,用户管理设置子模块,(3) 主要代码。 “修改”按钮代码,用户管理设置子模块,(3) 主要代码。 “确认”按钮代码,系统设置模块,2) 初始化设置子模块 本模块主要用于清空科研项目表、论文表和科技著作表中的数据，其主要代码如图所示。,系统设置模块,3) 数据备份子模块 本模块主要是将已经录入的科研项目、论文和著作等数据的数据库复制到磁盘上备份，以防数据丢失。主要代码如图所示。,实训练习,(1) 设计并运行调试科研项目数据录入模块。 (2) 设计并运行调试科研项目