人事管理信息系统.doc

1、摘要 使用计算机对人事信息进行管理,有着手工管理所无法比拟的优点。人事管理信息系统是一个典型的计算机信息处理的管理模式,它管理的核心信息是人力资源数据。本系统以人员基本信息为基础,以工资福利管理为核心,结合单位人事管理实际工作,将涉及的各类业务按照其内在的联系组织成一个有机整体。 该人事管理系统是面向国内企业事业单位的人事部门而开发的一套便捷高效的人事管理系统。该系统一改人事部门繁杂的传统手工操作方式，充分利用信息技术实现人事信息自动化管理。系统提供的不仅仅只是传统管理的电子化，而是以人力资源管理为核心，集日常信息管理、员工考勤、员工基本信息、员工工作评价、员工工资管理等与一体的应用系统。人事

2、管理信息系统采用当今普遍使用的SQL数据库结构，安全性强、处理数据量大、效率高。 关键词：数据库、人事管理、信息系统。目录 摘要.1第一章 人事管理信息系统需求分析.4 1.1 人事管理信息系统开发分析.4 1.1.1人事管理信息系统开发的特征.4 1.1.2人事管理信息系统的开发工具及环境.6第二章 人事管理信息系统.7 2.1人事管理信息系统的系统设计.7 2.1.1人事管理信息系统的功能模块设计.8 2.1.2人事管理信息系统的数据库设计.9 第三章 人事管理信息系统的开发.13 3.1 人事管理信息系统的程序开发.13 3.1.1人事管理信息系统的文件架构图.13 3.1.2 人事管理

3、信息系统程序运行.13第四章 人事管理信息系统的功能模块介绍.16 4.1 图书管理信息系统的主要功能模块程序设计.16 4.1.1公共模块.16 4.1.2登录模块.17 4.1.3员工基本信息设置模块.18 4.1.4 员工工作评价管理模块.22 4.1.5 员工工资管理模块.22 第五章 结束语.23 第六章 致谢.24 参考文献.25 引言 随着社会的发展，科技的进步，作为信息载体的计算机日益显露出其举足轻重的地位。当今社会已步入了信息社会，知识经济将成为新世纪的主导产业。伴随计算机的逐步推广和使用，计算机已在科研、生产、商业、服务等许多方面创造了提高效率的途径，与此同时，单位技术成本

4、也逐年有了明显的下降，然而办公室里的人事费用却不断增加。在国外，花费在专业、管理和行政人员上的成本占了办公室总成本的2/34/5，这一现象使人们对办公室自动化的要求与日俱增。我们必须在进行机构改革的同时，尽快使用现代化管理设备、管理手段、管理方法。 计算机在人事部门的广泛使用，改进了统计手段，改革了统计方法，提高了统计工计算机在人事部门的广泛应用，将为我国的人事管理工作，提供现代化的管理手段和科学的管理方法，并将为开创人事管理工作的新局面创造条件。目前，计算机在我国的人事管理工作中，主要可用来进行报表处理，档案管理，文书编辑，信息查询，综合分析。干部统计作为人事管理的一个重要组成部分，是通过对

5、干部情况的调查，整理和分析，了解干部队伍的发展趋势，为各级领导机关制定干部工作的方针，政策，加强干部管理，改革干部制度提供准确数字的依据。其工作除涉及到干部的基本情况统计之外，还包括干部的工资统计，干部编制情况统计，干部奖惩情况统计，军转干部安置情况统计，老干部情况统计等方面，其涉及的面之广，数据量之大可想而知，若利用手工进行干部的统计工作，大致要经过干部统计调查，干部统计资料的整理，干部统计分析三个过程，但这种手工统计过程，存在着几个明显的问题，比如说统计资料缺乏准确性，及时性，需要花费大量的人力，物力，财力等。第一章 人事管理信息系统需求分析1.1 人事管理信息系统开发分析当前，无论是整个

