opMerch.FillListView lvMerch, GetID(tvTreeView.SelectedItem.Key)
MsgBox "操作成功，同时库存量自动更新，请切换到【商品管理】查看核实库存变化。", vbInformation
End Sub
'===============================================
' 销售管理
'===============================================
Private Sub mnuSell_Click()
'切换选项卡
sstabView.Tab = 2
End Sub
Private Sub mnuSellAdd_Click()
opSell.Add lvSell, g_Account
'由于同时更新了库存，需要重新加载商品列表
opMerch.FillListView lvMerch, GetID(tvTreeView.SelectedItem.Key)
MsgBox "操作成功，同时库存量自动更新，请切换到【商品管理】查看核实库存变化。", vbInformation
End Sub
Private Sub mnuSellDel_Click()
opSell.Delete lvSell
'由于同时更新了库存，需要重新加载商品列表
opMerch.FillListView lvMerch, GetID(tvTreeView.SelectedItem.Key)
MsgBox "操作成功，同时库存量自动更新，请切换到【商品管理】查看核实库存变化。", vbInformation
End Sub
Private Sub mnuSellModify_Click()
opSell.Modify lvSell, g_Account
'由于同时更新了库存，需要重新加载商品列表
opMerch.FillListView lvMerch, GetID(tvTreeView.SelectedItem.Key)
MsgBox "操作成功，同时库存量自动更新，请切换到【商品管理】查看核实库存变化。", vbInformation
End Sub
'===============================================
' 报损管理
'===============================================
Private Sub mnuDispose_Click()
'切换选项卡
sstabView.Tab = 3
End Sub
Private Sub mnuDisposeAdd_Click()
opDispose.Add lvDispose, g_Account
'由于同时更新了库存，需要重新加载商品列表
opMerch.FillListView lvMerch, GetID(tvTreeView.SelectedItem.Key)
MsgBox "操作成功，同时库存量自动更新，请切换到【商品管理】查看核实库存变化。", vbInformation
End Sub
Private Sub mnuDisposeDel_Click()
opDispose.Delete lvDispose
'由于同时更新了库存，需要重新加载商品列表
opMerch.FillListView lvMerch, GetID(tvTreeView.SelectedItem.Key)
MsgBox "操作成功，同时库存量自动更新，请切换到【商品管理】查看核实库存变化。", vbInformation
End Sub
Private Sub mnuDisposeModify_Click()
opDispose.Modify lvDispose, g_Account
'由于同时更新了库存，需要重新加载商品列表
opMerch.FillListView lvMerch, GetID(tvTreeView.SelectedItem.Key)
MsgBox "操作成功，同时库存量自动更新，请切换到【商品管理】查看核实库存变化。", vbInformation
End Sub
'===============================================
' 供应商操作
'===============================================
Private Sub mnuProvider_Click()
'切换选项卡
sstabView.Tab = 4
End Sub
Private Sub mnuProviderAdd_Click()
opProvider.Add lvProvider
End Sub
Private Sub mnuProviderDel_Click()
opProvider.Delete lvProvider
End Sub
Private Sub mnuProviderModify_Click()
opProvider.Modify lvProvider
End Sub
Private Sub tbToolBar_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.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
End Select
End Sub
Private Sub tvTreeView_NodeClick(ByVal Node As MSComctlLib.Node)
opMerch.FillListView lvMerch, GetID(Node.Key)
opBuy.FillListView lvBuy, GetID(Node.Key)
opSell.FillListView lvSell, GetID(Node.Key)
opDispose.FillListView lvDispose, GetID(Node.Key)
End Sub
结束语
本软件的设计目的是为超市管理人员提高效率提供方便和帮助。通过这几个月的毕业设计，我学到很多以前没有学到的visual basic开发技术，在软件工程学上更是取得了很大的进步。经过大量的测试和试用，作者深信本软件达到了方便和实用的设计目的，并在软件界面和易用实用等方面有着独到之处。
虽然软件基本达到设计要求并且达到同行的先进水平，但由于作者水平有限，软件存在bug也是在所难免的 ，您的意见和建议将极大的帮助我改进并完善软件。真诚的希望你的参与。
