Действительно ли транзакция выполнена правильно в этом запросе?

Question

Я не уверен, написал ли я это правильно.

procedure TMainForm.AdvGlowButton1Click(Sender: TObject); 
begin 
DataModule2.INS_Query.Close; 
DataModule2.INS_Query.SQL.Clear; 
DataModule2.FDTransaction1.StartTransaction; 
try 
if cxlookupcombobox1.Text ='' then begin 
.... 
.... 
DataModule2.INS_Query.ExecSQL; 
DataModule2.FDTransaction1.Commit; 
end else begin 
if cxlookupcombobox1.Text <>'' then 
...... 
...... 
DataModule2.INS_Query.ExecSQL; 
DataModule2.FDTransaction1.Commit; 
end; 
except 
on e: exception do begin 
Showmessage(format('Error occured. Error is: %s',[e.message])); 
DataModule2.FDTransaction1.Rollback; 
DataModule2.MYTABLE.Cancel; 
end; 
end; 

Выполняет все правильно, но что-то меня злит.

DataModule2.FDTransaction1.Commit;

Должно ли быть совершено дважды? Или я правильно написал этот запрос?

Answer 1

№ Обязательно только один раз для начатой ​​транзакции. Как правило, построение кода в псевдокоде выглядит следующим образом:

Transaction.Start; 
try 
    Query.Execute; 
    Query.Execute; 
    ... 
    Transaction.Commit; 
except 
    Transaction.Rollback; 
    raise; 
end; 

И поскольку вы совершали только один раз, ваш код кажется правильным в этой манере.