人事系统分析报告

《数据库原理与应用》
课程设计
分析与设计报告
题目人事管理系统
专业班级网络0801班
学号200807060115 200807060112姓名
指导老师
完成时间 2011-01-14
目录
1 设计任务与要求 (1)
2 设计工具及其说明 (1)
3 需求分析 (1)
3。

1功能需求 (1)
3。

2性能需求 (2)
4 系统总体设计 (2)
5 数据库设计 (7)
5。

1概念结构设计 (7)
5.2物理结构设计 (9)
6 运行结果和测试 (11)
7 参考资料 (13)
附录代码 (14)
1 设计任务与要求
·编写目的：
在积极建立企业现代企业管理机制的今天，仅仅靠原始的手工管理或简单的单机管理,人力资源部门面对大量的信息，无法有效率地将其中的重要部分提取出来，并做出相应的判断和处理.公司管理者的决策只能依据报表数据,在浪费大量人力、物力的同时无法做到实时监控，难以保证数据的准确性和及时性.因此，先进的管理思想在企业中实现就成为了一个可望而不可及的目标。

公司集团非常急需一套既有先进管理思想又适合国内大企业的人力资源管理信息系统,作为实现目标和提高现有水平的一种重要手段!人事管理是企业信息管理
的重要部分,面对员工基本信息，婚姻状况，学历信息,部门信息，工作岗位，工资信息等等，采用人力处理将浪费大量的时间、人力和物力，且数据的准确性低。

因此，开发一个界面友好，易于操作的人事工资管理软件进行自动化处理变得十分重要，这正是本系统开发的目的。

·编写任务:
运用Microsoft Visual Basic软件和Microsoft Office Access共同创建数据库及其管理系统,编写人事管理系统
·编写意义
作为一名在校大学生，此次课程设计一方面是对我们自身在校期间学习成果的一次检验，另一方面，通过这次课程设计，使我们更加深入的了解怎样运用我们所学的知识去做一个合格的、符合以后工作要求的数据库。

我们此次选择的设计题目是人事管理系统的设计，设计的意义在于通过人事管理系统，能让用户跟方便的对企业、公司、或者一些其他机构的人事信息进行高效、方便的管理。

2 设计工具及其说明
本系统采用客户/服务器两层结构模型，前台用户界面采用Visual Basic语言编写，后台采用Access数据库，前台应用程序与后台数据库连接采用的是ADO技术。

运用Access数据库创建数据库,数据库中设计主键有利于数据表项的链接，
用VB6.0来制作界面和编写程序
ADO技术可以将编写程序中的数据库连接简化，用最少的编程尽快地创建和使用数据存取应用程序.
3 需求分析
不同的用户对自己所需要的人事管理系统要求不同，大型企业由于公司人员较多，在人事管理方面的需求上包括很多方面，而小型企业人员较少,相应的管理需求也就相应减少。

