VFP企业工资管理系统论文Word格式文档下载.doc
《VFP企业工资管理系统论文Word格式文档下载.doc》由会员分享，可在线阅读，更多相关《VFP企业工资管理系统论文Word格式文档下载.doc（26页珍藏版）》请在冰点文库上搜索。
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
普通用户密码错误,请再试一遍!
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的代码如下：
this.value=.TXT养老保险.value+.TXT公积金.value
Txt实发工资的Click和gotfocus的代码如下：
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）>
s=s+'
职工号=GETZGH1'
endif
iflen（getxm1）>
.and.'
+'
姓名=GETXM1'
ifGETRQ1<
>
{//}
DTOC（日期）=DTOC（GETRQ1）'
ifleft（s,5）='
.OR.LEFT（S,5）='
.AND.'
s=subst（s,6）
IFLEN（ALLTRIM（S））=0
SETFILTERTO
setfilterto&
s
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
删除记录command2_Click事件代码：
INOTICE=MESSAGEBOX（"
确定删除指定的记录吗?
65,"
重要提示"
IFINOTICE=1
DELETERECORDRECNO（）
ANOTICE=MESSAGEBOX（"
确定物理删除指定的记录吗?
+CHR（13）+"
一经删除,不能恢复!
!
IFANOTICE=1
use
usegzb
PACK
use
thisform.release
THISFORM.REFRESH
恢复记录command3_Click事件代码：
恢复所有逻辑删除的记录吗?
RECALLALL
自动计算Click事件代码：
.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
确认修改Click事件代码
A=MESSAGEBOX（"
确定更改指定的项目吗?
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
升级会员 