frm_main.frm

EMS是一个企业营销管理系统,功能强大,供大家享用,希望大家多多支持!!

  pnlX.AutoSize = sbrContents
  pnlX.text = "当前操作员： " & czy
  Set pnlX = StatusBar1.Panels.Add
  pnlX.Style = sbrDate
  Set pnlX = StatusBar1.Panels.Add
  pnlX.Style = sbrTime
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Picture1.Visible = False
  For i = 0 To 3
    Label1(i).ForeColor = &HC0C0C0
  Next i
End Sub
Private Sub Label1_Click(Index As Integer)
  If Index < 3 Then
    m8_Click (Index)
  End If
  If Index = 3 Then End
End Sub
Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label1(Index).ForeColor = &HC0&
End Sub
Private Sub Label2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  Picture1.Left = Label2(Index).Left - 10
  Picture1.Visible = True
  lblCaption = Label2(Index).Caption
End Sub
Private Sub lblCaption_Click()
  Select Case lblCaption.Caption
    Case "产品管理"
      m1_Click (1)
    Case "销售组织"
      m2_Click (0)
    Case "销售训练"
      m2_Click (2)
    Case "销售业绩考核"
      m2_Click (3)
    Case "市场跟踪"
      m3_Click (1)
    Case "市场走势"
      m3_Click (2)
    Case "销售数据导入"
      m4_Click (0)
    Case "销售预测"
      m4_Click (2)
  End Select
End Sub
Private Sub lblMenu_Click(Index As Integer)
   strMenu = lblMenu(Index).Caption
   Dim m As Integer
   For i = 1 To Index
     picMenu(i).Top = picMenu(i - 1).Top + picMenu.Item(i - 1).Height
   Next i
   ListView1.Top = picMenu(i - 1).Top + picMenu.Item(i - 1).Height
   If Index < 7 Then picMenu(Index + 1).Top = ListView1.Top + ListView1.Height
   For i = Index + 2 To picMenu.Count - 1
     picMenu(i).Top = picMenu.Item(i - 1).Top + picMenu.Item(i - 1).Height
   Next i
   Select Case Index
    Case 0
       ListView1.ListItems.Clear
       ListView1.Enabled = True
       For i = 0 To m1.Count - 1
         Key = "【" & m1.Item(i).Caption & "】"
         m = i + 1
         Set itmX = ListView1.ListItems.Add(, , Key, m)
       Next i
    Case 1
       ListView1.ListItems.Clear
       ListView1.Enabled = True
       For i = 0 To m2.Count - 1
         Key = "【" & m2.Item(i).Caption & "】"
         m = i + m1.Count
         Set itmX = ListView1.ListItems.Add(, , Key, m)
       Next i
    Case 2
       ListView1.ListItems.Clear
       ListView1.Enabled = True
       For i = 0 To m3.Count - 1
         Key = "【" & m3.Item(i).Caption & "】"
         m = m1.Count + m2.Count + i
         Set itmX = ListView1.ListItems.Add(, , Key, m)
       Next i
    Case 3
       ListView1.ListItems.Clear
       ListView1.Enabled = True
       For i = 0 To m4.Count - 1
         Key = "【" & m4.Item(i).Caption & "】"
         m = m1.Count + m2.Count + m3.Count + i
         Set itmX = ListView1.ListItems.Add(, , Key, m)
       Next i
     Case 4
       ListView1.ListItems.Clear
       ListView1.Enabled = True
       For i = 0 To m5.Count - 1
         Key = "【" & m5.Item(i).Caption & "】"
         m = m1.Count + m2.Count + m3.Count + m4.Count + i
         Set itmX = ListView1.ListItems.Add(, , Key, m)
       Next i
     Case 5
       ListView1.ListItems.Clear
       ListView1.Enabled = True
       For i = 0 To m6.Count - 1
         Key = "【" & m6.Item(i).Caption & "】"
         m = m1.Count + m2.Count + m3.Count + m4.Count + m5.Count + i
         Set itmX = ListView1.ListItems.Add(, , Key, m)
       Next i
     Case 6
       ListView1.ListItems.Clear
       ListView1.Enabled = True
       For i = 0 To m7.Count - 1
         Key = "【" & m7.Item(i).Caption & "】"
         m = m1.Count + m2.Count + m3.Count + m4.Count + m5.Count + m6.Count + i
         Set itmX = ListView1.ListItems.Add(, , Key, m)
       Next i
     Case 7
       ListView1.ListItems.Clear
       ListView1.Enabled = True
       For i = 0 To m8.Count - 1
         Key = "【" & m8.Item(i).Caption & "】"
         m = m1.Count + m2.Count + m3.Count + m4.Count + m5.Count + m6.Count + m7.Count + i
         Set itmX = ListView1.ListItems.Add(, , Key, m)
       Next i
   End Select
