员工培训管理系统.doc

ＸＸＸ毕业设计

员工培训管理系统

学生姓名
ＸＸＸ
系部名称
ＸＸＸ系
专业班级
ＸＸＸ班
学 号
ＸＸＸＸＸＸＸＸＸ
指导教师
ＸＸＸ

ＸＸＸＸＸＸ教务处
二○一一年三月

摘要
随着人类社会的发展，社会不断的在进步，对知识的渴望越来越大，人类已经逐步进入信息化社会。信息增长的速度越来越快，人们希望利用先进的管理理论方法和手段来处理越来越多的信息，员工培训也是其中一组成部分，想以提高工作管理水平。因此，学习与再学习始终伴随着我们，其中有关的培训机构有着不可替代的作用，在这种形势下，如何更好的对培训工作进行管理，就成了我们需要解决的一个问题，因此，开发一套完善的员工培训管理系统就成不可少了，本文介绍了在visual basic 6.0环境下利用其提供的各种面向对象的开发工具开发本系统的详细过程，从软件工程的角度进行了科学而严谨的阐述。
关键词：员工培训；管理系统；visual basic 6.0
Abstract
With the development of the human, the society gets progress continuously and the desire of knowlege become more and more large. The human being have been into the informational stage step by step. Furthermore, the increase of information speed up too. People would like to use the advanced means and methods of management to do with the information which gets more and larger. A matter of course, staff train is the same want to improve their level of management and work. As a result, study and restudy come along with us from beginning to end. The train organization in it have been the important role that can't replace. In this situation, it is a problem for us to solve how to manage the staff train more efficient .In a word, it is indispensable to develop a perfect system of management of staff train. This article explains the detailed developed process and the use of tools opening up the objects in the platform of visual basic 6.0, expounding it scientificly and strictly in the direction of soft engineering.
Keyword：staff train；Management system；visual basic 6.0

目 录
摘要 i
Abstract i
第一章 前 言 4
1.1 本课题的意义 4
1.2 当前培训管理软件的现状 4
1.3 选择本课题的目的 4
第二章 开发运行环境及相关理论知识 5
2.1运行环境和开发工具及平台 5
2.2 相关理论知识 5
2.2.1 Visual Basic 6．0简介 5
2.2.2 关系型数据库--SQL 6
2.2.3 二者的结合——ADO 6
第三章 系统功能需求分析 7
3.1 员工信息管理功能需求 7
3.2 培训计划管理及效果评价功能需求 7
3.3 课程信息管理功能需求 8
3.4 用户查询管理功能需求 8
3.7 文件功能需求 8
第四章 系统总体设计方案 8
4.1 系统功能总体方案 8
4.2系统的目标 9
4.3 系统的设计思想 9
4.4 系统的功能模块结构 9
4.5 数据库的设计 10
4.5.1数据库需求分析 10
4.5.2数据库概念结构设计 11
4.5.3数据库逻辑结构设计 11
第五章 系统的具体设计 12
5.1 欢迎主界面及代码设计 12
5.2 登录界面及代码设计 13
5.3 系统主界面及代码设计 15
5.4 用户管理界面及代码设计 19

5.5 设置界面及代码设计 23
5.6 查询界面及代码设计 33
第六章 系统的测试与分析 36
6.1 系统测试测试策略说明 36
6.2. 用户登录界面、系统主界面的测试 37
6.2.1 课程信息管理功能的测试 37
6.3 系统性能分析 38
总结 39
参考文献 40
附录：公用类模块源代码 40
四川城市职业学院毕业论文任务书及开题报告 42
四川城市职业学院毕业论文指导与初评意见 43
四川城市职业学院毕业论文答辩记录表 46

