Реферат: Перенос приложений MIDAS с одной СУБД на другую

end;

if FState = osUpdate then

begin

if cdsBody.ChangeCount > 0 then

cdsBody.ApplyUpdates(-1);

if cdsTitle.ChangeCount > 0 then

cdsTitle.ApplyUpdates(-1);

end;

Result := FLastUpdateErrors;

if Result = '' then

ibtDoc.Commit

else

begin

ibtDoc.Rollback;

end;

finally

ibtDoc.Active := False; //DefaultAction = Rollback

unlock;

end;

end;

//Код, работающийс ADO

function TrdmDoc.ApplyChanges: WideString;

begin

lock;

try

FLastUpdateErrors := '';

if FState = osInactive then

raise Exception.Create('Документнебылсозданлибооткрыт');

with cdsTitle do