(第12章 工资管理系统.ppt

在各个事件中添加代码的方法 （1） ① 在page4的init事件中添加如下代码： mand2.enabled=.f. ② 双击“添加”按钮，在click事件中添加代码如下： do form 工资标准添加 thisform.Refresh ③ 双击“修改”按钮，在click事件中添加代码如下： =TABLEUPDATE() =MESSAGEBOX(修改成功,48,信息窗口) thisform.Refresh ④ 双击“删除”按钮，在click事件中添加代码如下： IF MESSAGEBOX(是否删除？,36,提示信息)=6 DELETE FROM 工资标准 where 职务=ALLTRIM(bo1.value) ENDIF thisform.Refreshthisform.Refreshthisform.Refresh ⑤ 双击“退出”按钮，在click事件中添加代码如下： thisform.Release 在各个事件中添加代码的方法 （1） ⑥ 选中commandgroup1控件，单击右键，弹出快捷菜单，如图12-3-25所示。在弹出的快捷菜单中选中edit选项，进入编辑状态，双击“第一条”按钮，在click事件中添加代码如下： SELECT 工资标准 GO top this.Pmand2.Enabled=.f. this.Pmand3.Enabled=.t. this.Pmand4.Enabled=.t. bo1.ListIndex=1 thisform.refresh 在各个事件中添加代码的方法 （1） ⑦ 双击“上一条”按钮，在click事件中添加代码如下： SELECT 工资标准 IF bo1.ListIndex=1 this.Enabled=.f. this.Pmand1.Enabled=.f. this.Pmand3.Enabled=.t. this.Pmand4.Enabled=.t. ELSE SKIP -1 bo1.ListIndex=bo1.ListIndex-1 this.Enabled=.t. this.Pmand1.Enabled=.t. this.Pmand3.Enabled=.t. this.Pmand4.Enabled=.t. endif thisform.refresh 在各个事件中添加代码的方法 （1） ⑧ 双击“下一条”按钮，在click事件中添加代码如下： SELECT 工资标准 IF bo1.ListIndex=bo1.Listcount this.Enabled=.f. this.Pmand1.Enabled=.t. this.Pmand2.Enabled=.t. this.Pmand4.Enabled=.f. ELSE SKIP 1 bo1.ListIndex=bo1.ListIndex+1 this.Enabled=.t. this.Pmand1.Enabled=.t. this.Pmand2.Enabled=.t. this.Pmand4.Enabled=.t. endif thisform.refresh 在各个事件中添加代码的方法 （1） ⑨ 双击“最后一条”按钮，在click事件中添加代码如下： SELECT 工资标准 GO bottom bo1.ListIndex=bo1.ListCount this.Enabled=.f. this.Pmand1.Enabled=.t. this.Pmand2.Enabled=.t. this.Pmand3.Enabled=.f. thisform.refresh ⑩ 选中combo1控件，在对应的interactivechange事件中添加代码如下： SELECT 工资标准 z=bo1.listindex GO z thisform.refresh “工资标准添加”表单设计 （2） 在表单中单击右键，选择“数据环境”菜单项，在弹出的对话框中，将“工资标准”数据表添加到“数据环境设计器”中；在空白表单上添加8个label控件、8个text控件和3个command控件，表单设计效果如图 “加班费考勤标准”