' ===========================================
' Benutzernamen prüfen
' ===========================================
 
Private Sub sevBenutzername_LostFocus()
    FileClose
    ' Benutzer lesen
    sSQL = "SELECT * FROM tblUser WHERE UserName = '" & sevBenutzername & "'"
    oRs.CursorLocation = adUseClient
    oRs.Open sSQL, oConn, adOpenForwardOnly, adLockOptimistic
    oRsOpen = True
    ' Abbruch, wenn falscher Name eingegeben wurde
    If oRs.RecordCount = 0 Then
       MsgBox "Der Benutzer ist unbekannt"
       FileClose
       PgmAktion = "Exit"
       Unload Me
       Exit Sub
    End If
End Sub
 
' ============================================
' Eingegebenes Kennwort prüfen
' ============================================
 
Private Sub sevKennwort_LostFocus()
    If sevKennwort = "" Then
       PgmAktion = "Exit"
       Unload Me
       Exit Sub
    End If
 
    CryptUser = sevBenutzername & sevBenutzername
    ' Eingegebenes Passwort verschlüsseln
    CryptPassword = VernamCode(sevKennwort, CryptUser)
    ' Abbruch, wenn Kennwort nicht mit Tabelle übereinstimmt
    If CryptPassword = oRs!UserPW Then
       btnOK.Enabled = True
    Else
       MsgBox "Das Kennwort ist ungültig"
       FileClose
       PgmAktion = "Exit"
       Unload Me
       Exit Sub
    End If
End Sub