财务104班第1组实验六文档格式.docx
《财务104班第1组实验六文档格式.docx》由会员分享，可在线阅读，更多相关《财务104班第1组实验六文档格式.docx（44页珍藏版）》请在冰豆网上搜索。
SETCENTON
STOR1TOJJLAST
DOWHIL.T.
CLOSDATA
CLEATYPE
ONKEY
IFNOTWEXIST（"
cpmainz"
）
IFSYSM
（1）>
641
DEFIWINDCPMAINZAT0,0SIZE31.056,99.875TITL"
产品库存管理系统"
;
FONT"
宋体"
12FLOATNOCLOSENOMINIMIZESYST
ELSE
DEFIWINDCPMAINZAT0,0SIZE25.056,84.875TITL"
ENDI
MOVEWINDOWCPMAINZCENTER
ENDI
ACTIWINDCPMAINZNOSHOW
III=IIF（SYSM
（1）>
641,0,-0.5）
_ZYHOXZ=0
@III+1.5,8.125GET_ZYHOXZPICT"
@*IHT;
;
"
SIZE1.167,8.250,6FONT"
12
DODISMITWITH[],III&
&
ENABLETHEMESSAGEOFMMAIN_MENU
IFIII=0
@7.333,24.750SAY"
FONT"
36STYL"
TB"
@19.278,36.125SAY"
作者：
仲秋雁张玉红"
12STYL"
T"
ELSE
@8.5,23.750SAY"
28STYL"
@15.878,32.125SAY"
ACTIWINDCPMAINZ
READCYCLMODAOBJEJJLAST
IF（LAST（）=27AND_ZYHOXZ<
1）OR_ZYHOXZ=5
EXIT
DODISMITWITH[COLO3/7*],III&
DISABLETHEMESSAGEOFMMAIN_MENU
JJLAST=_ZYHOXZ
DOSUBMENUWITH_ZYHOXZ
ENDD
RELEWINDCPMAINZ
CLOSDATAALL
ONERRO
ONKEY
RETU
**********
PROCDISMIT
PARAMYCOLO,AIROW
@AIROW+1.5,08.225SAY"
数据录入"
&
MYCOLO
@AIROW+1.5,22.575SAY"
数据查询"
@AIROW+1.5,36.750SAY"
报表输出"
@AIROW+1.5,51.000SAY"
代码维护"
@AIROW+1.5,65.375SAY"
结束本例"
PROCSUBMENU
PARAMIMO
DOCASE
CASEMIMO=1
PITE=[\<
1入库数据录入;
\<
2销售数据录入;
3数据初始化;
0退出本选择单]
CASEMIMO=2
PITE=[\<
1每笔入库数据查询;
2每笔销售数据查询;
3出库入库数据查询;
4产品库存数据查询;
0退出本操作选择单]
CASEMIMO=3
1统计报表计算;
2生产销售月表;
3月收发存总表;
CASEMIMO=4
1增加糖果品种;
2删除糖果品种;
3修改代码表;
ENDC
_ZYHIN=0
CLOSDATAALL
IMO=IIF（MIMO=2,5,4）
ZSUBM"
DEFIWINDZSUBMAT0,0SIZE13,26+4*（IMO-4）FONT"
12SYSTCOLOR0/7*FLOA
TITLSUBS（[数据录入数据查询报表输出代码维护],（MIMO-1）*8+1,8）+"
操作选项"
MOVEWINDZSUBMCENT
ACTIWINDZSUBM
cho1=0
IFIMO=4
@1.5,4GETcho1FUNC"
*VT"
+PITEFONT"
12SIZE1.6,18,1.2DEFAIMO
@1,4GETcho1FUNC"
12SIZE1.6,22,0.7DEFAIMO
READMODACYCLOBJEIMO
_ZYHIN=cho1
IF（LAST（）=27AND_ZYHIN=0）ORCHO1=IMO
EXIT
IFIMO=4
@1.5,4GETUcho1FUNC"
12SIZE1.6,18,1.2DEFAIMODISA
@1,4GETUcho1FUNC"
12SIZE1.6,22,0.7DEFAIMODISA
CLEAGETS
DOSUBPACWITHMIMO*10+CHO1
IFLAST（）=27
CLEATYPE
_ZYHIN=.F.
RELEWINDZSUBM
***********
PROCSUBPAC
PARADONUM
CASEINLI（DONUM,11,12）
DOZCP11WITHIIF（DONUM=11,[入库],[销售]）
CASEDONUM=13
AAQT=[N]
DOZYHWA_SEWITH[确认数据初始化],[数据初始化将清除所有数据文件中的数据。
真要执行数据初始化请按Y键:
],6,AAQT
IFUPPE（AAQT）=[Y]
USEcprk
ZAP
USEcpxs
ZAP
USEcprdataINDEXcprdata
USEcpbb
USEcpkc
DOZYHWA_SEWITH[\1],[数据初始化执行完毕。
按任意键……],1
ELSE
DOZYHWA_SEWITH[\1],[数据初始化没有执行。
CASEINLI（DONUM,21,22,23,24）
DOZCP21WITHIIF（DONUM=21,[入库],;
IIF（DONUM=22,[销售],;
IIF（DONUM=23,[出入库],[库存]）））
CASEINLI（DONUM,31,32,33）
PPPRG=[DOZCP]+STR（DONUM,2,0）
&
PPPRG
CASEINLI（DONUM,41,42,43）
DOZCP41WITHDONUM-40
*********
PROCZCP11
PARASRTYPE
PRIVALLLIKEU*
STORDATE（）TOURQ1,URQ2
DOGETRQWITH1,URQ1,URQ2
IFEMPT（URQ1）
RETU
ENDI
SELE1
USECPSJSR
ZAP
DOCPEMPT
GOTOP
SCATTOUEMPTY
DEFIWINDNRLRAT0,0SIZE20.5,78FLOASYSTCOLORRGB（0,0,0,227,236,238）;
TITL"
输入"
MOVEWINDNRLRCENT
PUSHKEYCLEA
ONKEYLABECTRL+HDODISCAPRWITH[产品]+SRTYPE+[数据录入操作帮助],[（由张玉红“帮助”程序输出）],8,[M2]
ONKEYLABEF1DOCPEMPT
ONKEYLABECTRL+UPARROWDOZYHUP
ONKEYLABECTRL+DNARROWDOZYHDN
IFSRTYPE=[入库]
BROWFIELRQ:
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;
WINDNRLRTITL[产品入库记录输入Ctrl+W:
退出Ctrl+H:
帮助]FONT"
11
ELSE
Lssl:
零售数量"
Pfsl:
批发数量"
WINDNRLRTITL[产品销售记录输入Ctrl+W:
升级会员 