财务104班第1组实验六.docx

1、财务104班第1组实验六管理信息系统实验报告组别：第 一 组组 长：杨阳组 员：李丹，李云，李斯丹，李兆鹏，许文君,刘杰玲 实验六、库存管理子系统分析实验一、实验目的：熟练运行“库存管理子系统”二、实验设备、软件：1、计算机微机工作站；2、管理信息系统教学软件库存管理子系统三、实验原理：1.功能结构数据录入 数据查询报表输出代码维护 源程序2.程序算法SET TALK OFFSET DELETE OFFSET DATE ANSISET CENT ONSTOR 1 TO JJLASTDO WHIL .T. CLOS DATA CLEA TYPE CLEA TYPE ON KEY IF NOT W

2、EXIST(cpmainz) IF SYSM(1)641 DEFI WIND CPMAINZ AT 0,0 SIZE 31.056,99.875 TITL 产品库存管理系统 ; FONT 宋体, 12 FLOAT NOCLOSE NOMINIMIZE SYST ELSE DEFI WIND CPMAINZ AT 0,0 SIZE 25.056,84.875 TITL 产品库存管理系统 ; FONT 宋体, 12 FLOAT NOCLOSE NOMINIMIZE SYST ENDI MOVE WINDOW CPMAINZ CENTER ENDI ACTI WIND CPMAINZ NOSHOW

3、III=IIF(SYSM(1)641,0,-0.5) _ZYHOXZ=0 III+1.5,8.125 GET _ZYHOXZ PICT *IHT ; SIZE 1.167,8.250,6 FONT 宋体, 12 DO DISMIT WITH ,III &ENABLE THE MESSAGE OF MMAIN_MENU IF III=0 7.333,24.750 SAY 产品库存管理系统 FONT 宋体, 36 STYL TB 19.278,36.125 SAY 作者：仲秋雁 张玉红 FONT 宋体, 12 STYL T ELSE 8.5,23.750 SAY 产品库存管理系统 FONT 宋体,

4、 28 STYL TB 15.878,32.125 SAY 作者：仲秋雁 张玉红 FONT 宋体, 12 STYL T ENDI ACTI WIND CPMAINZ READ CYCL MODA OBJE JJLAST IF (LAST()=27 AND _ZYHOXZ1) OR _ZYHOXZ=5 EXIT ENDI DO DISMIT WITH COLO 3/7*,III & DISABLE THE MESSAGE OF MMAIN_MENU JJLAST=_ZYHOXZ DO SUBMENU WITH _ZYHOXZ CLOS DATA CLEA TYPEENDDRELE WIND CP

5、MAINZCLOS DATA ALLON ERROON KEYRETU*PROC DISMIT*PARA MYCOLO,AIROW AIROW+1.5,08.225 SAY 数据录入 FONT 宋体, 12 STYL T &MYCOLO AIROW+1.5,22.575 SAY 数据查询 FONT 宋体, 12 STYL T &MYCOLO AIROW+1.5,36.750 SAY 报表输出 FONT 宋体, 12 STYL T &MYCOLO AIROW+1.5,51.000 SAY 代码维护 FONT 宋体, 12 STYL T &MYCOLO AIROW+1.5,65.375 SAY 结

6、束本例 FONT 宋体, 12 STYL T &MYCOLORETU*PROC SUBMENU*PARA MIMODO CASE CASE MIMO=1 PITE=1 入库数据录入;2 销售数据录入;3 数据初始化 ;0 退出本选择单 CASE MIMO=2 PITE=1 每笔入库数据查询;2 每笔销售数据查询;3 出库入库数据查询;4 产品库存数据查询;0 退出本操作选择单 CASE MIMO=3 PITE=1 统计报表计算;2 生产销售月表;3 月收发存总表;0 退出本选择单 CASE MIMO=4 PITE=1 增加糖果品种;2 删除糖果品种;3 修改代码表 ;0 退出本选择单ENDCD

7、O WHIL .T. _ZYHIN=0 CLOS DATA ALL IMO=IIF(MIMO=2,5,4) IF NOT WEXIST(ZSUBM) DEFI WIND ZSUBM AT 0,0 SIZE 13,26+4*(IMO-4) FONT 宋体,12 SYST COLOR 0/7* FLOA TITL SUBS(数据录入数据查询报表输出代码维护,(MIMO-1)*8+1,8)+操作选项 MOVE WIND ZSUBM CENT ENDI ACTI WIND ZSUBM cho1=0 IF IMO=4 1.5,4 GET cho1 FUNC *VT +PITE FONT 宋体,12 SI

