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

管理信息系统课程设计 成员：陈红英（组长） 周皓 卢亦天 平念 魏婷 刘雨琪 指导老师：苏骏 任务及负责人：1. 代码编写及编译：陈红英（200906190123）2. 数据库设计：平念（200906190125）3. 系统界面：刘雨琪（200906190133）4. 流程图设计：魏婷（200906190129）5. 需求分析及数据字典：周皓（200906190134）6. 实验报告编写：卢亦天（200906190126） 09信息管理与信息系统 2011年12月29号人事管理信息系统开发 目录1. 系统需求分析-31、系统概述、必要性分析-32. 数据流程图-3、43. 登录模块开发-4、54. 业务流程图-5、65. 系统主界面与菜单-6、76. 数据库的设计-7、87. 系统功能模块设计-8、98. 系统的实现-9、181. 登录模块的设计-102. 系统管理模块的设计-103. 员工基本信息模块的设计-11、12、134. 员工考勤管理模块的设计-13、14、155. 员工工作评价管理模块的设计-15、16、176. 员工工资管理模块的设计-17、189. 小结-181.系统需求分析1.系统概述、必要性分析人事管理信息系统是任何事业单位都需要进行的一项工作，因此开发制作人事管理信息系统具有较大的社会现实意义，同时人事管理信息系统是一切应用系统的典范，它具有一切应用系统的特征，系统结构与现实生活紧密结合，具体直观，具有典范的数据库系统的特征。人事管理信息系统主要用于公司内部员工的档案、工资、考勤、评价的管理，便于公司领导人掌握人员的动向，及时调整人才的分配，同时也减少了手工操作带来的一些繁琐与不便，使员工情况的记录和统计变得十分简单。2.数据流程图系统登录模块员工及管理员均可进入。根据系统规定，通过身份验证，方可进入系统，否则不能进。用户登录系统的程序流程如图所示开 始显示登录界面用户登录用户名是否存在NY用户名是否为空YNY跳转主界面Y密码是否正确密码是否为空NN3.登录模块的开发在工程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 Integermsg = InputBox(请输入编号, 查找记录)Adodc1.Recordset.Find ygid= & msg & , , , 1If 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 Adodc1.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.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()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.DeleteAdodc1.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()Adodc1.Recordset.AddNewMsgBox 您已成功添加！End Sub5.员工工作评价管理模块的设计：用户在主界面中单击【员工工作评价管理】/【查询工作评价信息】即可进入到员工信息查询界面，在主界面单击【员工工作评价管理】/【工作评价信息管理】项，即可进入员工考勤管理界面，如图所示：这部分代码实现如下：Private Sub Command1_Click()Dim msg As Integermsg = InputBox(请输入编号, 查找记录)Adodc1.Recordset.Find pjid= & msg & , , , 1If Adodc1.Recordset.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 Adodc1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command4_Click()Form2.ShowEnd Sub6. 员工工资管理模块的设计：用户在主界面中单击【员工工资管理】/【查询员工工资信息】即可进入到员工信息查询界面，如图所示：这部分代码实现如下：9.小结： 在组员的共同努力、老师的指导、同学的帮助和课本的参考下，我们的课程设计圆满完成，