(精品)人事工资管理系统论文

毕业设计（论文） 摘要【摘要】由于计算机技术的飞速发展,数据库技术作为数据管理的一个有效的手段,在各行各业中得到越来越广泛的应用。因此,本文围绕一个”人事管理系统”程序的设计和应用系统的开发课题为背景,详细介绍了以VB为语言编写管理信息系统的过程。该程序通过VB的ADO数据对象来实现VB与ACCESS数据库的连接,并具有典型的数据库应用系统的特征,完成了系统结构与现实生活的紧密结合。管理系统的开发不仅是一个应用程序编写的过程,更重要的是在系统分析和设计阶段所做的工作。该程序主要讲述了程序的总体设计、详细设计阶段,对程序进行需求迭代,不断修正和改进,直到形成一个完善的可行性系统。【关键词】VB；ACCESS；数据库；管理信息系统II大学毕业设计（论文） Abstract【Abstract】Because of the rapid development of computer technology, database technology as an effective means of data management, in all walks of life are increasingly wide application. Therefore, this article on a personnel management system design and procedures for applications development topics background, details VB to add language to the process of preparing management information systems. The procedure adopted to achieve the target data add the ado with VB prospects ACCESS database and database applications with typical characteristics, and completed the structure and system combining real life. Management system applications development is not only a preparation process, but more importantly in the analysis and design phase work. The procedure on the main procedures designed, detailed design stage, the demand for computation procedures, and constantly revised and improved, Until the feasibility of forming a perfect system. 【Key Words】VB；ACCESS；Database；Management Information Systems大学毕业设计（论文） 目录 目录摘要Abstract第一章 绪论111 课题来源及其在国内外的发展概况112 课题的目的、意义和应解决的问题113 相关知识点介绍1131 Visual Basic 6.0介绍1132 Access数据库介绍1第二章 系统需求分析221 功能需求222 性能需求2第三章 系统总体设计331 功能模块划分332 系统流程分析433 数据库设计5331 创建数据库5332 设计表结构534 设计工程框架6341 创建工程7342 添加模块7343 添加类模块7第四章 系统详细设计941 登录模块及系统主界面设计942 部门管理模块设计1143 员工管理模块设计1444 考勤管理模块设计1545 工资管理模块设计1646 用户管理模块设计1647 密码修改模块设计19第五章 毕业设计小结20致谢21参考文献22大学毕业设计（论文） 绪论 第一章 绪论该章将说明本设计课题的来源、目的、意义、应解决的主要问题,简述本课题在国内外的发展概况，以及相关知识点介绍。11 课题来源及其在国内外的发展概况随着计算机应用在社会的普及，信息技术的高速发展，人们已经越来越认识到信息处理在社会工作、生活、生产、管理等方面的强大作用。公司信息管理系统，公司人事管理、工资管理系统，也越来越引起各方面企事业单位、公司的高度重视。先前公司的资料多是基于FOXBASE下的文字操作界面，不能提供一个良好人机交互接口，操作繁琐，为工作人员的实际操作带来了难度,面对目前的实际状况，迫切需要开发一个新系统来适应这一些工作。12 课题的目的、意义和应解决的问题本课题在了解公司人事、工资管理的基本情况下，在对先前的信息管理系统的研究后，采用可视化的、面对对象和调用事件驱动方式的结构化高级程序设计Visual Basic，解决以前信息管理系统中存在的不足，使公司管理人员能够更容易、更方便的用计算机进行对人事、工资的管理，以实现无纸化操作。13 相关知识点介绍 131 Visual Basic 6.0介绍Visual Basic6.0是一种可视化的、面对对象和调用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。总的来说，Visual Basic具有以下特点：可视化编程、面向对象的程序设计、事件驱动编程机制、访问数据库、动态数据交换、对象的链接与嵌入、动态链接库、结构化程序设计语言。132 Access数据库介绍Access是微软公司发布的Office软件包中的关系型数据库软件,具有功能灵活,界面友好,易于学习和操作等特点,Access是开发单机小型数据库应用系统的理想工具,可以独立开发数据库应用系统,也可以作为后台数据库与VB等高级语言结合使用。23大学毕业设计（论文） 系统需求分析第二章 系统需求分析本章将介绍系统需求分析，它分为功能需求和性能需求这两个方面。21 功能需求1.部门管理l 在表格中显示表Departments中所有部门数据l 添加部门数据l 修改部门数据l 删除部门数据2.员工管理l 表格中显示表Employees中所有员工数据l 添加员工数据l 修改员工数据l 删除员工数据3考勤管理l 在表格中显示表Checkin中所有考勤数据l 添加考勤数据l 修改考勤数据l 删除考勤数据4工资管理l 在表格中显示表gongzi中的所有工资数据l 添加工资数据l 修改工资数据l 删除工资数据5系统用户信息管理l 添加系统用户信息l 修改系统用户信息l 删除系统用户信息l 查看系统用户信息22 性能需求1硬件环境 一般配置就行，要求不高2软件环境l 操作系统：Windows 98/me/2000/xp.l 数据库：Microsoft Access 2003.东华理工大学毕业设计（论文） 系统总体设计 第三章 系统总体设计本章将对人事工资管理系统进行总体设计，介绍系统的功能模块划分、系统流程分析、数据库设计和工程框架设计。31 功能模块划分人事工资管理系统功能模块如图31所示。图31 人事工资管理系统功能模块示意图可以看到，本系统划分为3个功能模块，基本信息管理模块用于管理部门及员工的基本信息，考勤工资管理模块用于管理员工考勤及工资的基本信息，系统用户管理模块用于管理系统用户信息。下面分别介绍这3个功能模块的基本功能。基本信息管理模块的基本功能图32所示。图32 基本信息管理模块功能图员工基本信息管理模块是整个系统的核心。除了部门管理模块外，其它各个模块都针对每个员工的某个方面进行管理，都需要提供员工编号等基本信息作为索引。考勤工资管理模块的基本功能图33所示。图33 考勤工资管理模块功能图系统用户管理模块包括用户信息管理、权限控制等功能。权限控制虽然不是一个独立存在的模块，但是它却贯穿在整个系统的运行过程当中。本系统将用户划为两种类型，即系统管理员和普通用户。系统管理员用户拥有所有的管理权限，普通用户在基本信息管理模块和考勤工资管理模块中只能有查看的权限。在系统初始化时创建一个默认的系统管理员用户Admin，由程序设计人员动手地添加到数据库中。Admin用户可以创建和管理其他管理员用户和普通用户，其他管理员用户可以创建和管理普通用户。所有用户都可以管理自己地用户信息。32 系统流程分析所谓系统流程就是用户在使用系统时的工作过程。对于多类型用户的管理系统来说，每一类用户的工作流程都是部相同的。多用户系统的工作流程都从用户登录模块开始，对用户的身份进行认证。身份认证可以分为以下两个过程：l 确认用户是否是有效的系统用户。l 确定用户的类型。第一个过程决定用户能否进入系统。第二个过程根据用户的类型决定用户的操作权限，从而决定用户的工作界面。在系统的工作流程图中，还将体现各个功能模块之间的依存关系。本系统的流程分析图如图34所示。图34 系统流程分析图进入系统之后，不同类型的用户所能进行的操作也不同。这些操作可以笼统地为用户管理模块和人事管理模块。33 数据库设计331创建数据库在设计数据库表结构之前，首先要创建一个数据库。本系统使用的数据库为“人事工资.mdb”。332 设计表结构数据库包含以下5张表：部门表Departments、员工基本信息表Employees、员工考勤表Checkin、工资表gongzi和用户信息表Users。下面分别介绍这些表的结构。1部门表Departments部门表Departments用来保存企业部门的信息。本系统采用树状结构来管理部门数据，也就是在部门之间建立从属关系。表Departments的结构如表31所示。表31 Departments的结构2员工基本信息表Employees员工基本信息表Employees用来保存员工的基本信息。表Employees的结构如表32所示。表32 Employees的结构3员工考勤表Checkin 员工考勤表 Checkin用来保存员工考勤的基本信息。表Checkin的结构如表33所示。表33 Checkin的结构表中出勤天数、病假天数等字段要考虑到半天的情形，所以使用了“数字/小数”数据类型。4工资表gongzi工资表gongzi用来保存员工工资的基本信息。表gongzi的结构如表34所示。表34 gongzi的结构5用户信息表Users用户信息表Users用来保存系统用户信息。表Users的结构如表35所示。表35 Users的结构用户信息表users中有一条默认记录，用户名为Admin，密码为888888，用户类型为1。34 设计工程框架设计工程框架，包括创建工程、在工程中添加和注册数据库访问控件、添加数据库访问类、为每个表创建对应的类、设计系统主界面、设计登录对话框等。341创建工程运行Visual Basic 6.0主程序，并选择新建“标准EXE”，新建工程后，在Visual Basic 窗口中有一个缺省的窗体Form1，在这上设计系统主界面。选择“工程”菜单中的“工程1属性”命令，在“工程属性”对话框中，将工程名设置为Manager。单击“保存”按钮，将工程存储为Manager.vbp。342添加模块根据Visual Basic 功能模块的划分原则，将分别创建以下几个模块：l Const 用来管理工程中的常量。l DbFunc 用来管理工程中与数据库操作相关的声明、变量和函数。l GeneralFunc 用来管理工程中一些通用的自定义函数。l Variable 用来管理工程中的全局变量。在GeneralFunc模块中，需要添加一个自定义过程Add_DepToTree()。它的功能是把所有的部门名称按照上下级添加到TreeView控件中。在应用程序目录下创建模块目录Modules，然后单击“保存”按妞，将分别使用默认的名称保存模块。343添加类模块根据Visual Basic 功能模块的划分原则，为每个表创建一个类模块，将对此表的所有数据库操作封装在类中。在通常情况下，类的成员变量与对应的表中的字段名相同。由于绝大多数成员函数的编码格式都是非常相似的，只是使用的SQL语句不同，所以本小节将只说明每个类中成员函数的功能，并不对所有的成员函数进行具体的代码分析。1Departments类Departments类用来管理表Departments的数据库操作，它保存为Departments.cls。Departments类的成员函数如表36所示。函数名具体说明Init初始化成员变量Delete删除指定的部门记录。参数TmpId表示要删除的部门的编号GetInfo读取指定的部门记录。参数TmpId表示要读取的部门的编号GetName根据指定的部门编号读取部门名称。参数TmpId表示指定的部门编号GetNewId生成新记录的部门编号。如果要将编号字段定义为“自动编号”类型，字段值会自动体递增。但是在本系统中，需要在插入记录后马上得到新记录的部门编号，所有采用程序控制的方法生成部门编号HaveEmp判断指定部门中是否存在员工。参数TmpDepid表示指定的部门的编号。此函数将在删除部门数据之前调用，如果返回True，则不能删除指定的部门HaveSon判断指定部门中是否存在下级部门。参数TmpUpperId表示指定的部门的编号。此函数将在删除部门数据之前调用，如果返回True，则不能删除指定的部门In_DB判断指定的部门名称是否已经在数据库中。参数DepName表示指定的部门名称，DepUpper表示上一级部门的编号Insert插入新的部门记录。插入数据前首先调用GetNewId函数生成新记录的部门编号Load_Departments_ByUpper根据指定的上级部门编号，读取所有下一级部门的名称。此函数在把部门装入到树状结构的过程中将起到重要的作用Update修改指定的部门记录。参数TmpId表示要修改的部门的编号表36 Departments类的成员函数2Employees类Employees类用来管理表Employees的数据库操作，它保存为Employees.cls。它的成员函数类似Departments类中的成员函数。3Checkin类Checkin类用来管理表Checkin的数据库操作，它保存为Checkin.cls。它的成员函数类似Departments类中的成员函数。4gongzi类gongzi类用来管理表gongzi的数据库操作，它保存为gongzi.cls。它的成员函数类似Departments类中的成员函数。5Users类Users类用来管理表Users的数据库操作，它保存为Users.cls。它的成员函数类似Departments类中的成员函数。东华理工大学毕业设计（论文） 系统详细设计 第四章 系统详细设计整个人事工资管理系统主要是由3个部分组成：基本信息管理、考勤工资管理和系统用户管理。本章将介绍登录模块及系统主界面、部门管理、员工管理、考勤管理、工资管理、用户管理和密码修改等模块的详细设计。41 登录模块及系统主界面设计根据系统的要求，登录过程需要完成的任务：l 根据用户名和密码来判断是否可能进入系统；l 根据用户类型决定用户拥有的权限。登录窗体的名称为FrmLogin，它的界面布局如图41所示。图41 登录窗体的界面布局程序的运行过程如下：l 判断是否输入了用户名和密码，如果没有输入，则返回，要求用户输入。代码如下：If Trim(txtUser) = ThenMsgBox 请输入用户名txtUser.SetFocusExit SubEnd IfIf Trim(txtPwd) = ThenMsgBox 请输入密码txtPwd.SetFocusExit SubEnd Ifl 将输入的用户名和密码赋值到变量NameKey和PasswordKey中，便于处理。l 调用MyUser.In_DB()函数，判断当前用户名是否存在。如果不存在，则返回，要求用户重新输入，同时将计数变量Try_times加1。代码如下：If MyUser.In_DB(NameKey) = False ThenMsgBox 用户名不存在Try_times = Try_times + 1End ifl 如果用户名存在，则调用MyUsers.GetInfo()函数，读取此用户的数据，并将用户密码与输入的密码进行比较。如果密码不同，则返回，要求用户重要输入，同时将计数变量Try_times加1。代码如下：MyUser.GetInfo (NameKey)If MyUser.Pwd PasswordKey ThenMsgBox 密码错误Try_times = Try_times + 1End ifl 如果Try_times大于或等于3，则退出系统。代码如下：If Try_times = 3 ThenMsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭DBapi_DisconnectEndElseExit SubEnd Ifl 如果通过密码验证，将当前用户的信息保存到CurUser对象中，以便后面使用。l 关闭登录窗体。设计主界面主窗体是工程的启动对象，可以在系统菜单中选择“工程”/“属性”，打开属性窗口设置启动对象，主窗体名为FrmMain.打开主窗体的设计窗口，选择“工具”菜单项中的“菜单编辑器”，对菜单内容进行编辑。主界面的布局如图42所示。图42 人事工资管理系统主界面在主界面中有基本信息管理、考勤工资管理和系统用户管理这三个主菜单。其中在基本信息管理菜单中有部门管理、员工管理和退出系统这三个子菜单；在考勤工资菜单中有考勤和工资两个子菜单；在系统用户管理有用户管理和修改密码两个子菜单。当主窗体启动时，首先打开“登录”对话框。如果不能通过身份验证，则不能进入系统。代码如下：Private Sub Form_Load() FrmLogin.Show 1End Sub当选择“退出系统”菜单项时，触发mn_exit_Click事件，代码如下：Private Sub mn_exit_Click() DBapi_Disconnect EndEnd Sub42 部门管理模块设计部门管理模块可以实现以下功能：l 系统用户可以添加部门记录、修改部门记录、删除部门记录和查看部门记录l 普通用户只能查看部门数据设计思想在本模块中设计了FrmDepMan、FrmDepEdit和FrmDepSel这三个窗体来实现模块的功能。在FrmDepMan和FrmDepSel这两个窗体中使用了TreeView控件来表现部门间的层次结构，使用ImageList控件来管理TreeView控件中的图像信息。为了把所有的部门名称按照上下级关系添加到TreeView控件中，在GeneralFunc模块中自定义了Add_DepToTree()。只有系统管理用户才能添加、修改和删除数据。FrmDepMan的界面布局如图43所示。图43部门管理窗体布局具体实现l 根据用户类型的不同决定显示的界面，只有系统管理用户才能看到添加、修改和删除等按钮。根结点的关键字为a0，显示文本为“部门信息”，代码如下：If CurUser.User_type = 2 ThenCmd_Add.Visible = FalseCmd_Modi.Visible = FalseCmd_Del.Visible = FalseCmd_Back.Left = 2400End IfSet TmpNode = TreeView1.Nodes.Add(, , a0, 部门信息, 1, 1)l 当用户单击“添加” 按钮时,程序将会先初始化FrmDepEdit信息，并将FrmDepEdit.Modify设置为False，表示当前状态为插入数据，然后启动FrmDepEditEdit窗体，代码如下：Private Sub Cmd_Add_Click()FrmDepEdit.lblUpper = CurDep.DepNameFrmDepEdit.txtDep = FrmDepEdit.txtDescribe = FrmDepEdit.Modify = FalseFrmDepEdit.Show 1TreeView1_ClickEnd Subl 当用户单击“修改”按钮时，程序将判断是否是根结点，因为根结点不能修改。如果不是根结点，程序将会把当前的信息赋值到编辑部门信息的窗口中进行修改。代码如下：Private Sub Cmd_Modi_Click()If TreeView1.SelectedItem.Key = a0 ThenMsgBox 此项不能修改Exit SubEnd IfFrmDepEdit.lblUpper = MyDep.GetName(CurDep.UpperId)FrmDepEdit.txtDep = CurDep.DepNameFrmDepEdit.txtDescribe = CurDep.DescribesFrmDepEdit.Modify = TrueFrmDepEdit.Show 1TreeView1_ClickEnd Subl 当用户单击“删除”时，程序将判断要删除的部门是否是根结点、是否包含下一级部门和是否包含员工，因为这些不能删除。如果不是这些将删除，并调用MsgBox（）函数提示用户确认是否删除当前记录。代码如下：If TreeView1.SelectedItem.Key = a0 ThenMsgBox 此项不能删除Exit SubEnd IfIf CurDep.Haveson(CurDep.DepId) = True ThenMsgBox CurDep.DepName + 包含下级部门，不能删除Exit SubEnd IfIf MyDep.HaveEmp(CurDep.DepId) = True ThenMsgBox CurDep.DepName + 包含员工，不能删除Exit SubEnd IfIf MsgBox(是否确定要删除 + Trim(TreeView1.SelectedItem.Text), vbYesNo, 请确认) = vbNo ThenExit SubEnd Ifl 当用户单击部门列表时，程序将根据选中的部门关键字获取部门信息，并保存在CurDep对象中。代码如下：Private Sub TreeView1_Click()Dim Focuskey As String根据关键字获取部门信息Focuskey = TreeView1.SelectedItem.KeyCurDep.DepName = TreeView1.SelectedItem.TextCurDep.DepId=Val(Right(TreeView1.SelectedItem.Key,Len(TreeView1.SelectedItem.Key) - 1)If Focuskey = a0 Then Exit SubEnd If如果包含子结点，则设置图像格式If CurDep.Haveson(CurDep.DepId) = False ThenTreeView1.SelectedItem.ExpandedImage = 1TreeView1.SelectedItem.Image = 1TreeView1.SelectedItem.SelectedImage = 1End If读取MyDep中的所有部门信息CurDep.GetInfo (CurDep.DepId)End Sub43 员工管理模块设计员工管理模块可以实现以下功能：l 系统用户可以添加、修改、删除和查看员工记录l 普通用户只能查看员工数据设计思想在本模块中设计了Frm_EmpMan和Frm_EmpEdit这两个窗体来实现模块的功能。添加ADODC控件来实现与数据库的连接，还添加了DataGrid控件来显示员工表Employees中的所有员工数据。只有系统管理用户才添加、修改和删除数据。Frm_EmpMan的布局如图44所示。图44 员工管理窗体布局具体实现l 在实现该功能时，需要用到员工表Employees，因此需要添加一个ADODC控件实现窗体与数据库之间的相关联。l 在添加员工数据时，程序将Frm_EmpEdit.Modify设置为False，然后启动Frm_EmpEdit窗体。窗体Frm_EmpEdit关闭以后，调用RefreshData（）函数刷新结果集，并显示在DataGrid1表格中。l 在修改员工数据时，程序首先根据Adodc1.Recordset.EOF的值判断用户是否选择了要修改的的记录。因为当前Adodc1.Recordset.EOFTrue时，调用Adodc1.Recordset.Fields将会产生错误，所以有必要事先进行判断。修改之后将调用RefreshData（）函数刷新结果集。l 在删除员工数据时，与修改过程相同。如果选择了要删除的记录，则调用MsgBox（）函数提示用户确认是否删除当前记录。修改之后将调用RefreshData（）函数刷新结果集。代码如下：Private Sub Cmd_Del_Click()Dim TmpId As String 保存选择的记录编号Dim Pos As Integer 保存当前记录的位置If Adodc1.Recordset.EOF = True ThenMsgBox 请选择要删除的记录Exit SubEnd If保存当前的记录位置Pos = Adodc1.Recordset.AbsolutePosition读取要删除数据的编号TmpId = Trim(Adodc1.Recordset.Fields(0)If MsgBox(是否删除当前行?, vbYesNo, 请确认) = vbYes ThenMyEmp.Delete (TmpId)MsgBox (数据已删除)RefreshData将光标移动到前一个记录或后一个记录If Pos - 2 = 0 ThenAdodc1.Recordset.Move Pos - 2ElseIf Pos - 1 Adodc1.Recordset.RecordCount ThenAdodc1.Recordset.Move Pos - 1End IfEnd IfEnd IfEnd Sub44考勤管理模块设计考勤管理模块可以实现以下功能：l 系统用户可以添加考勤、修改、删除和查看考勤记录l 普通用户只能查看考勤数据设计思想和具体实现类似员工管理模块，在此就不详细说明了。FrmCheckMan窗体布局如图45所示。图45 考勤管理窗体布局45工资管理模块设计工资管理模块可以实现以下功能：l 系统用户可以添加、修改、删除和查看工资记录l 普通用户只能查看工资数据设计思想和具体实现类似员工管理模块，在此就不详细说明了。FrmgzMan窗体布局如图46所示。图46 工资管理窗体布局46 用户管理模块设计根据用户类型的不同，用户管理模块的功能也不相同。可以包含以下情形：l Admin用户可以创建系统管理员或普通用户，修改系统管理员或普通用户的密码，删除系统管理员或普通用户。也可以修改自身的密码l 系统管理员用户可以创建普通用户，对普通用户的密码进行重置，删除普通用户。也可以修改自身的用户名和密码l 普通用户只能修改自身的用户名和密码设计思想在本模块中设计了FrmUserMan和FrmUserEdit这两个窗体来实现模块的功能。添加ADODC控件来实现与数据库的连接，添加DataList控件来显示用户表Users中的所有用户姓名数据。只有系统管理用户才能看到添加、修改和删除等按钮。FrmUserMan窗体的布局如图47所示。图47 用户管理窗体布局具体实现l 当装入窗体时，程序将设置AdoUserList控件的连接字符串和数据源，从而为用户列表框提供数据。l 添加用户时，设置ComboType组合框需要考虑，Admin用户可以添加系统管理员和普通用户，其他系统管理员只能添加用户。代码如下：Private Sub Cmd_Add_Click()With FrmUserEdit.txtUserName = .txtPass = .txtPass2 = If UCase(CurUser.UserName) = ADMIN Then.ComboType.AddItem 系统管理员.ComboType.AddItem 普通用户Else.ComboType.AddItem 普通用户End If.ComboType.ListIndex = 0.Modify = False.Show 1End WithAdoUserList.RefreshDataList1_Click End Subl 修改用户时，需要判断当前用户是否拥有修改选定用户的权限。如果当前用户不是Admin，而且要修改的用户是其他系统管理员，则此用户没有修改的权限。l 删除用户时，需要判断当前用户是否拥有删除选定用户的权限。如果要删除Admin用户或者不是Admin的系统管理员用户删除其他系统管理员，则没有删除权限。代码如下：Private Sub Cmd_Del_Click()If DataList1.Text = ThenMsgBox 请选择要删除的用户Exit SubEnd IfIf UCase(CurUser.UserName) admin And MyUser.User_type = 1 ThenMsgBox 没有删除此用户的权限Exit SubEnd IfIf MsgBox(是否删除当前用户, vbYesNo, 请确认) = vbYes ThenMyUser.Delete (DataList1.Text)MsgBox 成功删除用户AdoUserList.RefreshDataList1_ClickEnd IfEnd Subl 当用户单击用户列表框DataList1时，程序将根据选择的用户名读取用户数据，并在窗体右侧显示用户名和用户类型。代码如下：Private Sub DataList1_Click()If DataList1.Text = ThenlblUserType = lblUserName = Exit SubEnd If读取用户数据MyUser.GetInfo (DataList1.Text)Se