管理信息系统课程设计报告超市门店进销存管理系统.docx

管理信息系统课程设计报告超市门店进销存管理系统.docx

《管理信息系统课程设计报告超市门店进销存管理系统.docx》由会员分享，可在线阅读，更多相关《管理信息系统课程设计报告超市门店进销存管理系统.docx（36页珍藏版）》请在冰豆网上搜索。

管理信息系统课程设计报告超市门店进销存管理系统

1．系统背景资料………………………………………………………………１

（1）组织结构………………………………………………………………….1

（2）业务功能………………………………………………………………….1

（3）管理功能………………………………………………………………….1

（4）业务功能与组合结构的关系……………………………………………..1

（5）前台销售处理流程………………………………………………………..1

（6）后台进货、库存、销售管理流程………………………………………..2

2．目标系统需求分析………………………………………………………….2

（1）系统目标………………………………………………………………….2

（2）系统输入、输出信息分析……………………………………………….2

（3）进销存数据处理流程…………………………………………………….2

（4）数据类需求分析………………………………………………………….3

3．目标系统设计………………………………………………………………4

（1）系统功能结构设计………………………………………………………4

（2）系统数据库设计…………………………………………………………..4

（3）系统主要功能模块设计………………………………………………….6

4．系统实施…………………………………………………………………….7

（1）系统运行环境说明………………………………………………………..7

（2）系统主要功能模块界面和代码……………………………………………7

5．系统操作说明…………………………………………………………………23

（1）系统运行环境………………………………………………………………23

（2）系统安装文件………………………………………………………………23

（3）系统功能说明………………………………………………………………23

附录：

课程设计分工说明………………………………………………………..24

1．系统背景资料

本系统应用背景为一家中小超市门店。

（1）组织结构

该门店规模较小,其组织结构关系如图：

图1组织结构关系图

（2）业务功能

业务功能主要包括：

进货、销售和库存/盘点管理。

（3）管理功能

图2管理功能结构图

（4）业务功能与组合结构的关系

业务功能与组织结构的关系如表所示。

进货

销售

库存/盘点

店长

★

★

★

店长助理

▲

▲

▲

销售部门

▲

▲

表1业务功能与组织结构的关系表

注：

表中“★”表示该项业务是对应组织的主要业务；“▲”表示该组织是参加协调该项业务的。

（5）前台销售处理流程

图3POS前台销售处理流程

（6）后台进货、库存、销售管理流程

图4后台进货、库存、销售管理流程

2．目标系统需求分析

（1）系统目标

本仿真系统的设计目标是：

1能通过键盘录入当前的销售商品和实收金额、采购清单、验货单；

2自动结算应收金额和找零金额；

3打印购物小票并更新库存；

4能查询商品销售信息、采购清单、库存信息、验货单；

5能根据验货单确认采购清单并更新库存。

（2）系统输入、输出信息分析

输入信息有：

当前销售商品信息、实收金额、入库商品信息。

输出信息有：

购物小票、销售情况表和库存情况表。

（3）进销存数据处理流程

图5进销存数据处理流程图（顶层）

图6进销存数据处理流程图（第二层）

（4）数据类需求分析

数据类需求分析步骤如下：

第一，依据系统实体确定基本数据类；

第二，依据新系统数据处理流程补充数据类。

系统包括的主要实体有：

顾客、收款员、POS机、小票、商店、商品、购物篮、仓库。

实体联系图（E-R图）如图所示：

图7POS系统实体联系图

得到系统的关系结构如下：

①当前销售商品信息表（商品代号，商品名称，单价，数量，金额，总计，实收，找零，时间，收款员代号，单据号）；

②基本信息表（商店号，机号，礼貌语1，礼貌语2，提示语1，提示语2）；

③历史销售商品信息表（商品代号，商品名称，单价，数量，金额，总计，实收，找零，时间，收款员代号，单据号）；

④商品词典表（商品代号，商品名称，单价）；

⑤收款员表（收款员代号，收款员姓名，口令）；

⑥运行参数表（单据号）；

⑦出库表（出库单编号，商品编号，数量，录入，审核，客户，出库时间）；

⑧历史出库表（出库单编号，商品编号，数量，录入，审核，客户，出库时间）；

⑨入库表（入库单编号，商品编号，供应商，数量，单价，录入，审核，入库时间）；

