清例421社一个可利用功能键为SBDE添加记录、删除或恢复记录的浏览窗口 prg PUSH KEY CLEAR &&清除以前设置过的功能键 on KEY LABEL f4 do tj &&F4一设置添加记录功能键 on KEY LABEL f5 do schf &&F5一设置删除/恢复功能键 oN KEY LABEL f6 do pk &&F6一清除有删除标记的记录 bs=" BROWSE TITLE’设备表+ F4:添加F5:删除/恢复F6:清除 USE sb &bs ProCeduRE tj &&添加记录 APPEND BLANK &&添加一个记录 PROCEDURE Schf &&删除/恢复记录处理 IF DELETED O &&记录有删除标记返回.T RECALL &&当前记录有删除标记则取消它,即恢复记录 ELSE DELETE &&当前记录无删除标记则打上删除标记 ENDIF PROCEdURE pk &&清除有删除标记的记录 PACK &&清除有删除标记的记录,浏览窗口被关闭 &bs &&重新打开浏览窗口 「删设备表 F4:添加F5删除/恢复F清除 口区 设备编号『名称启用日期价格部门住要设备备注商标 016-1车床 03/05/90620446121T Memo gen 016-2车床01/15/9227132.7321T emo: gen 037-2磨床 241292.1222T memo: gen 03-1钻床1019527500231 Memo! gen 08/12/07 991nnn:19[例4-21] 设计一个可利用功能键为SB.DBF添加记录、删除或恢复记录的浏览窗口。 * e4-21.prg PUSH KEY CLEAR && 清除以前设置过的功能键 ON KEY LABEL f4 DO tj && F4 — 设置添加记录功能键 ON KEY LABEL f5 DO schf && F5 — 设置删除/恢复功能键 ON KEY LABEL f6 DO pk && F6 — 清除有删除标记的记录 bs="BROWSE TITLE '设 备 表'+' F4:添加 F5:删除/恢复 F6:清除'" USE sb &bs PROCEDURE tj && 添加记录 APPEND BLANK && 添加一个记录 PROCEDURE schf && 删除/恢复记录处理 IF DELETED() && 记录有删除标记返回.T. RECALL && 当前记录有删除标记则取消它, 即恢复记录 ELSE DELETE && 当前记录无删除标记则打上删除标记 ENDIF PROCEDURE pk && 清除有删除标记的记录 PACK && 清除有删除标记的记录,浏览窗口被关闭 &bs && 重新打开浏览窗口