VB教师考核系统

目  录
第一章  绪  论 3
1．1课题简介 3
1．2开发的意义 3
1．3团队构成 4
第二章  开发环境及实现技术 5
2．1开发环境 5
2．2开发工具简介 5
第三章  系统设计 7
3．1概要设计 7
3．2详细设计 8
第四章  数据库设计 10
4．1数据库ACCESS简介 10
4．2数据库需求分析 11
4．3表的详细结构说明 12
4．4测试用例 15
第五章  系统的实现 16
5．1系统登录模块的实现 16
5．2主界面的实现 20
5．3教师信息管理模块的实现 22
5．3．1教师信息维护模块的实现 22
5．3．2教师信息查询模块的实现 26
5．4教师任课管理模块的实现 29
5．4．1教师任课信息维护模块的实现 29
5．4．2教师任课信息查询模块的实现 30
5．5论文信息管理模块的实现 32
5．5．1论文信息维护模块的实现 32
5．5．2论文信息查询模块的实现 33
5．6科研经费管理模块的实现 34
5．6．1科研经费的收支与维护模块的实现 34
5．6．2科研经费收支查询模块的实现 41 [版权所有：http://think58.com]
5．7辅助功能模块的实现 44
5．8密码管理模块的实现 46
5．9打印管理模块的实现 48
第六章  系统使用说明 50
6．1使用说明 50
6．2运行环境 50
第七章  设计心得 51
参考文献 52 think58

[资料来源：http://THINK58.com]

 
第三章  系统设计
3．1概要设计
1、概要设计阶段的主要任务
①系统分析员审查软件计划、软件需求分析提供的文档，提出最佳推荐方案，用系统流程图，组成系统物理元素清单，成本效益分析，系统的进度计划，供指导教师审定，审定后进入设计。
②确定模块结构，划分功能模块，将软件功能需求分配给所划分的最小单元模块。确定模块间的联系，确定数据结构、文件结构、数据库模式，确定测试方法与策略。
③ 编写概要设计说明书，用户手册，测试计划，选用相关的软件工具来描述软件结构，结构图是经常使用的软件描述工具。选择分解功能与划分模块的设计原则，例如模块划分独立性原则，信息隐蔽原则等。
2、概要设计的过程
概要设计要先进行系统设计，复审系统计划与需求分析，确定系统具体的实施方案；然后进行结构设计，确定软件结构。
3、概要设计的原则
①将软件划分成若干独立成分的依据。
②如何表示不同的成分内的功能细节和数据结构。
③如何统一衡量软件设计的技术质量。
4、系统功能分析
根据学校的教务人员提供的教师考核管理的信息，开发的管理系统的达到的功能如下：
1、教师基本信息管理
2、教师任课情况管理
3、教师发表论文情况管理 copyright think58 [资料来源：http://www.THINK58.com]
4、教师科研经费管理
5、系统维护
6、退出系统
根据以上分析，该系统考虑将整个系统分解成如图3-1模块结构图:
图3-1模块结构图
并且在系统的开发过程中，我尽量注意模块的高内聚、低耦合，使得系统的整体性能提高，并且也有利于投入使用后的系统维护。
3．2详细设计
1、详细设计的任务
详细设计就是要在概要设计的结果的基础上，考虑“怎样实现”这个软件系统，直到对系统中的每个模块给出足够详细的过程性描述。主要任务如下：①为每个模块确定采用的算法，选择某种适当的工具表达算法的过程，写出模块的详细过程性描述；②确定每一模块使用的数据结构；③确定模块接口的细节，包括对系统外部的接口和用户界面，对系统内部其它模块的接口，以及模块输入数据、输出数据及局部数据的全部细节。④要为每一个模块设计出一组测试用例，以便在编码阶段对模块代码（即程序）进行预定的测试，模块的测试用例是软件测试计划的重要组成部分，通常应包括输入数据，期望输出等内容。
2、详细设计的方法
程序流程图、N-S图、PAD图、IPO图
本系统在开发过程中所采用的详细设计方法为IPO图：
1、 教师考核的信息录入模块IPO图：
2、 教师考核信息的查询模块IPO图：

think58.com [来源：http://www.think58.com]

3、 辅助功能模块IPO图：
4、 密码修改模块IPO图： copyright think58 [资料来源：THINK58.com]

第四章  数据库设计
4．1数据库Access简介
Access中文版是Microsoft Office 2000套装软件的数据库管理系统软件，是目前比较流行的小型桌面数据库管理系统，它适用于小型企业、学校、个人等用户，可以通过多种方式实现对数据收集、分类、筛选处理，提供用户查询或打印报表。
Access具有良好的界面，采用了与Windows和Microsoft Office系列软件完全一致的风格，用户可以通过菜单和对话框操作，不用编写任何命令便能有效地实现各种功能的操作，完成数据管理任务。Microsoft Office的一个集成化的程序设计语言是VBA(Visual Basic for Applications)，使用VBA可以创建非常实用的数据库应用系统。
Access可以作为个人计算机终端和大型主机系统之间的桥梁。通过如SQL、ODBC等特定技术，方便地存储、检索和处理服务器平台上的关键信息，提供了灵活、可靠、安全的客户/服务器解决方案。
Access可以接受多种格式的数据，从而方便了用户在不同系统之间进行数据转换。
随着Internet网络应用的发展，Access还增加了使用信息发布Web 向导和用HTML格式导出对象的功能。
数据库的概念
数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。 copyright think58 [资料来源：http://think58.com]
新建一个数据库
创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。
1． 标识需要的数据；
2． 收集被标识的字段到表中；
3． 标识主关键字字段；
4． 绘制一个简单的数据图表；
5． 规范数据；
6． 标识指定字段的信息；
7． 创建物理表。
修改已建的数据库
数据库的修改分为：添加、编辑和删除记录。这三种操作均可由Visual Basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。
实现数据库之间的联系
数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。
4．2数据库需求分析
根据调查有关单位的教师考核管理的实际情况，分析得到如下的数据库结构。

copyright think58 [资料来源：http://www.THINK58.com]

以科研经费管理的表为例，其余的表的信息参见目录下的“教师考核.mdb”数据库。
教师考核收支表：
 
收入/支出项目表：
 
用户管理表：
 
4．3表的详细结构说明
教师考核收支表的详细信息：
 
收入项目表的详细结构为：

内容来自think58

[版权所有：http://think58.com]

5．3．2教师信息查询模块的实现
1、流程图：
2、运行界面：
 
3、实现过程：
第一步将所需的控件放到表单的相应位置；方法：首先在“表单控件”工具栏先选中所需的控件图件，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到表单上,如上图：
包括的控件主要有：标签、文本框、单选命令、表格等。
第二步，选择窗体或控件进行属性设置，先选取中需要设置属性的对象，然后在属性窗口里显示了该控件对象的所有属性、事件和方法。
第三步双击相应的控件，在控件的相应过程中编写程序。
“查询”的主要代码如下：
Private Sub Command1_Click()
If Option1.Value Then
   SQL = "select * from 教师基本情况 where   教师编号= '" & Trim(Text1.Text) & "' "
   Data1.RecordSource = SQL
   Data1.Refresh
   If Data1.Recordset.EOF Then
     MsgBox "没有此编号的教师情况！", , "提示"
     Data1.RecordSource = "select * from 教师基本情况"
     Data1.Refresh
   End If

think58 [资料来源：http://www.THINK58.com]

End If
If Option2.Value Then
   SQL = "select * from 教师基本情况 where  教师姓名 = '" & Trim(Text1.Text) & "' "
   Data1.RecordSource = SQL
   Data1.Refresh
   If Data1.Recordset.EOF Then
     MsgBox "没有该教师的情况！", , "提示"
     Data1.RecordSource = "select * from 教师基本情况"
     Data1.Refresh
   End If
End If
If Option3.Value Then
   SQL = "select * from 教师基本情况 where  系别 = '" & Trim(Text1.Text) & "' "
   Data1.RecordSource = SQL
   Data1.Refresh
   If Data1.Recordset.EOF Then
     MsgBox "没有该系别的教师情况！", , "提示"
     Data1.RecordSource = "select * from 教师基本情况"
     Data1.Refresh
   End If
End If
End Sub [来源：http://think58.com]