超市零售管理系统

《超市零售管理系统》由会员分享，可在线阅读，更多相关《超市零售管理系统（15页珍藏版）》请在金锄头文库上搜索。

1、课程设计题目： 超市进货管理系统超市进货管理系统一、系统需求分析1) 进货管理: 根据销售情况及库存情况，自动制定进货计划（亦可手工制定修改） ，可 以避 免盲目进货造成商品积压。 按计划单有选择性地进行自动入库登记。 综合查询打印 计划进货与入库记录及金额。 2) 库存管理： 综合查询库存明细记录。 库存状态自动告警提示。如库存过剩、少货、 缺货等。软件为您预警，避免库存商品积压损失和缺货。 库存自动盘点计算。 3） 人员管理： 员工、会员、供货商、厂商等基本信息登记管理。 员工操作权限管理。 客户销售权限管理。2.2、数据库设计3、数据库设计、数据库设计本应用系统的数据库主要包括以下基本表

2、，数据结构设计如下。表 1：厂商信息表字段名 数据类型 长度（字节） 备注厂商编号 文本 20 主键厂商名称 文本 50 厂商地址 文本 50 联系电话 数字 20 法人地表 文本 20 表 5：入库单字段名 数据类型 长度（字节） 备注入库编号 文本 20 主键 商品型号 文本 20 计量单位 文本 8 单价 货币 16 数量 数字 16 金额 货币 16 生产厂商 文本 50 外键出厂日期 日期 16 仓管员 文本 20 外键表 6：进货单字段名 数据类型 长度（字节） 备注单据编号 文本 20 主键厂商编号 文本 20 外键进货厂商 文本 50 商品型号 文本 20 计量单位 文本 8

3、单价 货币 16 数量 数字 16 金额 货币 16 进货日期 日期 16 采购员 文本 20 外键备注 备注 20 表 2：员工信息表字段名 数据类型 长度（字节） 备注员工编号 文本 20 主键姓 名 文本 20 性 别 文本 20 年 龄 数字 8 身 高 数字 8 政治面貌 文本 20 家庭住址 文本 50 所属部门 文本 20 聘用日期 日期 16 编制日期 日期 16 一、输入板块一、输入板块 1、表单（输入入库单据）、表单（输入入库单据） 实现功能：可通过这个表单将商品的相关信息输入，例如编号、单价、数 量等， 起到一个存储信息的作用，方便以后查询、总结等工作需要。实现过程：实现

4、过程： 单击“文件”下拉菜单，再点击“新建” ，选择 “表单” ，再单击“新建文件”后开始表单输入入 库单据的设计。设计界面如下：输入入库单据的设计的基本结构如下图：“输入”按钮代码 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) if empty(a).or.empty(b).or.emp

5、ty(c).or.empty(d).or.empty(e).or.empty(f).or.empty(g). or.empty(h).or.empty(i)messagebox(“请输入完整信息“)return endif insert into 表入库单; (入库编号,商品型号,计量单位,单价,金额,生产厂商,仓管员,数量,出厂日期) value(a,b,c,d,e,f,g,h,i) z=0 scan for 商品库存表.商品型号=bz=1 endscan use if z=1update 商品库存表 set 数量=数量+h where 商品型号=bmessagebox(“输入入库单据成功！

6、“,64,“系统提示“)returnelseinsert into 表商品库存表;(商品型号,数量) value (b,h)insert into 表商品资料单;(商品型号) value (b)messagebox(“你所输入的是新商品,请输入商品名称“)use do form 表单输入新商品名return endif “取消”按钮代码 Thisform.release3、表单（输入新商品名称）、表单（输入新商品名称） 实现功能：可通过这个表单输入新商品名，添加到数据库中，方便以后相关工作。 单击“文件”下拉菜单，再点击“新建” ，选择“表单” ，再单击“新建文件”后开始表单输入入库单据的设

7、计。设计界面如下： 表单输入入库单据的设计的基本结构如下图：确认按钮代码a=alltrim(thisform.text1.value)update F:vf死都要做出来表商品库存表 set 商品名称=a where 商品型号=bupdate F:vf死都要做出来表商品资料单 set 商品名称=a where 商品型号=bmessagebox(“输入入库单据成功！“,64,“系统提示“)thisform.release取消按钮代码thisform.release三、数据三、数据查询模块 1、项目详细设计入库查询表单2、界面操作说明： 按钮控制策略：组合框内有 9 个选项，编辑框为空，查询按钮及取