6、社会的发展，还是商厦公司自身的改革和发展，都对商厦人事管理提出了更高、更新的要求，建立以信息技术、计算机技术、网络技术支持的现代人事劳资管理系统，是建设好商厦职工队伍的一项重要的基础工作，也是实现商厦人事管理现代化、加速决策科学化的前提条件，势在必行。 本文根据目前管理信息系统的发展现状和人事管理的实际情况，对商厦人事管理信息系统进行了设计和开发。该系统根据人事管理工作的内容和特点，在充分注重软件操作的交互性，简单性以及科学可视化原则的前提下，及时为人事管理提供准确，全面的数据和分析结果，能有效提高人事管理的工作效率、质量及管理决策的有效性、可靠性和实时性，实现人事工作的计算机现代化管理。 论

7、文分析研究了建立管理信息系统的技术基础，利用结构化的分析方法对人事管理信息系统进行了系统分析，主要包括对现行系统的组织结构、管理业务流程、用户需求等内容的详细调查和分析，并在此基础上提出了新系统的逻辑模型。在系统分析的基础上，结合数据库相关理论以及人事部门的实际情况，进行了系统数据库的概念结构和逻辑结构设计，并利用结构化的设计方法进行了系统设计提出了系统的物理模型。系统选择基于Windows平台的关系型数据库管理系统MS SQL Server2000为软件平台，采用VB技术开发出一个实用性强，界面友好，有良好扩充性的人事管理信息系统。1.1.1人事管理信息系统开发的特征系统的需求分析是在系统调

8、查的基础上，根据确定的新系统要实现的目标，对原系统的资料内容及其处理流程进行改进、调整和补充，提出新的电算化人事管理信息系统资源内容及其处理流程，即逻辑模型。1、 人事管理信息系统总体规划的必要性 在开发人事管理信息系统之前对系统进行总体规划师非常必要的，总的来说，人事管理信息系统有以下几个方面的特征：（1）、资料量大 人事管理信息系统涉及及企业经营方式的说明与管理，一个企业中组织结构，运行方式，人员对工作的态度，对工作的熟练程度等等都必须有详细的说明和记录，最后还得综合分类、计算，得出结论。由于企业内部结构人员复杂性，所以计算机方法非常琐碎细致，需要在内保密的时间长，因而资料量较大。（2）、

9、数据结构复杂 拿企业人事信息来讲，数据结构层次比较多，信息量大，因而数据处理流程比较复杂。（3）、资料加工处理的方法要求严格 在人力资源管理中，企业各个管理事务的内容都有比较严格的规定，如一些奖惩规章和激励机制一般都比较清晰明确，不能随意变动。（4）、资料的真实性、准确性要求高 企业人力资源资料是否正确，不仅体现了企业现有的，可以运行和调配的人力资源，也涉及到企业未来发展前景、发展空间、发展方向、以及企业和其他关联企业的业务运作，甚至和其他外部企业的关系问题，因此，对资料对数据处理结果的真实性、准确性要求比较高。（5）、要具有内部控制的功能 人事管理信息系统不仅要有较强的数据处理功能，而且要具

10、备严格的内部控制功能。（6）、要具有可验证性 人力资源资料不仅在处理过程中要求真实、可靠，而且事后可以在任何条件下，以任何方式进行检查和验证。因此，在人事管理信息系统中，要为后验工作提供必要的条件。（7）、要有充分的安全可靠保证 人力资源信息是加强经济处理各方面关系的重要依据，决不允许随意泄露、破坏和遗失，通常要采取各种有效措施，充分保证人事管理信息系统的安全等等。1.1.2人事管理信息系统的开发工具及环境本系统采用的软件开发工具及环境如下：操作系统本次设计的操作系统选取WindowsXP。Windows XP是微软史上最成功的一款操作系统，它拥有一个叫做Luna（月神）的豪华亮丽的用户图形界

