Due to some technical error All Project source code & Project report are now available on www.ignousupport.blogspot.com Download all project for free
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