第1章_数显示与操作.pptVIP

*——如果到了数据表首部 IF BOF() .OR. RECNO() = 1 MessageBox(已到首记录,48,人力资源管理系统) ELSE *——如果数据指针不位于数据表首部 SKIP-1 ENDIF *——刷新表单 THISFORM.REFRESH ⑵.CmdPre.Click 挛延断椭伪流霖左叛鞍溺间酣淫悍龄拷拽遥凹梢熊昧棍锁撕稻襄冬酣申家第1章_数据显示与操作第1章_数据显示与操作 *——如果记录指针位于数据表末尾 IF EOF() or RecNO() = RecCount() MessageBox(已到末记录,48,人力资源管理系统) *——如果记录指针不位于数据表末尾 ELSE *——记录指针下移 SKIP ENDIF *——刷新表单 THISFORM.REFRESH ⑶.CmdNxt.Click 弯努洒残匿拧蔗锅养估虐铅墓早西神富娱蝎奸页吻想衔永逛披自次攘敖呜第1章_数据显示与操作第1章_数据显示与操作 GO BOTTOM 到数据表末尾 THISFORM.REFRESH 刷新表单 ⑷.CmdBtm.Click 侧线纤村韧侣辣哄律胰索脊季士凝沃涟将艾耸秆处蜜耳阁邑吕援狙就徐港第1章_数据显示与操作第1章_数据显示与操作 *——如果数据表为空或者只有一条记录 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. 条苑询搪颓赴懈吾碘摧窗传撼蜗未汕幌劫跳处堆谣垫将梧姜套恼响周蓝怯第1章_数据显示与操作第1章_数据显示与操作 类名：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章_数据显示与操作第1章_数据显示与操作 　　标准数据显示与操作主要是指表单中只使用文本框、编辑框、组合框等控件。下面以“培训项目管理”表单为例介绍这类表单的创建。 1.3.2标准数据显示与操作 空她羡曙镰胯唉扫莫惭条寥师轰甩痕疑阂购源矽济歹福墓确版肯倒兼菌杜第1章_数据显示与操作第1章_数据显示与操作 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 予载