件 gzjs.scx,按要求完成以下程序:编程实现各个按 钮的 click 事件,最后按原文件名存盘。 (15 分) 说明: 首记录:使窗口显示第一个数据; 末记录:使窗口显示最后一个数据; 上一个记录:使窗口显示上一个记录; 下一个记录:使窗口显示下一个记录; 计算实发工资:计算当前显示记录的实发工资(实发工资为技能、岗位、浮动、其他 工资之和减去扣款小计) ; 退出:关闭窗口。 解:编写代码如下: 双击命令按钮组,打开代码编辑器 (1)选择对象为 command1,过程为 click,输入代码为: go top thisform.refresh (2) 选择对象为 command2,过程为 click,输入代码为: go bottom thisform.refresh
(3) 选择对象为 command3,过程为 click,输入代码为: If .not. Bof() Skip -1 Endif Thisform.Refresh (4) 选择对象为 command4,过程为 click,输入代码为: If .not. Eof() Skip 1 Endif Thisform.Refresh (5) 选择对象为 command5,过程为 click,输入代码为: Replace all 实发工资 with 技能工资+岗位工资+浮动工资+其他工资-扣款小计 thisform.refresh (5) 选择对象为 command6,过程为 click,输入代码为: thisform.release