人事管理是所有工厂、公司、企事业单位所必需的，它包括人事档案的统计、查询、更新、打印输出等。如果这些工作由人工统计，则工作量很大，若企业公司人数有几万甚至几十万，人工统计将变得不可想象，用计算机统计可以使人们从繁重的劳动中解脱出来，仅一些简单的操作即可以及时、准确地获得需要的信息。

        企业人事管理系统是现代企事业单位管理人员、工资、日常考勤所必须拥有的信息化管理系统之一，它应该能包括人事信息的增加、删除、修改、查询，员工调动、员工离职，人事信息的打印输出，日常考勤管理、工资管理等等。

        2 系统分析

        2.1 可行性分析

        系统可行性研究的目的是用最小的代价，在尽可能短的时间内确定问题是否能够解决，它的目的不是解决问题，而是确定问题是否能解决、是否值得解决。可行性分析就是对项目开发的可能性和必要性进行分析，避免盲目投资。因此系统开发有着技术可行性、经济可行性、操作可行性的要求，为了减少项目的风险，从规模和时间上考虑该系统的可行性。可行性分析主要从以下三方面来考虑：

        2.1.1 技术可行性

        本系统采用Windows XP作为开发平台。集成开发环境选用微软Visual Basic 6.0，数据库管理系统选用MS ACCESS 2003桌面型数据库，是目前应用软件的主流开发模式，技术方面比较成熟。

        2.1.2 经济可行性

        本系统的开发需要资金少，系统开发运行后，可以实现人事管理的计算机化，节省人力，物力，将人从繁重的工作业务中解脱出来，减少人工查找和登记中无意的错误，节省大量的时间，管理效率大幅度提高。通过本人的认真估算，我认为新系统所需要的软硬件配置相对于它投入使用后所产生的经济效益来说花费并不高，软件开发成本主要是人力、物力的消耗，物力消耗是开发此系统所需要的软、硬件的设备，以及耗电量等方面的计算，其实更重要的是新系统可以提高工作效率，加强管理，保证工作质量，加快流动资金周转，减少资金积压，提供更多的更高质量的信息，提高取得信息的速度，以达到资源优化的目的。因此，人事管理系统在经济上也是可行的。

        2.1.3 操作可行性

        人事管理系统能够处理实际工作中遇到的问题。另外，使用本软件的人员要求是有一定的计算机基础的，系统的管理员也应该有计算机专业的知识，经过培训的人员将会熟练使用本软件，本系统的设计采用的是先进的开发技术，开发的程序具有WINDOWS图形用户界面，和WINDOWS特性风格，界面直观易懂，操作简洁，使用非常方便。只要具备计算机的基础知识，经过简单的培训即可操作本系统。

        2.2 功能性需求分析

        每一个系统都会有自己的功能。人事管理系统将会为人事管理工作人员提供一套便捷、高效的工作平台：人事管理系统。人事管理系统主要完成对企业人事的管理，包括系统管理、部门管理、员工管理、考勤管理、工资管理以及人事信息统计等几个方面。系统可以完成对企业各种劳动人事信息的浏览、查询、添加、删除、修改、报表以及文件导出等功能。

        3 系统设计与实现

        3.1 系统功能结构设计

        根据需求分析，本系统包括六个主要模块：系统管理模块、部门管理模块、人事管理模块、考勤管理模块、工资管理模块、人事信息统计模块。

        系统管理模块主要用于系统的管理和维护，包括添加用户、修改密码、数据备份以及数据恢复；部门管理模块主要用于部门信息的添加和修改；人事管理模块主要用于员工档案信息的添加、修改和查询，以及人事调动、员工离职等功能的设计；考勤管理模块主要包括添加修改出勤记录以及请假的设置；工资管理模块主要包括工资信息的管理以及按照工资月份进行工资数据的导出；人事信息统计模块主要包括按照各种统计要求进行人事信息的统计。

        3.2 公共模块的设计

        在进行系统设计时，应当将那些可能被重复使用的功能编写成通用的过程或函数存放在标准模块即公共模块中，这样不仅可以减少代码量，而且方便日后维护。

        3.2.1 部分公用变量

        字符型公用变量：tb1用于传递数据表名，sql1用于传递SQL语句；用于判断是添加状态还是修改状态的布尔型公用变量：blnAddRS是添加或修改员工信息的标记、blnAddBM是添加或修改部门信息的标记、blnAddGCQJ是添加或修改请假记录的标记。

        3.2.2 数据库连接函数

        Cnn：用于连接数据库的数据库连接函数；cnStr：用于连接数据库的字符串函数。

        3.3 系统的实现

        本系统共有六大模块，源代码在VB中实现，并对系统进行了测试工作。下面以部门管理模块中以添加部门信息为例，介绍该模块对应编码（部分）的实现：

        Private Sub CmdSave_Click()

        If Len(Text1(0)) > 10 Then

        MsgBox '部门编号超长！'

        Exit Sub

        End If

        If blnAddBM = True Then

        rs1.Open 'select * from 部门表', cnn, adOpenKeyset, adLockOptimistic

        rs1.AddNew

        For i = 0 To 4

        rs1.Fields(i) = Text1(i).Text

        Next i

        rs1.Update

        rs1.Close

        Else

        rs1.Open 'select * from 部门表 where 部门编号='' + Text1(0) + ''', cnn, adOpenKeyset, adLockOptimistic

        If rs1.RecordCount > 0 Then

        For i = 0 To 4

        rs1.Fields(i) = Text1(i).Text

        Next i

        rs1.Update

        End If

        rs1.Close

        Frmbumen_cx.Adodc1.Refresh

        End If

        Unload Me

        End Sub

        4 结束语

        人事管理系统能够极大地提高人事管理的效率，也是企业的科学化、正规化管理的体现。人事管理系统的建立有助于数据录入、查询、管理等各项工作的全面提高，以备存档。从微观角度上分析，人事管理系统的建立，对规范、完善数据管理，加强数据管理措施能够起到积极的作用。