1、人事管理信息系统实验报告管理信息系统课程设计 成员：陈红英（组长）周皓卢亦天平念魏婷刘雨琪指导老师：苏骏任务及负责人：1. 代码编写及编译：陈红英（3） 2. 数据库设计：平念（5）3. 系统界面：刘雨琪（3）4. 流程图设计：魏婷（9）5. 需求分析及数据字典：周皓（4） 6. 实验报告编写：卢亦天（6）09 信息管理与信息系统 2011 年 12 月 29 号人事管理信息系统开发 目录1. 系统需求分析-31、系统概述、必要性分析-32. 数据流程图-3、4 3. 登录模块开发-4、5 4. 业务流程图-5、6 5. 系统主界面与菜单-6、7 6. 数据库的设计-7、8 7. 系统功能模块
2、设计-8、9 8. 系统的实现-9、181. 登录模块的设计-102. 系统管理模块的设计-103. 员工基本信息模块的设计-11、12、134. 员工考勤管理模块的设计-13、14、155. 员工工作评价管理模块的设计-15、16、176. 员工工资管理模块的设计-17、189. 小结-181.系统需求分析1.系统概述、必要性分析人事管理信息系统是任何事业单位都需要进行的一项工作，因此开发制作人事管理信息系统具有较大的社会现实意义，同时人事管理信息系统是一切应用系统的典范，它具有一切应用系统的特征，系统结构与现实生活紧密结合，具体直观，具有典范的数据库系统的特征。人事管理信息系统主要用于公司
3、内部员工的档案、工资、考勤、评价的管理，便于公司领导人掌握人员的动向，及时调整人才的分配，同时也减少了手工操作带来的一些繁琐与不便， 使员工情况的记录和统计变得十分简单。2.数据流程图系统登录模块员工及管理员均可进入。根据系统规定，通 过身份验证，方可进入系统，否则不能进。用户登录系统的程序流程如图所示用户名是否 为空用户名是否存在密码是否为空密码是否正 确3.登录模块的开发在工程 1 中添加普通窗体，将窗体命名为“xitong”，这是 用户的登录窗口。在这个窗体中增加文字标签“用户名：”、“密码：”，再增加两个文本框和两个命令按钮，文本框和命令按钮分别默认命名为“text1”、“text2”
4、command1”和“Command2”，最后适当修改文本框和命令按钮的 Caption 属性。最终效果如 图所示。双击命令按钮“Command1”，进入其 Command1_Click 代码编写 状态，输入代码如下：登录模块的代码4.业务流程图该人事管理信息系统包括系统管理模块、员工基本信息模块、员工考勤信息模块、员工工作评价管理模块、员工工资管理模块。可以对这些模块中的信息进行查询和管理，即查询、添加、修改、删除等操作。其业务流程图为：5.系统主界面与菜单设置主界面如下图，根据系统设计阶段对用户类别的划分，已 经明确了各类用户在系统中的操作权限。1. 操作过程及系统主界面与菜单如图所示：6
5、.数据库的设计在 F 盘下新建一个文件夹命名为人事管理信息系统，在此文件夹下新建这个数据库下新建数据库，一个命名为用户，用以存放用户登录信息；另一个命名为人事管理信息，在里面创建 5 张数据表，分别为：用户信息表、员工档案表、员工工资信息表、员工考勤信息表和员工评价信息表。正确地设置数据表中各个字段的名称、类型、宽度等信息，并 设置每个数据表的主键。表结构如下：用户信息表（uid（用户名），PWD（密码）员工档案信息表（ygid(员工编号)，ygname（员工姓名），ygdept(员工部门)ygsex(员工性别),ygbirthday(员工)，ygplace(员工籍贯)，yglevel(员工学
6、历)，ygspecial(员工专业)，ygdate1(参加工作时间)，ygdate2(入党时间)，ygbusi(职称），ygdate3(职称时间)，ygdate4(进入公司时间)，ygdate5(起薪时间)， ygdate6(调入部门时间)，ygno(档案号)员工考勤信息表（kqid(编号)，kqname(姓名)，kqdate(考勤日期)，qkdays(本月天数)，kqrday（公休假天数）,qktday(应出勤天数)，kqwork(出勤)，kqabsent(旷工)，kqrest(年休)，kqleave(请假)，kqlate（迟到），kqearly(早退)，kqforget(忘定卡)，kqov
7、er1(假日加班)，kqover2（其它加班），kqfill(补休天 数)，kqgo(出差天数)，kqpay(加班费)，kqdeduct(扣考核)）员工评价信息表（pjid(评价编号)，pjname(姓名)，pjno(评价代码)，pjdate(时间)，pjresult(工作业绩)，pjposition(工作 态度)，pjlevel(业务水平)）员工工资信息表（gzid(工资编号)，gzname(姓名)，gzbase(底薪)，gzall(补贴)，gzbonus(奖金)，gzpay(加班)，gzdeduct(扣考核)，gzage(代扣养老金)，gzmedical(代扣医疗保险)，gzhouse1(
8、代扣住房公积金)，gztotal(税前小计)，gzduty(所得税)，gzhouse2(房贴)，gzhouse3(房租)，gzlaborage(实发工资)， gzdate(时间)）7.系统功能模块设计选取了与人事管理相关的档案、评价、考勤和工资发放等流程进行设计，系统由系统管理、员工基本信息管理、员工考勤管理、以工作评价信息管理和员工工资管理等模块组成，各 个功能模块介绍如下：1. 系统管理模块：在这个模块中，可以通过身份验证重新登录和退出系 统。2. 员工基本信息模块：在这个模块中，员工可以查询自己的档案情况，并且可以根据编号查询他人的档案情况，但不能修改；而管理员可以管理所有员工的档案信息
9、，可以进行查询、 添加、删除等操作。3. 员工考勤信息模块：在这个模块中，员工可以查询自己的考勤情况，并且可以根据编号查询他人的考勤情况，但不能修改；而管理员可以管理所有员工的考勤信息，可以进行查询、添加、 删除等操作。4. 员工工作评价管理模块：在这个模块中，员工可以查询自己的工作情况，并且可以根据编号查询他人的工作情况，但不能修改；而管理员可以管理所有员工的工作信息，可以进行查询、添加、 删除等操作。5. 员工工资管理模块：在这个模块中，员工可以查询自己的工资情况，并且可以根据编号查询他人的工资情况，但不能修改；而管理员可以管理所有员工的工资信息，可以进行查询、添加、 删除等操作。8.系统
10、的实现1. 登录模块的设计：运行程序首先看到的是登录界面，输入用户名和密码（分别为 yy,123）,单击【确定】，进入程序主界面， 如图所示：系统登录界面2. 系统管理模块的设计用户单击【系统】/【重新登录】项即可退出当前界 面并重新登录，单击【系统】/【退出】项即可退出系统。主程序界面3. 员工基本信息模块的设计：用户在主界面中单击【员工基本信息】/【查询员工基本信息】即可进入到员工信息查询界面，在主界面单击 【员工基本信息】/【员工信息管理】项，即可进入员工 信息管理界面，如图所示：这部分代码实现如下：Private Sub Command1_Click()Dim msg As Integ
11、ermsg = InputBox(请输入编号, 查找记录) Adodc1.Recordset.Find ygid= & msg & , , , 1 If Adodc1.Recordset.EOF ThenMsgBox 无此员工信息, , 提示End IfEnd SubPrivate Sub Command2_Click()Dim ask As IntegerOn Error Resume Nextask = MsgBox(确定删除吗？, vbYesNo)If ask = 6 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc
12、1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstMsgBox (已经是第 1 条记录了！)End IfEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Command5_Click()Adodc1.
13、Recordset.AddNewMsgBox 您已成功添加！End SubPrivate Sub Command6_Click()Adodc1.Recordset.MoveLastEnd SubPrivate Sub Command7_Click()Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastMsgBox (已经是最后 1 条记录了！)End IfEnd SubPrivate Sub Command9_Click()End SubPrivate Sub Command8_Click(
14、)Form2.ShowEnd Sub4.员工考勤管理模块的设计：用户在主界面中单击【员工考勤管理】/【查询员工考勤】即可进入到员工信息查询界面，在主界面单击 【员工考勤管理】/【员工考勤管理】项，即可进入员工 考勤管理界面，如图所示：这部分代码实现如下：Private Sub Command1_Click()Form2.ShowEnd SubPrivate Sub Command2_Click()Dim ask As IntegerOn Error Resume Nextask = MsgBox(确定删除吗？, vbYesNo)If ask = 6 ThenAdodc1.Recordset.D
15、eleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command3_Click()Dim msg As Integermsg = InputBox(请输入编号, 查找记录)Adodc1.Recordset.Find kqid= & msg & , , , 1If Adodc1.Recordset.EOF ThenMsgBox 无此员工信息, , 提示End IfEnd SubPrivate Sub Command4_Click(
16、)Adodc1.Recordset.AddNewMsgBox 您已成功添加！End Sub5.员工工作评价管理模块的设计：用户在主界面中单击【员工工作评价管理】/【查询工作评价信息】即可进入到员工信息查询界面，在主界 面单击【员工工作评价管理】/【工作评价信息管理】项， 即可进入员工考勤管理界面，如图所示：这部分代码实现如下：Private Sub Command1_Click()Dim msg As Integermsg = InputBox(请输入编号, 查找记录) Adodc1.Recordset.Find pjid= & msg & , , , 1 If Adodc1.Recordse
17、t.EOF ThenMsgBox 无此员工信息, , 提示End IfEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.AddNewMsgBox 您已成功添加！End SubPrivate Sub Command3_Click()Dim ask As IntegerOn Error Resume Nextask = MsgBox(确定删除吗？, vbYesNo)If ask = 6 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then
18、 Adodc1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command4_Click()Form2.ShowEnd Sub6. 员工工资管理模块的设计：用户在主界面中单击【员工工资管理】/【查询员工工资信息】即可进入到员工信息查询界面，如图所示：这部分代码实现如下：9.小结：在组员的共同努力、老师的指导、同学的帮助和课本的参考下，我们的课程设计圆满完成，各组都互相帮助，共同探讨，共同学习， 表现较好。通过这次课程实验设计，我们复习并加强了对 VB 及数据库课程的学习，学会了将零散的知识结合起来完成整个系统，并懂了许多以前尚没有学好的知识，比如如何做菜单编辑，如何连接数据库、实现数据之间的绑定等。这是我们第一次动手做系统，第一次将理论知识应用于实践，途中也遇到很多问题，代码的编写和数据库的连接是主要问题之一，但我们通过自己动手、看参考书、组员讨论等方式也顺利解决了这些问题， 同时学到了许多知识。但这个系统的实现较为简单，还没有实现员工工资的计算，只是通过自己输入数据先计算好才能查询，而不能用代码写好，还有待研究与改进。
