VFP企业工资管理系统论文.doc

VFP企业工资管理系统论文.doc

《VFP企业工资管理系统论文.doc》由会员分享，可在线阅读，更多相关《VFP企业工资管理系统论文.doc（26页珍藏版）》请在冰点文库上搜索。

广元职业技术学院

毕业设计（论文）

论文题目：

企业工资管理系统

系别：

信息系

专业班级：

学生姓名：

指导教师：

彭小玲

二○○九年五月十日

目录

摘要………………………………………………………………………………1

引言………………………………………………………………………………2

1系统设计使用的工具、环境简介………………………………………………2

1.1VFP的简介………………………………………………………………2

1.2VFP的基本功能…………………………………………………………2

1.3VFP的特点………………………………………………………………3

2系统分析…………………………………………………………………………3

2.1设计目标和任务…………………………………………………………3

2.2可行性分析………………………………………………………………3

2.3需求分析…………………………………………………………………4

3企业工资管理系统功能模块图…………………………………………………5

4主要功能模块设计………………………………………………………………5

4.1项目的建立………………………………………………………………5

4.2用户登陆…………………………………………………………………6

4.3系统主菜单设计…………………………………………………………7

4.4系统主控表单设计………………………………………………………8

4.5工资录入表单设计………………………………………………………8

4.6工资浏览表单设计………………………………………………………9

4.7工资修改表单设计……………………………………………………10

4.8工资统计表单设计……………………………………………………14

4.9工资查找表单设计……………………………………………………15

4.10工资初始化表单设计…………………………………………………16

4.11工资备份表单设计……………………………………………………17

4.12记录打印表单设计……………………………………………………17

4.13系统帮助表单设计……………………………………………………18

4.14相关报表………………………………………………………………19

5主程序的设计…………………………………………………………………19

6程序的连编……………………………………………………………………20

7系统运行的效果………………………………………………………………20

附录A数据库相关数据表……………………………………………………21

参考文献……………………………………………………………………………22

致谢…………………………………………………………………………………23

浙江长征职业技术学院毕业论文

企业工资管理系统

【摘要】企业的工资管理是公司管理的一个重要内容。

随着企业人员数量增加，企业的工资管理工作也变得越来越复杂。

工资管理既涉及到企业劳动人事的管理，同时也是企业财务管理的重要组成部分。

工资管理需要和人事管理相联系，同时连接工时考勤和医疗保险等等，来生成企业每个职工的基本工资、补贴、医疗保险、保险费、实际发放工资等。

资金是企业生存的主要元素，资金的流动影响到企业的整体运作，企业员工的工资是企业资金管理的一个重要的组成部分。

早期的工资统计和发放都是使用人工方式处理纸质材料，不仅花费财务人员大量的时间且不易保存，往往由于个人的因素抄写不慎或计算疏忽，出现工资发放错误的现象。

早期工资管理都采取纸质材料和具有较强的时间限制。

基于以上原因，企业工资管理系统使用电脑安全保存、快速计算、全面统计，实现工资管理的系统化、规范化、自动化。

本企业工资管理系统极大提高了工作效率，节省了人力和物力，最终满足企业财务管理、员工工资发放的需要，同时也成为现代化企业管理的标志。

【关键词】工资管理财务管理系统化规范化自动化

引言

当今社会，资金是企业生存的主要元素，资金的流动影响到企业的整体运作，企业员工的工资是企业资金管理的一个重要的组成部分，因为企业每个月都要涉及发放企业员工工资的问题。

而随着企业人员数量的增加，企业的工资管理也变得越来越复杂。

企业员工的人数越多，工资的统计工作就越多，工资的发放困难就越大。

如果能够实现工资管理的自动化，无疑将给企业管理部门带来很大的方便。

传统的纸质材料的数据信息管理方式已经不适合现代企业公司的发展了，实现工资管理的系统化、规范化、自动化，将成为现代公司管理工资的首选。

随着计算机的诞生和普及以及计算机网络的发展，我们就可以开发一个工资管理系统，用电脑代替大量的人工统计和计算，完成许多工资信息的处理，同时，使用电脑还可以安全地、完整地保存大量的工作记录。

1系统设计使用的工具、环境简介

系统设计使用的工具主要有VisualFoxPro6.0，现简介如下。

1.1VFP的简介

VisualFoxPro6.0是由美国Microsoft公司于1998年推出的新一代数据库软件系统。

VisualFoxPro数据库是一个关系型数据库，主要用于Windows环境。

由于VisualFoxPro需要很少编程就可以建立一个面向对象的数据库应用程序，所以在众多的数据库软件中，VisualFoxPro拖颖而出，成为一种通用的数据库软件。

