'***************************************************************************************
'  过程：Cmd确认_Click
'  功能：实现数据库连接和用户登录功能
'***************************************************************************************
Private Sub Cmd确认_Click()
  
    If (Txt用户名称.Text = "") Or Cmb用户类型.Text = "" Or Txt密码.Text = "" Then
        MsgBox "输入信息不全！", vbCritical, "错误信息"
        Txt用户名称.SetFocus
        Exit Sub
    End If
    
    '查找对应的登录用户，并判断密码是否正确
    ConnectUserName = "SQL_客户"
    ConnectPassWord = "000"
    Select Case Cmb用户类型.Text
        Case "学生"
            txtSQL = "Select * From 学生登录信息表  Where 学号= '" & Trim(Txt用户名称.Text) & "'"
        Case "教师"
            txtSQL = "Select * From 教师登录信息表  Where 登录名= '" & Trim(Txt用户名称.Text) & "'"
        Case "学校领导"
            txtSQL = "Select * From 管理员信息表  Where 用户身份='领导' and 登录名= '" & Trim(Txt用户名称.Text) & "'"
        Case "班主任"
            txtSQL = "Select * From 管理员信息表  Where 用户身份='班主任' and 登录名= '" & Trim(Txt用户名称.Text) & "'"
        Case "教务管理员"
            txtSQL = "Select * From 管理员信息表  Where 用户身份='管理员' and 登录名= '" & Trim(Txt用户名称.Text) & "'"
    End Select
    
    Set objRs = ExecuteSQL(txtSQL, msg_Sql)
    
    If Left(msg_Sql, 4) = "查询错误" Then
        MsgBox msg_Sql, vbCritical, "错误信息"
        End
    End If
    
    If objRs.EOF Then
        MsgBox "没有找到密码信息！", vbCritical, "错误信息"
        Txt密码.SetFocus
        Exit Sub
    End If
   
    If Trim(objRs("密码")) <> Trim(Txt密码.Text) Then
        MsgBox "密码错误，请重新登录！", vbCritical, "错误信息"
        Txt密码.SetFocus    '选中输入内容
        SendKeys "{Home}+{End}"
        Exit Sub
    End If
    
    Select Case Cmb用户类型.Text
        Case "学生"
           UserId = objRs("学号")
           frmMain.StatusBar1.Panels(1).Text = "用户: " + Trim(objRs("姓名")) + " 同学"
        Case "教师"
           UserId = objRs("编号")
           frmMain.StatusBar1.Panels(1).Text = "用户: " + Trim(objRs("姓名")) + " 老师"
        Case "学校领导"
           frmMain.StatusBar1.Panels(1).Text = "用户: " + Trim(objRs("姓名")) + " 领导"
        Case "班主任"
           frmMain.StatusBar1.Panels(1).Text = "用户: " + Trim(objRs("姓名")) + " 班主任"
        Case "教务管理员"
           frmMain.StatusBar1.Panels(1).Text = "用户: " + Trim(objRs("姓名")) + " 管理员"
    End Select
    objRs.Close
    
    '根据用户类型设置菜单和工具按钮的可用性
    Call menu_setup
    
    '合法用户
    UserType = Cmb用户类型.Text
    LoginUserName = Trim(Txt用户名称.Text)
    Unload frmLogin              '关闭登录窗口
    frmMain.Enabled = True       '使主窗口可用
    frmMain.Visible = True
    
End Sub
