培训管理系统.doc

Abstractthe Along with the rapid development of computer technology, computer technology extensive moments should be moving or future in affects us ordinary life, although people dont really understand the computer technology, but their life has is closely related with it, computer technology not only affects peoples life, and a wider range of affecting our enterprise company, they obtained by computer technology, that they originally old soar revolutionized the management mode of change, greatly reducing the cost of manpower. Using the information management system to replace original artificially management mode, certainly will give companies bring an unprecedented revolution.Based on the background of employee training management system, combining with the actual situation of the company, after field research, through actual requirement analysis, using powerful VS tool development staff training management system, this system is make the enterprise staff training work systematized, standardization, automation, so as to improve the enterprise training management efficiency purpose. The system fully utilize the companys existing resources, and improve the system development level and application effect, from the entire system to operate and friendly interface and the completion of the operator management staff management system, including users of the system management, rights management, data backup, restore data, system initialization. Training various information input, including course management, the latest training information management, training demand management, classrooms management, management of department and so on, each module is done in information add, delete, modify, inquires the and so on function! System USES modular programming method, convenient for system combination and modification, facilitate again companys technical maintenance personnel maintenance.Keywords: training management; Training needs; The latest training; Standardized training1.绪论1.1组织机构概况通威集团是以农业、新能源双主业发展，并在化工、宠物食品、IT、建筑与房地产等行业快速发展的大型民营科技型企业。集团现拥有遍布全国各地及东南亚地区的一百余家分、子公司，员工逾万人，其中通威股份上市公司年饲料生产能力逾600万吨，是全球最大的水产饲料生产企业及主要的畜禽饲料生产企业，水产饲料全国市场占有率已达到25%，连续16年位居全国第一。通威集团历来注重员工教育培训制度，突出知识培训和能力培训相结合，努力学习饲料创新知识，提高员工内在素质教育，提升员工适应能力，竞争能力，外在发展能力目标。1.2 项目开发背景由于集团近几年发展迅速，成长加速，不断开发适销的产品，满足市场需求，很快创出了自己的品牌，内部和外部的竞争压力日益增大，对集团领导管理能力和员工的专业水平及创新水平提出了一定的挑战。面对这种形势，通威集团领导深刻认识进一步提高管理水平和员工自身专业水平的重要性，为了使公司的培训工作科学化，规范化，适应激烈的市场竞争，为公司更好的发展做好准备，通威饲料集团领导决定建立培训管理系统。1.3 项目开发的意义由于原本集团教育培训主要采取手工作业方式，大量数据流失，培训成效较低，信息处理的工作量大，重复量大，费时费力，容易出错。现今集团规模不断增大，人员增多，所以集团培训管理系统的改变势在必行，确保其准确性、有效性和系统性。既节省了时间又提高了工作效率，管理工作也可以便捷有序地进行。2.系统分析系统分析阶段是最主要的工作，在于明确系统的目标和用户对新系统的具体需求，同时以文件表达的方式详细而完整地描述需求的内容，即新系统将要“做什么”，并定义新系统的各项功能和性能，对现行系统进行充分的调查研究，了解现行系统的现状和业务流程，针对其存在的主要问题，提出新系统的逻辑模型。2.1 系统调查了解系统需求是进行系统分析和设计的重要基础工作，因此必须对集团各管理部们的工作进行全面、细致而充分的调查研究，只有通过对现行系统全面深入的调查分析，才能找出解决的问题的关键所在，从而确保新系统的有效性。经初步调查，通威饲料集团由董事会主席负责制，集团各个部门由主席直接管理，管理部门有人力资源部，市场部，工程部，财务部，研发部，其中人力资源部下设：培训部和行政部各个部们的职责如下：人力资源部：职工的职务调动、职工培训、考勤记录财务部：组织实施并督导公司核算管理、资产管理、现金管理、票据管理登记工作，审核各部门的设备、物资采购计划、公司开支计划。市场部：进行饲料的销售，以及售后服务工作工程部：管理某区的饲料销售工作研发部：研发新型饲料的工作从总体结构来看，集团的组织层次图如下：主席总经理市场部人力资源部财务部工程部研发部培训部行政部采购部销售部售后服务部信息采购部设计开发部图2-1 组织结构图2.2 可行性分析可行性分析是需求分析的重要活动，是对系统进行全面、概要的分析。现行系统主要进行培训课程的录入和一些简单的查询，很多地方仍需要手工操作。且信息处理出错率比较高，尤其是对于大量数据性能差。因此，我们需要建立新的信息自动化的管理系统，充分利用现有资源，改进工作方式，提高管理水平，因此要对系统进行技术可行性、经济可行性两方面的系统可行性分析。2.2.1技术可行性近几年来计算机技术发展异常迅猛，高速度大容量的电脑已经成为许多集团日常工作必不可少的设备，推动办公自动化的软件不断涌现，微机的普及为该系统的开发奠定了坚实的基础，本开发小组有能力根据系统对技术的要求，完成整个系统开发工作，按照目前的计算机书库存储量及运行处理性能，运用现有的管理信息系统开发理论及成熟技术，完全可以实现开发要求2.2.2.经济可行性对于开发一方面可以做到对于系统开发的集中，另一方面也可以节省系统的开发费用，系统开发成功投入使用之后，给集团带来了很大的利益，降低了教育成本，并能更快更及时地让员工获得更多有用的信息，提高了决策水平，所以，培训管理系统所需的开发费用并不是很昂贵，然而这套系统的成功投入使用可以帮助集团使员工的培训管理更加合理化、规范化。2.3软件系统的总目标通过培训管理信息系统的原理和方法，采用成熟的信息技术和手段，支持集团对员工情况的管理，提高集团各部门各对应的运行机制，及时发现其中存在的问题，提供管理决策支持功能，为了提高集团的质量提供帮助，也为今后的发展提供了技术准备，从而达到提高企业培训管理效率的目的。系统开发的总体任务是实现企业员工培训管理的系统化、规范化、自动化。3. 概要设计在对通威饲料集团培训管理系统的分析完成之后，为了将系统分析阶段提出的系统的逻辑方案换成可以实施的基于计算机和网络通信系统的物理方案。概要设计主要考虑的是实现这个系统/子系统，应该设计几个功能模块，这些模块由哪些程序组成，他们之间以什么方式链接在一起构成一个最好的系统机内结构。系统设计阶段主要考虑的是在计算机知识和应用软件开发经验，由系统的特性决定在系统设计过程中可以使用“自顶向下”的原则，将系统分为若干模块之后，可以用结构图来表达这些模块之间的联结关系概要设计阶段的主要内容有：系统的总体结构设计和概念模式设计。3.1 系统总体结构设计系统的总体结构设计是指整个系统由哪些部分组成，以及各部分在物理逻辑上的相互关系，包括硬件部分和软件部分，主要任务就是整个系统合理的划分为若干个功能模块，正确地处理模块之间与模块内部的联系以及他们之间的调用关系和数据联系，定义子模块的内部结构等。3.1.1 模块结构图培训课程管理用户管理课程管理部门管理课室管理最新培训课程管理培训需求管理培训管理系统图3-1 模块结构图3.1.2 关系模型用户（账号，密码，级别）其中账号为主键；课室（教室号，培训类别，培训科目，地点，教室名）其中教室号为主键；课程（课程号，课程名，培训学时，培训类别，培训月份，最新课程号，最新课程名）其中课程号为主键；部门（职工号，姓名，性别，培训方向，职位）其中职工号为主键；需求（培训需求编号，培训需求标题，培训类别，培训地点，联系人，联系电话）其中培训需求编号为主键。3.2 数据库设计用户表（把账号作为用户表的主键）图3-2 用户表图课室表（把教室号作为课室表的主键）图3-3 课室表图课程表（把课程号作为课程表的主键）图3-4 课程表图部门表（把职工号作为部门表的主键）图3-5 部门表图需求表（把培训需求编号作为需求表的主键）图3-6 需求表图4. 系统实现4.1主界面操作流程图开始进入系统输入账号及密码判断账号及密码是否正确是否重新输入调入主菜单菜单选择用户管理课程管理课室管理部门管理退出图4-1 操作流程图4.2 物理配置方案作为一个面向广大用户应用的信息管理系统，最终设计的目的就是应用，因此必须考虑为该信息系统设计一个完整可行的支撑环境来组成一个完成的计算机信息系统。通常，一个计算机信息系统由软件和硬件组成，合理的选择和配置配件部分，可以是我们以最小的成本代价，获得最大的使用效果和收益。4.3 人机界面设计所谓用户界面就是指软件与使用者交互的接口，通常包括：输入、输出、人-机对话的界面和方式等等。用户界面设计的好坏将直接影响到整个软件系统的质量，人机界面的好坏涉及到用户对软件系统的满意度，甚至影响到一个信息系统能否得到广大用户的认可。由于培训管理系统面向的是非计算机方面的人员，他们对计算机系统或者VS之类的开发软件不是很了解，因此，从实际条件和使用要求出发，本系统采用了比较简单的表单操作，并且在保证记录内容大体不变的前提下尽量采用和手工表达格式一致的表单形势，界面中的担任步骤也尽量简化和集中。4.3.1 登录界面设计图4-2 登录界面图备注：初始账号为admin，密码为123，输入后点击登录即可进入系统的主界面登录模块代码：Imports system.DataImports System.Data.SqlClientPublic Class 登录窗口 Dim n As Integer = 0 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim mytable As DataTable Dim mysql1 As String mysql1 = select * from 用户表 where 账号= & TextBox1.Text & and 密码= & TextBox2.Text & mytable = dbop.sel(mysql1) If mytable.Rows.Count = 0 Then n += 1 If n 3 Then MsgBox(不存在该用户或密码错误！, MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, 信息提示) TextBox1.Text = TextBox2.Text = TextBox1.Focus() Else MsgBox(已登录失败次，系统自动关闭！, MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, 信息提示) Me.Close() End If Else userlevel = mytable.Rows(0)(级别) xuehao = TextBox1.Text TextBox2.Text = 主菜单.ShowDialog() Me.Close() End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close()End SubEnd Class4.3.2 主界面图4-3 主界面图主登录界面采用简洁的界面设计，展现给使用者的是美观、舒适的感觉，用toolstripmenuitemd 方式把各个菜单统筹在里面，方便快捷的选用。主菜单登录界面包含：用户管理、部门管理、课程管理、课室管理几个大模块，具体的细模块在各自的模块里面。4.3.3 用户管理模块设计与实现图4-4 用户管理模块图和通常的管理软件一样，系统用户模块也包含了添加、删除和修改的功能，在用户管理这个模块，用datagridview控件来显示用户的当前操作情况，能及时把更新后的信息反映给用户。添加用户的实现是通过数据库的insert语句来实现的，主要是 ：If TextBox3.Text And TextBox4.Text And ComboBox2.Text Then dbop.idu(insert into 用户表values( & TextBox3.Text & , & TextBox4.Text & , & ComboBox2.Text & ) mytable = dbop.sel(select * from 用户表) DataGridView1.DataSource = mytable Else MsgBox(请输入账号和密码，并选择级别！, MsgBoxStyle.OkOnly, 提示)End IfTextBox3.Text里面的内容为账号 TextBox4.Text是密码 ComboBox2.Text是级别，在添加的时候，代码首先判断出这三个内容是否为空，如果不为空，就通过这一段insert into 用户表values( & TextBox3.Text & , & TextBox4.Text & , & ComboBox2.Text & )语句把具体的内容写进数据库里面；如果为空，就弹出提示窗口，提醒用户，实现该方法的是以下语句：MsgBox(请输入账号和密码，并选择级别！, MsgBoxStyle.OkOnly, 提示)。删除用户是通过数据库的delete语句来实现的，主要是 ： If TextBox1.Text Then dbop.idu(delete 用户表where 账号= & TextBox1.Text & ) mytable = dbop.sel(select * from 用户表) DataGridView1.DataSource = mytable Else MsgBox(请输入账号！, MsgBoxStyle.OkOnly, 提示) End IfTextBox1.Text里面的内容为账号，删除时代码首先判断出这个内容是否为空，如果不为空，就通过这一段delete 用户表where 账号= & TextBox1.Text & 语句来实现，把该账号的全部内容一起删除，因为账号是主键，所以可以全部删除掉；如果判断为空，就弹出提示窗口，提醒用户“请输入账号”，实现该方法的是以下语句：MsgBox(请输入账号！, MsgBoxStyle.OkOnly, 提示)。修改用户数据是用update语句实现的，具体修改用户代码如下：If TextBox1.Text And ComboBox1.Text Then dbop.idu(update 用户表set 密码= & TextBox2.Text & where 账号= & TextBox1.Text & ) dbop.idu(update 用户表set 级别= & ComboBox1.Text & where 账号= & TextBox1.Text & ) mytable = dbop.sel(select * from 用户表) DataGridView1.DataSource = mytable Else MsgBox(请输入账号！, MsgBoxStyle.OkOnly, 提示) End If和上述说的实现方法大同小异，也是先判断TextBox1.Text（账号）和ComboBox1.Text（级别）这些的内容是否为空，如果不为空，就通过这一段 update语句来实现，把新的内容写进数据库里面；如果判断为空，就弹出提示窗口，提醒用户“请输入账号”，实现该方法的是以下语句：MsgBox(请输入账号！, MsgBoxStyle.OkOnly, 提示)。4.3.4 部门信息管理模块设计图4-5 部门信息管理模块图部门信息管理模块，包含了添加、修改、删除和查找功能，其中还有重置的方便设计。添加方面的实现方法如下： If mytable.Rows.Count = 0 Then dbop.idu(insert into 部门表(职工号,姓名,性别,培训方向,职位) values( & TextBox2.Text & , & TextBox3.Text & , & ComboBox1.Text & , & TextBox6.Text & , & TextBox4.Text & ) MsgBox(录入成功, MsgBoxStyle.OkOnly, 提示) Else MsgBox(错误！该职工号已存在！, MsgBoxStyle.OkOnly, 提示) End If Call enbutton()用户把要添加的内容详细填入后，通过Inser语句把相对应的内容写入数据库中并保存起来，然后弹出一个提示框，告知用户数据已经成功录入，更好的进行交互；如果用户在添加的过程中，把已存在的用户职工号错误填写进去，系统会提示用户“错误！该职工号已存在！”修改部门信息数据是通过update语句来实现的，代码如下： If TextBox2.Text = Then MsgBox(修改职工号必需填写！, MsgBoxStyle.OkOnly, 提示) Else If MsgBox(确定修改 & TextBox2.Text & 这个人的资料？, MsgBoxStyle.YesNo, 提示) = MsgBoxResult.Yes Then dbop.idu(update 部门表set 姓名= & TextBox3.Text & , 性别= & ComboBox1.Text & ,培训方向= & TextBox6.Text & ,职位= & TextBox4.Text & where 职工号= & TextBox2.Text & ) End If End If mytable = dbop.sel(select * from 部门表) DataGridView1.DataSource = mytable Call enbutton()该段代码首先判断用户要修改的数据职工号是完整的，因为职工号在数据库表里面是主键，必须要填写，所以先判断是否有，这个机制保证了数据的完整性。然后通过这段代码（update 部门表set 姓名= & TextBox3.Text & , 性别= & ComboBox1.Text & ,培训方向= & TextBox6.Text & ,职位= & TextBox4.Text & where 职工号= & TextBox2.Text & ）来实现修改的目的，一旦用户修改了部门信息数据后，可以及时的通过datagridview控件来查看是否已经修改，实现该方法的是： mytable = dbop.sel(select * from 部门表)DataGridView1.DataSource = mytable删除部门信息数据是用delete语句来实现的，这段代码是这样的： If TextBox2.Text = Then MsgBox(删除职工号必需填写！, MsgBoxStyle.OkOnly, 提示) Else If MsgBox(确定删除 & TextBox2.Text & 职工的资料？, MsgBoxStyle.YesNo, 提示) = MsgBoxResult.Yes Then dbop.idu(delete 部门表where 职工号= & TextBox2.Text & ) End If End If mytable = dbop.sel(select * from 部门表) DataGridView1.DataSource = mytable Call enbutton()要删除部门信息数据，首先要确定是删除哪个部门的信息，因此这个语句代码首先就判断是否填写了职工号，如果没有，就会弹出一个提示框来提醒用户没有填写职工号，实现该方法是这个语句：If TextBox2.Text = ThenMsgBox(删除职工号必需填写！, MsgBoxStyle.OkOnly, 提示)如果全部信息都确定了，系统就通过delete语句把该职工号的所有数据都删除掉，并且及时把更新的信息显示出来。查找是用Like语句来实现的，具体要查找什么内容，可以通过部门信息里面所有列名来匹配查找，可以是职工号、姓名、性别、职位、培训方向来匹配查找。具体的代码如下：If TextBox2.Text Then mysql = 职工号like & TextBox2.Text & % End If If TextBox3.Text Then If mysql Then mysql = mysql & and 姓名like & TextBox3.Text & % Else mysql = 姓名like & TextBox3.Text & % End If End If If ComboBox1.Text Then If mysql Then mysql = mysql & and 性别= & ComboBox1.Text & Else mysql = 性别= & ComboBox1.Text & End If End If If TextBox4.Text Then If mysql Then mysql = mysql & and 职位= & TextBox4.Text & Else mysql = 职位= & TextBox4.Text & End If End If If TextBox6.Text Then If mysql Then mysql = mysql & and 培训方向= & TextBox6.Text & Else mysql = 培训方向= & TextBox6.Text & End If重置的功能其实就是把所有当前textbox.text里面的内容赋空值，实现代码是 TextBox2.Text = TextBox3.Text = ComboBox1.Text = TextBox4.Text = TextBox6.Text = 4.3.5培训课程管理模块设计图4-6 培训课程管理模块图该管理模块包括了添加、修改、查找、删除功能，添加方面的实现方法如下：mytable = dbop.sel(select distinct 课程号from 课程表where 课程号= & TextBox2.Text & ) If mytable.Rows.Count = 0 Then dbop.idu(insert into 课程表(课程号,课程名,培训学时,培训月份,培训类别) values( & TextBox2.Text & , & TextBox3.Text & , & TextBox6.Text & , & TextBox4.Text & , & TextBox5.Text & ) MsgBox(录入成功, MsgBoxStyle.OkOnly, 提示) Else MsgBox(错误！该课程号已存在！, MsgBoxStyle.OkOnly, 提示) End If Call enbutton()用户把要添加的内容详细填入后，通过Insert语句把相对应的内容写入数据库中并保存起来，然后弹出一个提示框，告知用户数据已经成功录入，更好的进行交互；如果用户在添加的过程中，把已存在的课程号错误填写进去，系统会提示用户“错误！该课程号已存在！”修改部门信息数据是通过update语句来实现的，代码如下：If TextBox2.Text = Then MsgBox(修改课程号必需填写！, MsgBoxStyle.OkOnly, 提示) Else If MsgBox(确定修改 & TextBox2.Text & 课程的资料？, MsgBoxStyle.YesNo, 提示) = MsgBoxResult.Yes Then dbop.idu(update 课程表set 培训学时= & TextBox6.Text & ,课程名= & TextBox3.Text & ,培训月份= & TextBox4.Text & ,培训类别= & TextBox5.Text & where 课程号= & TextBox2.Text & ) End If End If mytable = dbop.sel(select * from 课程表) DataGridView1.DataSource = mytable Call enbutton()该段代码首先判断用户要修改的课程号是完整的，因为课程号在数据库表里面是主键，必须要填写，所以先判断是否有，这个机制保证了数据的完整性。然后通过这段代码（update 课程表set 培训学时= & TextBox6.Text & ,课程名= & TextBox3.Text & ,培训月份= & TextBox4.Text & ,培训类别= & TextBox5.Text & where 课程号= & TextBox2.Text & )来实现修改的目的，一旦用户修改了培训课程数据后，可以及时的通过datagridview控件来查看是否已经修改，实现该方法的是： mytable = dbop.sel(select * from 课程表)DataGridView1.DataSource = mytable删除部门信息数据是用delete语句来实现的，这段代码是这样的：If TextBox2.Text = Then MsgBox(删除课程号必需填写！, MsgBoxStyle.OkOnly, 提示) Else If MsgBox(确定删除 & TextBox2.Text & 课程的资料？, MsgBoxStyle.YesNo, 提示) = MsgBoxResult.Yes Then dbop.idu(delete 课程表where 课程号= & TextBox2.Text & ) End If End If mytable = dbop.sel(select * from 课程表) DataGridView1.DataSource = mytable Call enbutton()要删除培训课程数据，首先要确定是删除哪个课程的信息，因此这个语句代码首先就判断是否填写了课程号，如果没有，就会弹出一个提示框来提醒用户没有填写课程号，实现该方法是这个语句：If TextBox2.Text = Then MsgBox(删除课程号必需填写！, MsgBoxStyle.OkOnly, 提示)如果全部信息都确定了，系统就通过delete语句把该课程号