Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Работа с транзакциями

01.01.2007
dbMain.StartTransaction;
try
  spAddOrder
.ParamByName('ORDER_NO').AsInteger := OrderNo;
  spAddOrder
.ExecProc;
 
for i := 0 to PartList.Count - 1 do
 
begin
     spReduceParts
.ParamByName('PART_NO').AsInteger := PartRec(PartList.Objects[i]).PartNo;
     spReduceParts
.ParamByName('NUM_SOLD').AsInteger := PartRec(PartList.Objects[i]).NumSold;
 
end;
  dbMain
.Commit;
except
  dbMain
.RollBack;
 
raise;
end;

https://delphiworld.narod.ru/

DelphiWorld 6.0