⑩历史入库表（入库单编号，商品编号，供应商，数量，单价，录入，审核，入库时间）；

库存表（商品编号，商品名称，分类，单位，数量，库存底线，备注）。

3．目标系统设计

（1）系统功能结构设计

图8系统功能结构设计

（2）系统数据库设计

根据E-R图得到系统基本关系如下：

顾客（顾客代号）；

收款员（收款员代号，收款员姓名，口令）；

POS机（机号，品名，厂家）

小票（单句号，日期，时间，收款员代号，机号，商店名称，购物信息，礼貌语，提示语）；

商店（商店号，商店名称）；

商品（商品代号，商品名称，单价）；

购物篮（顾客代号，商品代号，数量，金额）；

付款结算（顾客代号，实收，应收，找零）；

仓库（仓库代号，仓库名称）。

根据数据处理流程得到补充关系：

销售情况表（历史购物信息）。

系统需要构建的数据表主要有出库表、入库表、库存表、基本信息表、商品词典表、收款员表、运行参数表、销售商品表（历史商品、当前商品）具体参数设置如下：

字段名

类型

宽度

小数位数

索引

说明

入库单号

字符型

10

有

商品编号

字符型

13

采用标准型EAN代码

供应商

字符型

8

数量

数值

整型

单价

货币

8

自动

录入

字符型

8

审核

字符型

8

入库时间

日期/时间

8

表2入库表的数据结构

字段名

类型

宽度

小数位数

收款员代号

字符型

3

收款员姓名

字符型

8

口令

字符型

6

表3收款员表的数据结构

字段名

类型

宽度

小数位数

单据号

字符型

8

表4运行参数表的数据结构

字段名

类型

宽度

小数位数

索引

说明

出库单编号

字符型

10

有

商品编号

字符型

13

采用标准型EAN代码

数量

数值

整型

录入

字符型

8

审核

字符型

8

客户

字符型

8

出库时间

日期/时间

8

表5出库表的数据结构

字段名

类型

宽度

小数位数

商品代号

字符型

10

商品名称

字符型

20

单价

数值型

12

2

表6商品词典表的数据结构

字段名

类型

宽度

小数位数

商品代号

字符型

10

商品名称

字符型

20

单价

数值型

12

2

数量

整型

4

金额

数值型

12

2

总计

数值型

12

2

实收

数值型

12

2

找零

数值型

12

2

时间

日期时间型

8

收款员代号

字符型

3

单据号

字符型

8

表7当前销售商品信息表的数据结构

字段名

类型

宽度

小数位数

商品号

字符型

4

商店名称

字符型

30

机号

字符型

2

礼貌语1

字符型

30

礼貌语2

字符型

30

提示语1

字符型

30

提示语2

字符型

30

表8基本信息表的数据结构

字段名

类型

宽度

小数位数

索引

说明

商品编号

字符型

13

有

采用标准型EAN代码

商品名称

字符型

50

分类

字符型

1

A．B．C分类

单位

单位

8

计量单位

数量

数值

整型

库存底线

数值

整型

备注

文本

50

表9库存表的数据结构

（3）系统主要功能模块设计

✧总控模块程序结构

图9总控模块程序结构图

图10系统菜单结构图

✧商品销售模块程序结构

图11商品销售模块程序结构图

✧小票样式

图12小票样式

✧库存管理模块程序结构

图13验收到货模块程序结构图

4．系统实施

（1）系统运行环境说明

操作系统：

Windows2000/XP/Vista

数据管理系统：

ACCESS2000

编程语言：

VB6.0

（2）系统主要功能模块界面和代码

1.总控制模块程序设计

✧系统总控模块程序

1）窗体对象FrmInit

属性：

Name:

FrmInit

Borderstyle:

0-Zone

Picture:

D：

\PosSystem\享受大自然风景宽屏壁纸

StarUpPosition:

2-屏幕中心

代码：

PublicCOVERAsBoolean

PrivateSubForm_Initialize（）

Me.Label1.Top=Me.Height-400

Me.Label1.Left=（Me.Width-Me.Label1.Width）/2

Me.Label2.Top=（Me.Height+800）

Me.Label2.Left=（Me.Width-Me.Label2.Width）/2

Me.Label1.Visible=False

Me.Label2.Visible=False

EndSub

PrivateSubForm_Load（）

