超市进销存管理系统+VB(十一)

超市进销存管理系统+VB(十一) odify_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

首页上一页 8 9 10 11 下一页尾页 11/11/11