第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 *——如果在记录指针在数据表的末尾 IF RECNO()=RECCOUNT() .OR. EOF() THIS.Cmdtop.ENABLED=.T. THIS.Cmdpre.ENABLED=.T. THIS.Cmdnxt.ENABLED=.F. THIS.Cmdbtm.ENABLED=.F. RETURN ENDIF ⑸.MyMove.Refresh *——如果记录指针在数据表的首部 IF RECNO()=1 .OR. BOF() THIS.Cmdtop.ENABLED=.F. THIS.Cmdpre.ENABLED=.F. THIS.Cmdnxt.ENABLED=.T. THIS.Cmdbtm.ENABLED=.T. RETURN ENDIF *——如果记录指针不在数据表的首部 *也不在尾部 THIS.Cmdtop.ENABLED=.T. THIS.Cmdpre.ENABLED=.T. THIS.Cmdnxt.ENABLED=.T. THIS.Cmdbtm.ENABLED=.T. 类名：MoreAdmin 基类：Container存储：MyTools 在该类的设计器窗口内添加7个MyCmd类对象。对象名依次为：CmdNew/CmdModify/CmdDel/CmdSer/ CmdSave/CmdCcl/CmdExit。Caption、ToolTipText属性值参照左图自行定义。 该类中只添加“退出”钮的Click过程，其他为空。 *CmdExit.Click LOCAL YN YN=MESSAGEBOX(确定退出,4+32,人力资源管理系统) IF YN=6 THISFORM.RELEASE ENDIF 3.创建操作记录类 　　标准数据显示与操作主要是指表单中只使用文本框、编辑框、组合框等控件。下面以“培训项目管理”表单为例介绍这类表单的创建。 1.3.2标准数据显示与操作 TRAINPRJ.DBF(该表在前面1.1.3中已经创建) 字段 字段名 类型 宽度 索引 Nulls 说明 1 项目编号 字符型 4 升序 否 输入掩码9999 2 培训主题 字符型 40 否 3 开始日期 日期型 8 否 4 结束日期 日期型 8 否 5 培训人 字符型 30 6 培训费用 整型 4 7 培训内容 备注型 4 8 培训说明 备注型 4 1.创建表TrainPrj 设置数据环境及表属性： 在项目管理器中新建一个表单，命名为 TrainPrj，将表TrainPrj添加到该表单的数据环境中。设置数据环境中该表属性BufferModeOverRide=2-保守式行缓冲，Exclusive=.T.。 BufferModeOverRide属性说明： 该属性=2时，在表单上修改当前记录的数据不直接写入表，而是先写入缓冲区。使用函数TableUpdate(.F.)将当前1条记录写入表可， TableUpdate(.T.)将所有缓冲记录写入表，该函数返回.T.表示写入成功。TableRevert(.F.或.T.),为放弃对表当前/全部记录的修改。 2.创建表单TrainPrj AutoCenter=.T. BorderStyle=2