小型自选商场商品管理.docx
- 文档编号:16421977
- 上传时间:2023-07-13
- 格式:DOCX
- 页数:20
- 大小:304.43KB
小型自选商场商品管理.docx
《小型自选商场商品管理.docx》由会员分享,可在线阅读,更多相关《小型自选商场商品管理.docx(20页珍藏版)》请在冰点文库上搜索。
小型自选商场商品管理
一系统总体功能设计
1、功能需求分析:
需求分析是软件定义时期的最后一个阶段,它的基本任务是准确地回答“系统必须做什么”这个问题,需求分析的任务还不是确定系统怎样完成它的工作,而仅仅是确定系统必须完成哪些工作,也就是对目标系统提出完整、准确、清晰、具体的要求。
可行性研究阶段产生的文档是需求分析的出发点。
需求分析阶段系统本组仔细研究超市管理系统应实现的功能并将它们具体化。
针对一般超市管理系统的需求,通过对超市管理工作过程的内容分析与本组所要承担的任务,设计出下面的数据项和数据结构:
(1)商品信息查询:
包括商品号、商品名称、单价、商品类型、库存量、厂商等信息。
(2)销售商品查询:
包括销售号、商品号、销售时间和销售数量等信息。
(3)进货信息查询,包含的数据项有进货号、商品号、商品名称、进货数量等信息。
1)能记录每一笔进货,查询商品的进货记录,并能按月进行统计。
2)能记录每一笔售货,查询商品的销售情况,并能进行日盘存、月盘存。
3)在记录进货及售货的同时,必须动态刷新库存。
4)能查询某个厂商或供应商的信息。
5)设计收银台程序,能根据输入的商品编号、数量,显示某顾客所购商品的清单,并显示收付款情况。
2、功能设计
功能模块结构图如下:
二、表的设计
三、数据库设计
1.小型自选商场商品管理主界面
系统实施过程:
PrivateSubshangpinxinxichaxun_Click()
Form3.Show
EndSub
PrivateSubshangpinxinxi_Click()
End
EndSub
PrivateSubguanli_Click()
Form4.Show
EndSub
PrivateSubguanli_Click()
Form2.Show
EndSub
PrivateSubshangpinxinxiguanli_Click()
Form6.Show
EndSub
PrivateSubLabel11_Click()
Form3.Show
EndSub
PrivateSubLabel12_Click()
Form4.Show
EndSub
PrivateSubLabel13_Click()
Form5.Show
EndSub
PrivateSubLabel14_Click()
Form6.Show
EndSub
PrivateSubLabel15_Click()
End
EndSub
PrivateSubLabel16_Click()
Form7.Show
EndSub
PrivateSubLabel8_Click()
Form2.Show
EndSub
PrivateSub商品查询_Click()
Form5.Show
EndSub
PrivateSub商品信息查询_Click()
Form7.Show
EndSub
PrivateSub河北工业大学_PanelClick(ByValPanelAsMSComctlLib.Panel)
EndSub
2.商品信息管理
系统实施过程:
PrivateSubCommand2_Click()
Dimtemp1
temp1=10000
IfAdodc1.Recordset.RecordCount>0Then
Adodc1.Recordset.MoveLast
temp1=Val(Adodc1.Recordset.Fields("商品号"))
Else
temp1=temp1+"00001"
EndIf
Text1.Text=temp1
EndSub
PrivateSubCommand3_Click()
OnErrorGoToErrorHandle
IfText1=""Then
MsgBox"请输入商品号!
",vbInformation
Else
DimsqlAsString
sql="insertinto商品信息表values('"&Text1&"','"&Text2&"','"&Text3&"','"&Text4&"','"&Text5&"','"&Text6&"')"
cnn.Execute(sql)
Adodc1.Refresh
Text1=""
EndIf
ExitSub
ErrorHandle:
MsgBox"商品信息输入有误,请检查商品号是否重复!
"
EndSub
PrivateSubCommand4_Click()
Adodc1.Recordset.Delete
EndSub
PrivateSubCommand5_Click()
UnloadMe
EndSub
3.商品信息查询
系统实施过程:
PrivateSubCommand1_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
EndSub
PrivateSubCommand2_Click()
Dimtemp1
temp1=10000
IfAdodc1.Recordset.RecordCount>0Then
Adodc1.Recordset.MoveLast
temp1=Val(Adodc1.Recordset.Fields("商品号"))
Else
temp1=temp1+"00001"
EndIf
Text1.Text=temp1
EndSub
PrivateSubCommand3_Click()
OnErrorGoToErrorHandle
IfText1=""Then
MsgBox"请输入!
",vbInformation
Else
DimsqlAsString
sql="insertinto销售商品表values("&Text1&",'"&Text3&"','"&Text4&"','"&Text2&"')"
cnn.Execute(sql)
sql="update商品信息表set库存量=库存量-"&Text4&"where商品号='"&Text1&"'"
MsgBox(sql)
cnn.Execute(sql)
Adodc1.Refresh
Text1=""
EndIf
ExitSub
ErrorHandle:
MsgBox"输入有误,请检查!
"
EndSub
PrivateSubCommand4_Click()
Adodc1.Recordset.Delete
EndSub
PrivateSubCommand5_Click()
UnloadMe
EndSub
3.销售商品管理
系统实施过程:
PrivateSubCommand1_Click()
Dimtemp1
temp1=0
DimsqlAsString
sql=""
IfText7.Text<>""Then
Iftemp1=0Then
sql=sql+"where"
Else
sql=sql+"and"
EndIf
sql=sql+"商品号='"+Text7.Text+"'"
temp1=temp1+1
EndIf
IfText8.Text<>""Then
Iftemp1=0Then
sql=sql+"where"
Else
sql=sql+"and"
EndIf
sql=sql+"商品名称='"+Text8.Text+"'"
temp1=temp1+1
EndIf
sql="select*from商品信息表"+sql+"orderby商品号"
Adodc1.RecordSource=sql
Adodc1.Refresh
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
4.销售商品查询
系统实施过程:
PrivateSubCommand1_Click()
Dimtemp1
temp1=0
DimsqlAsString
sql=""
IfText1.Text<>""Then
Iftemp1=0Then
sql=sql+"where"
Else
sql=sql+"and"
EndIf
sql=sql+"商品号='"+Text1.Text+"'"
temp1=temp1+1
EndIf
IfText2.Text<>""Then
Iftemp1=0Then
sql=sql+"where"
Else
sql=sql+"and"
EndIf
sql=sql+"商品名称='"+Text2.Text+"'"
temp1=temp1+1
EndIf
sql="select*from销售商品表"+sql+"orderby商品号"
Adodc1.RecordSource=sql
Adodc1.Refresh
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
5.进货管理
系统实施过程:
PrivateSubCommand2_Click()
Dimtemp1
temp1=10000
IfAdodc1.Recordset.RecordCount>0Then
Adodc1.Recordset.MoveLast
temp1=Val(Adodc1.Recordset.Fields("商品号"))
Else
temp1=temp1+"00001"
EndIf
Text1.Text=temp1
EndSub
PrivateSubCommand3_Click()
OnErrorGoToErrorHandle
IfText1=""Then
MsgBox"请输入商品号!
",vbInformation
Else
DimsqlAsString
sql="insertinto进货表(进货号,商品号,进货数量)values('"&Text5&"','"&Text1&"',"&Text3&")"
MsgBox(sql)
cnn.Execute(sql)
sql="update商品信息表set库存量=库存量+"&Text3&"where商品号='"&Text1&"'"
MsgBox(sql)
cnn.Execute(sql)
Adodc1.Refresh
Text1=""
EndIf
ExitSub
ErrorHandle:
MsgBox"商品信息输入有误,请检查商品号是否重复!
"
EndSub
PrivateSubCommand4_Click()
Adodc1.Recordset.Delete
EndSub
PrivateSubCommand5_Click()
UnloadMe
EndSub
6.进货信息查询
系统实施过程:
PrivateSubCommand1_Click()
temp1=0
DimsqlAsString
sql=""
IfText7.Text<>""Then
Iftemp1=0Then
sql=sql+"where"
Else
sql=sql+"and"
EndIf
sql=sql+"商品号='"+Text7.Text+"'"
temp1=temp1+1
EndIf
IfText8.Text<>""Then
Iftemp1=0Then
sql=sql+"where"
Else
sql=sql+"and"
EndIf
sql=sql+"商品名称='"+Text8.Text+"'"
temp1=temp1+1
EndIf
sql="select*from进货表"+sql+"orderby商品号"
Adodc1.RecordSource=sql
Adodc1.Refresh
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
四、前台应用设计:
1.添加
2.记录每一笔售货
3.记录每一笔进货
五、经验与体会
通过此次数据库的课程设计,真正达到了学与用的结合,增强了对数据库方面应用的理解,对自己今后参与开发数据库系统积累了不少经验,在实验过程中,从建立数据开始,对数据库设计理念及思想上有更高的认识,从需求分析,到概念设计和逻辑设计的过度,懂得了不少有关数据库开发过程中的知识,在实验中建表,及其关系模式,关系代数的建立及理解,增强了自己在数据库中应用SQL语言的灵活性。
在学习过程中,我组也上网查了不少资料,也看了一些别人设计的小型超市管理系统的设计报告,学以致用,自我创新,独立完成了这份自己的报告,从中从学到用,从用又到学,不断修改,系统更新。
虽然不能达到完善系统,但也做到了尽善尽美,加强理论学习对完善系统会有很多帮助,知识是无限的,我以后还会在这个领域不断的进行探索,掌握更多的知识。
六、附录或参考资料
[1]VisualBasic程序设计实验教程柴欣等中国铁道出版社
[2]VisualBasic程序设计基础柴欣等中国铁道出版社
[3]数据库系统及应用——SQLServer2000陈明主编清华大学出版社
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 小型 自选商场 商品 管理
![提示](https://static.bingdoc.com/images/bang_tan.gif)