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