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

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

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