利用VisualFoxPro可以设计出丰富多彩的用户界面，在用户界面中可以放置各种控制部件，如命令按钮，图形，图片，图表等，从而设计出完全图形化的界面，方便用户操作和使用。

1.2VFP的基本功能

1）可以为每一种类型的信息创建一个表，利用表存储相应的信息。

2）可以定义各个表之间的关系，从而很容易地将各个表中相关的数据有机地联系在一起。

3）可以创建查询搜索那些满足指定条件的记录，也可以根据需要对这些记录排序和分组，并根据查询结果创建报表、表及图表。

4）使用视图，可以从一个或多个相关联的表中，按一定条件抽取一系列数据，并可以通过视图更新这些表中的数据。

5）可以创建表单来直接查看和管理表中的数据。

6）可以创建一个报表来分析数据或将数据以特定的方式打印出来。

1.3VFP的特点

与其他数据库不同，VFP在实现上述功能时提供了各种向导，用户在操作时，只需按照向导所提供的步骤执行，使用起来非常方便。

1）易于使用

2）可视化开发

3）事件驱动

4）面向对象编程

5）应用向导和生成器

6）组件库

7）VFP基础类

8）活动文档

9）对动态图形文件的支持

10）程序语言的增强

11）支持OLE拖放

12）新增和改进的生成器和编译器

2系统分析

2.1设计目标和任务

2.1.1目标

企业工资管理系统使用电脑安全保存、快速计算、全面统计，实现工资管理的系统化、规范化、自动化。

本企业工资管理系统极大提高了工作效率，节省了人力和物力，最终满足企业财务管理、员工工资发放的需要，同时也成为现代化企业管理的标志通过此系统，实现工资管理的完全信息化和数字化。

2.1.2任务

为了加快企业自动化的步伐，建立工资管理系统，尽可能地减少工资管理的复杂性和低效性。

运用数据库、VFP等相关知识来编写系统，系统的开发包括系统分析、需求设计、各功能模块的开发及代码设计。

系统应具备基本的信息输入、修改、查询、统计及结果的输出。

2.2可行性分析

以下从四个方面对企业工资管理系统进行可行性分析：

技术可行性、经济可行性、操作可行性和法律可行性。

²技术可行性

为了确定现有技术能否实现目标系统。

VFP6.0自带的工具和控件，完全可以实现本系统要求达到的各种功能。

²经济可行性

为了确定待开发的系统的经济效益能否超过开发成本。

企业工资管理系统是一个不会直接产生经济效益的投资，但是能够节省人员资源的消耗和浪费，从而节约成本，提高效率。

从成本效益角度来观察，这个系统的开发成本不是很高，在使用后，能够起到的作用也是十分可观的。

²操作可行性

企业工资管理系统是基于VFP6.0平台

开发的，VFP系列是被广泛应用于数据库开发和操作的一套成熟的软件平台，而且它对于一个小型的数据库处理具有不可比拟的优点和简单方便。

所以丛操作可行性方面是可行的。

开发出来的界面也是十分容易使用，具有简单，容易上手的特点。

²法律可行性

本系统完全是本人在指导老师的指导下独立完成的，故不存在侵权行为或者由于本系统带来的法律纠纷等问题，所以在法律上是可行的。

所以从上面四点出发，可以确定系统分析是可行的。

2.3需求分析

2.3.1总体需求

1.建立对企业员工工资全面管理的信息系统；

2.对所有的职工提供全面管理;

3.对系统的安全提供全面管理；

4.对职工信息的添加、删除提供全面管理；

2.3.2功能需求

（1）对工资记录进行录入。

（2）对工资信息进行查找。

（3）对多个工资记录进行浏览。

（4）对记录进行满足各种实际需要的修改。

（5）对各项工资的总和和总的人数进行统计。

（6）对记录进行打印。

2.3.3性能需求

（1）硬件配置

中央处理器：

硬盘10G

内存16M

显卡SVGA

光驱CD-ROM

（2）软件环境

操作系统WINDOWS2000/WINDOWSXP/WINDOWSME

3企业工资管理系统功能模块图

登录窗口

系统主窗口

工资记录浏览

工资记录统计

工资记录查询

工资记录修改

工资记录录入

退出系统

工资记录管理

数据初始化

数据备份

记录打印

系统帮助

退出系统

图3-1企业工资管理系统功能模块图

4主要功能模块设计

4.1项目的建立

A．在硬盘上建一个目录

B．启动VFP系统，在“项目管理器”窗口中建立一个项目，项目的名称为“工资管理系统”，保存到新建的目录中，如图4-1所示。

图4-1项目的建立

4.2用户登陆

为了保证应用程序的安全，通常要设计系统登录表单验证用户是否合法。

只有合法的用户才可进入系统。

本模块是系统的封面表单，运行时将通过此表单调用主控模块，进而管理整个工资管理系统。

