超市零售管理系统.docx

1、超市零售管理系统摘 要21世纪，超市的竞争也进入到了一个全新的领域，竞争已不再是规模的竞争，而是技术的竞争、管理的竞争、人才的竞争。技术的提升和管理的升级是超市业的竞争核心。零售领域目前呈多元发展趋势，多种业态：超市、仓储店、便利店、特许加盟店、专卖店、货仓等相互并存。如何在激烈的竞争中扩大销售额、降低经营成本、扩大经营规模，成为超市营业者努力追求的目标。此次我使用Visual FoxPro 6.0编程，实现了一个简易的超市零售管理系统。本系统通过对超市零售管理系统进行需求分析和设计逐步将该系统的实现过程呈现出来。该系统可以对超市商品的入库和出库进行登记，同时还能对商品信息和价格进行查询。关键

2、词：数据库；Visual FoxPro 6.0；零售；查询1 前言1.1 作业背景本文根据数据库应用与开发课程要求而做。课程作业要求如下：用数据库管理系统开发工具（Visual FoxPro）开发一个实用的小型管理信息系统。根据课程设计时间选择适当规模大小的设计题目，按照系统开发的流程及方法，踏实地开展课程设计活动。课程设计活动中，撰写相关技术文档。最后提交详细的课程设计报告。开发出可上机运行的管理信息系统，通过上机检查。1.2 选题说明要在有限的两周时间设计出一个小型的超市零售管理系统，考虑到我们知识面和视野以及信息系统的价值性，我决定设计一个日常生活中比较常见的超市零售管理系统。这个系统能

3、够对大学生成绩进行查询和管理，比较贴近我们大学生的实际，具有较强的可行性、实践性和价值性。1.2.1 基本思路设计该系统时，采用自底向上的设计方法。首先设计数据结构，然后设计表单、菜单、报表，最后设计主程序。1.2.2 作业目标要实现对超市商品信息和销售价格的管理，应该有库存管理和价格查询功能。要退出系统，需要有退出功能。如果想打印价格表，应该提供打印功能。所以超市使用本系统，可以迅速提升超市的管理水平，降低经营成本，提高效益，增强超市扩X力，提供有效的技术保障。1.3 工作业绩1.3.1主要收获通过这学期对数据库这门课的学习，我对数据库有了基本的了解。学会了怎样制作表单，菜单等内容，这对以后

4、的学习工作有了很重大的帮助。我通过这两周的课程设计：课程设计的选题，构思，讨论，分配任务，设计程序等工作，其中遇到了很多的困难，但是没有放弃，解决问题，排除困难，这才一步步完成每个任务，还使我掌握了使用各种关系数据库为后台数据库设计一个信息管理系统。总之，这次课程设计受益匪浅，不仅锻炼了我做事坚持不懈的心态，也慢慢地培养了我不懂就查书的好习惯，我的自学能力也有了一定的提高，我更明白了搞计算机程序设计，要学到真正的技术完全要靠自己，在课堂上只能学到最基本的东西，但这最基本的东西也一定要学好。1.3.2 自我评定优 良 中 及格 不及格2 系统总体设计2.1 系统结构图开发该系统前，先要有一个清晰

