企业人事管理系统论文完整版由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“企业人事管理论文”。
摘要
人事管理是企业管理的一个重要分支。随着当今企业人员数量不断增加、分工的不断细化、各行业间联系的不断密切。对人事管理的要求也不断提高，实现人事管理自动化，无疑将带来高效率的企业管理。人员是企业生存的主要元素，人员的增减、变动将直接影响到企业的整体运作，企业每天都要涉及到人员工问题。企业员工越多、分工越细、联系越密，所要做的统计工作就越多，人事管理的难度就越大。最初的人事管理采用人工方式，记录量大，易出错。人事管理系统就是用电脑代替大量的人工记录，完成众多信息的处理，方便、准确度高，且可以长期保存。人事管理系统，为个人提供资料查询服务，为企业提供工员分工等服务。旧式的用纸介材料来记录的人工管理方式已不合适现代企业公司的发展了，实现人事管理的系统化、规范化、自动化，将成为现代公司管理人员的首选。本系统基本上能满足现代企业人事管理的需求，人事管理系统中使用各种表格，保存相关的人员信息，方便查询、浏览、修改等操作。工资管理系统的前提是一定要有员工的在职作为基础，在使用的时候一定要保证员工在职的人事信息数据库。
Abstract
It is an important content of company's management that the Enterprise personnel management system.Increasing with nowadays enterprise's personnel's quantity , the personnel managements of enterprises become more and more complicated too, if it can be realized the automation of management of the personnel ,it will undoubtedly bring to administrative department of enterprises very big and convenient.The fund is the main element that enterprises survived, the flow of the fund influences of the whole operation of enterprises ,The personnel of enterprise staff's is an important component of enterprise's fund management, because each of enterprise is grant iue of personnel ,staff of enterprise , to involve to want month.Enterprise staff many number have, statistical work of? personnel more, personnel heavy to grant degree of difficulty.Initial personnel calculation and giving away is artificial way to deal with.In doing heavy work , the wrong rising thereupon of probability too appears.The Enterprise personnel administrative system, offers personnel inquiry service for individual and enterprise personnel calculation.The traditional paper has lain between the development of the already improper modern enterprise like corporation of information management of data of the materials and realizes personnel systematization ,standardization , automation of management ,so it becomes modern company first-selection to manage personnel.This system can meet modern enterprise's personnel management's demands basically, use various kinds of forms in the modern personnel administrative system, keep relevant personnel information, convenient to is it operate it to inquire about, browse through, fix etc.Personnel prerequisite of administrative system will certainly have the employee's attendance information as the foundation, because the system to use staff attendance information is it calculate personnel of staff to come, must guarantee the staff's personnel information database while using, so this system is chartered Draw together some information proceing of the personnel(the staff's attendance, settlement of working time ,etc.)
第一章
前言
1.1 应用背景
随着时代的进步，企业也逐渐变得庞大起来；当今社会人员流动越来越频繁，使得企业人事管理工作也变的越来越复杂。如何管理好企业员工的信息，成为企业管理中一个大的问题。如果能实现企业人事管理的自动化，无疑将给公司管理部门带来很大的方便。
最初的人事管理是靠人工完成的，当企业规模教小的时候，人力可以完成，随着企业规模的逐渐增大，企业员工人数越来越多，依然维持着人力进行的人事管理，必然回造成工作效率低，工作错误增高的问题。
人事管理系统就是把分散的企事业单位的职工信息实行统一、集中、规范的收集和管理，建立分类编号管理，电脑存储查询以及防火、防潮、防蛀、防盗等现代化、专业化的管理系统，为企事业单位和职工解除后顾之忧。
人事管理系统就是为企事业单位提供信息咨询、信息检索、信息存取等服务
第二章 需求分析
2.1 主要功能
开发企业人事管理系统的总体任务是实现企业人事管理的系统化和自动化。
员工管理为企业单位和个人提供信息咨询、档案检索、档案存取、工资调整、依据档案出具各类证明材料等服务；为企业单位和个人提供档案的收集、整理、保管服务。本系统的主要功能如下：
员工信息管理部分：有关企业员工各种信息的输入，包括员工的姓名、性别、出生年月、工资、个人简历等。这一部分要完成的主要功能是员工信息的添加、修改、删除、查询。 部门管理部分：包括部门名称、部门编号。这一部分完成的主要功能是部门信息的添加、修改、删除、查询等。
打印报表部分：实现员工信息的打印。
系统维护部分：增添新用户、用户权限设置、修改密码等。
统计部门工资部分：统计各个部门工资，用柱状图对比各部门的工资和。
用户分为管理员用户和普通用户，添加新用户时可以为不同的用户赋予不同的权限。2.2项目开发环境 2.2.1硬件环境
586或以上的微机一台（含打印机）2.2.2 软件环境
1． 操作系统：windows 9x,NT,2000,XP 2． 开发工具: visual basic6.0 3． 数据库 Acce2000
第三章 总体设计
3.1 设计原则
安全性、可靠性、容错性
安全可靠是一个应用系统的灵魂，一个极小的差错，可能会造成整个系统的瘫痪，甚至可能造成企业的巨大损失。因此系统设计必需把安全性、可靠性、容错性放在首位。开放性、标准化
从发展的眼光看，一个综合的计算机管理系统要实现市场、决策、管理、设计、制造等各环节的信息共享，完成不同制造厂商的设备和计算机软硬件资源的数据交换。建立一个由开放式，标准化的异构式网络系统，开放式标准化的异构式数据库组成的平台来满足当前的需求，同时又能适应今后新技术的引进、开发和推广。
实用、灵活、易于扩展
系统设计尽量简单，灵活易于管理，有利于将来需要时进行功能改进和新技术引入。先进性、成熟性
我们所处的时代是信息时代，通信和计算机技术的发展日新月异。因而，应用系统的建设不仅应适应新技术发展方向，保证其先进性，同时兼顾成熟的计算机技术、保证系统的可靠。
3.2 模块的划分
综合分析应用程序的功能以及使用的便捷性、实用性。可以将整个程序划分为：用户登陆窗口、员工信息管理窗口、部门信息管理窗口、部门工资统计窗口、员工信息打印窗口、增加新用户六个窗口。
3.3系统结构框图
3.4 系统功能管理设计
3.4.1 信息管理
3.4.2 信息查询
3.4.3信息打印
3.4.4 系统维护
第四章 详细设计
4.1数据库设计
数据库是信息管理系统的后台，储存着所有的信息，在信息管理系统中有着很重要的作用。数据库设计的好与坏，直接影响到这个系统的运行效率。良好的数据库设计，可以提高数据信息的存储效率，保证数据信息的完整性和一致性。同是，一个合理的数据库结构有利与程序的实现。
Acce的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于Excel的电子表格，可以使数据库一目了然。另外，Acce允许创建自定义报表用于打印或输出数据库中的信息。Acce也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Acce是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Acce作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能，同时对于小型的数据交换来说使用非常方便。
本应用系统选作为后台数据库。
4.2 实现数据库
启动Acce2000，创建一个新的数据库，命名为mydb.mdb,保存在要存放在这个系统的所有工程的文件夹中。
使用设计器创建这个系统需要的所有表格： 表 login 存储用户信息以及对各个模块的权限 表employee存储员工信息。 表department存储部门信息
创建表 login 存储用户信息以及对各个模块的权限，模块信息分别用one、two、three、four、five、six代替，“是“代表拥有此权限，“否”代表无。如下图：
表employee存储员工信息
表department存储部门信息
4.3 界面设计 用户登录界面：
选择操作，用于应用系统的总体管理：
员工信息管理界面设计：
第五章 编码调试
5.1登录代码：判断用户名密码是否为空，再在数据库中查找是否存在该用户
代码：
If Text1.Text = “” Then MsgBox “请输入用户名” Exit Sub End If If Text2.Text = “” Then MsgBox “请输入密码” Exit Sub End If Adodc1.RecordSource = “select * from login where username='” & Text1.Text & “ '” Adodc1.Refresh If Adodc1.Recordset.EOF Then MsgBox “用户名错误，请从新输入！” Text1.SetFocus Exit Sub End If If Not Adodc1.Recordset.Fields(1)= Text2.Text Then MsgBox “密码错误，请从新输入！” Text2.SetFocus Exit Sub End If 选择操作.Show Me.Hide End Sub 5.2 由于对不同的用户有不同的权限，首先应该判断该用户所拥有的权限，是否允许对窗口作出操作。权限判断代码：
Private Sub dybm_Click()Adodc1.RecordSource = “select * from login where username='” & 登陆界面.Text1.Text & “ '” Adodc1.Refresh If Adodc1.Recordset.Fields(7)= “否” Then MsgBox “你没有该权限！谢谢” Exit Sub End If 统计部门工资.Show End Sub
Private Sub dyyg_Click()打印报表.Show End Sub
Private Sub exit_Click()End End Sub
Private Sub glbm_Click()Adodc1.RecordSource = “select * from login where username='” & 登陆界面.Text1.Text & “ '” Adodc1.Refresh If Adodc1.Recordset.Fields(4)= “否” Then MsgBox “你没有该权限！谢谢” Exit Sub End If 部门信息管理.Show End Sub
Private Sub glyg_Click()Adodc1.RecordSource = “select * from login where username='” & 登陆界面.Text1.Text & “ '” Adodc1.Refresh If Adodc1.Recordset.Fields(2)= “否” Then MsgBox “你没有该权限！谢谢” Exit Sub End If 员工信息管理.Show End Sub 5.3 查询有关的代码：
部门信息查询：实现查找该部门的所有员工： Public Sub showdata()Dim i As Integer Adodc1.RecordSource = “select * from employee where depid=” & Text1.Text
Adodc1.Refresh If Not Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveFirst MSF.TextMatrix(1, 0)= Adodc1.Recordset.Fields(0)MSF.TextMatrix(1, 1)= Adodc1.Recordset.Fields(1)MSF.TextMatrix(1, 2)= Adodc1.Recordset.Fields(2)MSF.TextMatrix(1, 3)= Adodc1.Recordset.Fields(3)MSF.TextMatrix(1, 4)= Adodc1.Recordset.Fields(4)MSF.TextMatrix(1, 5)= Adodc1.Recordset.Fields(5)MSF.TextMatrix(1, 6)= Adodc1.Recordset.Fields(6)Adodc1.Recordset.MoveNext For i = 2 To Adodc1.Recordset.RecordCount With Adodc1.Recordset MSF.AddItem.Fields(0)& vbTab &.Fields(1)& vbTab &.Fields(2)& vbTab &.Fields(3)& vbTab &.Fields(4)& vbTab &.Fields(5)& vbTab &.Fields(6).MoveNext End With Next i Else MsgBox “此部门不存在, 请核对后再输入” End If Adodc1.Recordset.Close End Sub
5.3打印代码
实现在Excel窗口中打印员工信息： Private Sub cmdPrint_Click()Dim fileobj As New f Dim xlapp As Excel.Application Dim xlbook As Workbook Dim xlsheet As Worksheet Dim i, j, k As Integer If fileobj.FileExists(App.Path & “temp.xls”)Then
fileobj.DeleteFile App.Path & “temp.xls”, True End If
Set xlapp = CreateObject(“excel.application”)xlapp.Visible = False Set xlbook = xlapp.Workbooks.Add Set xlsheet = xlbook.Worksheets(1)For i = 1 To MSF1.Rows
For j = 1 To MSF1.Cols
xlsheet.Cells(i, j).Value = MSF1.TextMatrix(i1)
Next j Next i
xlbook.SaveAs App.Path & “temp.xls” xlbook.PrintOut xlapp.Quit End Sub 5.4 统计部门工资，用柱状图显示，实现各个部门工资和的快速比较。Private Sub Form_Load()Dim i, adds, rw As Integer showtitle MSC.chartType = VtChChartType2dBar Adodc1.RecordSource = “select distinct depid from employee” Adodc1.Refresh If Not Adodc1.Recordset.EOF Then MSC.RowCount = Adodc1.Recordset.RecordCount MSC.ColumnCount = 1 End If rw = 1 For i = 1 To Adodc1.Recordset.RecordCount adds = 0 Adodc2.RecordSource
=
“select
*
from
employee
where
depid=”
& Adodc1.Recordset.Fields(“depid”)Adodc2.Refresh While Not Adodc2.Recordset.EOF
adds = adds + Adodc2.Recordset.Fields(“salary”)
Adodc2.Recordset.MoveNext Wend MSC.Row = rw MSC.RowLabel = Adodc1.Recordset.Fields(“depid”)MSC.Data = adds If i = 1 Then MSF.TextMatrix(1, 0)= Adodc1.Recordset.Fields(“depid”)MSF.TextMatrix(1, 1)= adds Else MSF.AddItem Adodc1.Recordset.Fields(“depid”)& vbTab & adds End If rw = rw + 1 Adodc1.Recordset.MoveNext Next i End Sub 结束语 致谢 参考文献
企业人事管理系统 作者来源发布时间 2005-09-11 浏览次数 4649 字体 大 中 小内容摘要 企业人事管理是企业管理中的一个重要内容，随着时代的进步，企业也逐渐变得庞大起来。如......
课程设计任务书1、项目 名 称：企业人事管理系统专业：____________设计人员姓名： _2、课程设计内容与要求（1）掌握powerdesigner数据库建模方法。（2）掌握数据库应用系统开发的方法。（3......
摘 要人事管理系统是一个企业单位不可缺少的部分,它的内容对于企业的决策者和管理者来说都至关重要,所以人事管理系统应该能够为用户提供充足的信息和快捷的查询手段。使其......
基于.NET的企业人事管理系统摘要随着计算机应用的普及，推动企业计算机管理现代化的时机已经到来，采取信息化管理是企业在新经济时代的必然趋势，也是企业管理者的迫切需求。企业......
企业人事管理系统业务分析：数据分析：用户信息表（用户ID，姓名，性别。。。。。。。。。。。。。。。。。。。。用户类型，部门ID） 用户类型？(用户类型ID, 用户类型)01 系统管理02 普通......
