neu

Aviso/frmChangePWD.vb

@@ -17,7 +17,7 @@
             Me.Close()
         End If
 
-        Me.DialogResult = Windows.Forms.DialogResult.None
+        Me.DialogResult = DialogResult.None
         If PERSONAL.mit_pwd <> txtPwdOld.Text Then
             MsgBox("Altes Passwort falsch!")
             Exit Sub
@@ -53,7 +53,7 @@
                 Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
                 If sql.doSQL("UPDATE tblMitarbeiter SET mit_pwd='" & txtPwdNew1.Text & "', mit_PasswortChanged=GETDATE() WHERE mit_id = '" & PERSONAL.mit_id & "'", "ADMIN") Then
                     VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_DATA() 'Neu laden
-                    Me.DialogResult = Windows.Forms.DialogResult.OK
+                    Me.DialogResult = DialogResult.OK
                 End If
             Else
                 MsgBox("Neue Passwörter stimmen nicht überein!")