企业人事管理系统报告.doc

企业人事管理系统内容摘要随着企业规模不断扩大,员工数量急剧增加,员工相关基本信息也成倍增长，随之企业人事管理变得越来越复杂。为了改善传统的人工管理职工信息方式的效率低、保密性差、数据维护不方便等问题，拥有一套能提供充足的人事信息和快捷的查询手段的系统至关重要。因此本企业人事管理系统就是为此设计出的一套选取Microsoft SQL Server 2000作为后台数据库、前台控制界面使用Visual Basic 6.0来实现的应用软件。 本系统的主要任务实现将员工的个人基本信息（如姓名、性别、出生日期等）和具体的所属部门、岗位、学历等信息都记录在案，并且可以对其进行添加、修改和删除，能够按照部门、学历和职称轻松得查询到员工的信息，大大提高了企业的工作效率。本报告通过需求分析与数据库设计、应用程序设计和系统集成调试三个阶段进行阐述本系统的设计和开发。目 录1 选择该课题的目的和意义 32 需求分析 32.1 总体功能需求分析 32.2 功能模块及流程图 42.3 各实体及其属性4 2.3.1 职工实体及其属性 4 2.3.2 部门实体及其属性 5 2.3.3 职称实体及其属性 5 2.3.4 学历实体及其属性 5 2.3.5用户实体及其属性 53 数据库结构设计 64 界面设计、部分代码、系统测试数据及运行结果84.1 欢迎界面及用户登录界面84.2 企业人事管理系统菜单界面94.3系统用户管理界面 9 4.3.1添加用户界面 9 4.3.2用户密码修改界面104.4 职工信息浏览与维护界面 10 4.4.1 添加职工信息 10 4.4.2 修改职工信息 11 4.4.3 删除职工信息 12 4.4.4 浏览职工信息 134.5 查询操作界面 134.5.1 按部门号查询 144.5.2 按学历查询 174.5.3 按职称查询 174.6 打印报表界面 195 总结与体会196 参考文献20 选择该课题的目的和意义当今是21世纪，在工、农业不断发展的同时，Internet也迅速发展起来，并且已经飞速改变了人们的生活和工作。现在，有些个人和单位的工作根本离不开Internet。而且随着企业数量的增加和形式的多种多样，企业员工的数量也在增多。面对这样庞大的信息量，就需要有企业人事管理系统来提高企业人事管理工作的效率。基于现代人力资源管理的理念，结合中国行业主管机构的人事管理经验，将现代化的信息技术和网络技术引入人事管理工作，实施企业人事管理系统，已成为行业管理发展与进步的必由之路。需求分析2.1总体功能需求分析用户的需求具体体现在各种信息的提供、保存、更新和查询方面，这就要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、数据结构及数据处理的流程，组成一份详尽的数据字典，为后面的详细设计打下了基础。针对一般企业人事管理信息系统的需求，通过对企业人事管理工作过程的内容和数据流程进行分析，设计出如下所示的数据项和数据结构：（1） 职工，包括数据项：职工号、姓名、性别、出生日期、参加工作时间、部门号、职称级别、岗位、职务或工种。（2） 部门，包括数据项：部门号、部门名。（3） 职称，包括数据项：职称级别、职称名称。（4） 学历，包括数据项：学历类别、学历。（5） 用户，包括数据项:用户名、密码、新密码、确认密码。2.2功能模块及流程图系统的功能模块图如图1所示。企业人事管理系统职工信息管理系统用户管理按类查询信息浏览信息按学历查询按职称查询按部门查询添加用户修改密码添加信息删除信息修改信息图1 系统的功能模块在仔细分析调查企业对人事信息管理需求的基础上，将得到如图二所示的本系统所处理的流程图。启动系统No登录验证是否成功yes系统主界面 职称管理学历管理部门管理用户管理基本信息管理退出系统 图2 企业人事管理系统流程图2.3 各实体及其属性针对一般企业人事管理系统的需求，通过对企业人事管理工作过程的内容和数据流程的分析，设计数据项和数据结构。本系统根据上面的设计规划出的实体有职工实体、部门实体、职称实体、学历实体、用户信息实体。各个实体的描述E-R图如下。2.3.1 职工实体及其属性性别 职工实体及其属性如图3所示。姓名出生日期参加工作时间职工号学历类别部门号职工职务或工种岗位职称级别 图 3 职工实体及其属性2.3.2 部门实体及其属性 部门实体及其属性如图4所示。部 门部门名部门号 图 4 部门实体及其属性2.3.3 职称实体及其属性 职称实体及其属性如图5所示。职 称职称名称职称级别 图 5 职称实体及其属性2.3.4 学历实体及其属性 学历实体及其属性如图6所示。学 历学 历学历类别 图 6 学历实体及其属性2.3.5 用户实体及其属性 用户实体及其属性如图7所示。用 户确认密码新密码用户名密码图 7 用户实体及其属性 数据库结构设计本系统采用SQL Server 2000作为后台数据库，包括职工基本信息管理、部门管理、职称管理、学历管理和用户信息管理等主要表结构。zgb表职工表用来保存职工基本信息，包括职工号、姓名、性别、出生日期、参加工作时间、部门号、职称级别、岗位及职务或工种等信息，如图8所示。 图 8 zgb 表的结构bmb表部门表用来保存企业各部门信息，包括部门号和部门名信息，如图9所示。图 9 bmb 表的结构zcb 表 职称表用来保存企业职工的职称信息，包括职称级别和职称名称信息，如图10所示。图 10 zcb 表的结构 xlb 表学历表用来保存企业职工的学历信息，包括学历类别和学历，如图11所示。图 11 xlb 表的结构oper 表 用户信息表用来保存使用本系统用户的信息，包括用户名、密码、新密码及确认密码，如图12所示。 图 12 oper 表的结构建立zgb表、bmb表、zcb表及xlb表之间的联系，如图13所示。 图13 建立的company数据库中各个表之间的关系 界面设计、部分代码、系统测试数据及运行结果4.1欢迎界面及用户登录界面图 4.1 企业人事管理系统欢迎界面登录用户名：01密码： 456123图 4.2 用户登录界面 4.2 企业人事管理系统菜单界面图 4.3 系统菜单界面4.3 系统用户管理界面 4.3.1 添加用户界面图 4.4 添加用户界面 4.3.2 用户密码修改界面图 4.5 修改用户密码界面4.4 职工信息浏览与维护界面 4.4.1 添加职工信息图 4.6 添加职工信息部分代码：Private Sub Form_Load()Set cnn = New ADODB.Connectioncnn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=company;Data Source=.Set rs = New ADODB.Recordsetrs.Open select * from zgb, cnn, adOpenDynamic, adLockOptimistic End SubPrivate Sub cmdsave_Click() rs.Fields(职工号) = Text1(0).Text rs.Fields(姓名) = Text1(1).Text rs.Fields(性别) = Text1(2).Text rs.Fields(出生日期) = Text1(3).Text rs.Fields(学历类别) = Text1(8).Text rs.Update For i = 0 To 8 Text1(i).Enabled = False Next i End Sub4.4.2 修改职工信息图 4.7 修改职工信息部分代码：Private Sub cmdedit_Click()If rs.RecordCount 0 Then cmdsave.Enabled = True cmdCancel.Enabled = True cmdAdd.Enabled = False cmdedit.Enabled = False cmddelete.Enabled = False Command1.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = FalseElse MsgBox (没有要修改的记录！)End IfEnd Sub4.4.3 删除职工信息图 4.8 删除职工信息 部分代码：Private Sub cmddelete_Click()Dim myval As String myval = MsgBox(是否要删除该记录？, vbYesNo) 见图4.9 If myval = vbYes Then rs.Delete adAffectCurrent rs.MoveNext If rs.EOF Then rs.MoveLast Call viewdata For i = 0 To 8 Text1(i).Enabled = False Next i图 4.9 End IfEnd Sub Private Sub viewdata() On Error Resume Next Text1(0).Text = rs.Fields(职工号) Text1(1).Text = rs.Fields(姓名) Text1(2).Text = rs.Fields(性别) Text1(3).Text = rs.Fields(出生日期) Text1(8).Text = rs.Fields(学历类别)End Sub4.4.4 浏览职工信息图 4.11 图 4.10操作按钮见图4.8的信息浏览。部分代码：第一条：rs.MoveFirst 前一条：rs.MovePrevious If rs.BOF Then rs.MoveFirst MsgBox 已经是第一条记录！, vbExclamation, 提示信息 End If Call viewdata （提示如图4.10所示）后一条：rs.MoveNext If rs.EOF Then rs.MoveLast MsgBox 已经是最后一条记录了！, vbExclamation, 提示信息 End If Call viewdata （提示如图4.11所示）最后一条：rs.MoveLast4.5 查询操作界面4.5.1 按部门号查询 测试数据：输入部门号“1”并单击“查询”按钮或在组合框了选“1”即可查询职工信息，如图4.12所示。图 4.12 按部门号查询到部门号为“1”部门的职工信息 部分代码：Private Sub Form_Load() cnn.Open connectstring strsql = select 职工号,姓名,性别,出生日期,参加工作时间,bmb.部门号,部门名,岗位 from zgb,bmb where zgb.部门号=bmb.部门号 rst.Open strsql, cnn, adOpenStatic, adLockOptimistic strsql0 = select 部门号 from bmb rst0.Open strsql0, cnn, adOpenStatic, adLockOptimisticText1.Text = rst.Fields(5)Text2.Text = rst.Fields(6)ShowTitleShowDatarst.Closerst.Open strsql, cnn, adOpenStatic, adLockOptimisticCombo1.Clear End SubPrivate Sub Combo1_Click()Dim cc As Stringcc = Trim(Combo1.Text)strsql = select 职工号,姓名,性别,出生日期,参加工作时间,bmb.部门号,部门名,岗位 from zgb,bmb where zgb.部门号=bmb.部门号 and zgb.部门号= & & cc & Set rst = cnn.Execute(strsql) Text1.Text = Combo1.Text Text2.Text = rst(部门名) ShowTitle ShowDataEnd SubPrivate Sub Command1_Click()Dim cc As Stringcc = Trim(Text1.Text)strsql = select 职工号,姓名,性别,出生日期,参加工作时间,bmb.部门号,部门名,岗位 from zgb,bmb where zgb.部门号=bmb.部门号 and zgb.部门号= & & cc & Set rst = cnn.Execute(strsql)Combo1.Text = Text1.TextText2.Text = rst(部门名)End SubPrivate Sub ShowData() With MSglist .Rows = 1 Do While Not rst.EOF .Rows = .Rows + 1 For i = 1 To rst.Fields.Count Select Case rst.Fields(i - 1).Type Case adDBDate .TextMatrix(.Rows - 1, i - 1) = Format(rst.Fields(i - 1) & , yyyy-mm-dd) Case Else .TextMatrix(.Rows - 1, i - 1) = rst.Fields(i - 1) & End Select Next i rst.MoveNext Loop End With End SubPrivate Sub ShowTitle() With MSglist .Cols = 8 设置单元大小 .ColWidth(0) = 1000 .ColWidth(1) = 1000 .ColWidth(7) = 2500 For i = 0 To 7 设置各列的对齐方式 .ColAlignment(i) = 4 Next i .TextMatrix(0, 0) = 职工号 .TextMatrix(0, 1) = 姓名 .TextMatrix(0, 7) = 岗位 .FixedRows = 1 表头项居中 .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols - 1 .CellAlignment = 4 .Row = 1 End WithEnd Sub4.5.2 按学历查询测试数据：输入学历类别“2”并单击“查询”按钮或在组合框了选“2”即可查询职工信息，如图4.13所示。图 4.13 按学历查询到学历类别为“2”的职工信息 大部分代码可参照按部门查询界面代码，个别地方需稍作修改。如：cnn.Open connectstring strsql = select 职工号,姓名,性别,出生日期,参加工作时间,xlb.学历类别,学历,岗位 from zgb,xlb where zgb.学历类别=xlb.学历类别 rst.Open strsql, cnn, adOpenStatic, adLockOptimistic cc = Trim(Combo1.Text)strsql = select 职工号,姓名,性别,出生日期,参加工作时间,xlb.学历类别,学历,岗位 from zgb,xlb where zgb.学历类别=xlb.学历类别 and zgb.学历类别= & & cc & Set rst = cnn.Execute(strsql).TextMatrix(0, 5) = 学历类别 .TextMatrix(0, 6) = 学历4.5.3 按职称查询测试数据：输入职称级别“3”并单击“查询”按钮或在组合框了选“3”即可查询职工信息，如图4.14所示。图 4.14 按职称查询到职称级别为“3”的职工信息大部分代码可参照按部门查询界面代码，个别地方需稍作修改。如：cnn.Open connectstringstrsql = select 职工号,姓名,性别,出生日期,参加工作时间,zcb.职称级别,职称名称,岗位 from zgb,zcb where zgb.职称级别=zcb.职称级别 rst.Open strsql, cnn, adOpenStatic, adLockOptimisticcc = Trim(Text1.Text)strsql = select 职工号,姓名,性别,出生日期,参加工作时间,zcb.职称级别,职称名称,岗位 from zgb,zcb where zgb.职称级别=zcb.职称级别 and zgb.职称级别= & & cc & .TextMatrix(0, 0) = 职工号 .TextMatrix(0, 1) = 姓名 .TextMatrix(0, 2) =