Refresh Method
Class: loginpicture
Expand/Collapse source code of procedure Refresh Source Code
IF login::Refresh()
  thisform.txtTitle.Value = title
  thisform.edtDescription.Value = Notes
  IF FILE(photo_file)
	  thisform.imgPhoto.Picture = photo_file
	ELSE
	  thisform.imgPhoto.Picture = ''
	ENDIF
  thisform.txtDispPswd.Value = password
  thisform.txtUserLevel.Value = thisform.GetUserLevel()
ELSE
  STORE "" TO ;
    thisform.txtTitle.Value, ;
    thisform.edtDescription.Value, ;
    thisform.imgPhoto.Picture, ;
    thisform.txtDispPswd.Value
    thisform.txtUserLevel.Value
ENDIF