frmmain.frm

超市进销存管理系统vb+access源代码+可执行文件+论文+开题报稿+外文翻译+答辩,给需要的朋友参考参考

  Else
    tvTreeView.Top = picTitles.Height
  End If

  sstabView.Top = tvTreeView.Top - picTitles.Height
  
  '设置 height 属性
  If sbStatusBar.Visible Then
    tvTreeView.Height = Me.ScaleHeight - (picTitles.Top + picTitles.Height + sbStatusBar.Height)
  Else
    tvTreeView.Height = Me.ScaleHeight - (picTitles.Top + picTitles.Height)
  End If
  
  sstabView.Height = tvTreeView.Height + picTitles.Height
  imgSplitter.Top = picTitles.Top
  imgSplitter.Height = tvTreeView.Height
  '修改ListView控件尺寸
  Dim ctl As Control
  For Each ctl In Controls
    If TypeOf ctl Is ListView Then
      ctl.Left = 0
      ctl.Top = sstabView.TabHeight
      ctl.Width = sstabView.Width - 40
      ctl.Height = sstabView.Height - sstabView.TabHeight
      ctl.Visible = False
    End If
  Next
  sstabView_Click 0
End Sub








Private Sub lvBuy_DblClick()
  mnuBuyModify_Click
End Sub



Private Sub lvDispose_DblClick()
  mnuDisposeModify_Click
End Sub

Private Sub lvMerch_DblClick()
  mnuMerchModify_Click
End Sub











Private Sub lvProvider_DblClick()
  mnuProviderModify_Click
End Sub

Private Sub lvSell_DblClick()
  mnuSellModify_Click
End Sub

Private Sub mnuAnaBuy_Click()
  frmAnalysis.Show vbModal

End Sub

Private Sub mnuAnalysis_Click()
  frmAnalysis.Show vbModal
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' 属性页控件切换响应函数
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub sstabView_Click(PreviousTab As Integer)
  Select Case PreviousTab
    Case 0
      lvMerch.Visible = False
    Case 1
      lvBuy.Visible = False
    Case 2
      lvSell.Visible = False
    Case 3
      lvDispose.Visible = False
    Case 4
      lvProvider.Visible = False
  End Select
  
  Select Case sstabView.Tab
    Case 0
      lvMerch.Visible = True
      lvMerch.SetFocus
    Case 1
      lvBuy.Visible = True
      lvBuy.SetFocus
    Case 2
      lvSell.Visible = True
      lvSell.SetFocus
    Case 3
      lvDispose.Visible = True
      lvDispose.SetFocus
    Case 4
      lvProvider.Visible = True
      lvProvider.SetFocus
  End Select
  
  
End Sub



Private Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
  On Error Resume Next
  Select Case Button.Key
    Case "返回"
      '应做:添加 '返回' 按钮代码。
      MsgBox "添加 '返回' 按钮代码。"
    Case "向前"
      '应做:添加 '向前' 按钮代码。
      MsgBox "添加 '向前' 按钮代码。"
    Case "剪切"
      '应做:添加 '剪切' 按钮代码。
      MsgBox "添加 '剪切' 按钮代码。"
    Case "复制"
      '应做:添加 '复制' 按钮代码。
      MsgBox "添加 '复制' 按钮代码。"
    Case "粘贴"
      '应做:添加 '粘贴' 按钮代码。
      MsgBox "添加 '粘贴' 按钮代码。"
    Case "删除"
      '应做:添加 '删除' 按钮代码。
      MsgBox "添加 '删除' 按钮代码。"
    Case "属性"
      '应做:添加 '属性' 按钮代码。
      MsgBox "添加 '属性' 按钮代码。"
    Case "大图标"
      lvMerch.View = lvwIcon
    Case "小图标"
      lvMerch.View = lvwSmallIcon
    Case "列表"
      lvMerch.View = lvwList
    Case "详细资料"
      lvMerch.View = lvwReport
  End Select
End Sub

Private Sub mnuHelpAbout_Click()
  frmAbout.Show vbModal, Me
End Sub

Private Sub mnuViewRefresh_Click()
  '应做:添加 'mnuViewRefresh_Click' 代码。
  MsgBox "添加 'mnuViewRefresh_Click' 代码。"
End Sub


Private Sub mnuVAIByDate_Click()
  'ToDo: 添加 'mnuVAIByDate_Click' 代码
'  lvMerch.SortKey = DATE_COLUMN
End Sub

Private Sub mnuVAIByName_Click()
  'ToDo: 添加 'mnuVAIByName_Click' 代码
'  lvMerch.SortKey = NAME_COLUMN
End Sub

Private Sub mnuVAIBySize_Click()
  'ToDo: 添加 'mnuVAIBySize_Click' 代码
'  lvMerch.SortKey = SIZE_COLUMN
End Sub

Private Sub mnuVAIByType_Click()
  'ToDo: 添加 'mnuVAIByType_Click' 代码
'  lvMerch.SortKey = TYPE_COLUMN
End Sub

Private Sub mnuViewStatusBar_Click()
  mnuViewStatusBar.Checked = Not mnuViewStatusBar.Checked
  sbStatusBar.Visible = mnuViewStatusBar.Checked
  SizeControls imgSplitter.Left
End Sub


Private Sub mnuViewToolbar_Click()
  mnuViewToolbar.Checked = Not mnuViewToolbar.Checked
  tbToolBar.Visible = mnuViewToolbar.Checked
  SizeControls imgSplitter.Left
End Sub


'初始化所有数据函数
Private Sub InitMain()
'  InitMerchListview lvMerch '初始化列表
'  ListAllMerchs lvMerch

  TypeToTreeview tvTreeView '将客户类型显示到树型图中
  
  opProvider.FillListView lvProvider
  
  opMerch.FillListView lvMerch
  
  
  opBuy.FillListView lvBuy
  
  opSell.FillListView lvSell
  
  opDispose.FillListView lvDispose


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 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