delphi 数据库 事务

try
    PsqlDataModule.DataModuleConn.StartTransaction;
    PsqlDataModule.ls.ExecSQL;

    PsqlDataModule.DataModuleConn.Commit;
    result := true;
  except
    PsqlDataModule.DataModuleConn.Rollback;
    result := false;
  end;