VFP常见命令按钮组的代码

《VFP常见命令按钮组的代码》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、常见命令按钮组的代码gototop&&指针跳到第一个记录this.parent.command1.enabled=.f.this.parent.command2.enabled=.f.this.parent.command3.enabled=.t.this.parent.command4.enabled=.t.&&根据状况设置各按钮的可用状态thisform.refreshskip-1&&指针后退一个ifbof()&&如果已经是第一个记录messagebox("不好意思，已是第一个记录",48,"信息窗口")this.parent.command1.

2、enabled=.f.this.parent.command2.enabled=.f.skip&&指针前进一个，使之仍然显示第一个记录elsethis.parent.command1.enabled=.t.this.parent.command2.enabled=.t.endifthis.parent.command3.enabled=.t.this.parent.command4.enabled=.t.&&根据状况设置各按钮的可用状态thisform.refreshskipifeof()&&如果已经是最后一条记录messagebox("不好意思，已

3、是最后一条记录",48,"信息窗口")skip-1&&记录后退一个，使之仍然显示最后一条记录this.parent.command3.enabled=.f.this.parent.command4.enabled=.f.elsethis.parent.command3.enabled=.t.this.parent.command4.enabled=.t.endifthis.parent.command1.enabled=.t.this.parent.command2.enabled=.t.thisform.refreshgotobottomthis.

4、parent.command3.enabled=.f.this.parent.command1.enabled=.t.this.parent.command2.enabled=.t.thisform.refresha=messagebox("你真的要退出吗?",4+16+0,"对话")ifa=6releasethisformendif******************************************首记录gotopthisform.commandgroup1.comdfirst.enabled=.f.thisform.command

5、group1.comdlast.enabled=.t.thisform.commandgroup1.comdpre.enabled=.f.thisform.commandgroup1.comdnext.enabled=.t.thisform.refresh末记录gobottomthis.enabled=.f.thisform.commandgroup1.comdfirst.enabled=.t.thisform.commandgroup1.comdpre.enabled=.t.thisform.commandgroup1.comdnext.enabl

6、ed=.f.thisform.refresh前一条skip-1ifbof()this.enabled=.f.thisform.commandgroup1.comdfirst.enabled=.f.thisform.commandgroup1.comdlast.enabled=.t.thisform.commandgroup1.comdnext.enabled=.t.elsethis.enabled=.t.thisform.commandgroup1.comdfirst.enabled=.t.thisform.commandgroup1.comdlas

7、t.enabled=.t.thisform.commandgroup1.comdnext.enabled=.t.endifthisform.refresh下一条skip1ifeof()this.enabled=.f.thisform.commandgroup1.comdfirst.enabled=.t.thisform.commandgroup1.comdlast.enabled=.f.thisform.commandgroup1.comdnext.enabled=.t.elsethis.enabled=.t.thisform.commandgrou

8、p1.comdfirst.enabled=.t.thisform.commandgroup1.comdlas