企业工资管理系统的设计与开发-毕业论文.docx

企业工资管理系统的设计与开发摘 要：21世纪是一个信息化的时代，企业只有做好人力资源管理，才能置身于国际大舞台，这就离不开先进的企业工资管理系统。而企业工资管理系统是企业资金管理的一个重要组成部分。本系统是对企业管理的实际需要而开发的企业工资管理系统软件，采用VB.net开发和Access数据库所开发完成的项目。系统开发的总体任务是实现企业工资信息关系的系统化，规范化和自动化。根据数据管理的不同主题的需要，分成了个5模块，分别是用户管理，信息查询，员工管理，奖惩管理，工资管理。整个系统完成的功能为：用户信息的添加、修改、删除；员工信息的查询、添加、修改、删除；奖惩信息的查询、添加、修改、删除；员工工资信息的查询、添加、修改、删除。关 键 词：企业工资管理；VB.net；Access数据库 Wage management system design and developmentAbstract：Twenty-first Century is an era of information technology, enterprises have to do a good job in human resources management, to in the international arena, which is inseparable from the advanced enterprise management system of wages. While the enterprise salary management system in financial management of enterprises is an important part of. The system of enterprise management of the actual needs and development of the enterprise wage management system software, developed using VB.net and Access database development projects. The overall system development task is to realize the enterprise salary information system, standardization and automation. According to the data management of the different need of the theme, is divided into5 modules, respectively is the user management, information inquiries, staff management, incentive management, salary management. The system completes the functions: user information to add, modify, delete employee information query, add, modify, delete; incentive information query, add, modify, delete，employee salary information inquiries, add, modify, delete.Keywords：The enterprise salary management VB.net Access Database目 录第一章 概述11.1 背景介绍11.2 国内外研究现状11.3 系统实现的目标11.4 系统开发步骤1第二章 开发平台22.1 开发平台简述22.1.1 软件平台22.1.2 硬件平台22.2 开发工具概述22.2.1 VB.net概述22.2.2 Access 2003数据库简介2第三章 需求分析43.1 可行性分析43.2 系统性能需求分析43.3 系统功能需求分析4第四章 系统设计54.1 功能模块设计54.2 流程设计54.3 系统功能设计64.4 数据库设计64.5 系统界面设计规范7第五章 系统的实现85.1 系统登录界面85.2 系统主界面9第六章 项目测试146.1 项目测试的意义146.2 项目测试的目的146.3 项目测试的方法146.4 项目测试的结果14致谢18参考文献19企业工资管理系统的设计与开发第一章 概述1.1 背景介绍随着企业规模的不断扩大,员工数量增加,有关财务的各种信息量也成倍增长。企业在一般日常工作中需要对企业人员档案，出勤和工资信息进行管理。企业工资管理系统就是为此设计出的一套应用软件，重点突出了工资和人事两部分内容。企业经常要对员工各种信息进行数据的统计以供分析，然而由于计算量大，通过人力去登记、计算、查找，会出现信息编写杂乱，记错，且不易查找，会耗费大量的人力和物力。换而言之是缺乏系统、规范的信息管理手段，基于这此问题，我认为有必要建立一个企业工资管理系统，使企业的信息管理规范化，系统化，程序化，避免使用大量的人力和物力，使企业管理工作系统化、科学化、提高整体的管理的水平，使企业置身于国际大舞台。该系统开发成本低，可以为企业节省很多费用。1.2 国内外研究现状从有关的文献看，国外的管理系统早已开始研究和探讨网络技术应用于科学管理各种资源的情况和效益等问题，并已将其广泛应用，也就是实现管理系统的服务绩效。国内的管理系统，由于计算机网络技术发展起步晚，速度相对缓慢，加之传统的人事管理观念，数据管理的质量与服务绩效等问题未引起人们的重视。导致国内相当多的单位并未采用科学的管理方法，出现管理不规范、管理混乱、效率低下等问题。1.3 系统实现的目标随着科学技术的迅猛发展，计算机已得到广泛的应用。几乎各行各业都有关于计算机的使用，这使得计算机已成为社会中普遍存在的事物。由于计算机的使用，使得人们在管理、应用及服务等各个领域使用数据方面变得更加简洁、更加方便，大大提高了工作效率，产生了以计算机为主体、以人为辅助的局面。在此我所设计的企业工资管理系统就是为了方便财会人员在工资管理和查询方面的操作，减轻人力的负担，方便系统数据的存储，增加系统安全性。本系统设计的预期成果是开发设计出一个能基本实现工资的相关管理功能和查询功能。1.4 系统开发步骤一般说来，管理系统的建立与应用可以划分成总体规划、系统开发和系统运行三个阶段，其中系统开发阶段可进一步分为系统分析、系统设计和系统实施等工作环节。本系统的总体规划是首先确定企业工资管理系统的开发的背景、目的和意义，然后根据背景、目的和意义来开发系统，最后测试系统。本系统的系统开发主要包括数据库的开发、系统软件各个模块的开发和数据库与各模块的绑定。系统运行是指对各个软件模块的测试，通过对各个软件模块的测试来达到维护系统、修改系统、完善系统等的目的，从而实现整个系统的正常运行。第二章 开发平台2.1 开发平台简述2.1.1 软件平台操作系统：Windows XP Professional数据库选择：Microsoft Office Access 2003开发平台：Microsoft Visual Studio 20052.1.2 硬件平台CPU：Intel（R）Core（TM）i3 CPU M330内存：2GB硬盘：320G显卡：ATI Mobility Radeon HD 43502.2 开发工具概述2.2.1 VB.net概述系统采用面向对象的软件开发办法，以MICROSOFT公司的可视化开发环境VB.net作为主要开发工具，以Access 作为数据库。Visual Basic.NET是从 Visual Basic 语言演变而来，是一种为高效地生成类型安全和面向对象的应用程序而设计的语言。Visual Basic 允许开发人员开发面向 Windows、Web 和移动设备的程序。与所有面向Microsoft .NET Framework语言一样，使用 Visual Basic 编写的程序都具有安全性和语言互操作性方面优点。VB.net常被人称为VB7.0即对VB6的升级是不对的，几乎在.net中思想已经完全改变，VB6中是基于事件和对象的思想，而在.net中由于使用了.net框架，面对对象在.net中尤为突出，6中过程思想还能运用，但在.net中过程思想已完全被OOP思想取代。VB.net的特点：1.真正成为面向对象以及支持继承性的语言。 2.窗体设计器支持可视化继承，并且包含了许多新的特性，比如自动改变窗体大小、资源本地化支持、数据类工具内在支持XML数据。 3.直接建立在.NET的框架结构上，因此开发人员可以充分利用所有.NET平台特性，也可以与其他的.NET语言交互。 4.为Windows应用程序提供了XCOPY部署，开发者不再需要为DLL的版本问题担忧。VB.net的优势：1.代码托管。被托管的代码享受.netframework提供的安全保障和垃圾回收机制，但是这也同时表明，你的程序被框在Framework里面了。API变得不太方便。 2.强大的面向对象特性。现在VB7已经是一个完全的面向对象程序。现在VB7已经支持类的各种特性：继承，函数的覆盖，重载，虚拟，隐藏 3.功能强大，程序界面更标准。 4.程序代码结构化更强，开发环境舒适体贴。2.2.2 Access 2003数据库简介中文版Access 是微软公司发布的中文版Office软件包中的关系数据库软件，是当今流行的数据库软件之一。它结合了Microsoft Jet Database Engine 和图形用户界面两项特点。在Access中，数据库不仅包含用于存放加工过的信息的表，还包含以表中所存放的信息作为操作对象的查询、窗体、报表和页等数据库对象。Access作为Microsoft Office 套件中的数据库管理软件，为开发完整的数据库应用程序提供一个功能强大的环境。Access具有以下的特点：² Access 的最大优点是不用携带向上兼容的软件。² 能够利用各种图例快速获得数据。² 可以处理多种类型的数据。² 设计过程自动化。² Access 支持ODBC标准的SQL数据库的数据。² 具有较好的集成开发功能。² 能够方便的创建和编辑多媒体数据库。1 2第三章 需求分析3.1 可行性分析1、管理可行性因为编写人员不论对电脑系统的基本操作还是对于系统的维护都有一定的基础，并且程序的开发软件较简单，不必担心电脑的故障问题。2、操作技术可行性计算机的飞速发展，使得各种操作平台都越来越成熟。各种软件，编程语言都到了成熟的阶段。对于该系统的设计，本人采用的是Visual Studio 2005和Access 2003相结合的软件，Visual Studio 2005开发工具有友好亲切的界面，丰富多彩的开发工具，快捷又准确的编译执行速度，强大的数据库开发能力以及灵活的发布应用方式，对于这两个软件都有很好的基础，所以编写起来不会有问题。所以操作技术上是可行的。3、经济可行性一方面，系统中友好的人机界面和更强劲的功能支持，会使管理人员的工作进一步提高，从而节省人力、物力，进而提高经济效益：另一方面，研制任何一个信息系统，都要考虑成本费用，首先，该系统所编写的软件都可以免费的下载；其次，该系统属于C/S结构，可以不用联网就可以编写。所以本系统在经济上是可行的。3.2 系统性能需求分析为了保证系统能够长期地、稳定地、安全地、高效地运行，企业工资管理系统应该满足以下性能需求：(1)系统查询的准确性和及时性 系统查询的准确性和及时性是系统的必要性能。查询时应保证查全率，所有员工的信息都应能查到。及时性体现在响应时间，一般操作的响应时间应在1-2s内，对数据的导入、导出的操作也应在可接受的时间内完成。(2)系统的可扩充性 系统在开发过程中，应该充分考虑以后的可扩充性。比如：企业员工的不断增加，数据库内的数据也要随时扩充。(3)系统的易维护性系统是直接面对使用人员的。这就要求系统能够提供良好的用户接口，易用的人机交互界面。3.3 系统功能需求分析本工资管理系统主要是根据现在企业的要求进行设计，是一个功能实用、操作方便，简单明了的工资管理系统。该系统包括五大模块：用户管理模块，信息查询模块，员工管理模块，奖惩管理模块，工资管理模块。（1）对用户信息进行更新。（2）对工资记录进行录入。（3）对工资信息进行查找。（4）对员工奖惩进行统计。第四章 系统设计4.1 功能模块设计此系统主要可以实现企业工资管理，管理方式包括用户管理、信息查询、员工管理、奖惩管理、工资管理。如图4-1所示图4-1 功能模块图4.2 流程设计首先管理员在登录界面登录系统后，出现主界面，点击对应的查询按钮，系统即可显示对应的结果。其业务流程如图4-2所示登录界面主界面退出员工信息查询工资信息查询奖惩信息查询信息查询用户添加用户修改用户删除用户管理员工管理员工修改员工添加员工删除工资管理工资修改工资添加工资删除奖惩管理奖惩修改奖惩添加奖惩删除图4-2 业务流程图4.3 系统功能设计系统功能设计是使整个系统能基本实现企业工资的管理、查询等管理功能，能让企业管理者更直观的了解企业员工的工资信息。管理信息系统(MIS)就是要对这些资源建立正确的数据库，并进行信息的收集、传送、存储、编制成各种报表、图形等信息，以便于管理员对员工信息及工资的管理。本系统共包括五大模块，分别是用户管理模块，信息查询模块，员工管理模块，奖惩管理模块，工资管理模块。每个模块的功能如下：1. 用户管理模块功能：实现系统登录用户的更新，包括添加、删除、修改功能；2. 信息查询模块功能：实现员工信息、工资信息、奖惩信息的查询；3. 员工管理模块功能：实现员工信息的更新，包括添加、删除、修改功能；4. 奖惩管理模块功能：实现员工奖惩信息的更新，包括添加、删除、修改功能。5. 工资管理模块功能：实现员工工资信息的更新，包括添加、删除、修改功能。4.4 数据库设计在Access中为整个系统建立一个数据库，储存各类数据和控制信息：1数据库名：wage.mdb2数据库构成：user（用户信息表）、ygxx（员工信息表）、kq（考勤信息表）、gz（工资信息表）、jc（奖惩信息表）3数据表结构描述(1)user（用户信息表）用户信息表主要用于保存管理用户名和密码，该表结构如表4-1所示表4-1 表名：user序号字段名字段类型字段宽度说明1用户名文本8用户的名称2密码文本6用户的密码(2)ygxx（员工信息表）员工信息表主要用于保存员工的编号、姓名、性别、出生年月、电话号码、家庭住址，该表结构如表4-2所示表4-2 表名：ygxx序号字段名字段类型字段宽度说明1员工编码文本10员工工号2员工姓名文本10员工姓名3性别文本2性别4出生年月日期10出生年月5电话号码数字12电话号码6家庭住址文本30家庭住址(3)gz（工资信息表）员工信息表主要用于保存员工的基本工资、加班费和补贴，该表结构如表4-4所示表4-3 表名：gz序号字段名字段类型字段宽度说明1员工编码文本10员工工号2员工姓名文本8员工姓名3基本工资货币10基本工资4加班费货币10加班费5补贴货币10补贴 (4)jc（奖惩信息表）员工信息表主要用于保存员工奖惩信息与奖惩原因，该表结构如表4-5所示表4-4 表名：jc序号字段名字段类型字段宽度说明1员工编码文本10员工工号2员工姓名文本8员工姓名3奖惩文本30奖惩内容4事件文本50奖惩原因4.5 系统界面设计规范本系统是企业工资管理系统，所以，我们设计界面时要遵循如下设计原则：（1）在界面上要限制字体的样式和其他文本格式，例如文字大小、颜色等，因为繁多的和太花的文字样式容易分散员工的注意力。（2）当然最主要的是页面要易读，这意味着，必须注重规划文字和背景颜色的搭配方案。不要使背景的颜色冲淡了文字的视觉效果，不要用花里胡哨的色彩组合，一般来说，浅色背景下的深色文字为佳。这同时也要注意，最好别把文字的规格设得太小、也不能太大。（3）使用高对比度的文字颜色和背景颜色，从而使文字尽量清晰。（4）系统风格要统一，即系统上的图像、文字，包括背景颜色、字体、标题等，要统一风格，贯穿全系统，从而给用户一种舒服、顺畅的感觉。第五章 系统的实现5.1 系统登录界面系统的开始运行出现登录界面，输入用户名和密码，点击登录按钮，进入系统主界面。如图5-1：图5-1 系统登录界面关键代码：If TextBox1.Text = "" Then MsgBox("请输入用户名") TextBox1.Focus() Return End If 输入用户名 If TextBox2.Text = "" Then MsgBox("请输入密码") TextBox2.Focus() Return End If 输入密码 If TextBox3.Text <> TextBox2.Text Then MsgBox("请保持密码一致") TextBox2.Text = "" TextBox3.Text = "" TextBox2.Focus() Return 确认两次输入的密码是否相同 End If Dim mycon As New OleDbConnection mycon.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "/wage.mdb" Dim chkstring = "select * from user where 用户名='" + TextBox1.Text.Trim() + "' and 密码='" + TextBox2.Text.Trim() + "'" Dim mycmd As New OleDbCommand(chkstring, mycon) '创建Command对象 Dim dr As OleDbDataReader Static i As Integer Try mycon.Open() dr = mycmd.ExecuteReader If (Not dr.Read() Then MessageBox.Show("用户名或密码不对！", "密码校验") TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox1.Focus() i += 1 If (i = 3) Then MessageBox.Show("你无权查看信息！", "密码校验") Me.Close() End If Else username = TextBox1.Text.Trim() Me.Hide() Dim main As New 企业工资管理系统.main main.Show() End If 输入三次错误的用户名或密码就不可以进入，若正确直接进入主界面 Catch ex As Exception MessageBox.Show(ex.Message, "企业工资管理系统") Finally mycon.Close() End Try 退出系统5.2 系统主界面进入系统主界面，显示系统的主要功能，包括用户管理、信息查询、员工管理、奖惩管理、工资管理、退出，以及信息结果显示界面。如图5-2所示：图5-2 系统主界面关键性代码：Public Class main Private Sub main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ToolStripStatusLabel1.Text = "登录者：" + 企业工资管理系统.denglu.TextBox1.Text + "|" ToolStripStatusLabel3.Text = "| " + "欢迎使用本系统！(制作人：刘娟)" End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ToolStripStatusLabel2.Text = "现在时间:" + Now End Sub 显示登陆者，制作人和时间 Private Sub main_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed If MessageBox.Show("确定要退出本系统吗？", "提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Information) = Windows.Forms.DialogResult.OK Then Application.Exit() Else Dim main = New main main.show() End If End Sub 显示提示界面，再次确认是否退出系统 Private Sub 用户添加ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 用户添加ToolStripMenuItem.Click Dim useradd As New 企业工资管理系统.useradd useradd.MdiParent = Me useradd.Show() End Sub Private Sub 用户修改ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 用户修改ToolStripMenuItem.Click Dim userupdate As New 企业工资管理系统.userupdate userupdate.MdiParent = Me userupdate.Show() End Sub Private Sub 用户删除ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 用户删除ToolStripMenuItem.Click Dim userdel As New 企业工资管理系统.userdel userdel.MdiParent = Me userdel.Show() End Sub Private Sub 员工查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 员工查询ToolStripMenuItem.Click Dim cxworker As New 企业工资管理系统.cxworker cxworker.MdiParent = Me cxworker.Show() End Sub Private Sub 奖惩查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 奖惩查询ToolStripMenuItem.Click Dim cxjc As New 企业工资管理系统.cxjc cxjc.MdiParent = Me cxjc.Show() End Sub Private Sub 工资查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 工资查询ToolStripMenuItem.Click Dim cxwage As New 企业工资管理系统.cxwage cxwage.MdiParent = Me cxwage.Show() End Sub Private Sub 添加员工ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加员工ToolStripMenuItem1.Click Dim workeradd As New 企业工资管理系统.workeradd workeradd.MdiParent = Me workeradd.Show() End Sub Private Sub 修改员工ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改员工ToolStripMenuItem.Click Dim workerup As New 企业工资管理系统.workerup workerup.MdiParent = Me workerup.Show() End Sub Private Sub 删除员工ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 删除员工ToolStripMenuItem.Click Dim workerdel As New 企业工资管理系统.workerdel workerdel.MdiParent = Me workerdel.Show() End Sub Private Sub 奖惩添加ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 奖惩添加ToolStripMenuItem.Click Dim jcadd As New 企业工资管理系统.jcadd jcadd.MdiParent = Me jcadd.Show() End Sub Private Sub 奖惩信息修改ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 奖惩信息修改ToolStripMenuItem.Click Dim jcup As New 企业工资管理系统.jcup jcup.MdiParent = Me jcup.Show() End Sub Private Sub 奖惩信息删除ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 奖惩信息删除ToolStripMenuItem.Click Dim jcdel As New 企业工资管理系统.jcdel jcdel.MdiParent = Me jcdel.Show() End Sub Private Sub 工资信息添加ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 工资信息添加ToolStripMenuItem.Click Dim wageadd As New 企业工资管理系统.wageadd wageadd.MdiParent = Me wageadd.Show() End Sub Private Sub 工资信息修改ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 工资信息修改ToolStripMenuItem.Click Dim wageup As New 企业工资管理系统.wageup wageup.MdiParent = Me wageup.Show() End Sub Private Sub 工资信息删除ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 工资信息删除ToolStripMenuItem.Click Dim wagedel As New 企业工资管理系统.wagedel wagedel.MdiParent = Me wagedel.Show() End Sub 调用数据库，并显示相应的内容 Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出EToolStripMenuItem.Click If MessageBox.Show("确定要退出本系统吗？", "提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Information) = Windows.Forms.DialogResult.OK Then Application.Exit() Else Dim main = New main main.show() End If End SubEnd Class 退出系统第六章 项目测试6.1 项目测试的意义软件危机曾经是软件界甚至整个计算机界最热门的话题。为了解决这场危机，软件从业人员、专家和学者做出了大量的努力。现在人们已经逐步认识到所谓的软件危机实际上仅是一种状况，那就是软件中有错误，正是这些错误导致了软件开发在成本、进度和质量上的失控。有错是软件的属性，而且是无法改变的，因为软件是由人来完成的，所有由人做的工作都不会是完美无缺的。问题在于我们如何去避免错误的产生和消除已经产生的错误，使程序中的错误密度