常见命令按钮组的代码
goto top
&;&; 指针跳到第一个记录
this.parentmand1.enabled=.f. this.parentmand2.enabled=.f. this.parentmand3.enabled=.t. this.parentmand4.enabled=.t. thisform.refresh &;&; 根据状况设置各按钮的可用状态
skip -1 if bof()
&;&; 指针后退一个 &;&; 如果已经是第一个记录
messagebox("不好意思,已是第一个记录",48,"信息窗口") this.parentmand1.enabled=.f. this.parentmand2.enabled=.f. skip &;&; 指针前进一个,使之仍然显示第一个记录
else this.parentmand1.enabled=.t. this.parentmand2.enabled=.t. endif this.parentmand3.enabled=.t. this.parentmand4.enabled=.t. thisform.refresh &;&; 根据状况设置各按钮的可用状态
skip if eof() &;&; 如果已经是最后一条记录
messagebox("不好意思,已是最后一条记录",48,"信息窗口")
skip -1
&;&; 记录后退一个,使之仍然显示最后一条记录
this.parentmand3.enabled=.f. this.parentmand4.enabled=.f. else this.parentmand3.enabled=.t. this.parentmand4.enabled=.t.
endif this.parentmand1.enabled=.t. this.parentmand2.enabled=.t. thisform.refresh
goto bottom this.parentmand3.enabled=.f. this.parentmand1.enabled=.t. this.parentmand2.enabled=.t. thisform.refresh
a=messagebox("你真的要退出吗?",4+16+0,"对话") if a=6
release thisform endif
********************* *********************
首记录
go top thisformmandgroup1dfirst.enabled=.f. thisformmandgroup1dlast.enabled=.t. thisformmandgroup1dpre.enabled=.f. thisformmandgroup1dnext.enabled=.t. thisform.refresh
末记录
go bottom this.enabled=.f. thisformmandgroup1dfirst.enabled=.t. thisformmandgroup1dpre.enabled=.t. thisformmandgroup1dnext.enabled=.f. thisform.refresh
前一条
skip -1
if bof() this.enabled=.f. thisformmandgroup1dfirst.enabled=.f. thisformmandgroup1dlast.enabled=.t. thisformmandgroup1dnext.enabled=.t. else this.enabled=.t. thisformmandgroup1dfirst.enabled=.t. thisformmandgroup1dlast.enabled=.t. thisformmandgroup1dnext.enabled=.t. endif thisform.refresh
下一条
skip 1 if eof() this.enabled=.f. thisformmandgroup1dfirst.enabled=.t. thisformmandgroup1dlast.enabled=.f. thisformmandgroup1dnext.enabled=.t. else this.enabled=.t. thisformmandgroup1dfirst.enabled=.t.
thisformmandgroup1dlast.enabled=.t. thisformmandgroup1dnext.enabled=.t. endif thisform.refresh
增加
if len(thisform.编号 1.value)=0 go bottom dele pack wait window "编号不能为空" timeout 1 endif append thisform.refresh
删除
if messagebox("确实要删除本记录么?",1+64+256,"提示")=1 delete pack skip -1 thisform.refresh endif