超市进销存管理系统+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

超市进销存管理系统+VB(十一)相关范文