自己做的登錄界面代碼

GEEEK

ption Compare Database

Dim i As Integer


'方法一=============================================================================
'Private Sub DL_Click()
'If YHM <> "" And mm <> "" Then
'    If Me.mm = DLookup("password", "User_information", "user='" & Me.YHM & "'") Then
'        MsgBox "登錄成功"
'        DoCmd.Close acForm, Me.Name
'        DoCmd.OpenForm "home", acNormal
'    Else
'        MsgBox "賬號或密碼錯誤,請重新輸入"
'    End If
'Else
'MsgBox "請輸入賬號和密碼"
'End If
'End Sub
'方法二==============================================================================
Private Sub DL_Click()
    Dim db1 As DAO.Database
    Dim rs1 As DAO.Recordset
    Set db1 = CurrentDb()
    Dim SQL_str1 As String
    SQL_str1 = "select user,password,mmsd,mmcz from User_information where user='" & YHM & "'"
    Set rs1 = db1.OpenRecordset(SQL_str1, dbOpenDynaset)

If Me!YHM = Null Then
    MsgBox "用戶名不能為空"
    YHM.SetFocus
    Exit Sub
ElseIf Me!MM = Null Then
    MsgBox "請用戶密碼不能為空"
    MM.SetFocus
    Exit Sub
ElseIf rs1.EOF = True Then
    MsgBox "賬戶不存在！"
    Exit Sub
Else
    rs1.MoveFirst
    If rs1.Fields(1) = MM Then
    userid = Me!YHM
        If 1 = rs1!mmsd Then
            MsgBox "此賬戶已被鎖定！請聯(lián)系管理員解鎖"
            Exit Sub
        ElseIf 1 = rs1!mmcz Then
            DoCmd.Close acForm, Me.Name
            DoCmd.OpenForm "Password_reset", acNormal
            Exit Sub
        Else
            MsgBox "登錄成功"
            DoCmd.Close acForm, Me.Name
            DoCmd.OpenForm "Home", acNormal
        End If
        
    Else
        If i < 2 Then
            i = i + 1
            MsgBox "密碼不正確！你還有" & 3 - i & "次機會"
        Else
            MsgBox "密碼輸入錯誤3次，已鎖定！請聯(lián)系管理員解鎖"
            rs1.Edit
            rs1!mmsd = 1
            rs1.Update
            Exit Sub
        End If
    End If
End If

rs1.Close
Set rs1 = Nothing
db1.Close
Set sb1 = Nothing
Exit Sub
End Sub
Private Sub Form_Load()
Me!YHM.SetFocus
'Me!YHM.Value = userhc
End Sub



Private Sub TC_Click()
    DoCmd.Close
End Sub

roych

1、出于節(jié)省代碼的考慮，判斷用戶名、密碼是否為空，一般可以合起來提示“用戶名或密碼為空”。
2、此外，是否需要關(guān)閉登陸窗體，值得商榷。畢竟后面很多操作可能需要讀取用戶名（比如，有些操作是基于用戶所在的分組而授權(quán)的）。我一般是隱藏登錄窗體，后面的權(quán)限分配或者數(shù)據(jù)源處理則基于該用戶而定。當(dāng)然，也可以用公共變量來存放這些數(shù)據(jù)。但代碼量會增加不少，此外，是否會因網(wǎng)絡(luò)問題而導(dǎo)致一些意外也不好說。

q290014374

學(xué)習(xí)學(xué)習(xí)

wuwu200222

學(xué)習(xí)

GOODWIN

學(xué)習(xí)