End Sub
Private Sub ListView1_Click()
  Select Case strMenu
    Case "基本资料管理"
      m1_Click (ListView1.SelectedItem.Index - 1)
    Case "销售组织"
      m2_Click (ListView1.SelectedItem.Index - 1)
    Case "市场管理"
      m3_Click (ListView1.SelectedItem.Index - 1)
    Case "销售业务管理"
      m4_Click (ListView1.SelectedItem.Index - 1)
    Case "销售分析"
      m5_Click (ListView1.SelectedItem.Index - 1)
    Case "营销资源管理"
      m6_Click (ListView1.SelectedItem.Index - 1)
    Case "系统管理"
      m7_Click (ListView1.SelectedItem.Index - 1)
    Case "辅助"
      m8_Click (ListView1.SelectedItem.Index - 1)
  End Select
End Sub
Private Sub m1_Click(Index As Integer)
  text = m1(Index).Caption
  rs1.Open "select * from 权限信息表 where 操作员='" & czy & "'", Cnn, adOpenStatic
  If rs1.RecordCount > 0 Then
     If rs1.Fields(Index) = False Then
        MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示窗口"
        rs1.Close
        Exit Sub
     End If
  End If
  rs1.Close
  Select Case Index
    Case 0
      Load main_jbzl_qygl
      main_jbzl_qygl.Show 1
    Case 1
      Load main_jbzl_cpgl
      main_jbzl_cpgl.Show 1
    Case 2
      jbxxtb = "训练项目表"
      Load main_jbzl_public
      main_jbzl_public.Show 1
    Case 3
      jbxxtb = "考核指标表"
      Load main_jbzl_public
      main_jbzl_public.Show 1
  End Select
End Sub
Private Sub m2_Click(Index As Integer)
  text = m2(Index).Caption
  rs1.Open "select * from 权限信息表 where 操作员='" & czy & "'", Cnn, adOpenStatic
  If rs1.RecordCount > 0 Then
     If rs1.Fields(Index + m1.Count) = False Then
        MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示窗口"
        rs1.Close
        Exit Sub
     End If
  End If
  rs1.Close
  Select Case Index
    Case 0
      Load main_xszz_xszzgl
      main_xszz_xszzgl.Show 1
    Case 1
      Load main_xszz_ywygl
      main_xszz_ywygl.Show 1
    Case 2
      Load main_xszz_xsxlgl
      main_xszz_xsxlgl.Show 1
    Case 3
      Load main_xszz_xsyjgl
      main_xszz_xsyjgl.Show 1
  End Select
End Sub
Private Sub m3_Click(Index As Integer)
  text = m3(Index).Caption
  rs1.Open "select * from 权限信息表 where 操作员='" & czy & "'", Cnn, adOpenStatic
  If rs1.RecordCount > 0 Then
     If rs1.Fields(Index + m1.Count + m2.Count) = False Then
        MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示窗口"
        rs1.Close
        Exit Sub
     End If
  End If
  rs1.Close
  Select Case Index
    Case 0
      Load main_scgl_scfkgl
      main_scgl_scfkgl.Show 1
    Case 1
      Load main_scgl_scgzgl
      main_scgl_scgzgl.Show 1
    Case 2
      intCP = 0
      Load main_cpxx
      main_cpxx.Show 1
  End Select