系统登录模块运行结果。

如图4-2所示。

图4-2用户登陆

23

表单的设计

表单form的属性

Autocenter改为：

.T.-真（运行时居中）

BorderStyle改为：

2-固定对话框（禁止更改表单大小）

Showtips改为：

.T.–真（指定表单上的控件等是否显示提示信息）

ShowWindow改为：

2-作为顶层表单

在表单的Form_Load事件下添加如下代码：

PUBLICUSERNAME

（2）

USERNAME

（1）='超级用户'

USERNAME

（2）='普通用户'

登陆系统Command1_Click事件代码：

STORE''TOMYUSER,P1,P2,P3

MYUSER=THISFORM.COMBO1.VALUE

P1=ALLTRIM（THISFORM.TEXT1.VALUE）

P2=LEFT（ALLTRIM（TIME（））,2）+SUBSTR（ALLTRIM（TIME（））,4,2）

P3=ALLTRIM（STR（YEAR（DATE（））））

IFMYUSER=USERNAME

（1）

IFP1=P3

THISFORM.RELEASE

doformgzgl

ELSE

=MESSAGEBOX（"超级用户密码错误,请再试一遍!

",65,'提示信息'）

ENDIF

ELSE

IFP1=P2

THISFORM.RELEASE

doformgzgl

ELSE

=MESSAGEBOX（"普通用户密码错误,请再试一遍!

",65,'提示信息'）

ENDIF

ENDIF

4.3系统主菜单设计

A．在“项目管理器”窗口中，选择“其他”选项卡

B．在“其他”选项卡中，选择“菜单”，“新建”，“菜单”，系统进入“菜单设计 器”窗口，如图4-3所示。

图4-3系统菜单设计器

退出过程相应代码：

byebye=messagebox（"真的要退出系统吗?

",64+1,"提示信息"）

ifbyebye=1

closeall

clearevents

quit

endif

要注意的是，要在设计菜单结束后，选择主菜单上的“显示”菜单下的“常规选项”命令，再选择顶层表单复选框。

然后保存文件，再选择生成菜单选项。

4.4系统主控表单设计

主控表单用来调用系统菜单，以形成对整个工资管理系统的控制与管理。

运行结果。

如图4-4所示。

图4-4系统主控表单

本表单form的属性需做相应设置：

Showwindow=2

Windowstate=2

Showtips=.t.

Form表单中的load事件代码为

Doxtcd.mprwiththis,.t.

4.5工资录入表单设计

工资录入模块是用来录入工资记录的，在具体操作时有些数据需要自动生成。

运行结果，如图4-5所示。

图4-5工资录入表

Form1表单的属性如下：

Autocenter=.t.

Showwindow=1

相应事件代码设置：

Txt应发工资的Click和gotfocus的代码如下：

withthis.parent

this.value=.TXT职务工资.value+.TXT综合补贴.value+.TXT出勤补.value+.TXT交通补.value+.TXT外租房补.value+.TXT补发工资.value

endwith

Txt合计扣款的Click和gotfocus的代码如下：

withthis.parent

this.value=.TXT养老保险.value+.TXT公积金.value

endwith

Txt实发工资的Click和gotfocus的代码如下：

withthis.parent

this.value=.TXT应发工资.value-.TXT合计扣款.value

endwith

txt所得税、txt实发现金的代码与其类似略去。

各个按钮的功能比较简单，在此略去。

4.6工资浏览表单设计

本表单用来对多个记录进行浏览，运行结果，如图4-6所示。

图4-6工资浏览

此表单功能较简单，其中所用控件代码，在此省略。

4.7工资修改表单设计

此表单由页框控件组成，该页框由四个页面组成。

第一个页面：

对查找满足条件的记录进行修改

图4-7-1对满足条件的记录修改

第二个页面：

将已查找的记录显示在屏幕上，进行修改，即单个记录的修改

图4-7-2对已找到的记录进行修改

第三个页面：

批量修改已满足条件的记录，也可以修改某一字段的内容。

图4-7-3批量修改

第四个页面：

浏览式修改记录，在列表框中选择一个记录，在屏幕上显示选定记录的内容，可以修改记录。

图4-7-4浏览式修改

text1_Interactivechange事件代码：

setexactoff

GETzgh1=ALLTRIM（thisform.pageframe1.page1.TEXT1.VALUE）

GETxm1=ALLTRIM（thisform.pageframe1.page1.TEXT2.VALUE）

GETrq1=thisform.pageframe1.page1.TEXT3.VALUE

s=''

iflen（getzgh1）>0

s=s+'职工号=GETZGH1'

endif

iflen（getxm1）>0

s=s+'.and.'+'姓名=GETXM1'

endif

