* В следующем примере открывается таблица customer в базе данных
* testdata. Для начала транзакции используется команда BEGIN
* TRANSACTION. На экран выводится содержимое полей cust_id и company;
* содержимое поля company заменяется. Показывается новое содержимое
* поля, затем используется команда ROLLBACK, чтобы восстановить
* первоначальное состояние поля company. В заключение, содержимое
* полей cust_id и company выводится на экран, причем поле company
* содержит первоначальные значения.

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

BEGIN TRANSACTION

USE customer && Transactions only supported within a DBC

CLEAR

LIST FIELDS cust_id, company NEXT 20

WAIT WINDOW 'Press a key to change the company field'

REPLACE ALL company WITH '***' && Change field contents

CLEAR

GO TOP

LIST FIELDS cust_id, company NEXT 20

WAIT WINDOW 'Press a key to restore the company field'

ROLLBACK && Restores original field contents

CLEAR

GO TOP

LIST FIELDS cust_id, company NEXT 20

WAIT WINDOW 'Press a key to exit'

CLEAR

CLOSE ALL