员工培训管理系统.doc

毕业设计员工培训管理系统学生姓名系部名称系专业班级班学 号指导教师教务处二一一年三月摘要随着人类社会的发展，社会不断的在进步，对知识的渴望越来越大，人类已经逐步进入信息化社会。信息增长的速度越来越快，人们希望利用先进的管理理论方法和手段来处理越来越多的信息，员工培训也是其中一组成部分，想以提高工作管理水平。因此，学习与再学习始终伴随着我们，其中有关的培训机构有着不可替代的作用，在这种形势下，如何更好的对培训工作进行管理，就成了我们需要解决的一个问题，因此，开发一套完善的员工培训管理系统就成不可少了，本文介绍了在visual basic 6.0环境下利用其提供的各种面向对象的开发工具开发本系统的详细过程，从软件工程的角度进行了科学而严谨的阐述。关键词：员工培训；管理系统；visual basic 6.0Abstract 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 cant 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目 录摘要iAbstracti第一章 前 言41.1 本课题的意义41.2 当前培训管理软件的现状41.3 选择本课题的目的4第二章 开发运行环境及相关理论知识52.1运行环境和开发工具及平台52.2 相关理论知识52.2.1 Visual Basic 60简介52.2.2 关系型数据库-SQL62.2.3 二者的结合ADO6第三章 系统功能需求分析73.1 员工信息管理功能需求73.2 培训计划管理及效果评价功能需求73.3 课程信息管理功能需求83.4 用户查询管理功能需求83.7 文件功能需求8第四章 系统总体设计方案84.1 系统功能总体方案84.2系统的目标94.3 系统的设计思想94.4 系统的功能模块结构94.5 数据库的设计104.5.1数据库需求分析104.5.2数据库概念结构设计114.5.3数据库逻辑结构设计11第五章 系统的具体设计125.1 欢迎主界面及代码设计125.2 登录界面及代码设计135.3 系统主界面及代码设计155.4 用户管理界面及代码设计195.5 设置界面及代码设计235.6 查询界面及代码设计33第六章 系统的测试与分析366.1 系统测试测试策略说明366.2. 用户登录界面、系统主界面的测试376.2.1 课程信息管理功能的测试376.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、TCMs 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 60。分布式的关系型数据库管理系统-Microsoft SQL Server 2000。2.2 相关理论知识2.2.1 Visual Basic 60简介 微软公司的Visual Basic 60是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 二者的结合ADOADO（ActiveX Data Objects）是微软提供的数据库访问技术,实际上是一种访问各种类型数据库的连接机制。它被设计用来同新的数据访问层OLE DB Provider一起协同工作，以提供通用数据访问（Universal Data Access）能力。ADO设计为一种极简单的格式,通过ODBC的方法同数据库接口相连。用户可以使用任何一种ODBC数据源, 即不仅适合于SQl SERVER,Oracle,Access等数据库应用程序,也适合于Excel表格，文本文件，图形文件和无格式数据文件。ADO是基于OLEDB之上的技术。因此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数据库需求分析数据库需求分析是数据库结构设计的第一个阶段，是非常重要的一个阶段。在这个阶段主要是收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为以后进一步设计打下基础。在经过仔细调查研究企业员工培训管理过程的基础上，我们得到本系统所处理的数据流如图42所示。图4-2数据流程图4.5.2数据库概念结构设计这一设计阶段是在需求分析的基础上，设计出能够满足用户需求的各种褓，以及它们之间的关系，为后面的逻辑结构设计打下基础。由上面的设计规划出的实体有：部门实体、员工实体、课程实体、资源实体。实体和实体之间的关系ER图如图43所示。图4-3实体之间关系ER图4.5.3数据库逻辑结构设计数据库共包括7个表，具体数据字典见表1-7。表4-1 course_info 课程信息表属性名数据类型大小允许空说明Course_NoInt4否课程号Course_NameChar10是课程名Course_TypeChar10是课程类型Course_DesChar15是课程注释表4-2 course_need 培训需求分析表属性名数据类型大小允许空说明Course_NameChar10否培训课程名Course_DesVarchar50是培训需求表4-3 plan_info 培训计划表属性名数据类型大小允许空说明ProjectChar10否培训项目TimeDatetime8是培训时间PlaceChar10是培训地点表4-4 result_info员工成绩表属性名数据类型大小允许空说明Exam_noChar10否考试编号Student_idInt4是员工号Student_nameChar10是员工名Course_noInt4是课程号Course_nameChar10是课程名ResultFloat8是成绩表4-5 student_info员工基本信息表属性名数据类型大小允许空说明Student_idInt4否员工号Student_nameChar10是员工名Student_sexChar2是性别Birth_dateDatetime8是出生日期DepartChar10是部门Tele_numberChar10是电话号码In_dateDatetime8是就职日期AddressvarChar50是家庭地址CommentvarChar100是注释表4-6 trainresult_info员工培训评价表属性名数据类型大小允许空说明Prochar10否培训项目EffectVarchar50是培训效果评价表4-7 user_info 用户密码表属性名数据类型大小允许空说明user_idChar10否用户iduser_pwdChar10是用户密码user_nameChar10是用户名user_levelInt4是权限等级user_desChar10是用户描述第五章 系统的具体设计5.1 欢迎主界面及代码设计运行员工培训管理系统后，首先将出现欢迎主界面，如下图。图5-1 欢迎主界面欢迎主界面实现的代码设计如下：Dim DelayTime As Integer 定义计时器Private Sub Form_Load()DelayTime = 0Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()If DelayTime 3 Then 延迟三秒载入登录界面 Timer1.Enabled = False Load FrmLogin FrmLogin.Show Unload MeElse DelayTime = DelayTime + 1End IfEnd Sub5.2 登录界面及代码设计图5-2 登录界面登录界面实现的代码设计如下：Dim MyLogin As OpenRs 定义变量Dim UseridSQL As StringDim Level As IntegerPublic CurrentUser As StringPrivate Sub Cmdcancel_Click() 取消按钮命令Unload Me 释放当前表End SubPrivate Sub cmdOK_Click() 确定密码命令If txtUserID.Text = administrator And txtPass.Text = Then Unload Me FrmMain.Show Exit SubEnd 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 ElseMsgBox 用户编号不存在！ & vbCrLf & vbCrLf & 请重新输入！, vbOKOnly + vbInformation, 用户登陆 用户不存在提示,清空聚焦 txtUserID.Text = txtUserID.SetFocus Exit Sub End IfEnd IfEnd SubPrivate Sub Form_Load() Set MyLogin = New OpenRs 引用类函数End SubPrivate Sub txtPass_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then 输密码时回车确定 Call cmdOK_ClickEnd IfEnd SubPrivate Sub txtUserId_Change() 用户名改变文本框清空txtPass.Text = txtUserName.Text = End SubPrivate 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 IfEnd SubPrivate Sub DisplayMenu() 设置用户不同等级的访问权限,不够等级隐藏 If Level = 2 Then FrmMain.mnuBackUpDB.Visible = False FrmMain.mnuRestoreDB.Visible = False FrmMain.mnuAddUser.Visible = False FrmMain.mnuDeleteUser.Visible = FalseElseIf 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 = FalseEnd IfEnd Sub5.3 系统主界面及代码设计用户登录后，将进入系统主界面，如下图：图5-3 系统主界面系统主界面实现的代码设计如下：Dim Myinfo As String 定义变量Dim success As LongPrivate 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 LongPrivate Sub MDIForm_Load() Set Classprint = New OpenRs 调用类函数Timer1.Enabled = TrueDim mypanel As PanelSet mypanel = StatusBar1.Panels.Add(1, , , sbrDate) 状态栏1显示日期Set mypanel = StatusBar1.Panels.Add(2) 状态栏2显示星期几Call MyWeekDaySet mypanel = StatusBar1.Panels.Add(3)StatusBar1.Panels(3).Text = 当前用户： & FrmLogin.CurrentUsermypanel.AutoSize = sbrContentsSet mypanel = StatusBar1.Panels.Add(4) 状态栏3显示文本消息mypanel.AutoSize = sbrSpringEnd SubPrivate Sub mnuAbout_Click() 设置说明ShellAbout Me.hwnd, 员工培训管理系统, 版权所有(C)2005.6 & vbCrLf & 开发:yeao, Me.IconEnd SubPrivate Sub mnuAddResult_Click() 以下定义菜单点击触发各模块Frmresult.ShowEnd SubPrivate Sub mnuClassQuery_Click()FrmClassQuery.ShowEnd SubPrivate Sub mnuCourseQuery_Click()FrmCourseQuery.ShowEnd SubPrivate Sub mnuResultQuery_Click()FrmResultQuery.ShowEnd SubPrivate Sub mnuSchoolSet_Click()FrmSchoolInfo.ShowEnd SubPrivate Sub mnuSetClass_Click()FrmClassInfo.ShowEnd SubPrivate Sub mnuAddStudentInfo_Click()FrmAddStudentInfo.ShowEnd SubPrivate Sub mnuAddUser_Click()FrmAddUser.ShowEnd SubPrivate Sub mnuBackUpDB_Click()FrmBackUp.ShowEnd SubPrivate Sub mnuDeleteUser_Click()FrmDelUser.ShowEnd SubPrivate Sub mnuModiPwd_Click()FrmModiPass.ShowEnd SubPrivate Sub mnuExit_Click() 设置退出系统If MsgBox(要退出系统吗？, vbYesNo + vbInformation, 退出) = vbYes Then Unload FrmMainEnd IfEnd SubPrivate Sub mnuLogoff_Click() 设置注销系统If MsgBox(要注销系统吗？, vbYesNo + vbInformation, 注销) = vbYes Then Unload FrmMain FrmLogin.ShowEnd IfEnd SubPrivate Sub mnuRestoreDB_Click()If MsgBox(是否现在就执行还原数据库的操作？, vbYesNo + vbInformation, 还原数据库) = vbYes Then success = WritePrivateProfileString(BackUp, Restore, True, App.Path & 备份.ini)Unload MeShell Restore.exeEnd IfEnd SubPrivate Sub mnuSetCourse_Click()FrmGradecourse.ShowEnd SubPrivate Sub mnuSetCourseInfo_Click()FrmCourse.ShowEnd SubPrivate Sub mnuSetGrade_Click()FrmGradeInfo.ShowEnd SubPrivate Sub mnuStudentQuery_Click()FrmStuInfoQuery.ShowEnd S