培训管理系统.doc

Abstract
the Along with the rapid development of computer technology, computer technology extensive moments should be moving or future in affects us ordinary life, although people don't really understand the computer technology, but their life has is closely related with it, computer technology not only affects people's 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 company's 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 company's technical maintenance personnel maintenance.

Keywords: training management; Training needs; The latest training; Standardized training

1.绪论
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.Data
Imports System.Data.SqlClient
Public 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 Sub
End Class

4.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 If
TextBox3.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 If
TextBox1.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 = "" Then
MsgBox("删除职工号必需填写！", 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语句把该课程号