frm_main.frm

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

     Menu3(2).Enabled = True
  ElseIf rs3.Fields("客户反馈满意程度分析") = 0 Then
     Menu3(2).Enabled = False
  End If
  If rs3.Fields("客户投诉满意程度分析") = 1 Then
     Menu3(3).Enabled = True
  ElseIf rs3.Fields("客户投诉满意程度分析") = 0 Then
     Menu3(3).Enabled = False
  End If
  If rs3.Fields("客户信息查询") = 1 Then
     Menu4(0).Enabled = True
     Toolbar1.Buttons(4).Enabled = True
  ElseIf rs3.Fields("客户信息查询") = 0 Then
     Menu4(0).Enabled = False
     Toolbar1.Buttons(4).Enabled = False
  End If
   If rs3.Fields("联系人信息查询") = 1 Then
     Menu4(1).Enabled = True
     Toolbar1.Buttons(5).Enabled = True
  ElseIf rs3.Fields("联系人信息查询") = 0 Then
     Menu4(1).Enabled = False
     Toolbar1.Buttons(5).Enabled = False
  End If
   If rs3.Fields("根据客户反馈满意程度查询") = 1 Then
     Menu4(3).Enabled = True
  ElseIf rs3.Fields("根据客户反馈满意程度查询") = 0 Then
     Menu4(3).Enabled = False
  End If
   If rs3.Fields("根据客户投诉满意程度查询") = 1 Then
     Menu4(4).Enabled = True
  ElseIf rs3.Fields("根据客户投诉满意程度查询") = 0 Then
     Menu4(4).Enabled = False
  End If
   If rs3.Fields("客户反馈查询") = 1 Then
     Menu4(6).Enabled = True
  ElseIf rs3.Fields("客户反馈查询") = 0 Then
     Menu4(6).Enabled = False
  End If
   If rs3.Fields("客户投诉查询") = 1 Then
     Menu4(7).Enabled = True
  ElseIf rs3.Fields("客户投诉查询") = 0 Then
     Menu4(7).Enabled = False
  End If
   If rs3.Fields("国内城市邮编区号查询") = 1 Then
     Menu4(9).Enabled = True
     Toolbar1.Buttons(6).Enabled = True
  ElseIf rs3.Fields("国内城市邮编区号查询") = 0 Then
     Menu4(9).Enabled = False
     Toolbar1.Buttons(6).Enabled = False
  End If
  If rs3.Fields("客户信封打印") = 1 Then
     Menu5(0).Enabled = True
  ElseIf rs3.Fields("客户信封打印") = 0 Then
     Menu5(0).Enabled = False
  End If
  If rs3.Fields("客户信息列表") = 1 Then
     Menu5(1).Enabled = True
  ElseIf rs3.Fields("客户信息列表") = 0 Then
     Menu5(1).Enabled = False
  End If
  If rs3.Fields("联系人信息列表") = 1 Then
     Menu5(2).Enabled = True
  ElseIf rs3.Fields("联系人信息列表") = 0 Then
     Menu5(2).Enabled = False
  End If
  If rs3.Fields("省份邮编信息打印") = 1 Then
     Menu5(3).Enabled = True
  ElseIf rs3.Fields("省份邮编信息打印") = 0 Then
     Menu5(3).Enabled = False
  End If
  If rs3.Fields("工作业务备忘") = 1 Then
     Menu6(5).Enabled = True
  ElseIf rs3.Fields("工作业务备忘") = 0 Then
     Menu6(5).Enabled = False
  End If
  If rs3.Fields("操作员设置") = 1 Then
     Menu8(0).Enabled = True
  ElseIf rs3.Fields("操作员设置") = 0 Then
     Menu8(0).Enabled = False
  End If
  If rs3.Fields("密码修改") = 1 Then
     Menu8(1).Enabled = True
  ElseIf rs3.Fields("密码修改") = 0 Then
     Menu8(1).Enabled = False
  End If
  If rs3.Fields("权限设置") = 1 Then
     Menu8(2).Enabled = True
  ElseIf rs3.Fields("权限设置") = 0 Then
     Menu8(2).Enabled = False
  End If
  
  If rs3.Fields("系统数据清理") = 1 Then
     Menu8(4).Enabled = True
  ElseIf rs3.Fields("系统数据清理") = 0 Then
     Menu8(4).Enabled = False
  End If
  If rs3.Fields("数据库备份与恢复") = 1 Then
     Menu8(5).Enabled = True
  ElseIf rs3.Fields("数据库备份与恢复") = 0 Then
     Menu8(5).Enabled = False
  End If
