letzte Änderung einer Pradox Tabelle

[freakTAB]

Kann man das Datum (mit Uhrzeit) der letzten "echten" Änderung einer Paradoxtabelle auslesen? Mit echter Änderung meine ich das dort wirklich Daten geändert worden nicht nur die alten neu geschrieben.

Vielen Dank im Vorraus.

mfg freakTAB

[Albi]

Wie man das genau auslesen kann weiß ich nicht. Du kannst aber einfach in die DB noch ein Feld einbauen wie erfasst_am. Beim Speichern eines neuen Wertes, setzt Du da dann einfach ein DateTime. Später kannst Du einfach über eine Abfrage die letzte Änderung/Neueingabe abrufen.

[freakTAB]

das Problem is dass mein Prog nicht weiss ob es eine echte Änderung war - es lädt die Daten am Anfang und speichert sie beim Schliessen des Dialogs wieder zurück.

[shmia]

Zitat von freakTAB:

das Problem is dass mein Prog nicht weiss ob es eine echte Änderung war - es lädt die Daten am Anfang und speichert sie beim Schliessen des Dialogs wieder zurück.

Delphi-Quellcode:

begin
   Table1.Edit;
   DialogXYForm.ShowModal;  // dein Dialog anzeigen
   if Table1.Modified then  // Prüfen, ob Daten verändert
      Table1.Post           // ja: also speichern
   else
      Table1.Cancel;        // nein: Editmode verlassen
end;

Zusätzlich schreibst du die letzte Änderungszeit im Event BeforePost:

Delphi-Quellcode:

procedure TForm1.Table1BeforePost(DataSet: TDataSet);
begin
   // Zeitpunkt der letzten Änderung eintragen
   DataSet.FieldValues['LastChange'] := Now;
end;

[freakTAB]

Danke, glaube das hilft