Letzte Änderung eines Datensatzes speichern

[marabu]

Hi Lombi.

Normalerweise lässt man dem Benutzer die Möglichkeit einen Datensatz unverändert neu zu speichern. In bestimmten Programmen wird das sogar als feature angesehen, aber egal. Wenn du den timestamp eines record nur dann aktualisieren willst, wenn sich auch eine inhaltliche Änderung ergeben hat, dann musst du die Feldwerte zu Beginn eines Edit-Vorganges zwischenspeichern (Markus hat es schon geschrieben) und beim Abspeichern mit den dann aktuellen Feldwerten vergleichen.

Nehmen wir an, dass nur ein Dataset deiner Form sich zu jedem Zeitpunkt im Edit-Modus befindet, dann könnte man das so angehen:

Delphi-Quellcode:

type
  TDemoForm = class(TForm)
  private
    OldValues: array of Variant;
  end;

procedure TDemoForm.TableAfterEdit(DataSet: TDataSet);
var
  i: Integer;
begin
  with DataSet do
  begin
    SetLength(OldValues, FieldCount);
    for i := Low(OldValues) to High(OldValues) do
      OldValues[i] := Fields[i].Value;
  end;
end;

procedure TDemoForm.TableBeforePost(DataSet: TDataSet);
var
  i: Integer;
  changed: Boolean;
begin
  changed := false;
  with DataSet do
  begin
    for i := Low(OldValues) to High(OldValues) do
      changed := changed or (OldValues[i] = Fields[i].Value);
  end;
  if changed then
    Dataset['UPDATED'] := Now;
end;

procedure TDemoForm.TableAfterCancel(DataSet: TDataSet);
begin
  SetLength(OldValues, 0);
end;

Getippt - und nicht getestet. Ich hoffe, dass du den Code nachvollziehen kannst und die dahinter steckende Idee erkennst.

Freundliche Grüße vom marabu