删除.prg

来自「车辆管理系统 车辆管理系统」· PRG 代码 · 共 30 行

CLEAR 
SET CONS ON
SET COLO TO W+/R
@ 2,50 SAY 'F2:退出'
SELE 2
X=2
DO WHILE .T.
TT='N'
X=X+2
SET COLO TO GR+/0
@ X,2 SAY ' '
ACCE '请输入删除车牌号：'TO SHXX
@ X+1,2 SAY ' '
ACCE '是否确认(Y/N):' TO TT
IF TT='Y' 
@ 15,30 SAY '现在开始删除，请稍候！'
DELE FOR SH=SHXX FROM 车辆基本信息
@ 15,30 SAY '删除完毕，按回车键继续……'
TT='N'
ENDIF
IF INKEY(0)=-1
SET CONS OFF
PACK
EXIT
ENDIF
ENDDO
CLEA
RETU