超市零售管理系统.docx
《超市零售管理系统.docx》由会员分享，可在线阅读，更多相关《超市零售管理系统.docx（36页珍藏版）》请在冰点文库上搜索。
超市零售管理系统
摘要
21世纪，超市的竞争也进入到了一个全新的领域，竞争已不再是规模的竞争，而是技术的竞争、管理的竞争、人才的竞争。
技术的提升和管理的升级是超市业的竞争核心。
零售领域目前呈多元发展趋势，多种业态：
超市、仓储店、便利店、特许加盟店、专卖店、货仓等相互并存。
如何在激烈的竞争中扩大销售额、降低经营成本、扩大经营规模，成为超市营业者努力追求的目标。
此次我使用VisualFoxPro6.0编程，实现了一个简易的超市零售管理系统。
本系统通过对超市零售管理系统进行需求分析和设计逐步将该系统的实现过程呈现出来。
该系统可以对超市商品的入库和出库进行登记，同时还能对商品信息和价格进行查询。
关键词：
数据库；VisualFoxPro6.0；零售；查询
1前言
1.1作业背景
本文根据《数据库应用与开发》课程要求而做。
课程作业要求如下：
用数据库管理系统开发工具（VisualFoxPro）开发一个实用的小型管理信息系统。
根据课程设计时间选择适当规模大小的设计题目，按照系统开发的流程及方法，踏实地开展课程设计活动。
课程设计活动中，撰写相关技术文档。
最后提交详细的课程设计报告。
开发出可上机运行的管理信息系统，通过上机检查。
1.2选题说明
要在有限的两周时间设计出一个小型的超市零售管理系统，考虑到我们知识面和视野以及信息系统的价值性，我决定设计一个日常生活中比较常见的超市零售管理系统。
这个系统能够对大学生成绩进行查询和管理，比较贴近我们大学生的实际，具有较强的可行性、实践性和价值性。
1.2.1基本思路
设计该系统时，采用自底向上的设计方法。
首先设计数据结构，然后设计表单、菜单、报表，最后设计主程序。
1.2.2作业目标
要实现对超市商品信息和销售价格的管理，应该有库存管理和价格查询功能。
要退出系统，需要有退出功能。
如果想打印价格表，应该提供打印功能。
所以超市使用本系统，可以迅速提升超市的管理水平，降低经营成本，提高效益，增强超市扩X力，提供有效的技术保障。
1.3工作业绩
1.3.1主要收获
通过这学期对数据库这门课的学习，我对数据库有了基本的了解。
学会了怎样制作表单，菜单等内容，这对以后的学习工作有了很重大的帮助。
我通过这两周的课程设计：
课程设计的选题，构思，讨论，分配任务，设计程序等工作，其中遇到了很多的困难，但是没有放弃，解决问题，排除困难，这才一步步完成每个任务，还使我掌握了使用各种关系数据库为后台数据库设计一个信息管理系统。
总之，这次课程设计受益匪浅，不仅锻炼了我做事坚持不懈的心态，也慢慢地培养了我不懂就查书的好习惯，我的自学能力也有了一定的提高，我更明白了搞计算机程序设计，要学到真正的技术完全要靠自己，在课堂上只能学到最基本的东西，但这最基本的东西也一定要学好。
1.3.2自我评定
□优□良□中□及格□不及格
2系统总体设计
2.1系统结构图
开发该系统前，先要有一个清晰的系统总体功能图。
在超市零售管理系统中，由项目管理器统一管理系统中的表单、数据表、程序、报表以及主菜单。
系统的整体结构是先运行主程序。
表单和报表中的数据来自数据表中的数据。
如图2.1
图2.1
该系统应包括如下几个功能模块，功能模块结构如下图所示
（1）输入单据：
出库、入库、产成品清单
（2）查询：
出库查询、入库查询、产成品查询
（3）销售：
销售费用、销售退款、进/退货
（4）打印报表：
入库报表、出库报表。
2.2数据库总体设计
进行数据库总体设计首先要进行需求分析，由需求确定系统所需要的数据表，然后确定表所需的字段，最后确定各个表之间的关联。
2.3需求分析
超市销售管理系统主要包括商品入库出库情况登记、商品信息及价格查询和销售业绩汇总等功能。
每个功能都要通过表单和报表来操作数据表中的数据，每个数据表存储了本系统所需要的数据信息。
所以在进行数据库设计之前，要分析出系统所需要的数据表。
2.4所需的数据表
分析超市零售管理系统的情况，首先需要了解商品的基本信息，即需要基本状况表。
用户需要查询商品的生产厂商和价格等信息，所以需要的数据表有商品入库表、商品厂商信息表和销售表等。
2.4.1所需的数据表结构表1：
入库单
字段名数据类型长度（字节）备注
入库编号文本20主键
商品型号文本20
计量单位文本8
单价货币16
数量数字16
金额货币16
生产厂商文本50外键
出厂日期日期16
仓管员文本20外键
表2：
厂商信息表
字段名数据类型长度（字节）备注
厂商编号文本20主键
厂商名称文本50
厂商地址文本50
联系数字20
法人地表文本20
表3：
销售单
字段名数据类型长度（字节）备注
单据编号文本20主键
商品型号文本20
计量单位文本8
单价货币16
数量数字16
金额货币16
生产厂商文本50外键
销售日期日期16
营业员文本20外键
表4：
进货单
字段名数据类型长度（字节）备注
单据编号文本20主键
厂商编号文本20外键
进货厂商文本50
商品型号文本20
计量单位文本8
单价货币16
数量数字16
金额货币16
进货日期日期16
采购员文本20外键
备注备注20
2.5建立项目
项目管理器是visualfoxpro提供的强大的管理工具，它负责管理和组织本系统所需要的数据库、菜单、报表、表单、程序以及一些其他的文件，它是系统中文件、数据、文档和对象的集合。
项目管理器共有6个选项卡，分别是【全部】选项卡、【数据】选项卡、【文档】选项卡、【类】选项卡、【代码】选项卡和【其他】选项卡。
每个选项卡按一定的顺序和逻辑关系管理着项目中的文件。
项目文件以扩展名.pjx和.pjt进行保存。
通过项目管理器，用户可以快速、方便地存取存放在项目文件中的任何对象。
建立项目管理器的步骤如下所示。
（1）启动visualfoxpro，进入程序主界面。
单击菜单栏的【文件】【新建】命令，在弹出的【新建】对话框中选择【项目】单选按钮，如图2.2。
图2.2
（2）单击【新建文件】按钮。
在弹出的【创建】对话框中设置一个文件名，文件名设为大学生成绩查询系统，单击【保存】按钮后即可弹出【项目管理器】对话框，这个新项目就在项目管理器中建立起来了，如图2.3。
图2.3
3建立数据库和数据库表
3.1建立数据库
首先创建数据库，在项目管理器中创建数据库，保存数据库名为【销售管理.dbc】。
3.2建立数据表
我们要在数据库中建立表。
在数据库设计器中建立商品入库出库输入表、商品信息表、商品价格表为了保持表中数据的一致性，需要在各数据表之间建立参照完整性。
当插入、删除或者修改表中记录时，就会参照引用相关联的另外一个表中的数据。
关系数据库管理系统一个重要的功能就是参照完整性。
必须先建立表之间的关系的，才能使用参照完整性。
4表单的设计
4.1登录表单设计
图4.1
登录表单提供销售者登录接口。
销售者只有输入了正确的用户编号和密码，才能登录进入系统。
该表单使用基本情况表，其界面如图4.1所示。
4.2商品入库出库输入表单设计
4.2.1商品入库表单设计1、表单（输入入库单据）
实现功能：
可通过这个表单将商品的相关信息输入，例如编号、单价、数量等，起到一个存储信息的作用，方便以后查询、总结等工作需要。
实现过程：
实现过程：
1单击“文件”下拉菜单，再点击“新建”，选择“表单”，再单击“新建文件”后开始表单输入入库单据的设计。
如图4.2
图4.2
设计界面如下：
2入入库单据的设计的基本结构如图4.3：
图4.3
“输入”按钮代码
e=ntom（val（alltrim（thisform.text5.value）））
f=alltrim（thisform.Text6.value）
g=alltrim（thisform.text7.value）
h=val（alltrim（thisform.text8.value））
i=ctod（alltrim（thisform.Text9.value））
ifempty（a）.or.empty（b）.or.empty（c）.or.empty（d）.or.empty（e）.or.empty（f）.or.empty（g）.or.empty（h）.or.empty（i）
messagebox（"请输入完整信息"）
return
endif
insertinto表\入库单;
（入库编号,商品型号,计量单位,单价,金额,生产厂商,仓管员,数量,出厂日期）value（a,b,c,d,e,f,g,h,i）
z=0
scanfor商品库存表.商品型号=b
z=1
endscan
use
ifz=1
update商品库存表set数量=数量+hwhere商品型号=b
messagebox（"输入入库单据成功！
",64,"系统提示"）
return
else
insertinto表\商品库存表;
（商品型号,数量）value（b,h）
insertinto表\商品资料单;
（商品型号）value（b）
messagebox（"你所输入的是新商品,请输入商品名称"）
use
doform表单\输入新商品名
return
endif
“取消”按钮代码
Thisform.release
4.2.2商品出库输入表单设计
实现功能：
可通过这个表单将出库的商品相关信息输入，例如编号、单价、数量等，起到一个存储信息的作用，方便以后查询，总结等工作需要。
实现过程：
1单击“文件”下拉菜单，再点击“新建”，选择“表单”，再单击“新建文件”后开始表单输入入库单据的设计。
设计界面如下：
输入入库单据的设计表单如图4.4
图4.4
“输入”按钮代码
a=alltrim（thisform.text1.value）
b=alltrim（thisform.Text2.value）
c=alltrim（thisform.text3.value）
d=ntom（val（alltrim（thisform.Text4.value）））
e=ntom（val（alltrim（thisform.text5.value）））
f=alltrim（thisform.Text6.value）
g=alltrim（thisform.text7.value）
h=val（alltrim（thisform.text8.value））
i=ctod（alltrim（thisform.Text9.value））
ifempty（a）.or.empty（b）.or.empty（c）.or.empty（d）.or.empty（e）.or.empty（f）.or.empty（g）.or.empty（h）.or.empty（i）
messagebox（"请输入完整信息"）
return
endif
z=0
x=0
use表\商品库存表
scanfor商品库存表.商品型号=b
z=1
x=数量-h
endscan
ifz=0
messagebox（"库存不足,无法出库!
"）
else
ifx<0
messagebox（"库存不足,无法出库!
"）
else
update表\商品库存表set数量=数量-hwhere商品型号=b
insertinto出库单;
（出库编号,商品型号,计量单位,单价,金额,生产厂商,仓管员,数量,出库日期）value（a,b,c,d,e,f,g,h,i）
messagebox（"输入出库单据成功！
",64,"系统提示"）
endif
endif
取消按钮代码
Thisform.release
4.3商品价格查询表单设计
4.3.1查询表单设计
1、项目详细设计
查询模块：
出库查询、入库查询、库存查询、商品资料查询
例：
入库查询表单如图4.5
图4.5
2、界面操作说明：
按钮控制策略：
组合框内有9个选项，编辑框为空，查询按钮及取消按钮一直为亮。
查询处理过程：
此查询为模糊查询，按下组合框内的选项，在编辑框内输入内容，点击查询，屏幕上将显示一系列与输入内容相关的记录。
取消后将返回原界面。
注意：
出厂时间的输入需要符合格式才能正确查询，否则将出现运行错误的提醒。
3、项目具体实现
例：
入库查询表单
本表单用于查询入库商品情况。
在组合框中选择要查询的条件，如入库编号、商品型号等，在文本框中输入信息，按查询按钮，即可显示出相关信息。
如若输入信息有误则会有信息“数据库中不存在您所要查询的记录”提示。
而按取消键则返回到主菜单。
在表单上设计如下事件过程：
1、新建表单form1，并将其caption属性值设为“入库查询”，width属性值设置为290，height属性值设置为175，AutoCenter属性值设置为.t.，并将其保存为“入库查询.scx”。
2、向表单添加一个grid控件，并将其width属性值设置为290，height属性值设置为100。
3、在grid控件的下方添加一个组合框控件bo1和一个文本框控件，并将组合框控件的RowSourceType属性值设置为“8-结构”，RowSource属性值设置为“入库单”。
4、在文本框的右侧再添加两个命令按钮mand1和mand2，并将mand1和mand2的caption属性值分别设置为“查找”和“取消”。
5、对表单上各控件的位置进行适当的调整，调整后的表单设计器如图4.6
图4.6
重点：
（1）“查找”按钮（mand1）
的click事件如下：
ifempty（thisform.Text1.value）=.f.
gotop
a=thisform.bo1.value
b=alltrim（thisform.Text1.value）
localcasinteger
ifa="入库编号"
Select*from入库单where入库
编号likeb+"%"intocursorbas
selebas
c=reccount（）
ifc<1（图①“查询”按钮（mand2）的click事件如下：
use
messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"）
thisform.mand2.click（）
return
endif
endif
ifa="商品型号"
Select*from入库单where商品型号likeb+"%"intocursorbas
selebas
c=reccount（）
ifc<1
use
messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"）
thisform.mand2.click（）
return
endif
endif
ifa="计量单位"
Select*from入库单where计量单位likeb+"%"intocursorbas
selebas
c=reccount（）
ifc<1
use
messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"）
thisform.mand2.click（）
return
endif
endif
ifa="生产厂商"
Select*from入库单where生产厂商likeb+"%"intocursorbas
selebas
c=reccount（）
ifc<1
use
messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"）
thisform.mand2.click（）
return
endif
endif
ifa="仓管员"
Select*from入库单where仓管员likeb+"%"intocursorbas
selebas
c=reccount（）
ifc<1
use
messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"）
thisform.mand2.click（）
return
endif
endif
ifa="单价"
b=ntom（val（alltrim（thisform.text1.value）））
Select*from入库单where单价=bintocursorbas
selebas
c=reccount（）
ifc<1
use
messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"）
thisform.mand2.click（）
return
endif
endif
ifa="金额"
b=ntom（val（alltrim（thisform.text1.value）））
Select*from入库单where金额=bintocursorbas
selebas
c=reccount（）
ifc<1
use
messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"）
thisform.mand2.click（）
return
endif
endif
ifa="数量"
b=val（alltrim（thisform.text1.value））
Select*from入库单where数量=bintocursorbas
selebas
c=reccount（）
ifc<1
use
messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"）
thisform.mand2.click（）
return
endif
endif
ifa="出厂日期"
b=ctod（alltrim（thisform.text1.value））
Select*from入库单where出厂日期=bintocursorbas
selebas
c=reccount（）
ifc<1
use
messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"）
thisform.mand2.click（）
return
endif
endif
withthisform.grd入库单
.width=588
.height=200
.left=10
.recordsource="bas"
.deletemark=.f.
.visible=.t.
.readonly=.t.
.ColumnCount=9
.Column1.Header1.Caption="入库编号"
.Column1.Header1.BackColor=RGB（255,255,190）
.Column2.Header1.BackColor=RGB（255,255,190）
.Column2.Header1.Caption="商品型号"
.Column3.Header1.BackColor=RGB（255,255,190）
.Column3.Header1.Caption="计量单位"
.Column4.Header1.BackColor=RGB（255,255,190）
.Column4.Header1.Caption="单价"
.Column5.Header1.BackColor=RGB（255,255,190）
.Column5.Header1.Caption="数量"
.Column6.Header1.BackColor=RGB（255,255,190）
.Column6.Header1.Caption="金额"
.Column7.Header1.BackColor=RGB（255,255,190）
.Column7.Header1.Caption="生产厂商"
.Column8.Header1.BackColor=RGB（255,255,190）
.Column8.Header1.Caption="出厂日期"
.Column9.Header1.BackColor=RGB（255,255,190）
.Column9.Header1.Caption="仓管员"
.Column1.width=80
.Column2.width=80
.Column3.width=80
.Column4.width=80
.Column5.width=80
.Column6.width=80
.Column7.width=80
.Column8.width=80
.Column9.width=80
endwith
thisform.grd入库单.Setall（"DynamicBackColor","RGB（224,225,255）","Column"）
thisform.grd入库单.setfocus
else
messagebox（"请输入要查找的内容！
",16,"系统提示"）
thisform.Text1.value=""
thisform.Text1.Setfocus
endif
1取消”按钮（mand2）的click事件如下：
Thisform.release
下图为查询模块其余的出库查询、库存查询和商品资料查询的界面设计，其制
作过程与入库查询相似。
如图4.7和4.8
图4.7
图4.8
4.3.2信息修改表单1、项目详细设计修改模块：
出库修改、入库修改、商品资料修改例：
入库修改如图4.9
图4.9
2、界面操作说明：
按钮控制策略：
查找方式组合框共有9个选项，查找内容为空，查找、修改、取消按钮一直为亮。
修改处理过程：
需要修改时，在组合框中选择要查找的条件，在文本框中输入相应信息（输入信息要正确，否则系统会出现错误提示），按按钮查找，即下面的文本框中会出现所要查找的记录的详细信息（其中入库编号是固定的）。
对相应信息进行修改后，按按钮修改，即可保存修改好的信息。
3、项目具体实现
例：
入库修改
本表单用于对入库商品的相关信息进行修改。
在组合框中选择要查找的条件，在文本框中输入相应信息（输入信息要正确，否则系统会出现错误提示），按按钮查找，即下面的文本框中会出现所要查找的记录的详细信息（其中入库编号是固定的）。
对相应信息进行修改后，按按钮修改，即可保存修改好的信息。
按取消按钮则返回主菜单。
本表单使用的数据环境为入库单和厂商信息表。
在表单上设计如下事件过程：
1、新建表单form1，并将其caption属性设置为“入库修改”，width属性值设为290，height属性值设为226，AutoCenter属性值设
升级会员 