小型超零售管理系统设计书

1、小型超市零售管理系 统设计书一、系统需求分析1）进货管理： 根据销售情况及库存情况，自动制定进货计划（亦可手工制定修改），可以避免盲目进货造成商品积压。按计划单有选择性地进行自动入库登记。综合查询打印计划进货与入库记录及金额。2）销售管理：商品正常销售、促销与限量、限期及禁止销售控制。综合查询各种销售明细记录、各地收银员收银记录以及交结帐情况等。按多种方式统计生成销售排行榜，灵活察看和打印商品销售日 月、年报表。3）库存管理：综合查询库存明细记录。库存状态自动告警提示。如库存过剩、少货、缺货等。软件为您预警，避免库存商品积压损失和缺货。库存自动盘点计算。4）人员管理：员工、会员、供货商、厂商等

2、基本信息登记管理。员工操作权限管理。客户销售权限管理。二、系统设计2.1、系统功能模块设计该系统应包括如下几个功能模块，功能模块结构如下图所示1）输入单据：出库、入库、产成品清单2）查询：出库查询、入库查询、产成品查询3） 销售：销售费用、销售退款、进/退货4） 打印报表：入库报表、出库报表、产成品清单报表、销售退款单报表进/退货报表5） 人员管理：员工、会员、供货商、厂商等基本信息登记管理。员工操作权限管理。 客户销售权限管理。5)2.2 、数据库设计3、数据库设计本应用系统的数据库主要包括以下基本表，数据结构设计如下。 表 1：厂商信息表字段名 数据类型 长度（字节） 备注 厂商编号 文本

3、 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生

4、产厂商 文本 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、表单（输入入库单据）实现功能：可通过这个表单将

