MSSQL Replikation

[haentschman]

Moin...

Zitat:

bevor ich alles umbaue.

...bei mir war das zügig erledigt. Ich habe mich für Variante 2 entschieden.

[Werbung ON]
Vieleicht hat mir geholfen daß ich die SQL in Dateien/Ressourcen gespeichert habe. Damit gab es "quasi" keinen Umbau am Quelltext. Siehe Bild...

Quelltext Old:

Delphi-Quellcode:

function TDatabaseBase.GetLastId: Integer;
begin
  Result := FConnection.GetLastAutoGenValue('');
end;
...
function TDatabase.Write(User: TSEAMUser): Integer;
var
  Qry: TFDQuery;
begin
  Result := -1;
  Qry := CreateQuery;
  try
    case User.State of
      sdsNew:
      begin
        Qry.SQL.Text := GetSQLByName('COM_INSERT_USERS');
...
        Qry.ParamByName('ACC').AsInteger := User.AccessCount;
        Qry.ExecSQL;
        User.ID := GetLastId;
        Result := User.ID;
      end;
      sdsModified:
      begin
        Qry.SQL.Text := GetSQLByName('COM_EDIT_USERS');
        Qry.ParamByName('ID').AsInteger := User.ID;
        Qry.ParamByName('ROI1').AsInteger := User.Role_1.ID;
...

Quelltext New:

Delphi-Quellcode:

function TDatabaseBase.InsertWithGetLastID(Query: TFDQuery): Integer;
begin
  Query.Open;
  Result := Query.FieldByName('LastID').AsInteger;
end;
...
function TDatabase.Write(User: TSEAMUser): Integer;
var
  Qry: TFDQuery;
begin
  Result := -1;
  Qry := CreateQuery;
  try
    case User.State of
      sdsNew:
      begin
        Qry.SQL.Text := GetSQLByName('COM_INSERT_USERS');
...
        Qry.ParamByName('ACC').AsInteger := User.AccessCount;
        User.ID := InsertWithGetLastID(Qry);

        Result := User.ID;
      end;
      sdsModified:
      begin
        Qry.SQL.Text := GetSQLByName('COM_EDIT_USERS');
        Qry.ParamByName('ID').AsInteger := User.ID;
        Qry.ParamByName('ROI1').AsInteger := User.Role_1.ID;
...

Danke nochmal.