End If
rs3.Close
End Sub


'自定义一个过程，用于显示TreeView控件中的数据
Public Sub Tree_change()
  Dim key, Text, BH, StrTemp As String
  Dim Nod As Node '定义一个节点变量
  rs1.Open "select distinct menu_menu,menu_menuid from tb_Client_menu order by menu_menuid", cnn, adOpenKeyset
  If rs1.RecordCount > 0 Then
       rs1.MoveFirst
          Do While rs1.EOF = False    '循环读取第1层节点中的数据信息
            key = Trim(rs1.Fields("menu_menu"))
            Text = rs1.Fields("menu_menu")
            StrTemp = rs1.Fields("menu_menu")
            Set node1 = TreeView1.Nodes.Add(, tvwChild, key, Text, 1)   '给第1层节点赋与数值
                       rs2.Open "select * from tb_Client_menu  where menu_menu ='" + StrTemp + "'", cnn, adOpenKeyset
                       If rs2.RecordCount > 0 Then
                         rs2.MoveFirst
                         Do While rs2.EOF = False    '循环读取第2层节点中的数据信息
                                key = Trim(rs2.Fields("menu_submenu"))
                                Text = rs2.Fields("menu_submenu")
                                Set Node2 = TreeView1.Nodes.Add(node1.Index, tvwChild, key, Text, 2)   '给第2层节点赋与数值
                                rs2.MoveNext
                         Loop
                       End If
                       rs2.Close
          rs1.MoveNext
          Loop
  End If
  rs1.Close
