编程4】利用循环和分支结构实现按编号删除 student库中记录。库中有字段:编号(c,6),姓名(c,8)。 SET TALK OFF USE STUDENT NDE ON编号TObh DO WHILE T ACCEPT"请输入要删除记录的编号:"TObh SEEK bh IF FOUNDO DELE ELSE ?"查无此人!" ENDIF WAT"是否继续删除(Y/N)?"TOk IF UPPER(k)=N EXIT ENDIF ENDDO PACK SET TALK ON FoxproForWindowshttp://cc.synu.edu.cn 5FoxPro For Windows http://cc.synu.edu.cn 5 【编程4】利用循环和分支结构实现按编号删除 student库中记录。库中有字段：编号(c,6)，姓名(c,8)。 SET TALK OFF USE STUDENT INDE ON 编号 TO bh DO WHILE .T. ACCEPT "请输入要删除记录的编号：" TO bh SEEK bh IF FOUND() DELE ELSE ? "查无此人！" ENDIF WAIT " 是否继续删除(Y/N)？" TO k IF UPPER(k)="N" EXIT ENDIF ENDDO PACK SET TALK ON