企业人事管理系统.doc

江西师范大学JIANGXI NORMAL UNIVERSITY 毕 业 论 文题 目： 人事管理系统 Subject : Enterprise personnel Management System 学 生：艾荣平学 院： 计算机信息工程学院 专 业： 计算机科学与技术 学 号： 0308060001 完成时间： 2007年4月15日 指导老师： 胡 启 敏 【摘要】企业人事管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。本文主要完成企业人事管理系统的需求分析、功能模块划分、数据库模式分析，并由此设计了数据库结构和应用程序。设计充分利用Visual Basic 6.0、MS SQL Server2000数据库技术的强大力量，提高了编程效率和可靠性。【关键词】 数据库 MS SQL Server2000 Visual Basic6.0 人事管理 窗体 Abstract: Enterprise personal administration system is representative information management system (MIS) , the person develops building-up and upkeep and fore-end application including the backstage data base mainly to develop two aspect. Warehouse requiring that the data compatibility and completeness are strong starting from building-up , data security is good to the former. Require that the application function is complete but then to the latter , easy to be put into use waiting for a characteristic.The need analysis , function module partition , data base pattern accomplishing enterprise personal administration system mainly have analysed the main body of a book , have designed and the data base structure and application from this.Design fully utilizes Visual Basic 6.0, MS SQL Server2000 data base technology strength big and powerful, has improved the programming efficiency and reliability.Key words: The database MS SQL Server2000 Visual Basic 6.0 Personnel Management Form 目录JIANGXI NORMAL UNIVERSITY1绪 论5第一章：人事管理系统概述51.1 系统的任务51.2 系统的目标61.3 SQL SERVER 2000数据库6第二章 系统需求分析72.1 系统初步分析72.2 系统需求分析72.2.1 职能设置72.2.2 员工信息管理82.2.3 工资管理92.2.4 员工考勤管理102.2.5 工作考核管理112.2.6 系统管理12第三章 数据库分析设计133.1 系统E-R图133.2 数据字典14第四章 系统详细设计204.1 创建系统主窗体204.1.1 主窗体界面204.1.2 主窗体菜单204.1.3 具体程序代码214.2 创建公用模块264.3 系统具体功能模块的实现264.3.1 系统登录功能264.3.2 员工录用功能28第五章 总结43参考文献：43后记：43绪 论企业间的竞争说到底是人的竞争，人力资源是企业中最难管理的资源，也是最急需管理的资源。如何将人作为可以开发和增值的资源去投资和经营，是企业急需解决的问题。人事管理是人力资源管理的基础工作。因此，人事管理的信息化、知识管理和办公自动化是将人力资源管理提升到战略层次的基础。本系统规范了企业员工的人事档案，提高了人事管理效率，能方便快捷地查询各类信息并进行统计分析。设计本人事管理的作用正是为了对企业的人力资源进行更科学合理的管理，从而提高企业的人才竞争力。本文分为五章进行论述。第一章介绍人事管理系统，第二章说明系统需求分析，第三章介绍数据库设计分析，第四章为系统详细设计，第五章进行全文的总结和对今后工作的展望。第一章：人事管理系统概述人事管理系统是企业用来管理员工信息工资信息考勤和工作考核信息的一套信息化系统.本系统是一个典型的人事管理系统,主要包括职能设置员工信息管理工资管理员工考勤管理工作考核管理以及系统管理模块.1.1 系统的任务人事管理系统是企业用来管理员工档案的重要工具,其任务主要包括以下几项： 职能设置，主要负责管理企业的部门信息和职务信息 员工信息管理，主要负责管理员工的录用信息和基本信息，同时提供花名册查询的功能 工资管理，主要负责管理工资标准、工资计发和工资报表等信息 员工考勤管理，主要负责员工考勤录入、考勤查询以及考勤考核 工作考核管理，主要负责管理员工的工作考核信息，包括录入、查询以及考核单生成 系统管理，主要负责用户权限管理，包括用户管理、密码维护和重新登录1.2 系统的目标人事管理系统需要管理企业员工信息、工资信息、考勤和工作考核信息等。一般而言，人事管理系统应达到以下目标： 记录企业内部员工的基本档案信息，提供便捷的查询功能。 管理企业的工资信息，使计发工资与员工的工资标准、考勤和工作考核相联系。 有效管理员工的考勤和工作考核信息，促进企业的奖励机制。 减少人工的参与和信息的录入，减轻管理人员的工作任务，降低管理成本。同时，系统应具有良好的自治功能和信息循环。 有效地完成企业的日常人事管理工作1.3 SQL SERVER 2000数据库Microsoft SQL Server2000数据库是微软公司的大型数据库管理系统。它不但可以满足大型数据处理系统对数据存储量的需求，而且对于小型企业来说，也可以作为管理数据的简易工具。SQL Server2000的特性如下：1. 与应特网的集成2. 可伸缩性和可用性3. 企业级数据库功能4. 易于安装、部署和使用5. 数据仓库SQL Server数据库对大型数据存储的性能较Oracle数据库低，但它容易操作易上手，界面操作简单。 第二章 系统需求分析2.1 系统初步分析现在的大型企业都已实现了人事管理的信息化，通过身份卡的条形码来实现读取信息和进行信息的操作处理，员工可以通过人事管理系统查询员工基本信息、考勤考核以及员工工资等信息，系统管理员可以登录系统修改员工的所有信息，实现了所有信息的网络化和公开化。2.2 系统需求分析根据以上对人事管理系统的任务和目标的分析，以及初步调研的情况进行总结后得出一个完善的人事管理系统应该包括如下所示的一些功能，每一个功能模块又包括一系列的子模块：图1 系统功能模块图人事管理系统职能设置员工信息管理工资管理员工考勤管理工作考核管理系统管理2.2.1 职能设置职能设置职务设置部门设置“职能设置”模块主要负责对企业内部的部门信息、职务信息进行设置，其功能模块图所示：1.“部门设置”模块“部门设置”模块负责维护部门信息，提供增加、修改、删除和查询部门信息的功能。部门信息主要包括部门代码、部门名称、领导姓名、联系地址、联系电话、简介等。2.“职务设置”模块“职务设置”模块负责维护职务信息，主要提供初始化、增加、修改、删除和查询职务信息的功能。职务信息主要包括职务代码、职务名称、工资等级ID、工资上限、工资下限、简介等。2.2.2 员工信息管理员工信息管理花名册员工基本信息员工录用“员工信息管理”模块主要用来管理员工信息，包括员工录用信息、员工基本信息和花名册。其功能模块如图所示工作员工员工录用员工基本信息花名册工作人员员工录用信息表员工基本信息表录用信息员工信息查询条件录用信息基本信息花名册1、“员工录用”模块“员工录用”模块主要负责维护员工的录用信息。员工一经录用，便应填写录用信息。每次发生人员录用、续聘、解聘，都应该对其录用信息进行修改。录用信息主要包括签约合同、员工ID、姓名、解约日期、合同到期日期、合同类型、受聘部门、受聘职务、聘用标志（录用、续聘、解聘）、备注等。2、“员工基本信息”模块“员工基本信息”模块负责维护员工的人事信息，主要应具有增加、修改、删除和查询功能。员工基本信息主要包括如下几项。1）个人信息：员工ID、姓名、性别、出生日期、籍贯、民族、身份证号、政治面貌。2）工作信息：所属部门ID、进入部门日期、职务、职称、起薪日期。3）工作简历：原企业、毕业日期、学历、专业、外语。4）联系方式：地址、电话、邮箱。5）在岗状态：在职、离职退休、返聘和在职培训4种状态。3、“花名册”模块“花名册”模块提供按条件查询员工花名册的功能。花名册主要包括姓名、性别、出生日期、籍贯、民族、身份证号、政治面貌、部门名称、进入部门日期、职务名称、职称、电话、邮箱、在岗状态等。 2.2.3 工资管理“工资管理”模块主要用来管理员工的工资信息，包括设定工资标准，进行工资计发，以及产生工资报表。其功能模块如图所示工资管理工资报表工资计发工资标准“工资管理”功能模块工作人员工资标准工资计发工资报表工作人员工资标准信息表工资计发信息表标准信息计发信息选择条件工资标准工资报表标准工资计发信息1.“工资标准”模块“工资标准”模块负责维护企业的工资标准。工资标准信息包括以下几项。1）标识信息：工资等级ID、等级名称2）基本工资：底薪、补贴、奖金、车补、房补3）代扣项目：养老金、医疗保险、住房公积金2.“工资计发”模块“工资计发”模块负责发放员工工资。财务人员选择员工，系统将自动得到工资标准信息。财务相关人员可以修改补贴、奖金、车补、房补、扣考核和加班费等项目。每次计发工资时都会产生一条工资计发信息。工资计发信息包括以下几项1）标识信息：员工ID、姓名、工资等级ID2）基本工资：底薪、补贴、奖金、车补、房补、扣考核、加班费3）代扣项目：养老金、医疗保险、住房公积金4）工资合计：税前小计、所得税、应发工资、补发日期3.“工资报表”模块“工资报表”模块主要负责产生员工的工资报表，内容包括工资明细和工资统计2.2.4 员工考勤管理“员工考勤管理”模块主要负责员工考勤，包括考勤录入、考勤查询和考勤考核等功能。其功能模块如图所示： 员工考勤管理考勤考核考勤查询考勤录入“工资管理”功能模块工作人员考勤录入考勤考核考勤查询考勤信息表考勤考核信息表工作人员考勤信息考核信息选择查询条件查询结果考勤信息考核信息考勤信息考勤信息“工资管理”数据流程1.“考勤录入”模块“考勤录入”模块负责提供考勤录入功能。考勤信息包括考勤ID、员工ID、考勤日期、考勤类型、天数、备注。考勤类型包括公休假日、正常出勤、假日加班、其他加班等。2.“考勤查询”模块“考勤查询”模块提供对各种考勤信息的查询功能。同时，管理人员可以按员工对考勤信息进行统计。3.“考勤考核”模块“考勤考核”模块用来对员工的考勤状况进行考核，填写加班费和扣考核信息。考勤考核信息将应用于工资计发。 2.2.5 工作考核管理“工作考核管理”模块主要负责员工的工作考核，包括考核录入、考核查询和考核单生成功能。其功能模块如图所示：工作考核管理考核单生成考核查询考核录入“工作考核管理”功能模块1.“考核录入”模块“考核录入”模块负责工作考核信息的录入。工作考核信息包括员工ID、姓名、考核日期、工作业绩、工作态度、业务水平、考核结论、备注等。2.“考核查询”模块“考核查询”模块主要负责按部门或员工查询考核情况3.“考核单生成”模块“考核单生成”模块用来生成各员工的考核单。考核单信息包括员工ID、姓名、考核日期、工作业绩、工作态度、业务水平、考核结论、备注等。2.2.6 系统管理“系统管理”模块主要用于用户权限管理，包括用户管理、密码管理、权限设置和重新登录。其功能模块如图所示：系统管理重新登录密码维护用户管理“系统管理”功能模块第三章 数据库分析设计根据系统需求分析，系统需要建立10个表，其用途说明如表所示ID 数据表名称 数据表用途1 部门信息表 保存企业部门信息2 职务信息表 保存职务基本状况信 3 员工录用信息表 保存员工录用及合同的信息4 员工基本信息表 保存员工的基本信息5 工资标准信息表 保存员工的工资标准6 工资计发信息表 保存员工的工资计发明细7 考勤信息表 保存所以员工的考勤记录8 考勤考核信息表 保存员工的考勤考核信息9 工作考核信息表 保存员工各项考核信息 10 用户信息表 保存用户基本信息及密码3 .1 系统E-R图通过系统的需求分析，了解了系统的分解功能和数据流程后，可以画出系统的E-R图，如图所示： 员工基本信息表员工ID 姓名性别出生日期籍贯民族身份证号政治面貌所属部门进入部门日期职务代码职称起薪日期部门代码考勤信息表考勤ID员工ID考勤日期考勤类型天数备注部门信息表 部门代码 部门名称领导姓名联系地址联系电话简介考勤考核信息表考勤ID员工ID考核日期奖励惩罚职务信息表职务代码职务名称工资等级工资上限工资下限简介工作考核信息工作考核员工ID考核日期工作态度工作业绩考核结论备注工资计发信息表计发ID员工ID工资等级底薪补贴奖金车补房补扣考核加班费代扣养老金代扣医疗保险代扣住房公积金税前小计所得税应发工资计发日期工资标准信息表工资等级等级名称底薪补贴奖金车补房补养老金住房公积金员工录用信息签约合同号姓名签约日期合同到期日期合同类型受聘职务标志3.2 数据字典 1.部门信息表 2.职务信息表 3.员工录用信息表 4.员工基本信息表 5.工资标准信息表 6.工资计发信息表 7.考勤信息表 8.考勤考核信息表 9.工作考核信息表 10.用户信息表 3 .3 表关联在创建完以上7个表后，通过SQL Server企业管理其可以得到数据库表的关联图，如图所示：第四章 系统详细设计通过数据库分析设计，已经完成了所有的后台工作，前台主要是系统的界面设计和数据库的连接。在界面设计方面选用了方便快捷的可视化编程软件Visual Basic 6.0，在数据库连接则采用ODBC数据源连接数据库。4.1 创建系统主窗体4.1.1 主窗体界面在新建工程后，在项目资源管理器中添加一个MDI窗体为系统主窗体：属性设置：表2 主窗体设置控件 属性 属性值 图书管理系统（Form） Name 人事管理系统 Caption 人事管理系统 Startup Position 0-Manual Window state 0-Normal4.1.2 主窗体菜单根据系统功能模块的详细分解后可以把系统菜单分为2个级别：一级菜单：职能设置、工资管理、工作考核管理、员工信息管理、员工考勤管理、系统管理二级菜单则是上述模块的功能细分，具体如下：一级菜单 二级菜单职能设置 部门设置 职务设置工资管理 工资标准 工资计发 工资报表工作考核管理 考核录入 考核查询 考核单生成员工信息管理 员工录用 员工基本信息 花名册员工考勤管理 考勤录入 考勤查询 考勤考核系统管理 用户管理 密码维护 重新登录 4.1.3 具体程序代码主窗体运行时将触发load事件，在load事件中，首先要求得到用户的权限信息，然后根据用户权限设置菜单的可用性。系统只对一级模块进行权限管理。具体代码如下（本文出现的代码注释大部分为解释文字下方代码）：Private Sub MDIForm_Load() Dim rst As ADODB.Recordset Dim SQL As String Dim msg As String Dim rights As String 保存记录中的权限值查找权限SQL = select 权限 from 用户信息表 where 用户ID= & UserID & Set rst = SelectSQL(SQL, msg) If rst.RecordCount 0 Then rights = Trim(rst.Fields(0) rst.Close Else MsgBox (没有用户信息！) Exit Sub End If 设置权限 If InStr(rights, 职能设置) Then 职能设置.Enabled = True Me.Toolbar1.Buttons(1).Enabled = True Me.Toolbar1.Buttons(3).Enabled = True Else 职能设置.Enabled = False Me.Toolbar1.Buttons(3).Enabled = False Me.Toolbar1.Buttons(1).Enabled = False End If If InStr(rights, 员工信息管理) Then 员工信息管理.Enabled = True Me.Toolbar1.Buttons(5).Enabled = True Me.Toolbar1.Buttons(7).Enabled = True Else 员工信息管理.Enabled = False Me.Toolbar1.Buttons(5).Enabled = False Me.Toolbar1.Buttons(7).Enabled = False End If If InStr(rights, 工资管理) Then 工资管理.Enabled = True Me.Toolbar1.Buttons(9).Enabled = True Me.Toolbar1.Buttons(11).Enabled = True Else 工资管理.Enabled = False Me.Toolbar1.Buttons(9).Enabled = False Me.Toolbar1.Buttons(11).Enabled = False End If If InStr(rights, 员工考勤管理) Then 员工考勤管理.Enabled = True Me.Toolbar1.Buttons(13).Enabled = True Else 员工考勤管理.Enabled = False Me.Toolbar1.Buttons(13).Enabled = False End If If InStr(rights, 工作考核管理) Then 工作考核管理.Enabled = True Me.Toolbar1.Buttons(15).Enabled = True Else 工作考核管理.Enabled = False Me.Toolbar1.Buttons(15).Enabled = False End If 用户管理.Enabled = InStr(rights, 用户管理)End Sub当用户单击工具栏中的图标时，将触发Toolbar1_ButtonClick事件，进入不同的系统界面。其代码如下：Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1: Call 部门设置_Click 调入部门设置 Case 3: Call 职务设置_Click 调入职务设置 Case 5: Call 员工录用_Click 调入员工录用 Case 7: Call 员工基本信息_Click 调入员工基本信息 Case 9: Call 工资计发_Click 调入工资计发 Case 11: Call 工资报表_Click 调入工资报表 Case 13: Call 考勤考核_Click 调入考勤考核 Case 15: Call 考核录入_Click 调入考核录入 Case 17: Call 重新登录_Click 调入重新登录 End SelectEnd Sub当用户单击不同的菜单时，将进入不同的界面，菜单的Click事件的代码如下所示：Private Sub 部门设置_Click() A部门设置.Show 人事管理系统.Enabled = FalseEnd SubPrivate Sub 职务设置_Click() A职务设置.Show 人事管理系统.Enabled = FalseEnd SubPrivate Sub 员工录用_Click() B员工录用.Show 人事管理系统.Enabled = FalseEnd SubPrivate Sub 员工基本信息_Click() B员工基本信息.Show 人事管理系统.Enabled = FalseEnd SubPrivate Sub 花名册_Click() B花名册.Show 人事管理系统.Enabled = FalseEnd SubPrivate Sub 工资标准_Click() C工资标准.Show 人事管理系统.Enabled = FalseEnd SubPrivate Sub 工资计发_Click() c工资计发.Show 人事管理系统.Enabled = FalseEnd SubPrivate Sub 工资报表_Click() C工资报表.Show 人事管理系统.Enabled = FalseEnd SubPrivate Sub 考勤录入_Click() D考勤管理.Show D考勤管理.SSTab1.Tab = 0 人事管理系统.Enabled = FalseEnd SubPrivate Sub 考勤考核_Click() D考勤管理.Show D考勤管理.SSTab1.Tab = 2 人事管理系统.Enabled = FalseEnd SubPrivate Sub 考勤查询_Click() D考勤管理.Show D考勤管理.SSTab1.Tab = 1 人事管理系统.Enabled = FalseEnd SubPrivate Sub 考核录入_Click() E考核录入.Show 人事管理系统.Enabled = FalseEnd SubPrivate Sub 考核查询_Click() E考核查询.Show 人事管理系统.Enabled = FalseEnd SubPrivate Sub 考核单生成_Click() E考核单生成.Show 人事管理系统.Enabled = FalseEnd SubPrivate Sub 用户管理_Click() F用户管理.Show 人事管理系统.Enabled = FalseEnd SubPrivate Sub 密码维护_Click() F密码维护.Show 人事管理系统.Enabled = FalseEnd SubPrivate Sub 重新登录_Click() F重新登录.Show Unload MeEnd Sub4.2 创建公用模块为了能够对数据库访问进行集中处理，创建一个专门访问数据的公用模块，命名为OPeratDataBase.bas ，OPeratDataBase.bas 公用模块主要用于对数据库进行操作，包括以下5个函数： GetConnStr() As String 返回数据库连接字符串，用来处设置连接字符串 OpenConn(ByRef Conn As ADODB.Connection) As Boolean 打开数据库连接，连接成功返回true，出错时返回false ExecuteSQL(ByVal SQL As String, ByRef msg As String) 执行SQL语句 SelectSQL(ByVal SQL _As String, ByRef msg As String) As ADODB.Recordset 返回ADODB.Recordset，用来执行查询语句。 BatchSelectSQL(ByVal SQL As String,ByRef msg As String) AsADODB.Recordset函数,返回ADODB.Recordset,用来执行批处理。为了实现全局变量，另外创建一个全局变量模块PublicVar.bas，主要有3个全局变量，具体代码如下：LoginSucceeded 保存用户登录是否成功的标志UserID 保存用户IDConnectionString 保存数据库连接字符串 4.3 系统具体功能模块的实现4.3.1 系统登录功能登录功能主要用于企业员工的身份验证，如果是非法用户则不能登录系统。Dim SQL As StringDim msg As StringPrivate Sub Form_Load() Dim rst As ADODB.Recordset Dim strItem As String 初始化ComboBox SQL = select 用户ID,用户名称 from 用户信息表 order by 用户ID Set rst = SelectSQL(SQL, msg) If rst.RecordCount 0 Then Do While Not rst.EOF 添加到ComboBox列表 strItem = rst.Fields(0) & & rst.Fields(1) CboName.AddItem (strItem) rst.MoveNext 指向下一条记录 Loop rst.Close CboName.ListIndex = 0 默认ComboBox Else MsgBox (请先创建用户信息！) CmdOK.Enabled = False Exit Sub End IfEnd SubPrivate Sub CmdOK_Click() Dim rst As ADODB.Recordset Dim password As String 判断用户是否存在 UserID = Left(Trim(CboName.Text), 10) 取出用户的ID SQL = select 用户ID,密码 from 用户信息表 where 用户ID= & UserID & Set rst = SelectSQL(SQL, msg) If rst.RecordCount 0 Then 如果存在这个用户 password = Trim(rst.Fields(1) 取出该用户的密码 rst.Close Else MsgBox (数据库操作错误！) Exit Sub End If 判断密码是否正确 If password = Trim(txtPassword.Text) Then LoginSucceeded = True 人事管理系统.Show Unload Me Else MsgBox (密码错误！) LoginSucceeded = False End IfEnd SubPrivate Sub cmdCancel_Click() 设置全局变量为 false 不提示失败的登录 LoginSucceeded = False Unload MeEnd SubPrivate Sub Form_Unload(Cancel As Integer) LoginSucceeded = False Unload MeEnd Sub4.3.2 员工录用功能相关代码如下：Dim rs As ADODB.RecordsetDim SQL As StringDim msg As StringDim Index As IntegerDim flag As String 判断是新增记录还是修改记录Private Sub Form_Load() 初始化查询条件ComboBox CboQuery.AddItem (受聘部门) CboQuery.AddItem (签约合同号) CboQuery.AddItem (员工ID) CboQuery.AddItem (姓名) CboQuery.ListIndex = 0 默认查询条件为受聘部门 初始化员工ID、姓名 SQL = select * from 员工基本信息表 order by 员工ID Set rs = SelectSQL(SQL, msg) If rs.RecordCount = 0 Then 如果没有员工基本信息 MsgBox (请先建立员工基本信息！) Exit Sub Else Do While Not rs.BOF And Not rs.EOF 添加到ComboBox列表 Me.CboYGID.AddItem (rs.Fields(员工ID) & rs.Fields(姓名) rs.MoveNext 指针移到下一条记录 Loop Me.CboYGID.ListIndex = 0 默认ComboBox rs.Close 为姓名赋值 Me.txtName.Text = Right(Trim(CboYGID.Text), Len(Trim(CboYGID.Text) - 8) End If 初始化受聘部门 SQL = select * from 部门信息表 order by 部门代码 Set rs = SelectSQL(SQL, msg) If rs.RecordCount = 0 Then 如果没有部门信息 MsgBox (请先建立部门信息！) Exit Sub Else Do While Not rs.BOF And Not rs.EOF 添加到ComboBox列表 Me.CboBM.AddItem (rs.Fields(部门代码) & rs.Fields(部门名称) rs.MoveNext 指针移到下一条记录 Loop Me.CboBM.ListIndex = 0 默认ComboBox rs.Close End If 初始化受聘职务 SQL = select * from 职务信息表 order by 职务代码 Set rs = SelectSQL(SQL, msg) If rs.RecordCount = 0 Then MsgBox (请先建立职务信息！) Exit Sub Else Do While Not rs.BOF And Not rs.EOF 添加到ComboBox列表 Me.CboZw.AddItem (rs.Fields(职务代码) & rs.Fields(职务名称) rs.MoveNext 指针移到下一条记录 Loop Me.CboZw.ListIndex = 0 默认ComboBox rs.Close End If 初始化合同类型 CboHTStyle.AddItem (劳动合同) CboHTStyle.AddItem (劳务合同) CboHTStyle.ListIndex = 0 默认合同类型为劳动合同 初始化聘用标志 CboBZ.AddItem (录用) CboBZ.AddItem (续聘) CboBZ.AddItem (解聘) CboBZ.ListIndex = 0 默认聘用标志为录用 Call LoadData 装载数据 Call ShowData 显示数据End SubPrivate Sub LoadData(