一、在表單窗口單擊右鍵，選擇“代碼”，在“過程”下拉列表框中選擇“Init”，在下部代碼窗口輸入以下代碼：

Public 首記錄,末記錄

GO BOTTOM

末記錄 = recno()

GO TOP

首記錄 = recno()

Thisform.第一條.enabled = .F.

Thisform.上一條.enabled = .F.

二、在表單中加入四個(gè)命令按鈕控件，把它們的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("已經(jīng)是第一條紀(jì)錄！",0,"紀(jì)錄情況")

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("已經(jīng)是最后一條紀(jì)錄！",0,"紀(jì)錄情況")

ENDIF

thisform.refresh

【最后一條】click事件代碼

thisform.text1.value = "" &&清除答案輸入文本框原有內(nèi)容

IF recno() = 首記錄

Thisform.第一條.enabled=.t.   &&使【第一條】按鈕可用

Thisform.上一條.enabled=.t.   &&使【上一條】按鈕可用

ENDIF

GO BOTTOM

Thisform.下一條.enabled=.f.   &&使【下一條】按鈕不可用

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

thisform.refresh