第一篇：基于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 数据库原理与应用 西安电子科技大学出版社 主编 胡晓燕
第二篇：城院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、设计体会
在数据库课程开课之前我就下决心要学好这一门课，因为这是我的专业课，我一开始就谨慎小心，争取每一个细节都做得很好。现在终于是完成了，我的设计体会如下：
小心谨慎是关键，因为做程序关键就是写代码，每一个字母都要很小心输入，若是不小心错了一个，就会带来庞大的“查错工程”，不过从我检查错误当中也学会了一些检查的方法，比如设置中断点，可以观查每一个变量的当前值，很有效的。
小心是一个方面，另一个是怎么样让程序最人性化，并且保持较简洁的程序代码，通俗说就是事半功倍。有很多时间我是花在了调试程序方面，一部分是在找错误，还有就是怎么用最简练的代码实现当前的作用。其中绝大多数都是自己写的代码，只有在自己不会的时候才借鉴了指导老师发下来的那个示例作品的代码。
我的程序大多数是我自己写的，但是自己的知识和水平都十分有限，所以会经常去查看书或者在网上寻找资料，通过看书、看资料，我改进了自己的不足，也学会的很多新的作程序方法，都是十分有用的。
在一个体会就是做程序要有对全局和面的分析能力，老师告诉我好多设计中不曾想到的东西，比如数据表建立的不完美，用户权限应该分开等。做什么事都是一样的，具体体现在了这次的数据库课程设计上来，让我学到了很多东西。就像要完成一个很大的工作，要先从小的部分做起，不能急于求成，细心谨慎才是关键，坚持不懈，最后再把这些小的窗体在连接起来，就构成了一个整体。
只有实践真正动手做了才会真正了解，在不断的学习和实践中体会到更多的经验。
第四篇：职工工资管理系统可行性分析
工资管理系统可行性分析
一、系统开发的必要性
随着计算机技术的飞速发展，计算机在企业和大学管理中应用的普及，利用计算机实现人事工资的管理势在必行。利用计算机支持企业高效率完成劳动人事管理的日常事务，是适应现代企业制度要求、推动企业和大学劳动人事管理走向科学化、规范化的必要条件。工资管理是任何企业单位都需要进行的一项工作，因此，开发制作工资管理系统具有较大的社会现实意义。而工资管理是一项琐碎、复杂而又十分细致的工作，工资计算、发放、核算的工作量很大，一般不允许出错，实行电子化的工资管理，可以让人力资源管理人员从繁重琐碎的案头工作解脱出来，去完成更重要的工作。职工工资管理信息系统的实现可以减轻比较繁琐的手工工资管理更加针对性、便捷性、可视化的管理职工工资。工资管理是企业管理的重要组成部分，它与企业的人事管理、财务管理有着密切的联系。对于劳资关系相对复杂的大中型企事业单位，手工进行工资的发放工作往往需要耗费大量的人力与时间。由于工资发放在时间和操作上存在着一定的重复性、规律性，这使得工资管理的计算机化成为可能，该项目的提出正是为了在此基础上进一步实现企业员工工资管理的规范化和自动化。
二、系统规划情况
可行性分析是指在客观条件制约下，对系统开发的必要性和可行性进行分析论证。它是在项目系统实施前进行的一项重要工作，对系统能否正常运行、能否从中获得经济效益起着决定性的作用。系统的可能性是只指研究系统开发的条件是否具备，而系统的必要性是指客观上是否需要。可能性与必要性相符相成，缺一不可。
（一）系统设计的必要性
由于工资核算及汇总烦琐混乱且容易出错，与职工档案相关联，所得税核算复杂，因此迫切需要一套计算机信息管理系统来实现可靠、便捷的管理。
（二）系统背景
项目的任务提出者：***公司 系统开发者： “***”财务小组 系统用户： “****”财务人员
（三）系统目标
1、提供职工档案管理程序（即能够支持增加职工记录，修改职工档案数据的程序）
2、设计输入每个已建档的职工的各项工资款
3、计算每个职工工资总额并自动计算代扣个人所得税、4、汇总职工工资编制输出工资汇总表
三、系统开发的可行性
运用计算机的便捷性，程序的可操作性，让我们更能够方便快捷的对信息系统进行科学性的管理。与此同时，我们能够利用专业知识来解决实际问题。在各种计算机语言中，VB是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言；VB可用于开发Windows环境下的各类应用程序；在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具。因此，我们使用VB做简单的开发程序。
（一）项目与其他软件或其他系统的关系：
工资管理系统是全企业信息管理系统的一个有机组成部分，它需要和员工人事管理、员工工时考勤、员工医疗保险等系统连接，能够从这些系统中正确的取得员工基本工资、津贴、医疗保险等信息。
（二）社会因素方面的可行性（1）法律可行性
本系统的开发与应用不涉及侵犯专利权、侵犯版权等方面的问题。（2）管理可行性
系统操作起来难度不大，用户界面也很友好，操作人员无需掌握太多的计算机知识,只要稍加培训后，都可胜任工作，因此系统的运行和维护工作不会有什么障碍。系统提供容错能力,能识别操作员的明显的误操作，并对错误操作输入进行报警处理，对误操作进行恢复处理。
随着计算机的发展与普及，以及互联网技术的扩展，日常劳资人事管理必将实现无纸化办公，并且加入到公司内部的Intranet或者是Internet上去，实现数据的共享，这样有利于劳资人事信息在单位内部的查询，提高了数据资源的利用，并且能及时的得到更新，不需要象过去那样浪费大量的人力物力去进行抄写，提高了工作的效率。（3）技术可行性分析
软件：操作系统：中文Windows XP 操作简单：简单的操作规则使操作人员能轻松掌握。
查询方便：用户可设定任意条件和任意的查询项目进行检索。统计灵活，数据维护简单 工作方式：非实时联网。结论
本小组拟开发的系统操作方便灵活，便于学习，因此，该系统具有可行性。通过经济、技术、和社会等方面的可行性研究，可以确定本系统的开发完全必要，而且是可行的，可以立项开发
第五篇：vb课程设计 职工工资管理系统代码
Form1: Dim errorCount As Integer Private Sub Command1_Click()If Text1.Text = “system” And Text2.Text = “1234” Then
Load Form2
Form2.Show
Me.Hide
MsgBox “登陆成功，欢迎您进入职工工资管理系统”, vbInformation, “登陆成功”
Else
errorCount = errorCount + 1
If errorCount < 3 Then
MsgBox “用户名或密码错误(第” & errorCount & “次)！”, vbOKOnly + vbExclamation, “登陆失败”
Text1.SetFocus
End If
If errorCount >= 3 Then
Text1.Enabled = False
Text2.Enabled = False
Command1.Enabled = False
MsgBox “三次输入用户名或密码错误,程序将自动退出！”, vbOKOnly + vbExclamation, “登陆失败”
End
End If End If
End Sub
Private Sub Command2_Click()Unload Me End Sub
Private Sub Form_Load()errorCount = 0 End Sub
Private Sub Form_Unload(Cancel As Integer)If MsgBox(“是否要退出程序?”, vbYesNo, “退出提示”)= vbNo Then
Cancel = 1 End If End Sub
For i = 1 To jlNum
ygList(i).shifagongzi =(CSng(ygList(i).jibengz)+ ygList(i).gerensui
CSng(ygList(i).jingtie)
ygList(y).shifagongzi = ygList(zuishao).shifagongzi ygList(zuishao).shifagongzi = linShi.shifagongzi End If Next loadData End Sub
Private Sub Command5_Click()Dim linShi As YuanGong
linShi.ygnamg = InputBox(“请输入要添加的姓名”, “添加员工-姓名录入”)If Len(Trim(linShi.ygnamg))> 0 Then
linShi.jibengz = InputBox(“请输入添加员工的基本工资”, “添加员工-基本工资录入”)
If Len(Trim(linShi.jibengz))> 0 Then
linShi.jingtie = InputBox(“请输入添加员工的津贴”, “添加员工-津贴录入”)
If Len(Trim(linShi.jingtie))> 0 Then
linShi.gerensui = InputBox(“请输入添加员工的个人所得税”, “添加员工-个税录入”)
If Len(Trim(linShi.gerensui))> 0 Then
linShi.suidianfei = InputBox(“请输入添加员工的水电费”, “添加员工-水电费录入”)
If Len(Trim(linShi.suidianfei))> 0 Then
Open filedir For Append As #1
Write #1, linShi.ygnamg;linShi.jibengz;linShi.jingtie;linShi.gerensui;linShi.suidianfei
Close #1
MsgBox “添加员工成功！”, vbOKOnly + vbInformation, “成功”
jlNum = 0 If Len(Trim(filedir))> 0 Then
Open filedir For Input As #1
Do While Not EOF(1)
Line Input #1, a
If Len(Trim(a))> 0 Then
jlNum = jlNum + 1
End If
Loop
Close #1
ReDim Preserve ygList(jlNum)As YuanGong
jlNum = 0
Open filedir For Input As #1
Do While Not EOF(1)
jlNum = jlNum + 1
Input #1, ygList(jlNum).ygnamg
Input #1, ygList(jlNum).jibengz
Input #1, ygList(jlNum).jingtie
Next
Close #1
MsgBox “删除员工成功！”, vbOKOnly + vbInformation, “成功”
jlNum = 0 If Len(Trim(filedir))> 0 Then
Open filedir For Input As #1
Do While Not EOF(1)
Line Input #1, a
If Len(Trim(a))> 0 Then
jlNum = jlNum + 1
End If
Loop
Close #1
ReDim ygList(jlNum)As YuanGong
jlNum = 0
Open filedir For Input As #1
Do While Not EOF(1)
jlNum = jlNum + 1
Input #1, ygList(jlNum).ygnamg
Input #1, ygList(jlNum).jibengz
Input #1, ygList(jlNum).jingtie
Input #1, ygList(jlNum).gerensui
Input #1, ygList(jlNum).suidianfei
Loop
Close #1
loadData
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = True
Command6.Enabled = True End If
Text1.Text = “姓名” & vbTab & “工资” & vbTab & “津贴” & vbTab & “所得税” & vbTab & “水电费” & vbCrLf
For i = 1 To jlNum
Text1.Text = Text1.Text & ygList(i).ygnamg & vbTab & ygList(i).jibengz & vbTab & ygList(i).jingtie & vbTab & ygList(i).gerensui & vbTab & ygList(i).suidianfei & vbCrLf
Next Else
MsgBox “删除员工失败！”, vbOKOnly + vbExclamation, “失败” End If End Sub
Private Sub Command7_Click()
点击咨询 