超市管理系统课程设计.docx
- 文档编号:16038260
- 上传时间:2023-07-10
- 格式:DOCX
- 页数:34
- 大小:1.14MB
超市管理系统课程设计.docx
《超市管理系统课程设计.docx》由会员分享,可在线阅读,更多相关《超市管理系统课程设计.docx(34页珍藏版)》请在冰点文库上搜索。
超市管理系统课程设计
题目:
_小型超市管理系统____
作者姓名:
学号:
系(院)、专业:
指导教师姓名:
2012年月日
第1章设计目的与要求
1.1设计背景和功能
超市管理系统是市场上最流行的超市上常用的系统之一,它主要包含以下几个模块:
用户登陆管理、商品类型及商品的管理、进货和销售的管理、销售分析等。
从而,实现对进货、销售及员工信息等实现全面、动态、及时的管理。
随着超市规模的发展和不断扩大,商品数量急剧增加,有关商品的各种信息量也成倍增长。
超市时时刻刻都需要对商品各种信息进行统计分析。
而大型的超市管理系统功能过于强大而造成操作繁琐降低了小超市的工作效率。
小型超市管理系统按分类、分级的模式对仓库进行全面的管理和监控缩短了超市信息流转时间,使企业的物资管理层次分明、井然有序,为采购、销售提供依据,智能化的预警功能可以自动提示存货短缺、超储等异常状况;系统还可进行材料超市ABC分类汇总,减少资金积压。
完善的小型超市管理功能,可对企业的存货进行全面的控制和管理,降低超市成本,增强企业的市场竞争力。
1.2设计环境
硬件环境:
1.一台Pentium4cpu以上的计算机
软件环境:
1.WINDOWSxp操作系统
2.VisualBasic6.0应用程序
3.SQLSERVER2000应用程序
第2章系统分析
2.2需求分析
2.2.1组织结构分析
小型超市分为销售部,库存管理部,财务部,人事部四个主要部门,超市的决策权和管理权归超市经营者拥有,超市的每个部门的管理都有专职人员负责。
小型超市管理系统的组织结构的描述如图2-1所示:
图2-1组织结构图
组织功能表如图2-2所示:
登录界面
用户输入正确的用户名和相对应的密码即可进入,否则退出
系统维护
主要用于实现系统用户设置、操作人员管理、密码修改
采购管理
主要用于实现采购数据和采购单查询、采购统计单查询
库存管理
主要用于实现商品出库、入库的添加修改,商品出库、入库的查询
销售管理
主要用于实现销售数据记录、客户退货记录和销售、退货信息查询
其他设置
主要用于实现员工管理,供应商的设置,省份的设置,商品的种类
报表
主要用于实现库存的盘点、销售的信息、供应商信息
图2-2组织功能表
2.2.2业务流程分析
超市管理系统工作流程为:
登录系统后,超市管理员可对系统相关信息进行操作,包括商品基本信息、供应商信息、销售信息、库存信息、进货信息等过程进行管理。
本系统的业务流程图如图2-3所示:
图2-3业务流程图
2.3数据流图
数据流程图主要反映的是小型超市管理系统中各项功能模块之间的数据流程和简单的数据处理、加工过程和方法,为系统的设计打下基础。
超市管理系统的数据流程:
首先由系统管理员根据不同用户的需要将信息保存到数据库中,然后再进行发布。
用户可以对这些库信息进行查询、添加、修改和删除处理。
通过对本系统的需求分析,系统的基本功能已经确定。
整个流程图如图2-4所示:
图2-4数据流图
2.4数据字典
数据字典是关于数据的信息的集合,也就是对数据流图中包含的所有元素的定义的集合。
数据流图和数据字典共同构成系统的逻辑模型。
1、数据字典列表——数据存储
数据名称:
管理员信息
简述:
用户注册填写的信息
数据来源:
用户注册填写
数据去向:
用户信息表
数据组成:
管理员信息=管理信息唯一标识+管理员帐号+管理员密码+管理员权限+注册时间
描述:
存储了管理员的基本信息
数据存储名称:
商品信息
简述:
管理员填写的商品信息
数据来源:
管理员填写
数据去向:
商品信息表
数据组成:
商品信息=商品信息唯一标识+货物名称+供货编号+进价+售价+数量+厂商等
描述:
存储了商品信息
数据存储名称:
库存信息
简述:
管理员填写的库存信息
数据来源:
管理员填写
数据去向:
库存信息表
数据组成:
库存信息=库存信息唯一标识+商品名称+价格+数量+添加时间+单位+编号等
描述:
存储了库存信息
数据存储名称:
销售信息
简述:
管理员填写的商品销售信息
数据来源:
管理员填写
数据去向:
销售信息表
数据组成:
销售信息=销售信息唯一标识+货物名称+数量+价格+时间等
描述:
存储了销售详细信息
第3章系统设计
系统设计的任务就是依据系统分析文档资料,采用正确的方法来确定系统各功能模块在计算机内应该由哪些程序组成,它们之间用什么方式联结在一起以构成一个最好的系统机内结构,同时还要使用一定的工具将所设计的成果表达出来,另外考虑到实现系统功能的需要,还要进行数据库的详细设计、编码设计、输入/输出界面设计等等。
3.1功能模块设计
根据系统功能分析,可以画出系统的功能模块图,从管理员界面对功能模块图加以描述。
如图3-1所示:
图3-1功能模块图
(1)系统维护模块
系统维护模块用于实现对用户的添加、修改、删除以及操作人员管理、密码修改。
(2)其他设置
其他设置主要用于实现员工的添加、修改、查询以及管理,供应商的设置,省份的设置,商品的种类。
3.2数据库设计
3.2.1概念结构设计
概念结构设计是整个数据库设计的关键,它能通过对需求进行综合,归纳与抽象,形成一个独立于具体DBMS的概念模型,既E-R图如图所示:
图3-2管理员实体的E-R图
图3-3商品信息的E-R图
图3-4供应商实体的E-R图
图3-5仓库的E-R图
图3-6各个实体之间的联系图
3.2.2逻辑结构设计
逻辑设计的任务是根据DBMS的特征把概念结构转换为相应的逻辑结构。
概念设计所得到的E-R模型,是独立于DBMS的,这里的转换就是把表示概念结构的E-R图转换成关系模型的逻辑结构。
将图转换为规范的关系模式为:
密码表(用户名,密码,类型)
员工表(员工编号,员工姓名,性别,职务,联系方式,家庭住址)
生产厂家表(供应商号,省份,厂名,联系方式,网址)
商品表(商品编号,商品名称,种类,单价,单位,净含量,库存量,保质期,生产时间,生产省份,生产厂家)
采购表(供货商号,商品编号,进货日期,商品名称,验收员,进货价,数量,金额)
入库表(商品编号,入库时间,商品厂家,数量)
销售表(商品编号,客户编号,销售日期,数量,商品名称,业务员,金额)
退货表(商品编号,商品名称,生产厂家,退货日期,退货数量,制单人,业务员,金额,客户编号)
将各实体内容的数据类型生成数据库如图5.3所示:
表3-7密码表
字段名
字段类型
字段宽度
说明
username
Char
6
用户名
password1
Char
6
密码
leixing
Char
6
类型
表3-8商品表
字段名
字段类型
字段宽度
说明
spbh
Char
20
商品编号
spmc
Char
20
商品名称
zl
Char
10
种类
dw
Char
10
单位
dj
Int
4
单价
jhl
Int
4
净含量
kcl
Int
4
库存量
bzq
Int
4
保质期
scsj
Datetime
8
生产时间
scsf
Char
20
生产省份
sccj
Char
50
生产厂家
表3-9员工表
字段名
字段类型
字段宽度
说明
ygbh
Char
6
员工编号
ygxm
Char
6
员工姓名
xb
Char
6
性别
zw
Char
6
职务
lxfs
Char
10
联系方式
jtzz
Char
20
家庭住址
表3-10采购表
字段名
字段类型
字段宽度
说明
spbh
Char
6
商品编号
ghsh
Char
6
供货商号
jhrq
Money
4
进货日期
spmc
Char
10
商品名称
ysy
Char
20
验收员
jhj
Int
4
进货价
sl
Char
4
数量
je
Datetime
8
金额
表3-11销售表
字段名
字段类型
字段宽度
说明
spbh
Char
6
商品编号
khbh
Char
6
客户编号
xsrq
Datetime
8
销售日期
xssl
Int
4
销售数量
spmc
Char
10
商品名称
ywy
Char
10
业务员
zdr
Char
10
制单人
je
Char
6
金额
表3-12生产厂家表
字段名
字段类型
字段宽度
说明
ghsh
Char
8
供应商号
sf
Char
40
省份
cm
Char
50
厂名
lxfs
Char
20
联系方式
wz
Char
20
网址
表3-一三入库表
字段名
字段类型
字段宽度
说明
spbh
Char
6
商品编号
rksj
Datetime
8
入库时间
spcj
Char
50
商品厂家
sl
Int
4
数量
第四章.系统实施
4.1注册及登录
该功能可以实现用户的注册和登录
4.1.1注册功能及代码(图4.1)
图4.1用户注册
注册功能代码
PrivateSub注册_Click()
IfText1.Text=""OrText2.Text=""Then
MsgBox"用户名和密码不能为空",16+4,"警告"
Else
DimrsAsNewADODB.Recordset
str1="select*from登录表where用户名='"&Text1.Text&"'"
rs.Openstr1,cn,1,3
rs.AddNew
rs("用户名")=Text1.Text
rs("密码")=Text2.Text
rs.Update
MsgBox"注册成功",64,"信息提示"
EndIf
EndSub
4.1.2登录功能代码
PrivateSubCommand1_Click()
strsql="select*from登录表where用户名='"&Text1.Text&"'"&"and密码='"&Text2.Text&"'"
rs.Openstrsql,cn,1,3
Ifrs.EOFThen
MsgBox"用户名或密码错了",32,"警告"
Else
Form5.Show
UnloadMe
EndIf
EndSub
4.1.3登录界面相关功能与数据库连接的代码
PrivateSubForm_Load()
cn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=超市管理"
cn.Open
EndSub
4.2登录后主界面功能及界面及其相关功能代码
4.2.1登录后主界面(图4.2)
图4.2登录后主界面
4.2.2主界面相关功能代码
DimcnAsNewADODB.Connection
DimrsAsNewADODB.Recordset
'Downloadby
PrivateSubCommand1_Click()
Form2.Show
UnloadMe
EndSub
PrivateSubCommand2_Click()
Form3.Show
UnloadMe
EndSub
PrivateSubCommand3_Click()
Form5.Show
UnloadMe
EndSub
PrivateSubCommand4_Click()
Form4.Show
UnloadMe
EndSub
4.3商品信息查询界面及其相关功能代码
4.3.1查询商品信息功能代码
PrivateSubCommand1_Click()
str1="select*from商品表where商品号='"&Text1.Text&"'"
Ifrs.State=1Then
rs.Close
EndIf
rs.Openstr1,cn,1,3
Ifrs.EOFThen
MsgBox"该商品不存在"
Adodc1xmandType=adCmdText
Adodc1.RecordSource=str1
Adodc1.Refresh
Else
Text1.Text=rs("商品号")
Text2.Text=rs("商品名称")
Text3.Text=rs("库存量")
Text4.Text=rs("商品类型")
Text5.Text=rs("厂商")
Text6.Text=rs("单价")
EndIf
EndSub
4.3.2添加商品功能代码
PrivateSubCommand2_Click()
str1="select*from商品表where商品号='"&Text1.Text&"'"
Ifrs.State=1Then
rs.Close
EndIf
rs.Openstr1,cn,1,3
Ifrs.EOFThen
rs.AddNew
rs("商品号")=Text1.Text
rs("商品名称")=Text2.Text
rs("库存量")=Text3.Text
rs("商品类型")=Text4.Text
rs("厂商")=Text5.Text
rs("单价")=Text6.Text
rs.Update
MsgBox"数据添加成功",64,"信息提示"
Adodc1xmandType=adCmdText
Adodc1.RecordSource="select*from商品表"
Adodc1.Refresh
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Else
MsgBox"该商品已经存在了",16,"警告"
EndIf
EndSub
4.3.3删除商品信息功能代码
PrivateSubCommand4_Click()
DimrsAsNewADODB.Recordset
Dimrs1AsNewADODB.Recordset
Ifrs.State=1Then
rs.Close
EndIf
Ifrs1.State=1Then
rs1.Close
EndIf
rs1.Open"select*from商品表where商品号='"&Text1.Text&"'and商品名称='"&Text2.Text&"'",cn,1,3
Ifrs1.EOFThen
MsgBox"没有此种商品不能删除!
"
Else
rs.Open"delete商品表where商品号='"&Text1.Text&"'and商品名称='"&Text2.Text&"'",cn,1,3
MsgBox"确定删除吗",32+4,"警告"
Adodc1xmandType=adCmdText
Adodc1.RecordSource="select*from商品表"
Adodc1.Refresh
EndIf
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
EndSub
4.3.4商品信息功能与数据库连接代码
PrivateSubForm_Load()
cn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=超市管理"
cn.Open
EndSub
4.4销售记录查询界面及其相关功能代码
4.4.1查询已销售商品信息功能代码
PrivateSubCommand1_Click()
str1="select*from销售表where销售号='"&Text1.Text&"'"
Ifrs.State=1Then
rs.Close
EndIf
rs.Openstr1,cn,1,3
Ifrs.EOFThen
MsgBox"该销售商品不存在"
Adodc1xmandType=adCmdText
Adodc1.RecordSource=str1
Adodc1.Refresh
Else
Text1.Text=rs("销售号")
Text2.Text=rs("职工号")
Text3.Text=rs("商品号")
Text4.Text=rs("销售数量")
Text6.Text=rs("销售时间")
EndIf
EndSub
4.4.2添加已销售商品信息功能代码
PrivateSubCommand2_Click()
str1="select*from销售表where销售号='"&Text1.Text&"'"
Ifrs.State=1Then
rs.Close
EndIf
rs.Openstr1,cn,1,3
Ifrs.EOFThen
rs.AddNew
rs("销售号")=Text1.Text
rs("职工号")=Text2.Text
rs("商品号")=Text3.Text
rs("销售数量")=Text4.Text
rs("销售时间")=Text6.Text
rs.Update
MsgBox"数据添加成功",64,"信息提示"
Adodc1xmandType=adCmdText
Adodc1.RecordSource="select*from销售表"
Adodc1.Refresh
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text6.Text=""
Else
MsgBox"该种销售商品已经存在了",16,"警告"
EndIf
EndSub
4.4.3删除已销售商品信息功能代码
PrivateSubCommand3_Click()
IfAdodc1.Recordset.EOF=FalseThen
c=MsgBox("您确认要删除该记录吗?
",32+4,"特别提示")
X=Adodc1.Recordset.Fields(0)
Ifc=vbYesThen
str1="select*from销售表where销售号='x"&"'"
Ifrs.State=1Then
rs.Close
EndIf
rs.Openstr1,cn,1,3
'Adodc1.Recordset.Delete
Adodc1xmandType=adCmdText
Adodc1.RecordSource="select*from销售表"
Adodc1.Refresh
MsgBox"销售商品的所有信息成功删除",64,"信息提示"
Adodc1.Refresh
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text6.Text=""
EndIf
Else
MsgBox"当前数据库中已经没有可删除的记录",64,"警告"
EndIf
EndSub
4.4.4销售商品信息表与数据库连接代码
PrivateSubForm_Load()
cn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=超市管理"
cn.Open
EndSub
4.5员工信息查询界面及其相关功能代码
4.5.1添加员工信息功能代码
PrivateSubCommand1_Click()
str1="select*from销售人员表where职工号='"&Text1.Text&"'"
Ifrs.State=1Then
rs.Close
EndIf
rs.Openstr1,cn,1,3
Ifrs.EOFThen
rs.AddNew
rs("职工号")=Text1.Text
rs("姓名")=Text2.Text
rs("性别")=Text3.Text
rs("用户类型")=Text4.Text
rs.Update
MsgBox"用户添加成功",64,"信息提示"
Adodc1xmandType=adCmdText
Adodc1.RecordSource="select*from销售人员表"
Adodc1.Refresh
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Else
MsgBox"该职工已经存在了",16,"警告"
EndIf
EndSub
4.5.2查询员信息功能代码
PrivateSubCommand2_Click()
str1="select*from销售人员表where职工号='"&Text1.Text&"'"
Ifrs.State=1Then
rs.Close
EndIf
rs.Openstr1,cn,1,3
Ifrs.EOFThen
MsgBox"这个职工不存在"
Adodc1xmandType=adCmdText
Adodc1.RecordSo
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 超市 管理 系统 课程设计