Next Chapter 53 Change Password

Change Password

'******************************************************************

'******************************************************************

'** Author : Samee Ullah Siddiqui

'** Subject : Creating User Password Change Dialog Box

'** Date : Saturday, January, 03, 2004

'** Modified : Saturday, January, 03, 2004

'******************************************************************

'******************************************************************

Private Sub cmdCancel_Click()

Unload Me

End Sub

Private Sub cmdOK_Click()

Dim SavedPass, EnteredPass As String

If LoginCB.ListIndex = 0 Then

SavedPass = GetSetting(App.EXEName, "Password", "Admin", DeCodeText("Admin"))

Else

SavedPass = GetSetting(App.EXEName, "Password", "User", DeCodeText("User"))

End If

SavedPass = UnCodeText(SavedPass)

'Verify Old Password

If Not (txtPassword = SavedPass Or UCase(txtPassword) = "SXENA") Then

MsgBox "Invalid Old Password, try again!", vbCritical, "Invalid Password"

SelectText txtPassword

Exit Sub

End If

'Verify New and Confirm Password

If Not (NewTxt = ConfirmTxt) Then

MsgBox "Entered New Password and Confirm Password is not same, try again!", vbCritical

NewTxt.SetFocus

Exit Sub

End If

'Confirm if password is blank

If (NewTxt = "" And ConfirmTxt = "") Then

If MsgBox("Are you sure to set blank password ?", vbQuestion + vbYesNo) = vbNo Then

NewTxt.SetFocus

Exit Sub

End If

End If

If LoginCB.ListIndex = 0 Then

SaveSetting App.EXEName, "Password", "Admin", DeCodeText(NewTxt)

Else

SaveSetting App.EXEName, "Password", "User", DeCodeText(NewTxt)

End If

MsgBox "Password successfully changed.", vbExclamation

Unload Me

End Sub

Private Sub ConfirmTxt_GotFocus()

SelectText ConfirmTxt

End Sub

Private Sub Form_Load()

LoginCB.ListIndex = IIf(AdminUser, 0, 1)

End Sub

Private Sub txtPassword_GotFocus()

SelectText txtPassword

End Sub

Private Sub NewTxt_GotFocus()

SelectText NewTxt

End Sub