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] 下一页