KK=KK-1
ENDDO
CLEA
USE 仓库零配件.DBF
FN=0
ACCEPT “请输入系统密码（加回车）：” TO HM
IF HM<>HAAA
?
? “密码不正确，即将退出。”
RETU
ENDIF
DO WIHLE .T.
CLEA
TXET
**********************************************************
* 主功能表 *
* 0-----退出 1-----输入零配件编号 *
* 2-----修改零配件编号 3-----插入零配件编号 *
* 4-----删除零配件编号 5-----检索零配件编号 *
* 6-----打印或显示全部零配件信息 *
**********************************************************
ENDT
INPUT “请输入相应的键进行功能的选择：” TO FN
DO CASE
CASE FN=0
CLEA
WAIT “您确定要退出了吗？（Y/N）：” TO R
IF R=”Y”
RETU
ENDIF
CASE FN=1
DO DIP.PRG
CASE FN=2
DO DRE.PRG
CASE FN=3
DO DIN.PRG
CASE FN=4
DO DEL.PRG
CASE FN=5
DO DFI.PRG
CASE FN=6
DO DDP.PRG
OTHERWISE
LOOP
ENDDO
RETU
* * * * DIP.PRG * * * * &&添加模块
SET TALK ON
COUNT TO A
? A
APPEND
RETU
* * * * DRE.PRG * * * * &&修改模块
SET TALK OFF
INPUT “请指定要修改的记录号：” TO B
GO B
EDIT REST
RETU
* * * * DIN.PRG * * * * &&插入模块
SET TALK OFF
CLEA
INPUT “您希望在哪一条记录后插入新纪录：” TO C
GO C
INSERT
RETU
* * * * DEL.PRG * * * * &&删除模块
SET TALK OFF
CLEA
INPUT “请指定要删除的记录号：” TO D
GO D
DISPLAY
RETU
* * * * DFI.PRG * * * * &&检索模块
SET TALK OFF
CLEA
TEXT
******************************************
* 您希望做什么？ *
* 0-----退出检索 *
* 1-----按编号检索 *
* 2-----按颜色检索 *
CLEA
WAIT “您确定要结束检索了吗？（Y/N）：” TO G
IF G=”Y”
RETU
ENDIF
CASE F=1
DO DFI1.PRG
CASE F=2
DO DFI2.PRG
CASE F=3
DO DFI3.PRG
OTHERWISE
LOOP
上一页 [1] [2] [3] [4] [5] [6] 下一页