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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Если пpогpаммист в 09.00 утpа уже на pаботе, значит он ещё на pаботе…

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;

{/codecitation}

Добавить комментарий