《[管理学]企业人事档案管理信息系统报告.doc》由会员分享，可在线阅读，更多相关《[管理学]企业人事档案管理信息系统报告.doc（33页珍藏版）》请在三一办公上搜索。
1、人事管理信息系统 沈阳航空航天大学 沈阳航空航天大学课 程 设 计（说明书）题目 企业人事档案管理信息系统 班级 / 学号 2009040602030学 生 姓 名 岳宇峰 指 导 教 师 许良 目录摘要3第一章 系统概述3第二章 需求分析与系统总体设计42.1需求分析42.2可行性研究52.2.1操作人员的可行性分析：52.2.2硬件的可及技术的可行性：52.2.3经济可行性：52.3信息系统开发方法的选择52.4.1组织结构图62.4.2功能结构图72.5业务流程图82.6数据流和图93.1数据库概念设计123.2数据结构与数据库设计123.3代码设计143.3.1、员工编号:143.3.
2、2、岗位编号:143.3.3 权限编号143.4输入输出设计153.4.1输入设计153.4.2输出设计163.5、模块功能与处理过程设计与实现163.5.1系统登录模块163.5.2管理人员查询与生成报表功能173.5.3人事科功能模块193.5.4人员部档案处功能模块203.5.5 人事部经理功能模块203.6信息系统安全设计21第四章 系统实施224.1、数据库连接2242、登陆代码224.3工资生成代码234.4员工查询代码：234.3密码修改284.4等效业务量修改，奖金修改294.5在职人员报表生成30第五章 结束语33参考文献33企业人事档案管理信息系统摘要人事档案反映着每一个员
3、工个人经历、能力和德才的综合表现。准确、齐全、完整的员工人事档案是企业全面考察了解、正确评价和使用人才的重要依据，对一个企业的人才管理非常之重要。但目前在一些企业，特别是一些小型的私有企业，管理人员还一直采取手工编辑、检索,致使人事档案管理材料不能及时归档整理,存在人事档案管理资料不完整、收集、归档工作被动、不及时。为此我们充分利用学过的管理信息系统，和数据库，vb程序开发知识，致力于建立一个小型的，成本低的，管理方便的适合中小型企业的、高度自动化的人事管理信息系统，只需2到3个人或者更少的人就能完成企业人事的档案管理工作，高度节省人力物力，同时还可以为企业提供准确、可靠的人才管理依据。关键字
4、：人事档案；信息系统；开发；实施，第一章 系统概述目前，据一项调查结果来看，我们中小型企业对管理软件（主要是管理信息系统）的应用小于45%，且绝大多数仅于会计软件，对人事系统的软件相当缺乏，更别谈系统功能的实现状况了，人事管理这块儿多是人工操作，效率低，且工作复杂，需要人手较多，造成了人力财力的巨大浪费。若建立一个自动化的成本低的，适合他们的人事信息管理系统，减少人事部门人员的工作量，降低人事部门员工数量，对企业，将会产生巨大的经济效益，对员工，将会增加员工的工作满意度，减少人员流失率。为此建立这样的一个系统无论是对企业还是对员工无非都是有利的。第二章 需求分析与系统总体设计2.1需求分析人事
5、档案管理信息系统主要用于对公司内部员工等人事信息进行管理，并提供了相关人事职能部门，为人事部提供了管理工具，同时让员工可以通过公司内部网实现自我管理和管理人员对公司信息的查询和统计功能，提高了整体运作效能。我们所做人事档案的信息系统的基本功能是管理员工资料，档案管理，员工工资管理，岗位管理，报表生成，权限设置等功能档案管理：当员工第一次来公司报到时，人事科负责将员工的基本信息（员工编号，岗位编号，姓名，性别，合同开始时间，合同结束时间，身份证号，联系方式，所属部门，岗位等信息）输入到通过人事系统输入到数据库中。当员工出现离职，退休等情况时，档案处会根据员工的状态对档案进行管理。员工资料管理：人
6、事部门的人事科负责维护普通员工的基本资料。员工可以通过自己的员工编号登陆到人事系统中，查看自己的相关信息（基本资料，获奖经历，工资等），如果发现有错误可以通知人事科来修改信息（这些信息包括员工获金情况，月基本工资，基本信息等）。同时自己也可以修改自己的登陆密码。当员工岗位变动时，人事部门会将其的相关信息修改，比如员工编号，岗位，部门等。普通员工可以查询自己的岗位调动历史。员工工资管理：员工工资由月基本工资、应扣除工资、和奖金三部分组成，应扣除工资可能是由于员工缺勤，迟到，请假等原因造成，这里只用等效缺勤来生成应扣除工资。各岗位的月基本工资和奖金等级的数额由人事部经理来设定。考勤表由人事部工作人
7、员负责记录每月员工的出勤情况，等效业务完成量（非业务人员则通过相应的换算公式根据相应的工作量转化为等效业务量），最后通过程序来自动生成员工实发工资。普通员工可以查看自己的当月工资，获奖情况，等相关信息。报表生成：科级以上干部可以获取公司的人事信息报表，每个月人事部都会生成工资，财务部可以登陆人事系统，选择相应的操作，即可获得相应的工资报表，厂长等可以获得公司的在职员工，离职员工，退休员工信息的报表，可以查看员工获奖情况表，了解员工业绩状况。各级管理人员可以为新到的部下获得岗位职责说明表，让他们了解相应岗位的职责，权力、义务等。权限设置：不同的员工登陆系统应具有不同的权限，人事部只能干人事部的事
8、，普通员工只能查询自己的相关信息，2.2可行性研究2.2.1操作人员的可行性分析：现在程序开发技术已经在大学中普及，基本上每个大学毕业生，都会点程序开发。招聘一个这样的员工很简单，而且这样的人员在正常的企业，应该也不在少数，从人员上是可以的，也可以交专门的开发人员去开发。2.2.2硬件的可及技术的可行性：这样的程序开发，用普通的开发语言完全可以达到，比如VB，VC, SQL server ,access,都可以用于程序开发，而这些软件对电脑的要求配置也不高，一个4000元以上的电脑完全可以达到硬件要求，。2.2.3经济可行性：因为现在电脑已经相当普及，在企业购置一个差不多配置的电脑，10000
9、万元左右，对一个公司完全属于可控开支之内。而开发这样的一个信息系统，至少可以节省一到两个人的工作量，按一个人一个月工资2000元计算，一年就可以至少节省4000050000元，经济效益是相当可观的了。开发这样的一个系统的系统开发费用大概在10000元左右，一年系统维护费用也不会太高，大概几千左右。经济上也是可行的。2.3信息系统开发方法的选择Vb界面友好，而且我们学的是Vb语言，对此比较熟悉，数据库的选择可是Access或者是SQL server ,但由于后者功能更加完善，所以我们就选择了VB，和SQL server .但VB程序运行的慢，如有学过其他的编程，比如有Java,等高级的编程语言，
10、也可以选择， 第 32 页 由于时间有限，我们就以VB和SQL server 作为开发工具。2.4组织结构与功能分析2.4.1组织结构图企业人事档案管理系统生成印岗位说明书生成员工状态报表生成印工资报表密码管理权限管理业务量统计业务量修改员工个人信息管理员工工资管理员工档案管理统计输出安全管理考核信息管理计发员工工资信息资金数额的设定基本工资设制员工个人信息查询员工个人信息修改员工个人信息添加合同续约员工档案信息添加员工档案信息删除2.4.2功能结构图2.5业务流程图2.6数据流和图第三章 系统设计。员工员工编号姓名合同时间信息岗位编号考勤管理计算工资工作员工编号考勤信息缺勤次数薪资情况基本应
11、扣奖金编号部门部门编号部门名称各岗位月基本工资各岗位的职责说明业务量3.1数据库概念设计3.2数据结构与数据库设计数据库的表与视图的数量和种类如左图考勤表的设计账号表的设计员工信息表奖金表的数据结构岗位说明表人事调动表员工工资表员工奖金情况表3.3代码设计3.3.1、员工编号:年份，员工数量编号比如20090003代表此员工是不2009年入职，是公司的第三个员工。3.3.2、岗位编号:由0，A,B,C，1-6，1-5，01-10 五项组成。第一项为员工等级编号，0，专为厂长等级设置的，A，为部门经理级别，B,为处长，科长级别的（其中保卫科处于特殊情况），C为正常的低层员工，也为执行者。第二项为
12、部门编号，1到6分别代表的部门为销售部门，人事部门，财务部门，生产部门，保卫科，后勤部第三项为各部门下属的科级单位编号，第四项为科级或者处级单位下面的员工数量编号。举例：C6101为后勤部清洁处员工，他为第一个员工。3.3.3 权限编号权限编号适用单位操作权限1普通低层员工登陆，查询自己的相关信息，修改密码2管理层员工登陆，查询自己的相关信息，获取公司的相应统计报表，修改密码3人事部人事科登陆，查询每个员工的相关信息，员工部门调动，生成当月的工资，修改密码4人事部档案科，人事部招聘处登陆，新员工注册，员工退休，员工离职，修改密码5人事门经理登陆，月基本工资的修改，奖金表相应的奖金数额的修改，修
13、改密码6系统管理员拥有全部功能3.4输入输出设计3.4.1输入设计输入方式与设备的选择：由于系统输入主要是员工基本信息的录入、员工编号、,这些输入都是实时输入。输入的设备主要包括:键盘、鼠标。1.输入设计内容：输入内容包括员工基本信息、考勤表的相关信息、岗位说明，工资设定，合同开始时间输入等。2.输入媒介和装置：键盘、鼠标。本系统采用直接将数据从界面窗口键盘输入。3.输入格式设计：每个窗体都会对输入的数据类型进行验证，出错则会发出警告，同时一些信息比如时间，我们把在程序中已经添加时间年份生成控件，此控件会自动生成时间，不再需要员工的手工输入。4.输入数据校验：为了确保输入数据的准确性,在数据输
14、入之前要进行校验,这方面我们用VB程序结合连接数据库进行验证，比如员工密码的验证，工资重复生成的预防，记录重复的校验等。3.4.2输出设计 1.输出内容：工资报表，岗位说明书，员工基本信息，人事调动记录报表，等2.输出格式设计：输出的格式 可以是EXCEL,WORD,ACCESS,格式的，或者是窗体格式显示，具体情况，可以参考界面。3.输出设备和介质：打印机、显示器。 3.5、模块功能与处理过程设计与实现3.5.1系统登录模块模块名称系统登录模块功能识别系统用户身份（权限编号），赋予不同的操作权限，进入到相应的操作界面。处理概要说明：（设计操作界面如下图）3.5.2管理人员查询与生成报表功能模
15、块名称Managers模块功能管理层员工可以从从窗口获得员工状态报表（在职员工的基本信息，进修员工的基本信息，退休员工的基本信息，）,工资查询报表（前月的发放工资，上上月的工资发放查询），员工获奖情况查询，岗位职责说明书的生成，修改密码处理概要说明：（设计操作界面如下图表生成结果 ：工资报表结果岗位说明书生成报表结果3.5.3人事科功能模块模块名称Frm_rs_ke模块功能 人员调动，员工信息修改，员工信息查询，生成当月的员工工资，修改密码处理概要说明：（设计操作界面如下图）3.5.4人员部档案处功能模块模块名称rs_daanchu模块功能 新员工注册，员工离职，员工退休，修改密码处理概要说明
16、：（设计操作界面如下图）3.5.5 人事部经理功能模块模块名称rs_daanchu模块功能 奖金修改，月基本工资修改，报表查询，修改密码处理概要说明：（设计操作界面如下图）3.6信息系统安全设计即权限设置，报告的其他部分已经说明，在此不再累述。第四章 系统实施 部分代码如下：4.1、数据库连接Public Function Cnn() As ADODB.Connection 定义数据库连接函数 Set Cnn = New ADODB.ConnectionCnn.OpenDriver=SQLServer;Server=(local);Database=database_manpower;Uid=
17、Jack;Pwd=111111End Function 42、登陆代码Private Sub Command1_Click()If Trim(Text1.Text) = Then MsgBox 请输入账号, vbCritical + vbOKOnly, 警告 Sqlstr = select * from 账号表 where 员工编号= & & Text1.Text & Rs1.Open Sqlstr, Cnn, , , adCmdUnknown If Rs1.EOF Then MsgBox 账号有误, vbOKOnly Else If Rs1.Fields(1) = Text2.Text Th
18、en Quxi = Rs1.Fields(2) Yugo = Rs1.Fields(0) Select Case Rs1.Fields(2)4.3工资生成代码： Private Sub Command9_Click()rs_gozi2.Open select * from 工资生成时间表 , Cnn, adOpenDynamic, , adCmdUnknownrs_gozi2.MoveLastIf Abs(Month(rs_gozi2.Fields(0) - Month(Date) = 1 Then rs_gozi2.Close rs_gozi.Open select * from view_
19、员工工资初步表 where 月份= & & Yufe & , Cnn, , , adCmdUnknown Do While Not rs_gozi.EOF Yugo.bianhao = rs_gozi.Fields(员工编号) Yugo.yinggougongzi = rs_gozi.Fields(应扣工资) Yugo.yuefen = Yufe4.4员工查询代码：Private Sub Command3_Click()Frame4.Visible = TrueFrame4.Enabled = TrueFrame3.Visible = FalseFrame3.Enabled = FalseFr
20、ame2.Enabled = FalseFrame2.Visible = FalseIf Text2.Text = ThenMsgBox 请输入员工号ElseBiha = Text2.TextRssql = select * from 员工信息表 where 员工编号= & & Text2.Text & Rsrs1.Open Rssql, Cnn, , , adCmdUnknownLabel13.Caption = Rsrs1.Fields(0)Label14.Caption = Rsrs1.Fields(1)Label15.Caption = Rsrs1.Fields(2)Label16.C
21、aption = Rsrs1.Fields(3)Label17.Caption = Rsrs1.Fields(4)Label18.Caption = Rsrs1.Fields(5)Label19.Caption = Rsrs1.Fields(身份证号)Rsrs1.CloseEnd IfEnd SubSelect Case Rs1.Fields(2) Case 1 selfsearch.Show Case 2 managers.Show Case 3 frm_rs_ke.Show Case 4 rs_daanchu.Show Case 5 frm_rs_ma.Show Case 6 sa.Sho
22、w End Select Else MsgBox 您输入的密码错误，请重新输入, vbCritical + vbOKOnly, vbokly Text2.Text = End If End If Rs1.CloseEnd SubYugo.yewuwanchengliang = rs_gozi.Fields(业务完成量) Yugo.fafangshijain = Date Yugo.jiben = rs_gozi.Fields(月基本工资) Select Case Yugo.yewuwanchengliang Case Is = 120000 Yugo.jiangjin = 100000 Cas
23、e Is = 100000 Yugo.jiangjin = 80000 Case Is = 80000 Yugo.jiangjin = 60000 Case Is = 60000 Yugo.jiangjin = 40000 Case Is = 40000 Yugo.jiangjin = 20000 Case Is = 20000 Yugo.jiangjin = 10000 Case Is = 10000 Yugo.jiangjin = 5000 End Select Yugo.gongzie = Yugo.jiben + Yugo.jiangjin - Yugo.yinggougongzi C
24、nn.Execute insert into 员工工资表 (员工编号,工资额,基本工资,奖金额,应扣工资,工资发放时间,月份) values( & & Yugo.bianhao & , & Yugo.gongzie & , & Yugo.jiben & , & Yugo.jiangjin & , & Yugo.yinggougongzi & , & Yugo.fafangshijain & , & Yugo.yuefen & ) rs_gozi.MoveNext Loop rs_gozi.Close rs_gozi.Open select * from view_非在职员工表, Cnn, ,
25、, adCmdUnknown Do While Not rs_gozi.EOF Yugo.bianhao = rs_gozi.Fields(员工编号) Yugo.yinggougongzi = 0 Yugo.yuefen = Yufe Yugo.yewuwanchengliang = 0Yugo.fafangshijain = Date Yugo.jiben = rs_gozi.Fields(月基本工资) Yugo.jiangjin = 0 Yugo.gongzie = Yugo.jiben + Yugo.jiangji n - Yugo.yinggougongzi Cnn.Execute i
26、nsert into 员工工资表 (员工编号,工资额,基本工资,奖金额,应扣工资,工资发放时间,月份) values( & & Yugo.bianhao & , & Yugo.gongzie & , & Yugo.jiben & , & Yugo.jiangjin & , & Yugo.yinggougongzi & , & Yugo.fafangshijain & , & Yugo.yuefen & ) rs_gozi.MoveNext LoopMsgBox 工资生成成功 Cnn.Execute insert into 工资生成时间表(工资生成时间) values ( & & Date &
27、)Elsers_gozi2.CloseMsgBox 当月工资已经生成，请勿重复点击End IfEnd Sub4.3密码修改Private Sub OKButton_Click()Cnn.Execute update 账号表 set 密码= & Text1.Text & where 员工编号= & YugoEnd Sub月基本工资修改代码Private Sub salmod_Click()Frame1.Visible = FalseDataGrid1.Visible = TrueAdodc1.ConnectionString = Driver=SQL Server;Server=(local);
28、Database=database_manpower;Uid=Jack;Pwd=111111Adodc1.CommandType = adCmdTableAdodc1.RecordSource = 岗位说明表 Adodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.Columns(1).Locked = TrueDataGrid1.Columns(0).Locked = TrueDataGrid1.Columns(3).Locked = TrueEnd SubPrivate Sub DataGrid1_Change()Dim i As
29、Integeri = MsgBox(你确定 & vbCrLf & 要修改此员工的基本工资吗, vbOKCancel, 警告)If i = 1 ThenDataGrid1.DataChanged = TrueCnn.Execute update 员工信息表 set 月基本工资= & Adodc1.Recordset.Fields(月基本工资) & where 所在岗位编号= & & Adodc1.Recordset.Fields(岗位编号) & ElseDataGrid1.DataChanged = FalseEnd IfEnd Sub4.4等效业务量修改，奖金修改Public Function
30、 Newipt()Rs4.Open select * from 奖金表 , Cnn, , , adCmdUnknownDo While Not Rs4.EOF For i = 0 To 6 Combo1.AddItem Rs4.Fields(0) Amt(i) = Rs4.Fields(1) Awd(i) = Rs4.Fields(2) Rs4.MoveNext Next iLoopRs4.CloseEnd FunctionPrivate Sub amountmodify_Click()DataGrid1.Visible = FalseFrame1.Visible = TrueFrame1.C
31、aption = 等效业务量修改Cmd_Awdmod.Visible = FalseCmd_Amtmod.Visible = TrueEnd SubPrivate Sub awardmodify_Click()Frame1.Visible = TrueCmd_Awdmod.Visible = TrueCmd_Amtmod.Visible = FalseFrame1.Caption = 奖金额修改End SubPrivate Sub Cmd_Amtmod_Click()i = MsgBox(你确认要修改等效业务量吗?, vbOKCancel, 请确认)If i = 1 ThenCnn.Execu
32、te update 奖金表 set 等效业务量要求= & Val(Text1.Text) & where 奖金编号= & & Combo1.List(Combo1.ListIndex) & NewiptEnd IfEnd SubPrivate Sub Cmd_Awdmod_Click()i = MsgBox(你确认要修改奖金数额吗?, vbOKCancel, 请确认)If i = 1 ThenCnn.Execute update 奖金表 set 奖金数额= & Val(Text1.Text) & where 奖金编号= & & Combo1.List(Combo1.ListIndex) & N
33、ewiptEnd IfEnd Sub4.5在职人员报表生成Private Sub numbers_on_Click()Dim newcel As New Excel.Application, i, J, K As Integer, Clo As String, Clo2 As String rs_ma.Open select * from view_在职员工表, Cnn, 3, 2, adCmdUnknown newcel.Visible = False newcel.Workbooks.Add Do While Not rs_ma.EOF For i = 2 To (rs_ma.Record
34、Count + 1) Step 1 For J = 65 To (64 + rs_ma.Fields.Count) Step 1 Clo = Chr(J) & i Clo1 = Chr(J) & 1 newcel.Range(Clo1).FormulaR1C1 = rs_ma.Fields(J - 65).Name newcel.Range(Clo).Select newcel.ActiveCell.FormulaR1C1 = rs_ma.Fields(J - 65)Next J rs_ma.MoveNextNext iLoopnewcel.Range(A & rs_ma.RecordCoun
35、t + 2).FormulaR1C1 = 总人数 newcel.Range(B & rs_ma.RecordCount + 2).FormulaR1C1 = rs_ma.RecordCountnewcel.Visible = Truers_ma.CloseEnd SubIf Len(Ganbia) 0 Then Dim WrdApp As New Word.Application With WrdApp .Visible = False .Documents.Add End With rs_ma.Open select * from 岗位说明表 where 岗位编号= & & Ganbia &
36、 , Cnn, , , adCmdUnknown If rs_ma.EOF Then MsgBox 请输入正确的岗位编号,没有此岗位编号 GoTo X End IfWrdApp.ActiveDocument.Content.Font.Size = 18WrdApp.ActiveDocument.Content.Text = 岗位说明书 & vbCrLf & rs_ma.Fields(0).Name & : & rs_ma.Fields(0) & vbCrLf & rs_ma.Fields(1).Name & : & rs_ma.Fields(1) & vbCrLf & rs_ma.Fields
37、(2).Name & : & vbCrLf & rs_ma.Fields(3) rs_ma.Close WrdApp.Visible = True ElseGoTo XEnd IfEnd Sub第五章 结束语十多天的课设终于结束，这段紧张的时间让我感到很累，这几天每天我都是晚上11到12点多睡，甚至有几天，我都是1点多才睡，但也收获颇丰。我们经历了从系统了解到调计，从调查信息，到业务流程，数据流程，功能模块，到整个程序的设计与实施。每一步都让我经历了从不知道，不怎么了解到会，到做成。有时做得也特别激动，一天一天的不厌疲倦的做，感觉很有成就感。因为我们遇到很多了困难，但也想办法克服，刚开始都不知
38、道怎么做，我们借书，网上查资料，光书我们寝就借了10多本。说起这段经历，我都有一种满足感，虽然每天都过的很紧张，压力很大，也很累，可感觉我们做成了事，有成果了，很高兴，特别是把软件做成那天。当然由于时间有限，我们做的好多东西没有完善，有时我做梦都在想哪块还能完善，可时间是太紧了，我没时间再做了，如果我再有时间，我会继续完善的了。建议：如果以后可以，我希望能有更多的机会，做一些这类的课设，他让我们学到了东西。完稿日期：2012-1-13参考文献1詹英 主编. 数据库技术与应用SQL Server 2005教程. 北京：国防工业出版社，20092常亲功. 管理信息系统开发方法与工具. 北京：清华大学出版社，19993钟雁 主编. 管理信息系统开发案例分析. 北京：清华大学出版社，2006.64曾传华,黎青松 等. 物流管理与信息系统. 北京:清华大学出版社,2007
