詠南中間件支持客戶端控制數據庫事務

詠南中間件支持客戶端控制數據庫事務

procedure TForm1.Button3Click(Sender: TObject);
var
  transId: string;
begin
  // 執行非查詢SQL
  transId := CreateClassID;  //事務id，必須是唯一的
  ynDataSet1.BeginTrans(transId); // 開啟事務

  ynDataSet1.Close;
  ynDataSet1.SQL.Clear;
  ynDataSet1.SQL.Add('update tunit set unitname=''hh'' where unitid=:unitid');
  ynDataSet1.Parameters.ParamByName('unitid').AsString := '1';
  ynDataSet1.ExecSQL(transId);

  ynDataSet1.Close;
  ynDataSet1.SQL.Clear;
  ynDataSet1.SQL.Add('update tgoods set goodsname=''hh'' where goodsid=:goodsid');
  ynDataSet1.Parameters.ParamByName('goodsid').AsString := '100050';
  ynDataSet1.ExecSQL(transId);

  ynDataSet1.CommitTrans(transId);     //提交事務
//  ynDataSet1.RollbackTrans(transId);   //回滾事務
end;