DimnobtimeAsInteger

nobtime=0

EndSub

2）计时器对象Timer1

属性：

Interval:

60

代码：

PrivateSubTimer1_Timer（）

Ifnobtime=0Then

nobtime=1

Me.Label1.Visible=True

Me.Label2.Visible=True

EndIf

IfMe.Label1.Top-1500>0Then

Me.Label1.Top=Me.Label1.Top-20

Me.Label2.Top=Me.Label2.Top-20

Else

UnloadMe

COVER=True

EndIf

EndSub

✧系统封面表单设计

系统封面表单界面，如图所示，运行时字幕由下向上慢慢上升。

图14系统封面

✧系统登录表单设计

系统登录表单界面，如图所示：

图15系统登录界面

代码：

OptionExplicit'强制变量声明

PublicOKAsBoolean

DimtxtSQLAsString

DimmrcAsADODB.Recordset

DimMsgTextAsString

PrivateSubForm_Load（）

DimiAsInteger

i=0

txtSQL="select*from收款员表"

Setmrc=ExecuteSQL（txtSQL,MsgText）

WithtxtUserName

DoWhileNotmrc.EOF

i=i+1

.AddItemTrim（mrc.Fields（"收款员姓名"））

mrc.MoveNext

Loop

.ListIndex=0

EndWith

mrc.Close

OK=False

EndSub

PrivateSubcmdCancel_Click（）

OK=False

Me.Hide

EndSub

PrivateSubcmdOK_Click（）

txtSQL="select*from收款员表where收款员姓名='"&txtUserName.Text&"'"

Setmrc=ExecuteSQL（txtSQL,MsgText）

Ifmrc.EOF=TrueThen

MsgBox"没有这个用户，请重新输入用户名!

",vbOKOnly+vbExclamation,"警告"

txtUserName.SetFocus

Else

IfTrim（mrc.Fields（"口令"））=Trim（txtPassword.Text）Then

OK=True

Me.Hide

UserName=Trim（txtUserName.Text）

UserOrder=mrc.Fields（"收款员代号"）

mrc.Close

Else

MsgBox"输入密码不正确，请重新输入！

",vbOKOnly+vbExclamation,"警告"

txtPassword.SetFocus

txtPassword.Text=""

EndIf

EndIf

EndSub

PrivateSubtxtPassword_Change（）

EndSub

PrivateSubtxtUserName_Click（）

txtPassword.Text=""

EndSub

✧系统菜单设计

系统菜单采用菜单编辑器来完成：

图16-1系统菜单编辑器

图16-2系统菜单

代码：

PrivateSubMDIForm_Load（）

StatusBar1.Panels.Item

（1）="正在运行中"

EndSub

PrivateSubmunbasic_Click（）

基本信息库.Show

EndSub

PrivateSubmunbillquery_Click（）

按单据号查询.Show

EndSub

PrivateSubmuncodequery_Click（）

按商品代号查询.Show

EndSub

PrivateSubmundictionary_Click（）

商品词典.Show

EndSub

PrivateSubmunparameter_Click（）

运行参数.Show

EndSub

PrivateSubmunpos_Click（）

收款员库.Show

EndSub

PrivateSubmunquit_Click（）

End

EndSub

PrivateSubmunsale_Click（）

商品销售.Show

EndSub

PrivateSub出库表_Click（）

frm出库表.Show

EndSub

PrivateSub库存查询_Click（）

Form1.Show

EndSub

PrivateSub入库表_Click（）

frm入库表.Show

EndSub

2.初始化模块设计

✧基本信息表单运行界面，如图所示：

图17基本信息表

✧收款员表单运行界面

如图所示：

图18收款员表

✧商品词典表单运行界面

如图所示：

图19商品词典表

✧运行参数表单运行界面

如图20所示：

图20运行参数表

3.商品销售模块设计

✧商品销售表单

商品销售表单如图21所示：

图21商品销售

代码：

DimtxtSQLAsString

DimmrcAsADODB.Recordset

DimrecAsADODB.Recordset

DimMsgTextAsString

PrivateSubCombo1_Click（）

txtSQL="select*from商品词典表where商品代号='"&Combo1.Text&"'"

Setmrc=ExecuteSQL（txtSQL,MsgText）'执行查询语句

WithMSHFlexGrid1'将查询内容显示在表格控件中

