frm_main.frm

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

       Myflag = False
       Load Frm_Qgyb
       Frm_Qgyb.Show
       Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "省份邮编信息打印" And Menu5(3).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.Text = "工作业务备忘" And Menu6(5).Enabled = True Then
        Load Frm_Fzgj_Gzbw
        Frm_Fzgj_Gzbw.Show
         Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "工作业务备忘" And Menu6(5).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.Text = "操作员设置" And Menu8(0).Enabled = True Then
        Load Frm_Xtgl_Czy
        Frm_Xtgl_Czy.Show
         Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "操作员设置" And Menu8(0).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.Text = "密码修改" And Menu8(1).Enabled = True Then
       Load Frm_Xtgl_Mmxg
       Frm_Xtgl_Mmxg.Show
        Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "密码修改" And Menu8(1).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.Text = "权限设置" And Menu8(2).Enabled = True Then
       Load Frm_Xtgl_Czqy
       Frm_Xtgl_Czqy.Show
       Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "权限设置" And Menu8(2).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.Text = "系统数据清理" And Menu8(4).Enabled = True Then
         '系统数据清理
  Load Frm_Qr
  Frm_Qr.Show
  Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "系统数据清理" And Menu8(4).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.Text = "数据备份与恢复" And Menu8(5).Enabled = True Then
        '数据备份与恢复
  Load Frm_Qr
  Frm_Qr.Show
  Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "数据备份与恢复" And Menu8(5).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If ListView1.SelectedItem.Text = "调用Word" Then
        ShellExecute Me.hWnd, "open", "winword.exe", "", 1, 5
  End If
  If ListView1.SelectedItem.Text = "调用Excel" Then
      ShellExecute Me.hWnd, "open", "excel.exe", "", 1, 5
  End If
  If ListView1.SelectedItem.Text = "计算器" Then
       ShellExecute Me.hWnd, "open", "CALC.EXE", "", 1, 5
  End If
  If ListView1.SelectedItem.Text = "登录Internet" Then
       ShellExecute Me.hWnd, "open", "http://www.mingrisoft.com", 1, 1, 5
  End If
  If ListView1.SelectedItem.Text = "本单位信息" Then
       Load Frm_Bzxx_Bdwxx
       Frm_Bzxx_Bdwxx.Show
        Me.Enabled = False
  End If
   If ListView1.SelectedItem.Text = "关于" Then
       Load Frm_Bzxx_Gy
       Frm_Bzxx_Gy.Show
        Me.Enabled = False
  End If

End Sub

Private Sub Menu1_Click(Index As Integer)
'基础信息设置
Select Case Index
Case 0
   '区域信息设置
  Load Frm_Jcxxwh_Qysz
  Frm_Jcxxwh_Qysz.Show 1
Case 2
   '企业性质设置
   Load Frm_Jcxxwh_Qyxz
   Frm_Jcxxwh_Qyxz.Show 1
Case 3
   '企业类型设置
   Load Frm_Jcxxwh_Qylx
   Frm_Jcxxwh_Qylx.Show 1
Case 4
   '企业资信级别设置
   Load Frm_Jcxxwh_Qyzx
   Frm_Jcxxwh_Qyzx.Show 1
Case 6
   '设置客户级别
   Load Frm_Jcxxwh_Khjb
   Frm_Jcxxwh_Khjb.Show 1
Case 7
  '客户满意度设置
   Load Frm_Jcxxwh_Khmyd
   Frm_Jcxxwh_Khmyd.Show 1
End Select
End Sub

Private Sub Menu2_Click(Index As Integer)
'客户信息维护
Select Case Index
Case 0
  Load Frm_Khxxwh_kh     '调用客户信息窗体
  Frm_Khxxwh_kh.Show 1
Case 1
  '联系人信息
  Load Frm_Khxxwh_Lxr
  Frm_Khxxwh_Lxr.Show 1
Case 3
  '业务往来
  Load Frm_Khxxwh_Ywwl
  Frm_Khxxwh_Ywwl.Show 1
Case 5
   '呼叫中心
  Load Frm_Khxxwh_Hjzx
  Frm_Khxxwh_Hjzx.Show 1
Case 6
   '发送邮件
  Load Frm_Khxxwh_Yjfs
  Frm_Khxxwh_Yjfs.Show 1
End Select
End Sub

Private Sub Menu3_Click(Index As Integer)
'客户服务
Select Case Index
Case 0
'客户反馈
  Load Frm_Khfw_Khfk
  Frm_Khfw_Khfk.Show 1
Case 1
  '客户投诉
  Load Frm_Khfw_Khts
  Frm_Khfw_Khts.Show 1
Case 2
  '客户反馈满意程度分析
  Load Frm_Khfw_Fkmydfx
  Frm_Khfw_Fkmydfx.Show 1
Case 3
   '客户投诉满意度分析
   Load Frm_Khfw_Tsmydfx
   Frm_Khfw_Tsmydfx.Show 1
End Select
End Sub

Private Sub Menu4_Click(Index As Integer)
'客户信息查询
Select Case Index
Case 0
  '客户信息查询
  Load Frm_Xxcx_Khxxcx
  Frm_Xxcx_Khxxcx.Show 1
Case 1
  '联系人信息查询
  Load Frm_Xxcx_Lxrxxcx
  Frm_Xxcx_Lxrxxcx.Show 1
Case 3
  '客户反馈满意度查询
  Load Frm_Xxcx_Fkmydcx
  Frm_Xxcx_Fkmydcx.Show 1
