Einzelnen Beitrag anzeigen

NoName1

Registriert seit: 8. Mär 2018
194 Beiträge
 
Delphi 11 Alexandria
 
#25

AW: Datensätze fehlen

  Alt 21. Feb 2019, 08:53
vielen Dank für Eure ausführlichen Antworten.
Um das Ganze zum Abschluss zu bringen, möchte ich noch folgendes erwähnen.
Da ich mit den Anwendern in sehr engem Kontakt stehe, weiß ich wie die Datenerfassung erfolgt und sie die Fenster schließen.
Es wird wohl nichts anderes Übrigbleiben als eine Logdatei zu erzeugen um alles zu protokollieren.
Nur weiß ich noch nicht, wie ich das zu bewerkstelligen habe. Vielleicht hat ja
Zitat:
Blup
Notfalls jede Nutzeraktion und natürlich auch Fehlermeldungen unabhängig von der Datenbank in einer Logdatei protokollieren.
einen „Workaround“ und / oder kann Hinweise geben?

Wenn das Fenster für die Adressdaten geschlossen wird, dann wird folgender Code ausgeführt:
Delphi-Quellcode:
procedure TMSFmAdressen.FormDestroy(Sender: TObject);
begin
  Adresse.Destroy;
end;

destructor TOAdressen.Destroy;
begin
  SetLength(BRFunktionen, 0);
  dtmdMain.DoStartTransaction;
  dtmdMain.adressen.Edit;
  dtmdMain.adressen.Post;
  dtmdMain.ibtrnsctnVerein.Commit;
  inherited;
end;

// Die Transaction:
procedure TdtmdMain.DoStartTransaction;
begin
  if not ibtrnsctnVerein.InTransaction then ibtrnsctnVerein.StartTransaction;
end;
An diesem Code kann es wohl auch nicht liegen?
  Mit Zitat antworten Zitat