在此，我们仅以一家小型软件开发公司为例来分析他们对所需数据库的要求.
3.1功能需求
一家小型的软件企业对人事管理系统的要求包括：(1）仅有人事管理部门人员和公司经理、总裁才可以进入该系统。

（2）该人事管理系统的基本功能因包括对公司员工档案的管理，对员工调动的管理，对员工考勤的管理，对员工工资的管理，以及对员工工作评价的管理.
根据以上要求，我们对该系统的功能划分可参考图1企业人事管理系统功能划分图
图1企业人事管理系统功能划分图
各个功能部分具体功能如下列出：
1、系统设置管理功能是人事部人员对系统进行权限设置的单元
2、员工档案管理的功能是对员工档案进行增删改查等功能的单元
3、员工评价管理是对各个员工在工作期间，由同事、上司等人员对其进行的评价进行
管理，有利于公司对各个员工在各个方面的综合评价
4、员工考勤信息管理的功能是对员工上班期间有无迟到、早退以及请假信息的管理，
有利对员工工资等发放过程中工资的计算
5、员工调动管理是对员工工作期间工作职位调动，职务变动的管理
6、员工工资管理是对员工当月基本工资、员工奖金、员工福利等全部工资进行有效管
理的单元。

3。

2性能需求
该软件的性能应包括对员工各项信息的录入、修改、查询、删除、保存等。

且要求软件适应性、移植性强
4 系统总体设计
根据功能需求设计，我们先设计出了系统的总体功能模块图如图2系统总体六大功能模块设计图
图2 系统总体六大功能模块设计图·具体功能模块设计如下分类
·1 系统设置管理模块如图3系统设置管理模块图
图3 系统设置管理模块图
·2员工档案管理模块如图4员工档案管理模块图
图4员工档案管理模块图·3员工评价管理模块如图5员工评价管理模块图
图5员工评价管理模块图·4员工考勤管理模块如图6员工考勤管理模块图
图6员工考勤管理模块图·5员工调动管理模块如图7员工调动管理模块图
图7员工调动管理模块图·6员工工资管理模块如图8员工工资管理模块图
图8员工工资管理模块图·本系统的设计流程图如下图图9系统设计流程图
图9 系统设计流程图
5 数据库设计
5。

1概念结构设计
根据分析规划出的实体有：员工档案信息实体、员工调动信息实体、员工工资信息实体、考勤信息实体、员工评价信息实体。

各个实体的E—R图如图10各个实体E—R图
图(1）员工档案信息
图(2）员工调动信息
图（3）员工工资信息实体
图（4）员工考勤信息实体
图（5)员工评价信息实体
图10各个实体E—R图
5.2物理结构设计
现在需要将上面的数据库概念结构转化为Access数据库系统所支持的实际数据模型，也就是数据库的逻辑结构.宾馆管理信息系统数据库中各个表格的设计结果如下面表格所示表1.员工档案信息表
说明:员工职务有程序员、工程师、项目经理、总裁、总经理部门有后勤部、开发部、人事部、销售部
说明：用户全县有Guest和Administrators
表5员工评价报表
工作业绩文本否
工作态度数字否
态度说明文本否
……………………
表6员工工资表
字段名数据类型关键字段说明
员工编号数字是
员工姓名文本否
所在部门文本否
底薪数字否
加班费数字否
补贴数字否
房帖数字否
……………………
说明:搜在部门有：后勤部、开发部、人事部、销售部
员工的底薪和员工所在的部门和职位有关，职位不同底薪也不相同
6 运行结果和测试
·运行结果图
运行界面如图(11）系统运行图
首先人事部门工作人员通过输入管理员名称和口令来进入系统当输入名称等错误时，被限制进入，且只有三次输入机会如图11（1）
图11(1）人事管理系统登录图
输入真确的管理员名称和管理员口令后，点击登录按钮进入系统总界面如图11（2）在该主界面，可以选择不同的表项进行操作。

例如选择员工档案信息表后会出现如图11(3）的图。

通过此窗口，可以对员工基本信息进行增加、删除、修改、查询、保存等操作。

在选择增加按钮时，可在各个表项中填入需要增加的员工信息，继续增加可继续按增加按钮,系统自动保存;
选择删除按钮时，系统提示是否真的要删除表项，如图11（4）提示窗口
对该表的操作完成后，点击退出按钮可进入人事管理系统主界面图11（2）
图11（2）系统表项进入主界面
图11（3）员工档案信息表的管理窗口
图11(4）删除记录提示窗口
对其他表项的操作同样可通过主界面进入，各个表项内功能基本相同,在此就不列举了.
·测试
在对各个表项进行操作过程中，当然有很多问题出现，比如程序编写有误造成系统运行不了,通过调试程序可对其进行改正；再如,在设置按钮和框体时，设置属性不正确不能达到预期目的,通过属性的从新设置可消除。

7 参考资料
参考资料有：《Visual Basic 6。

0数据库编程指南》--——姜晓铭—中国石化出版社《数据库系统开发教程》—--—李春葆等--—清华大学出版社另外，还参考了网络信息资源
用户登录界面代码
//退出系统代码
Private Sub Image2_Click()
If MsgBox(”是否退出系统！”, vbOKCancel + vbQuestion, ”系统提示”） = vbOK Then End
End If
End Sub
//登录代码
Private Sub Image1_Click（）
Static intMyTimes As Integer
If Text1.Tex t = ”" And Text2.Text = ”" Then
MsgBox "用户名或密码不能为空！"，， Form1.Caption
Exit Sub
End If
Adodc1。

Recordset。

Filter = "yonghumingchen='” ＆Text1.Text & "' And yonghukoling='” ＆ Text2.Text & "'"
If Adodc1.Recordset。

RecordCount 〈 1 Then
intMyTimes = intMyTimes + 1
If intMyTimes = 4 Then
MsgBox ”登录错误超过3次,系统自动退出！”, ， "系统提示”
End
End If
MsgBox ”登录错误！"， , ”系统提示”
Text2.Text = "”
Else
If Adodc1。

Recordset。

RecordCount = 1 Then
interface。

Show
Form1。

Hide
End If
End If
End Sub
//主界面按钮代码
Private Sub Command1_Click(）
yuangongdanganxinxibiao。

Show
End Sub
Private Sub Command2_Click()
yuangongdiaodongxinxibiao.Show
End Sub
Private Sub Command3_Click（)
yuangonggongzixinxibiao。

Show
End Sub
Private Sub Command4_Click（)
yuangongkaoqinxinxibiao。

Show
End Sub
Private Sub Command5_Click（)
yuangongpingjiabaobiao。

Show
End Sub
Private Sub Command6_Click（）
Unload Me
End Sub
//各个表项使用钮代码
Private Sub Cmd_delete_Click()
Msg = MsgBox("你确实要删除记录吗？"， vbYesNo）
If Msg = vbYes Then
Adodc1.Recordset.Delete
Adodc1。

Recordset。

MoveNext
If Adodc1.Recordset。

EOF Then Adodc1.Recordset.MoveLast End If
End Sub
Private Sub Cmd_insert_Click()
Cmd_insert。

Enabled = True
Cmd_delete.Enabled = False
Cmd_update。

Enabled = False
Cmd_save.Enabled = True
Cmd_find.Enabled = False
Cmd_Refresh。

Enabled = False
Adodc1。

Recordset。

AddNew
Text1。

SetFocus
End Sub
Private Sub Cmd_save_Click（)
Adodc1。

Recordset。

Update
Cmd_insert。

Enabled = True
Cmd_delete.Enabled = True
Cmd_update.Enabled = True
Cmd_save。

Enabled = False
Cmd_find.Enabled = True
Cmd_Refresh.Enabled = True
End Sub
Private Sub Cmd_update_Click（）
Msg = MsgBox(”你确实要修改记录吗？”, vbYesNo）
If Msg = vbYes Then
Adodc1.Recordset。

Update
Cmd_insert。

Enabled = True
Cmd_delete。

Enabled = False
Cmd_update。

Enabled = False
Cmd_save。

Enabled = True
Cmd_find。

Enabled = False
Cmd_Refresh。

Enabled = False
Text1。

SetFocus
End If
End Sub
Private Sub Cmd_find_Click(）
mno = InputBox$（"请输入员工编号", "查找窗")
mno = "yuangongbianhao like ’” & mno & " '”
Adodc1。

Recordset。

Filter = mno
If Adodc1.Recordset。

RecordCount = 0 Then MsgBox "无此员工！”， , "提示”End Sub
Private Sub Cmd_refresh_Click(）
Adodc1。

Refresh
End Sub
End Sub
Private Sub Cmd_exit_Click(）
Unload Me
interface.Show
End Sub。