* В следующем примере команда SCATTER копирует содержимое текущей
* записи в набор переменных памяти. Эти данные отображаются в окне,
* где они редактируются, а затем копируются обратно в текущую запись по
* команде GATHER (если не была нажата клавиша Esc).

SET TALK OFF

CLOSE DATABASES

OPEN DATABASE (HOME( ) + 'samples\data\testdata')

USE employee && Opens Employee table

COPY TO temp

USE temp

SCATTER MEMVAR MEMO && save old values

DEFINE WINDOW wEnter FROM 5,10 to 20,70 PANEL

ACTIVATE WINDOW wEnter

@ 1,3 SAY 'First Name: ' GET m.first_name

@ 3,3 SAY 'Last Name: ' GET m.last_name

@ 13,13 SAY 'Press Esc to discard changes'

READ

IF LASTKEY( ) != 27

GATHER MEMVAR && save changes

WAIT WINDOW 'Changes saved' NOWAIT

ELSE && no GATHER

WAIT WINDOW 'Changes not saved' NOWAIT

ENDIF

DEACTIVATE WINDOW wEnter

BROWSE FIELDS first_name, last_name

USE