frmmain.frm

售后服务系统 优质的售后服务是企业生存和市场竞争的保障

VERSION 5.00
Begin VB.Form FrmMain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "售后服务管理系统"
   ClientHeight    =   8535
   ClientLeft      =   45
   ClientTop       =   615
   ClientWidth     =   12000
   Icon            =   "FrmMain.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   Picture         =   "FrmMain.frx":0CCA
   ScaleHeight     =   8535
   ScaleWidth      =   12000
   StartUpPosition =   2  '屏幕中心
   Begin VB.Menu mn1 
      Caption         =   "基本信息设置"
      Begin VB.Menu mn_Type 
         Caption         =   "问题类别"
      End
      Begin VB.Menu mn_Level 
         Caption         =   "级别设置"
      End
      Begin VB.Menu mn_Customer 
         Caption         =   "客户管理"
      End
      Begin VB.Menu mn_Exit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu mn2 
      Caption         =   "售后服务管理"
      Begin VB.Menu mn_Problem 
         Caption         =   "问题管理"
      End
      Begin VB.Menu mn_Inv 
         Caption         =   "服务调查"
      End
   End
   Begin VB.Menu mn3 
      Caption         =   "工作任务管理"
      Begin VB.Menu mn_Desp 
         Caption         =   "问题分配"
      End
      Begin VB.Menu mn_Task 
         Caption         =   "工作记录"
      End
      Begin VB.Menu mn_Faq 
         Caption         =   "常见问题"
      End
   End
   Begin VB.Menu mn4 
      Caption         =   "系统用户管理"
      Begin VB.Menu mn_Users 
         Caption         =   "用户管理"
      End
      Begin VB.Menu mn_PwdEdit 
         Caption         =   "修改密码"
      End
      Begin VB.Menu mn_ChangeUser 
         Caption         =   "切换用户"
      End
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
  FrmLogin.Show 1
End Sub

Private Sub mn_ChangeUser_Click()
  FrmLogin.Try_times = 0
  FrmLogin.Show 1
End Sub

Private Sub mn_Customer_Click()
  If CurUser.UserType = 0 Then
    FrmTypes.nFlag = 3
    FrmTypes.Caption = "客户信息设置"
    FrmTypes.Show 1  '客户信息管理
  Else
    MsgBox "没有权限"
    Exit Sub
  End If
End Sub

Private Sub mn_Desp_Click()
  If CurUser.UserType = 1 Then
    FrmDesMan.Show 1
  Else
    MsgBox "没有权限"
    Exit Sub
  End If
End Sub

Private Sub mn_Exit_Click()
  DBapi_Disconnect
  End
End Sub

Private Sub mn_Faq_Click()
  If CurUser.UserType = 0 Then
    FrmFaqMan.Show 1
  Else
    FrmFaqMan.Cmd_Add.Enabled = False
    FrmFaqMan.Cmd_Modi.Enabled = False
    FrmFaqMan.Cmd_Del.Enabled = False
    FrmFaqMan.Show 1
  End If
End Sub

Private Sub mn_Inv_Click()
  If CurUser.UserType = 0 Then
    FrmInvMan.Show 1
  Else
    MsgBox "没有权限"
    Exit Sub
  End If
End Sub

'问题严重级别设置
Private Sub mn_Level_Click()
  If CurUser.UserType = 0 Then
    FrmTypes.nFlag = 2
    FrmTypes.Caption = "问题严重级别设置"
    FrmTypes.Show 1  '问题严重级别管理
  Else
    MsgBox "没有权限"
    Exit Sub
  End If
End Sub

Private Sub mn_Problem_Click()
  If CurUser.UserType = 0 Then
    FrmProblemMan.Show 1
  Else
    MsgBox "没有权限"
    Exit Sub
  End If
End Sub

Private Sub mn_PwdEdit_Click()
  FrmUserPwdEdit.txtUserName = CurUser.UserName
  FrmUserPwdEdit.Show 1
End Sub

Private Sub mn_Task_Click()
  If CurUser.UserType <> 0 Then
    FrmTaskMan.Show 1
  Else
    MsgBox "没有权限"
    Exit Sub
  End If
End Sub

'问题类别设置
Private Sub mn_Type_Click()
  If CurUser.UserType = 0 Then
    FrmTypes.nFlag = 1
    FrmTypes.Caption = "问题类别设置"
    FrmTypes.Show 1  '问题类别管理
  Else
    MsgBox "没有权限"
    Exit Sub
  End If
End Sub

Private Sub mn_Users_Click()
  If CurUser.UserType = 0 Then
    FrmUserMan.Show 1  '用户管理
  Else
    MsgBox "没有权限"
    Exit Sub
  End If
End Sub