第一章 前 言
1.1 本课题的意义
随着经济全球化发展、知识更新速度加快、国际企业的发展，企业员工培训将日益成为企业的一项重要业务。可以说，今后企业的竞争将是企业员工素质的竞争。因此，开发一个功能先进、完善的培训管理软件来辅助企业管理培训业务是增强企业竞争力的一项重要措施。
1.2 当前培训管理软件的现状
近年来，有关员工培训管理的软件很多。但大部分是培训中介组织的一项面向企业的服务，而且还是一些网络版本。比如，在美国有ASTD---American Society for Training and Development、The Distance and Education Training Council Online、TCM’s HR Careers、Resource Software 、Safety Software & Computer Based Training Software Skills Testing Software等；在国内，网络学校及其培训管理软件比较盛行。但真正由企业自身组织的员工培训，据调查的资料可知，到目前为止只有一些国外国企业以及在中国的跨国企业，拥有自己的员工培训管理软件，而且这些也只是作为企业其他软件的一个组成部分出现，如摩托罗拉的员工培训管理就是其人力资源管理软件的一个组成部分，且还只实现了员工个人信息管理很小的一部分功能。
在国内企业中，尽管领导们都认识到员工培训的重要性，也有一些企业采取了一些有益的措施。他们购买了计算机，也建立起自己的内部网，对员工培训管理采用了一些简单的应用程序，但离使用计算机系统和专门软件来管理还有一段距离。综上所述，无论在国内外，目前还没有一套比较完善的、专门的、适用于各种企业自己使用的企业员工培训管理软件。因此，研究开发出一套比较通用、功能比较完善的企业员工培训管理软件，力求在这一领域取得一些新的成果。
1.3 选择本课题的目的
企业在面临全球化、高质量、高效率的工作系统挑战中，培训管理显得更为重要。通过一个先进的、完善的员工培训管理系统，使企业的培训工作系统化、规范化、自动化，从而达到提高企业培训管理效率的目的。培训使员工的知识、技能与态度明显提高与改善，由此提高企业效益，获得竞争优势。具体体现在以下方面：

1.能提高员工的职业能力。
2.有利于企业获得竞争优势。
3.有利于改善企业的工作质量。
4.有利于高效工作绩效系统的构建。
5.满足员工实现自我价值的需要。
员工培训管理系统通过制定合理的培训计划，运用正确的方法收集相关的数据和信息，善于发现员工的绩效现状和公司管理层对员工的期望之间的差距，共同为提高企业绩效而努力。此外,计算机管理系统具有检索速度快、查找方便、可靠性高、保密性好等优点。因此，开发本系统具有重要的意义。
第二章 开发运行环境及相关理论知识
软件环境：Windows 98/2000/XP/win7。
硬件环境：Pentium 2 以上处理器。
2.1运行环境和开发工具及平台
软件环境：Windows 98/2000/XP/win7。
硬件环境：Pentium 2 以上处理器。
微软公司的Visual Basic 6．0。
分布式的关系型数据库管理系统--Microsoft SQL Server 2000。
2.2 相关理论知识
2.2.1 Visual Basic 6．0简介
微软公司的Visual Basic 6．0是Windows应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。
Microsoft Visual Basic，它提供了开发 Microsoft Windows(R) 应用程序的最迅速、最简捷的方法。不论是 Microsoft Windows 应用程序的资深专业开发人员还是初学者，Visual Basic 都为他们提供了整套工具，以方便开发应用程序。

数据访问特性允许对包括 Microsoft SQL Server 和其它企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。故而，实现本系统VB是一个较好的选择。
2.2.2 关系型数据库--SQL
信息技术的飞速发展大大推动了社会的进步，已经逐渐改变了人类的生活、工作、学习等方式。数据库技术和网络技术是信息技术中最重要的两大支柱。在当前热门的信息系统开发领域，Microsoft SQL Server 2000 由于不断采纳新技术来满足用户不断增长和变化的需求，该产品的功能越来越强大、系统的可靠性也越来越高，从而该产品的应用也越来越广泛。
SQL是结构化查询语言（Struture Query Language）的简称，是关系型数据库管理系统中最流行的数据查询和更新语言。用户可使用SQL语言在数据库中执行各种操作。SQL查询语言包括了所有对数据库的操作，这些操作可以分为四个部分：即数据定义语言、数据操纵语言、数据控制语言和嵌入式SQL 语言。
Microsoft SQL Server 2000 是一个分布式的关系型数据库管理系统，具有客户机/服务器体系结构，采用了一种称为：Transact-SQL的SQL语言在客户机和服务器之间传递客户机的请求和服务器的处理结果。
Microsoft SQL Server 2000是一个应用广泛的数据库管理系统，它为用户提供了一个完整的数据库解决方案，具有许多显著的优点，例如，用户喜欢的易用性、适合分布式组织的可伸缩性、用于决策支持的数据仓库功能、与许多其他服务器软件紧密关联的集成性、良好的性能价格比等。
Microsoft SQL Server 2000的高度可扩展性和高可靠性。Microsoft SQL Server 2000使用了业界最先进的数据结构，能够为要求最苛刻的Web应用和企业应用提供高度的可扩展性和高可靠性。Microsoft SQL Server 2000在许多工业基准测试中的性能都创立了新世界纪录。
2.2.3 二者的结合——ADO
ADO（ActiveX Data Objects）是微软提供的数据库访问技术,实际上是一种访问各种类型数据库的连接机制

