1、人事系统分析报告数据库原理与应用课程设计分析与设计报告题 目 人事管理系统 专业班级 网络0801班 学 号 200807060115 200807060112 姓 名 指导老师 完成时间 2011-01-14 2 设计工具及其说明13。1功能需求13。2性能需求24 系统总体设计25 数据库设计75。1概念结构设计75.2物理结构设计96 运行结果和测试117 参考资料13附录代码141 设计任务与要求编写目的： 在积极建立企业现代企业管理机制的今天，仅仅靠原始的手工管理或简单的单机管理,人力资源部门面对大量的信息，无法有效率地将其中的重要部分提取出来，并做出相应的判断和处理.公司管理者的决
2、策只能依据报表数据,在浪费大量人力、物力的同时无法做到实时监控，难以保证数据的准确性和及时性.因此，先进的管理思想在企业中实现就成为了一个可望而不可及的目标。公司集团非常急需一套既有先进管理思想又适合国内大企业的人力资源管理信息系统,作为实现目标和提高现有水平的一种重要手段!人事管理是企业信息管理的重要部分,面对员工基本信息，婚姻状况，学历信息,部门信息，工作岗位，工资信息等等，采用人力处理将浪费大量的时间、人力和物力，且数据的准确性低。因此，开发一个界面友好，易于操作的人事工资管理软件进行自动化处理变得十分重要，这正是本系统开发的目的。编写任务: 运用Microsoft Visual Bas
3、ic软件和Microsoft Office Access共同创建数据库及其管理系统,编写人事管理系统编写意义作为一名在校大学生，此次课程设计一方面是对我们自身在校期间学习成果的一次检验，另一方面，通过这次课程设计，使我们更加深入的了解怎样运用我们所学的知识去做一个合格的、符合以后工作要求的数据库。我们此次选择的设计题目是人事管理系统的设计，设计的意义在于通过人事管理系统，能让用户跟方便的对企业、公司、或者一些其他机构的人事信息进行高效、方便的管理。2 设计工具及其说明本系统采用客户/服务器两层结构模型，前台用户界面采用Visual Basic语言编写，后台采用Access数据库，前台应用程序与
4、后台数据库连接采用的是ADO技术。运用Access数据库创建数据库,数据库中设计主键有利于数据表项的链接，用VB6.0来制作界面和编写程序ADO技术可以将编写程序中的数据库连接简化，用最少的编程尽快地创建和使用数据存取应用程序.3 需求分析不同的用户对自己所需要的人事管理系统要求不同，大型企业由于公司人员较多，在人事管理方面的需求上包括很多方面，而小型企业人员较少,相应的管理需求也就相应减少。在此，我们仅以一家小型软件开发公司为例来分析他们对所需数据库的要求.3.1功能需求一家小型的软件企业对人事管理系统的要求包括：(1）仅有人事管理部门人员和公司经理、总裁才可以进入该系统。（2）该人事管理系
5、统的基本功能因包括对公司员工档案的管理，对员工调动的管理，对员工考勤的管理，对员工工资的管理，以及对员工工作评价的管理.根据以上要求，我们对该系统的功能划分可参考图1企业人事管理系统功能划分图图1企业人事管理系统功能划分图各个功能部分具体功能如下列出：1、系统设置管理功能是人事部人员对系统进行权限设置的单元2、员工档案管理的功能是对员工档案进行增删改查等功能的单元3、员工评价管理是对各个员工在工作期间，由同事、上司等人员对其进行的评价进行管理，有利于公司对各个员工在各个方面的综合评价4、员工考勤信息管理的功能是对员工上班期间有无迟到、早退以及请假信息的管理，有利对员工工资等发放过程中工资的计算
6、5、员工调动管理是对员工工作期间工作职位调动，职务变动的管理6、员工工资管理是对员工当月基本工资、员工奖金、员工福利等全部工资进行有效管理的单元。3。2性能需求 该软件的性能应包括对员工各项信息的录入、修改、查询、删除、保存等。且要求软件适应性、移植性强4 系统总体设计 根据功能需求设计，我们先设计出了系统的总体功能模块图如图2系统总体六大功能模块设计图图2 系统总体六大功能模块设计图具体功能模块设计如下分类1 系统设置管理模块 如图3系统设置管理模块图图3 系统设置管理模块图2员工档案管理模块 如图4员工档案管理模块图图4 员工档案管理模块图3员工评价管理模块 如图5员工评价管理模块图图5员
7、工评价管理模块图4员工考勤管理模块 如图6员工考勤管理模块图图6 员工考勤管理模块图5 员工调动管理模块 如图7员工调动管理模块图图7员工调动管理模块图6员工工资管理模块 如图8员工工资管理模块图图8 员工工资管理模块图本系统的设计流程图如下图 图9系统设计流程图图9 系统设计流程图5 数据库设计5。1概念结构设计根据分析规划出的实体有：员工档案信息实体、员工调动信息实体、员工工资信息实体、考勤信息实体、员工评价信息实体。各个实体的ER图如图10各个实体ER图图(1）员工档案信息图(2）员工调动信息图（3）员工工资信息实体图（4）员工考勤信息实体图（5)员工评价信息实体图10各个实体ER图5.
8、2物理结构设计现在需要将上面的数据库概念结构转化为Access数据库系统所支持的实际数据模型，也就是数据库的逻辑结构.宾馆管理信息系统数据库中各个表格的设计结果如下面表格所示表1.员工档案信息表字段名数据类型关键字段说明员工编号数字是员工姓名文本否性别文本否男女籍贯文本否出生年月日期时间否学历文本否本科、大专等专业文本否表2。员工考勤信息表字段名数据类型关键字段说明员工编号数字是员工姓名文本否性别文本否男女职务文本否程序员等所在部门文本否后勤部等全勤天数数字否3130出勤天数数字否说明:员工职务有程序员、工程师、项目经理、总裁、总经理 部门有后勤部、开发部、人事部、销售部表3管理用户表字段名数
9、据类型关键字段说明用户名称文本是用户口令文本是用户权限文本是说明：用户全县有Guest和Administrators表4调动信息表字段名数据类型关键字说明员工编号数字是员工姓名文本否原部门名称文本否调入部门名称文本否原职务文本否新职务文本否调出时间日期时间否调入时间日期时间否表5员工评价报表字段名数据类型关键字段说明员工编号数字是员工姓名文本否所在部门文本否评价日期日期/时间否工作业绩文本否工作态度数字否态度说明文本否表6员工工资表字段名数据类型关键字段说明员工编号数字是员工姓名文本否所在部门文本否底薪数字否加班费数字否补贴数字否房帖数字否说明:搜在部门有：后勤部、开发部、人事部、销售部 员工
10、的底薪和员工所在的部门和职位有关，职位不同底薪也不相同6 运行结果和测试运行结果图运行界面如图(11）系统运行图首先人事部门工作人员通过输入管理员名称和口令来进入系统当输入名称等错误时，被限制进入，且只有三次输入机会如图11（1）图11(1）人事管理系统登录图输入真确的管理员名称和管理员口令后，点击登录按钮进入系统总界面如图11（2）在该主界面，可以选择不同的表项进行操作。例如选择员工档案信息表后会出现如图11(3）的图。通过此窗口，可以对员工基本信息进行增加、删除、修改、查询、保存等操作。在选择增加按钮时，可在各个表项中填入需要增加的员工信息，继续增加可继续按增加按钮,系统自动保存;选择删除
11、按钮时，系统提示是否真的要删除表项，如图11（4）提示窗口对该表的操作完成后，点击退出按钮可进入人事管理系统主界面图11（2）图11（2）系统表项进入主界面图11（3）员工档案信息表的管理窗口图11(4）删除记录提示窗口对其他表项的操作同样可通过主界面进入，各个表项内功能基本相同,在此就不列举了.测试 在对各个表项进行操作过程中，当然有很多问题出现，比如程序编写有误造成系统运行不了,通过调试程序可对其进行改正；再如,在设置按钮和框体时，设置属性不正确不能达到预期目的,通过属性的从新设置可消除。7 参考资料参考资料有：Visual Basic 6。0数据库编程指南-姜晓铭中国石化出版社 数据库系
12、统开发教程-李春葆等-清华大学出版社另外，还参考了网络信息资源用户登录界面代码/退出系统代码Private Sub Image2_Click() If MsgBox(”是否退出系统！”, vbOKCancel + vbQuestion, ”系统提示”） = vbOK Then End End IfEnd Sub/登录代码Private Sub Image1_Click（） Static intMyTimes As Integer If Text1.Text = ” And Text2.Text = ” Then MsgBox 用户名或密码不能为空！， ， Form1.Caption Exit
13、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。R
14、ecordCount = 1 Then interface。Show Form1。Hide End If End IfEnd Sub/主界面按钮代码Private Sub Command1_Click(）yuangongdanganxinxibiao。ShowEnd SubPrivate Sub Command2_Click()yuangongdiaodongxinxibiao.ShowEnd SubPrivate Sub Command3_Click（)yuangonggongzixinxibiao。ShowEnd SubPrivate Sub Command4_Click（)yuangon
15、gkaoqinxinxibiao。ShowEnd SubPrivate Sub Command5_Click（)yuangongpingjiabaobiao。ShowEnd SubPrivate Sub Command6_Click（）Unload MeEnd Sub/各个表项使用钮代码Private Sub Cmd_delete_Click()Msg = MsgBox(你确实要删除记录吗？， vbYesNo）If Msg = vbYes Then Adodc1.Recordset.Delete Adodc1。Recordset。MoveNext If Adodc1.Recordset。EOF
16、 Then Adodc1.Recordset.MoveLastEnd IfEnd SubPrivate 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。SetFocusEnd SubPrivate Sub Cmd_save_Cl
17、ick（) 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 = TrueEnd SubPrivate Sub Cmd_update_Click（）Msg = MsgBox(”你确实要修改记录吗？”, vbYesNo）If Msg = vbYes ThenAdodc1.Recordset。Update Cm
18、d_insert。Enabled = True Cmd_delete。Enabled = False Cmd_update。Enabled = False Cmd_save。Enabled = True Cmd_find。Enabled = False Cmd_Refresh。Enabled = False Text1。SetFocusEnd IfEnd SubPrivate Sub Cmd_find_Click(） mno = InputBox$（请输入员工编号, 查找窗) mno = yuangongbianhao like ” & mno & ” Adodc1。Recordset。Filter = mno If Adodc1.Recordset。RecordCount = 0 Then MsgBox 无此员工！”， , 提示”End SubPrivate Sub Cmd_refresh_Click(）Adodc1。RefreshEnd SubEnd SubPrivate Sub Cmd_exit_Click(）Unload Meinterface.ShowEnd Sub
