代码”, 过程 下拉列表框中选择“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 &;&;使【下一条】按钮不可用 &;&;使【最后一条】按钮不可用 &;&;使【第一条】按钮可用 &;&;使【上一条】按钮可用