VFP常见命令按钮组的代码
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
常见命令按钮组的代码
goto top && 指针跳到第一个记录
mand1.enabled=.f.
mand2.enabled=.f.
mand3.enabled=.t.
mand4.enabled=.t. && 根据状况设置各按钮的可用状态thisform.refresh
skip -1 && 指针后退一个
if bof() && 如果已经是第一个记录
messagebox("不好意思，已是第一个记录",48,"信息窗口")
mand1.enabled=.f.
mand2.enabled=.f.
skip && 指针前进一个，使之仍然显示第一个记录
else
mand1.enabled=.t.
mand2.enabled=.t.
endif
mand3.enabled=.t.
mand4.enabled=.t. && 根据状况设置各按钮的可用状态thisform.refresh
skip
if eof() && 如果已经是最后一条记录
messagebox("不好意思，已是最后一条记录",48,"信息窗口")
skip -1 && 记录后退一个，使之仍然显示最后一条记录mand3.enabled=.f.
mand4.enabled=.f.
else
mand3.enabled=.t.
mand4.enabled=.t.
endif
mand1.enabled=.t.
mand2.enabled=.t.
thisform.refresh
goto bottom
mand3.enabled=.f. mand1.enabled=.t. mand2.enabled=.t. thisform.refresh
a=messagebox("你真的要退出吗?",4+16+0,"对话") if a=6
release thisform
endif
********************* ********************* 首记录
go top
dfirst.enabled=.f. dlast.enabled=.t. dpre.enabled=.f. dnext.enabled=.t. thisform.refresh
末记录
go bottom
this.enabled=.f.
dfirst.enabled=.t. dpre.enabled=.t. dnext.enabled=.f. thisform.refresh
前一条
skip -1
if bof()
this.enabled=.f.
dfirst.enabled=.f. dlast.enabled=.t. dnext.enabled=.t. else
this.enabled=.t.
dfirst.enabled=.t. dlast.enabled=.t. dnext.enabled=.t. endif
thisform.refresh
下一条
skip 1
if eof()
this.enabled=.f.
dfirst.enabled=.t. dlast.enabled=.f. dnext.enabled=.t. else
this.enabled=.t.
dfirst.enabled=.t.
dlast.enabled=.t. dnext.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