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

* Значение MULTILOCKS устанавливается равным ON; это необходимо в
* случае буферизации таблицы. Функция CURSORSETPROP( )
* устанавливает в качестве режима буферизации мягкую буферизацию
* таблицы (5).

* На экран выводится первоначальное значение поля cLastName (Smith), а
* затем поле cLastName модифицируется по команде REPLACE. На экране
* отображается новое значение этого поля (Jones). Первоначальное
* значение поля cLastName (Smith) отображается с помощью функции
* OLDVAL( ). Затем функция TABLEUPDATE( ) фиксирует изменения,
* внесенные в таблицу. После этого на экран выдается обновленное
* значение поля cLastName (Jones).

CLOSE DATABASES

CREATE TABLE employee (cLastName C(10))

APPEND BLANK

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

SET MULTILOCKS ON && Must be on for table buffering

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

CLEAR

? 'Original cLastName value: '

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

REPLACE cLastName WITH 'Jones'

? 'New cLastName value: '

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

? 'cLastName value returned by OLDVAL( ): '

?? OLDVAL('cLastName', 'employee') && Original cLastName value (Smith)

= TABLEUPDATE(.T.)

? 'Updated cLastName value: '

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