。它被设计用来同新的数据访问层OLE DB Provider一起协同工作，以提供通用数据访问（Universal Data Access）能力。ADO设计为一种极简单的格式,通过ODBC的方法同数据库接口相连。用户可以使用任何一种ODBC数据源, 即不仅适合于SQl SERVER,Oracle,Access等数据库应用程序,也适合于Excel表格，文本文件，图形文件和无格式数据文件。ADO是基于OLE－DB之上的技术。因此ADO通过其内部的属性和方法提供统一的数据访问接口。
ADO集中了DAO和RDO的优点，可以使用相同的编程模式连接到不同的数据提供者，而不管给定提供者的特定特性，具有高度的灵活性。
第三章 系统功能需求分析
系统分析（又称逻辑设计）是管理信息系统开发的关键环节，要求在系统调查的基础上，对新系统的功能进行细致的分析，并建立一个新系统的逻辑模型。系统分析阶段主要任务是确定系统的总体设计方案、划分子系统功能、确定共享数据的组织，然后进行详细设计。员工培训管理系统功能需求主要有：员工信息管理功能、培训计划管理功能、课程信息管理功能、培训效果评价功能、查询管理功能、及使用系统的用户管理功能、还原数据和备份数据、帮助功能等。
3.1 员工信息管理功能需求
l 包括员工各种信息的输入和删除，包括员工基本信息、职称、岗位、已经培训过的课程和成绩、培训计划等。
l 员工各种信息的查询、修改，包括员工基本信息、职称、岗位、几经培训过的课程和成绩、培训计划等。
3.2 培训计划管理及效果评价功能需求
l 培训计划的制定，包括培训项目、时间、地点等。
l 培训计划的查询。
l 培训效果评价包括培训项目、及培训效果等。
l 培训项目效果查询。

3.3 课程信息管理功能需求
l 课程信息设置，包括课程基本信息和课程查询，如课程编号、名称、类型及课程描述等。
l 课程培训需求，包括课程需求分析、课程需求名称及需求删除等。
3.4 用户查询管理功能需求
l 查询管理功能包括培训计划查询、课程信息查询、成绩信息查询和员工信息查询。
l 用户管理包括用户添加、用户删除和密码修改等，用户权限分系统管理员、超级用户和普通用户。
3.7 文件功能需求
l 文件功能包括备份数据库、还原数据库、及用户注销、退出系统等。
第四章 系统总体设计方案
4.1 系统功能总体方案
我们采用面向对象的分析和设计方案，面向对象分析和面向对象设计之间有密切的衔接关系，从面向对象分析到面向对象设计是一个逐渐扩充模型的过程。分析处理是以问题为中心的，可以不考虑任何与特定计算机有关的问题，而面向对象设计则把我们带进了面向计算机的“实地”开发活动中去。通常，面向对象设计分为两个阶段：高层设计和低层设计。高层设计包括像用户界面那样的问题解决部分，低层设计集中于类的详细设计阶段。通常，利用面向对象设计得到的系统框架如图3-1所示：

图4-1 面向对象设计得到的系统框架图

