Click Method
Object:login.cmdOk
Expand/Collapse source code of procedure cmdOk.Click Source Code
*-- Now check the password
IF ALLTRIM(EVAL(this.parent.cPassword)) == ALLTRIM(this.parent.txtPassword.Value)
  thisform.Hide()
ELSE
  =MESSAGEBOX(BADPASSWORD_LOC, MB_ICONEXCLAMATION)
  this.parent.txtPassword.Value = ""
  this.parent.txtPassword.SetFocus()
ENDIF