frm_main.frm

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

      EndProperty
   End
   Begin VB.Menu Jcxxwh 
      Caption         =   "基础信息维护"
      Begin VB.Menu Menu1 
         Caption         =   "区域信息设置"
         Index           =   0
      End
      Begin VB.Menu Menu1 
         Caption         =   "-"
         Index           =   1
      End
      Begin VB.Menu Menu1 
         Caption         =   "企业性质设置"
         Index           =   2
      End
      Begin VB.Menu Menu1 
         Caption         =   "企业类型设置"
         Index           =   3
      End
      Begin VB.Menu Menu1 
         Caption         =   "企业资信设置"
         Index           =   4
      End
      Begin VB.Menu Menu1 
         Caption         =   "-"
         Index           =   5
      End
      Begin VB.Menu Menu1 
         Caption         =   "客户级别设置"
         Index           =   6
      End
      Begin VB.Menu Menu1 
         Caption         =   "客户满意程度设置"
         Index           =   7
      End
   End
   Begin VB.Menu Khxxwh 
      Caption         =   "客户信息维护"
      Begin VB.Menu Menu2 
         Caption         =   "客户信息"
         Index           =   0
      End
      Begin VB.Menu Menu2 
         Caption         =   "联系人信息"
         Index           =   1
      End
      Begin VB.Menu Menu2 
         Caption         =   "-"
         Index           =   2
      End
      Begin VB.Menu Menu2 
         Caption         =   "业务往来"
         Index           =   3
      End
      Begin VB.Menu Menu2 
         Caption         =   "-"
         Index           =   4
      End
      Begin VB.Menu Menu2 
         Caption         =   "客户呼叫中心"
         Index           =   5
      End
      Begin VB.Menu Menu2 
         Caption         =   "发送邮件"
         Index           =   6
      End
   End
   Begin VB.Menu Khfw 
      Caption         =   "客户服务"
      Begin VB.Menu Menu3 
         Caption         =   "客户反馈"
         Index           =   0
      End
      Begin VB.Menu Menu3 
         Caption         =   "客户投诉"
         Index           =   1
      End
      Begin VB.Menu Menu3 
         Caption         =   "客户反馈满意程度分析"
         Index           =   2
      End
      Begin VB.Menu Menu3 
         Caption         =   "客户投诉满意程度分析"
         Index           =   3
      End
   End
   Begin VB.Menu Khxxcx 
      Caption         =   "信息查询"
      Begin VB.Menu Menu4 
         Caption         =   "客户信息查询"
         Index           =   0
      End
      Begin VB.Menu Menu4 
         Caption         =   "联系人信息查询"
         Index           =   1
      End
      Begin VB.Menu Menu4 
         Caption         =   "-"
         Index           =   2
      End
      Begin VB.Menu Menu4 
         Caption         =   "客户反馈满意程度查询"
         Index           =   3
      End
      Begin VB.Menu Menu4 
         Caption         =   "客户投诉满意程度查询"
         Index           =   4
      End
      Begin VB.Menu Menu4 
         Caption         =   "-"
         Index           =   5
      End
      Begin VB.Menu Menu4 
         Caption         =   "客户反馈查询"
         Index           =   6
      End
      Begin VB.Menu Menu4 
         Caption         =   "客户投诉查询"
         Index           =   7
      End
      Begin VB.Menu Menu4 
         Caption         =   "-"
         Index           =   8
      End
      Begin VB.Menu Menu4 
         Caption         =   "国内城市区号邮编查询"
         Index           =   9
      End
   End
   Begin VB.Menu Sjgl 
      Caption         =   "数据管理"
      Begin VB.Menu Menu5 
         Caption         =   "客户信封打印"
         Index           =   0
      End
      Begin VB.Menu Menu5 
         Caption         =   "客户信息列表(Word)"
         Index           =   1
      End
      Begin VB.Menu Menu5 
         Caption         =   "联系人信息列表(Word)"
         Index           =   2
      End
      Begin VB.Menu Menu5 
         Caption         =   "省份邮编信息打印"
         Index           =   3
      End
   End
   Begin VB.Menu Fzgj 
      Caption         =   "辅助工具"
      Begin VB.Menu Menu6 
         Caption         =   "调用Word"
         Index           =   0
      End
      Begin VB.Menu Menu6 
         Caption         =   "调用Excel"
         Index           =   1
      End
      Begin VB.Menu Menu6 
         Caption         =   "计算器"
         Index           =   2
      End
      Begin VB.Menu Menu6 
         Caption         =   "登录Internet"
         Index           =   3
      End
      Begin VB.Menu Menu6 
         Caption         =   "-"
         Index           =   4
      End
      Begin VB.Menu Menu6 
         Caption         =   "工作业务备忘"
         Index           =   5
      End
   End
   Begin VB.Menu Xtgl 
      Caption         =   "系统管理"
      Begin VB.Menu Menu8 
         Caption         =   "操作员设置"
         Index           =   0
      End
      Begin VB.Menu Menu8 
         Caption         =   "密码修改"
         Index           =   1
      End
      Begin VB.Menu Menu8 
         Caption         =   "权限设置"
         Index           =   2
      End
      Begin VB.Menu Menu8 
         Caption         =   "-"
         Index           =   3
      End
      Begin VB.Menu Menu8 
         Caption         =   "系统数据清理"
         Index           =   4
      End
      Begin VB.Menu Menu8 
         Caption         =   "数据备份与恢复"
         Index           =   5
      End
   End
   Begin VB.Menu Bz 
      Caption         =   "帮助信息"
      Begin VB.Menu Menu9 
         Caption         =   "本单位信息"
         Index           =   0
      End
      Begin VB.Menu Menu9 
         Caption         =   "关于"
         Index           =   1
      End
      Begin VB.Menu Menu9 
         Caption         =   "帮助"
         Index           =   2
      End
   End
   Begin VB.Menu Exit 
      Caption         =   "退出系统"
   End
