财务104班第1组实验六.docx
《财务104班第1组实验六.docx》由会员分享，可在线阅读，更多相关《财务104班第1组实验六.docx（44页珍藏版）》请在冰豆网上搜索。
财务104班第1组实验六
管理信息系统实验报告
组别：
第一组
组长：
杨阳
组员：
李丹，李云，李斯丹，李兆鹏，许文君,刘杰玲
实验六、库存管理子系统分析实验
一、实验目的：
熟练运行“库存管理子系统”
二、实验设备、软件：
1、计算机微机工作站；
2、管理信息系统教学软件——库存管理子系统
三、实验原理：
1.功能结构
数据录入
数据查询
报表输出
代码维护
源程序
2.程序算法
SETTALKOFF
SETDELETEOFF
SETDATEANSI
SETCENTON
STOR1TOJJLAST
DOWHIL.T.
CLOSDATA
CLEATYPE
CLEATYPE
ONKEY
IFNOTWEXIST（"cpmainz"）
IFSYSM
（1）>641
DEFIWINDCPMAINZAT0,0SIZE31.056,99.875TITL"产品库存管理系统";
FONT"宋体",12FLOATNOCLOSENOMINIMIZESYST
ELSE
DEFIWINDCPMAINZAT0,0SIZE25.056,84.875TITL"产品库存管理系统";
FONT"宋体",12FLOATNOCLOSENOMINIMIZESYST
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"作者：
仲秋雁张玉红"FONT"宋体",12STYL"T"
ELSE
@8.5,23.750SAY"产品库存管理系统"FONT"宋体",28STYL"TB"
@15.878,32.125SAY"作者：
仲秋雁张玉红"FONT"宋体",12STYL"T"
ENDI
ACTIWINDCPMAINZ
READCYCLMODAOBJEJJLAST
IF（LAST（）=27AND_ZYHOXZ<1）OR_ZYHOXZ=5
EXIT
ENDI
DODISMITWITH[COLO3/7*],III&&DISABLETHEMESSAGEOFMMAIN_MENU
JJLAST=_ZYHOXZ
DOSUBMENUWITH_ZYHOXZ
CLOSDATA
CLEATYPE
ENDD
RELEWINDCPMAINZ
CLOSDATAALL
ONERRO
ONKEY
RETU
**********
PROCDISMIT
**********
PARAMYCOLO,AIROW
@AIROW+1.5,08.225SAY"数据录入"FONT"宋体",12STYL"T"&MYCOLO
@AIROW+1.5,22.575SAY"数据查询"FONT"宋体",12STYL"T"&MYCOLO
@AIROW+1.5,36.750SAY"报表输出"FONT"宋体",12STYL"T"&MYCOLO
@AIROW+1.5,51.000SAY"代码维护"FONT"宋体",12STYL"T"&MYCOLO
@AIROW+1.5,65.375SAY"结束本例"FONT"宋体",12STYL"T"&MYCOLO
RETU
**********
PROCSUBMENU
**********
PARAMIMO
DOCASE
CASEMIMO=1
PITE=[\<1入库数据录入;\<2销售数据录入;\<3数据初始化;\<0退出本选择单]
CASEMIMO=2
PITE=[\<1每笔入库数据查询;\<2每笔销售数据查询;\<3出库入库数据查询;\<4产品库存数据查询;\<0退出本操作选择单]
CASEMIMO=3
PITE=[\<1统计报表计算;\<2生产销售月表;\<3月收发存总表;\<0退出本选择单]
CASEMIMO=4
PITE=[\<1增加糖果品种;\<2删除糖果品种;\<3修改代码表;\<0退出本选择单]
ENDC
DOWHIL.T.
_ZYHIN=0
CLOSDATAALL
IMO=IIF（MIMO=2,5,4）
IFNOTWEXIST（"ZSUBM"）
DEFIWINDZSUBMAT0,0SIZE13,26+4*（IMO-4）FONT"宋体",12SYSTCOLOR0/7*FLOA
TITLSUBS（[数据录入数据查询报表输出代码维护],（MIMO-1）*8+1,8）+"操作选项"
MOVEWINDZSUBMCENT
ENDI
ACTIWINDZSUBM
cho1=0
IFIMO=4
@1.5,4GETcho1FUNC"*VT"+PITEFONT"宋体",12SIZE1.6,18,1.2DEFAIMO
ELSE
@1,4GETcho1FUNC"*VT"+PITEFONT"宋体",12SIZE1.6,22,0.7DEFAIMO
ENDI
READMODACYCLOBJEIMO
_ZYHIN=cho1
IF（LAST（）=27AND_ZYHIN=0）ORCHO1=IMO
EXIT
ELSE
IFIMO=4
@1.5,4GETUcho1FUNC"*VT"+PITEFONT"宋体",12SIZE1.6,18,1.2DEFAIMODISA
ELSE
@1,4GETUcho1FUNC"*VT"+PITEFONT"宋体",12SIZE1.6,22,0.7DEFAIMODISA
ENDI
CLEAGETS
DOSUBPACWITHMIMO*10+CHO1
IFLAST（）=27
CLEATYPE
_ZYHIN=.F.
ENDI
ENDI
ENDD
CLOSDATAALL
RELEWINDZSUBM
RETU
***********
PROCSUBPAC
***********
PARADONUM
DOCASE
CASEINLI（DONUM,11,12）
DOZCP11WITHIIF（DONUM=11,[入库],[销售]）
CASEDONUM=13
AAQT=[N]
DOZYHWA_SEWITH[确认数据初始化],[数据初始化将清除所有数据文件中的数据。
真要执行数据初始化请按Y键:
],6,AAQT
IFUPPE（AAQT）=[Y]
USEcprk
ZAP
USEcpxs
ZAP
USEcprdataINDEXcprdata
ZAP
USEcpbb
ZAP
USEcpkc
ZAP
CLOSDATAALL
DOZYHWA_SEWITH[\1],[数据初始化执行完毕。
按任意键……],1
ELSE
DOZYHWA_SEWITH[\1],[数据初始化没有执行。
按任意键……],1
ENDI
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
ENDC
RETU
*********
PROCZCP11
*********
PARASRTYPE
CLOSDATAALL
PRIVALLLIKEU*
STORDATE（）TOURQ1,URQ2
DOGETRQWITH1,URQ1,URQ2
IFEMPT（URQ1）
CLOSDATA
RETU
ENDI
SELE1
USECPSJSR
ZAP
DOCPEMPT
GOTOP
SCATTOUEMPTY
DEFIWINDNRLRAT0,0SIZE20.5,78FLOASYSTCOLORRGB（0,0,0,227,236,238）;
TITL"输入"FONT"宋体",12
MOVEWINDNRLRCENT
PUSHKEYCLEA
ONKEYLABECTRL+HDODISCAPRWITH[产品]+SRTYPE+[数据录入操作帮助],[（由张玉红“帮助”程序输出）],8,[M2]
ONKEYLABEF1DOCPEMPT
ONKEYLABECTRL+UPARROWDOZYHUP
ONKEYLABECTRL+DNARROWDOZYHDN
DOWHIL.T.
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:
H="代码":
W=.F.,;
cpmc:
9:
H="产品名称":
W=.F.,;
LB:
6:
H=[类别]:
W=.F.,;
EDUU=[]:
1:
H="":
R;
WINDNRLRTITL[产品入库记录输入Ctrl+W:
退出Ctrl+H:
帮助]FONT"宋体",11
ELSE
BROWFIELRQ:
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;
WINDNRLRTITL[产品销售记录输入Ctrl+W:
退出Ctrl+H:
帮助]FONT"
升级会员 