147 lines
4.4 KiB
Plaintext
147 lines
4.4 KiB
Plaintext
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
|