Click Method
Object:frmemployee.pageframe1.Page3.cmdPicture
Expand/Collapse source code of procedure pageframe1.Page3.cmdPicture.Click Source Code
LOCAL lcFileName

lcFileName = GETFILE("BMP", ;
                    this.Caption, ;
                    SELECTBUTTON_LOC)

IF !EMPTY(lcFileName)
  thisform.pageframe1.page3.imgPhoto.Picture = lcFileName
  REPLACE employee.photo_file WITH lcFileName
  thisform.Refresh()
ENDIF