4.2系统的目标
系统开发的总体任务是实现员工培训管理各种信息的系统化、规范化和自动化。 主要包括：
1、员工基本信息的查询,删除,修改和添加；
2、员工成绩信息的查询, 删除,修改和添加；
3、员工培训评价查询, 删除,修改和添加；
4、员工培训计划的信息和管理功能；
5、员工信息报表打印功能；
6、用户权限的管理和用户的添加,删除；
7、友好.方便.美观的界面设计。
4.3 系统的设计思想
实用性:在各项基本功能实用的上进一步开发完善系统；
先进性:简化代码去处冗余,引入先进的编译方式；
易用性:授权实体在需要时可以简单快捷的访问数据；
保密性:确保信息不暴露给未授权的实体或者进程；
系统性:将各功能模块有机融合成一个系统的整体。
培训管理系统
培训需求管理
培训计划管理　
基本信息管理
培训计划实施
培训效果评价
培训资源管理

系统管理

其他

课程信息管理
学员基本信息管理

成绩信息管理

用户

管理

权限

管理
4.4 系统的功能模块结构

图4-1 系统功能模块图

系统功能细分如图4-1所示，可概括分为5个模块，即：用户登录模块，添加修改模块，查询显示模块、数据录入模块、打印报表模块。
1)用户登录模块：完成用户身份的验证,设定指定用户的操作权限。
2)添加修改模块：完成各种对各种员工数据的添加和修改。
3)查询显示模块：根据不同的查询条件对数据进行挑选,进一步加工后加以显示。
4)数据录入模块：将录入数据保存到相应的数据库。
5)打印报表模块：将员工基本信息和培训计划等以报表的方式打印出来。
4.5 数据库的设计
在数据库应用系统的开发过程中，数据库的结构设计是一个非常重要的问题。数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响，好的数据库结构设计会减少数据库的存储量，数据的完整性和一致性比较高，系统具有较快的响应速度，简化基于此数据库的应用程序的实现等。
在数据库系统开始设计的时候我们应该尽量考虑全面，尤其应该仔细考虑用户的各种需求，避免浪费人力和物力。
4.5.1数据库需求分析
数据库需求分析是数据库结构设计的第一个阶段，是非常重要的一个阶段。在这个阶段主要是收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为以后进一步设计打下基础。
在经过仔细调查研究企业员工培训管理过程的基础上，我们得到本系统所处理的数据流如图4－2所示。

图4-2　数据流程图

4.5.2数据库概念结构设计
这一设计阶段是在需求分析的基础上，设计出能够满足用户需求的各种褓，以及它们之间的关系，为后面的逻辑结构设计打下基础。
由上面的设计规划出的实体有：部门实体、员工实体、课程实体、资源实体。
实体和实体之间的关系E－R图如图4－3所示。

图4-3　实体之间关系E－R图
4.5.3数据库逻辑结构设计
数据库共包括7个表，具体数据字典见表1-7。
表4-1 course_info 课程信息表
属性名
数据类型
大小
允许空
说明
Course_No
Int
4
否
课程号
Course_Name
Char
10
是
课程名
Course_Type
Char
10
是
课程类型
Course_Des
Char
15
是
课程注释
表4-2 course_need 培训需求分析表
属性名
数据类型
大小
允许空
说明
Course_Name
Char
10
否
培训课程名
Course_Des
Varchar
50
是
培训需求
表4-3 plan_info 培训计划表
属性名
数据类型
大小
允许空
说明
Project
Char
10
否
培训项目
Time
Datetime
8
是
培训时间
Place
Char
10
是
培训地点
表4-4 result_info员工成绩表
属性名
数据类型
大小
允许空
说明
Exam_no
Char
10
否
考试编号
Student_id
Int
4
是
员工号

