常见命令按钮组的代码
goto top && 指针跳到第一个记录
this.parent.command1.enabled=.f.
this.parent.command2.enabled=.f.
this.parent.command3.enabled=.t.
this.parent.command4.enabled=.t. && 根据状况设置各按钮的可用状态
thisform.refresh
skip -1 && 指针后退一个
if bof() && 如果已经是第一个记录
messagebox("不好意思,已是第一个记录",48,"信息窗口")
this.parent.command1.enabled=.f.
this.parent.command2.enabled=.f.
skip && 指针前进一个,使之仍然显示第一个记录
else
this.parent.command1.enabled=.t.
this.parent.command2.enabled=.t.
endif
this.parent.command3.enabled=.t.
this.parent.command4.enabled=.t. && 根据状况设置各按钮的可用状态
thisform.refresh
skip
if eof() && 如果已经是最后一条记录