城院09级 工资管理系统设计概要

第一篇：城院09级 工资管理系统设计概要

目 录

1、需求及背景分析....................................................................1 1.1 工资管理系统的概述.......................................................................................................1 1.2 A 公司工资管理系统需求调查.......................................................................................2

2、系统分析..................................................................................3 2.1 A 公司工资业务流程图......................................................................................................3 2.2 A 公司工资管理数据流程图..............................................................................................4 2.3 A 公司工资管理系统功能分析图......................................................................................4 2.4 数据字典.............................................................................................................................5 2.6管理信息系统流程设想图(新系统模型.........................................................................7

3、系统设计部分..........................................................................8 3.1 功能结构图设计..................................................................................................................8 3.2 新系统信息处理流程设计(ER 图..............................................................................8 3.3 输出设计(主要指打印输出设计..................................................................................9 3.4 存储文件格式设计(数据库结构设计..........................................................................9 3.5 输入设计.............................................................................................................................9 3.6 代码设计(职工证号和部门代号等............................................................................10 3.7 程序设计说明书................................................................................................................10 3.8 工资管理信息系统数据库设计........................................................................................10 4.系统实施...................................................................................14

5.课程设计心得...........................................................................14 管理信息系统课程设计任务书 题目 : 工资管理系统设计 1.课程设计教学条件要求

运用现有教学条件,结合所学知识、网络和图书馆等资料,以团队小组形式, 团队协作,保质保量完成课程设计。

2.课程设计任务

课程设计任务的描述应该清晰明确,设计的难度和工作量应符合学生的实际 水平,在规定的时间内能够完成设计任务。

3.课程设计报告书主要内容 工资管理系统设计

1、需求及背景分析 1.1 工资管理系统的概述

企业工资管理是一个企业单位不可缺少的部分,它的内容对于企业决策者 和管理者来说都是至关重要的,所以企业工资管理系统应该能够为用户提供充足 的信息和快捷的查询手段。但是一直以来人们使用传统人工的方式管理企业的工 资发放工作,这种管理方式存在许多缺点,例如往往由于抄写不慎或者由于计算 的疏忽,出现工资发放错误的现象。工资管理具有重复性、规律性、时间性,正 是由于这些规律,使得工资管理的计算机化成为可能。

进入 21世纪,计算机已经渗入到社会生活的各个领域,推动着科学技术、社会经济的发展。计算机用于管理信息处理的突出特点是迅速、准确、可靠并且 具有很大的存储能力。因此,国内外越来越重视工资管理的效率及其可靠性。目

前,对于工资管理都有着相当普遍和深入的研究,但是工资管理对于社会、企业 和人民生活有着极为重要的影响。

因此在此基础上对工资管理系统进行分析和设计就非常有必要了。1.2 A 公司工资管理系统需求调查

为了更好的设计企业工资管理系统, 我们对 A 公司的工资管理事项进行调查 和分析,在此基础上开发设计我们自己的工资管理系统: 对 A 公司的工资管理进行调查,得到工资发放过程及有关数据如下图:

表 1 上月工资发放清单

表 2 本月人员及工资变动表 表 3 本月扣款清单

根据了解信息: A公司每月月末发放工资,发放前的工资处理过程是每月 25日到 27日由财务科根据已存档的上月工资发放清单(见表 1和人事科送来的 人员及工资变动表(表 2 填写本月工资发放清单中的前四项(即姓名、基本工资、附加工资、扣房费。总务科于每月 28日将扣款清单(见表 3送交财务科,由 财务科按扣款清单将扣款数填入本月工资发放清单。最后计算出每位职工的应发 工资数,并填入工资发放清单,为工资发放人员发放工资做好准备。

2、系统分析

2.1 A 公司工资业务流程图

依据 A 公司调查资料,我们将其工资业务流程绘制出如下业务流程图:

现行的工资发放体系业务流程图 上图中实体的具体功能如下: 财务工资会 :负责汇总人事部递交的人员及工资变动表和总务处递交的扣款清单 , 填写职工工资发放清单 , 交由工资发放人员按时发放职工工资 , 并存 档工资发放清单。

人 事 部 :负责编写人员及工资变动表 , 并及时送交财务工资会。总 务 处 :负责编写扣款清单 , 并及时送交财务工资会。2.2 A 公司工资管理数据流程图

经过对 A 公司工资业务流程的分析,我们可大致绘出 A 公司工资管理系统中 数据的流程图:

工资管理数据流程图

人事科把本月人员工资变动表送去抄写,同时上月工资发放清单也送去抄写。抄写完后把本月工资发放清单送到扣款项进行扣款,同时总务科也将扣款清单送 到扣款项进行扣款。扣款结束后得到的本月工资发放清单进行计算并填写应得工 资,同时工资发放员把本月工资发放清单进行计算并填写应得工资。

2.3 A 公司工资管理系统功能分析图

工资管理信息子系统由建立主文、更新主文、建立扣款文、计算和打印四 个模块组成。建立主文包括数据的录入及维护。更新主文包括建立主处理文件及

更新。建立扣款文包括数据录入和维护。计算和打印包括计算、打印工资单和打

印工资汇总表。2.4 数据字典

数据字典是指对数据的数据项、数据结构、数据流、数据存储、处理逻辑、外部实体等进行定义和描述,其目的是对数据流程图中的各个元素做出详细说明。

:_____1____

:_____2_____

:_____3___

:

______4____

2.6管理信息系统流程设想图(新系统模型

3、系统设计部分 3.1 功能结构图设计

工资管理系统功能模块结构图 3.2 新系统信息处理流程设计(ER 图

3.3 输出设计(主要指打印输出设计

3.4 存储文件格式设计(数据库结构设计

3.5 输入设计

3.6 代码设计(职工证号和部门代号等

3.7 程序设计说明书(此部分内容略

3.8 工资管理信息系统数据库设计 1.数据库中的表对象

2.表结构设计

2-1本月工资变动表的设计

SQL 语句:select * from gongzi 表内容: 2-2本月扣款清单的设计

SQL 语句:select * from koukuan 表内容:

2-3 本月工资发放清单的设计

select *from 本月扣款清单 select*from 本月工资变动表

select 本月工资变动表,本月扣款清单,扣电费,本月扣款清单,病事假扣 款,本月工资变动表,基本工资 +本月工资变动表,附加工资-本月工资变动表, 房费-本月扣款清单,扣电费-本月扣款清单,病事假扣款 as 应发工资 into 本 月工资发放清单 from

本月工资变动表,本月扣款清单 where 本月工资变动表, 职工代码 =本月扣款清单,职工代码

select *from 本月工资发放清单

insert into 本月工资发放清单(职工代码,姓名,部门,基本工资,附加工 资,房费,备注,扣电费,病事假扣款,应发工资 select 本月工资变动表,本 月工资变动表,基本工资 +本月工资变动表,附加工资-本月工资变动表,房费 as 应发工资 from 本月工资变动表 where 本月工资变动表,职工代码 not in(select 本月扣款清单.职工代码 from 本月扣款清单

select*from本月工资发放清单 order by 职工代码 4.系统实施 此部分内容略 5.课程设计心得

光阴似箭,岁月如梭,不知不觉我即将走完大学生涯,回想这一路走来的日 子,同学的相互扶持,老师的悉心教诲,朋友的支持帮助一直陪伴着我们,让我 们渐渐长大,也慢慢走向成熟。

在这一课,我们珍惜最后在大学的日子,努力学习,努力实训,努力运用课 堂教学的知识以更好的完成课程设计。首先,我们在团队讨论后,一致认为要结 合专业知识进行选题,最后定为:工资管理系统设计。根据选好的题目,收集相 关的资料,利用图书馆,网络等,资料整理完之后,开始可行性分析,程序系统 设计等等,一个环节接着一个环节。在这次的课程设计中,我们认识到在做一个 系统之前,必须要有一个清晰的思路,要明白怎么做,决不能还没想好就去下手, 那很容易发生半途做不下去的情况的,在做之前必须要对系统进行分析,可行性 分析,需求分析,决不能按着自己的想法,想怎么做就怎么做,要满足用户的需 求,要换位思考,程序简单明了,应注释的地方要注释,因为重要的是要让用户 明白。虽然这次的课程设计顺利完成,但我们清楚的意识

到自身的不足,在以后 的日子里还要继续学习,而且必须团结同学,学会团队协作。一个人的力量是渺 小的,但团队的力量是大的。

我们的选题及进行过程中得到了老师悉心指导。设计过程中，老师多次帮助 我分析思路，开拓视角。团队成员也在我遇到困难想放弃的时候给予我最大的支 持、鼓励和帮助。老师严谨求实的治学态度，踏实坚韧的工作精神，将使我终生 受益，团队的友谊使我忠心感激。再多华丽的言语也显苍白。在此，谨向老师，所有团队成员致以诚挚的谢意和崇高的敬意。在此，非常感谢我们的大学认识的最后一位老师--肖科峰老师。肖老师在这 次工资系统设计中给我们很大帮助，还教导我们在实习就业中应注意的方方面面 以及一些为人处事细节。谢谢你！15 课程设计评分表（参考格式）评分标准： 1.学生是否严格遵守课程设计纪律，按照规定时间完成设计任务(占 30% 2.课程设计报告书质量：(占 40%(1是否采用了良好的设计方法，独立完成课程设计。(2课程设计各分段的任务是否按时完成及完成的质量。(3是否完成课程设计任务书指定的全部要求。3.课程设计报告书的撰写规范(占 30% 课程设计报告书的撰写规范要求与毕业设计（论文）的要求相同。教师评分： 1.学生出勤得分： _________ 2.内容质量得分： _________ 3.撰写规范得分： _________ 最终评定成绩（以优、良、中、及格、不及格评定）：_________ 教师评语： 签字： 日期： 年 月 日 16

第二篇：SQL vb课程设计工资管理系统概要（模版）

课程设计报告

课程设计题目： 工资管理系统

学生姓名 ： 专 业 ：

班 级 ： 指导教师 ：

2011年 12 月 17 日

姓名： 学号： 实验时间：12月14日 实验地点：

一、课程设计题目：

工资管理系统

二、课程设计目的：

本次课程设计的主要目的是综合运用所学的数据库与VB知识解决一个比较实际的简单问题，侧重对数据库连接、查询等相关内容的综合应用，使同学们能进一步熟悉掌握数据库的基本使用方法，进一步提升自己的编程能力并逐步培养编程思维，进而不断提高同学们解决问题的能力，并为以后的语言学习打下良好的基础。

三、课程设计要求： 1.独立完成；

2.此次课程设计在规定的时间必须在实验室完成，不得以任何理由在其他地点进行；

3．每个人需按照选题规则确定好自己的题目（注意不是多人完成一题，每人独立完成一题），不得以任何理由选择其他的题目，当然在完成自己的题目之后根据个人兴趣可以继续选做其他的题目；

4．课程设计完成后严格按照报告格式撰写课程设计报告，并于结束后的第三天上交到学习委员统一交给老师；

5．课程设计的成绩由两部分组成：程序检查成绩（40％，每个功能占程序分的20%）＋报告检查成绩（40％）＋平时考核（20%）

四、试验要求 员工基本信息的管理功能。单位员工变动、奖惩情况的管理功能。3 工资的计算、修改功能。4 查询统计功能。5 报表打印功能。具有数据备份和数据恢复功能。

五、试验过程

1.数据库的设计

本系统的数据库是SQL数据库，在SQL环境下创建数据库工资.mdb文件。该数据库包括员工信息表、工资标准表、其他工资标准表、用户表用于纪录员工的基本信息数据库表结构如下所示： 字段名 类型 varchar

大小 8

允许空 Not null 员工编号

姓名 varchar 10 Not null 性别 varchar 职务 Varchar 出生年月 datetime 员工头像 image

员工信息表

字段名 类型

员工编号 varchar

月份 int 津贴 money 奖金 Money 扣保险 Money 扣考勤 Money 扣其他 Money 其他工资标准表 Not null 8 Not null Not null

大小

允许空 8 NULL NULL NULL NULL NULL

字段名 类型

大小

职务 varchar

基本工资 money 8

工资标准表

字段名 类型

大小

用户名 char

口令 char 10

用户表 2．主要内容 登录窗体

登录窗体 设计代码：

允许空

Not null

Not null

允许空

Not null

Not null

Option Explicit

Private Function Selectsql(SQL As String As ADODB.Recordset '返回ADODB.Recordset对象 Dim ConnStr As String

Dim Conn As ADODB.Connection Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Set Conn = New ADODB.Connection 'On Error GoTo MyErr:

ConnStr = “Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=true;Initial Catalog=工资;Data Source=(local” '这是连接SQL数据库的语句 Conn.Open ConnStr

rs.CursorLocation = adUseClient

rs.Open Trim$(SQL, Conn, adOpenDynamic, adLockOptimistic Set Selectsql = rs 'Exit Function 'MyErr: 'Set rs = Nothing

'Set Conn = Nothing '释放相关的系统资源

'MsgBox Err.Description, vbInformation, “系统提示” '显示出错信息 End Function

Private Sub Command3_Click(Unload Me End Sub

Private Sub Form_Load(Dim SQL As String Dim rs As ADODB.Recordset Dim X As Long

On Error GoTo Err_box SQL = “ select * from 用户表” Set rs = Selectsql(SQL If rs.RecordCount > 0 Then rs.MoveFirst

For X = 1 To rs.RecordCount

Combo1.AddItem rs.Fields(“用户名”.Value rs.MoveNext Next X

Combo1.ListIndex = 0 End If rs.Close Exit Sub Err_box: End Sub

Private Sub Command1_Click(Dim SQL As String Dim rs As ADODB.Recordset If Text1.Text = “" Then MsgBox ”请输入口令!“, 16 Text1.SetFocus Exit Sub End If

If Combo1.Text = ”“ Then MsgBox ”请选择登录用户!“, 16 Combo1.SetFocus Exit Sub

End If

SQL = ”SELECT * FROM 用户表 WHERE 用户名='“ & Combo1.Text & ”' AND 口令='“ & Text1.Text & ”' “ Set rs = Selectsql(SQL If rs.RecordCount > 0 Then form2.Show '想要打开的主窗体 MsgBox ”登录成功!“, 64, ”提示“ Unload Me Else

MsgBox ”口令不对,请重新输入!“, 16, ”提示“ Text1.SetFocus End If End Sub

主控界面

主控界面

设计过程：

所有功能都在菜单中打开来实现，在最下面添加了工具栏，来显示时间，操作员，状态等信息。

设计代码：

Private Sub rechaxun_Click（form3.Show End Sub

Private Sub reluru_Click(form3.Show End Sub

Private Sub cygl2_Click(form5.Show End Sub

Private Sub cyxx_Click(form3.Show End Sub

Private Sub Form_Load(Label2.Caption = Time End Sub

Private Sub gzcx_Click(Form4.Show End Sub

Private Sub Image1_Click(End Sub

Private Sub jcqk_Click(form6.Show End Sub

Private Sub rexiugai_Click(form6.Show End Sub

Private Sub rescbb_Click(Form4.Show

MsgBox ”请先查询，再点击生成报表按钮“, , ”提示窗口“ End Sub

Private Sub sjbf_Click(Form7.Show End Sub

Private Sub sjhf_Click(Form7.Show End Sub

Private Sub tjcy_Click(form5.Show End Sub

成员管理 成员浏览

成员浏览 设计过程：

用控件可以实现档案的浏览，在此窗体用户可以浏览员工信息，此窗体与数据轮中的员工信息表进行连接。

设计代码：

Private Sub Command4_Click(Unload Me End Sub 成员管理

成员管理

设计过程：

用于档案的登记，此窗体和档案浏览窗体中的数据表进行了连接，可以直接进行添加，删除，修改等。

设计代码：

Private Sub Command1_Click(Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click(Adodc1.Recordset.Update End Sub Private Sub Command3_Click(Adodc1.Recordset.Delete End Sub

Private Sub Command4_Click(Dim strb(As Byte CommonDialog1.ShowOpen Open CommonDialog1.FileName For Binary As #1 f1 = LOF(1 ReDim strb(f1 Get #1, , strb Adodc1.Recordset.Fields(”员工头像“.AppendChunk strb Close #1 Image1.Picture = LoadPicture(CommonDialog1.FileName End Sub Private Sub Form_Load(End Sub 奖惩信息：

员工奖惩情况

设计过程：

用户可以查找各月份的扣除以及奖励状况。

设计代码：

Private Sub Command1_Click(Unload Me End Sub

Private Sub Command2_Click(Adodc1.Recordset.Update End Sub

Private Sub Text1_Change（Adodc1.RecordSource = ” select * from 其他工资标准 where 月份='“ & Text1 & ”'“ Adodc1.Refresh DataGrid1.Refresh End Sub

工资查询：

工资查询

设计过程：

通过在姓名栏和月份栏输入信息，可以快速查找所需查询人的工资情况；并将查询结果生成execl表，方便用户打印及携带。

设计代码：

Private Sub Command1_Click(Dim i As Integer, r As Integer, c As Integer Dim newxls As Excel.Application Dim newbook As Excel.Workbook Dim newsheet As Excel.Worksheet Set newxls = CreateObject(”Excel.Application“ '创建excel应用程序,打开excel Set newbook = newxls.Workbooks.Add '创建工作簿 Set newsheet = newbook.Worksheets(1 '创建工作表 If Adodc1.Recordset.RecordCount > 0 Then For i = 0 To DataGrid1.Columns.Count1 DataGrid1.Col = c newsheet.Cells(r + 1, c + 1 = DataGrid1.Columns(c Next c Adodc1.Recordset.MoveNext Loop Dim myval As Long Dim mystr As String myval = MsgBox(”是否保存该Excel表?“, vbYesNo, ”提示窗口“

If myval = vbYes Then mystr = InputBox(”请输入文件名称“, ”输入窗口“ If Len(mystr = 0 Then MsgBox ”系统不允许文件名称为空！“, , ”提示窗口“ Exit Sub End If newsheet.SaveAs ”d:“ & mystr & ”.xls“ MsgBox ”Excel文件保存成功，位置：d:“ & mystr & ”.xls“, , ”提示窗口“ newxls.Quit End If End If End Sub Private Sub Command2_Click(Unload Me End Sub Private Sub Form_Load(End Sub Private Sub Text1_Change(Adodc1.RecordSource = ”select a.员工编号,姓名,月份,基本工资,津贴+奖金+扣保险+扣考勤+扣其他 as 奖惩总额,基本工资+津贴+奖金+扣保险+扣考勤+扣其他 as 实发工资 from 员工信息表 a,工资标准 b,其他工资标准 c where a.职务=b.职务 and a.员工编号=c.员工编号 and 姓名 like '“ & Text2 & ”%'and c.月份='“ & Text1 & ”' “ Adodc1.Refresh DataGrid1.Refresh End Sub Private Sub Text2_Change（Adodc1.RecordSource = ”select a.员工编号,姓名,月份,基本工资,津贴+奖金+扣保险+扣考勤+扣其他 as 奖惩总额,基本工资+津贴+奖金+扣保险+扣考勤+扣其他 as 实发工资 from 员工信息表 a,工资标准 b,其他工资标准 c where a.职务=b.职务 and a.员工编号=c.员工编号 and 姓名 like '“ & Text2 & ”%' and c.月份='“ & Text1 & ”'“ Adodc1.Refresh DataGrid1.Refresh End Sub 数据备份及恢复：

数据备份及恢复 设计过程：

用户可以将数据库进行完全备份和差异备份，并且在操作不当时可以进行恢复。

设计代码：

Public Cn As ADODB.Connection Private Sub Command1_Click(Cn.Execute ”backup database 工资 to disk='d:工资完全备份.bak' with name='工资 backup all',description='Full Backup Of pubs'“ MsgBox ”数据完全备份已经完成“, vbOKOnly + vbInformation, ”提醒“ End Sub Private Sub Command2_Click(Cn.Execute ”backup database 工资 to disk='d:工资差异备份.bak' with differential ,noinit,name='工资 backup dif',description='Differential Backup Of 工资'“

MsgBox ”数据差异备份已经完成“, vbOKOnly + vbInformation, ”提醒“ End Sub Private Sub Command3_Click(Cn.Execute ”restore database 工资 from disk='d:工资完全备份.bak' with FILE=1“ MsgBox ”数据恢复已经完成“, vbOKOnly + vbInformation, ”提醒“ End Sub Private Sub Command4_Click(Cn.Execute ”restore database 工资 from disk='d:工资差异备份.bak' with FILE=1“ MsgBox ”数据恢复已经完成“, vbOKOnly + vbInformation, ”提醒“ End Sub Private Sub Form_Load(Set Cn = New ADODB.Connection strcon = ”Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=true;Initial Catalog=工资;Data Source=(local;“ + _ ”use procedure for prepare=1;auto translate=true;“ + _ ”use encryption for data=false;tag with column collation when possible=false“ Cn.ConnectionString = strcon On Error Resume Next Cn.Open If Cn.Errors.Count > 0 Then For i = 0 To Cn.Errors.Count-1 If Cn.Errors(i.Number =-2147467259 Then MsgBox ”网络不通或服务器未开，请确认后再试“, vbOKOnly + vbInformation, ”提醒" Unload Me

Exit Sub Exit For End If Next i End If End Sub

3、设计体会

在数据库课程开课之前我就下决心要学好这一门课，因为这是我的专业课，我一开始就谨慎小心，争取每一个细节都做得很好。现在终于是完成了，我的设计体会如下：

小心谨慎是关键，因为做程序关键就是写代码，每一个字母都要很小心输入，若是不小心错了一个，就会带来庞大的“查错工程”，不过从我检查错误当中也学会了一些检查的方法，比如设置中断点，可以观查每一个变量的当前值，很有效的。

小心是一个方面，另一个是怎么样让程序最人性化，并且保持较简洁的程序代码，通俗说就是事半功倍。有很多时间我是花在了调试程序方面，一部分是在找错误，还有就是怎么用最简练的代码实现当前的作用。其中绝大多数都是自己写的代码，只有在自己不会的时候才借鉴了指导老师发下来的那个示例作品的代码。

我的程序大多数是我自己写的，但是自己的知识和水平都十分有限，所以会经常去查看书或者在网上寻找资料，通过看书、看资料，我改进了自己的不足，也学会的很多新的作程序方法，都是十分有用的。

在一个体会就是做程序要有对全局和面的分析能力，老师告诉我好多设计中不曾想到的东西，比如数据表建立的不完美，用户权限应该分开等。做什么事都是一样的，具体体现在了这次的数据库课程设计上来，让我学到了很多东西。就像要完成一个很大的工作，要先从小的部分做起，不能急于求成，细心谨慎才是关键，坚持不懈，最后再把这些小的窗体在连接起来，就构成了一个整体。

只有实践真正动手做了才会真正了解，在不断的学习和实践中体会到更多的经验。

第三篇：基于VFP职工工资管理系统 王忠概要

山西大学继续教育学院 毕 业 论 文 类 别 专 科 年 级 2006 级

专 业 计算机与信息管理 姓 名 王 忠 学 号 06418538038 论文题目 基于vfp 的职工 工资管理系统 论 文 评 语 建议成绩 指导老师 年 月 日 目 录

摘要„„„„„„„„„„„„„„„„„„„„„„„„„„„4 1 本课题的研究意义 1．1目的„„„„„„„„„„„„„„„„„„„„„„„5 1．2内容„„„„„„„„„„„„„„„„„„„„„„„5

1．3软件„„„„„„„„„„„„„„„„„„„„„„„5 2 编程设计基础 „„„„„„„„„„„„„„„„„„„„„6 3 系统设计 „„„„„„„„„„„„„„„„„„„„„„„8

3．1系统目标设计 „„„„„„„„„„„„„„„„„„8 3.2面向对象系统开发方法„„„„„„„„„„„„„„„8 3．3开发设计思想„„„„„„„„„„„„„„„„„„„8 3．4系统功能分析„„„„„„„„„„„„„„„„„„„9

3．5系统功能模块设计„„„„„„„„„„„„„„„„„9 4 软件的开发„„„„„„„„„„„„„„„„„„„„„„10 4、1数据库需求分析 „„„„„„„„„„„„„„„„„10 4、2数据库概念结构设计 „„„„„„„„„„„„„„„12 结束语 „„„„„„„„„„„„„„„„„„„„„„„„„21 参考资料 „„„„„„„„„„„„„„„„„„„„„„„„22

摘 要

本系统为工资管理系统。采用的开发工具是 MicroSoft Visual Foxpro 6.0。工资管理是公司管理的一个重要内容。随着企业人员数量增加，企业的工资管理工作也变得越来越复杂。工资管理既涉及到企业劳动人事的管理，同时也是企业财务管理的重要组成部分。系统能够提供对工资信息进行输入、查询、编辑以及对工资发放各明细项目的数据编辑，自动计算出工资发放各项合计数据；增强了对复杂性工资的可维护性, 并可自主设定条件从而达到对工资数据的多角度查询功能；计算工资结果通过四个基本表格进行关联包括员工信息、基本工资、岗位工资、工龄工资等，工资项目及工资计算公式可以自由设定，充分发挥它的灵活性和可维户性，从而摆脱了过去繁重人工计算工资，大大降低了手工作帐的错误率，录入修改方便快捷。提供方便而又强大的工资查询及工资分析系统，工资打印可以有多种纸张格式提供选择。实现了财务部门对本单位工资发放系统的集中管理，保证了系统的安全性。支持运行的环境：Microsoft Window98/2000/XP 【关键词】工资管理 查询 浏览 Visual Foxpro

企业部门及工作岗位信息。包括的数据库项有部门名称、工作岗位、工资等。工龄的工资金额。包括的数据库项有工龄及对应工资额。工资信息。包含的数据项有员工号、员工姓名、基础工资、岗位工资、工龄工资、实得工资。

数据流程图

通过流程图我们可以很清晰的看到员工工资的计算及总体情况4、2数据库概念结构设计

根据上面的设计规划出的实体有：员工实体、员工工资实体、工资等级实体、部门岗位实体、工龄实体，公司福利实体。E ——R 图如下：

4.3 有了数据库的支持，我们就可以进行系统的初步建设了，首先是建立项目管理器，如下图所示：

在项目管理器中新建一个表单，名称为人事工资管理系统，如下图所 示：

只有一个界面是不行的，那么我们看到表单中有2个按钮，进入系统和退出系统，要实现它们的功能就需要对它们进行设置。首先是进入系统的设置，对它的代码设置是 “do 菜单1.mpr release thisform”

do 菜单1.mpr 是运行菜单项，具体什么菜单我们下面介绍 release thisform是释放当前表单，也就是关闭人事工资管理系统

这个表单

退出系统的代码则是 release thisform 释放此表单 4.4 建立菜单栏 在项目管理器中建立一个菜单，如下

要求：菜单中包括职工信息，工资设定，工资汇总，工资查询和退出 职工信息中 还包括浏览，编译，查询等选项

类似 工资设定中 还包括了基本工资，岗位工资，工龄工资 这样 程序运行的时候就到了do 菜单1.mpr，此时的系统界面是这样的

4.5表的建立

任何程序都少不了表的支持，没有数据库，添加，删除等操作几乎无法实现，我们首先建一个员工信息表，ygxx

其具体设置如上 然后录入员工的基本信息 再建员工的基本工资表 jbgz 只要设置如下

继续建立员工的岗位工资表和工龄工资表

到此，程序有了一个很好的开始，也可以说，这个小程序开始显露生机，下面我们要做的就是完善它的功能。4.6 浏览职工信息

工资管理软件就要知道职工的基本信息，年龄，性别，工龄，在什么岗位工作，是属于什么工种，这些都为工资的结算提供了很好的帮助。我们需要再建立一个表单，类型如下：

我们可以很清楚的看到职工的基本信息，职工号，岗位，姓名，性别，工龄，工资等级，这些基本信息对于工资的定位和发放有很好的帮助

那怎么实现职工信息的浏览呢，我们看到右边有5个按钮，这些按钮就是控制浏览职工信息的指挥棒，我们先看以下“首行”里面的代码 go top

This.enabled=.f.ThisForm.Command2.enabled=.f.ThisForm.Command3.enabled=.t.ThisForm.Command4.enabled=.t.thisform.refresh 在这些代码中 go top 是控制信息到

山西大学继续教育学院毕业论文 参考资料： 参考资料： [1] Visual FoxPro 6.0 程序设计指南 清华大学出版社 吴迪 吕蒙著 [2] 高等院校程序设计规划教材 Visual FoxPro 6.0 实训清华大学出版社 郑阿 奇 主编 [3] Visual FoxPro 数据库与程序设计 北京工业大学出版社 主编 李英杰 刘利 军 [4] Visual FoxPro 数据库原理与应用 西安电子科技大学出版社 主编 胡晓燕

第四篇：工资管理系统实验报告

信 息 系 统 设 计 与 开 发

系统名称：工资管理系统

开发人员：薛靖峰

学号：1009034122

专业：信息管理与信息系统

（1）编写目的随着社会的发展，中国的中小型企业越来越多，而对企业而言，人力资源是企业最宝贵的资源,也是企业的“生命线”。工资管理又是人力资源管理的重中之重。实行电子化智能化的工资管理，可以让人力资源管理人员从繁重琐碎的案头工作解脱出来,去完成更重要的工作。实现企业更大的工作效益和利润。提高工作效率，减少人力；节省开支；先前人工劳动的自动化；针对使用企业与人群为中小型的管理者。

（2）背景

借助现代信息技术和管理理论,建立企业管理信息系统是当今社会的重要趋势，企业要在当今激烈的社会竞争中生存并发展，单靠人工或九十年代的手动，机械化操作是不够的，社会的发展，要求企业要跟上时代的步伐，抓住新时代的新科技的机遇，运用自动化，智能化的电脑管理，实现企业的高效益发展，这其中，企业员工的工资管理，对一个企业起着很关键的作用。因此开发一个能自动化的管理企业员工工资的发放，员工内部信息的管理，企业招聘的管理等功能的系统，对一个企业的发展铺上了一条奔向高速发展的道路。在一个企业中，工资管理是一项琐碎、复杂而又十分细致的工作，工资计算、发放、核算的工作量很大，一般不允许出错，如果实行手工操作，每月发放工资须手工填制大量的表格，这就会耗费工作人员大量的时间和精力，计算机进行工资发放工作，不仅能够保证工资核算准确无误、快速输出，而且还可以利用计算机对有关工资的各种信息进行统计，服务于财务部门其他方面的核算和财务处理，同时计算机具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事工资资管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。

2、可行性研究的前提

（1）要求

①主要功能：为企业提供工资管理的软件，方便公司进行准确的工资管理。

②性能要求：可以准确登记出勤率以及一些特殊的影响工资的因素，工资的计算及发放等，可以以不同的方式查询工资情况。最重要的是准确。

③输入要求：数据完整、准确，真实。

④输出要求：简洁、快速、实时、可以打印相关的报表，提供一定的视图。

⑤安全与保密要求：本系统的管理员要对该管理系统的安全负责，系统由特定人员修改及进行更新，计算等功能实现。职工只有查询的权利，不能对其中的数据进行修改。上级管理者可以利用视图进行查看，或是打印报表。（2）目标

系统实现后，大大地提高职工工资 管理系统的运行效率，可以减少由人为而导致的纪录及运算错误。可以对某些特殊工资的界定条件进行设定保护，使公司更好的运行。（3）评价尺度：

成本效益分析结果，效益大于成本，技术可行，效益小于成本，技术不可行，现有技术可完全承担开发任务，操作可行，软件可被原工作人员快速接受。(4)

1、管理上的可行性分析 随着市场近几年的发展，公司规模的不断扩大，业务的扩张，为了提高企业的业务水平，为企业简化人事管理，提高商品库存效率，增加公司的业绩。在管理方面已经积累了丰富的管理经验与方法，并建立的成熟的管理制度、齐全的规章制度汇集了正确的原始数据，使管理工作有了制度支持与信息支持。特别是，能够改进企业管理机制，改善决策方式，减少管理成本，提高工作效率。领导的支持对于信息系统的开发和实施有很大作用，也能保证系统在开发过程中妥善解决矛盾，在企业上下顺利实施信息系统，实现信息系统最初的目标。

2、技术上的可行性

随着IT技术的发展，特别是网络技术和数据库技术的发展，在软件开发方面，可以采用现行主流的开发技术；硬件技术方面则可以充分利用日益增强的存储能力、通讯能力和处理速度来保证系统开发技术的准备。由此可见，该系统在技术上具有可行性。

3、经济上的可行性

对于信息系统的初期投资，都是为了以后获得更大的经济效益。通过一定的成本、效益分析，我认为开发这个系统在经济上是可行的。因为虽然系统开发需要初始成本和日后的维护费用，但是，信息系统可以提供比以前更加准确和及时的信息，可以改善领导层的决策方式，促进故那里体制改革和提高工作效率，减少人员费用，这些都是可以在以后的管理过程中体现出来的，并且可以令公司比其他竞争对手更加具有竞争优势，对企业长远的发展有不可忽视的作用。所以，经济上的可行性是肯定的。

4、可行性分析结论

在对系统目标和环境进行分析的基础上，更进一步对系统的技术可行性、经济可行性、营运可行性等方面进行系统的可行性分析研究：

二、组织机构图

三、业务流程图

四、功能结构图

五、数据流程图

1.第一层数据流程图

2.第二层数据流程图

六、数据字典

（1）数据流 数据流编号：D01-03 数据流名：出勤情况

简要说明：每月员工出勤统计情况 数据流来源：人事部

数据流去向：工资信息设置处理

数据流组成：考勤统计时间+出勤天数+迟到早退次数+旷工次数+正常加班次数+特殊加班次数+出差次数（2）数据存储 数据存储编号：F1 数据存储名称：月工资表 简要说明：每月按部门的工资表 数据存储来源：工资核算处理 数据存储去向：工资查询处理 数据存储组成：工资统计时间+基本工资+职务津贴+奖金+福利+加班费+出差费+迟到早退扣发+旷工扣发+其他（3）处理逻辑 编号：P 01-1.2 处理逻辑的名称：工资计算 简述：计算本月所有部门员工工资

输入数据流：基本工资，来自“工资信息设置”处理逻辑 其他项目，来自“工资信息设置”处理逻辑 效益工资，来自“工资信息设置”处理逻辑 出勤情况，来自“工资信息设置”处理逻辑

数据存储组成：工资统计时间+基本工资+职务津贴+奖金+福利+加班费+出差费+迟到早退扣发+旷工扣发+其他

输出的数据流：部门工资，去“月工资表”数据存储 员工个人工资，去“工资单”数据存储（4）外部实体 编号：S04 名称：员工 简述：本单位的员工 输入的数据流：工资单 输出的数据流：确认

七、E-R图

八、对象关系图

九、数据表详情

1、工资表

2、职工表

3、财务表

十、系统截图

系统分析报告

借助现代信息技术和管理理论,建立企业管理信息系统是当今社会的重要趋势，企业要在当今激烈的社会竞争中生存并发展，单靠人工或九十年代的手动，机械化操作是不够的，社会的发展，要求企业要跟上时代的步伐，抓住新时代的新科技的机遇，运用自动化，智能化的电脑管理，实现企业的高效益发展，这其中，企业员工的工资管理，对一个企业起着很关键的作用。因此开发一个能自动化的管理企业员工工资的发放，员工内部信息的管理，企业招聘的管理等功能的系统，对一个企业的发展铺上了一条奔向高速发展的道路。在一个企业中，工资管理是一项琐碎、复杂而又十分细致的工作，工资计算、发放、核算的工作量很大，一般不允许出错，如果实行手工操作，每月发放工资须手工填制大量的表格，这就会耗费工作人员大量的时间和精力，计算机进行工资发放工作，不仅能够保证工资核算准确无误、快速输出，而且还可以利用计算机对有关工资的各种信息进行统计，服务于财务部门其他方面的核算和财务处理，同时计算机具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事工资资管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。

1、系统的易用性和易维护性

工资信息管理系统是直接面对使用人员的，而使用人员往往对计算机并不时非常熟悉。这就要求系统能够提供良好的用户接口，易用的人机交互界面。要实现这一点，就要求系统应该尽量使用用户熟悉的术语和中文信息的界面；针对用户可能出现的使用问题，要提供足够的在线帮助，缩短用户对系统熟悉的过程。工资信息管理系统中涉及到的数据是企业的相当重要的信息，系统要提供方便的手段供系统维护人员进行数据的备份，日常的安全管理，系统意外崩溃时数据的恢复等工作。系统的标准性

系统在设计开发使用过程中都要涉及到很多计算机硬件、软件。所有这些都要符合主流国际、国家和行业标准。例如在开发中使用的操作系统、网络系统、开发工具都必须符合通用标准。如规范的数据库操纵界面、作为业界标准的TCP/IP网络协议及ISO9002标准所要求的质量规范等；同时，在自主开发本系统时，要进行良好的设计工作，制订行之有效的软件工程规范，保证代码的易读性、可操作性和可移植性。

3、系统的先进性

目前计算系统的技术发展相当快，做为员工信息管理系统工程，应该保证系统在下个世纪仍旧是先进的，在系统的生命周期尽量做到系统的先进，充分完成企业信息处理的要求而不至于落后。这一方面通过系统的开放性和可扩充性，不断改善系统的功能完成。另一方面，在系统设计和开发的过程中，应在考虑成本的基础上尽量采用当前主流并先进且有良好发展前途的产品。代码设计：

添加用户：

Private Sub cmdcancel_Click()

Unload Me

Exit Sub End Sub Private Sub cmdok_Click()

Dim sql As String

Dim rs As ADODB.Recordset

If Trim(username.Text)= “" Then

MsgBox ”请输入用户名称“, vbOKOnly + vbExclamation, ”提示“

Exit Sub

username.SetFocus

Else

sql = ”select * from userinfo where userid='“ & username & ”'“

Set re = getrs(sql, ”salary“)

If re.EOF = False Then

MsgBox ”这个用户已经存在，请重新输入用户名“, vbOKOnly + vbExclamation, ”提示“

username.SetFocus

username.Text = ”“

password.Text = ”“

confirmpwd.Text = ”“

Exit Sub

Else

If Trim(password.Text)<> Trim(confirmpwd.Text)Then

MsgBox ”两次输入密码不一致，请重新输入密码“, vbOKOnly + vbExclamation, ”提示“

password.Text = ”“

confirmpwd.Text = ”“

password.SetFocus

Exit Sub

ElseIf Trim(password.Text)= ”“ Then

MsgBox ”密码不能为空“, vbOKOnly + vbExclamation, ”提示“

password.Text = ”“

confirmpwd = ”“

password.SetFocus

Else

sql = ”insert into userinfo(userid,userpwd)values('“ & username

sql = sql & ”','“ & password & ”')“

Call transactsql(sql, ”salary“)

MsgBox ”添加成功“, vbOKOnly + vbExclamation, ”添加结果“

username.Text = ”“

password.Text = ”“

confirmpwd.Text = ”“

username.SetFocus

End If

End If

End If End Sub

Private Sub Form_Load()End Sub

出勤结果：

Option Explicit

Private Sub DataGrid1_Click()End Sub

Private Sub Form_Load()

Dim sql As String

Dim rs As New ADODB.Recordset

Dim sd As String

If strusername <> ”admin“ Then

sql = ”select sid from stuffinfo where sname='“ & strusername & ”'“

Set rs = getrs(sql, ”salary“)' sd = rs(0)

sql = ”select * from attendancestatistics where stuffid='“ & sd & ”'“

Me.Adodc1.ConnectionString =

”Provider=SQLOLEDB.1;Integrated Info=False;Initial Catalog=工资管理;Data Source=(local)“

Me.Adodc1.RecordSource = sql

Me.Adodc1.Refresh

Set Me.DataGrid1.DataSource = Me.Adodc1.Recordset

Me.DataGrid1.Refresh

Else

sql = ”select * from attendancestatistics“

Me.Adodc1.ConnectionString =

”Provider=SQLOLEDB.1;Integrated Info=False;Initial Catalog=工资管理;Data Source=(local)“

Me.Adodc1.RecordSource = sql

Me.Adodc1.Refresh

Set Me.DataGrid1.DataSource = Me.Adodc1.Recordset

Me.DataGrid1.Refresh

End If End Sub

Security=SSPI;Persist

Security=SSPI;Persist

Security

Security 基本工资设置 Option Explicit Private id As String Private Sub cmdcancel_Click()

Unload Me

Exit Sub End Sub Private Sub init()'

Me.composition.ListIndex = 0

Me.comstuffid.ListIndex = 0

Me.textmoney = ”“

Me.optionid.Value = True End Sub Private Sub addrecord()

'添加记录

Dim sql As String

Dim rs As New ADODB.Recordset

sql = ”select * from salarysetting“

Set rs = getrs(sql, ”salary“)

rs.AddNew

rs.Fields(1)= Trim(id)

rs.Fields(2)= Trim(Me.composition.Text)

rs.Fields(3)= Trim(Me.textmoney)

rs.Update

rs.Close End Sub Private Sub cmdok_Click()

Dim sql As String

Dim rs As New ADODB.Recordset

If ichangeflag = 1 Then

If Me.optionid.Value = True Then

If Me.comstuffid.Text = ”“ Then

MsgBox ”请选择员工编号“, vbOKOnly + vbExclamation, ”提示“

ElseIf IsEmpty(Me.textmoney)= True Then

MsgBox ”请输入基本工资“, vbOKOnly + vbExclamation, ”提示“

Me.textmoney.SetFocus

ElseIf IsNumeric(Me.textmoney)= False Then

MsgBox ”请输入数字“, vbOKOnly + vbExclamation, ”提示“

Me.textmoney = ”“

Me.textmoney.SetFocus

Else

sql = ”select * from salarysetting where stuffid='“ & Me.comstuffid.Text & ”'“

Set rs = getrs(sql, ”salary“)

If rs.EOF = False Then

sql = ”delete from salarysetting where stuffid='“ & Me.comstuffid.Text & ”'“

Call transactsql(sql, ”salary“)

End If

rs.Close

id = Me.comstuffid.Text

Call addrecord

MsgBox ”已经设置基本工资“, vbOKOnly + vbExclamation, ”添加结果“

Call init

sql = ”select * from salarysetting“

Call frmresult.basictopic

Call frmresult.showbasic(sql)

frmresult.Show

frmresult.ZOrder 0

Me.ZOrder 0

End If

End If

If Me.optionposition.Value = True Then

If Me.composition.Text = ”“ Then

MsgBox ”请输入职务“, vbOKOnly + vbExclamation, ”提示“

ElseIf IsEmpty(Me.textmoney)= True Then

MsgBox ”请输入基本工资“, vbOKOnly + vbExclamation, ”提示“

Me.textmoney.SetFocus

ElseIf IsNumeric(Me.textmoney)= False Then

MsgBox ”请输入数字“, vbOKOnly + vbExclamation, ”提示“

Me.textmoney = ”“

Me.textmoney.SetFocus

Else

sql = ”select * from salarysetting where sposition ='“ & Me.composition.Text & ”'“

Set rs = getrs(sql, ”salary“)

If rs.EOF = False Then

sql = ”delete from salarysetting where sposition ='“ & Me.composition.Text & ”'“

Call transactsql(sql, ”salary“)

End If

rs.Close

sql = ”select * from salarysetting where sposition ='“ & Me.composition.Text & ”'“

Set rs = getrs(sql, ”salary“)

While Not rs.EOF

id = rs(0)

Call addrecord

rs.MoveNext

Wend

rs.Close

MsgBox ”已经设置基本工资“, vbOKOnly + vbExclamation, ”添加结果“

Call init

sql = ”select * from salarysetting“

Call frmresult.basictopic

Call frmresult.showbasic(sql)

frmresult.Show

frmresult.ZOrder 0

Me.ZOrder 0

End If

End If

Else

sql = ”update salarysetting set salary=“ & Me.textmoney & ” where stuffid='“

sql = sql & Me.comstuffid & ”'“

Call transactsql(sql, ”salary“)

MsgBox ”已经修改基本工资设置“, vbOKOnly + vbExclamation, ”提示“

Unload Me

sql = ”select * from salarysetting“

Call frmresult.basictopic

Call frmresult.showbasic(sql)

frmresult.Show

frmresult.ZOrder 0

Call frmsumsalary.resumsalary(Date)

End If End Sub

Private Sub Form_Load()

Dim sql As String

Dim rs As New ADODB.Recordset

If ichangeflag = 1 Then

'添加信息

sql = ”select sid from stuffinfo order by sid“

Set rs = getrs(sql, ”salary“)

If rs.EOF = False Then

While Not rs.EOF

Me.comstuffid.AddItem rs(0)

rs.MoveNext

Wend

rs.Close

Me.comstuffid.ListIndex = 0

End If

sql = ”select distinct sposition from salarysetting“

Set rs = getrs(sql, ”salary“)If rs.EOF = False Then

While Not rs.EOF

Me.composition.AddItem rs(0)

rs.MoveNext

Wend

rs.Close

Me.composition.ListIndex = 0 End If

Me.optionid.Value = True

Else

'修改信息

Me.Caption = ”修改基本工资设置“

Set rs = getrs(strpublicsql, ”salary“)

Me.comstuffid.Text = rs(1)

Me.composition.Text = rs(2)

Me.textmoney = rs(3)

Me.comstuffid.Enabled = False

Me.composition.Enabled = False

rs.Close

End If End Sub

修改密码：

Private Sub cmdcancel_Click()

Unload Me

Exit Sub End Sub Private Sub cmdok_Click()

Dim sql As String

Dim rs As ADODB.Recordset

If Trim(oldpwd.Text)= ”“ Then

MsgBox ”请输入旧密码“, vbOKOnly + vbExclamation, ”提示“

oldpwd.SetFocus

Exit Sub

Else

If Trim(oldpwd.Text)<> Trim(userpassword)Then

MsgBox ”旧密码与登录的密码不同，请重新输入！“, vbOKOnly + vbExclamation, ”提示“

oldpwd.Text = ”“

oldpwd.SetFocus

ElseIf Trim(newpwd.Text)= ”“ Then

MsgBox ”请输入新密码“, vbOKOnly + vbExclamation, ”提示“

newpwd.SetFocus

Exit Sub

ElseIf Trim(newpwd.Text)<> Trim(confirmpwd.Text)Then

MsgBox ”两次密码不同“, vbOKOnly + vbExclamation, ”警告“

newpwd.Text = ”“

confirmpwd.Text = ”“

newpwd.SetFocus

Else

userpassword = newpwd

sql = ”update userinfo set userpwd='“ & newpwd & ”'where userid='“ & strusername & ”'“

Call transactsql(sql, ”salary“)

MsgBox ”密码已经修改“, vbOKOnly + vbExclamation, ”修改结果“

Unload Me

End If

End If End Sub

Private Sub oldpwd_Change()End Sub 公式设置

Private Sub cmdcancel_Click()

Unload Me

Exit Sub End Sub Private Sub cmddefault_Click()

Me.textovertimecom = 200

Me.textovertimespe = 400

Me.texterrand = 200

Me.textabsent = 50

Me.textle = 20

Call setvalue End Sub Private Sub cmdok_Click()

If Me.textovertimecom = ”“ And IsNumeric(Me.textovertimecom)= True Then

MsgBox ”请输入正常加班工资百分比“, vbOKOnly + vbExclamation, ”提示“

Me.textovertimecom = ”“

Me.textovertimecom.SetFocus

ElseIf Me.textovertimespe = ”“ And IsNumeric(Me.textovertimespe)= False Then

MsgBox ”请输入特殊加班工资百分比“, vbOKOnly + vbExclamation, ”提示“

Me.textovertimespe = ”“

Me.textovertimespe.SetFocus

ElseIf Me.texterrand = ”“ And IsNumeric(Me.texterrand)= False Then

MsgBox ”请输入出差工资“, vbOKOnly + vbExclamation, ”提示“

Me.texterrand = ”“

Me.texterrand.SetFocus

ElseIf Me.textabsent = ”“ And IsNumeric(Me.textabsent)= False Then

MsgBox ”请输入旷工扣发工资“, vbOKOnly + vbExclamation, ”提示“

Me.textabsent = ”“

Me.textabsent.SetFocus

ElseIf Me.textle = ”“ And IsNumeric(Me.textle)= False Then

MsgBox ”请输入迟到早退扣发工资“, vbOKOnly + vbExclamation, ”提示“

Me.textle = ”“

Me.textle.SetFocus

Else

Call setvalue

Call init

End If End Sub Private Sub setvalue()

Dim sql As String

Dim rs As New ADODB.Recordset

sql = ”select * from formulasetting“

Set rs = getrs(sql, ”salary“)

If rs.EOF = False Then

sql = ”delete from formulasetting“

Call transactsql(sql, ”salary“)

End If

rs.AddNew

rs.Fields(0)= Me.textovertimecom

rs.Fields(1)= Me.textovertimespe

rs.Fields(2)= Me.texterrand

rs.Fields(3)= Me.textabsent

rs.Fields(4)= Me.textle

rs.Update

rs.Close

MsgBox ”已经设置公式“, vbOKOnly + vbExclamation, ”设置结果“ End Sub Private Sub init()

'初始化

Me.textabsent = ”“

Me.texterrand = ”“

Me.textovertimecom = ”“

Me.textovertimespe = ”“

Me.textle = ”"

Me.textovertimecom.SetFocus End Sub

第五篇：ASP2057人事工资管理系统

人事工资管理系统

摘要

人事工资管理系统是企业内部用以管理人事档案和工资等信息的实用性软件。用它代替企业传统的手工管理方式，大大提高了工作效率和安全性，提高了信息处理的速度和准确性，节省了工作人员的时间和精力，使企业人事管理和工资管理系统化、科学化、规范化和自动化。是现代企业必不可少的管理工具。

本系统采用ASP语言和Access数据库开发而成，包括职工管理、档案管理、考勤管理、工资管理等模块，并将工资计算与考勤、奖惩相关联，生成较合理的薪酬管理体制，以产生有效的激励机制。同时系统设置了一些必要的辅助功能，比如对员工合同到期提醒和生日提醒等功能，有助于巩固企业与员工的心理契约，促进员工积极向上，向公司靠拢。系统能够实现数据的录入、插入、删除、查询、统计、更新等功能，能满足企业职工管理方面的基本要求。

关键词：ASP；Access；数据库；人事；工资

目录 引言......................................................错误！未定义书签。

1.1 系统开发背景........................................错误！未定义书签。1.2 系统研究意义........................................错误！未定义书签。1.3 系统研究方法........................................错误！未定义书签。2 系统需求分析..............................................错误！未定义书签。

2.1可行性分析..........................................错误！未定义书签。

2.1.1可行性分析....................................错误！未定义书签。2.1.2 经济可行性....................................错误！未定义书签。2.1.3 操作可行性....................................错误！未定义书签。2.2 系统目标............................................错误！未定义书签。2.3 系统功能需求分析....................................错误！未定义书签。3 数据库设计................................................错误！未定义书签。

3.1 数据库表简介........................................错误！未定义书签。3.2 数据库结构设计......................................错误！未定义书签。3.3 数据库连接文件......................................错误！未定义书签。4 系统功能模块详细设计及实现.................................................2 4.1 模块设计.............................................................2 4.2 功能模块的说明.......................................................3 4.3 系统界面的设计......................................错误！未定义书签。

4.3.1 系统登录界面的设计............................错误！未定义书签。4.3.2 系统主界面的设计...............................................3 4.3.3 系统各模块界面的设计...........................................4 5 系统评价..................................................错误！未定义书签。

5.1 系统的特点..........................................错误！未定义书签。5.2 系统的缺点..........................................错误！未定义书签。5.3 将来可能提出的要求..................................错误！未定义书签。结 论....................................................错误！未定义书签。参考文献....................................................错误！未定义书签。致 谢....................................................错误！未定义书签。系统功能模块详细设计及实现

4.1 模块设计

人事工资管理系统共包括以下七个功能模块：职工管理模块、考勤管理模块、档案管理模块、工资管理模块、事项记录模块、其他事记模块、系统管理模块。其中每个模块又分为若干个小功能模块。其系统功能模块详细关系如图1所示：

图1 系统模块结构图

4.2 功能模块的说明

人事工资管理系统的七个功能模块的详细介绍如下：

1．职工管理模块：实现用户自由的信息录入。结合人事变动完成本单位各类人员变动事宜，实时记录人员进入单位后的所有变化信息。实现对员工信息灵活的查询功能。

2．考勤管理模块：将考勤数据按月输入到系统中，系统将记录所有请假、矿工、迟到、早退等数据，并进行自动统计和汇总。

3．档案管理模块：提供全部人员记录，用以记录和查看人员相关信息。4．工资管理模块：实现对基本工资的管理，每月可以计算和修改工资数据，记录工资发放日期。

5．事项记录模块：根据单位情况设立培训、奖惩等事项记录。

6．其它事记模块：用于企业内部记录单位的基本信息和员工生日等，促进员工团结一致、积极向上。

7．系统管理模块：主要包括用户登陆和安全退出系统。提供有效的用户认证安全机制。

图2 系统登录页面

打

4.3.2 系统主界面的设计

通过用户验证后，进入人事工资管理系统的主页面。系统的主页面是由一个“T”字形结构的框架页面构成，它将该页面分成顶部系统名称显示页面、下面左侧菜单页面和右面主显示页面。

其中菜单页是该页面的主题部分，实现了菜单的分类分级显示，主菜单项从上往下排成一列,平时子菜单是隐藏的,单击某一主菜单项时将展开它的所有子菜单项，同时其他主菜单项的子菜单项将紧缩回去。其界面如图3 所示：

图3 菜单界面。

4.3.3 系统各模块界面的设计

由于系统模块较多,下面将只介绍部分模块的详细设计：

（一）职工管理模块：本模块根据搜索内容和方式分为按部门查看员工和离职员工查看两部分。其中按部门查看员工的界面如图4所示：

图4 据部门查看员工页面

图5 新增员工页面

（三）工资管理模块：工资管理模块包括员工工资的计算、工资按月统计和发放领取情况。员工工资计算页面如图6所示：

图6 工资计算页面

图7 工资统计页面

图8 工资领取页面

（四）考勤管理模块：

图9 考勤记录页面

图10 考勤按月统计页面

Powered by 计算机毕业论文网http://www.xiexiebang.com http:// www.xiexiebang.com