浙江长征职业技术学院毕业论文
use use gzb
资.value>800
*如果工资高于800，则有所得税，费为5% .TXT所得
税.VALUE=(this.parent.TXT实发工资.value-800)*0.05 endif endwith
确认修改Click事件代码
A=MESSAGEBOX(\确定更改指定的项目吗?\提示信息\IF A=1 &&选择确定按钮时执行 replace all 职务工资 WITH 职务工资+THIS.PARENT.TEXT4.VALUE replace all 应发工资 WITH 应发工资+THIS.PARENT.TEXT4.VALUE replace all 实发工资 WITH 实发工资+THIS.PARENT.TEXT4.VALUE replace all 公积金 WITH 公积金+THIS.PARENT.TEXT5.VALUE replace all 应发工资 WITH 应发工资+THIS.PARENT.TEXT5.VALUE replace all 实发工资 WITH 实发工资+THIS.PARENT.TEXT5.VALUE replace all 养老保险 WITH 养老保险+THIS.PARENT.TEXT6.VALUE replace all 应发工资 WITH 应发工资+THIS.PARENT.TEXT6.VALUE replace all 实发工资 WITH 实发工资+THIS.PARENT.TEXT6.VALUE replace all 所得税 with
PACK use
thisform.release ENDIF
THISFORM.REFRESH ENDIF
恢复记录command3_Click事件代码：
INOTICE=MESSAGEBOX(\恢复所有逻辑删除的记录吗?\提示信息\IF INOTICE=1 RECALL ALL ENDIF
自动计算Click事件代码：
with this.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 if this.parent.TXT实发工
13
浙江长征职业技术学院毕业论文
iif(实发工资-800>0,(实发工资-800)*0.05 ,0)
replace all 实发现金 with 实发工资- 所得税
THIS.PARENT.TEXT4.VALUE=0 4.8 工资统计表单设计
THIS.PARENT.TEXT5.VALUE=0 THIS.PARENT.TEXT6.VALUE=0 THISFORM.REFRESH ENDIF
本表单用来统计各项工资的总和以及总的人数，运行结果，如图4-8所示。
图4-8数据统计模块
开始计算command1_Click事件代码： set talk off set filter to COUNT TO XYZ
SUM TO A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13 THISFORM.TXT职务工资.VALUE=A1 THISFORM.TXT综合补贴.VALUE=A2 THISFORM.TXT出勤补.VALUE=A3 THISFORM.TXT交通补.VALUE=A4 THISFORM.TXT外租房补.VALUE=A5 THISFORM.TXT补发工资.VALUE=A6 THISFORM.TXT应发工资.VALUE=A7 THISFORM.TXT养老保险.VALUE=A8 THISFORM.TXT公积金.VALUE=A9 THISFORM.TXT合计扣款.VALUE=A10
14
浙江长征职业技术学院毕业论文
THISFORM.TXT实发工资.VALUE=A11 THISFORM.TXT所得税.VALUE=A12 THISFORM.TXT实发现金.VALUE=A13 THISFORM.TEXT1.VALUE=XYZ *THISFORM.REFRESH 4.9 工资查找表单设计
该模块主要功能是实现对工资信息的查找工作。
图4-9-1查找满足条件的记录
第二页面
图4-9-2详细内容
查看详细内容command1_Click事件代码： thisform.pageframe1.page2.setfocus thisform.refresh
15
浙江长征职业技术学院毕业论文
返回上一页command1_Click事件代码： thisform.pageframe1.page1.setfocus thisform.pageframe1.page1.refresh
Text1, Text2,Text3,的Interactivechange事件代码与修改中也类似，在此省略。
4.10 工资初始化表单设计
本模块是对下个月的工资记录进行初始化，该表单包括的内容如下：
图4-10数据初始化
初始化command1_Click事件代码： set path to
A=\下面要进行初始化,将对原来的内容进行改变,所以一定要先进行备份,否则原来的数据将丢失,\进行备份吗?\inotice=messagebox(A,65,\提示信息\if inotice=1
if file(\delete file temptemp.vfp endif
copy to temptemp.vfp
replace all 日期 with date () thisform.refresh endif
16
浙江长征职业技术学院毕业论文
4.11 工资备份表单设计
本模块是对本月的工资记录进行备份，该表单包括的内容如下：
图4-11数据库备份
备份command1_Click事件代码： ff=alltrim(thisform.text1.value) copy to &ff
4.12 记录打印表单设计
本表单用来实现对记录的打印，共有两种打印模式：打印工资表和打印工资条。运行结果如图4-12所示。
图4-12记录打印
表单form1的init事件代码为： PARAMETERS TJ PUBLIC TIAOJIAN TIAOJIAN =TJ
17