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

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

《小型超市零售管理系统设计书.docx》由会员分享，可在线阅读，更多相关《小型超市零售管理系统设计书.docx（40页珍藏版）》请在冰点文库上搜索。

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

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

一、系统需求分析

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、表单（输入入库单据）

实现功能：

可通过这个表单将商品的相关信息输入，例如编号、单价、数量等，起到一个存储信息的作用，方便以后查询、总结等工作需要。

实现过程：

实现过程：

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（"请输入完整信息"）

return

endif

insertinto表\入库单;

（入库编号,商品型号,计量单位,单价,金额,生产厂商,仓管员,数量,出厂日期）value（a,b,c,d,e,f,g,h,i）

z=0

scanfor商品库存表.商品型号=b

z=1

endscan

use

ifz=1

update商品库存表set数量=数量+hwhere商品型号=b

messagebox（"输入入库单据成功！

",64,"系统提示"）

return

else

insertinto表\商品库存表;

（商品型号,数量）value（b,h）

insertinto表\商品资料单;

（商品型号）value（b）

messagebox（"你所输入的是新商品,请输入商品名称"）

use

doform表单\输入新商品名

return

endif

“取消”按钮代码

Thisform.release

2、表单（输入出库单据）（萧巧谊、李喜仙、梁思音）

实现功能：

可通过这个表单将出库的商品相关信息输入，例如编号、单价、数量等，起到一个存储信息的作用，方便以后查询，总结等工作需要。

实现过程：

实现过程：

1

单击“文件”下拉菜单，再点击“新建”，选择“表单”，再单击“新建文件”后开始表单输入入库单据的设计。

设计界面如下：

2表单输入入库单据的设计的基本结构如下图：

“输入”按钮代码

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（"请输入完整信息"）

return

endif

z=0

x=0

use表\商品库存表

scanfor商品库存表.商品型号=b

z=1

x=数量-h

endscan

ifz=0

messagebox（"库存不足,无法出库!

"）

else

ifx<0

messagebox（"库存不足,无法出库!

"）

else

update表\商品库存表set数量=数量-hwhere商品型号=b

insertinto出库单;

（出库编号,商品型号,计量单位,单价,金额,生产厂商,仓管员,数量,出库日期）value（a,b,c,d,e,f,g,h,i）

messagebox（"输入出库单据成功！

",64,"系统提示"）

endif

endif

取消按钮代码

thisform.release

3、表单（输入新商品名称）（巫秋金、江映霞）

实现功能：

可通过这个表单输入新商品名，添加到数据库中，方便以后相关工作。

1

单击“文件”下拉菜单，再点击“新建”，选择“表单”，再单击“新建文件”后开始表单输入入库单据的设计。

设计界面如下：

2表单输入入库单据的设计的基本结构如下图：

确认按钮代码

a=alltrim（thisform.text1.value）

updateF:

\vf\死都要做出来\表\商品库存表set商品名称=awhere商品型号=b

updateF:

\vf\死都要做出来\表\商品资料单set商品名称=awhere商品型号=b

messagebox（"输入入库单据成功！

",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.

gotop

a=thisform.Combo1.value

b=alltrim（thisform.Text1.value）

localcasinteger

ifa="入库编号"

Select*from入库单where入库

编号likeb+"%"intocursorbas

selebas

c=reccount（）

ifc<1（图①“查询”按钮（command2）的click事件如下：

use

messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"）

mand2.click（）

return

endif

endif

ifa="商品型号"

Select*from入库单where商品型号likeb+"%"intocursorbas

selebas

c=reccount（）

ifc<1

use

messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"）

mand2.click（）

return

endif

endif

ifa="计量单位"

Select*from入库单where计量单位likeb+"%"intocursorbas

selebas

c=reccount（）

ifc<1

use

messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"）

mand2.click（）

return

endif

endif

ifa="生产厂商"

Select*from入库单where生产厂商likeb+"%"intocursorbas

selebas

c=reccount（）

ifc<1

use

messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"）

mand2.click（）

return

endif

endif

ifa="仓管员"

Select*from入库单where仓管员likeb+"%"intocursorbas

selebas

c=reccount（）

ifc<1

use

messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"）

mand2.click（）

return

endif

endif

ifa="单价"

b=ntom（val（alltrim（thisform.text1.value）））

Select*from入库单where单价=bintocursorbas

selebas

c=reccount（）

ifc<1

use

messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"）

mand2.click（）

return

endif

endif

ifa="金额"

b=ntom（val（alltrim（thisform.text1.value）））

Select*from入库单where金额=bintocursorbas

selebas

c=reccount（）

ifc<1

use

messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"）

mand2.click（）

return

endif

endif

ifa="数量"

b=val（alltrim（thisform.text1.value））

Select*from入库单where数量=bintocursorbas

selebas

c=reccount（）

ifc<1

use

messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"）

mand2.click（）

return

endif

endif

ifa="出厂日期"

b=ctod（alltrim（thisform.text1.value））

Select*from入库单where出厂日期=bintocursorbas

selebas

c=reccount（）

ifc<1

use

messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"）

mand2.click（）

return

endif

endif

withthisform.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）

.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.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=80

.Column2.width=80

.Column3.width=80

.Column4.width=80

.Column5.width=80

.Column6.width=80

.Column7.width=80

.Column8.width=80

.Column9.width=80

endwith

thisform.grd入库单.Setall（"DynamicBackColor","RGB（224,225,255）","Column"）

thisform.grd入库单.setfocus

else

messagebox（"请输入要查找的内容！

",16,"系统提示"）

thisform.Text1.value=""

thisform.Text1.Setfocus

endif

②“取消”按钮（command2）的click事件如下：

Thisform.release

下图为查询模块其余的出库查询、库存查询和商品资料查询的界面设计，其制作过程与

入库查询相似。

（周慧立编写）

四、数据修改模块

1、项目详细设计

修改模块：

出库修改、入库修改、商品资料修改

例：

入库修改

2、界面操作说明：

按钮控制策略：

查找方式组合框共有9个选项，查找内容为空，查找、修改、取消按钮一直为亮。

修改处理过程：

需要修改时，在组合框中选择要查找的条件，在文本框中输入相应信息（输入信息要正确，否则系统会出现错误提示），按按钮查找，即下面的文本框中会出现所要查找的记录的详细信息（其中入库编号是固定的）。

对相应信息进行修改后，按按钮修改，即可保存修改好的信息。

（周慧立编写）

3、项目具体实现

例：

入库修改

本表单用于对入库商品的相关信息进行修改。

在组合框中选择要查找的条件，在文本框中输入相应信息（输入信息要正确，否则系统会出现错误提示），按按钮查找，即下面的文本框中会出现所要查找的记录的详细信息（其中入库编号是固定的）。

对相应信息进行修改后，按按钮修改，即可保存修改好的信息。

按取消按钮则返回主菜单。

本表单使用的数据环境为入库单和厂商信息表。

在表单上设计如下事件过程：

1、新建表单form1，并将其caption属性设置为“入库修改”，width属性值设为290，height属性值设为226，AutoCenter属性值设为.t.，并将其保存为“入库修改.scx”。

2、向表单添加一个grid控件，将其readonly属性设置为.t.,其RecordSourceType值采用默认的“1-别名”，在表单设计器中将其宽和高粗略调小一些即可，具体属性值我们将在表单的init事件代码中对其进行设置。

3、在grid控件下方添加两个Label控件，使其排成一行，并将其caption属性依次设为“请选择查找方式”和“请输入要查找的内容”。

4、在label控件下方添加一个组合框控件Combo1及一个文本框控件Text1，文本框控件的属性值采用默认即可，组合框控件Combo1的RowSourceType属性值设置为“1-值”，RowSource属性值设置为“入库编号、商品型号、计量单位、单价、数量、金额、生产厂商、生产日期和仓管员”，这样在运行时我们可以在该组合框中选择要查询的字段。

5、在表单上添加3个命令按钮command1command2和command3，将其caption属性依次设为“查找”、“修改”和“取消“。

6、在命令按钮下方添加9个label控件，将这9个label控件排成两行，并将其caption属性依次设置为“入库编号”、“商品型号”和“计量单位”等等。

7、在这两行label控件下方添加9个文本框控件，属性值采用默认，并把这9个文本框排成两行。

8、调整表单上各个控件的位置，调整后的表单设计器如图2：

重点：

①“查找”按钮（command1）的click事件如下：

ifempty（thisform.Text1.value）=.f.

gotop

a=thisform.Combo1.value

b=alltrim（thisform.Text1.value）

c=.f.

ifa="入库编号"

locatefor入库编号=b

ifeof（）

messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"）

gotop

return

else（图2）

c=.t.

endif

endif

ifa="商品型号"

locatefor商品型号=b

ifeof（）

messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"）

gotop

return

else

c=.t.

endif

endif

ifa="计量单位"

locatefor计量单位=b

ifeof（）

messagebox（"数