End
Attribute VB_Name = "Frm_Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'声明API函数
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim rs3 As New ADODB.Recordset

Private Sub Exit_Click()
'退出系统
End
End Sub

Private Sub Form_Load()
Dim rs1 As New ADODB.Recordset   '定义数据对象
'打开数据连接
rs1.Open "select * from tb_Client_gzbw where gzbw_txrq='" + str(Date) + "'", cnn, adOpenKeyset
If rs1.RecordCount > 0 Then  '如果记录数大于零
  If MsgBox("今日重要工作：" & Trim(rs1.Fields("gzbw_bt")) & ",是否查看详细信息？", 4, "信息提示") = vbYes Then
     '将SQL语句赋给sql变量
     sql = "select * from tb_Client_gzbw where gzbw_txrq='" + str(Date) + "'"
     '显示工作备忘窗体
     Load Frm_Fzgj_Gzbw
     Frm_Fzgj_Gzbw.Show 1
  End If
End If
rs1.Close   '关闭数据对象
  
 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)
 TreeView1.LabelEdit = tvwManual
 Call Tree_change

'根据用户权限设置控件使用状态
rs3.Open "select * from tb_user where user_name='" + Frm_mm.Lbl_Name.Caption + "'", cnn, adOpenKeyset
If rs3.RecordCount > 0 Then
  If rs3.Fields("区域信息设置") = 1 Then
     Menu1(0).Enabled = True
  ElseIf rs3.Fields("区域信息设置") = 0 Then
     Menu1(0).Enabled = False
  End If
  If rs3.Fields("企业性质设置") = 1 Then
     Menu1(2).Enabled = True
  ElseIf rs3.Fields("企业性质设置") = 0 Then
     Menu1(2).Enabled = False
  End If
  If rs3.Fields("企业类型设置") = 1 Then
     Menu1(3).Enabled = True
  ElseIf rs3.Fields("企业类型设置") = 0 Then
     Menu1(3).Enabled = False
  End If
  If rs3.Fields("企业资信设置") = 1 Then
     Menu1(4).Enabled = True
  ElseIf rs3.Fields("企业资信设置") = 0 Then
     Menu1(4).Enabled = False
  End If
  If rs3.Fields("客户级别设置") = 1 Then
     Menu1(6).Enabled = True
  ElseIf rs3.Fields("客户级别设置") = 0 Then
     Menu1(6).Enabled = False
  End If
   If rs3.Fields("客户满意程度设置") = 1 Then
     Menu1(7).Enabled = True
  ElseIf rs3.Fields("客户满意程度设置") = 0 Then
     Menu1(7).Enabled = False
  End If
  If rs3.Fields("客户信息") = 1 Then
     Menu2(0).Enabled = True
     Toolbar1.Buttons(1).Enabled = True
  ElseIf rs3.Fields("客户信息") = 0 Then
     Menu2(0).Enabled = False
     Toolbar1.Buttons(1).Enabled = False
  End If
  If rs3.Fields("联系人信息") = 1 Then
     Menu2(1).Enabled = True
     Toolbar1.Buttons(2).Enabled = True
  ElseIf rs3.Fields("联系人信息") = 0 Then
     Menu2(1).Enabled = False
     Toolbar1.Buttons(2).Enabled = False
  End If
  If rs3.Fields("业务往来") = 1 Then
     Menu2(3).Enabled = True
  ElseIf rs3.Fields("业务往来") = 0 Then
     Menu2(3).Enabled = False
  End If
  If rs3.Fields("客户呼叫中心") = 1 Then
     Menu2(5).Enabled = True
  ElseIf rs3.Fields("客户呼叫中心") = 0 Then
     Menu2(5).Enabled = False
  End If
  If rs3.Fields("发送邮件") = 1 Then
     Menu2(6).Enabled = True
     Toolbar1.Buttons(3).Enabled = True
  ElseIf rs3.Fields("发送邮件") = 0 Then
     Menu2(6).Enabled = False
     Toolbar1.Buttons(3).Enabled = False
  End If
  If rs3.Fields("客户反馈") = 1 Then
     Menu3(0).Enabled = True
  ElseIf rs3.Fields("客户反馈") = 0 Then
     Menu3(0).Enabled = False
  End If
  If rs3.Fields("客户投诉") = 1 Then
     Menu3(1).Enabled = True
  ElseIf rs3.Fields("客户投诉") = 0 Then
     Menu3(1).Enabled = False
  End If
  If rs3.Fields("客户反馈满意程度分析") = 1 Then