帮帮忙！谢谢

Question

vb+sql系统，做一登录界面，如何判断登录的用户是管理员，还是普通用户，用语句实现。用户表为ddy，其中相应的用户类型设置为了ddyjb。谢谢！

Answer 1

你說的管理員與普通用戶是針對SQL Server來說還是你自己定義的管理員與普通用戶?

Answer 2

Private Function Check_Psd(ByVal UserName As String, ByVal Password As String) As Byte
    On Error GoTo gpError
        
    Call Connect
    strSQL = "SELECT Psd,QX From WORK Where UserName='" & UserName & "'"
    Set objRs.ActiveConnection = objCn
    objRs.Open (strSQL)
    
    If objRs.EOF Then
        Check_Psd = 0
    Else
        If Password <> Trim(objRs.Fields("psd").Value) Then
            Check_Psd = 1
        Else
            Check_Psd = 2
            strStatus = objRs.Fields("QX").Value
        End If
    End If
    
    objCn.Close
    Set objRs = Nothing
    Set objCn = Nothing
    Exit Function
gpError:
    Check_Psd = 255
End Function
    Dim intChecked As Integer
    Dim strPassword As String
    Static intLogTimes As Integer
    intLogTimes = intLogTimes + 1
    If intLogTimes > MaxLogTimes Then
        MsgBox "你已经超过允许的登录验证次数！" & vbCr & "应用程序将结束！", vbCritical, "登录验证"
        End
    Else
        strName = Trim(Txt_UName.Text)
        strPassword = Trim(Txt_Psd.Text)
        
        Select Case Check_Psd(strName, strPassword)
            Case 0
                MsgBox "用户不是系统用户，请检查用户名输入是否正确！", vbCritical, "登录验证"
                Txt_UName.SetFocus
                Txt_UName.SelStart = 0
                Txt_UName.SelLength = Len(Txt_UName)
            Case 1
                MsgBox "口令错误，请重新输入！", vbCritical, "登录验证"
                Txt_Psd = ""
                Txt_Psd.SetFocus
            Case 2
                Unload Me
                frmMain.Show
            Case Else
                MsgBox "登录未正常完成！请重新运行登录程序，" & vbCrLf & "如果仍不能登录，请报告系统管理员！", vbCritical, "登录验证"
        End Select
    End If

Answer 3

呵呵,我说的是在一个窗体中设计一登录界面,通过combo控件选择用户,text中输入密码后登录,此时程序判断登录用户的权限从而相应的把此窗体中的隐藏的一些控件显示出来,不同的登录用户登录后窗体显示出来的一些功能是不同的.