Question

vfp编程问题

请打开D盘试题文件夹下的表单文件Program5(该表单已设置数据环境)，要求在文本框Text1中输入职工的编号，单击“计税”命令按钮：若没有该职工，显示“查无此人！”的提示框，有该职工则在文本框Text2中显示该职工应交税金金额；单击“退出”命令按钮，则关闭表单。请编写“计税”和“退出”命令按钮的代码，最后按原文件名存盘。（职工交税规定：当职工总收入（工资现状+奖金）不超过1600元时，不用交税；超过1600元的，超过部分按0.03的比例交税）。

Answer 1

计税按钮的click属性：
sele 工作环境
loca for 编号=thisform.text1.value
if foun()
if 工资现状+奖金<1600
stor 0 to thisform.text2.value
else
stor (工资现状+奖金)*0.03 to thisform.text2.value
endi
else
messagebox('查无此人！')
endi

退出：
thisform.release

Answer 2

1.计税按钮click事件：
sele 计税表
loca for 职工编号=thisform.text1.value
if found()
if 工资现状+奖金<=1600
thisform.text2.value=0
else
thisform.text2.value=(工资现状+奖金)*0.03
endi
else
messagebox('查无此人！',32,'')
endi

2.退出按钮click事件 ：
thisform.release