第1章数据显示操作.pptVIP

*——如果到了数据表首部 IF BOF() .OR. RECNO() = 1 MessageBox(已到首记录,48,人力资源管理系统) ELSE *——如果数据指针不位于数据表首部 SKIP-1 ENDIF *——刷新表单 THISFORM.REFRESH ⑵.CmdPre.Click *——如果记录指针位于数据表末尾 IF EOF() or RecNO() = RecCount() MessageBox(已到末记录,48,人力资源管理系统) *——如果记录指针不位于数据表末尾 ELSE *——记录指针下移 SKIP ENDIF *——刷新表单 THISFORM.REFRESH ⑶.CmdNxt.Click GO BOTTOM 到数据表末尾 THISFORM.REFRESH 刷新表单 ⑷.CmdBtm.Click *——如果数据表为空或者只有一条记录 IF BOF() .AND. EOF() .OR. RECCOUNT()=1 THIS.Cmdtop.ENABLED=.F. THIS.Cmdpre.ENABLED=.F. THIS.Cmdnxt.ENABLED=.F. THIS.Cmdbtm.ENABLED=.F. Return ENDIF *——如果在记录指针在数据表的