.Rows=.Rows+1

.TextMatrix（.Rows-1,0）=mrc.Fields（0）&""

.TextMatrix（.Rows-1,1）=mrc.Fields

（1）&""

.TextMatrix（.Rows-1,2）=mrc.Fields

（2）&""

EndWith

Text3.Text=mrc.Fields

（2）

mrc.Close'关闭数据集

EndSub

PrivateSubCommand1_Click（）

DimOrderAsInteger

IfText5=""Then

MsgBox"实收不能为空!

",vbOKOnly,"提示"

Text5.SetFocus

ExitSub

EndIf

IfText1=""Then

MsgBox"总计不能为空!

",vbOKOnly,"提示"

ExitSub

EndIf

txtSQL="select单据号from运行参数表"

Setmrc=ExecuteSQL（txtSQL,MsgText）

mrc.MoveLast

Order=mrc.Fields（"单据号"）

mrc.AddNew

mrc.Fields（0）=Order+1

Order=mrc.Fields（0）

mrc.Update

mrc.Close

txtSQL="select商品代号,商品名称,单价,数量,金额,总计,实收,找零,时间,收款员代号,单据号from当前销售商品信息表"

Setmrc=ExecuteSQL（txtSQL,MsgText）

WithMSHFlexGrid1

Fori=2To.Rows-1

mrc.AddNew

mrc.Fields（0）=.TextMatrix（i,0）

mrc.Fields

（1）=.TextMatrix（i,1）

mrc.Fields

（2）=.TextMatrix（i,2）

mrc.Fields（3）=.TextMatrix（i,3）

mrc.Fields（4）=.TextMatrix（i,4）

mrc.Fields（5）=Text1.Text

mrc.Fields（6）=Text5.Text

mrc.Fields（7）=Text6.Text

mrc.Fields（8）=Date

mrc.Fields（9）=UserOrder

mrc.Fields（10）=Order

mrc.Update

'将当前销售商品信息表复制到历史销售商品信息表

txtSQL="select商品代号,商品名称,单价,数量,金额,总计,实收,找零,时间,收款员代号,单据号from历史销售商品信息表"

Setrec=ExecuteSQL（txtSQL,MsgText）

rec.AddNew

Forj=0To10

rec.Fields（j）=mrc.Fields（j）

Nextj

rec.Update

Nexti

rec.Close

mrc.Close

MSHFlexGrid1.Clear

Text1=""

Text3=""

Text4=""

Text5=""

Text6=""

EndWith

EndSub

PrivateSubCommand2_Click（）

'打印单据报表

DataReport1.Show

'清空当前销售商品信息表

txtSQL="select商品代号,商品名称,单价,数量,金额,总计,实收,找零,时间,收款员代号,单据号from当前销售商品信息表"

Setmrc=ExecuteSQL（txtSQL,MsgText）

DoWhileNotmrc.EOF

mrc.Delete

mrc.MoveNext

Loop

mrc.Close

EndSub

PrivateSubCommand3_Click（）

UnloadMe

EndSub

PrivateSubForm_Load（）

DimiAsInteger

i=0

txtSQL="select*from商品词典表"

Setmrc=ExecuteSQL（txtSQL,MsgText）

WithCombo1

DoWhileNotmrc.EOF

i=i+1

.AddItemTrim（mrc.Fields（"商品代号"））

mrc.MoveNext

Loop

EndWith

mrc.Close

WithMSHFlexGrid1

.Rows=2

.CellAlignment=5

.ColWidth（0）=1500

.ColWidth

（1）=2000

.ColWidth

（2）=1200

.ColWidth（3）=1200

.ColWidth（4）=1500

.TextMatrix（1,0）="商品代号"

.TextMatrix（1,1）="商品名称"

.TextMatrix（1,2）="单价"

.TextMatrix（1,3）="数量"

.TextMatrix（1,4）="金额"

EndWith

Text1.Enabled=False

Text3.Enabled=False

Text6.Enabled=False

EndSub

PrivateSubText4_Change（）

IfText4<>""Then

WithMSHFlexGrid1

.TextMatrix（.Rows-1,3）=Text4.Text

.TextMatrix（.Rows-1,4）=Text3.Text*Text4.Text

Text1.Text=Val（Text1.Text）+Val（.TextMatrix（.Rows-1,4））

EndWith