管理信息系统课程设计报告超市门店进销存管理系统.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（.TextMatr
升级会员 