8、ZE 1.6,18,1.2 DEFA IMO ELSE 1,4 GET cho1 FUNC *VT +PITE FONT 宋体,12 SIZE 1.6,22,0.7 DEFA IMO ENDI READ MODA CYCL OBJE IMO _ZYHIN=cho1 IF (LAST()=27 AND _ZYHIN=0) OR CHO1=IMO EXIT ELSE IF IMO=4 1.5,4 GET Ucho1 FUNC *VT +PITE FONT 宋体,12 SIZE 1.6,18,1.2 DEFA IMO DISA ELSE 1,4 GET Ucho1 FUNC *VT +PITE FO

9、NT 宋体,12 SIZE 1.6,22,0.7 DEFA IMO DISA ENDI CLEA GETS DO SUBPAC WITH MIMO*10+CHO1 IF LAST()=27 CLEA TYPE _ZYHIN=.F. ENDI ENDIENDDCLOS DATA ALLRELE WIND ZSUBMRETU*PROC SUBPAC*PARA DONUMDO CASE CASE INLI(DONUM,11,12) DO ZCP11 WITH IIF(DONUM=11,入库,销售) CASE DONUM=13 AAQT=N DO ZYHWA_SE WITH 确认数据初始化,数据初始化

10、将清除所有数据文件中的数据。真要执行数据初始化请按Y键:,6,AAQT IF UPPE(AAQT)=Y USE cprk ZAP USE cpxs ZAP USE cprdata INDEX cprdata ZAP USE cpbb ZAP USE cpkc ZAP CLOS DATA ALL DO ZYHWA_SE WITH 1,数据初始化执行完毕。按任意键,1 ELSE DO ZYHWA_SE WITH 1,数据初始化没有执行。按任意键,1 ENDI CASE INLI(DONUM,21,22,23,24) DO ZCP21 WITH IIF(DONUM=21,入库,; IIF(DONUM

11、=22,销售,; IIF(DONUM=23,出入库,库存) CASE INLI(DONUM,31,32,33) PPPRG=DO ZCP+STR(DONUM,2,0) &PPPRG CASE INLI(DONUM,41,42,43) DO ZCP41 WITH DONUM-40ENDCRETU*PROC ZCP11*PARA SRTYPECLOS DATA ALLPRIV ALL LIKE U*STOR DATE() TO URQ1,URQ2DO GETRQ WITH 1,URQ1,URQ2IF EMPT(URQ1) CLOS DATA RETUENDISELE 1USE CPSJSRZAPD

12、O CPEMPTGO TOPSCAT TO UEMPTYDEFI WIND NRLR AT 0,0 SIZE 20.5,78 FLOA SYST COLOR RGB(0,0,0,227,236,238) ; TITL 输入 FONT 宋体, 12MOVE WIND NRLR CENTPUSH KEY CLEAON KEY LABE CTRL+H DO DISCAPR WITH 产品+SRTYPE+数据录入操作帮助,(由张玉红“帮助”程序输出),8,M2ON KEY LABE F1 DO CPEMPTON KEY LABE CTRL+UPARROW DO ZYHUPON KEY LABE CTR

13、L+DNARROW DO ZYHDNDO WHIL .T.IF SRTYPE=入库 BROW FIEL RQ:11:H=发生日期:W=.F.,; SRNR:H=产品助录:V=WHAT_CP(),; rksl:9:H=入库数量:P=Z:W=!EMPT(CPDM),; dw:5:h=单位:w=.f.,; cpdm:4:H=代码:W=.F.,; cpmc:9:H=产品名称:W=.F.,; LB:6:H=类别:W=.F.,; EDUU= :1:H= :R ; WIND NRLR TITL 产品入库记录输入 Ctrl+W:退出 Ctrl+H:帮助 FONT 宋体, 11ELSE BROW FIEL RQ:11:H=发生日期:W=.F.,; SRNR:H=产品助录:V=WHAT_CP(),; Lssl:9:H=零售数量:P=Z:W=!EMPT(CPDM),; Pfsl:9:H=批发数量:P=Z:W=!EMPT(CPDM),; dw:5:h=单位:w=.f.,; cpdm:4:H=代码:W=.F.,; cpmc:9:H=产品名称:W=.F.,; LB:6:H=类别:W=.F.,; EDUU= :1:H= :R ; WIND NRLR TITL 产品销售记录输入 Ctrl+W:退出 Ctrl+H:帮助 FONT