11、面。windows xp 64-bit 开机画面的视窗标志也改为较清晰亮丽的四色视窗标志。Windows XP 带有用户图形的登陆界面，全新的XP亮丽桌面，用户若怀旧以前桌面可以换成传统桌面。此外，Windows XP还引入了一个“选择任务”的用户界面，使得工具条可以访问任务的具体细节。数据库本次设计选取的数据库是Microsoft SQL Server，是一个全面的数据库平台，使用集成的商业智能 (BI) 工具提供了企业级的数据管理。Microsoft SQL Server 数据库引擎为关系型数据和结构化数据提供了更安全可靠的存储功能，使您可以构建和管理用于业务的高可用和高性能的数据应用程序

12、。 包括：数据采集、整理、编码和输入，有效地把数据组织到计算机中，由计算机对数据进行一系列储存、加工、计算机、分类、检索、传输、输出等操作过程。编程语言本次设计选取的开发平台式 Visual Basic。是近年来在国内外得到迅速推广应用的可视化程序设计语言,具有简单易学,功能强大,软件费用支出低,见效快等特点.它提供了开发Windows应用程序最迅速,最简捷的方法,不但是专业人员得心应手的开发工具,而且易于被非专业人员掌握使用.目前,全世界数以百万计的程序设计人员正在用Visual Basic开发各种类型的软件。在Visual Basic 语言问世之前，设计Windows应用程序是一件令人痛苦

13、的事情。而在vb把Windows 的各种细节隐藏起来，程序员需要做的只是在表单中画出需要的控件，然后为这些控件的事件编写代码。因此给人事管理信息系统的开发带来不少的帮助。第二章 人事管理信息系统2.1人事管理信息系统的系统设计 随着社会的发展，科技的进步，作为信息载体的计算机日益显露出其举足轻重的地位。当今社会已步入了信息社会，知识经济将成为新世纪的主导产业。伴随计算机的逐步推广和使用，计算机已在科研、生产、商业、服务等许多方面创造了提高效率的途径，与此同时，单位技术成本也逐年有了明显的下降，然而办公室里的人事费用却不断增加。在国外，花费在专业、管理和行政人员上的成本占了办公室总成本的2/34

14、/5，这一现象使人们对办公室自动化的要求与日俱增。我们必须在进行机构改革的同时，尽快使用现代化管理设备、管理手段、管理方法。 计算机在人事部门的广泛使用，改进了统计手段，改革了统计方法，提高了统计工计算机在人事部门的广泛应用，将为我国的人事管理工作，提供现代化的管理手段和科学的管理方法，并将为开创人事管理工作的新局面创造条件。目前，计算机在我国的人事管理工作中，主要可用来进行报表处理，档案管理，文书编辑，信息查询，综合分析。干部统计作为人事管理的一个重要组成部分，是通过对干部情况的调查，整理和分析，了解干部队伍的发展趋势，为各级领导机关制定干部工作的方针，政策，加强干部管理，改革干部制度提供准

15、确数字的依据。其工作除涉及到干部的基本情况统计之外，还包括干部的工资统计，干部编制情况统计，干部奖惩情况统计，军转干部安置情况统计，老干部情况统计等方面，其涉及的面之广，数据量之大可想而知，若利用手工进行干部的统计工作，大致要经过干部统计调查，干部统计资料的整理，干部统计分析三个过程，但这种手工统计过程，存在着几个明显的问题，比如说统计资料缺乏准确性，及时性，需要花费大量的人力，物力，财力等。 手工方法所表现出来的种种劣势，使人们慢慢意识到管理现代化已成为当代社会发展的一股不可抗拒的洪流。在管理现代化的浪潮中，人事管理现代化也势在必行。实现人事管理现代化是一个复杂的系统工程，需要采取科学的管理

