中小型企业人事信息管理系统设计1

河南理工大学本科毕业设计（论文）1中小型企业“人事信息管理系统”设计摘要随着市场竞争的加剧，中小型企业要想在激烈的竞争中立于不败之地，就要不断的加强管理，信息量也就不可避免增加很多，以往的管理模式已不再适应现在社会经济发展的需求和企业对信息的需求，拥有一套能够对企业人事信息进行系统管理的应用软件，就显得犹为得要。在毕业设计期间，我根据中小型企业自身的特点，设计了一套经济型的信息管理系统。在这个系统的设计中我使用了功能强大的VisualBasic6.0作为软件开发工具，MicrosoftAccess2000作为数据库管理系统，该系统实现了较为简单的人事信息管理，其中包括部门管理，员工管理，工资管理等功能。本系统设计适用于中小型企业的人事系统管理，在一定程序上提高了企业的管理效率，规范了管理，减轻人事管理部门的压力，将人们从繁重而单一的工作中解放出来，从而进一步提高了小型企业人事信息管理的工作效率，以下为我关键词：数据库，模块，部门管理，员工管理，工资管理河南理工大学本科毕业设计（论文）2Abstract河南理工大学本科毕业设计（论文）3目录1前言1.1课题的意义、目的1.2课题研究的范围1.3软件设计所能达到的技术参数1.4课题解决的主要问题正文2系统用户管理模块2.1开发前提2.2模块的建立2.3模块的整体流程2.4数据库的设计2.5程序的实现2.5.1操作方法2.5.2代码的实现（1）添加用户（2）删除用户（3）修改用户2.6得出的结果以及对结果的讨论3部门信息管理3.1模块开发前提3.2模块的建立3.3模块的整体流程3.4数据库的设计3.5程序的实现3.5.1部门信息查询3.5.1.1部门信息查询的操作方法：3.5.1.2代码的实现（1）弹出部门查询窗休（2）实现查询功能的代码如下3.5.2部门信息管理3.5.2.1部门信息管理的操作方法3.5.2.2代码实现（1）弹出部门管理窗体（frmDepManage.frm）的代码（2）实现部门管理中的添加、删除、修改功能的代码4员工信息管理4.1模块开发前提4.2模块的建立4.3模块的整体流程4.4数据库设计4.5程序的实现4.5.1员工信息查询4.5.1.1员工信息查询的操作方法4.5.1.2代码实现4.5.2员工信息管理4.5.2.1员工信息管理的操作方法4.5.2.2员工管理中的添加、删除、修改代码实现5工资信息管理5.1模块开发前提5．2模块的建立5.3模块的整体流程5.4数据库的设计5.5程序的实现5.5.1工资信息查询5.5.1.1工资信息查询的操作方法5.5.1.2代码实现河南理工大学本科毕业设计（论文）45.5.2工资信息管理5.5.2.1工资信息管理的操作方法5.5.2.2代码实现6数据管理6.1开发前提6.2程序的实现6.2.1数据备份（1）数据备份操作方法（2）数据备份代码实现6.2.2数据恢复（1）数据恢复的操作方法（2）数据恢复代码的实现7结论7.1取得的成果7.1.1简便的操作方法7.1.2进一步加强了对数据库技术的认识7.2存在的问题7.3以后的努力方向8致谢9参考文献河南理工大学本科毕业设计（论文）51前言1.1课题的意义、目的随着市场竞争的加剧，有关企业人事管理的各项信息量也成倍增长。面对越来越大的信息量，就需要使用“小型企业人事管理系统”来提高整个企业的管理工作效率。1.2课题研究的范围因为计算机及其应用软件的不断发展，使得企业信息化管理已经越来越得到重视。而实现企业信息化的管理，能够提高企业管理质量、减轻企业人事管理部门的压力。那么就我设计的“中小型企业人事信息管理系统”软件具体的讲，就是要做到对企业人事信息的规范化管理、和快速的查询，从而减少管理方面的工作量。1.3软件设计所能达到的技术参数本次软件开发的工具是VisualBasic6.0，数据环境使用的是MicrosoftAccess2000。充分考虑到实际情况，使得开发的应用系统具有较好的维护性。在符合管理需要的条件下，使操作简单、便捷。而且采用了功能强大的数据库系统，适应大规模数据处理的要求。应用软件在当前居于主流且技术领先系统平台上设计，并且安装简单。我设计的“中小型企业人事信息管理系统”具有以下几个特点：（1）查询方便提供信息重组功能，将离散、单一的信息通过有机的结合，向使用者提供的数据更加快速、有效和准确。（2）简化工作流程大大的提高了人事系统的的办事效率，从而节省了大量的人力、物力和财力等资源。（3）实用性强软件充分满足中小型企业的不同管理需求，且操作简单，易于维护，便于保存和传阅。（4）操作简便软件使用直观的图形界面，即见既得的录入格式、方便的录入方式，电脑操作与手工处理流程完全一致，任何人员可在极短时间内无师自通。（5）功能齐全可以随时查询或统计企业员工的各种资料。河南理工大学本科毕业设计（论文）61.4课题解决的主要问题首先简要陈述一下我设计的中小型“企业人事信息管理系统”软件主要解决的几方面问题：（1）在“系统用户管理模块”中，完成系统用户的添加、用户密码的修改操作；（2）在“部门管理模块”中，用户可根据所在企业部门的划分及变动情况，实现对企业部门信息的查询，添加，修改，删除工作。（3）在“员工管理模块”中，可以实现对所在企业员工基本信息的录入，根据不同的身份给予不同的使用权限，实现对员工基本信息的添加、编辑和删除操作；（4）在“工资管理模块”中，分为工资信息查询和工资信息管理。在工资信息查询功能中，用户可以在表中选择所列出的员工编码和工资月份，选择相应的员工编码和工资月份，点击查询进行查询；在工资信息管理窗口中，根据表中已经列出的当前数据库中的所有员工工资信息，选择需处理的员工信息，然后点击相应的操作按钮，如添加，删除，修改等，然后进行操作，点击确定按钮即可实现相应的功能。（5）在“数据管理模块”中，实现对数据的备份及恢复功以。即用户可输入所要备份数据文件及恢复数据文件的完整保存路径，包括保存文件名，并为此次操作起一个别名，点击备份即可。备份或恢复成功后会有相应的成功提示信息出现。河南理工大学本科毕业设计（论文）7正文我开发的中小企业“人事信息管理系统”软件主要由系统用户管理、部门管理、员工管理、工资管理、数据管理和和帮助六个模块组成。以下为我对这几个模块的整个开发过程。2系统用户管理模块2.1开发前提一般在开发一个数据库系统时，需要设置操作人员，而这些操作人员的身份也有所不同，那么他们就可以根据各自不同的身份利用本系统来进行不同的操作。而本模块的作用就在于：利用系统初始设置的两个用户名和密码登录后（Administrator用户和User用户），可根据不同的权限对系统拥有不同的操作权限。Administrator用户是管理员用户，可以在系统用户管理中，增加相应的用户，并且指定用户的权限（即拥有添加、删除、修改系统信息的权限）；User用户为普通用户，只能对系统信息浏览。2.2模块的建立根据本系统的需求，结合实际系统管理情况，本模块应作如下的细化：（1）用户登录界面在安装好本系统后，首次使用时利用系统初始设置的用户名和密码登录，即后进入系统用户管理窗体，后可添加，删除，修改用户。登陆界面如图所示：图2-1登陆界面（2）添加新用户因为企业信息管理的工作量较大，因此需要参与的各层管理人员也会相应的增加，所以我专门增加了一些管理人员，以适应企业管理的需求，通过点击操作界面上的“系统维护”菜单中的“系统用户管理”，就可以进入下图的界面，从而实现对用户的添加，删除，修改操作。河南理工大学本科毕业设计（论文）82.3模块的整体流程图2-2式模块整体流程2.4数据库的设计本次设计的系统使用的是Access2000作为数据库管理系统，在Access中，新建一个数据库，将其命名为“HR.mdb”，在新建的数据库中建立一个名为SystemUser的表，表中用户名为关键字，唯一标识出表中的记录。其字段结构如表3-1所示：表2-1用户管理表（Admin）字段名字段说明类型宽度备注用户名称管理员名文本10主关键字用户权限管理员权限文本8不能为空密码管理员密码文本8不能为空2.5程序的实现2.5.1操作方法当用户以Administrator用户登录窗体后，点击“系统维护”菜单中的“系统用户管理”项后，则出现如图2-3所示的“系统用户管理”窗体。登录系统通过验证系统管理模块主窗体添加新用户删除用户修改用户重新登录河南理工大学本科毕业设计（论文）9图2-3系统用户管理界面（1）添加系统用户：点击添加按钮，输入相应的用户名称，用户权限和用户口令（最好不少于6位），再点击保存即可；（2）删除系统用户：在列表中选择要删除的用户，之后再点击删除索按钮即可；（3）修改系统用户：再列表中选择要修改的用户，然后点击图片，修改用户信息，最后点击保存即可；2.5.2代码的实现（1）添加用户PrivateSubcmdAdd_Click()txtName.Enabled=TruetxtPassword.Enabled=TruecmbPermission.Enabled=TruecmdSave.Enabled=TrueCallClearInfoEndSubPrivateSubcmdSave_Click()IftxtName.Text=ThenMsgBox用户名不能为空,请输入用户名.,vbInformation+vbOKOnly,信息不完整txtName.SetFocusExitSubEndIfIftxtPassword.Text=Then河南理工大学本科毕业设计（论文）10MsgBox用户口令不能为空,请输入用口令.,vbInformation+vbOKOnly,信息不完整txtPassword.SetFocusExitSubEndIfIfLen(Trim(txtPassword.Text))6ThenIfMsgBox(用户口令长度小于6位,建议使用长度大于6位的口令!&vbCrLf&是:修改/否:不修改,vbInformation+vbYesNo,安全提示)=vbYesThentxtPassword.Text=txtPassword.SetFocusExitSubEndIfEndIfIfcmbPermission.Text=ThenMsgBox用户权限不能为空,请输入用户权限.,vbInformation+vbOKOnly,信息不完整cmbPermission.SetFocusExitSubEndIfSetUser=NothingUser.UserName=Trim(txtName.Text)User.UserPassword=Trim(txtPassword.Text)User.UserPermission=Trim(cmbPermission.Text)IfUsers.AddUser(User)=TrueThenCallClearInfoMsgBox添加系统用户成功!,vbInformation+vbOKOnly,成功提示ElseCallClearInfoMsgBox添加系统用户失败!,vbCritical+vbOKOnly,错误提示河南理工大学本科毕业设计（论文）11EndIfSetsubitem=lvwMain.ListItems.Add(,K_&User.UserName,User.UserName)subitem.ListSubItems.Add,,User.UserPermissionsubitem.ListSubItems.Add,,User.UserPasswordcmdSave.Enabled=FalsetxtName.Enabled=FalsetxtPassword.Enabled=FalsecmbPermission.Enabled=FalseEndSub（2）删除用户PrivateSubcmdDelete_Click()lvwMain.ListItems.RemovelvwMain.SelectedItem.KeyUsers.DeleteUserUser.UserNameC