Student_name
Char
10
是
员工名
Course_no
Int
4
是
课程号
Course_name
Char
10
是
课程名
Result
Float
8
是
成绩
表4-5 student_info员工基本信息表
属性名
数据类型
大小
允许空
说明
Student_id
Int
4
否
员工号
Student_name
Char
10
是
员工名
Student_sex
Char
2
是
性别
Birth_date
Datetime
8
是
出生日期
Depart
Char
10
是
部门
Tele_number
Char
10
是
电话号码
In_date
Datetime
8
是
就职日期
Address
varChar
50
是
家庭地址
Comment
varChar
100
是
注释
表4-6 trainresult_info员工培训评价表
属性名
数据类型
大小
允许空
说明
Pro
char
10
否
培训项目
Effect
Varchar
50
是
培训效果评价
表4-7 user_info 用户密码表
属性名
数据类型
大小
允许空
说明
user_id
Char
10
否
用户id
user_pwd
Char
10
是
用户密码
user_name
Char
10
是
用户名
user_level
Int
4
是
权限等级
user_des
Char
10
是
用户描述
第五章 系统的具体设计
5.1 欢迎主界面及代码设计
运行员工培训管理系统后，首先将出现欢迎主界面，如下图。

图5-1 欢迎主界面
欢迎主界面实现的代码设计如下：
Dim DelayTime As Integer ’定义计时器
Private Sub Form_Load()
DelayTime = 0
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If DelayTime > 3 Then ’延迟三秒载入登录界面
Timer1.Enabled = False
Load FrmLogin
FrmLogin.Show
Unload Me
Else
DelayTime = DelayTime + 1
End If
End Sub
5.2 登录界面及代码设计

图5-2 登录界面

登录界面实现的代码设计如下：
Dim MyLogin As OpenRs ’定义变量
Dim UseridSQL As String
Dim Level As Integer
Public CurrentUser As String
Private Sub Cmdcancel_Click() ’取消按钮命令
Unload Me ’释放当前表
End Sub
Private Sub cmdOK_Click() ’确定密码命令
If txtUserID.Text = "administrator" And txtPass.Text = "" Then
Unload Me
FrmMain.Show
Exit Sub
End If ’如权限符合,准予登陆
If txtUserID.Text = "" Then
MsgBox "请输入用户编号！", vbOKOnly + vbInformation, "用户登陆"
txtUserID.SetFocus
Exit Sub ’用户为空时提示,聚焦
Else
UseridSQL = "select * from User_Info where user_Id='" & txtUserID.Text & "'"
’用户非空时启用数据库链接
MyLogin.rsDK1 UseridSQL ’把sql语句传给函数
If MyLogin.rs1.EOF = False Then ’列表未到底从数据库中取值
txtUserName.Text = Trim(MyLogin.rs1!user_name)
Level = MyLogin.rs1!user_level
If txtPass.Text = Trim(MyLogin.rs1!user_pwd) Then ’密码符合
CurrentUser = Trim(MyLogin.rs1!user_name)
Call DisplayMenu
Unload Me
FrmMain.Show ’载入主界面
Else MsgBox "密码错误！" & vbCrLf & vbCrLf & "请重新输入！", vbOKOnly + vbInformation, "用户登陆" ’ 密码错误提示
txtPass.Text = ""
txtPass.SetFocus
Exit Sub
End If
Else
MsgBox "用户编号不存在！" & vbCrLf & vbCrLf & "请重新输入！", vbOKOnly + vbInformation, "用户登陆" ’ 用户不存在提示,清空聚焦
txtUserID.Text = ""
txtUserID.SetFocus
Exit Sub
End If
End If

End Sub
Private Sub Form_Load()
Set MyLogin = New OpenRs ’引用类函数
End Sub
Private Sub txtPass_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then ’输密码时回车确定
Call cmdOK_Click
End If
End Sub
Private Sub txtUserId_Change() ’用户名改变文本框清空
txtPass.Text = ""
txtUserName.Text = ""
End Sub
Private Sub txtUserId_LostFocus() ’焦点从用户id转移时从数据库读入用户名
UseridSQL = "select * from User_Info where user_Id='" & txtUserID.Text & "'"
MyLogin.rsDK1 UseridSQL
If MyLogin.rs1.EOF = False Then
txtUserName.Text = Trim(MyLogin.rs1!user_name)
End If
End Sub
Private Sub DisplayMenu() ’ 设置用户不同等级的访问权限,不够等级隐藏
If Level = 2 Then
FrmMain.mnuBackUpDB.Visible = False
FrmMain.mnuRestoreDB.Visible = False
FrmMain.mnuAddUser.Visible = False
FrmMain.mnuDeleteUser.Visible = False
ElseIf Level = 3 Then
FrmMain.mnuBackUpDB.Visible = False
FrmMain.mnuRestoreDB.Visible = False
FrmMain.mnuUserManage.Visible = False
FrmMain.mnuGrade.Visible = False
FrmMain.mnuClass.Visible = False
FrmMain.mnuCourseInfo.Visible = False
FrmMain.mnuStudentInfo.Visible = False
FrmMain.mnuResult.Visible = False
End If
End Sub
5.3 系统主界面及代码设计
用户登录后，将进入系统主界面，如下图：