16、方法和先进的科技手段。科学的管理方法在管理中一般是指数学方法、系统方法、信息方法、控制论方法、社会学方法、心理学方法等科学方法，而先进的科技手段主要是运用当代最新科学技术之一的电子计算机来为人事管理现代化服务。2.1.1人事管理信息系统的功能模块设计电子计算机作为数据处理系统，已逐步成为人事管理现代化的重要工具，在人事管理中正在发挥着重要的作用，在我国，已经开始运用电子计算机进行人员工资管理、人事统计和查询、干部考评和人事档案管理以及人才预测和规划等。本系统是人事管理信息系统一个简单实例，只选取与人事管理相关的考勤、评价和工资发放等流程作分析。系统由系统管理、员工基本信息、员工考勤管理、员工工

17、作评价管理和员工工资管理等模块组成，各个功能模块介绍如下：1、 系统管理模块 在这个模块中，可以重新登录和退出系统。2、员工基本信息模块 在这个模块中，可以浏览、添加、修改、删除和查询员工基本信息。3、员工考勤管理模块 在这个模块中，可以可以浏览、添加、修改、删除和查询员工考勤信息。4、 员工工作评价管理模块 在这个模块中，可以可以浏览、添加、修改、删除和查询员工工作评价信息。5、 员工工资管理模块 在这个模块中，可以可以浏览、添加、修改、删除和查询员工工资信息。 图2.1 人事管理信息系统的系统功能结构人事管理信息系统系统管理员工基本信息员工考勤管理员工工作评价管理员工工资管理退出重新登录添

18、加员工信息修改员工信息删除员工信息查询员工信息添加考勤信息删除考勤信息查询考勤信息修改考勤信息添加工作评价信息修改工作评价信息工作评价信息查询删除工作评价信息计发员工工资信息修改员工工作信息员工工资信息查询2.1.2人事管理信息系统的数据库设计系统数据库名称为PersonMIS，数据库中包括；用户信息表、员工档案信息表、员工考勤信息表、员工评价信息表、员工工资信息表。下面列出各个表的数据库结构如表：表2.1用户信息表表名：usrinfo说明：用户信息表字段类型大小空值描述UIDchar10用户名PWDchar10Y密码User Deschar10Y描述表2.2员工档案信息表表名：manreco

19、rd说明：员工档案信息表字段类型大小空值描述ygidvarchar8员工编号ygnamevarchar10Y员工姓名yedeptvarchar20Y员工部门ygsexvarchar2Y员工性别ygbirthdayvarchar8Y员工生日ygplacevarchar40Y员工籍贯yglevelvarchar10Y员工学历yespecialvarchar20Y员工专业ygdate1datetime8Y参加工作时间ygdate2datetime8Y入党时间Ygbusivarchar12Y职称Ygdate3datetime8Y职称时间yestatusvarchar12Y原身份ygofficevarc

20、har30Y原工作单位ygdutyvarchar10Y原职位Ygdate4datetime8Y进入公司时间Ygdate5datetime8Y起薪时间Ygdate6datetime8Y调入部门时间ygnovarchar8Y档案号Ygremark1text16Y备注 表2.3员工考勤信息表表名：checkin说明：员工考勤信息表字段类型大小空值描述kqidvarchar8编号kqnamevarchar10姓名kqdatedatetime8日期kqdaysbigint5Y本月天数kqrdaynumeric5Y公休假天数kqtdaynumeric5Y应出勤天数kqworknumeric5Y出勤kqab

21、sentnumeric5Y旷工kqrestnumeric5Y年休Kqleavenumeric5Y请假Kqlatenumeric5Y迟到kqearlynumeric5Y早退kqforgetnumeric5Y忘定卡Kqover1numeric5Y假日加班Kqover2numeric5Y其他加班kqfillnumeric5Y补休天数kqgonumeric5Y起薪时间kqpaynumeric5Y出差天数kqdeductnumeric5Y加班费kqothervarchar20Y其他kqremarktext16Y备注表2.4员工评价信息表表名：manappraise说明：员工评价信息表字段类型大小空值描述

