Fórum Transações e DBExpress #230520

procedure TForm1.Button1Click(Sender: TObject);
var t : TTransactionDesc;
begin
  // dbExpress
  try
    t.IsolationLevel := xilREADCOMMITTED;
    SQLConnection1.StartTransaction(t);
    ClientDataSet1.Edit;
    ClientDataSet1.Post;
    ClientDataSet1.ApplyUpdates(-1);
    SQLConnection1.Commit(t);
  except
    SQLConnection1.Rollback(t);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ClientDataSet1.Edit;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  ClientDataSet1.Append;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  ClientDataSet1.Cancel;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  ClientDataSet1.Delete;
end;