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:
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1