validate Method
Object: frmChangePassword
Expand/Collapse source code of procedure validate Source Code
IF !thisform.txtNewPassword.Enabled
  IF MESSAGEBOX(NOPSWDENTERED_LOC, ;
              MB_ICONQUESTION + MB_YESNO, ;
              TASTRADE_LOC) = IDNO
    =TABLEREVERT()
    RELEASE thisform
  ELSE
    thisform.txtOldPassword.Value = ""
    thisform.txtOldPassword.SetFocus()
  ENDIF
  RETURN .F.
ENDIF

IF EMPTY(thisform.txtNewPassword.Value)
  =MESSAGEBOX(PASSWORDEMPTY_LOC, ;
              MB_ICONEXCLAMATION, ;
              TASTRADE_LOC)
  thisform.txtNewPassword.SetFocus()
  RETURN .F.
ENDIF

IF thisform.txtConfirm.Value <> ;
    thisform.txtNewPassword.Value
  =MESSAGEBOX(PSWDNOTCNFRM_LOC, ;
              MB_ICONEXCLAMATION ,;
              TASTRADE_LOC)
  thisform.txtConfirm.Value = ""
  thisform.txtConfirm.SetFocus()
  RETURN .F.
ENDIF