员工培训管理实现与设计毕业论文

员工培训管理系统 题目员工培训管理系统 姓名 专业 计算机科学与技术 指导教师 学校大学 日期 员工培训管理系统 第一章1.1 总体需求调查 1.1. 1 组织结构图 1.1.2 系统目标 1.1.3 应用现状调查 1.1.4 总体流程 1.2员工信息管理 1.2. 1 员工信息管理 1.2.2 员工培训需求 1.2.3 操作员管理 目录 1.2.4 系统帮助功能 第二章 2.1 概念设计 2.2 对数据库链接设计 第三章详细设计 3.1 启动界面设计 3.2 主界面 3.3 员工基本信息及管理 3.4 员工培训需求 3.5 计划修改 3.6 操作员设置 3.7 权限设置 3.8 数据备份 3.9 数据恢复 3.10 初始化 第四章 测试及性能分析 第五章 结束语 第六章 参考文献 员工培训管理系统 摘要 随着计算机技术的飞速发展， 计算机在企业管理中应用的普及， 利用计算机实现一个对员工 培训管理操作势在必行。 近年来，随着改革开放步伐的加快和中西方文化的交流， 特别是中 国加入 WTO，各种公司都将面临巨大的挑战，只有公司的每个员工都具备更好的技术，最 新的知识，才能在改革开放的浪潮中处于不败之地。 如何对员工培训进行管理， 这需要一个 适应自己的管理系统。只有这样才能使公司不被淘汰。 使用本系统，不仅使公司更加方便的 管理员工、培养员工，也不会发生员工重复培训， 没培训等等错误。避免发生不应该发生的 事情。 本系统结合台州地区的公司情况、员工知识结构，员工的年龄结构，小公司的普遍性， 加上电脑界面的友好性，经过实际的需求分析，采用功能强大的Visual Basic 6.0 工具开 发员工培训管理系统。 整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，完成对员工管理系统 的操作员管理，包括系统用户管理、权限管理、数据备份、数据恢复、系统初始化。员工各 种信息的输入，包括员工基本信息、职称、岗位、已经培训过的课程和成绩、培训计划等。 员工各种信息的查询、修改，包括员工基本信息、职称、岗位、已经培训过的课程和成绩、 培训计划等。企业所有员工培训需求的管理。企业培训计划的制定、修改、使用帮助。 经过实际使用证明， 本文所设计的员工培训管理系统可以满足台州以及全国各地区的各种小 型公司员工的培训管理， 操作方面的需要。论文主要介绍了本课题的开发背景， 所要完成的 功能和开发的过程。重点的说明了系统设计的重点、设计思想、难点技术和解决方案。 关键字：员工培训、课程设置、管理系统。 员工培训管理系统 第一章第一章 1.1 总体需求调查 1.1.1 组织结构图员工培训管理系统组织结构图如下： 员工各种信息的输入，包括员工基本信息、职称、岗位、已经培训过的课程和成 绩、 培训计划等。 员工各种信息的查询、修改，包括员工基本信息、职称、岗位、已经培训过的课 程和成绩、培训计划等。 企业所有员工培训需求的管理。 企业培训计划的制定、修改 系统用户管理、权限管理、数据备份、数据恢复、系统初始化 使用帮助 1.1.2 系统目标 面对信息化时代及其发展过程中出现的各种情况，员工培训管理系统在实施后达到以下目 标： 1 实现多点操作的信息共享， 相互之间传递准确、快捷、顺畅。 2.全面自动化的管理,可随时掌握员工各种信息及培训的各种情况等等。 3.能够快捷、准确处理员工是否培训，处理各种资源、教材、教师等信息。 4.系统界面友好美观，操作简单易行，查询、修改等操作灵活方便，数据存储安全可靠。 5.系统维护安全， 方便，可靠，并且能够满足实用性、先进性的要求。 1.1.3 应用现状调查 目前，企业员工培训管理都是人工管理。 各方面都是的人工操作， 这样不仅浪费人员且操作 不方便，不能满足企业的需求，而且不能满足当前台州中小企业的发展需要。 1.1.4总体流程： 开始进入的进入界面,再进入主界面进行各种操作,包括操作员设置、系统用户管理、 权限管理、数据备份、数据恢复、系统初始化等一系列操作。 1.21.2 员工信息管理员工信息管理 整个系统从总体上分为员工信息管理、员工培训需求、操作员管理、帮助四大部分，每 一部分应实现的功能. 1.2.1 员工信息管理 员工基本信息的输入，包括姓名、岗位、性别、已培训课程、出生年月、成绩、职称、 培训计划等基本信息。 员工信息的维护：包括添加、修改、删除、查找等。 员工基本信息的查找：按姓名，岗位，职称。查找包括姓名、岗位、性别、已培训课程、 出生年月、成绩、职称、培训计划等基本信息。 员工培训管理系统 1.2.2 员工培训需求 员工培训需求的输入，包括课程，教师，人数，地点，备注。 员工培训需求的维护：包括添加、修改、删除、查找等。 员工培训需求的查找：按课程，培训教师，培训地点，查找包括课程，教师，人数，地 点，备注等基本信息。 1.2.3 操作员管理 操作员管理的输入：包括操作员设置，权限设置，数据备份，数据恢复，初始化。 操作员管理的维护：包括添加、修改等 权限设置：包括操作员删除、权限添加等。 数据备份：把当前的数据库文件 b.mdb 保存为今天的日期 b.mdb 数据恢复：把当前的数据库文件恢复为以前的文件。 初始化：把员工基本信息、教师评价、教师信息管理、课程管理、培训需求 等数据表内的内容清空。 1.2.4 系统帮助功能系统帮助功能 可以通过上面的控件发可以通过上面的控件发 EmailEmail 到我的邮箱。到我的邮箱。 员工培训管理系统 第二章 2.12.1 概念设计概念设计 概要设计基础是完成需求分析后提供的需求说明书，用概念数据模型表示数据及其相 互间的关系，这种数据模型是与 DBMS 无关的、面向现实世界的、易如理解的数据模型， 其独立于计算机的数据模型，独立于计算机的软硬件系统，与用户进行交流十分方便。 概念性数据模型关心的是如何完整、正确地反映客观实际情况，不关心在数据库中如 何实现。 这种数据模式能真实地反应用户要求的实际情况， 是一种容易被人们理解的直观的 数据库结构模式。同时也是一种相对稳定统一的数据模式， 一般情况下很少变动。概念性数 据在用户和设计者之间建立了桥梁。是设计数据库结构的基础。 概念设计中自顶向下的实体分析方法，即常用的实体联系模型（简称 E-R 模型） ，对具 体数据进行抽象加工， 将实体集合抽象成实体类型。 用实体间联系反映现实世界事物间的内 在联系。E-R 模型是建立概念性数据模型的有力工具。 通过对员工信息管理系统内容过程的分析，本系统应设计的实体和属性如下： 员工信息管理（包括员工基本信息，信息管理）员工信息管理（包括员工基本信息，信息管理） 培训需求管理（员工培训需求，计划修改）培训需求管理（员工培训需求，计划修改） 操作员管理（操作员管理（操作员管理、权限管理、数据备份、数据恢复、系统初始化） 帮助（通过发帮助（通过发 EmailEmail 进行帮助）进行帮助） 2.22.2 对数据库链接设计对数据库链接设计 作为 Microsoft 公司的数据库，Access 数据库在 Visual Basic 6.0中的应用非常广泛，为 此我选用 Access 数据库来进行数据库的逻辑设计。 根据前面定义的实体及实休之间的关系， 形成数据库的表格以及各个表之间的关系。 在控制面板中进行数据源设置。如下： 员工培训管理系统 在在 控控 制制 面面 板板 中中 双双 击击ODBCODBC数数 据据 源源 （ 3232位位 ），）， 进进 入入 如如 下下 ： 点击“添加” ，进入如下： 员工培训管理系统 选中MicrosoftAccessDriver(*.mdb)单击完成，如下： 在数据源名中填写 a,单击选取选择 b.mdb，最后确定。 在 vb 数据源连接中如下：而Gatagird 的 datasource 的属性值为 Adodc 这个控件 用以下代码：Dim mycon As New ADODB.Connection定义 Connection 对象，连接数据库 Dim myrs As New ADODB.Recordset定义 Recordset 对象，操作数据 mycon.Open dsn=a打开数据库 myrs.Open kcpj, mycon, 3, 2打开表 kcpj,3,2代表打开的表可 读可写 员工培训管理系统 为了减少数据冗余度，将表设置包括操作员 qxsz(操作员，密码等)，员工基本信息表 ygg, 员工培训计划 ph,计划修改 jh 表。 操作员设置 qxsz 表： a 员工培训管理系统 其它略。 员工培训管理系统 第三章第三章 详细设计详细设计 根据需求分析、概要设计的结果，采用根据需求分析、概要设计的结果，采用 VisualVisual BasicBasic 6.06.0 做为开发工具，实现员工培训管做为开发工具，实现员工培训管 理系统各模块的功能。理系统各模块的功能。 3.13.1 启动界面设计：启动界面设计： Option Explicit Dim mycon As New ADODB.Connection Dim myrs As New ADODB.Recordset Dim TIM As Integer Dim myval As String Private Sub cmd1_Click() main.StatusBar1.Panels(4).Text = Text1.BoundText Adodc1.RecordSource = select * from qxsz where 操作员= & Text1.BoundText & Adodc1.Refresh If Text1.BoundText And Text2.Text And Text2.Text = Adodc1.Recordset.Fields( 密 码) Then main.Show Unload Me Else If TIM = 2 Then myval = MsgBox(密码输入错误,请向系统管理员查询!) If myval = vbOK Then End End If 员工培训管理系统 If Text1.BoundText = Then MsgBox (请输入操作员!) Text1.SetFocus Else If Text1.BoundText Adodc1.Recordset.Fields( 操作员) Then MsgBox (查无此操作员,请重新输入操作员!) Text1.SetFocus Else If Text2.Text = Then MsgBox (请输入操作员密码!) Text2.SetFocus Else If Text2.Text Adodc1.Recordset.Fields( 密码) Then MsgBox (密码错误,请重新输入密码!) TIM = TIM + 1 Text2.SetFocus End If End If End If End If End If End Sub Private Sub cmd2_Click() End End Sub Private Sub Form_Activate() mycon.Open dsn=a myrs.Open qxsz, mycon, 3, 2 If myrs.RecordCount = 0 Then MsgBox (请先设置操作员密码和权限！) Load main main.Show Unload Me End If End Sub Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then cmd1.SetFocus End Sub 进入员工培训管理系统必须有操作员及密码。 当数据库中无这个操作员时， 会有查无此操作 员,请重新输入操作员!这个提示框。 当操作员及密码输入框为空时会弹出请输入操作员!及请 输入操作员密码!等等。 32 主界面 员工培训管理系统 部份代码如下： Private Sub dt3_Click() Unload Me sjbf.Show End Sub Private Sub fdfsa_Click() Unload Me csh.Show End Sub Private Sub fg_Click() Unload Me zycx.Show End Sub Private Sub Form_Activate() With Data1.Recordset If .BOF = False Then .MoveFirst .FindFirst 操作员 like + Chr(34) + StatusBar1.Panels(4).Text + Chr(34) + If .NoMatch Then Else fdfsa.Enabled = czysz.Enabled = Data1.Recordset.Fields(初始化) kk.Enabled = Data1.Recordset.Fields(操作员设置) l.Enabled = True ds.Enabled = Data1.Recordset.Fields(计划制定、修改) jj.Enabled = Data1.Recordset.Fields(教师基本信息) jhd.Enabled = Data1.Recordset.Fields(教师评价) sd.Enabled = Data1.Recordset.Fields(课程评价) sa.Enabled = Data1.Recordset.Fields(培训课程管理) da.Enabled = Data1.Recordset.Fields(员工培训需求) hu.Enabled = Data1.Recordset.Fields(培训教材管理) kl.Enabled = Data1.Recordset.Fields(权限设置) dt3.Enabled = Data1.Recordset.Fields(数据备份) 员工培训管理系统 gfdg.Enabled = Data1.Recordset.Fields(数据恢复) ii.Enabled = Data1.Recordset.Fields(外出培训管理) aa.Enabled = Data1.Recordset.Fields(员工基本信息) au.Enabled = Data1.Recordset.Fields(员工信息管理) fg.Enabled = Data1.Recordset.Fields(培训资源管理) End If End With End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path & b.MDB End Sub 在这里会进行分辨该操作员具有怎样的权限。 3.3 员工基本信息及管理 Private Sub cmd1_Click() Dim mycon As New ADODB.Connection Dim myrs As New ADODB.Recordset mycon.Open dsn=a myrs.Open ygg, mycon, 3, 2 If Text1.Text = Or Text2.Text = Or Text4.Text = Or Text5.Text = Then MsgBox (不能为空！) Exit Sub End If myrs.AddNew myrs.Fields(姓名) = Trim(Text1.Text) myrs.Fields(岗位) = Trim(Text2.Text) myrs.Fields(性别) = Trim(Combo1.Text) myrs.Fields(已培训课程) = Trim(Combo3.Text) myrs.Fields(出生年月) = Trim(Text4.Text) myrs.Fields(成绩) = Trim(Text5.Text) myrs.Fields(职称) = Trim(Combo2.Text) myrs.Fields(培训计划) = Trim(Text7.Text) myrs.Update myrs.Close mycon.Close MsgBox 添加成功！ Adodc1.Refresh DataGrid1.Refresh yggsz.Adodc1.Refresh yggsz.DataGrid1.Refresh End Sub Private Sub cmd2_Click() Text1.Text = : Text2.Text = : Text4.Text = : Text5.Text = End Sub Private Sub cmd3_Click() 员工培训管理系统 Me.Hide main.Show End Sub Private Sub Combo4_click() If Combo4.Text = 第一阶段 Then Combo3.AddItem (语文) Combo3.AddItem (数学) Combo3.AddItem (英语) Combo3.AddItem (物理) ElseIf Combo4.Text = 第二阶段 Then Combo3.AddItem (大学语文) Combo3.AddItem (大学数学) Combo3.AddItem (大学英语) Combo3.AddItem (大学物理) ElseIf Combo4.Text = 第三阶段 Then Combo3.AddItem (计算机基础) Combo3.AddItem (C+语言) Combo3.AddItem (电路基础) Combo3.AddItem (操作系统) ElseIf Combo4.Text = 第四阶段 Then Combo3.AddItem (微机技术) Combo3.AddItem (C语言) Combo3.AddItem (Java 语言) Combo3.AddItem (软件工程) End If End Sub Private Sub Form_Load() Combo1.AddItem (男) Combo1.AddItem (女) Combo2.AddItem (教授) Combo2.AddItem (副教授) Combo2.AddItem (助教) Combo4.AddItem (第一阶段) Combo4.AddItem (第二阶段) Combo4.AddItem (第三阶段) Combo4.AddItem (第四阶段) End Sub Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii = 33 Then If KeyAscii = vbKey0 Then Else KeyAscii = 0 MsgBox 只能输入数字！ 员工培训管理系统 End If End If End Sub Option Explicit Dim i As Integer Dim mycon As New ADODB.Connection Dim myrs As New ADODB.Recordset Private Sub cmd1_Click() Adodc1.RecordSource = select * from ygg where (ygg. & Combo1.Text & like + + Text8.Text + +%) Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then z(0).Text = Adodc1.Recordset.Fields( 姓名) z(1).Text = Adodc1.Recordset.Fields( 岗位) z(2).Text = Adodc1.Recordset.Fields( 性别) z(3).Text = Adodc1.Recordset.Fields( 已培训课程) z(4).Text = Adodc1.Recordset.Fields( 出生年月) Text1.Text = Adodc1.Recordset.Fields( 成绩) z(6).Text = Adodc1.Recordset.Fields( 职称) z(7).Text = Adodc1.Recordset.Fields( 培训计划) Else: z(0).Text = : z(1).Text = : z(2).Text = : z(3).Text = : z(4).Text = : Text1.Text = : z(6).Text = : z(7).Text = End If End Sub 员工培训管理系统 Private Sub cmd2_Click() Dim mycon As New ADODB.Connection Dim myrs As New ADODB.Recordset mycon.Open dsn=a myrs.Open ygg, mycon, 3, 2 myrs.Fields(姓名) = Trim(z(0).Text) myrs.Fields(岗位) = Trim(z(1).Text) myrs.Fields(性别) = Trim(z(2).Text) myrs.Fields(已培训课程) = Trim(z(3).Text) myrs.Fields(出生年月) = Trim(z(4).Text) myrs.Fields(成绩) = Trim(Text1.Text) myrs.Fields(职称) = Trim(z(6).Text) myrs.Fields(培训计划) = Trim(z(7).Text) myrs.Update myrs.Close mycon.Close MsgBox 修改成功！ Adodc1.Refresh DataGrid1.Refresh End Sub Private Sub cmd3_Click() Me.Hide main.Show End Sub Private Sub Command1_Click() Dim a As String If Adodc1.Recordset.RecordCount 0 Then a = MsgBox(您