财务104班第1组实验六文档格式.docx

1、SET CENT ONSTOR 1 TO JJLASTDO WHIL .T. CLOS DATA CLEA TYPE ON KEY IF NOT WEXIST（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 ENDI MOVE WINDOW CPMAINZ CENTER ENDI ACTI

2、 WIND CPMAINZ NOSHOW 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 作者：仲秋雁 张玉红, 12 STYL T ELSE 8.5,23.750 SAY , 28 STYL 15.878,

3、32.125 SAY ACTI WIND CPMAINZ READ CYCL MODA OBJE JJLAST IF （LAST（）=27 AND _ZYHOXZ1） OR _ZYHOXZ=5 EXIT DO DISMIT WITH COLO 3/7*,III & DISABLE THE MESSAGE OF MMAIN_MENU JJLAST=_ZYHOXZ DO SUBMENU WITH _ZYHOXZENDDRELE WIND CPMAINZCLOS DATA ALLON ERROON KEYRETU*PROC DISMITPARA MYCOLO,AIROW AIROW+1.5,08.2

4、25 SAY 数据录入 &MYCOLO AIROW+1.5,22.575 SAY 数据查询 AIROW+1.5,36.750 SAY 报表输出 AIROW+1.5,51.000 SAY 代码维护 AIROW+1.5,65.375 SAY 结束本例PROC SUBMENUPARA MIMODO CASE CASE MIMO=1 PITE=1 入库数据录入;2 销售数据录入;3 数据初始化 ;0 退出本选择单 CASE MIMO=2 PITE=1 每笔入库数据查询;2 每笔销售数据查询;3 出库入库数据查询;4 产品库存数据查询;0 退出本操作选择单 CASE MIMO=31 统计报表计算;2 生

5、产销售月表;3 月收发存总表; CASE MIMO=41 增加糖果品种;2 删除糖果品种;3 修改代码表 ;ENDC _ZYHIN=0 CLOS DATA ALL IMO=IIF（MIMO=2,5,4）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 ACTI WIND ZSUBM cho1=0 IF IMO=4 1.5,4 GET cho1 FUN

6、C *VT +PITE FONT ,12 SIZE 1.6,18,1.2 DEFA IMO 1,4 GET cho1 FUNC ,12 SIZE 1.6,22,0.7 DEFA IMO READ MODA CYCL OBJE IMO _ZYHIN=cho1 IF （LAST（）=27 AND _ZYHIN=0） OR CHO1=IMO EXIT IF IMO=4 1.5,4 GET Ucho1 FUNC ,12 SIZE 1.6,18,1.2 DEFA IMO DISA 1,4 GET Ucho1 FUNC ,12 SIZE 1.6,22,0.7 DEFA IMO DISA CLEA GETS

7、 DO SUBPAC WITH MIMO*10+CHO1 IF LAST（）=27 CLEA TYPE _ZYHIN=.F.RELE WIND ZSUBM*PROC SUBPACPARA DONUM CASE INLI（DONUM,11,12） DO ZCP11 WITH IIF（DONUM=11,入库,销售） CASE DONUM=13 AAQT=N DO ZYHWA_SE WITH 确认数据初始化,数据初始化将清除所有数据文件中的数据。真要执行数据初始化请按Y键:,6,AAQT IF UPPE（AAQT）=Y USE cprk ZAP USE cpxs ZAP USE cprdata IN

8、DEX cprdata USE cpbb USE cpkc DO ZYHWA_SE WITH 1,数据初始化执行完毕。按任意键,1 ELSE DO ZYHWA_SE WITH 1,数据初始化没有执行。 CASE INLI（DONUM,21,22,23,24） DO ZCP21 WITH IIF（DONUM=21,入库,; IIF（DONUM=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 WIT

9、H DONUM-40*PROC ZCP11PARA SRTYPEPRIV ALL LIKE U*STOR DATE（） TO URQ1,URQ2DO GETRQ WITH 1,URQ1,URQ2IF EMPT（URQ1） RETUENDISELE 1USE CPSJSRZAPDO CPEMPTGO TOPSCAT TO UEMPTYDEFI WIND NRLR AT 0,0 SIZE 20.5,78 FLOA SYST COLOR RGB（0,0,0,227,236,238） ; TITL 输入MOVE WIND NRLR CENTPUSH KEY CLEAON KEY LABE CTRL+H

10、 DO DISCAPR WITH 产品+SRTYPE+数据录入操作帮助,（由张玉红“帮助”程序输出）,8,M2ON KEY LABE F1 DO CPEMPTON KEY LABE CTRL+UPARROW DO ZYHUPON KEY LABE CTRL+DNARROW DO ZYHDNIF 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:代码 cpmc:产品名称 LB:6:H=类别: EDUU= :1: R ; WIND NRLR TITL 产品入库记录输入 Ctrl+W:退出 Ctrl+H:帮助 FONT , 11ELSE Lssl:零售数量 Pfsl:批发数量 WIND NRLR TITL 产品销售记录输入 Ctrl+W: