超市零售管理系统.docx
《超市零售管理系统.docx》由会员分享,可在线阅读,更多相关《超市零售管理系统.docx(24页珍藏版)》请在冰豆网上搜索。
超市零售管理系统
课程设计题目:
超市进货管理系统
一、系统需求分析
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、表单(输入入库单据)
实现功能:
可通过这个表单将商品的相关信息输入,例如编号、单价、数量等,起到一个存储信息的作用,方便以后查询、总结等工作需要。
实现过程:
实现过程:
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
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、界面操作说明:
按钮控制策略:
组合框内有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("数据库中不存在您所要查询的记录",16,"系统提示")
gotop
return
else
c=.t.
endif
endif
ifa="单价"
b=ntom(val(alltrim(thisform.text1.value)))
locatefor单价=b
ifeof()
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
gotop
return
else
c=.t.
endif
endif
ifa="数量"
b=val(alltrim(thisform.text1.value))
locatefor数量=b
ifeof()
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
gotop
return
else
c=.t.
endif
endif
ifa="金额"
b=ntom(val(alltrim(thisform.text1.value)))
locatefor金额=b
ifeof()
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
gotop
return
else
c=.t.
endif
endif
ifa="生产厂商"
locatefor生产厂商=b
ifeof()
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
gotop
return
else
c=.t.
endif
endif
ifa="出厂日期"
b=ctod(val(alltrim(thisform.text1.value)))
locatefor出厂日期=b
ifeof()
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
gotop
return
else
c=.t.
endif
endif
ifa="仓管员"
locatefor仓管员=b
ifeof()
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
gotop
return
else
c=.t.
endif
endif
ifc
thisform.Text1.enabled=.f.
gorecno()
thisform.Text2.visible=.t.
thisform.Text2.enabled=.f.
thisform.Text3.visible=.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=.t.
thisform.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.Text4.value=入库单.计量单位
thisform.Text5.value=入库单.单价
thisform.Text6.value=入库单.数量
thisform.Text7.value=入库单.金额
t