ifGETRQ1<>{//}

s=s+'.and.'+'DTOC（日期）=DTOC（GETRQ1）'

endif

ifleft（s,5）='.and.'.OR.LEFT（S,5）='.AND.'

s=subst（s,6）

endif

IFLEN（ALLTRIM（S））=0

SETFILTERTO

ELSE

setfilterto&s

ENDIF

GOTOP

THISFORM.PAGEFRAME1.PAGE2.CAPTION=姓名+"的详细内容"

THISFORM.PAGEFRAME1.PAGE1.REFRESH

THISFORM.PAGEFRAME1.PAGE2.REFRESH

Text2,Text3,Text4,的Interactivechange事件代码也类似，在此省略。

查找记录command1_Click事件代码：

ifnotempty（thisform.pageframe1.page1.text4.value）

n=val（alltrim（thisform.pageframe1.page1.text4.value））

gon

thisform.pageframe1.page2.setfocus

thisform.pageframe1.page2.caption=姓名+"的记录内容"

thisform.refresh

else

setexactoff

GETzgh1=ALLTRIM（thisform.pageframe1.page1.TEXT1.VALUE）

GETxm1=ALLTRIM（thisform.pageframe1.page1.TEXT2.VALUE）

GETrq1=thisform.pageframe1.page1.TEXT3.VALUE

s=''

iflen（getzgh1）>0

s=s+'职工号=GETZGH1'

endif

iflen（getxm1）>0

s=s+'.and.'+'姓名=GETXM1'

endif

ifGETRQ1<>{//}

s=s+'.and.'+'DTOC（日期）=DTOC（GETRQ1）'

endif

ifleft（s,5）='.and.'.OR.LEFT（S,5）='.AND.'

s=subst（s,6）

endif

IFLEN（ALLTRIM（S））=0

SETFILTERTO

ELSE

setfilterto&s

ENDIF

GOTOP

endif

THISFORM.PAGEFRAME1.PAGE2.CAPTION=姓名+"的详细内容"

THISFORM.PAGEFRAME1.PAGE1.REFRESH

THISFORM.PAGEFRAME1.PAGE2.REFRESH

删除记录command2_Click事件代码：

INOTICE=MESSAGEBOX（"确定删除指定的记录吗?

",65,"重要提示"）

IFINOTICE=1

DELETERECORDRECNO（）

ANOTICE=MESSAGEBOX（"确定物理删除指定的记录吗?

"+CHR（13）+"一经删除,不能恢复!

!

!

",65,"重要提示"）

IFANOTICE=1

use

usegzb

PACK

use

thisform.release

ENDIF

THISFORM.REFRESH

ENDIF

恢复记录command3_Click事件代码：

INOTICE=MESSAGEBOX（"恢复所有逻辑删除的记录吗?

",65,"提示信息"）

IFINOTICE=1

RECALLALL

ENDIF

自动计算Click事件代码：

withthis.parent

.TXT应发工资.VALUE=.TXT职务工资.value+.TXT综合补贴.value+.TXT出勤补.value+.TXT交通补.value+.TXT外租房补.value+.TXT补发工资.value

.TXT合计扣款.VALUE=.TXT养老保险.value+.TXT公积金.value

.TXT实发工资.VALUE=.TXT应发工资.value-.TXT合计扣款.value

.TXT实发现金.VALUE=.TXT实发工资.value-.TXT所得税.value

ifthis.parent.TXT实发工资.value>800

*如果工资高于800，则有所得税，费为5%

.TXT所得税.VALUE=（this.parent.TXT实发工资.value-800）*0.05

endif

endwith

确认修改Click事件代码

A=MESSAGEBOX（"确定更改指定的项目吗?

",65,"提示信息"）

IFA=1&&选择确定按钮时执行

replaceall职务工资WITH职务工资+THIS.PARENT.TEXT4.VALUE

replaceall应发工资WITH应发工资+THIS.PARENT.TEXT4.VALUE

replaceall实发工资WITH实发工资+THIS.PARENT.TEXT4.VALUE

replaceall公积金WITH公积金+THIS.PARENT.TEXT5.VALUE

replaceall应发工资WITH应发工资+THIS.PARENT.TEXT5.VALUE

replaceall实发工资WITH实发工资+THIS.PARENT.TEXT5.VALUE

replaceall养老保险WITH养老保险+THIS.PARENT.TEXT6.VALUE

replaceall应发工资WITH应发工资+THIS.PARENT.TEXT6.VALUE

replaceall实发工资WITH实发工资+THIS.PARENT.TEXT6.VALUE

replaceall所得税withiif（实发工资-800>0,（实发工资-800）*0.05,0）

replaceall实发现金with实发工资-所得税

THIS.PARENT.TEXT4.VALUE=0