VFP常见命令按钮组的代码.doc

常见命令按钮组的代码 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