计算机应用 | 古代文学 | 市场营销 | 生命科学 | 交通物流 | 财务管理 | 历史学 | 毕业 | 哲学 | 政治 | 财税 | 经济 | 金融 | 审计 | 法学 | 护理学 | 国际经济与贸易
计算机软件 | 新闻传播 | 电子商务 | 土木工程 | 临床医学 | 旅游管理 | 建筑学 | 文学 | 化学 | 数学 | 物理 | 地理 | 理工 | 生命 | 文化 | 企业管理 | 电子信息工程
计算机网络 | 语言文学 | 信息安全 | 工程力学 | 工商管理 | 经济管理 | 计算机 | 机电 | 材料 | 医学 | 药学 | 会计 | 硕士 | 法律 | MBA
现当代文学 | 英美文学 | 通讯工程 | 网络工程 | 行政管理 | 公共管理 | 自动化 | 艺术 | 音乐 | 舞蹈 | 美术 | 本科 | 教育 | 英语 |

超市进销存管理系统+VB(一)毕业论文(8)

2013-05-12 02:16
导读:odify_Click() opSell.Modify lvSell, g_Account '由于同时更新了库存,需要重新加载商品列表 opMerch.FillListView lvMerch, GetID(tvTreeView.SelectedItem.Key) MsgBox "操作成功,同时
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

上一篇:超市管理系统+论文(一)毕业论文 下一篇:没有了