VFP：【第一条】、【上一条】、【下一条】、【最后一条】命令按钮控件代码

 

一、在表单窗口单击右键，选择“代码”，在“过程”下拉列表框中选择“Init”，在下部代码窗口输入以下代码：

Public 首记录,末记录

GO BOTTOM

末记录 = recno()

GO TOP

首记录 = recno()

Thisform.第一条.enabled = .F.

Thisform.上一条.enabled = .F.

二、在表单中加入四个命令按钮控件，把它们的Caption属性依次改为“第一条”、“上一条”、“下一条”、“最后一条”，Name属性也依次改为“第一条”、“上一条”、“下一条”、“最后一条”，并分别为它们输入Click过程代码。

【第一条】click事件代码

IF recno() = 末记录

Thisform.下一条.enabled=.t.   &&使【下一条】按钮可用

Thisform.最后一条.enabled=.t.   &&使【最后一条】按钮可用

ENDIF

GO TOP

Thisform.第一条.enabled=.f.   &&使【第一条】按钮不可用

Thisform.上一条.enabled=.f.   &&使【上一条】按钮不可用

Thisform.refresh

【上一条】click事件代码

IF recno() = 末记录

Thisform.下一条.enabled=.t.   &&使【下一条】按钮可用

Thisform.最后一条.enabled=.t.   &&使【最后一条】按钮可用

ENDIF

SKIP -1

IF recno() = 首记录

Thisform.第一条.enabled=.f.   &&使【第一条】按钮不可用

Thisform.上一条.enabled=.f.   &&使【上一条】按钮不可用

     thisform.refresh

     messagebox("已经是第一条纪录！",0,"纪录情况")

ENDIF

     thisform.refresh

【下一条】click事件代码

IF recno() = 首记录

Thisform.第一条.enabled=.t.   &&使【第一条】按钮可用

Thisform.上一条.enabled=.t.   &&使【上一条】按钮可用

ENDIF

SKIP 1

IF recno() = 末记录

Thisform.下一条.enabled=.f.   &&使【下一条】按钮不可用

Thisform.最后一条.enabled=.f.   &&使【最后一条】按钮不可用

     thisform.refresh

     messagebox("已经是最后一条纪录！",0,"纪录情况")

ENDIF

thisform.refresh

【最后一条】click事件代码

thisform.text1.value = "" &&清除答案输入文本框原有内容

IF recno() = 首记录

Thisform.第一条.enabled=.t.   &&使【第一条】按钮可用

Thisform.上一条.enabled=.t.   &&使【上一条】按钮可用

ENDIF

GO BOTTOM

Thisform.下一条.enabled=.f.   &&使【下一条】按钮不可用

Thisform.最后一条.enabled=.f.   &&使【最后一条】按钮不可用

thisform.refresh