Devart Forum

Код: Выделить всё

UniConnection.StartTransaction;
try
  //Изменяем мастер таблицу
 UniConnection.StartTransaction;
 try
  // Изменяем подчиненную таблицу
  UniConnection.Commit; // принять все изменения в подчиненной
 except
  UniConnection.Rollback; // откат изменений в подчиненной в случае любой ошибки
 end;
 UniConnection.Commit; // принять все изменения в мастер
except
 UniConnection.Rollback; // откат изменений в мастер в случае любой ошибки
end;