frm_main.frm

本系统为客户管理系统 (1)本系统的数据库为SQL Server 2000

  Frm_Xxcx_Lxrxxcx.Show 1
Case 6
   '国内城市邮编区号查询
  Load Frm_Xxcx_Yb
  Frm_Xxcx_Yb.Show 1
Case 7
  End
End Select
End Sub

Private Sub Timer1_Timer()
 '显示系统时间
Frm_Main.StatusBar1.Panels(3).Text = Format(Date, "long date") + Format(Now, " hh点mm分ss秒")
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
  If TreeView1.SelectedItem.key = "基础信息维护" Then
       ListView1.ListItems.Clear   '清除ListView中的项目
       '向ListView控件中添加项目并设置图片
       Set itmX = ListView1.ListItems.Add(, , "区域信息设置", 3)
       Set itmX = ListView1.ListItems.Add(, , "企业性质设置", 4)
       Set itmX = ListView1.ListItems.Add(, , "企业类型设置", 6)
       Set itmX = ListView1.ListItems.Add(, , "企业资信设置", 5)
       Set itmX = ListView1.ListItems.Add(, , "客户级别设置", 7)
       Set itmX = ListView1.ListItems.Add(, , "客户满意程度设置", 8)
       Exit Sub    '退出本事件
  End If
  If TreeView1.SelectedItem.key = "客户信息维护" Then
       ListView1.ListItems.Clear   '清除ListView中的项目
       '向ListView控件中添加项目并设置图片
       Set itmX = ListView1.ListItems.Add(, , "客户信息", 9)
       Set itmX = ListView1.ListItems.Add(, , "联系人信息", 10)
       Set itmX = ListView1.ListItems.Add(, , "业务往来", 11)
       Set itmX = ListView1.ListItems.Add(, , "客户呼叫中心", 12)
       Set itmX = ListView1.ListItems.Add(, , "发送邮件", 13)
       Exit Sub   '退出本事件
  End If
  If TreeView1.SelectedItem.key = "客户服务" Then
       ListView1.ListItems.Clear   '清除ListView中的项目
       '向ListView控件中添加项目并设置图片
       Set itmX = ListView1.ListItems.Add(, , "客户反馈", 14)
       Set itmX = ListView1.ListItems.Add(, , "客户投诉", 15)
       Set itmX = ListView1.ListItems.Add(, , "客户反馈满意程度分析", 16)
       Set itmX = ListView1.ListItems.Add(, , "客户投诉满意程度分析", 17)
       Exit Sub    '退出本事件
  End If
  If TreeView1.SelectedItem.key = "信息查询" Then
       ListView1.ListItems.Clear     '清除ListView中的项目
       '向ListView控件中添加项目并设置图片
       Set itmX = ListView1.ListItems.Add(, , "客户信息查询", 18)
       Set itmX = ListView1.ListItems.Add(, , "联系人信息查询", 19)
       Set itmX = ListView1.ListItems.Add(, , "客户反馈满意程度查询", 20)
       Set itmX = ListView1.ListItems.Add(, , "客户投诉满意程度查询", 20)
       Set itmX = ListView1.ListItems.Add(, , "客户反馈查询", 22)
       Set itmX = ListView1.ListItems.Add(, , "客户投诉查询", 23)
       Set itmX = ListView1.ListItems.Add(, , "国内城市区号邮编查询", 24)
       Exit Sub    '退出本事件
  End If
  If TreeView1.SelectedItem.key = "数据管理" Then
       ListView1.ListItems.Clear     '清除ListView中的项目
       '向ListView控件中添加项目并设置图片
       Set itmX = ListView1.ListItems.Add(, , "客户信封打印", 25)
       Set itmX = ListView1.ListItems.Add(, , "客户信息列表", 26)
       Set itmX = ListView1.ListItems.Add(, , "联系人信息列表", 27)
       Set itmX = ListView1.ListItems.Add(, , "省份邮编信息打印", 28)
       Exit Sub    '退出本事件
  End If
  If TreeView1.SelectedItem.key = "辅助工具" Then
       ListView1.ListItems.Clear     '清除ListView中的项目
       '向ListView控件中添加项目并设置图片
       Set itmX = ListView1.ListItems.Add(, , "调用Word", 29)
       Set itmX = ListView1.ListItems.Add(, , "调用Excel", 30)
       Set itmX = ListView1.ListItems.Add(, , "计算器", 31)
       Set itmX = ListView1.ListItems.Add(, , "登录Internet", 32)
       Set itmX = ListView1.ListItems.Add(, , "工作业务备忘", 33)
       Exit Sub    '退出本事件
  End If
  If TreeView1.SelectedItem.key = "系统管理" Then
       ListView1.ListItems.Clear     '清除ListView中的项目
       '向ListView控件中添加项目并设置图片
       Set itmX = ListView1.ListItems.Add(, , "操作员设置", 34)
       Set itmX = ListView1.ListItems.Add(, , "密码修改", 35)
       Set itmX = ListView1.ListItems.Add(, , "权限设置", 36)
       Set itmX = ListView1.ListItems.Add(, , "系统数据清理", 37)
       Set itmX = ListView1.ListItems.Add(, , "数据备份与恢复", 38)
       Exit Sub    '退出本事件
  End If
  If TreeView1.SelectedItem.key = "帮助信息" Then
       ListView1.ListItems.Clear     '清除ListView中的项目
       '向ListView控件中添加项目并设置图片
       Set itmX = ListView1.ListItems.Add(, , "本单位信息", 40)
       Set itmX = ListView1.ListItems.Add(, , "关于", 41)
       Set itmX = ListView1.ListItems.Add(, , "帮助", 42)
       Exit Sub   '退出本事件
  End If
  If TreeView1.SelectedItem.key = "区域信息设置" And Menu1(0).Enabled = True Then
     Load Frm_Jcxxwh_Qysz
     Frm_Jcxxwh_Qysz.Show 1
  ElseIf TreeView1.SelectedItem.key = "区域信息设置" And Menu1(0).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
   If TreeView1.SelectedItem.key = "企业性质设置" And Menu1(2).Enabled = True Then
      '企业性质设置
   Load Frm_Jcxxwh_Qyxz
   Frm_Jcxxwh_Qyxz.Show 1
  ElseIf TreeView1.SelectedItem.key = "企业性质设置" And Menu1(2).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
   If TreeView1.SelectedItem.key = "企业资信设置" And Menu1(4).Enabled = True Then
      Load Frm_Jcxxwh_Qyzx
      Frm_Jcxxwh_Qyzx.Show 1
  ElseIf TreeView1.SelectedItem.key = "企业资信设置" And Menu1(4).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
   If TreeView1.SelectedItem.key = "企业类型设置" And Menu1(3).Enabled = True Then
      Load Frm_Jcxxwh_Qylx
      Frm_Jcxxwh_Qylx.Show 1
  ElseIf TreeView1.SelectedItem.key = "企业类型设置" And Menu1(3).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
  End If
  If TreeView1.SelectedItem.key = "客户级别设置" And Menu1(6).Enabled = True Then
     Load Frm_Jcxxwh_Khjb
     Frm_Jcxxwh_Khjb.Show 1
  ElseIf TreeView1.SelectedItem.key = "客户级别设置" And Menu1(6).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  
   If TreeView1.SelectedItem.key = "客户满意程度设置" And Menu1(7).Enabled = True Then
     Load Frm_Jcxxwh_Khmyd
   Frm_Jcxxwh_Khmyd.Show 1
  ElseIf TreeView1.SelectedItem.key = "客户满意程度设置" And Menu1(7).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
   If TreeView1.SelectedItem.key = "客户信息" And Menu2(0).Enabled = True Then
     Load Frm_Khxxwh_kh     '调用客户信息窗体
     Frm_Khxxwh_kh.Show 1
  ElseIf TreeView1.SelectedItem.key = "客户信息" And Menu2(0).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
   If TreeView1.SelectedItem.key = "联系人信息" And Menu2(1).Enabled = True Then
     Load Frm_Khxxwh_Lxr
     Frm_Khxxwh_Lxr.Show 1
  ElseIf TreeView1.SelectedItem.key = "联系人信息" And Menu2(1).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "业务往来" And Menu2(3).Enabled = True Then
    Load Frm_Khxxwh_Ywwl
  Frm_Khxxwh_Ywwl.Show 1
  ElseIf TreeView1.SelectedItem.key = "业务往来" And Menu2(3).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "业务往来" And Menu2(3).Enabled = True Then
      Load Frm_Khxxwh_Ywwl
  Frm_Khxxwh_Ywwl.Show 1
  ElseIf TreeView1.SelectedItem.key = "业务往来" And Menu2(3).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "客户呼叫中心" And Menu2(5).Enabled = True Then
     Load Frm_Khxxwh_Hjzx
     Frm_Khxxwh_Hjzx.Show 1
  ElseIf TreeView1.SelectedItem.key = "客户呼叫中心" And Menu2(5).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "发送邮件" And Menu2(6).Enabled = True Then
      Load Frm_Khxxwh_Yjfs
      Frm_Khxxwh_Yjfs.Show 1
  ElseIf TreeView1.SelectedItem.key = "发送邮件" And Menu2(6).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  
  If TreeView1.SelectedItem.key = "客户反馈" And Menu3(0).Enabled = True Then
       Load Frm_Khfw_Khfk
       Frm_Khfw_Khfk.Show 1
  ElseIf TreeView1.SelectedItem.key = "客户反馈" And Menu3(0).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "客户投诉" And Menu3(1).Enabled = True Then
       Load Frm_Khfw_Khts
       Frm_Khfw_Khts.Show 1
  ElseIf TreeView1.SelectedItem.key = "客户投诉" And Menu3(1).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "客户反馈满意程度分析" And Menu3(2).Enabled = True Then
        Load Frm_Khfw_Fkmydfx
        Frm_Khfw_Fkmydfx.Show 1
  ElseIf TreeView1.SelectedItem.key = "客户反馈满意程度分析" And Menu3(2).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "客户投诉满意程度分析" And Menu3(3).Enabled = True Then
      Load Frm_Khfw_Tsmydfx
      Frm_Khfw_Tsmydfx.Show 1
  ElseIf TreeView1.SelectedItem.key = "客户投诉满意程度分析" And Menu3(3).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "客户信息查询" And Menu4(0).Enabled = True Then
      Load Frm_Xxcx_Khxxcx
      Frm_Xxcx_Khxxcx.Show 1
  ElseIf TreeView1.SelectedItem.key = "客户信息查询" And Menu4(0).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "联系人信息查询" And Menu4(1).Enabled = True Then
      Load Frm_Xxcx_Lxrxxcx
      Frm_Xxcx_Lxrxxcx.Show 1
  ElseIf TreeView1.SelectedItem.key = "联系人信息查询" And Menu4(1).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "根据客户反馈满意程度查询" And Menu4(3).Enabled = True Then
       Load Frm_Xxcx_Fkmydcx
       Frm_Xxcx_Fkmydcx.Show 1
  ElseIf TreeView1.SelectedItem.key = "根据客户反馈满意程度查询" And Menu4(3).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "根据客户投诉满意程度查询" And Menu4(4).Enabled = True Then
       Load Frm_Xxcx_Tsmydcx
       Frm_Xxcx_Tsmydcx.Show 1
  ElseIf TreeView1.SelectedItem.key = "根据客户投诉满意程度查询" And Menu4(4).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "客户反馈查询" And Menu4(6).Enabled = True Then
        Load Frm_Xxcx_Khfkcx
        Frm_Xxcx_Khfkcx.Show 1
  ElseIf TreeView1.SelectedItem.key = "客户反馈查询" And Menu4(6).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "客户投诉查询" And Menu4(7).Enabled = True Then
       Load Frm_Xxcx_Khtscx
       Frm_Xxcx_Khtscx.Show 1
  ElseIf TreeView1.SelectedItem.key = "客户投诉查询" And Menu4(7).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "国内城市区号邮编查询" And Menu4(9).Enabled = True Then
       Load Frm_Xxcx_Yb
       Frm_Xxcx_Yb.Show 1
  ElseIf TreeView1.SelectedItem.key = "国内城市区号邮编查询" And Menu4(9).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "客户信封打印" And Menu5(0).Enabled = True Then
       Load Frm_Sjgl_Khxfdy
       Frm_Sjgl_Khxfdy.Show 1
  ElseIf TreeView1.SelectedItem.key = "客户信封打印" And Menu5(0).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "客户信息列表" And Menu5(1).Enabled = True Then
        Load Frm_Sjgl_Khxxdy
        Frm_Sjgl_Khxxdy.Show 1
  ElseIf TreeView1.SelectedItem.key = "客户信息列表" And Menu5(1).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "联系人信息列表" And Menu5(2).Enabled = True Then
       Load Frm_Sjgl_Lxrxxdy
       Frm_Sjgl_Lxrxxdy.Show 1
  ElseIf TreeView1.SelectedItem.key = "联系人信息列表" And Menu5(2).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "省份邮编信息打印" And Menu5(3).Enabled = True Then
       Myflag = False
       Load Frm_Qgyb
       Frm_Qgyb.Show 1
  ElseIf TreeView1.SelectedItem.key = "省份邮编信息打印" And Menu5(3).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "工作业务备忘" And Menu6(5).Enabled = True Then
        Load Frm_Fzgj_Gzbw
        Frm_Fzgj_Gzbw.Show 1
  ElseIf TreeView1.SelectedItem.key = "工作业务备忘" And Menu6(5).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "操作员设置" And Menu8(0).Enabled = True Then
        Load Frm_Xtgl_Czy
        Frm_Xtgl_Czy.Show 1
  ElseIf TreeView1.SelectedItem.key = "操作员设置" And Menu8(0).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "密码修改" And Menu8(1).Enabled = True Then
       Load Frm_Xtgl_Mmxg
       Frm_Xtgl_Mmxg.Show 1
  ElseIf TreeView1.SelectedItem.key = "密码修改" And Menu8(1).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "权限设置" And Menu8(2).Enabled = True Then
       Load Frm_Xtgl_Czqy
       Frm_Xtgl_Czqy.Show 1
  ElseIf TreeView1.SelectedItem.key = "权限设置" And Menu8(2).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "系统数据清理" And Menu8(4).Enabled = True Then
         Load Frm_Qr
         Frm_Qr.Show 1
  ElseIf TreeView1.SelectedItem.key = "系统数据清理" And Menu8(4).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "数据备份与恢复" And Menu8(5).Enabled = True Then
         Load Frm_Qr
         Frm_Qr.Show 1
  ElseIf TreeView1.SelectedItem.key = "数据备份与恢复" And Menu8(5).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "调用Word" Then
        ShellExecute Me.hWnd, "open", "winword.exe", "", 1, 5
  End If
  If TreeView1.SelectedItem.key = "调用Excel" Then
      ShellExecute Me.hWnd, "open", "excel.exe", "", 1, 5
  End If
  If TreeView1.SelectedItem.key = "计算