[pascal]
begin
ADOConnection1.BeginTrans;
try
// 資料庫相關操作
ADOConnection1.CommitTrans;
except
on E:Exception do Begin
ADOConnection1.RollbackTrans;
End;
end;
end;
[/pascal]
行動開發.APP開發教學.Swift開發教學.IOS開發教學.Andriod開發教學.Delphi開發.資料庫程式.進銷存.餐飲POS系統
[pascal]
begin
ADOConnection1.BeginTrans;
try
// 資料庫相關操作
ADOConnection1.CommitTrans;
except
on E:Exception do Begin
ADOConnection1.RollbackTrans;
End;
end;
end;
[/pascal]