* В следующем примере открывается таблица 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