下载
加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 员工培训管理论文

员工培训管理论文.doc

员工培训管理论文

张子聪
2017-09-18 0人阅读 举报 0 0 暂无简介

简介:本文档为《员工培训管理论文doc》,可适用于高等教育领域

员工培训管理论文目录总体需求调查组织结构图系统目标应用现状调查总体流程员工信息管理员工信息管理员工培训需求操作员管理系统帮助功能第二章概念设计对数据库链接设计第三章详细设计启动界面设计主界面员工基本信息及管理员工培训需求计划修改操作员设置权限设置数据备份数据恢复初始化第四章测试及性能分析第五章结束语第六章参考文献摘要随着计算机技术的飞速发展,计算机在企业管理中应用的普及,利用计算机实现一个对员工培训管理操作势在必行。近年来,随着改革开放步伐的加快和中西方文化的交流,特别是中国加入WTO,各种公司都将面临巨大的挑战,只有公司的每个员工都具备更好的技术,最新的知识,才能在改革开放的浪潮中处于不败之地。如何对员工培训进行管理,这需要一个适应自己的管理系统。只有这样才能使公司不被淘汰。使用本系统,不仅使公司更加方便的管理员工、培养员工,也不会发生员工重复培训,没培训等等错误。避免发生不应该发生的事情。本系统结合台州地区的公司情况、员工知识结构,员工的年龄结构,小公司的普遍性,加上电脑界面的友好性,经过实际的需求分析,采用功能强大的VisualBasic工具开发员工培训管理系统。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发,完成对员工管理系统的操作员管理,包括系统用户管理、权限管理、数据备份、数据恢复、系统初始化。员工各种信息的输入,包括员工基本信息、职称、岗位、已经培训过的课程和成绩、培训计划等。员工各种信息的查询、修改,包括员工基本信息、职称、岗位、已经培训过的课程和成绩、培训计划等。企业所有员工培训需求的管理。企业培训计划的制定、修改、使用帮助。经过实际使用证明,本文所设计的员工培训管理系统可以满足台州以及全国各地区的各种小型公司员工的培训管理,操作方面的需要。论文主要介绍了本课题的开发背景,所要完成的功能和开发的过程。重点的说明了系统设计的重点、设计思想、难点技术和解决方案。关键字:员工培训、课程设置、管理系统。第一章总体需求调查组织结构图员工培训管理系统组织结构图如下:员工各种信息的输入,包括员工基本信息、职称、岗位、已经培训过的课程和成绩、培训计划等。员工各种信息的查询、修改,包括员工基本信息、职称、岗位、已经培训过的课程和成绩、培训计划等。企业所有员工培训需求的管理。企业培训计划的制定、修改系统用户管理、权限管理、数据备份、数据恢复、系统初始化使用帮助系统目标面对信息化时代及其发展过程中出现的各种情况,员工培训管理系统在实施后达到以下目标:实现多点操作的信息共享,相互之间传递准确、快捷、顺畅。全面自动化的管理,可随时掌握员工各种信息及培训的各种情况等等。能够快捷、准确处理员工是否培训,处理各种资源、教材、教师等信息。系统界面友好美观,操作简单易行,查询、修改等操作灵活方便,数据存储安全可靠。系统维护安全,方便,可靠,并且能够满足实用性、先进性的要求。应用现状调查目前,企业员工培训管理都是人工管理。各方面都是的人工操作,这样不仅浪费人员且操作不方便,不能满足企业的需求,而且不能满足当前台州中小企业的发展需要。总体流程:开始进入的进入界面,再进入主界面进行各种操作,包括操作员设置、系统用户管理、权限管理、数据备份、数据恢复、系统初始化等一系列操作。员工信息管理整个系统从总体上分为员工信息管理、员工培训需求、操作员管理、帮助四大部分,每一部分应实现的功能员工信息管理员工基本信息的输入,包括姓名、岗位、性别、已培训课程、出生年月、成绩、职称、培训计划等基本信息。员工信息的维护:包括添加、修改、删除、查找等。员工基本信息的查找:按姓名,岗位,职称。查找包括姓名、岗位、性别、已培训课程、出生年月、成绩、职称、培训计划等基本信息。员工培训需求员工培训需求的输入,包括课程,教师,人数,地点,备注。员工培训需求的维护:包括添加、修改、删除、查找等。员工培训需求的查找:按课程,培训教师,培训地点,查找包括课程,教师,人数,地点,备注等基本信息。操作员管理操作员管理的输入:包括操作员设置,权限设置,数据备份,数据恢复,初始化。操作员管理的维护:包括添加、修改等权限设置:包括操作员删除、权限添加等。数据备份:把当前的数据库文件bmdb保存为今天的日期bmdb数据恢复:把当前的数据库文件恢复为以前的文件。初始化:把员工基本信息、教师评价、教师信息管理、课程管理、培训需求等数据表内的内容清空。系统帮助功能可以通过上面的控件发Email到我的邮箱。第二章概念设计概要设计基础是完成需求分析后提供的需求说明书,用概念数据模型表示数据及其相互间的关系,这种数据模型是与DBMS无关的、面向现实世界的、易如理解的数据模型,其独立于计算机的数据模型,独立于计算机的软硬件系统,与用户进行交流十分方便。概念性数据模型关心的是如何完整、正确地反映客观实际情况,不关心在数据库中如何实现。这种数据模式能真实地反应用户要求的实际情况,是一种容易被人们理解的直观的数据库结构模式。同时也是一种相对稳定统一的数据模式,一般情况下很少变动。概念性数据在用户和设计者之间建立了桥梁。是设计数据库结构的基础。概念设计中自顶向下的实体分析方法,即常用的实体联系模型(简称ER模型),对具体数据进行抽象加工,将实体集合抽象成实体类型。用实体间联系反映现实世界事物间的内在联系。ER模型是建立概念性数据模型的有力工具。通过对员工信息管理系统内容过程的分析,本系统应设计的实体和属性如下:员工信息管理(包括员工基本信息,信息管理)培训需求管理(员工培训需求,计划修改)操作员管理(操作员管理、权限管理、数据备份、数据恢复、系统初始化)帮助(通过发Email进行帮助)对数据库链接设计作为Microsoft公司的数据库,Access数据库在VisualBasic中的应用非常广泛,为此我选用Access数据库来进行数据库的逻辑设计。根据前面定义的实体及实休之间的关系,形成数据库的表格以及各个表之间的关系。在控制面板中进行数据源设置。如下:在控制面板中双击ODBC数据源(位),进入如下:点击“添加”,进入如下:选中MicrosoftAccessDriver*mdb单击完成,如下:在数据源名中填写a,单击选取选择bmdb,最后确定。在vb数据源连接中如下:而Gatagird的datasource的属性值为Adodc这个控件用以下代码:DimmyconAsNewADODBConnection定义Connection对象,连接数据库DimmyrsAsNewADODBRecordset定义Recordset对象,操作数据myconOpen"dsna"打开数据库myrsOpen"kcpj",mycon,,打开表kcpj,’,’代表打开的表可读可写为了减少数据冗余度,将表设置包括操作员qxsz操作员,密码等,员工基本信息表ygg,员工培训计划ph,计划修改jh表。操作员设置qxsz表:a其它略。第三章详细设计根据需求分析、概要设计的结果,采用VisualBasic做为开发工具,实现员工培训管理系统各模块的功能。启动界面设计:OptionExplicitDimmyconAsNewADODBConnectionDimmyrsAsNewADODBRecordsetDimTIMAsIntegerDimmyvalAsStringPrivateSubcmdClickelsTextTextBoundTextAdodcRecordSource"select*fromqxszwhere操作员'"TextBoundText"'"AdodcRefreshIfTextBoundText""AndTextText""AndTextTextAdodcRecordsetFields"密码"ThenmainShowUnloadMeElseIfTIMThenmyvalMsgBox"密码输入错误,请向系统管理员查询!"IfmyvalvbOKThenEndEndIfIfTextBoundText""ThenMsgBox"请输入操作员!"TextSetFocusElseIfTextBoundTextAdodcRecordsetFields"操作员"ThenMsgBox"查无此操作员,请重新输入操作员!"TextSetFocusElseIfTextText""ThenMsgBox"请输入操作员密码!"TextSetFocusElseIfTextTextAdodcRecordsetFields"密码"ThenMsgBox"密码错误,请重新输入密码!"TIMTIMTextSetFocusEndIfEndIfEndIfEndIfEndIfEndSubPrivateSubcmdClickEndEndSubPrivateSubFormActivatemyconOpen"dsna"myrsOpen"qxsz",mycon,,IfmyrsRecordCountThenMsgBox"请先设置操作员密码和权限!"LoadmainmainShowUnloadMeEndIfEndSubPrivateSubTextKeyDownKeyCodeAsInteger,ShiftAsIntegerIfKeyCodevbKeyReturnThencmdSetFocusEndSub进入员工培训管理系统必须有操作员及密码。当数据库中无这个操作员时,会有查无此操作员,请重新输入操作员!这个提示框。当操作员及密码输入框为空时会弹出请输入操作员!及请输入操作员密码!等等。主界面部份代码如下:PrivateSubdtClickUnloadMesjbfShowEndSubPrivateSubfdfsaClickUnloadMecshShowEndSubPrivateSubfgClickUnloadMezycxShowEndSubPrivateSubFormActivateWithDataRecordsetIfBOFFalseThenMoveFirstFindFirst"操作员like"ChrStatusBarPanelsTextChr""IfNoMatchThenElsefdfsaEnabledczyszEnabledDataRecordsetFields"初始化"kkEnabledDataRecordsetFields"操作员设置"lEnabledTruedsEnabledDataRecordsetFields"计划制定、修改"jjEnabledDataRecordsetFields"教师基本信息"jhdEnabledDataRecordsetFields"教师评价"sdEnabledDataRecordsetFields"课程评价"saEnabledDataRecordsetFields"培训课程管理"daEnabledDataRecordsetFields"员工培训需求"huEnabledDataRecordsetFields"培训教材管理"klEnabledDataRecordsetFields"权限设置"dtEnabledDataRecordsetFields"数据备份"gfdgEnabledDataRecordsetFields"数据恢复"iiEnabledDataRecordsetFields"外出培训管理"aaEnabledDataRecordsetFields"员工基本信息"auEnabledDataRecordsetFields"员工信息管理"fgEnabledDataRecordsetFields"培训资源管理"EndIfEndWithEndSubPrivateSubFormLoadDataDatabaseNameAppPath"bMDB"EndSub在这里会进行分辨该操作员具有怎样的权限。员工基本信息及管理PrivateSubcmdClickDimmyconAsNewADODBConnectionDimmyrsAsNewADODBRecordsetmyconOpen"dsna"myrsOpen"ygg",mycon,,IfTextText""OrTextText""OrTextText""OrTextText""ThenMsgBox"不能为空!"ExitSubEndIfmyrsAddNewmyrsFields"姓名"TrimTextTextmyrsFields"岗位"TrimTextTextmyrsFields"性别"TrimComboTextmyrsFields"已培训课程"TrimComboTextmyrsFields"出生年月"TrimTextTextmyrsFields"成绩"TrimTextTextmyrsFields"职称"TrimComboTextmyrsFields"培训计划"TrimTextTextmyrsUpdatemyrsClosemyconCloseMsgBox"添加成功!"AdodcRefreshDataGridRefreshreshreshEndSubPrivateSubcmdClickTextText"":TextText"":TextText"":TextText""EndSubPrivateSubcmdClickMeHidemainShowEndSubPrivateSubComboclickIfComboText"第一阶段"ThenComboAddItem"语文"ComboAddItem"数学"ComboAddItem"英语"ComboAddItem"物理"ElseIfComboText"第二阶段"ThenComboAddItem"大学语文"ComboAddItem"大学数学"ComboAddItem"大学英语"ComboAddItem"大学物理"ElseIfComboText"第三阶段"ThenComboAddItem"计算机基础"ComboAddItem"C语言"ComboAddItem"电路基础"ComboAddItem"操作系统"ElseIfComboText"第四阶段"ThenComboAddItem"微机技术"ComboAddItem"C语言"ComboAddItem"Java语言"ComboAddItem"软件工程"EndIfEndSubPrivateSubFormLoadComboAddItem"男"ComboAddItem"女"ComboAddItem"教授"ComboAddItem"副教授"ComboAddItem"助教"ComboAddItem"第一阶段"ComboAddItem"第二阶段"ComboAddItem"第三阶段"ComboAddItem"第四阶段"EndSubPrivateSubTextKeyPressKeyAsciiAsIntegerIfKeyAsciiThenIfKeyAsciivbKeyAndKeyAsciivbKeyThenElseKeyAsciiMsgBox"只能输入数字!"EndIfEndIfEndSubOptionExplicitDimiAsIntegerDimmyconAsNewADODBConnectionDimmyrsAsNewADODBRecordsetPrivateSubcmdClickAdodcRecordSource"select*fromyggwhereygg"ComboText"like'"TextText"'''"AdodcRefreshIfAdodcRecordsetRecordCountThenzTextAdodcRecordsetFields"姓名"zTextAdodcRecordsetFields"岗位"zTextAdodcRecordsetFields"性别"zTextAdodcRecordsetFields"已培训课程"zTextAdodcRecordsetFields"出生年月"TextTextAdodcRecordsetFields"成绩"zTextAdodcRecordsetFields"职称"zTextAdodcRecordsetFields"培训计划"Else:zText"":zText"":zText"":zText"":zText"":TextText"":zText"":zText""EndIfEndSubPrivateSubcmdClickDimmyconAsNewADODBConnectionDimmyrsAsNewADODBRecordsetmyconOpen"dsna"myrsOpen"ygg",mycon,,myrsFields"姓名"TrimzTextmyrsFields"岗位"TrimzTextmyrsFields"性别"TrimzTextmyrsFields"已培训课程"TrimzTextmyrsFields"出生年月"TrimzTextmyrsFields"成绩"TrimTextTextmyrsFields"职称"TrimzTextmyrsFields"培训计划"TrimzTextmyrsUpdatemyrsClosemyconCloseMsgBox"修改成功!"AdodcRefreshDataGridRefreshEndSubPrivateSubcmdClickMeHidemainShowEndSubPrivateSubCommandClickDimaAsStringIfAdodcRecordsetRecordCountThenaMsgBox"您确实要删除这条数据吗",vbYesNoIfavbYesThenAdodcreshEndIfEndIfEndSubPrivateSubFormLoadComboAddItem"姓名"ComboAddItem"岗位"ComboAddItem"职称"EndSubPrivateSubtextKeyPressKeyAsciiAsIntegerIfKeyAsciiThenIfKeyAsciivbKeyAndKeyAsciivbKeyThenElseKeyAsciiMsgBox"只能输入数字!"EndIfEndIfEndSub员工培训需求(图略)代码如下:OptionExplicitPrivateSubcmdClickDimmyconAsNewADODBConnectionDimmyrsAsNewADODBRecordsetmyconOpen"dsna"myrsOpen"ph",mycon,,IfzText""OrzText""OrzText""OrzText""OrzText""ThenMsgBox"不能为空!"ExitSubEndIfmyrsAddNewmyrsFields"课程"TrimzTextmyrsFields"培训教师"TrimzTextmyrsFields"培训人数"TrimzTextmyrsFields"培训地点"TrimzTextmyrsFields"备注"TrimzTextmyrsUpdatemyrsClosemyconCloseMsgBox"添加成功!"AdodcRefreshDataGridRefreshEndSubPrivateSubcmdClickDimiAsIntegerAdodcRecordSource"select*fromphwhereph"ComboText"like'"TextText"'''"AdodcRefreshForiToIfAdodcRecordsetRecordCountThenziTextAdodcRecordsetFieldsiElse:ziText""EndIfNexticmdEnabledTrueEndSubPrivateSubcmdClickDimmyconAsNewADODBConnectionDimmyrsAsNewADODBRecordsetmyconOpen"dsna"myrsOpen"ph",mycon,,myrsFields"课程"TrimzTextmyrsFields"培训教师"TrimzTextmyrsFields"培训人数"TrimzTextmyrsFields"培训地点"TrimzTextmyrsFields"备注"TrimzTextmyrsUpdatemyrsClosemyconCloseMsgBox"修改成功!"AdodcRefreshDataGridRefreshEndSubPrivateSubcmdClickUnloadMemainShowEndSubPrivateSubCommandClickDimaAsStringIfAdodcRecordsetRecordCountThenaMsgBox"您确实要删除这条数据吗",vbYesNoIfavbYesThenAdodcreshEndIfEndIfEndSubPrivateSubFormLoadComboAddItem"课程"ComboAddItem"培训教师"ComboAddItem"培训地点"cmdEnabledTruecmdEnabledTruecmdEnabledFalseCommandEnabledTrueEndSub计划修改(图略)部分代码:rivateSubcmdClickDimmyconAsNewADODBConnectionDimmyrsAsNewADODBRecordsetmyconOpen"dsna"myrsOpen"jh",mycon,,IfTextText""OrTextText""OrTextText""OrTextText""ThenMsgBox"不能为空!"ExitSubEndIfmyrsAddNewmyrsFields"事件"TrimTextTextmyrsFields"时间"TrimTextTextmyrsFields"地点"TrimTextTextmyrsFields"计划"TrimTextTextmyrsUpdatemyrsClosemyconCloseMsgBox"添加成功!"AdodcRefreshDataGridRefreshEndSubPrivateSubcmdClickAdodcRecordSource"select*fromjhwherejh"ComboText"like'"TextText"'''"AdodcRefreshIfAdodcRecordsetRecordCountThenTextTextAdodcRecordsetFieldsTextTextAdodcRecordsetFieldsTextTextAdodcRecordsetFieldsTextTextAdodcRecordsetFieldsEndIfcmdEnabledTrueEndSubPrivateSubcmdClickDimmyconAsNewADODBConnectionDimmyrsAsNewADODBRecordsetmyconOpen"dsna"myrsOpen"jh",mycon,,myrsFields"事件"TrimTextTextmyrsFields"时间"TrimTextTextmyrsFields"地点"TrimTextTextmyrsFields"计划"TrimTextTextmyrsUpdatemyrsClosemyconCloseMsgBox"修改成功!"AdodcRefreshDataGridRefreshEndSub操作员设置(图略)部份代码如下rivateSubcmdClickDimmyconAsNewADODBConnectionDimmyrsAsNewADODBRecordsetmyconOpen"dsna"myrsOpen"jh",mycon,,IfTextText""OrTextText""OrTextText""OrTextText""ThenMsgBox"不能为空!"ExitSubEndIfmyrsAddNewmyrsFields"事件"TrimTextTextmyrsFields"时间"TrimTextTextmyrsFields"地点"TrimTextTextmyrsFields"计划"TrimTextTextmyrsUpdatemyrsClosemyconCloseMsgBox"添加成功!"AdodcRefreshDataGridRefreshEndSubPrivateSubcmdClickAdodcRecordSource"select*fromjhwherejh"ComboText"like'"TextText"'''"AdodcRefreshIfAdodcRecordsetRecordCountThenTextTextAdodcRecordsetFieldsTextTextAdodcRecordsetFieldsTextTextAdodcRecordsetFieldsTextTextAdodcRecordsetFieldsEndIfcmdEnabledTrueEndSubPrivateSubcmdClickDimmyconAsNewADODBConnectionDimmyrsAsNewADODBRecordsetmyconOpen"dsna"myrsOpen"jh",mycon,,myrsFields"事件"TrimTextTextmyrsFields"时间"TrimTextTextmyrsFields"地点"TrimTextTextmyrsFields"计划"TrimTextTextmyrsUpdatemyrsClosemyconCloseMsgBox"修改成功!"AdodcRefreshDataGridRefreshEndSub权限设置(图略)代码如下:OptionExplicitDimiAsIntegerPrivateSubcmdClickIfDBListBoundText""ThenDataRecordsetFindFirst"操作员'"DBListBoundText"'"IfDataRecordsetNoMatchThenElseDataRecordsetEditForiToDataRecordsetFieldsiziValueNextiDatareshEndIfEndIfEndSubPrivateSubCommandClickOnErrorResumeNextDataRecordsetDeleteDataRefreshDataRefreshEndSubPrivateSubCommandClickUnloadMemainShowEndSubPrivateSubDBListClickIfDataRecordsetBOFFalseThenDataRecordsetMoveFirstDataRecordsetFindFirst"操作员'"DBListBoundText"'"IfDataRecordsetNoMatchThenDBListBoundTextElseForiToIfDataRecordsetFieldsiThenziValueElseziValueNextiEndIfEndSubPrivateSubFormLoadDataDatabaseNameAppPath"bMDB"DataDatabaseNameAppPath"bMDB"EndSubPrivateSubFormUnloadCancelAsIntegermainEnabledTrueEndSubPrivateSubcmdClickForiToziValueNextiEndSubPrivateSubcmdClickForiToziValueNextiEndSub数据备份(图略)代码如下:OptionExplicitPrivateSubCommandClickMeMousePointerFileCopyAppPath"bmdb",AppPath"b"Date"mdb"MeMousePointerMsgBox"数据已备份完毕。"EndSubPrivateSubCommandClickmainShowUnloadMeEndSubPrivateSubFormUnloadCancelAsIntegermainEnabledTrueEndSub数据恢复(图略)代码如下:PrivateSubFormUnloadCancelAsIntegermainEnabledTrueEndSubPrivateSubDirChangeFilePathDirPathEndSubPrivateSubDriveChangeDirPathDriveDriveEndSubPrivateSubFileClickTextTextDirPath""FileFileNameEndSubPrivateSubCommandClickIfTextText""ThenMsgBox"请选择要恢复的数据!"ElseMeMousePointerFileCopyDirPath""FileFileName,AppPath"amdb"MeMousePointerMsgBox"数据已恢复完毕!"EndIfEndSubPrivateSubCommandClickmainShowUnloadMeEndSub初始化(图略)代码如下:PrivateSubFormUnloadCancelAsIntegermainEnabledTrueEndSubPrivateSubComksClickComcshEnabledTrueEndSubPrivateSubComcshClickDimrsAsADODBRecordsetSetrsNewADODBRecordsetDimcnnAsADODBConnectionSetcnnNewADODBConnectioncnnOpen"dsna"DimconnterAsIntegerDimsql,workareaAsStringProgressBarVisibleTrueProgressBarUBoundworkareaProgressBarValueProgressBarMinForCounterLBoundworkareaToUBoundworkareaworkareaCounter"initialvalue"CounterProgressBarValueCounterIfCheckValueThensql"delete*fromygg"cnnExecutesqlEndIfIfCheckValueThensql"delete*fromjspj"cnnExecutesqlEndIfIfCheckValueThensql"delete*fromjs"cnnExecutesqlEndIfIfCheckValueThensql"delete*fromkcsz"cnnExecutesqlEndIfIfCheckValueThensql"delete*fromph"cnnExecutesqlEndIfNextCounterProgressBarVisibleFalseProgressBarValueProgressBarMincnnCloseComcshEnabledFalseEndSubPrivateSubComExitClickmainShowUnloadMe第四章测试及性能分析本系统经过试用证明,系统基本满足员工信息管理方面的需要。实现了员工信息管理,培训课程管理,需求管理等。基本满足了中小型企业的培训要求。各个功能模块的链接以及功能的实现体现了需求分析。结束语在这当中我学到了一些知识,增强了自学能力。提高了动手能力,学以致用。在此,我感谢各位老师的指导和帮助。此致敬礼!参考文献VisualBasic数据库开发实例解析机械工业出版社VisualBasic程序设计导学清华大学出版社

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/25

员工培训管理论文

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利