1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

...
if not m_update.Transaction.InTransaction then
  m_update.Transaction.StartTransaction;

  if not m_update.ExecuteSQL('alter table abnehmer add mitglied char(1)') then goto L_ERROR;
  if not m_update.ExecuteSQL('update abnehmer set mitglied = ''N''') then goto L_ERROR;
  ...
  m_update.Transaction.Commit;

L_ERROR:
  m_Update.Transaction.Rollback;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

if not m_update.Transaction.InTransaction then
  m_update.Transaction.StartTransaction;

try
  m_update.ExecuteSQL('alter table abnehmer add mitglied char(1)');
  m_update.ExecuteSQL('update abnehmer set mitglied = '#39'N'#39);
  ...
  m_update.Transaction.Commit;
except
  m_Update.Transaction.Rollback;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

function TUpdate.ExecuteSQL(sql:string): boolean;
  begin
    m_IBQuery.Close;
    m_IBQuery.SQL.Clear;
    m_IBQuery.SQL.Text := sql;
    try
      m_IBQuery.ExecSQL;
      ExecuteSQL:=True
    except
      on E:Exception do
      begin
       MessageDlg(E.Message,mtError,[mbOK],E.HelpContext);
       ExecuteSQL:=False
      end
    end
  end;                    

1:
2:
3:

if Transaction.InTransaction then
  Transaction.Commit;
Transaction.StartTransaction;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

    try
      DBQuery.database.close;
      DBQuery.database.open;

      if not DBQuery.database.Connected then begin
        DBQuery.database.open;
        if not DBQuery.database.Connected then begin
          DBQuery.database.open;
          if not DBQuery.database.Connected then begin
            result:=false;
            exit;
          end;
        end;
      end;

      if assigned(dbtransaction) then
        DBQuery.Transaction:=DBTransaction;
    except
      result:=false;
      exit;
    end;

    if assigned(dbtransaction) then
      DBTransaction.StartTransaction;
    try
      with DBQuery do begin
        close;
        if trim(DBQuery.SQL.text)<>trim(SQLStr) then begin
          sql.clear;
          sql.add(SQLStr);
        end;
        if pos('INSERT',ansiuppercase(SQLStr))>0 then begin
        [..]
        end;
        execsql;
      end;
      if assigned(dbtransaction) then
        DBTransaction.Commit;                    

1:
2:
3:
4:
5:

  if not DM.Transaction.Active then // FormShow
    DM.Transaction.StartTransaction;
...
  if DM.Transaction.Active then // FormClose
    DM.Transaction.Commit;                    

1:
2:
3:
4:

...
  if DM.Transaction.Active then begin // überflüsssig, sofern FormShow wie oben !
    DM.Transaction.Commit;            // speichern  
    DM.Transaction.StartTransaction;  // für nächste Eingaben Transaktion wieder starten                    

1:
2:
3:
4:
5:
6:
7:

Ini := TIniFile.Create (ExtractFilePath (ParamStr (0)) + 'DB.INI');
    DatenBankName := Ini.ReadString('Datenbank','Name',ExtractFilePath (ParamStr (0))+'db\XXX.fdb')
  DM.DataBase.Close;
  DM.DataBase.DatabaseName := DatenBankName;
  DM.DataBase.Open;
  DM.Transaction.Active := true;
  Ini.free;