CASE XZ=5 www.khda课后答w.co案网m DO XS CASE XZ=6 DO CX CASE XZ=0
WAIT”系统关闭！” WINDOW TIMEOUT 1 EXIT ENDCASE ENDDO USE CLEAR SET TALK ON ***************** PROCEDURE SR
?”记录输入结束后按CTRL+W键存盘。” APPEND
***************** PROCEDURE XG
?” 记录修改结束后按CTRL+W键存盘。” GO 1 BROWSE
***************** PROCEDURE CR
?”将浏览窗口中的光标移到新纪录要插入的位置，按ESC键继续”JLH=RECNO()
IF RECNO() APPEND BLANK BROWSE APPEND FORM QU DELDTE FILE QY.DBF GO JLH+1 ELSE APPEND BLANK ENDIF APPEND BLANK ENDIF @8,0CLEAR @24,0 SAY “输入要插入的数据，然后按CTRL+W键存盘退出。“ BROWSE ************* PROCEDURE SC ?”选定要删除的记录，再按标题栏中的提示，按F5或F6键操作。” PSH KEY CLEAR ON KEY CLEAR ON KEY LABEL F5 DO SCHF ON KEY LABEL F6 DO PK BROWSE TITLE ‘通讯录’+’” PROCEDURE SCHF IF DELETED() RECALL ELSE DELETE ENDIF PROCEDURE PK PACK ************* PROCEDURE XS ?“按法 键按姓名拼音顺序显示，按F6键按邮政编码升序显示，按ESC 键结束 显示。” PUSH KEY CLEAR ON KEY LABEL F5 DO XMPY ON KEY LABLE F6 DO YZBM BROWSE TITLE ‘通讯录‘+’ NOAPPEND NOMODIFY PROCEDURE XMPY INDEX ON 姓名 TAG XM BROWSE TITLE ‘通讯录’+’ 按姓名拼音顺序显示’; NOAPPEND NOMODIFY REOWSE TO MASTER PROCEDURE UZBM INDEX ON 邮政编码 TAG YBM BROWSE TITLE ‘通讯录’+’ NOAPPEND NOMODIFY REOWSE TO MASTER ************************ PROCEDURE CX FLAG=’1’ @8,0 CLEAR @8,5SAY”” INPUT SPACE(5)+”请输入姓名：” TO YCXM READ YCXM1=ALLTRIM(YCXM1”$姓名 IF FOUND() ?”按ESC继续??.” BROWSE TITLE ‘通讯录’+’SPACE(5)+’&YCXM’+资料‘ 佛如“&YCXM1”$姓名； NOAPPEND NOMODIFY www.khda课后答w.co案网m ELSE @10,5 SAY “查无此人！“ Endif@20，0 CLEAR @20,5 SAY “” INTPUT SPACE(5)+”是否继续查询（一、你）：” TO YN IF UPPER(YN)=”N” FLAG=’0’ ENDIF ENDDO