搜索
东莞理工学院课程设计报告课程名称：FoxPro基础及应用课程设计题目：小型超市零售管理系统一、系统需求分析1)进货管理：根据销售情况及库存情况，自动制定进货计划（亦可手工制定修改），可以避免盲目进货造成商品积压。按计划单有选择性地进行自动入库登记。综合查询打印计划进货与入库记录及金额。2)销售管理：商品正常销售、促销与限量、限期及禁止销售控制。综合查询各种销售明细记录、各地收银员收银记录以及交结帐情况等。按多种方式统计生成销售排行榜，灵活察看和打印商品销售日、月、年报表。3)库存管理：综合查询库存明细记录。库存状态自动告警提示。如库存过剩、少货、缺货等。软件为您预警，避免库存商品积压损失和缺货。库存自动盘点计算。4)人员管理：员工、会员、供货商、厂商等基本信息登记管理。员工操作权限管理。客户销售权限管理。二、系统设计2.1、系统功能模块设计该系统应包括如下几个功能模块，功能模块结构如下图所示1）输入单据：出库、入库、产成品清单2）查询：出库查询、入库查询、产成品查询3）销售：销售费用、销售退款、进/退货4）打印报表：入库报表、出库报表、产成品清单报表、销售退款单报表进/退货报表5）人员管理：员工、会员、供货商、厂商等基本信息登记管理。员工操作权限管理。客户销售权限管理。5)销售费用进退货入库报表出库报表产品目录销售退款进销存系统输入单据查询销售打印报表出库入库产成品出库查询产成品查询入库查询2.2、数据库设计3、数据库设计本应用系统的数据库主要包括以下基本表，数据结构设计如下。表1：厂商信息表字段名数据类型长度（字节）备注厂商编号文本20主键厂商名称文本50厂商地址文本50联系电话数字20法人地表文本20表2：员工信息表字段名数据类型长度（字节）备注员工编号文本20主键姓名文本20性别文本20年龄数字8身高数字8政治面貌文本20家庭住址文本50所属部门文本20聘用日期日期16编制日期日期16表3：用户表字段名数据类型长度(字节)备注用户名文本20密码数字8表4：销售单字段名数据类型长度（字节）备注单据编号文本20主键商品型号文本20计量单位文本8单价货币16数量数字16金额货币16生产厂商文本50外键销售日期日期16营业员文本20外键表5：入库单字段名数据类型长度（字节）备注入库编号文本20主键商品型号文本20计量单位文本8单价货币16数量数字16金额货币16生产厂商文本50外键出厂日期日期16仓管员文本20外键表6：进货单字段名数据类型长度（字节）备注单据编号文本20主键厂商编号文本20外键进货厂商文本50商品型号文本20计量单位文本8单价货币16数量数字16金额货币16进货日期日期16采购员文本20外键备注备注20三、系统实现各模块界面设计与主要模块的程序代码一、输入板块（周慧立、王亚、李倩恩）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))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(请输入完整信息)returnendifinsertinto表\入库单;(入库编号,商品型号,计量单位,单价,金额,生产厂商,仓管员,数量,出厂日期)value(a,b,c,d,e,f,g,h,i)z=0scanfor商品库存表.商品型号=bz=1endscanuseifz=1update商品库存表set数量=数量+hwhere商品型号=bmessagebox(输入入库单据成功！,64,系统提示)returnelseinsertinto表\商品库存表;(商品型号,数量)value(b,h)insertinto表\商品资料单;(商品型号)value(b)messagebox(你所输入的是新商品,请输入商品名称)usedoform表单\输入新商品名returnendif“取消”按钮代码Thisform.release2、表单（输入出库单据）（萧巧谊、李喜仙、梁思音）实现功能：可通过这个表单将出库的商品相关信息输入，例如编号、单价、数量等，起到一个存储信息的作用，方便以后查询，总结等工作需要。实现过程：实现过程：①单击“文件”下拉菜单，再点击“新建”，选择“表单”，再单击“新建文件”后开始表单输入入库单据的设计。设计界面如下：②表单输入入库单据的设计的基本结构如下图：“输入”按钮代码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(请输入完整信息)returnendifz=0x=0use表\商品库存表scanfor商品库存表.商品型号=bz=1x=数量-hendscanifz=0messagebox(库存不足,无法出库!)elseifx0messagebox(库存不足,无法出库!)elseupdate表\商品库存表set数量=数量-hwhere商品型号=binsertinto出库单;(出库编号,商品型号,计量单位,单价,金额,生产厂商,仓管员,数量,出库日期)value(a,b,c,d,e,f,g,h,i)messagebox(输入出库单据成功！,64,系统提示)endifendif取消按钮代码thisform.release3、表单（输入新商品名称）（巫秋金、江映霞）实现功能：可通过这个表单输入新商品名，添加到数据库中，方便以后相关工作。①单击“文件”下拉菜单，再点击“新建”，选择“表单”，再单击“新建文件”后开始表单输入入库单据的设计。设计界面如下：②表单输入入库单据的设计的基本结构如下图：确认按钮代码a=alltrim(thisform.text1.value)updateF:\vf\死都要做出来\表\商品库存表set商品名称=awhere商品型号=bupdateF:\vf\死都要做出来\表\商品资料单set商品名称=awhere商品型号=bmessagebox(输入入库单据成功！,64,系统提示)thisform.release取消按钮代码thisform.release二、编辑与整理(,周慧立、巫秋金、江映霞)1、整理和设计整个小组的设计书2、美化表单（14个表单）具体工作：将整个项目所有表单进行编辑，插入背景图片，改变字体颜色大小，调整版面等。是表单看起来更加美观。表单美化效果如下：三、数据查询模块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事件如下：ifempty(thisform.Text1.value)=.f.gotopa=thisform.Combo1.valueb=alltrim(thisform.Text1.value)localcasintegerifa=入库编号Select*from入库单where入库编号likeb+%intocursorbasselebasc=reccount()ifc1（图①“查询”按钮（command2）的click事件如下：usemessagebox(数据库中不存在您所要查询的记录,16,系统提示)thisform.command2.click()returnendifendififa=商品型号Select*from入库单where商品型号likeb+%intocursorbasselebasc=reccount()ifc1usemessagebox(数据库中不存在您所要查询的记录,16,系统提示)thisform.command2.click()returnendifendififa=计量单位Select*from入库单where计量单位likeb+%intocursorbasselebasc=reccount()ifc1usemessagebox(数据库中不存在您所要查询的记录,16,系统提示)thisform.command2.click()returnendifendififa=生产厂商Select*from入库单where生产厂商likeb+%intocursorbasselebasc=reccount()ifc1usemessagebox(数据库中不存在您所要查询的记录,16,系统提示)thisform.command2.click()returnendifendififa=仓管员Select*from入库单where仓管员likeb+%intocursorbasselebasc=reccount()ifc1usemessagebox(数据库中不存在您所要查询的记录,16,系统提示)thisform.command2.click()returnendifendifi