dSub
PrivateSubmnuMerchModify_Click()
sstabView.Tab=0
opMerch.ModifylvMerch
EndSub
'===============================================
'进货管理
'===============================================
PrivateSubmnuBuy_Click()
'切换选项卡
sstabView.Tab=1
EndSub
PrivateSubmnuBuyAdd_Click()
opBuy.AddlvBuy,g_Account
'由于同时更新了库存,需要重新加载商品列表
opMerch.FillListViewlvMerch,GetID(tvTreeView.SelectedItem.Key)
MsgBox"操作成功,同时库存量自动更新,请切换到【商品管理】查看核实库存变化。",vbInformation
EndSub
PrivateSubmnuBuyDel_Click()
opBuy.DeletelvBuy
'由于同时更新了库存,需要重新加载商品列表
opMerch.FillListViewlvMerch,GetID(tvTreeView.SelectedItem.Key)
MsgBox"操作成功,同时库存量自动更新,请切换到【商品管理】查看核实库存变化。",vbInformation
EndSub
PrivateSubmnuBuyModify_Click()
opBuy.ModifylvBuy,g_Account
'由于同时更新了库存,需要重新加载商品列表
opMerch.FillListViewlvMerch,GetID(tvTreeView.SelectedItem.Key)
MsgBox"操作成功,同时库存量自动更新,请切换到【商品管理】查看核实库存变化。",vbInformation
EndSub
'===============================================
'销售管理
'===============================================
PrivateSubmnuSell_Click()
'切换选项卡
sstabView.Tab=2
EndSub
PrivateSubmnuSellAdd_Click()
opSell.AddlvSell,g_Account
'由于同时更新了库存,需要重新加载商品列表
opMerch.FillListViewlvMerch,GetID(tvTreeView.SelectedItem.Key)
MsgBox"操作成功,同时库存量自动更新,请切换到【商品管理】查看核实库存变化。",vbInformation
EndSub
PrivateSubmnuSellDel_Click()
opSell.DeletelvSell
'由于同时更新了库存,需要重新加载商品列表
opMerch.FillListViewlvMerch,GetID(tvTreeView.SelectedItem.Key)
MsgBox"操作成功,同时库存量自动更新,请切换到【商品管理】查看核实库存变化。",vbInformation
EndSub
PrivateSubmnuSellModify_Click()
opSell.ModifylvSell,g_Account
'由于同时更新了库存,需要重新加载商品列表
opMerch.FillListViewlvMerch,GetID(tvTreeView.SelectedItem.Key)
MsgBox"操作成功,同时库存量自动更新,请切换到【商品管理】查看核实库存变化。",vbInformation
EndSub
'===============================================
'报损管理
'===============================================
PrivateSubmnuDispose_Click()
'切换选项卡
sstabView.Tab=3
EndSub
PrivateSubmnuDisposeAdd_Click()
opDispose.AddlvDispose,g_Account
'由于同时更新了库存,需要重新加载商品列表
opMerch.FillListViewlvMerch,GetID(tvTreeView.SelectedItem.Key)
MsgBox"操作成功,同时库存量自动更新,请切换到【商品管理】查看核实库存变化。",vbInformation
EndSub
PrivateSubmnuDisposeDel_Click()
opDispose.DeletelvDispose
'由于同时更新了库存,需要重新加载商品列表
opMerch.FillListViewlvMerch,GetID(tvTreeView.SelectedItem.Key)
MsgBox"操作成功,同时库存量自动更新,请切换到【商品管理】查看核实库存变化。",vbInformation
EndSub
PrivateSubmnuDisposeModify_Click()
opDispose.ModifylvDispose,g_Account
'由于同时更新了库存,需要重新加载商品列表
opMerch.FillListViewlvMerch,GetID(tvTreeView.SelectedItem.Key)
MsgBox"操作成功,同时库存量自动更新,请切换到【商品管理】查看核实库存变化。",vbInformation
EndSub
'===============================================
'供应商操作
'===============================================
PrivateSubmnuProvider_Click()
'切换选项卡
sstabView.Tab=4
EndSub
PrivateSubmnuProviderAdd_Click()
opProvider.AddlvProvider
EndSub
PrivateSubmnuProviderDel_Click()
opProvider.DeletelvProvider
EndSub
PrivateSubmnuProviderModify_Click()
opProvider.ModifylvProvider
EndSub
PrivateSubtbToolBar_ButtonMenuClick(ByValButtonMenuAsMSComctlLib.ButtonMenu)
SelectCaseButtonMenu.Key
Case"tbnAddClientType"
'mnuAddClientType_Click
Case"tbnModifyClientType"
'mnuModifyClientType_Click
Case"tbnDelClientType"
'mnuDelClientType_Click
Case"大图标"
lvMerch.View=lvwIcon
Case"小图标"
lvMerch.View=lvwSmallIcon
Case"列表"
lvMerch.View=lvwList
Case"详细资料"
lvMerch.View=lvwReport
EndSelect
EndSub
PrivateSubtvTreeView_NodeClick(ByValNodeAsMSComctlLib.Node)
opMerch.FillListViewlvMerch,GetID(Node.Key)
opBuy.FillListViewlvBuy,GetID(Node.Key)
opSell.FillListViewlvSell,GetID(Node.Key)
opDispose.FillListViewlvDispose,GetID(Node.Key)
EndSub
结束语
本软件的设计目的是为超市管理人员提高效率提供方便和帮助。通过这几个月的毕业设计,我学到很多以前没有学到的visualbasic开发技术,在软件工程学上更是取得了很大的进步。经过大量的测试和试用,作者深信本软件达到了方便和实用的设计目的,并在软件界面和易用实用等方面有着独到之处。
虽然软件基本达到设计要求并且达到同行的先进水平,但由于作者水平有限,软件存在bug也是在所难免的,您的意见和建议将极大的帮助我改进并完善软件。真诚的希望你的参与。
致谢
我首先感谢我的指导老师吕老师,在他严格的要求下我懂得了开发软件要有一种极其认真负责的态度。无论做什么事都要大胆的去想去做,这样会有好的创意,才能更有作为。
在这里我还要感谢我们宿舍的其它5个同学。他们和我共同生活了四年,在生活和学习上给了我很大的帮助。
参考文献
1陈明.软件工程学教程.科技出版社,2002
2萨师煊,王珊.数据库系统概论.第三版.高等教育出版社,2000
3飞思科技产品研发中心.visualbasic6.0数据库应用开发.电子工业出版社,2003
4飞思科技产品研发中心.visualbasic6.0开发者手册.电子工业出版社,2002
5申旻.visualbasic6.0高手突破.清华大学出版社,2002,302
6SteveTeixeira,XaviverPacheco著,龙劲松,王瑜,谢尚书译.visualbasic6.0开发人员指南.机械工业出版社.2003
7乔林.参透Delphi/Kylix.中国铁道出版社.2003
8李维.Inside深入核心VCL架构剖析.电子工业出版社.2004
9张立科编写组.WindowsAPI函数参考手册.人民邮电出版社.2002
严蔚敏,吴伟民.数据结构.第二版.清华大学出版社.2001
10王珍玲。实用软件工程教程高等教育出版社2004
11(英)IanSommerville机械工业出版社2003
12美Cantu,U.王辉等译visualbasic6.0从入门到精通电子工业出版社2003
13李维面向对象开发实践之路(visualbasic6.0版)(BORLAND资深顾问著名visualbasic6.0专家李维最新力作)电子工业出版社2005.4
14秦斌等visualbasic6.0数据库系统开发与应用中国水利水电出版社2006.1
15刘艺visualbasic6.0面向对象编程思想机械工业出版社2003
16.visualbasic程序设计第二版谭浩强清华大学出版社2003
17.visualbasic6.0程序设计教程.胡同森赵剑锋等.浙江科学技术出版社,2002.1
18.软件工程学教程(第二版)周苏王文著科学出版社2003
19.VisualBasic6.0程序设计与开发技术求是科技人民邮电出版社2004.9
上一篇:
vb超市管理系统无论文(论文和程序)
下一篇:
法律专业开题报告范文