人事管理信息系统实验报告.docx

管理信息系统课程设计
成员:陈红英（组长）
周皓
卢亦天
平念
魏婷
刘雨琪
指导老师：苏骏
任务及负责人：
1. 代码编写及编译：陈红英（3)
2. 数据库设计：平念（5）
3. 系统界面：刘雨琪（3）
4. 流程图设计:魏婷（9）
5. 需求分析及数据字典:周皓（4）
6. 实验报告编写:卢亦天（6）
09信息管理与信息系统
2011年12月29号
人事管理信息系统开发
目录
1. 系统需求分析—-——--——————-—--————--——--———3
1、系统概述、必要性分析———-—----—----——-—-——--—--——-—3
2. 数据流程图-—-———-—-—---———-——-——-——-----——3、4
3. 登录模块开发—-----—-—--—-————-———-———————4、5
4. 业务流程图——-—————-———————-———-—-————-——-—5、6
5. 系统主界面与菜单—————--—————-——-—-——--6、7
6. 数据库的设计———-——————-—-——————-———--———-7、8
7. 系统功能模块设计-———-—————-——————-——-—-8、9
8. 系统的实现——-———---—————--—-—-—-——————-—-—-9、18
1. 登录模块的设计---——--—————--—————-—-——-—-———--———-—————--—-——10
2. 系统管理模块的设计—-——-—-———-----—-———————————————--——-———10
3. 员工基本信息模块的设计—--———-—--———-————--—-——-—————-11、12、13
4. 员工考勤管理模块的设计——--—--—--——---————————-———-——-13、14、15
5. 员工工作评价管理模块的设计——-——-—-————-——--——————-—15、16、17
6. 员工工资管理模块的设计———-———-——-——————-——-—-——-——---—17、18
9. 小结--—-—-——————--—-——----———----—-——----—---18
1。系统需求分析
1.系统概述、必要性分析
人事管理信息系统是任何事业单位都需要进行的一项工作，因此开发制作人事管理信息系统具有较大的社会现实意义，同时人事管理信息系统是一切应用系统的典范，它具有一切应用系统的特征,系统结构与现实生活紧密结合，具体直观，具有典范的数据库系统的特征。人事管理信息系统主要用于公司内部员工的档案、工资、考勤、评价的管理，便于公司领导人掌握人员的动向，及时调整人才的分配，同时也减少了手工操作带来的一些繁琐与不便，使员工情况的记录和统计变得十分简单。
2。数据流程图
系统登录模块员工及管理员均可进入。根据系统规定，通过身份验证,方可进入系统，否则不能进。
用户登录系统的程序流程如图所示
开 始

显示登录界面

用户登录

用户名是否存在

N
Y
用户名是否为空

Y
N

Y
跳转主界面
Y
密码是否正确
密码是否为空

N
N

3。登录模块的开发
在工程1中添加普通窗体，将窗体命名为“xitong"，这是用户的登录窗口。
在这个窗体中增加文字标签“用户名："、“密码：”，再增加两个文本框和两个命令按钮，文本框和命令按钮分别默认命名为“text1"、“text2”"command1"和“Command2”,最后适当修改文本框和命令按钮的Caption属性。最终效果如图所示。
双击命令按钮“Command1”,进入其Command1_Click代码编写状态,输入代码如下：
登录模块的代码
4。业务流程图
该人事管理信息系统包括系统管理模块、员工基本信息模块、员工考勤信息模块、员工工作评价管理模块、员工工资管理模块。可以对这些模块中的信息进行查询和管理，即查询、添加、修改、删除等操作。其业务流程图为：
人事管理信息系统

员工工资查询
员工工作评价管理
员工工作评价查询
员工考勤管理
员工考勤查询
员工基本信息管理
退出
员工
基本信息查询
员工工作评价管理
员工工资管理

员工考勤管理
员工基本信息管理
重新登录

系统管理