5、商品的相关信息输入，例如编号、单价、数量 等，起到一个存储信息的作用，方便以后查询、总结等工作需要。实现过程：实现过程：单击“文件”下拉菜单，再点击“新建”，选择“表 单”，再单击“新建文件”后开始表单输入入库单据 的设计。广觀!0库il） r寢熾 r卷：W广厅隹IEr报我a （愫誓ij设计界面如下：输入入库单据的设计的基本结构如下图:“输入”按钮代码e=n tom(val(alltrim(thisform.text5.value)f=alltrim(thisform.Text6.value)g=alltrim(thisform.text7.value)h=val(alltrim(thisfo

6、rm.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(请输入完整信息)returnen difinsert into 表 入库单;（入库编号，商品型号，计量单位，单价,金额,生产厂商，仓管员,数量,出厂日期）value（a,b,c,d,e,f,g,h,i）z=0scan for 商品库存表.商品型号=bz=1end

7、scanuseif z=1update 商品库存表set 数量=数量+h where商品型号=bmessagebox（输入入库单据成功！ ,64,系统提示）returnelseinsert into表 商品库存表；（商品型号,数量）value （b,h）insert into表商品资料单；（商品型号）value （b）messagebox（你所输入的是新商品，请输入商品名称）usedo form表单输入新商品名returnen dif“取消”按钮代码Thisform.release 2、表单（输入出库单据）（萧巧谊、喜仙、梁思音 ）实现功能：可通过这个表单将出库的商品相关信息输入，例如编号、单

8、价、数 量等， 起到一个存储信息的作用，方便以后查询，总结等工作需要。实现过程：实现过程：单击“文件”下拉菜单，再点击“新建”，选择“表 单”，再单击“新建文件”后开始表单输入入库单 据的设计。设计界面如下：表单输入入库单据的设计的基本结构如下图:好 Forml一Ei-厶岀库輪商品型号汩星单位敎量1TtxiS注严商Tert?取消出T甘期总管员暑!S8鰹巨 表单谡计爵-序入出库单哥再康I TexlS I lifeTex 13Tax14TextB :“输入”按钮代码a=alltrim(thisform.text1.value)b=alltrim(thisform.Text2.value)c=all

9、trim(thisform.text3.value)d=n tom(val(alltrim(thisform.Text4.value)e=n tom(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).

10、or.empty(f).or.empty(g).or.empty(h).or.empty(i)messagebox(请输入完整信息)returnen difz=0x=0use表商品库存表scan for 商品库存表.商品型号=bz=1x=数量-hendscanif z=0messagebox（库存不足,无法出库!）elseif x0messagebox（ 库存不足,无法出库!）elseupdate 表 商品库存表set 数量二数量-h where 商品型号=b insert into出库单;（出库编号，商品型号，计量单位，单价,金额,生产厂商，仓管员，数量,出库 日期）value（a,b,c,

11、d,e,f,g,h,i）messagebox（输入出库单据成功！,64,系统提示）en difen dif取消按钮代码thisform.release 3、表单（输入新商品名称）（巫秋金、江映霞）实现功能：可通过这个表单输入新商品名，添加到数据库中，方便以后相关工作。0r丈本之件讯）C菜单mr損規 c斩搓Q觀I&塀心C黑 r查询1）r 吕 VIT单击“文件”下拉菜单，再点击“新建”，选择“表单”， 再单击“新建文件”后开始表单输入入库单据的设计设计界面如下:表单输入入库单据的设计的基本结构如下图:确认按钮代码a=alltrim(thisform.text1.value)死都要做出来 表 商品库

12、存表set商品名称=a where商品型号=b死都要做出来 表 商品资料单set商品名称=a where商品型号=bmessagebox（输入入库单据成功！,64,系统提示）thisform.release取消按钮代码thisform.release【、编辑与整理（,周慧立、巫秋金、江映霞）1、整理和设计整个小组的设计书2、美化表单（14个表单）具体工作：将整个项目所有表单进行编辑，插入背景图片，改变字体颜色大 小，调整版面等。是表单看起来更加美观。表单美化效果如下:目表单设计器对数蚕的修改.sex富 Formlwww.sonribtown.colkr :論晶资霜修改H- -yViirMRTr

13、%请选择查找方式厂请输入要查找的丙容CnmbolTexil取消商品型号I商品名称1修改Tw(t2查找lg卢丰轄 Furnil商品资料修改;请选择查找方武淸输入墓査找旳内容Text 1Ccvbol 揄屈型号商品名输Txt3职消三、数据查询模块1项目详细设计查询模块：出库查询、入库查询、库存查询、商品资料查询 例：入库查询表单:込崖查询Textl取捎Combol2、界面操作说明：按钮控制策略：组合框有9个选项，编辑框为空，查询按钮及取消按钮一 直为亮。查询处理过程：此查询为模糊查询，按下组合框的选项，在编辑框输入容， 点击查询，屏幕上将显示一系列与输入容相关的记录。取消后将返回原界面。 注意：出厂

14、时间的输入需要符合格式才能正确查询，否则将出现运行错误的提 醒。（王亚编写）3、项目具体实现 例：入库查询表单本表单用于查询入库商品情况。在组合框中选择要查询的条件，如入库 编号、商品型号等，在文本框中输入信息，按查询按钮，即可显示出相关信息。 如若输入信息有误则会有信息“数据库中不存在您所要查询的记录”提示。而 按取消键则返回到主菜单。在表单上设计如下事件过程：1、新建表单forml，并将其caption属性值设为“入库查询”，width属性 值设置为290，height属性值设置为175, AutoCenter属性值设置为.t.，并 将其保存为“入库查询.sex ”。2、 向表单添加一个g

15、rid控件，并将其width属性值设置为290, height 属性值设置为100。3、 在grid控件的下方添加一个组合框控件 Combo和一个文本框控件， 并 将组合框控件的RowSourceType属性值设置为“ 8-结构” RowSource属性值设 置为“入库单”。4、 在文本框的右侧再添加两个命令按钮command1和command2并将 comma nd和comma nd2勺caption属性值分别设置为“查找”和“取消”。5、 对表单上各控件的位置进行适当的调整，调整后的表单设计器如图1重点：(1) “查找”按钮(command1) 的click事件如下：if empty(th

16、isform.Text1.value)=.f.go topa=thisform.Combo1.value b=alltrim(thisform.Text1.value) local c as in teger if a= 入库编号Select * from 入库单 where 入库 编号 like b +% into cursor bassele basc=recco un t()if c1“查询”按钮(comma nd)的clickusemessagebox(数据库中不存在您所要查询的记录,16,系统提示)ma nd2.click() returnen difen difif a= 商品型号

17、Select * from 入库单 where 商品型号 like b +% into cursor bassele basc=recco un t()if c1usemessagebox(数据库中不存在您所要查询的记录,16,系统提示)ma nd2.click()returnen difen difif a= 计量单位Select * from 入库单 where 计量单位 like b +% into cursor bassele basc=recco un t()if c1usemessagebox( 数据库中不存在您所要查询的记录 ,16, 系统提示 ) mand2.click()re

18、turn endifendifif a=生产厂商 Select * from 入库单 where 生产厂商 like b +% into cursor bas sele basc=reccount() if c1usemessagebox( 数据库中不存在您所要查询的记录 ,16, 系统提示 ) mand2.click()return endif endifif a= 仓管员 Select * from 入库单 where 仓管员 like b +% into cursor bas sele basc=reccount() if c1usemessagebox( 数据库中不存在您所要查询的记录

19、 ,16, 系统提示 ) mand2.click()return endif endifif a= 单价 b=ntom(val(alltrim(thisform.text1.value)Select * from 入库单 where 单价 =b into cursor bas sele basc=reccount() if c1usemessagebox( 数据库中不存在您所要查询的记录 ,16, 系统提示 ) mand2.click()return endif endifif a= 金额 b=ntom(val(alltrim(thisform.text1.value)Select * fro

20、m 入库单 where 金额 =b into cursor bas sele basc=reccount() if c1usemessagebox( 数据库中不存在您所要查询的记录 ,16, 系统提示 ) mand2.click()return endif endif if a=数量 b=val(alltrim(thisform.text1.value)Select * from 入库单 where 数量 =b into cursor bas sele basc=reccount() if c1usemessagebox( 数据库中不存在您所要查询的记录 ,16, 系统提示 ) mand2.c

21、lick()return endif endif if a= 出厂日期 b=ctod(alltrim(thisform.text1.value)Select * from 入库单 where 出厂日期 =b into cursor bas sele basc=reccount() if c-11-r.J:- “ y ：- - 1 i a 1 1 i-取消入库编号二.二商品型号计量单粧丄.单价.；.-i ! I I - I III * :1. I :岀rBM：“仓管晁2、界面操作说明：按钮控制策略：查找方式组合框共有9个选项，查找容为空，查找、修改、 取消按钮一直为亮。修改处理过程：需要修改时，

22、在组合框中选择要查找的条件，在文本框中输入相应信息（输入信息要正确，否则系统会出现错误提示），按按钮查找, 即下面的文本框中会出现所要查找的记录的详细信息（其中入库编号是固定 的）。对相应信息进行修改后，按按钮修改，即可保存修改好的信息。（周慧立编写）3、项目具体实现例：入库修改本表单用于对入库商品的相关信息进行修改。在组合框中选择要查找的 条件，在文本框中输入相应信息（输入信息要正确，否则系统会出现错误提 示），按按钮查找，即下面的文本框中会出现所要查找的记录的详细信息（其 中入库编号是固定的）。对相应信息进行修改后，按按钮修改，即可保存修改 好的信息。按取消按钮则返回主菜单。本表单使用的数

23、据环境为入库单和厂商信息表。在表单上设计如下事件过程：1、 新建表单forml，并将其caption属性设置为“入库修改”，width属性 值设为290, height属性值设为226, AutoCenter属性值设为.t.，并将其保 存为“入库修改.sex ”。2、 向表单添加一个grid控件，将其 reado nly属性设置为.t.,其 RecordSourceType值采用默认的“ 1-别名”，在表单设计器中将其宽和高粗略 调小一些即可，具体属性值我们将在表单的init事件代码中对其进行设置。3、 在grid控件下方添加两个Label控件，使其排成一行，并将其caption 属性依次设为

24、“请选择查找方式”和“请输入要查找的容”。4、 在label控件下方添加一个组合框控件Combol及一个文本框控件 Textl，文本框控件的属性值采用默认即可，组合框控件Combol的 RowSourceType属性值设置为“ 1-值”，RowSource属性值设置为“入库编号、 商品型号、计量单位、单价、数量、金额、生产厂商、生产日期和仓管员” ， 这样在运行时我们可以在该组合框中选择要查询的字段。5、在表单上添加 3个命令按钮 comma nd1 comma nd和comma nd3将其 caption属性依次设为“查找”、“修改”和“取消“。6、在命令按钮下方添加9个label控件，将这

25、9个label控件排成两行， 并将其caption属性依次设置为“入库编号”、“商品型号”和“计量单位”7、在这两行label控件下方添加9个文本框控件，属性值采用默认，并 把这9个文本框排成两行。8调整表单上各个控件的位置，调整后的表单设计器如图2：重点：“查找”按钮（command1）的click 事件如下：if empty(thisform.Text1.value)=.f. go topa=thisform.Combo1.valueb=alltrim(thisform.Text1.value) c=.f.if a=入库编号locate for入库编号=bif eof() messageb

26、ox( 数据库中不存在您所要查询的记录 ,16, go top returnelse (图 2)c=.t.endifendifif a= 商品型号 locate for 商品型号 =bif eof()messagebox( 数据库中不存在您所要查询的记录 ,16, go topreturnelsec=.t.endifendifif a= 计量单位 locate for 计量单位 =bif eof()messagebox( 数据库中不存在您所要查询的记录 ,16, go topreturnelsec=.t.endifendifif a= 单价 b=ntom(val(alltrim(thisfor

27、m.text1.value) locate for单价 =bif eof() messagebox( 数据库中不存在您所要查询的记录 ,16, go top returnelsec=.t.endifendif if a= 数量系统提示 )系统提示 )系统提示 )系统提示 )b=val(alltrim(thisform.text1.value) locate for数量 =bif eof() messagebox( 数据库中不存在您所要查询的记录 ,16, go top returnelsec=.t.endifendifif a= 金额 b=ntom(val(alltrim(thisform.t

28、ext1.value) locate for金额 =bif eof() messagebox( 数据库中不存在您所要查询的记录 ,16, go top returnelsec=.t.endifendifif a= 生产厂商 locate for 生产厂商 =bif eof() messagebox( 数据库中不存在您所要查询的记录 ,16, go top returnelsec=.t.endifendifif a= 出厂日期 b=ctod(val(alltrim(thisform.text1.value) locate for 出厂日期 =bif eof() messagebox( 数据库中不

29、存在您所要查询的记录 ,16, go top returnelse c=.t.endifendif系统提示 )系统提示 )系统提示 )系统提示 )if a= 仓管员 locate for 仓管员 =b if eof()messagebox( 数据库中不存在您所要查询的记录 ,16, 系统提示 ) go topreturnelsec=.t. endif endifif cthisform.Text1.enabled=.f. go recno() thisform.Text2.visible=.t.thisform.Text2.enabled=.f. thisform.Text3.visible=

30、.t. thisform.Text4.visible=.t. thisform.Text5.visible=.t. thisform.Text6.visible=.t. thisform.Text7.visible=.t. thisform.Text8.visible=.t. thisform.Text9.visible=.t.thisform.Text10.visible=.t. thisform.Label3.visible=.t. thisform.label4.visible=.t. thisform.Label5.visible=.t. thisform.Label6.visible

31、=.t.入库单. 入库编号 入库单. 商品型号 入库单 . 计量单位 入库单 . 单价 入库单 . 数量 入库单 . 金额 入库单 . 生产厂商 入库单. 出厂日期 入库单 . 仓管员 setfocusthisform.Label7.visible=.t. thisform.Label8.visible=.t. thisform.Label9.visible=.t. thisform.Label10.visible=.t. thisform.Label11.visible=.t. thisform.Text2.value= thisform.Text3.value= thisform.Text

32、4.value= thisform.Text5.value= thisform.Text6.value= thisform.Text7.value= thisform.Text8.value= thisform.Text9.value= thisform.Text10.value= thisform.grd 入库单 this.enabled=.f.mand2.enabled=.t.endifelsemessagebox（请输入要查找的容！ ,16,系统提示）thisform.Textl.value二thisform.Textl.Setfocusen difthisform.refresh “修

33、改”按钮的click的事件如下：thisform.text3.read on ly=.f.thisform.text4.read on ly=.f.thisform.text5.read on ly=.f.thisform.text6.read on ly=.f.thisform.text7.read on ly=.f.thisform.text8.read on ly=.f.thisform.text9.read on ly=.f.thisform.text10.reado nly=.f. “取消”按钮的click的事件如下：thisform.release下图为修改模块的其余的出库修改和商

34、品资料修改的界面设计，其制作过程与入库修改的制作过程相似。Fomtl冏品，资料：修诙|c cmbolT屯屿1:! - 商腐名祢:- .一=A12 1 .TIK13 ；：；J i.L.4tri： rrB 4J = J L J 上 11 -心f 弋1MJ请选择萱找方或i请输入聲重找的南卷（周慧立编写）销售部分部分数据库设计表销售单字段名数据类型长度（字节）备注单据编号文本20主键商品型号文本20计量单位文本8单价货币16数量数字16金额货币16生产厂商文本50外键销售日期日期16二回区I单据編号丨商品型昌单价营业员文本20外键表退货单字段名数据类型长度（字节）备注单据编号文本20主键商品型号文本2

35、0计量单位文本8单价货币8数量数字16金额货币16退货日期日期16I五、销售数据模块1、表单销售情况记录表实现功能：商品正常销售管理。销售情况的明细记录、各地收银员收银记录以及交结帐情况等，实现对数据库添加销售记录实现过程：单击“文件”下拉菜单，再点击“新建”，选择“表单”， 再单击“新建文件”后开始表单输入入库单据的设计。设计界面如下：表单销售情况记录表的设计的基本结构如下图:数据环境（如图）“输入”按钮代码：对象：command1 过程：clicka=alltrim(thisform.text1.value)b=alltrim(thisform.Text2.value)c=alltrim(

36、thisform.text3.value)d=n tom(val(alltrim(thisform.Text4.value)e=n tom(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.empt y(f).or.empty(g).or.empty(h).or.empty(i)messagebox(请