VERSION 5.00
Begin VB.Form frmKennwortAendern 
   Caption         =   "Preuf2000: Passwort ändern"
   ClientHeight    =   3015
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4980
   LinkTopic       =   "Form2"
   ScaleHeight     =   3015
   ScaleWidth      =   4980
   StartUpPosition =   3  'Windows-Standard
   Begin VB.CommandButton cmdCancel 
      Caption         =   "Abbruch"
      Height          =   375
      Left            =   3480
      TabIndex        =   7
      Top             =   2460
      Width           =   1035
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "OK"
      Height          =   375
      Left            =   2160
      TabIndex        =   6
      Top             =   2460
      Width           =   1035
   End
   Begin VB.TextBox txtNeuesPWConfirm 
      Height          =   315
      IMEMode         =   3  'DISABLE
      Left            =   2040
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   1800
      Width           =   2535
   End
   Begin VB.TextBox txtNeuesPW 
      Height          =   315
      IMEMode         =   3  'DISABLE
      Left            =   2040
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   1260
      Width           =   2535
   End
   Begin VB.TextBox txtAltesPW 
      Height          =   315
      IMEMode         =   3  'DISABLE
      Left            =   2040
      PasswordChar    =   "*"
      TabIndex        =   0
      Top             =   180
      Width           =   2535
   End
   Begin VB.Label Label4 
      Caption         =   "Bitte wählen Sie ein neues Kennwort mit mindestens 5 Zeichen."
      Height          =   375
      Left            =   120
      TabIndex        =   8
      Top             =   660
      Width           =   4815
   End
   Begin VB.Label Label3 
      Alignment       =   1  'Rechts
      Caption         =   "neues Kennwort wiederholen:"
      Height          =   435
      Left            =   120
      TabIndex        =   5
      Top             =   1800
      Width           =   1815
   End
   Begin VB.Label Label2 
      Alignment       =   1  'Rechts
      Caption         =   "neues Kennwort"
      Height          =   255
      Left            =   120
      TabIndex        =   4
      Top             =   1320
      Width           =   1695
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Rechts
      Caption         =   "bisheriges Kennwort"
      Height          =   255
      Left            =   90
      TabIndex        =   3
      Top             =   240
      Width           =   1815
   End
End
Attribute VB_Name = "frmKennwortAendern"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
    cmdOK.Enabled = False
    
    If UCase(txtAltesPW.Text) <> UCase(g_App.Mitarbeiter.getKennwort) Then
        MsgBox "Die Eingabe des bisherigen Kennworts ist nicht korrekt!"
        Exit Sub
    End If

    If Len(txtNeuesPW) < 5 Then
        If MsgBox("Das neue Kennwort sollte mind. 5 Zeichen lang sein! Möchten Sie es trotzdem verwenden ?", vbYesNo Or vbDefaultButton2) = vbNo Then
            Exit Sub
        End If
    End If
    
    If txtNeuesPW.Text = txtNeuesPWConfirm.Text Then
        
        If g_App.Mitarbeiter.setzeNeuesKennwort(txtNeuesPW.Text, txtAltesPW.Text) Then
            LogIntoDB "Prüfer '" & g_App.Mitarbeiter.getName & "' (" & g_App.Mitarbeiter.getNr & ") änderte sein Kennwort an der Prüfstation " & g_App.PruefstationNr, "Kennwort"
        
            MsgBox "Das Kennwort wurde geändert"
            
            ' Mitarbeiter mit neuem Passwort neu laden
            g_App.Mitarbeiter.loadForNr g_App.Mitarbeiter.getNr
            
            Unload Me
        Else
            LogIntoDB "Prüfer " & g_App.Mitarbeiter.getName & " änderte sein Kennwort an der Prüfstation " & g_App.PruefstationNr & ". Das Kennwort wurde nicht geändert", "Kennwort"
            MsgBox "Das Kennwort wurde nicht geändert."
        End If
    Else
        MsgBox "Die Eingaben der neuen Kennwörter stimmen nicht überein."
    End If
    
    
End Sub

Private Sub txtAltesPW_Change()
    cmdOK.Enabled = True
End Sub

Private Sub txtNeuesPW_Change()
    cmdOK.Enabled = True
End Sub

Private Sub txtNeuesPWConfirm_Change()
    cmdOK.Enabled = True
End Sub