图5-3 系统主界面
系统主界面实现的代码设计如下：
Dim Myinfo As String ’定义变量
Dim success As Long
Private Declare Function htmlhelp Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long
Private Sub MDIForm_Load()
Set Classprint = New OpenRs ’调用类函数
Timer1.Enabled = True
Dim mypanel As Panel
Set mypanel = StatusBar1.Panels.Add(1, , , sbrDate) '状态栏1显示日期
Set mypanel = StatusBar1.Panels.Add(2) '状态栏2显示星期几
Call MyWeekDay
Set mypanel = StatusBar1.Panels.Add(3)
StatusBar1.Panels(3).Text = "当前用户：" & FrmLogin.CurrentUser
mypanel.AutoSize = sbrContents
Set mypanel = StatusBar1.Panels.Add(4) '状态栏3显示文本消息
mypanel.AutoSize = sbrSpring
End Sub
Private Sub mnuAbout_Click() ’设置说明
ShellAbout Me.hwnd, "员工培训管理系统", "版权所有(C)2005.6" & vbCrLf & "开发:yeao", Me.Icon
End Sub
Private Sub mnuAddResult_Click() ’以下定义菜单点击触发各模块
Frmresult.Show
End Sub
Private Sub mnuClassQuery_Click()
FrmClassQuery.Show

End Sub
Private Sub mnuCourseQuery_Click()
FrmCourseQuery.Show
End Sub
Private Sub mnuResultQuery_Click()
FrmResultQuery.Show
End Sub
Private Sub mnuSchoolSet_Click()
FrmSchoolInfo.Show
End Sub
Private Sub mnuSetClass_Click()
FrmClassInfo.Show
End Sub
Private Sub mnuAddStudentInfo_Click()
FrmAddStudentInfo.Show
End Sub
Private Sub mnuAddUser_Click()
FrmAddUser.Show
End Sub
Private Sub mnuBackUpDB_Click()
FrmBackUp.Show
End Sub
Private Sub mnuDeleteUser_Click()
FrmDelUser.Show
End Sub
Private Sub mnuModiPwd_Click()
FrmModiPass.Show
End Sub
Private Sub mnuExit_Click() ’设置退出系统
If MsgBox("要退出系统吗？", vbYesNo + vbInformation, "退出") = vbYes Then
Unload FrmMain
End If
End Sub
Private Sub mnuLogoff_Click() ’ 设置注销系统
If MsgBox("要注销系统吗？", vbYesNo + vbInformation, "注销") = vbYes Then
Unload FrmMain
FrmLogin.Show
End If
End Sub
Private Sub mnuRestoreDB_Click()
If MsgBox("是否现在就执行还原数据库的操作？", vbYesNo + vbInformation, "还原数据库") = vbYes Then
success = WritePrivateProfileString("BackUp", "Restore", "True", App.Path & "\备份.ini")

Unload Me
Shell "Restore.exe"
End If
End Sub
Private Sub mnuSetCourse_Click()
FrmGradecourse.Show
End Sub
Private Sub mnuSetCourseInfo_Click()
FrmCourse.Show
End Sub
Private Sub mnuSetGrade_Click()
FrmGradeInfo.Show
End Sub
Private Sub mnuStudentQuery_Click()
FrmStuInfoQuery.Show
End S