* Следующий пример демонстрирует, как использовать TABLEUPDATE( )
* для фиксации записей в буфферизованной таблице. Создается таблица
* employees и при помощи конструкции INSERT - SQL в поле cLastName
* добавляется значение "Smith".

* MULTILOCKS устанавливается в ON, что необходимо для табличной
* буфферизации. CURSORSETPROP( ) используется для того, чтобы
* установить мягкую буфферизацию таблицы (5).

* Отображается начальное значение поля cLastName (Smith), после чего
* поле cLastName обновляется коммандой REPLACE. Отображается новое
* значение поля cLastName field (Jones). TABLEUPDATE( ) используется для
* фиксации изменений в таблице ( для отмены изменений необходимо
* вызвать TABLEREVERT( )). Отображается новое значение поля cLastName
* (Jones).

CLOSE DATABASES

CREATE TABLE employee (cLastName C(10))

SET MULTILOCKS ON && Must be on for table buffering

= CURSORSETPROP('Buffering', 5, 'employee' ) && Enable table buffering

INSERT INTO employee (cLastName) VALUES ('Smith')

CLEAR

? 'Original cLastName value: '

?? cLastName && Displays current cLastName value (Smith)

REPLACE cLastName WITH 'Jones'

? 'New cLastName value: '

?? cLastName && Displays new cLastName value (Jones)

= TABLEUPDATE(.T.) && Commits changes

? 'Updated cLastName value: '

?? cLastName && Displays current cLastName value (Jones)