一、在表单窗口单击右键，选择“代码”，在“过程”下拉列表框中选择“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 |
|
|