End Sub


Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
If ListView1.SelectedItem.Text = "区域信息设置" And Menu1(0).Enabled = True Then
     Load Frm_Jcxxwh_Qysz
     Frm_Jcxxwh_Qysz.Show
     Frm_Main.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "区域信息设置" And Menu1(0).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
   If ListView1.SelectedItem.Text = "企业性质设置" And Menu1(2).Enabled = True Then
      '企业性质设置
   Load Frm_Jcxxwh_Qyxz
   Frm_Jcxxwh_Qyxz.Show
   Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "企业性质设置" And Menu1(2).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
   If ListView1.SelectedItem.Text = "企业资信设置" And Menu1(4).Enabled = True Then
      Load Frm_Jcxxwh_Qyzx
      Frm_Jcxxwh_Qyzx.Show
       Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "企业资信设置" And Menu1(4).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
   If ListView1.SelectedItem.Text = "企业类型设置" And Menu1(3).Enabled = True Then
      Load Frm_Jcxxwh_Qylx
      Frm_Jcxxwh_Qylx.Show
       Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "企业类型设置" And Menu1(3).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
  End If
  If ListView1.SelectedItem.Text = "客户级别设置" And Menu1(6).Enabled = True Then
     Load Frm_Jcxxwh_Khjb
     Frm_Jcxxwh_Khjb.Show
      Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "客户级别设置" And Menu1(6).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  
   If ListView1.SelectedItem.Text = "客户满意程度设置" And Menu1(7).Enabled = True Then
     Load Frm_Jcxxwh_Khmyd
     Frm_Jcxxwh_Khmyd.Show
     Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "客户满意程度设置" And Menu1(7).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
   If ListView1.SelectedItem.Text = "客户信息" And Menu2(0).Enabled = True Then
     Load Frm_Khxxwh_kh     '调用客户信息窗体
     Frm_Khxxwh_kh.Show
     Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "客户信息" And Menu2(0).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
   If ListView1.SelectedItem.Text = "联系人信息" And Menu2(1).Enabled = True Then
     Load Frm_Khxxwh_Lxr
     Frm_Khxxwh_Lxr.Show
      Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "联系人信息" And Menu2(1).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.Text = "业务往来" And Menu2(3).Enabled = True Then
    Load Frm_Khxxwh_Ywwl
    Frm_Khxxwh_Ywwl.Show
     Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "业务往来" And Menu2(3).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.Text = "客户呼叫中心" And Menu2(5).Enabled = True Then
     Load Frm_Khxxwh_Hjzx
     Frm_Khxxwh_Hjzx.Show
      Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "客户呼叫中心" And Menu2(5).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.Text = "发送邮件" And Menu2(6).Enabled = True Then
      Load Frm_Khxxwh_Yjfs
      Frm_Khxxwh_Yjfs.Show
       Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "发送邮件" And Menu2(6).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  
  If ListView1.SelectedItem.Text = "客户反馈" And Menu3(0).Enabled = True Then
       Load Frm_Khfw_Khfk
       Frm_Khfw_Khfk.Show
        Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "客户反馈" And Menu3(0).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.Text = "客户投诉" And Menu3(1).Enabled = True Then
       Load Frm_Khfw_Khts
       Frm_Khfw_Khts.Show
        Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "客户投诉" And Menu3(1).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.Text = "客户反馈满意程度分析" And Menu3(2).Enabled = True Then
        Load Frm_Khfw_Fkmydfx
        Frm_Khfw_Fkmydfx.Show
         Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "客户反馈满意程度分析" And Menu3(2).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.Text = "客户投诉满意程度分析" And Menu3(3).Enabled = True Then
      Load Frm_Khfw_Tsmydfx
      Frm_Khfw_Tsmydfx.Show
      Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "客户投诉满意程度分析" And Menu3(3).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.Text = "客户信息查询" And Menu4(0).Enabled = True Then
      Load Frm_Xxcx_Khxxcx
      Frm_Xxcx_Khxxcx.Show
       Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "客户信息查询" And Menu4(0).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.Text = "联系人信息查询" And Menu4(1).Enabled = True Then
      Load Frm_Xxcx_Lxrxxcx
      Frm_Xxcx_Lxrxxcx.Show
       Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "联系人信息查询" And Menu4(1).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.Text = "客户反馈满意程度查询" And Menu4(3).Enabled = True Then
       Load Frm_Xxcx_Fkmydcx
       Frm_Xxcx_Fkmydcx.Show
        Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "客户反馈满意程度查询" And Menu4(3).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.Text = "客户投诉满意程度查询" And Menu4(4).Enabled = True Then
       Load Frm_Xxcx_Tsmydcx
       Frm_Xxcx_Tsmydcx.Show
        Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "客户投诉满意程度查询" And Menu4(4).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.Text = "客户反馈查询" And Menu4(6).Enabled = True Then
        Load Frm_Xxcx_Khfkcx
        Frm_Xxcx_Khfkcx.Show
         Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "客户反馈查询" And Menu4(6).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.Text = "客户投诉查询" And Menu4(7).Enabled = True Then
       Load Frm_Xxcx_Khtscx
       Frm_Xxcx_Khtscx.Show
        Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "客户投诉查询" And Menu4(7).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.Text = "国内城市区号邮编查询" And Menu4(9).Enabled = True Then
       Load Frm_Xxcx_Yb
       Frm_Xxcx_Yb.Show
        Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "国内城市区号邮编查询" And Menu4(9).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.Text = "客户信封打印" And Menu5(0).Enabled = True Then
       Load Frm_Sjgl_Khxfdy
       Frm_Sjgl_Khxfdy.Show
        Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "客户信封打印" And Menu5(0).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.Text = "客户信息列表" And Menu5(1).Enabled = True Then
        Load Frm_Sjgl_Khxxdy
        Frm_Sjgl_Khxxdy.Show
         Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "客户信息列表" And Menu5(1).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.Text = "联系人信息列表" And Menu5(2).Enabled = True Then
       Load Frm_Sjgl_Lxrxxdy
       Frm_Sjgl_Lxrxxdy.Show
        Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "联系人信息列表" And Menu5(2).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.Text = "省份邮编信息打印" And Menu5(3).Enabled = True Then