22、pjdeptvarchar10部门pjnamevarchar10姓名pjnochar4评价代码pjidvarchar8评价编码pjdatedatetime8时间pjresultvarchar40Y工作业绩pjpositionvarchar40Y工作态度pjlevelvarchar50Y业务水平pjremarktext16Y备注Pjother1varchar50Y其他1Pjother2varchar50Y其他2表2.5员工工资信息表表名：pay说明：员工工资信息表字段类型大小空值描述gzidvarchar8编号gznamevarchar10姓名gzbasenumeric5底薪gzallnumer

23、ic5Y补贴gzbonusnumericY奖金gzpaynumeric5Y加班gzdeductnumeric5Y扣考核gzagenumeric5Y代扣养老金gzmedicalnumeric5Y代扣医疗保险Gzhouse1numeric5Y代扣住房公积金gztotalnumeric5Y税前小计gzdutynumeric5Y所得税Gzhouse2numeric5Y房帖Gzhouse3numeric5Y房租gzlaboragenumeric5实发工资gzlaboragedatetime8时间第三章 人事管理信息系统的开发3.1 人事管理信息系统的程序开发3.1.1人事管理信息系统的文件架构图图3.1

24、文件架构图 系统登录（frmLogin.frm） 系统主界面（frmMain.frm）系统管理员工工资管理员工基评价管理员工考核管理员工基本信息设置3.1.2 人事管理信息系统程序运行 运行程序首先看到的是登录界面，如图3.2所示，输入用户名和密码（分别是vb和vb或qmws和15），单击确定，进入主程序界面。如图3.3 图3.2登录界面图3.3 主程序界面 在主界面中单击【员工基本信息表】【修改员工信息表】项，首先进入到浏览窗口如图3.4所示。选择需要修改的员工信息后右击，在弹出菜单中选择【修改员工信息】，进入员工信息修改界面。图3.4【员工档案列表】 在主界面中单击【员工基本信息】【员工信

25、息查询】项，就会进入员工信息查询的窗体，如图3.5所示 图3.5【员工信息查询】界面 在主界面中单击【员工考勤管理】【添加考勤信息】项，进入到添加考勤信息的界面，如图3.6所示。图3.6【员工考勤添加】界面第四章 人事管理信息系统的功能模块介绍4.1 图书管理信息系统的主要功能模块程序设计4.1.1公共模块 代码如下：Public frmMain As frmMainPublic gintMode As IntegerPublic flagEdit As BooleanPublic UserName As StringSub Main() frmLogin.ShowEnd SubPublic

26、Function ConnectString() _ As Stringreturns a DB ConnectString ConnectString = Provider=SQLOLEDB.1; & _ Persist Security Info=False; & _ UID=sa;PWD=sa; & _ Initial Catalog=PersonMIS; & _ Data Source=(local)End FunctionPublic Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As ADODB.

