DA中直接运行SQL命令，并返回影响行数

1、客户端直接运行SQL命令，使用TDARemoteCommand

2、服务器端直接运行SQL命令，使用TDALocalCommand

function DeleteRowFromTable1(aID:integer):integer;
var
  lCommand:TDALocalCommand;
  linp, lout: DataParameterArray;
  i: integer;
begin
try
    lCommand:=TDALocalCommand.Create(nil);
    lCommand.ServiceName:='MyService';
    linp := DataParameterArray.Create;
try
with linp.Add do begin
        Name := UTF8Encode('ID');
        Value := aID;
end;
      lCommand.Execute('DeleteRow',linp, lout);
if lout <> nil then
for I := 0 to lout.Count - 1 do
if UTF8ToString(lout[i].Name) = 'ErrorCode' then
            Result := lout[i].Value;
finally
      linp.Free;
      lOut.Free;
end;
finally
    lCommand.Destroy;
end;
end;