5、的系统总体功能图。在超市零售管理系统中，由项目管理器统一管理系统中的表单、数据表、程序、报表以及主菜单。系统的整体结构是先运行主程序。表单和报表中的数据来自数据表中的数据。如图2.1图2.1该系统应包括如下几个功能模块，功能模块结构如下图所示(1）输入单据：出库、入库、产成品清单(2）查询：出库查询、入库查询、产成品查询(3）销售：销售费用、销售退款、进/退货(4）打印报表：入库报表、出库报表。2.2 数据库总体设计进行数据库总体设计首先要进行需求分析，由需求确定系统所需要的数据表，然后确定表所需的字段，最后确定各个表之间的关联。2.3 需求分析超市销售管理系统主要包括商品入库出库情况登记、商

6、品信息及价格查询和销售业绩汇总等功能。每个功能都要通过表单和报表来操作数据表中的数据，每个数据表存储了本系统所需要的数据信息。所以在进行数据库设计之前，要分析出系统所需要的数据表。2.4 所需的数据表分析超市零售管理系统的情况，首先需要了解商品的基本信息，即需要基本状况表。用户需要查询商品的生产厂商和价格等信息，所以需要的数据表有商品入库表、商品厂商信息表和销售表等。2.4.1所需的数据表结构表1：入库单 字段名 数据类型 长度（字节） 备注 入库编号 文本 20 主键 商品型号 文本 20 计量单位 文本 8 单价 货币 16 数量 数字 16 金额 货币 16 生产厂商 文本 50 外键

7、出厂日期 日期 16 仓管员 文本 20 外键表2：厂商信息表 字段名 数据类型 长度（字节） 备注 厂商编号 文本 20 主键 厂商名称 文本 50 厂商地址 文本 50 联系 数字 20 法人地表 文本 20 表3：销售单 字段名 数据类型 长度（字节） 备注 单据编号 文本 20 主键 商品型号 文本 20 计量单位 文本 8 单价 货币 16 数量 数字 16 金额 货币 16 生产厂商 文本 50 外键 销售日期 日期 16 营业员 文本 20 外键表4：进货单 字段名 数据类型 长度（字节） 备注 单据编号 文本 20 主键 厂商编号 文本 20 外键 进货厂商 文本 50 商品型

8、号 文本 20 计量单位 文本 8 单价 货币 16 数量 数字 16 金额 货币 16 进货日期 日期 16 采购员 文本 20 外键 备注 备注 202.5建立项目项目管理器是visual foxpro 提供的强大的管理工具，它负责管理和组织本系统所需要的数据库、菜单、报表、表单、程序以及一些其他的文件，它是系统中文件、数据、文档和对象的集合。项目管理器共有6个选项卡，分别是【全部】选项卡、【数据】选项卡、【文档】选项卡、【类】选项卡、【代码】选项卡和【其他】选项卡。每个选项卡按一定的顺序和逻辑关系管理着项目中的文件。项目文件以扩展名.pjx和.pjt进行保存。通过项目管理器，用户可以快速

9、、方便地存取存放在项目文件中的任何对象。建立项目管理器的步骤如下所示。（1）启动visual foxpro ，进入程序主界面。单击菜单栏的【文件】 【新建】命令，在弹出的【新建】对话框中选择【项目】单选按钮，如图2.2。图2.2（2）单击【新建文件】按钮。在弹出的【创建】对话框中设置一个文件名，文件名设为大学生成绩查询系统，单击【保存】按钮后即可弹出【项目管理器】对话框，这个新项目就在项目管理器中建立起来了，如图2.3。图2.33 建立数据库和数据库表3.1 建立数据库首先创建数据库，在项目管理器中创建数据库，保存数据库名为【销售管理.dbc】。3.2 建立数据表我们要在数据库中建立表。在数据

10、库设计器中建立商品入库出库输入表、商品信息表、商品价格表为了保持表中数据的一致性，需要在各数据表之间建立参照完整性。当插入、删除或者修改表中记录时，就会参照引用相关联的另外一个表中的数据。关系数据库管理系统一个重要的功能就是参照完整性。必须先建立表之间的关系的，才能使用参照完整性。4 表单的设计4.1 登录表单设计图4.1登录表单提供销售者登录接口。销售者只有输入了正确的用户编号和密码，才能登录进入系统。该表单使用基本情况表，其界面如图4.1所示。4.2 商品入库出库输入表单设计4.2.1商品入库表单设计1、表单（输入入库单据）实现功能：可通过这个表单将商品的相关信息输入，例如编号、单价、数量

11、等， 起到一个存储信息的作用，方便以后查询、总结等工作需要。实现过程：实现过程：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.

12、Text9.value)if empty(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(请输入完整信息)returnendifinsert into 表入库单;(入库编号,商品型号,计量单位,单价,金额,生产厂商,仓管员,数量,出厂日期) value(a,b,c,d,e,f,g,h,i)z=0scan for 商品库存表.商品型号=bz=1endscanuseif z=1 update 商品库存表 set 数量=数量+h

13、where 商品型号=b messagebox(输入入库单据成功！,64,系统提示)returnelse insert into 表商品库存表; (商品型号,数量) value (b,h) insert into 表商品资料单; (商品型号) value (b) messagebox(你所输入的是新商品,请输入商品名称)use do form 表单输入新商品名returnendif“取消”按钮代码Thisform.release4.2.2商品出库输入表单设计实现功能：可通过这个表单将出库的商品相关信息输入，例如编号、单价、数量等， 起到一个存储信息的作用，方便以后查询，总结等工作需要。实现过程

14、：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

15、(thisform.text7.value)h=val(alltrim(thisform.text8.value)i=ctod(alltrim(thisform.Text9.value)if empty(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(请输入完整信息) returnendifz=0x=0use 表商品库存表scan for 商品库存表.商品型号=bz=1x=数量-hendscanif z=0messagebo

16、x(库存不足,无法出库!)elseif x0 messagebox(库存不足,无法出库!)else update 表商品库存表 set 数量=数量-h where 商品型号=b insert into 出库单; (出库编号,商品型号,计量单位,单价,金额,生产厂商,仓管员,数量,出库日期) value(a,b,c,d,e,f,g,h,i) messagebox(输入出库单据成功！,64,系统提示)endifendif取消按钮代码Thisform.release4.3 商品价格查询表单设计4.3.1查询表单设计1、项目详细设计查询模块：出库查询、入库查询、库存查询、商品资料查询例：入库查询表单如

17、图4.5图4.52、界面操作说明：按钮控制策略：组合框内有9个选项，编辑框为空，查询按钮及取消按钮一直为亮。查询处理过程：此查询为模糊查询，按下组合框内的选项，在编辑框内输入内容，点击查询，屏幕上将显示一系列与输入内容相关的记录。取消后将返回原界面。注意：出厂时间的输入需要符合格式才能正确查询，否则将出现运行错误的提醒。3、项目具体实现例：入库查询表单本表单用于查询入库商品情况。在组合框中选择要查询的条件，如入库编号、商品型号等，在文本框中输入信息，按查询按钮，即可显示出相关信息。如若输入信息有误则会有信息“数据库中不存在您所要查询的记录”提示。而按取消键则返回到主菜单。在表单上设计如下事件过

18、程：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属性值分别设

19、置为“查找”和“取消”。5、对表单上各控件的位置进行适当的调整，调整后的表单设计器如图4.6图4.6重点：（1）“查找”按钮(mand1) 的click事件如下 ：if empty(thisform.Text1.value)=.f.go topa=thisform.bo1.valueb=alltrim(thisform.Text1.value)local c as integer if a=入库编号 Select * from 入库单 where 入库编号 like b +% into cursor bas sele bas c=reccount() if c1 （图“查询”按钮（mand2）

20、的click事件如下： use messagebox(数据库中不存在您所要查询的记录,16,系统提示) thisform.mand2.click() return endif endif if a=商品型号 Select * from 入库单 where 商品型号 like b +% into cursor bas sele bas c=reccount() if c1 use messagebox(数据库中不存在您所要查询的记录,16,系统提示) thisform.mand2.click() return endifendif if a=计量单位 Select * from 入库单 wher

21、e 计量单位 like b +% into cursor bas sele bas c=reccount() if c1use messagebox(数据库中不存在您所要查询的记录,16,系统提示) thisform.mand2.click() return endifendif if a=生产厂商 Select * from 入库单 where 生产厂商 like b +% into cursor bas sele bas c=reccount() if c1 use messagebox(数据库中不存在您所要查询的记录,16,系统提示) thisform.mand2.click() ret

22、urn endif endif if a=仓管员 Select * from 入库单 where 仓管员 like b +% into cursor bas sele bas c=reccount() if c1 use messagebox(数据库中不存在您所要查询的记录,16,系统提示) thisform.mand2.click() return endifendif if a=单价 b=ntom(val(alltrim(thisform.text1.value) Select * from 入库单 where 单价 =b into cursor bas sele bas c=reccou

23、nt() if c1 use messagebox(数据库中不存在您所要查询的记录,16,系统提示) thisform.mand2.click() return endifendifif a=金额 b=ntom(val(alltrim(thisform.text1.value) Select * from 入库单 where 金额 =b into cursor bas sele bas c=reccount() if c1 use messagebox(数据库中不存在您所要查询的记录,16,系统提示) thisform.mand2.click() return endifendif if a=

24、数量 b=val(alltrim(thisform.text1.value) Select * from 入库单 where 数量 =b into cursor bas sele bas c=reccount() if c1 use messagebox(数据库中不存在您所要查询的记录,16,系统提示) thisform.mand2.click() return endifendif if a=出厂日期 b=ctod(alltrim(thisform.text1.value) Select * from 入库单 where 出厂日期 =b into cursor bas sele bas c=

25、reccount() if c1 use messagebox(数据库中不存在您所要查询的记录,16,系统提示) thisform.mand2.click() return endifendif with thisform.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) .

26、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.

27、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=8

28、0 .Column2.width=80 .Column3.width=80 .Column4.width=80 .Column5.width=80 .Column6.width=80 .Column7.width=80 .Column8.width=80 .Column9.width=80endwith thisform.grd入库单.Setall(DynamicBackColor,RGB(224,225,255),Column) thisform.grd入库单.setfocuselse messagebox(请输入要查找的内容！,16,系统提示) thisform.Text1.value=

29、thisform.Text1.Setfocusendif1取消”按钮（mand2）的click事件如下：Thisform.release下图为查询模块其余的出库查询、库存查询和商品资料查询的界面设计，其制作过程与入库查询相似。如图4.7和4.8图4.7图4.84.3.2信息修改表单1、项目详细设计修改模块：出库修改、入库修改、商品资料修改例：入库修改 如图4.9图4.92、界面操作说明：按钮控制策略：查找方式组合框共有9个选项，查找内容为空，查找、修改、取消按钮一直为亮。修改处理过程：需要修改时，在组合框中选择要查找的条件，在文本框中输入相应信息（输入信息要正确，否则系统会出现错误提示），按按

30、钮查找，即下面的文本框中会出现所要查找的记录的详细信息（其中入库编号是固定的）。对相应信息进行修改后，按按钮修改，即可保存修改好的信息。3、项目具体实现例：入库修改本表单用于对入库商品的相关信息进行修改。在组合框中选择要查找的条件，在文本框中输入相应信息（输入信息要正确，否则系统会出现错误提示），按按钮查找，即下面的文本框中会出现所要查找的记录的详细信息（其中入库编号是固定的）。对相应信息进行修改后，按按钮修改，即可保存修改好的信息。按取消按钮则返回主菜单。本表单使用的数据环境为入库单和厂商信息表。在表单上设计如下事件过程：1、新建表单form1，并将其caption属性设置为“入库修改”，width属性值设为290，height属性值设为226，AutoCenter属性值设