ENDCASE
RETU
* * * * DFI1.PRG * * * * &&按编号检索
SET TALK OFF
CLEA
ACCEPT “请输入要查找的编号：” TO H
LOCATE FOR 编号=H
? FOUND ()
COUNT WHILE 编号=H TO I
DO WHILE I>=0
I=I-1
DISPLAY
CONTINUE
ENDDO
RETU
* * * * DFI2.PRG * * * * &&按颜色检索
SET TALK OFF
CLEA
ACCEPT “请输入要查找哪种颜色：” TO J
LOCATE FOR 颜色=J
? FOUND ()
COUNT WHILE 颜色=J TO K
DO WHILE K>=0
K=K-1
DISPLAY
CONTINUE
ENDDO
RETU
* * * * DFI3.PRG * * * * &&按单价检索
SET TALK OFF
CLEA
ACCEPT “请输入要查找单价：” TO T
SET FILTER TO 单价=T
SKIP
TEXT
***************************************
1---显示全部库存仓库零配件清单
2---打印全部库存仓库零配件清单
***************************************
ENDT
INPUT “请选择所需的操作（1/2）：” TO O
IF O=1
LIST
ENDIF
IF O=2
SET PRINT ON
LIST
SET PRINT OFF
ENDIF
RETU
七、结束语及参考文献
在FOXPRO的命令窗口中键入DM.PRG后，屏幕将显示“欢迎您使用仓库零配件信息管理系统”的字样，然后给出提示“请输入系统密码（加回车）：”。若密码错误，就将退出本系统；若密码正确，屏幕上将显示系统功能菜单：
**********************************************
* 主程序功能表 *
* 0-----退出 1-----添加模块 *
* 2-----修改模块 3-----插入模块 *
* 4-----删除模块 5-----检索模块 *
* 6-----打印或显示全部仓库零配件信息 *
***********************************************
在系统提示“请输入相应的键进行功能的选择：”之后给出选择，即可进行相应的操作。
选择“0”，屏幕显示“您确定要退出了吗？（Y/N）：”并等待回答。此时若回答“Y”，就将退出本系统；若回答“N”，将可以继续进行其他操作。
选择“1”进入输入功能模块DIP.PRG后，屏幕将显示目前已有的记录数，再给出一张空白的货物清单，以进行录入。新纪录将成为仓库零配件.PRG数据表的最后一条记录。
选择“2”进入修改模块DRE.PRG后，屏幕提示“请指定要修改的记录号：”。输入记录号后，指定的记录将显示出来供修改。修改结束，结果自动存盘，并返回主控模块。
选择“3”进入插入模块DIN.PRG后，屏幕提示“您希望在哪一条记录后插入新纪录：”。此时若输入的记录号为N，则插入的新纪录号将为N+1。
选择“4”进入删除模块DEL.PRG后，屏幕提示“请指定要删除的记录号：”。系统在得到指定记录号后，将把此记录显示出来，并显示“确定要删除此记录吗？（Y/N）：”要求确认一次，在得到确认后直接做物理删除。
选择“5”进入检索模块DFI.PRG后，屏幕显示：
******************************************
* 您希望做什么？ *
* 0-----退出检索 1-----按编号检索 *
* 2-----按颜色检索 *
* 3-----按编号、规格、单价检索 *
******************************************
然后询问“请选择：”按选择的不同进入不同功能子模块或退出检索模块DFI.PRG。
选择“6”进入显示和打印模块DDP.PRG后，屏幕显示：
*************************************
1---显示全部库存仓库零配件清单
2---打印全部库存仓库零配件清单
*************************************
供使用者选择要实现的操作。
上一页 [1] [2] [3] [4] [5] [6] 下一页