End Sub
Private Sub m4_Click(Index As Integer)
  text = m4(Index).Caption
  rs1.Open "select * from 权限信息表 where 操作员='" & czy & "'", Cnn, adOpenStatic
  If rs1.RecordCount > 0 Then
     If rs1.Fields(Index + m1.Count + m2.Count + m3.Count) = False Then
        MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示窗口"
        rs1.Close
        Exit Sub
     End If
  End If
  rs1.Close
  Select Case Index
    Case 0
      Load main_xsyw_xsdr
      main_xsyw_xsdr.Show 1
    Case 1
      Load main_xsyw_xslr
      main_xsyw_xslr.Show 1
    Case 2
      Load main_xsyw_xsyc
      main_xsyw_xsyc.Show 1
    Case 3
      Load main_xsyw_xsjh
      main_xsyw_xsjh.Show 1
  End Select
End Sub
Private Sub m5_Click(Index As Integer)
  text = m5(Index).Caption
  rs1.Open "select * from 权限信息表 where 操作员='" & czy & "'", Cnn, adOpenStatic
  If rs1.RecordCount > 0 Then
     If rs1.Fields(Index + m1.Count + m2.Count + m3.Count + m4.Count) = False Then
        MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示窗口"
        rs1.Close
        Exit Sub
     End If
  End If
  rs1.Close
  Select Case Index
    Case 0
      Load main_xsfx_yxsfx
      main_xsfx_yxsfx.Show 1
    Case 1
      Load main_xsfx_jxsfx
      main_xsfx_jxsfx.Show 1
    Case 2
      Load main_xsfx_nxsfx
      main_xsfx_nxsfx.Show 1
  End Select
End Sub
Private Sub m6_Click(Index As Integer)
  text = m6(Index).Caption
  rs1.Open "select * from 权限信息表 where 操作员='" & czy & "'", Cnn, adOpenStatic
  If rs1.RecordCount > 0 Then
     If rs1.Fields(Index + m1.Count + m2.Count + m3.Count + m4.Count + m5.Count) = False Then
        MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示窗口"
        rs1.Close
        Exit Sub
     End If
  End If
  rs1.Close
  Select Case Index
    Case 0
      Load main_yxzy_qymlgl
      main_yxzy_qymlgl.Show 1
    Case 1
      Load main_yxzy_grmlgl
      main_yxzy_grmlgl.Show 1
    Case 2
      jbxxtb = "邮箱表"
      Load main_jbzl_public
      main_jbzl_public.Show 1
    Case 3
      Load main_yxzy_yxlpgl
      main_yxzy_yxlpgl.Show 1
  End Select
End Sub
Private Sub m7_Click(Index As Integer)
  rs1.Open "select * from 权限信息表 where 操作员='" & czy & "'", Cnn, adOpenStatic
  If rs1.RecordCount > 0 Then
     If rs1.Fields(Index + m1.Count + m2.Count + m3.Count + m4.Count + m5.Count + m6.Count) = False Then
        MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示窗口"
        rs1.Close
        Exit Sub
     End If
  End If
  rs1.Close
  text = m7(Index).Caption
  Select Case Index
    Case 0
     Load main_xtgl_czqx
     main_xtgl_czqx.Show 1
    Case 1
     Load main_xtgl_mm
     main_xtgl_mm.Show
    Case 2
      Load main_xtgl_sjcsh
      main_xtgl_sjcsh.Show
  End Select
End Sub
Private Sub m8_Click(Index As Integer)
  text = m8(Index).Caption
  Select Case Index
    Case 0
     CommonDialog1.HelpFile = App.Path & "/HELP.HLP"
     CommonDialog1.HelpCommand = cdlHelpContents
     CommonDialog1.ShowHelp ' 显示 Visual Basic 帮助目录主题
    Case 1
     Load frm_about
     frm_about.Show
    Case 2
     Dim Temp As String
     Temp = "www.mingrisoft.com"                                         '所要连接的网站名称
     ShellExecute 0&, vbNullString, Temp, vbNullString, vbNullString, 0  '调用IE
  End Select
End Sub