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

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' 菜单响应函数
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'===============================================
' 商品类型操作
'===============================================
Private Sub mnuMType_Click()
  '设置树型控件焦点
  tvTreeView.SetFocus
End Sub
'添加
Private Sub mnuMTypeAdd_Click()
  opMType.Add tvTreeView
End Sub
'删除
Private Sub mnuMTypeDel_Click()
  opMType.Delete tvTreeView
End Sub
'修改
Private Sub mnuMTypeModify_Click()
  opMType.Modify tvTreeView
End Sub

'===============================================
' 人员管理操作
'===============================================
Private Sub mnuSystemUser_Click()
  frmUserList.Show vbModal
End Sub

'===============================================
' 商品操作
'===============================================
Private Sub mnuMerch_Click()
  '切换选项卡
  sstabView.Tab = 0
End Sub
Private Sub mnuMerchAdd_Click()
  sstabView.Tab = 0
  opMerch.Add lvMerch, GetID(tvTreeView.SelectedItem.Key)
End Sub
Private Sub mnuMerchDel_Click()
  sstabView.Tab = 0
  opMerch.Delete lvMerch
End Sub
Private Sub mnuMerchModify_Click()
  sstabView.Tab = 0
  opMerch.Modify lvMerch
End Sub

'===============================================
' 进货管理
'===============================================
Private Sub mnuBuy_Click()
  '切换选项卡
  sstabView.Tab = 1
End Sub

Private Sub mnuBuyAdd_Click()
  opBuy.Add lvBuy, g_Account
  '由于同时更新了库存，需要重新加载商品列表
  opMerch.FillListView lvMerch, GetID(tvTreeView.SelectedItem.Key)
  MsgBox "操作成功，同时库存量自动更新，请切换到【商品管理】查看核实库存变化。", vbInformation
End Sub

Private Sub mnuBuyDel_Click()
  opBuy.Delete lvBuy
  '由于同时更新了库存，需要重新加载商品列表
  opMerch.FillListView lvMerch, GetID(tvTreeView.SelectedItem.Key)
  MsgBox "操作成功，同时库存量自动更新，请切换到【商品管理】查看核实库存变化。", vbInformation
End Sub

Private Sub mnuBuyModify_Click()
  opBuy.Modify lvBuy, g_Account
  '由于同时更新了库存，需要重新加载商品列表
  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 mnuSellM

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