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

财务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"