Case 4
  '客户投诉满意度查询
  Load Frm_Xxcx_Tsmydcx
  Frm_Xxcx_Tsmydcx.Show 1
Case 6
  '客户反馈查询
  Load Frm_Xxcx_Khfkcx
  Frm_Xxcx_Khfkcx.Show 1
Case 7
  '客户投诉信息查询
  Load Frm_Xxcx_Khtscx
  Frm_Xxcx_Khtscx.Show 1
Case 9
  '国内城市邮编区号查询
  Load Frm_Xxcx_Yb
  Frm_Xxcx_Yb.Show 1
End Select
End Sub

Private Sub Menu5_Click(Index As Integer)
'数据管理
Select Case Index
Case 0
  '客户信封打印
  Load Frm_Sjgl_Khxfdy
  Frm_Sjgl_Khxfdy.Show 1
Case 1
  '客户信息列表
  Load Frm_Sjgl_Khxxdy
  Frm_Sjgl_Khxxdy.Show 1
Case 2
  '联系人信息列表
  Load Frm_Sjgl_Lxrxxdy
  Frm_Sjgl_Lxrxxdy.Show 1
Case 3
   '省份邮编信息打印
   Myflag = False
   Load Frm_Qgyb
   Frm_Qgyb.Show 1
End Select
End Sub

Private Sub Menu6_Click(Index As Integer)
'辅助功能工具
Select Case Index
Case 0
  '调用Word
   ShellExecute Me.hWnd, "open", "winword.exe", "", 1, 5
Case 1
  '调用Excel
    ShellExecute Me.hWnd, "open", "excel.exe", "", 1, 5
Case 2
  '调用计算器
    ShellExecute Me.hWnd, "open", "CALC.EXE", "", 1, 5
Case 3
  '登陆Internet
  ShellExecute Me.hWnd, "open", "http://www.mingrisoft.com", 1, 1, 5
Case 5
 '工作备忘
   Load Frm_Fzgj_Gzbw
   Frm_Fzgj_Gzbw.Show 1
  
End Select

End Sub

Private Sub Menu8_Click(Index As Integer)
'系统管理
Select Case Index
Case 0
'操作员设置
  Load Frm_Xtgl_Czy
  Frm_Xtgl_Czy.Show 1
Case 1
  '密码修改
  Load Frm_Xtgl_Mmxg
  Frm_Xtgl_Mmxg.Show 1
Case 2
  '权限设置
  Load Frm_Xtgl_Czqy
  Frm_Xtgl_Czqy.Show 1
Case 4
  '系统数据清理
  Sign = True
  Load Frm_Qr
  Frm_Qr.Show 1
Case 5
  '数据备份与恢复
  Sign = False
  Load Frm_Qr
  Frm_Qr.Show 1
End Select
End Sub

Private Sub Menu9_Click(Index As Integer)
'帮助
Select Case Index
Case 0
  '本单位信息
  Load Frm_Bzxx_Bdwxx
  Frm_Bzxx_Bdwxx.Show 1
Case 1
  '关于
  Load Frm_Bzxx_Gy
  Frm_Bzxx_Gy.Show 1
Case 2
 '帮助
  CommonDialog1.HelpFile = App.Path & "\Client_HELP.HLP"
  CommonDialog1.HelpCommand = cdlHelpContents
  CommonDialog1.ShowHelp
End Select
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture1.BackColor = &H800000    '设置Picture控件的背景色
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    On Error Resume Next
    If Button = 1 Then   '当按下右按钮时
       Picture1.Left = Picture1.Left + X     'Picture控件的Left属性为当前值加上横坐标的值
    End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim pl&    '定义变量
    On Error Resume Next
    pl = Picture1.Left   '将Pictuer控件的Left属性赋给pl变量
    If pl < 1000 Then   '如果pl小于1000
        pl = 1000    '将Pl设置为1000
        Picture1.Left = pl    '将Picture控件的Left属性设置为pl
    End If
    If pl > (Me.ScaleWidth - 1000) Then    '如果pl大于窗体的宽度-1000
        pl = Me.ScaleWidth - 1000     '将窗体的宽度-1000的值赋给pl变量
        Picture1.Left = pl   '将Picture控件的Left属性设置为pl
    End If
    TreeView1.Width = pl - TreeView1.Left - 20    '设置TreeView控件的Width属性
    ListView1.Width = pl - ListView1.Left - 80    '设置ListView控件的Width属性
    Picture1.Width = 30      '设置Picture控件的Width属性
    ListView1.Left = TreeView1.Width + 50     '设置ListView控件的Width属性
    ListView1.Width = Me.ScaleWidth - ListView1.Left - 50   '设置ListView控件的Width属性
    Picture1.BackColor = &H40&    '设置Picture控件的背景色
End Sub


Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
  Load Frm_Khxxwh_kh     '调用客户信息窗体
  Frm_Khxxwh_kh.Show 1
Case 2
   '联系人信息
  Load Frm_Khxxwh_Lxr
  Frm_Khxxwh_Lxr.Show 1
Case 3
   '发送邮件
  Load Frm_Khxxwh_Yjfs
  Frm_Khxxwh_Yjfs.Show 1
Case 4
   '客户信息查询
  Load Frm_Xxcx_Khxxcx
  Frm_Xxcx_Khxxcx.Show 1
Case 5
   '联系人信息查询
  Load Frm_Xxcx_Lxrxxcx