5。系统主界面与菜单
设置主界面如下图,根据系统设计阶段对用户类别的划分，已经明确了各类用户在系统中的操作权限。
1. 操作过程及系统主界面与菜单如图所示:
6.数据库的设计
在F盘下新建一个文件夹命名为人事管理信息系统,在此文件夹下新建这个数据库下新建ａｃｃｅｓｓ数据库，一个命名为用户，用以存放用户登录信息；另一个命名为人事管理信息，在里面创建5张数据表,分别为:用户信息表、员工档案表、员工工资信息表、员工考勤信息表和员工评价信息表。正确地设置数据表中各个字段的名称、类型、宽度等信息，并设置每个数据表的主键.
表结构如下：
用户信息表（uid（用户名），PWD（密码)）
员工档案信息表（ygid（员工编号），ygname(员工姓名），ygdept（员工部门)ygsex（员工性别）,ygbirthday（员工），ygplace（员工籍贯）,yglevel（员工学历）,ygspecial（员工专业）,ygdate1（参加工作时间),ygdate2(入党时间)，ygbusi(职称）,ygdate3(职称时间）,ygdate4（进入公司时间)，ygdate5(起薪时间），ygdate6(调入部门时间），ygno(档案号)）
员工考勤信息表（kqid(编号），kqname（姓名),kqdate（考勤日期)，qkdays（本月天数)，kqrday（公休假天数）,qktday（应出勤天数），kqwork（出勤）,kqabsent（旷工)，kqrest(年休）,kqleave(请假），kqlate（迟到），kqearly（早退），kqforget（忘定卡)，kqover1（假日加班），kqover2（其它加班），kqfill（补休天数），kqgo（出差天数),kqpay（加班费），kqdeduct（扣考核))
员工评价信息表（pjid（评价编号），pjname（姓名）,pjno(评价代码),pjdate(时间），pjresult（工作业绩）,pjposition（工作态度）,pjlevel（业务水平))
员工工资信息表(gzid（工资编号），gzname（姓名）,gzbase（底薪），gzall（补贴）,gzbonus(奖金)，gzpay（加班），gzdeduct（扣考核），gzage（代扣养老金)，gzmedical(代扣医疗保险）,gzhouse1(代扣住房公积金），gztotal（税前小计），gzduty(所得税），gzhouse2（房贴),gzhouse3（房租），gzlaborage（实发工资）,gzdate（时间))
7.系统功能模块设计
选取了与人事管理相关的档案、评价、考勤和工资发放等流程进行设计，系统由系统管理、员工基本信息管理、员工考勤管理、以工作评价信息管理和员工工资管理等模块组成,各个功能模块介绍如下：
1. 系统管理模块:
在这个模块中,可以通过身份验证重新登录和退出系统。
2. 员工基本信息模块：
在这个模块中，员工可以查询自己的档案情况,并且可以根据编号查询他人的档案情况，但不能修改;而管理员可以管理所有员工的档案信息,可以进行查询、添加、删除等操作。
3. 员工考勤信息模块：
在这个模块中,员工可以查询自己的考勤情况，并且可以根据编号查询他人的考勤情况,但不能修改；而管理员可以管理所有员工的考勤信息，可以进行查询、添加、删除等操作.
4. 员工工作评价管理模块：
在这个模块中，员工可以查询自己的工作情况，并且可以根据编号查询他人的工作情况,但不能修改;而管理员可以管理所有员工的工作信息，可以进行查询、添加、删除等操作。
5. 员工工资管理模块：
在这个模块中，员工可以查询自己的工资情况，并且可以根据编号查询他人的工资情况,但不能修改;而管理员可以管理所有员工的工资信息，可以进行查询、添加、删除等操作.
8.系统的实现
1. 登录模块的设计：
运行程序首先看到的是登录界面，输入用户名和密码（分别为yy,123)，单击【确定】，进入程序主界面,如图所示：
系统登录界面
2. 系统管理模块的设计
用户单击【系统】/【重新登录】项即可退出当前界面并重新登录，单击【系统】/【退出】项即可退出系统。
主程序界面
3. 员工基本信息模块的设计：
用户在主界面中单击【员工基本信息】/【查询员工基本信息】即可进入到员工信息查询界面，在主界面单击【员工基本信息】/【员工信息管理】项,即可进入员工信息管理界面，如图所示:
这部分代码实现如下：
Private Sub Command1_Click()
Dim msg As Integer
msg = InputBox(”请输入编号”, ”查找记录"）
Adodc1。Recordset.Find ”ygid=’” ＆ msg & "’", , , 1
If Adodc1.Recordset。EOF Then
MsgBox "无此员工信息”， ， "提示”
End If
End Sub
Private Sub Command2_Click（）
Dim ask As Integer
On Error Resume Next
ask = MsgBox(”确定删除吗?”， vbYesNo)
If ask = 6 Then
Adodc1.Recordset。Delete
Adodc1。Recordset.MoveNext
If Adodc1。Recordset.EOF Then Adodc1.Recordset。MoveLast
End If
End Sub
Private Sub Command3_Click（）
Adodc1。Recordset.MovePrevious
If Adodc1。Recordset.BOF Then
Adodc1.Recordset.MoveFirst
MsgBox （"已经是第1条记录了！”)
End If
End Sub
Private Sub Command4_Click（）
Adodc1.Recordset.MoveFirst
End Sub
Private Sub Command5_Click（）
Adodc1。Recordset。AddNew
MsgBox ”您已成功添加！”
End Sub
Private Sub Command6_Click(）
Adodc1.Recordset。MoveLast
End Sub
Private Sub Command7_Click(）
Adodc1。Recordset。MoveNext
If Adodc1。Recordset。EOF Then
Adodc1.Recordset。MoveLast
MsgBox （"已经是最后1条记录了！"）
End If
End Sub
Private Sub Command9_Click（）
End Sub
Private Sub Command8_Click（)
Form2。Show
End Sub
4.员工考勤管理模块的设计：
用户在主界面中单击【员工考勤管理】/【查询员工考勤】即可进入到员工信息查询界面,在主界面单击【员工考勤管理】/【员工考勤管理】项,即可进入员工考勤管理界面，如图所示：
这部分代码实现如下：
Private Sub Command1_Click（)
Form2.Show
End Sub
Private Sub Command2_Click()
Dim ask As Integer
On Error Resume Next
ask = MsgBox（”确定删除吗？"， vbYesNo)
If ask = 6 Then
Adodc1。Recordset。Delete
Adodc1。Recordset。MoveNext
If Adodc1。Recordset。EOF Then Adodc1。Recordset.MoveLast
End If
End Sub
Private Sub Command3_Click（)
Dim msg As Integer
msg = InputBox(”请输入编号”， ”查找记录"）
Adodc1。Recordset.Find ”kqid=’" ＆ msg ＆ ”’”， ， ， 1
If Adodc1。Recordset.EOF Then
MsgBox ”无此员工信息”， ， "提示”
End If
End Sub
Private Sub Command4_Click（）
Adodc1。Recordset.AddNew
MsgBox ”您已成功添加！"
End Sub
5。员工工作评价管理模块的设计:
用户在主界面中单击【员工工作评价管理】/【查询工作评价信息】即可进入到员工信息查询界面，在主界面单击【员工工作评价管理】/【工作评价信息管理】项,即可进入员工考勤管理界面，如图所示:
这部分代码实现如下：
Private Sub Command1_Click（）
Dim msg As Integer
msg = InputBox（”请输入编号”， ”查找记录")
Adodc1。Recordset。Find ”pjid=’" & msg & ”'"， ， , 1
If Adodc1。Recordset.EOF Then
MsgBox ”无此员工信息”， ， ”提示”
End If
End Sub
Private Sub Command2_Click（）
Adodc1。Recordset。AddNew
MsgBox ”您已成功添加！”
End Sub
Private Sub Command3_Click（）
Dim ask As Integer
On Error Resume Next
ask = MsgBox（"确定删除吗？"， vbYesNo)
If ask = 6 Then
Adodc1。Recordset。Delete
Adodc1。Recordset.MoveNext
If Adodc1。Recordset.EOF Then Adodc1。Recordset。MoveLast
End If
End Sub
Private Sub Command4_Click（)
Form2。Show
End Sub
6. 员工工资管理模块的设计：
用户在主界面中单击【员工工资管理】/【查询员工工资信息】即可进入到员工信息查询界面，如图所示：
这部分代码实现如下:
9。小结：
在组员的共同努力、老师的指导、同学的帮助和课本的参考下，我们的课程设计圆满完成，各组都互相帮助，共同探讨，共同学习，表现较好.
通过这次课程实验设计,我们复习并加强了对VB及数据库课程的学习，学会了将零散的知识结合起来完成整个系统,并懂了许多以前尚没有学好的知识，比如如何做菜单编辑,如何连接数据库、实现数据之间的绑定等。这是我们第一次动手做系统，第一次将理论知识应用于实践，途中也遇到很多问题，代码的编写和数据库的连接是主要问题之一，但我们通过自己动手、看参考书、组员讨论等方式也顺利解决了这些问题, 同时学到了许多知识。但这个系统的实现较为简单，还没有实现员工工资的计算，只是通过自己输入数据先计算好才能查询，而不能用代码写好，还有待研究与改进。
透过完成上述工作，使我认识到一个称职的管理人员应当具有良好的语言表达潜力、流畅的文字写作潜力、较强的组织领导潜力、灵活的处理问题潜力、有效的对外联系潜力、大型活动的策划及筹备潜力。