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

员工培训管理系统题 目 员工培训管理系统 姓 名 专 业 计算机科学与技术 指导教师 学 校 大学 日 期 目录第一章 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.2员工信息管理整个系统从总体上分为员工信息管理、员工培训需求、操作员管理、帮助四大部分，每一部分应实现的功能.1.2.1员工信息管理Ø 员工基本信息的输入，包括姓名、岗位、性别、已培训课程、出生年月、成绩、职称、培训计划等基本信息。Ø 员工信息的维护：包括添加、修改、删除、查找等。Ø 员工基本信息的查找：按姓名，岗位，职称。查找包括姓名、岗位、性别、已培训课程、出生年月、成绩、职称、培训计划等基本信息。 1.2.2员工培训需求员工培训需求的输入，包括课程，教师，人数，地点，备注。员工培训需求的维护：包括添加、修改、删除、查找等。Ø 员工培训需求的查找：按课程，培训教师，培训地点，查找包括课程，教师，人数，地点，备注等基本信息。1.2.3操作员管理操作员管理的输入：包括操作员设置，权限设置，数据备份，数据恢复，初始化。操作员管理的维护：包括添加、修改等权限设置：包括操作员删除、权限添加等。数据备份：把当前的数据库文件b.mdb保存为今天的日期b.mdb数据恢复：把当前的数据库文件恢复为以前的文件。初始化：把员工基本信息、教师评价、教师信息管理、课程管理、培训需求等数据表内的内容清空。 1.2.4系统帮助功能 可以通过上面的控件发Email到我的邮箱。 第二章2.1概念设计概要设计基础是完成需求分析后提供的需求说明书，用概念数据模型表示数据及其相互间的关系，这种数据模型是与DBMS无关的、面向现实世界的、易如理解的数据模型，其独立于计算机的数据模型，独立于计算机的软硬件系统，与用户进行交流十分方便。概念性数据模型关心的是如何完整、正确地反映客观实际情况，不关心在数据库中如何实现。这种数据模式能真实地反应用户要求的实际情况，是一种容易被人们理解的直观的数据库结构模式。同时也是一种相对稳定统一的数据模式，一般情况下很少变动。概念性数据在用户和设计者之间建立了桥梁。是设计数据库结构的基础。概念设计中自顶向下的实体分析方法，即常用的实体联系模型（简称E-R模型），对具体数据进行抽象加工，将实体集合抽象成实体类型。用实体间联系反映现实世界事物间的内在联系。E-R模型是建立概念性数据模型的有力工具。通过对员工信息管理系统内容过程的分析，本系统应设计的实体和属性如下：员工信息管理（包括员工基本信息，信息管理）培训需求管理（员工培训需求，计划修改）操作员管理（操作员管理、权限管理、数据备份、数据恢复、系统初始化）帮助（通过发Email进行帮助）2.2对数据库链接设计作为Microsoft公司的数据库，Access数据库在Visual Basic 6.0中的应用非常广泛，为此我选用Access数据库来进行数据库的逻辑设计。根据前面定义的实体及实休之间的关系，形成数据库的表格以及各个表之间的关系。在控制面板中进行数据源设置。如下： 在控制面板中双击ODBC数据源（32位），进入如下： 点击“添加”，进入如下：选中Microsoft Access Driver (*.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其它略。第三章 详细设计 根据需求分析、概要设计的结果，采用Visual Basic 6.0做为开发工具，实现员工培训管理系统各模块的功能。3.1启动界面设计：Option ExplicitDim mycon As New ADODB.ConnectionDim myrs As New ADODB.RecordsetDim TIM As IntegerDim myval As StringPrivate 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 IfEnd SubPrivate Sub cmd2_Click()EndEnd SubPrivate Sub Form_Activate()mycon.Open "dsn=a"myrs.Open "qxsz", mycon, 3, 2If myrs.RecordCount = 0 ThenMsgBox ("请先设置操作员密码和权限！")Load main main.Show Unload Me End If End SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then cmd1.SetFocusEnd Sub进入员工培训管理系统必须有操作员及密码。当数据库中无这个操作员时，会有查无此操作员,请重新输入操作员!这个提示框。当操作员及密码输入框为空时会弹出请输入操作员!及请输入操作员密码!等等。32 主界面 部份代码如下：Private Sub dt3_Click()Unload Mesjbf.ShowEnd SubPrivate Sub fdfsa_Click()Unload Mecsh.ShowEnd SubPrivate Sub fg_Click()Unload Mezycx.ShowEnd SubPrivate Sub Form_Activate() With Data1.Recordset If .BOF = False Then .MoveFirst .FindFirst "操作员 like " + Chr(34) + StatusBar1.Panels(4).Text + Chr(34) + "" If .NoMatch Then Elsefdfsa.Enabled = czysz.Enabled = Data1.Recordset.Fields("初始化")kk.Enabled = Data1.Recordset.Fields("操作员设置")l.Enabled = Trueds.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 WithEnd SubPrivate Sub Form_Load() Data1.DatabaseName = App.Path & "b.MDB"End Sub在这里会进行分辨该操作员具有怎样的权限。3.3 员工基本信息及管理Private Sub cmd1_Click()Dim mycon As New ADODB.ConnectionDim myrs As New ADODB.Recordsetmycon.Open "dsn=a"myrs.Open "ygg", mycon, 3, 2If Text1.Text = "" Or Text2.Text = "" Or Text4.Text = "" Or Text5.Text = "" ThenMsgBox ("不能为空！")Exit SubEnd Ifmyrs.AddNewmyrs.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.Updatemyrs.Closemycon.CloseMsgBox "添加成功！"Adodc1.RefreshDataGrid1.Refreshyggsz.Adodc1.Refreshyggsz.DataGrid1.RefreshEnd SubPrivate Sub cmd2_Click()Text1.Text = "": Text2.Text = "": Text4.Text = "": Text5.Text = ""End SubPrivate Sub cmd3_Click()Me.Hidemain.ShowEnd SubPrivate Sub Combo4_click()If Combo4.Text = "第一阶段" ThenCombo3.AddItem ("语文")Combo3.AddItem ("数学")Combo3.AddItem ("英语")Combo3.AddItem ("物理")ElseIf Combo4.Text = "第二阶段" ThenCombo3.AddItem ("大学语文")Combo3.AddItem ("大学数学")Combo3.AddItem ("大学英语")Combo3.AddItem ("大学物理")ElseIf Combo4.Text = "第三阶段" ThenCombo3.AddItem ("计算机基础")Combo3.AddItem ("C+语言")Combo3.AddItem ("电路基础")Combo3.AddItem ("操作系统")ElseIf Combo4.Text = "第四阶段" ThenCombo3.AddItem ("微机技术")Combo3.AddItem ("C语言")Combo3.AddItem ("Java 语言")Combo3.AddItem ("软件工程")End IfEnd SubPrivate Sub Form_Load()Combo1.AddItem ("男")Combo1.AddItem ("女")Combo2.AddItem ("教授")Combo2.AddItem ("副教授")Combo2.AddItem ("助教")Combo4.AddItem ("第一阶段")Combo4.AddItem ("第二阶段")Combo4.AddItem ("第三阶段")Combo4.AddItem ("第四阶段")End SubPrivate Sub Text5_KeyPress(KeyAscii As Integer)If KeyAscii >= 33 ThenIf KeyAscii <= vbKey9 And KeyAscii >= vbKey0 ThenElseKeyAscii = 0MsgBox "只能输入数字！"End IfEnd IfEnd SubOption ExplicitDim i As IntegerDim mycon As New ADODB.ConnectionDim myrs As New ADODB.RecordsetPrivate Sub cmd1_Click()Adodc1.RecordSource = "select * from ygg where (ygg." & Combo1.Text & " like + '" + Text8.Text + "'+'%')" Adodc1.Refresh If Adodc1.Recordset.RecordCount <> 0 Thenz(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 IfEnd SubPrivate Sub cmd2_Click() Dim mycon As New ADODB.ConnectionDim myrs As New ADODB.Recordsetmycon.Open "dsn=a"myrs.Open "ygg", mycon, 3, 2myrs.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.Updatemyrs.Closemycon.Close MsgBox "修改成功！"Adodc1.RefreshDataGrid1.RefreshEnd SubPrivate Sub cmd3_Click()Me.Hidemain.ShowEnd SubPrivate Sub Command1_Click()Dim a As StringIf Adodc1.Recordset.RecordCount > 0 Then a = MsgBox("您确实要删除这条数据吗?", vbYesNo) If a = vbYes Then Adodc1.Recordset.Delete Adodc1.Refresh End If End IfEnd SubPrivate Sub Form_Load()Combo1.AddItem ("姓名")Combo1.AddItem ("岗位")Combo1.AddItem ("职称")End SubPrivate Sub text1_KeyPress(KeyAscii As Integer)If KeyAscii >= 33 ThenIf KeyAscii <= vbKey9 And KeyAscii >= vbKey0 ThenElseKeyAscii = 0MsgBox "只能输入数字！"End IfEnd IfEnd Sub3.4 员工培训需求 （图略）代码如下：Option ExplicitPrivate Sub cmd1_Click()Dim mycon As New ADODB.ConnectionDim myrs As New ADODB.Recordsetmycon.Open "dsn=a"myrs.Open "ph", mycon, 3, 2If z(0).Text = "" Or z(1).Text = "" Or z(2).Text = "" Or z(3).Text = "" Or z(4).Text = "" ThenMsgBox ("不能为空！")Exit SubEnd Ifmyrs.AddNewmyrs.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.Updatemyrs.Closemycon.CloseMsgBox "添加成功！"Adodc1.RefreshDataGrid1.RefreshEnd SubPrivate Sub cmd2_Click()Dim i As IntegerAdodc1.RecordSource = "select * from ph where (ph." & Combo2.Text & " like + '" + “IT开拓者3网络工作室”成立于2010年，是一个专业的计算机软件开发团队。“资源共享，信息互通” 需要更多相关设计资料和源代码加QQ:493703123