27、Recordsetexecutes SQL and returns Recordset Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set cnn = New ADODB.Connection cnn.Open ConnectString If InStr(INSERT,DELETE,UPDATE, _ UCase$(sTokens(0) Then cnn.Execute SQL

28、 MsgString = sTokens(0) & _ query successfulElse Set rst = New ADODB.Recordset rst.Open Trim$(SQL), cnn, _ adOpenKeyset, _ adLockOptimistic rst.MoveLast get RecordCount Set ExecuteSQL = rst MsgString = 查询到 & rst.RecordCount & _ 条记录 End IfExecuteSQL_Exit: Set rst = Nothing Set cnn = Nothing Exit Func

29、tion ExecuteSQL_Error: MsgString = 查询错误: & _ Err.Description Resume ExecuteSQL_ExitEnd Function将enter换成tabPublic Sub EnterToTab(Keyasc As Integer) If Keyasc = 13 Then SendKeys TAB End IfEnd Sub4.1.2登录模块代码如下：Public OK As BooleanPrivate Sub cmdCancel_Click() OK = False Me.HideEnd SubPrivate Sub cmdOK_

30、Click() Dim mrc As ADODB.Recordset Dim strmsg As String txtSQL = select uid from userinfo where UID= & Trim(txtUserName.Text) & Set mrc = ExecuteSQL(txtSQL, strmsg) If mrc.EOF = True Then MsgBox 用户名错误！, vbExclamation + vbOKOnly, 警告 txtUserName.SetFocus txtUserName.SelStart = 0 txtUserName.SelLength

31、= Len(txtUserName.Text) Exit Sub End If UserName = mrc.Fields(0) txtSQL = select UID from userinfo where PWD= & Trim(txtPassword.Text) & Set mrc = ExecuteSQL(txtSQL, strmsg) If mrc.EOF = True Then MsgBox 密码错误！, vbExclamation + vbOKOnly, 警告 txtPassword.SetFocus txtPassword.SelStart = 0 txtPassword.Se

32、lLength = Len(txtPassword.Text) Exit Sub End If OK = True frmMain.Show Unload MeEnd Sub4.1.3员工基本信息设置模块代码如下：Option Explicit是否改动过记录，ture为改过Dim mblChange As BooleanPublic txtSQL As StringDim mrc As ADODB.Recordset操作的表名称Private Sub cboItem_Change() 有变化设置gblchange mblChange = TrueEnd SubPrivate Sub cboIt

33、em_KeyDown(KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd SubPrivate Sub cmdExit_Click() If mblChange And cmdSave.Enabled Then If MsgBox(保存当前记录的变化吗？, vbOKCancel + vbExclamation, 警告) = vbOK Then 保存 Call cmdSave_Click End If End If Unload MeEnd Private Sub cmdSave_Click() Dim intCount As

34、Integer Dim txtSQL As String Dim MsgText As String Dim sMeg As String Dim i As IntegerFor intCount = 0 To 2 If Trim(txtItem(intCount) & ) = Then Select Case intCount Case 0 sMeg = 编号 Case 1 sMeg = 姓名 Case 3 sMeg = 部门 End Select sMeg = sMeg & 不能为空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(in

35、tCount).SetFocus Exit Sub End If Next intCount If Trim(txtItem(3) & ) Then If Not IsDate(txtItem(3) Then MsgBox 生日应输入日期（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告 txtItem(3).SetFocus Exit Sub Else txtItem(3) = Format(txtItem(3), yyyy-mm-dd) End If End If If Trim(txtItem(7) & ) Then If Not IsDate(txt

36、Item(7) Then MsgBox 参加工作时间应输入日期（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告 txtItem(7).SetFocus Exit Sub Else txtItem(7) = Format(txtItem(7), yyyy-mm-dd) End If End If f Trim(txtItem(8) & ) Then If Not IsDate(txtItem(8) Then MsgBox 入党时间应输入日期（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告 txtItem(8).SetFo

37、cusExit Sub Else txtItem(8) = Format(txtItem(8), yyyy-mm-dd) End If End If If Trim(txtItem(10) & ) Then If Not IsDate(txtItem(10) Then MsgBox 职称时间应输入日期（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告 txtItem(10).SetFocus Exit Sub Else txtItem(10) = Format(txtItem(10), yyyy-mm-dd) End If End If If Trim(tx

38、tItem(14) & ) Then If Not IsDate(txtItem(14) Then MsgBox 进入公司时间应输入日期（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告 txtItem(14).SetFocus Exit Sub Else txtItem(14) = Format(txtItem(14), yyyy-mm-dd)End If End If If Trim(txtItem(15) & ) Then If Not IsDate(txtItem(15) Then MsgBox 起薪时间应输入日期（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告 txtItem(15).SetFoc