8、消按 钮一直为亮。 查询处理过程：此查询为模糊查询，按下组合框内的选项，在编辑框内输 入内容，点击查询，屏幕上将显示一系列与输入内容相关的记录。取消后将 返回原界面。注意：出厂时间的输入需要符合格式才能正确查询，否则将出 现运行错误的提醒。 （王亚编写）3、项目具体实现入库查询表单 本表单用于查询入库商品情况。在组合框中选择要查询的条件，如入库 编号、商品型号等，在文本框中输入信息，按查询按钮，即可显示出相关信 息。如若输入信息有误则会有信息“数据库中不存在您所要查询的记录”提 示。而按取消键则返回到主菜单。 在表单上设计如下事件过程： 1、新建表单 form1，并将其 caption 属性值

9、设为“入库查询” ，width 属性 值设置为 290，height 属性值设置为 175，AutoCenter 属性值设置为.t.，并将 其保存为“入库查询.scx” 。 2、向表单添加一个 grid 控件，并将其 width 属性值设置为 290，height 属 性值设置为 100。 3、在 grid 控件的下方添加一个组合框控件 Combo1 和一个文本框控件， 并将组合框控件的 RowSourceType 属性值设置为“8-结构” ，RowSource 属性 值设置为“入库单” 。 4、在文本框的右侧再添加两个命令按钮 command1 和 command2，并将 command1

10、和 command2 的 caption 属性值分别设置为“查找”和“取消” 。 5、对表单上各控件的位置进行适当的调整，调整后的表单设计器如图 1 重点：（1） “查找”按钮(command1) 的 click 事件如下 ： if empty(thisform.Text1.value)=.f. go top a=thisform.Combo1.value b=alltrim(thisform.Text1.value) local c as integerif a=“入库编号“Select * from 入库单 where 入库 编号 like b +“%“ into cursor basse

11、le basc=reccount()if c1 （图 “查询”按钮（command2）的 click 事件如下：use messagebox(“数据库中不存在您所要查询的记录“,16,“系统提示“) mand2.click()returnendifendifif a=“商品型号“Select * from 入库单 where 商品型号 like b +“%“ into cursor bassele basc=reccount()if c1usemessagebox(“数据库中不存在您所要查询的记录“,16,“系统提示“)mand2.click()returnendifendifif a=“计量

12、单位“Select * from 入库单 where 计量单位 like b +“%“ into cursor bassele basc=reccount()if c1usemessagebox(“数据库中不存在您所要查询的记录“,16,“系统提示“)mand2.click()returnendif endifif a=“生产厂商“Select * from 入库单 where 生产厂商 like b +“%“ into cursor bassele basc=reccount()if c1usemessagebox(“数据库中不存在您所要查询的记录“,16,“系统提示“)mand2.clic

13、k()returnendifendifif a=“仓管员“Select * from 入库单 where 仓管员 like b +“%“ into cursor bassele basc=reccount()if c1usemessagebox(“数据库中不存在您所要查询的记录“,16,“系统提示“)mand2.click()returnendifendifif a=“单价“b=ntom(val(alltrim(thisform.text1.value)Select * from 入库单 where 单价 =b into cursor bassele basc=reccount()if c1u

14、semessagebox(“数据库中不存在您所要查询的记录“,16,“系统提示“)mand2.click()returnendifendifif a=“金额“b=ntom(val(alltrim(thisform.text1.value)Select * from 入库单 where 金额 =b into cursor bassele basc=reccount()if c1usemessagebox(“数据库中不存在您所要查询的记录“,16,“系统提示“)mand2.click()returnendifendifif a=“数量“b=val(alltrim(thisform.text1.va

15、lue)Select * from 入库单 where 数量 =b into cursor bassele basc=reccount()if c1usemessagebox(“数据库中不存在您所要查询的记录“,16,“系统提示“)mand2.click()returnendifendifif a=“出厂日期“b=ctod(alltrim(thisform.text1.value)Select * from 入库单 where 出厂日期 =b into cursor bassele basc=reccount()if c1usemessagebox(“数据库中不存在您所要查询的记录“,16,“系统提示“)mand2.click()returnendifendifwith thisform.grd 入库单.width=588.height=200.left=10.recordsource=“bas“.deletemark=.f.visible=.t.readonly=.t.ColumnCount=9.Column1.Header1