VFP工资管理系统
THISFORM.TXT外租房补.VALUE=A5 THISFORM.TXT补发工资.VALUE=A6 THISFORM.TXT应发工资.VALUE=A7 THISFORM.TXT养老保险.VALUE=A8 THISFORM.TXT公积金.VALUE=A9 THISFORM.TXT合计扣款.VALUE=A10 THISFORM.TXT实发工资.VALUE=A11 THISFORM.TXT所得税.VALUE=A12 THISFORM.TXT实发现金.VALUE=A13 THISFORM.TEXT1.VALUE=XYZ *THISFORM.REFRESH
5.9 工资查找表单设计
该模块主要功能是实现对工资信息的查找工作。
图5-9-1查找满足条件的记录
- 25 -
VFP工资管理系统
第二页面
图5-9-2详细内容
查看详细内容command1_Click事件代码： thisform.pageframe1.page2.setfocus thisform.refresh
返回上一页command1_Click事件代码： thisform.pageframe1.page1.setfocus thisform.pageframe1.page1.refresh
Text1, Text2,Text3,的Interactivechange事件代码与修改中也类似，在此省略。
5.10 工资初始化表单设计
本模块是对下个月的工资记录进行初始化，该表单包括的内容如下：
- 26 -
VFP工资管理系统
图5-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
5.11 记录打印表单设计
本表单用来实现对记录的打印，共有两种打印模式：打印工资表和打印工资条。运行结果如图5-11所示。
图5-11记录打印
表单form1的init事件代码为： PARAMETERS TJ
- 27 -
VFP工资管理系统
PUBLIC TIAOJIAN TIAOJIAN =TJ
打印command1_Click事件代码： xyz=recno() do case
case thisform.optiongroup1.value=1 if thisform.optiongroup2.value=1 report form gzt.frx envi prev else
report form gzb.frx envi prev endif
case thisform.optiongroup1.value=2 if thisform.optiongroup2.value=1 report form gzt.frx envi prev else
report form gzb.frx envi prev endif
case thisform.optiongroup1.value=3 if thisform.optiongroup2.value=1 report form gzt.frx envi prev else
report form gzb.frx envi prev endif
5.12 系统帮助表单设计
- 28 -
VFP工资管理系统
该表单包括的内容如下
图5-12系统帮助
5.13主程序的设计
A．在“项目管理器”窗口中，单击“代码”选项卡，选择“程序”，并单击“新建”按钮，即可创建程序文件。
工资主程序的代码内容如下： close all clear all clear screen =setpath() do form fm read events
on shutdown do OnShutDown() function setpath() local lcsys16,lcprogram lcsys16=sys(16)
lcprogram=substr(lcsys16,at(\ cd left(lcprogram,rat(\ set path to gzgl
- 29 -