课程设计题目： 超市进货管理系统超市进货管理系统一、系统需求分析1) 进货管理: 根据销售情况及库存情况，自动制定进货计划（亦可手工制定修改） ，可 以避 免盲目进货造成商品积压。 按计划单有选择性地进行自动入库登记。 综合查询打印 计划进货与入库记录及金额。 2) 库存管理： 综合查询库存明细记录。 库存状态自动告警提示。如库存过剩、少货、 缺货等。软件为您预警，避免库存商品积压损失和缺货。 库存自动盘点计算。 3） 人员管理： 员工、会员、供货商、厂商等基本信息登记管理。 员工操作权限管理。 客户销售权限管理。2.2、数据库设计3、数据库设计、数据库设计本应用系统的数据库主要包括以下基本表，数据结构设计如下。表 1：厂商信息表字段名 数据类型 长度（字节） 备注厂商编号 文本 20 主键厂商名称 文本 50 厂商地址 文本 50 联系电话 数字 20 法人地表 文本 20 表 5：入库单字段名 数据类型 长度（字节） 备注入库编号 文本 20 主键 商品型号 文本 20 计量单位 文本 8 单价 货币 16 数量 数字 16 金额 货币 16 生产厂商 文本 50 外键出厂日期 日期 16 仓管员 文本 20 外键表 6：进货单字段名 数据类型 长度（字节） 备注单据编号 文本 20 主键厂商编号 文本 20 外键进货厂商 文本 50 商品型号 文本 20 计量单位 文本 8 单价 货币 16 数量 数字 16 金额 货币 16 进货日期 日期 16 采购员 文本 20 外键备注 备注 20 表 2：员工信息表字段名 数据类型 长度（字节） 备注员工编号 文本 20 主键姓 名 文本 20 性 别 文本 20 年 龄 数字 8 身 高 数字 8 政治面貌 文本 20 家庭住址 文本 50 所属部门 文本 20 聘用日期 日期 16 编制日期 日期 16 一、输入板块一、输入板块 1、表单（输入入库单据）、表单（输入入库单据） 实现功能：可通过这个表单将商品的相关信息输入，例如编号、单价、数 量等， 起到一个存储信息的作用，方便以后查询、总结等工作需要。实现过程：实现过程： 单击“文件”下拉菜单，再点击“新建” ，选择 “表单” ，再单击“新建文件”后开始表单输入入 库单据的设计。设计界面如下：输入入库单据的设计的基本结构如下图：“输入”按钮代码 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.empty(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(“输入入库单据成功！“,64,“系统提示“)returnelseinsert into 表商品库存表;(商品型号,数量) value (b,h)insert into 表商品资料单;(商品型号) value (b)messagebox(“你所输入的是新商品,请输入商品名称“)use do form 表单输入新商品名return endif “取消”按钮代码 Thisform.release3、表单（输入新商品名称）、表单（输入新商品名称） 实现功能：可通过这个表单输入新商品名，添加到数据库中，方便以后相关工作。 单击“文件”下拉菜单，再点击“新建” ，选择“表单” ，再单击“新建文件”后开始表单输入入库单据的设 计。设计界面如下： 表单输入入库单据的设计的基本结构如下图：确认按钮代码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 个选项，编辑框为空，查询按钮及取消按 钮一直为亮。 查询处理过程：此查询为模糊查询，按下组合框内的选项，在编辑框内输 入内容，点击查询，屏幕上将显示一系列与输入内容相关的记录。取消后将 返回原界面。注意：出厂时间的输入需要符合格式才能正确查询，否则将出 现运行错误的提醒。 （王亚编写）3、项目具体实现入库查询表单 本表单用于查询入库商品情况。在组合框中选择要查询的条件，如入库 编号、商品型号等，在文本框中输入信息，按查询按钮，即可显示出相关信 息。如若输入信息有误则会有信息“数据库中不存在您所要查询的记录”提 示。而按取消键则返回到主菜单。 在表单上设计如下事件过程： 1、新建表单 form1，并将其 caption 属性值设为“入库查询” ，width 属性 值设置为 290，height 属性值设置为 175，AutoCenter 属性值设置为.t.，并将 其保存为“入库查询.scx” 。 2、向表单添加一个 grid 控件，并将其 width 属性值设置为 290，height 属 性值设置为 100。 3、在 grid 控件的下方添加一个组合框控件 Combo1 和一个文本框控件， 并将组合框控件的 RowSourceType 属性值设置为“8-结构” ，RowSource 属性 值设置为“入库单” 。 4、在文本框的右侧再添加两个命令按钮 command1 和 command2，并将 command1 和 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 bassele basc=reccount()if c1 （图 “查询”按钮（command2）的 click 事件如下：use messagebox(“数据库中不存在您所要查询的记录“,16,“系统提示“) thisform.command2.click()returnendifendifif a=“商品型号“Select * from 入库单 where 商品型号 like b +“%“ into cursor bassele basc=reccount()if c1usemessagebox(“数据库中不存在您所要查询的记录“,16,“系统提示“)thisform.command2.click()returnendifendifif a=“计量单位“Select * from 入库单 where 计量单位 like b +“%“ into cursor bassele basc=reccount()if c1usemessagebox(“数据库中不存在您所要查询的记录“,16,“系统提示“)thisform.command2.click()returnendif endifif a=“生产厂商“Select * from 入库单 where 生产厂商 like b +“%“ into cursor bassele basc=reccount()if c1usemessagebox(“数据库中不存在您所要查询的记录“,16,“系统提示“)thisform.command2.click()returnendifendifif a=“仓管员“Select * from 入库单 where 仓管员 like b +“%“ into cursor bassele basc=reccount()if c1usemessagebox(“数据库中不存在您所要查询的记录“,16,“系统提示“)thisform.command2.click()returnendifendifif a=“单价“b=ntom(val(alltrim(thisform.text1.value)Select * from 入库单 where 单价 =b into cursor bassele basc=reccount()if c1usemessagebox(“数据库中不存在您所要查询的记录“,16,“系统提示“)thisform.command2.click()returnendifendifif a=“金额“b=ntom(val(alltrim(thisform.text1.value)Select * from 入库单 where 金额 =b into cursor bassele basc=reccount()if c1usemessagebox(“数据库中不存在您所要查询的记录“,16,“系统提示“)thisform.command2.click()returnendifendifif a=“数量“b=val(alltrim(thisform.text1.value)Select * from 入库单 where 数量 =b into cursor bassele basc=reccount()if c1usemessagebox(“数据库中不存在您所要查询的记录“,16,“系统提示“)thisform.command2.click()returnendifendifif a=“出厂日期“b=ctod(alltrim(thisform.text1.value)Select * from 入库单 where 出厂日期 =b into cursor bassele basc=reccount()if c1usemessagebox(“数据库中不存在您所要查询的记录“,16,“系统提示“)thisform.command2.click()returnendifendifwith thisform.grd 入库单.width=588.height=200.left=10.recordsource=“bas“.deletemark=.f.visible=.t.readonly=.t.ColumnCount=9.Column1.Header1