公司人力资源管理系统

公司人力资源管理系统公司人力资源管理系统摘要随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现人力资源的管理势在必行。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，完成人力资源管理的全过程，包括新员工加入、老员工的转出、职位等的变动引起职工信息的修改、员工信息查询、删除等人力资源管理工作。经过实际使用证明，本文所设计的人力资源管理系统可以满足公司人力资源管理方面的需要。系统开发采用Microsoft公司的Visual Basic 6.0，利用其强大的可视化界面功能及对数据库的支持，先构造一个原型，逐步增加功能，最终满足需求。系统中大量采用SQL查询语句，界面友好，功能较强。不足的地方是采用Microsoft Access系统作为数据库，速度较慢。另外因为是单机版本，数据不能共享，在以后改进的版本中应考虑采用SQL SERVER作为数据库，解决访问速度及数据共享的问题。关键字: 人力资源、设计、系统、数据库前言正确认识网络经济，是我们讨论网络经济对当代社会、经济、政治产生何种影响的基础，是探讨网络经济与中国企业发展之间的关系的前提。对现代企业而言，网络经济的发展，特别是作为网络经济核心内容之一的电子商务的发展，意味着企业在战略思想、管理理念、运行方式、组织结构等各个方面的革命性变革。正是从这个意义上，我们说网络经济对现代企业的生存与发展，既是一种机遇，也是一种挑战。可以这样断言，网络经济的兴起已经对现代企业的研发、生产、经营和管理的各个环节产生了重大的影响。更为重要的是，经济全球化背景下网络经济的进一步发展完全有可能改变现代企业的基本商业运作模式，动摇在工业时代业已成为经典的战略思想和卓有成效的管理方法。对中国企业而言，首先必须意识到，信息化与电子商务已经如此紧迫地逼到了各行业企业的面前。其次，中国企业应对网络经济，既要主动地抓住机遇积极融入，又要稳妥地防范风险和躲避陷阱。 人力资源管理系统是一个企业单位不可缺少的部分，是适应现代企业制度，推动企业人力资源管理走向科学化、规范化、自动化的必要条件。它的内容对于企业的决策者和管理者来说都至关重要，所以人力资源管理系统应该能够为用户提供充足的信息和快捷的查询手段，以帮助企业领导了解企业现有的人力资源状况。但一直以来人们使用传统人工的方式管理文件档案，这种管理方法存在许多缺点，如：效率低、保密性差、时间一长就会产生大量的文件和数据积压，这对于查找、更新和维护都带来了不少的困难。因此，为了加快公司的信息化步伐，提高公司的管理水平以在激烈的社会竞争中立于不败之地，建设和完善人力资源管理系统已变得十分必要和迫切。 在四个多月的毕业设计过程中，通过不断的学习，搜索以及指导老师的帮助，我基本完成了该系统的设计，同时也学习和升华了专业知识，使自己的能力得到了进一步的提高。目录第一章 序言1.1 系统开发环境41.2 软件工程项目的意义4第二章系统分析2.1 系统需求分析 52.2 系统功能分析 52.3 系统功能分析结果 52.4 我在设计过程中的启发 6第三章 系统数据库的建立和各窗体的整体布局3.1 确定数据库和表 73.2 系统各窗体的整体布局 103.3 本次开发的结束条件 10第四章 系统详细设计4.1 登录界面模块114.2 主界面模块124.3 用户信息模块134.4 员工基本信息模块144.5 修改员工基本信息模块154.6 查询员工基本信息模块16 4.7 添加考勤信息模块 164.8 调动信息模块17第五章 调试并生成可执行文件 19第六章 结束语 20致 谢 21参考文献 22第一章 序言1.1系统开发的环境本次系统开发是通过Visual Basic 6.0为前台进行设计， Access 2000为后台存储系统数据。Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，Visual Basic都是世界上使用人数最多的语言,它源自于Basic编程语言。Visual Basic拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAORDO、ADO连接数据库，或者轻松的创建ActiveX控件。Visual Basic提供了可视化设计工具，开发人员不必为界面设计而编写大量程序代码，Visual Basic可以自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。Visual Basic 6.0集面向对象数据库技术、分布式应用技术、多媒体技术于一身,是目前最有代表性的数据库开发工具，几乎已发展成为客户/服务器前端工具的标准。Access2000是Office2000中文版的组件之一。与以前的Access版本相比，Access2000不仅界面更加清晰，功能也有了加强，尤其是网络功能有明显的提高，使Access2000与互联网的结合更加紧密。Access2000是一个中、小型数据库管理系统，使用方便、功能强大，与其它数据库有良好的接口。通过Access2000功能强大的工具，用户可以方便的使用和管理数据库，如创建和编辑数据表、设计和使用各种查询工具进行查询操作、设计和使用窗体、制作和打印报表、设计和使用宏、设计和使用Web页等。目前，数据处理技术已深入到我们工作和生活的方方面面，而数据库技术是数据处理不可缺少的手段。随着数据库技术的发展，面向对象的数据库、分布式数据库、多媒体数据库、数据库开发工具的研究，这些技术的发展使应用软件的开发速度更快、成本更低、质量更好、功能更强。1.2 该软件工程项目的意义公司人力资源系统的开发是指对公司人力资源进行发掘,培育和强化。该系统的开发有利于我们对公司员工进行系统的管理，通过员工基本信息、考勤信息以及调动信息的添加、修改、查询、修改来提高整个公司的质量。该系统的的开发大大的方便了对公司的管理，同时也为以后的人力资源发展提供了良好的空间，环境和服务，也提高了人力资源的质量随着我国信息产业化的飞速发展，社会对管理软硬件的要求日益提高,而人力资源管理是企业管理中的一个重要内容，随着时代的进步，企业也逐渐变得庞大起来。如何管理好企业内部员工的信息，成为企业管理中的一个大问题。在这种情况下，开发一个人力资源管理系统就显得非常必要。不同的企业具有不同的人事、人力资源管理制度，这就决定了不同的企业需要不同的人力资源管理系统。第二章 系统分析2.1 系统需求分析对系统的需求分析，重点在于了解用户对象以及用户对象工作或学习需求，本系统主要是实现对数据的添加、修改、查询、删除等功能。根据这些目的我们便可以对系统信息进行进一步采集，开发这个系统的目的就是帮助人力资源部门提高工作效率，实现人事信息管理的系统化、规范化和自动化。当然也要满足系统的需求：（1） 由于该系统的使用要有数据安全性，要求有较好的用户权限管理。（2） 原始数据的处理，简单方便。（3） 方便的数据查询，支持多条件查询。（4） 数据主要计算自动完成，尽量减少人工干预2.2 系统功能分析1、系统添加用户：对用户用户名和密码进行添加删除用户：对所选用户进行删除2、员工基本信息 添加员工信息：管理员可以添加员工的基本信息，包括姓名、性别、籍贯、年龄、E-mail、学历、进入本单位时间以及现在所在部门等。 修改员工信息：选择任意一个员工，可以对其基本信息进行修改。 查询员工信息：根据员工的编号、姓名或者进入单位时间查询员工基本信息,也可以针对查询结果进行修改和删除操作。 删除员工信息：直接从列表中选中需要删除的员工信息，然后进行删除操作，也可以先查询需要删除的员工信息，然后再删除。 3、员工考勤信息添加考勤信息：主要分为上下班信息和其他考勤信息。上下班信息主要记录每个员工每天上下班的时间，其他考勤信息则包含有请假、加班、出差信息。修改考勤信息：当考勤信息出现错误需要修改的时候，可以从这里修改相应的记录。 查询考勤信息：根据员工编号或者时间进行查询，得到所有的考勤信息，包括上下班、请假、加班和出差信息，但是不能够对信息进行任何操作。 删除考勤信息：分为删除上下班信息和删除其他考勤信息。 设置上下班时间：设置单位上下班时间。 4、员工调动信息添加调动信息：添加员工的原有部门、原有职务、新部门、新职务等信息。修改调动信息：修改相应的员工调动信息。查询调动信息：查询某个员工的调动信息或者某段时间内事业内部的调动。删除调动信息：删除不需要的信息。2.3 系统功能分析结果 根据需求分析和功能分析，整理出系统的流程图。该人力资源管理系统的基本流程如图2-1所示：删除考勤信息设置上下班时间删除调动信息查询调动信息修改调动信息添加调动信息查询考勤信息修改上下班信息添加考勤信息删除员工信息添加员工信息查询员工信息修改员工信息添加用户删除用户系统员工基本信息员工考勤信息员工调动信息公司人力资源管理系统图2-1此图完整的描绘了该系统整个结构,根据此图可以对整个系统进行具体的操作和运行。当然,不同的开发方式有不同的长处和短处，需要根据使用单位的实际情况进行选择，也可以综合使用使用各种开发方式。2.4 我在设计过程中的启发 在设计过程中，我发现对一个软件的开发要从根本上解决实际问题，要让系统做的完善而又经济，从对员工信息的修改到删除都要考虑到一些具有实际性的问题，本次设计是我对大学三年来学习的专业知识的总结，在此设计前我也做了充分的准备，查阅了许多专业方面的知识，对Visual Basic 进行了系统的整理和复习，通过本次的设计我对Access数据库也有进一步的了解，在学习的过程中我总结了自己的不足，也积累了一定知识，拓展了自己的思维，对我以后步入社会实践有很大的帮助。第三章 系统数据库的建立和各窗体的整体布局3.1 确定数据库和表3.1.1数据库的定义 数据库存储着所有的信息，在信息管理系统中有着很重要的地位。数据库设计的好与坏，直接影响到这个系统的运行效率。良好的数据库设计，可以提高数据信息的存储效率，保证数据信息的完整性和一致性。随着计算机技术与网络通信技术的发展，数据库技术已成为信息社会中对大量数据进行组织与管理的重要技术手段及软件技术，是网络信息化管理系统的基础。它不仅有完整的理论基础，而且随着硬件技术与软件技术的飞快发展，它的应用也越来越广泛。在确定数据库和表的名称的时候也有一定的注意点，我们开发一个系统必然要会连接许多的数据，这时数据库的名称就非常重要，我们对相应的数据取与它有关的英文名，这样方便我们以后去查阅，对表的名称的确定也是如此，在出现多个表的连接的时候很难区分哪个表里面存放什么样的内容，因此，要使表的内容简单而又明了是至关重要的。良好的数据库设计，可以提高数据信息的存储效率，保证数据信息的完整性和一直性，一个合理的数据库结构也有利于程序的实现。在该系统中可以把数据库的名字取为Person,将各个表的名字取的与其中的存入的数据相对应，例如将用户表取名UserInfo, 员工基本信息取名为StuffInfo等等，这些名称都能让用户使用时对系统的查询很方便，自己设计起来也很简单。3.1.2 数据库设计 建立E-R图: 根据实体集设计E-R图。E-R图中用矩形表示实体；实体的属性用椭圆表示，并用无向边把实体与属性联系起来；实体之间的关系用菱形表示，用无向边把菱形与有关实体连接起来。用户表用户名密码用户E-R图员工基本信息编号性别年龄籍贯专业职务部门住址进入公司时间姓名员工基本信息E-R图员工考勤信息编号当前日期上班时间下班时间迟到次数姓名早退次数员工考勤信息E-R图调动信息编号原部门原职务新职务备注调入时间调出时间姓名新部门员工调动信息E-R图根据上面的E-R图建立“Person”数据库在Person.mdb数据库中有9个表：UserInfo，StuffInfo，AttendanceInfo，LeaveInfo，OvertimeInfo，TimeSetting，ErrandInfo，AlterationInfo，PersonNum在设计数据库结构时，应考虑各类数据之间的关系。同时需要考虑各数据的单一性，注意设置主键。在填写数据记录的时候不能随便填写资料，要与前面的表中记录相对应。UserInfo字段名数据类型可否为空说明User ID 文本Null用户名称UserPWD文本Null用户密码StuffInfo字段名数据类型可否为空说明SID文本Not Null员工编号SName文本Null员工姓名SGender文本Null性别SPlace文本Null籍贯SAge数字Null年龄SBirthday日期/时间Null生日SDegree文本Null学历SSpecial文本Null专业SAddress文本Null住址SCode文本Null邮编STel文本Null电话SEmail文本NullEmailSWorkTime日期/时间Null参加工作时间SInTime日期/时间Null进入公司时间SDept文本Null部门SPayTime日期/时间Null起薪时间SPosition文本Null职务SRemark文本Null备注AttendanceInfo字段名数据类型可否为空说明ID自动编号Not Null记录编号AStuffID文本Null员工编号AStuffName文本Null员工姓名ADate日期/时间Null当前日期AFlag文本Null出入标志AInTime日期/时间Null上班时间AOutTime日期/时间Null下班时间ALate数字Null迟到次数AEarly数字Null早退次数AlterationInfo字段名数据类型可否为空说明ID自动编号Not Null记录编号AID文本Null员工编号AName文本Null员工姓名AOldDept文本Null原部门ANewDept文本Null新部门AOldPosition文本Null原职务ANewPosition文本Null新职务AOutTime日期/时间Null调出时间AInTime日期/时间Null调入时间ARemark文本Null备注3.2 系统各窗体的整体布局3.2.1 窗体的控件的排版 在系统设计时对窗体的布局也相当有考究，为了能让客户满意并接受，我们应该要让界面布置的整洁而大方。 例如在布置具有表格的窗体时，要让表格占满窗口，这样才能让用户看到系统整洁的一面，才让人有焕然一新的感觉，对标签框和文本框的排列上也要有一定立体感，在出现多个进行排放的时候，要使用格式里的各个菜单，使整个界面排放整齐。 当然也可以为窗体添加合适的背景来吸引用户的注意，根据设计的内容来选择相应的图片。3.3 本次开发的结束条件本次开发的目的就是对公司人力资源的系统采集，通过该系统来提高工作质量，并对该公司员工的基本信息，出勤信息，调动信息进行添加、修改、查询、删除等操作。第四章 系统详细设计4.1 登录界面模块4.1.1 登录界面设计 在编写程序之前，我们还要对界面进行一定的审查，对各个控件的属性进行一定的修改。 在该窗体中要将用户名称的文本框名称改为UserName，用户密码的文本框名称改为PassWord，用户密码的Passwordchar属性改为”*”，确定按钮的名称改为cmdOK，取消按钮的名称改为cmdCancel。单击“确定”按钮后，查询“UserInfo”表中是否有相符的用户名和密码，若不符，提示重新输入，焦点返回文本框。如果3次输入错误，则退出系统。若输入正确，将用户名和用户权限保存在全局变量中，显示系统主窗体，卸载本窗体。单击“取消”按钮，退出系统。 界面如图3-1所示：图4-1确定按钮部分代码如下：1)判断用户名称是否为空：If Trim(UserName.Text = ) ThenMsgBox 没有输入用户名称，请重新输入！, vbOKOnly + vbExclamation, 警告 UserName.SetFocus2)查询用户：SQL = select * from UserInfo where UserID= & UserName.Text & Set rs = TransactSQL(SQL) If iflag = 1 Then If rs.EOF = True Then MsgBox 没有这个用户，请重新输入！, vbOKOnly + vbExclamation, 警告 UserName.SetFocus 3) 判断输入次数： pwdCount = pwdCount + 1 4.1.2 在登录界面程序编写过程的疑难问题解决 登录界面是系统的首要，在起初进入系统的内部时要保证系统的安全性，以防别人对系统进行破解，因此在设置时，当用户三次登录密码错误，自动退出系统 在程序编写过程中主要是对密码输入判断出现了不少的问题，代码如下：If pwdCount = 3 Then Unload Me Exit Sub4.2主界面模块4.2.1主界面程序设计 通过主窗体的各个菜单来进入系统、员工基本信息、员工考勤信息、员工调动信息等窗体，实现添加、修改、查询、删除等功能。界面如图4-2所示：图4-2当进入修改员工信息界面时可以在员工基本信息列表中进行修改,也可以通过查询列表:来修改员工信息。代码如下：frmCheckStuff.topic = 选择修改条件 frmCheckStuff.Caption = 修改员工基本信息 SQL = select * from StuffInfo order by SID frmResult.createList (SQL) frmResult.Show frmResult.ZOrder 0 frmCheckStuff.Show frmCheckStuff.ZOrder 04.2.2模块的建立 在模块里建立一些公共变量可以方便在其他任意窗体里使用，这样使编写程序变的方便快捷。创建连接:Set con = New ADODB.Connection Set rs = New ADODB.Recordset 2)执行命令:con.Execute SQL 4.2.3 模块建立的优点 模块是存放全局变量公共函数的申明、函数、自定义函数等,用户可以在模块所在的工程中调用该模块的全局变量，函数等，注意只能在同一个工程中调用他们,通过此模块方便了系统的生成。整个工程项目公用的函数、过程和全局变量等，这样可以极大地提高代码的效率。由于系统中各个功能模块都将频繁使用数据库中的各种数据，因此需要一个公共的数据操作函数，用以执行各种SQL语句。4.3用户信息模块4.3.1 添加用户界面的设计 该窗体主要是实现用户的添加功能，窗体上的文本框分别用于输入用户名和密码，其中用户密码和确认密码的文本框的Password属性为“*”。单击“确认”按钮后，查询数据库的“UserInfo”表中是否有相同的用户名和密码，如果有提示该用户已存在，重新输入，焦点返回新用户名文本框；如果无同名用户，将用户名和密码添加到数据库的“用户”表中，用MsgBox语句提示添加用户成功。单击“退出”按钮，卸载本窗体。界面如下图4-3所示：图4-3 在设计代码时首先要判断用户名和密码不能为空，也要判断密码是否相同和判断该用户是否已经存在。1)判断用户名称是否为空： If Trim(UserName.Text) = Then MsgBox 请输入用户名称!, vbOKOnly + vbExclamation, 警告 Exit Sub UserName.SetFocus Else SQL = select * from UserInfo where UserID= & UserName & Set rs = TransactSQL(SQL)2)判断是否已经存在用户： If rs.EOF = False Then MsgBox 这个用户已经存在！请重新输入用户名称！, vbOKOnly + vbExclamation, 警告 UserName.SetFocus UserName.Text = PassWord.Text = confirmPWD.Text = Exit Sub3)判断两次密码是否相同：If Trim(PassWord.Text) Trim(confirmPWD.Text) Then MsgBox 两次输入的密码不一致，请重新输入密码！, vbOKOnly + vbExclamation, 警告PassWord.Text = confirmPWD.Text = PassWord.SetFocus 4)添加用户： SQL = insert into UserInfo (UserID,UserPWD) values( & UserName SQL = SQL & , & PassWord & ) TransactSQL (SQL)MsgBox 添加成功！, vbOKOnly + vbExclamation, 添加结果 4.4员工基本信息模块4.4.1 添加员工基本信息 首先对各个控件的相关属性进行修改和调整，通过单击“确定”按钮后，查询数据库“StuffInfo”表中是否有相同的员工信息，如果有，提示该员工记录已存在，重新输入，焦点返回对应的文本框，如果无相同记录添加到数据库的“StuffInfo”表中，卸载本窗体。 界面如图4-4所示：图4-41)首先要判断该员工信息是否已经添加：If rs.EOF = False Then MsgBox 已经存在这个员工的记录！, vbOKOnly + vbExclamation, 警告！ Me.StuffName.SetFocus Me.StuffName.SelStart = 0 rs.CloseElse Call addNewRecordMsgBox 记录已经成功添加！, vbOKOnly + vbExclamation, 添加结果！2)显示信息列表： SQL = select * from StuffInfo frmResult.createList (SQL) frmResult.Show frmResult.ZOrder 0 Me.ZOrder 0 4.5 修改员工基本信息模块4.5.1 修改员工基本信息设计通过MSFlexGrid显示员工信息列表，再对具体的信息进行修改,MSFlexGrid数据网格控件可以实现多个记录集数据显示，但是它的缺点是既不可以调整宽度，也不可以修改。显示弹出式菜单的方法是PopupMenu方法，它的格式是对象. PopupMenu菜单名，标志，X，Y。标志是指定弹出式菜单的行为。当标志为0时，弹出式菜单中的项只能对鼠标左键起反应；当标志为1时，弹出式菜单中的项对鼠标左键和右键都起反应；当标志为2时， PopupMenu方法只能用在MouseDown事件过程中。界面如图4-5所示:图4-5在主界面中将查询界面的标题改为修改员工信息，通过查询界面进行修改员工信息。代码如下所示:If Trim(Me.SID) = And Trim(Me.SName) = And TimeCheck.Value vbChecked Then MsgBox 请选择查询的条件！, vbOKOnly + vbExclamation, 警告！ Else Call CombineDate Call setSQL frmResult.createList (query) frmResult.Show Unload Me End If4.6 查询员工基本信息模块4.6.1查询界面的设计 根据复选框的选中状态判断查询条件是单一查询还是复合查询，然后根据文本框和组合框中的内容来查询要查询的信息。1)设置年If Not IsNull(rs.Fields(0) Then Me.FromYear.AddItem Left(rs(0), 4) Me.ToYear.AddItem Left(rs(0), 4) End If rs.MoveNext Wend rs.Close Me.FromYear.ListIndex = 0 Me.ToYear.ListIndex = 0End If2)设置月For i = 1 To 12 Me.FromMonth.AddItem i Me.ToMonth.AddItem i Next i Me.FromMonth.ListIndex = 0 Me.ToMonth.ListIndex = 04.7 添加考勤信息模块4.7.1 添加上下班时间设计首先要修改各控件的属性,再通过单击“确定”按钮后，查询数据库“AttendanceInfo”表中是否有相同的员工信息，如果有，提示该考勤记录已存在，重新输入，焦点返回对应的文本框，如果无相同记录添加到数据库的“AttendanceInfo”表中，卸载本窗体。 1)添加上班记录：If Me.InFlag = True Then aflag = 入 If Me.InTime = Or IsDate(Me.InTime) = False Then MsgBox 请输入正确的时间！, vbOKOnly + vbExclamation, 警告! Me.InTime = Me.InTime.SetFocus Else If DateDiff(s, Me.InTime, rsTime(0) 0 Then iearly = 1 End If Call CheckRecord If addflag = False Then Call out_add MsgBox 已经添加下班记录！, vbOKOnly + vbExclamation, 添加结果！4.7.2 设置上下班信息模块 该窗体主要是对员工上班时间和下班时间的添加,通过单击确定按钮，可以将相关记录保存在TimeSetting中。窗体如图4-6所示:图4-6单击确定按钮时,要判断输入的时间的格式是否正确,然后才能进行时间的设置。1)设置时间 rs.AddNew rs.Fields(0) = Me.BeginTime rs.Fields(1) = Me.EndTime rs.Update rs.Close MsgBox 时间已经设置！, vbOKOnly + vbExclamation, 设置结果！4.8调动信息模块 4.8.1删除调动信息模块此窗体主要是通过在DataGrid中右击删除,此信息最终保留到AlterationInfo表中。界面如图4-7所示：图4-71)DataGrid的右击事件： If Button = 2 And Shift = 0 Then PopupMenu popmenu.popmenu3 End If2)为Adodc添加数据记录： Dim strQuery As String strQuery = select * from AlterationInfo order by ID Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= + App.Path + Person.mdb Me.Adodc1.RecordSource = strQuery If strQuery Then Me.Adodc1.RefreshEnd If3)对DataGrid进行数据更新： Set Me.DataGrid1.DataSource = Me.Adodc1.Recordset Me.DataGrid1.Refresh第五章调试并生成可执行文件 在系统即将完成时，要运行整个系统并解决出现的疑难问题，在Visual Basic中常见的错误通常可分为三类：编译错误、属性设置错误、代码的逻辑错误。（1）编译错误：编译错误（又称语法错误）包括语法错误或者结构错误，它是由于不正确构造代码而产生的。例如敲错关键字、遗漏了某些必须的标点符号或使用了全角的标点符号，或在设计时使用了IF语句而没有END IF语句与之对应等。这时，必须单击“确定”按钮，关闭出错提示窗，然后对出错行进行修改。 （2）属性设置错误：设置属性时，