工廠倉庫零配件管理信息系統(tǒng)(已改無錯字)
2023-05-08 21:18:16 本頁面
【正文】 ? “密碼不正確，即將退出?！盧ETUENDIFDO WIHLE .T.CLEATXET*********************************************************** 主功能表 ** 0退出 1輸入零配件編號 ** 2修改零配件編號 3插入零配件編號 ** 4刪除零配件編號 5檢索零配件編號 ** 6打印或顯示全部零配件信息 ***********************************************************ENDTINPUT “請輸入相應(yīng)的鍵進行功能的選擇：” TO FNDO CASE CASE FN=0 CLEA WAIT “您確定要退出了嗎？（Y/N）：” TO RIF R=”Y”RETUENDIFCASE FN=1 DO CASE FN=2 DO CASE FN=3 DO CASE FN=4 DO CASE FN=5 DO CASE FN=6 DO OTHERWISELOOPENDCASEENDDORETU* * * * * * * * amp。amp。添加模塊SET TALK ONCLEACOUNT TO A? AAPPENDRETU* * * * * * * * amp。amp。修改模塊SET TALK OFFCLEAINPUT “請指定要修改的記錄號：” TO BGO BEDIT RESTRETU* * * * * * * * amp。amp。插入模塊SET TALK OFFCLEAINPUT “您希望在哪一條記錄后插入新紀(jì)錄：” TO CGO CINSERTRETU* * * * * * * * amp。amp。刪除模塊SET TALK OFFCLEAINPUT “請指定要刪除的記錄號：” TO DGO DDISPLAYWAIT “確定要刪除此記錄嗎？（Y/N）：” TO EIF E=”Y” DELETE PACKENDIFRETU* * * * * * * * amp。amp。檢索模塊SET TALK OFFCLEATEXT******************************************* 您希望做什么？ ** 0退出檢索 ** 1按編號檢索 ** 2按顏色檢索 ** 3按編號、規(guī)格、單價檢索 *******************************************ENDTINPUT “請選擇：” TO FDO CASE CASE F=0 CLEA WAIT “您確定要結(jié)束檢索了嗎？（Y/N）：” TO G IF G=”Y” RETU ENDIF CASE F=1 DO CASE F=2 DO CASE F=3 DO OTHERWISE LOOPENDCASERETU* * * * * * * * amp。amp。按編號檢索SET TALK OFFCLEAACCEPT “請輸入要查找的編號：” TO HLOCATE FOR 編號=H? FOUND ()COUNT WHILE 編號=H TO IDO WHILE I=0 I=I1 DISPLAY CONTINUEENDDORETU* * * * * * * * amp。amp。按顏色檢索SET TALK OFFCLEAACCEPT “請輸入要查找哪種顏色：” TO JLOCATE FOR 顏色=J? FOUND ()COUNT WHILE 顏色=J TO KDO WHILE K=0 K=K1 DISPLAY CONTINUEENDDORETU* * * * * * * *
公司管理相關(guān)推薦
鄂ICP備17016276號-1