{"id":55000719,"date":"2010-06-01T00:00:00","date_gmt":"2020-05-22T22:12:48","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=719"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Aenderungsprotokoll_mit_Klasse","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Aenderungsprotokoll_mit_Klasse\/","title":{"rendered":"Änderungsprotokoll mit Klasse"},"content":{"rendered":"

\"\"<\/p>\n

Im Beitrag änderungsdaten protokollieren (www.access-im-unternehmen.de\/672) haben wir Techniken vorgestellt, welche die Verwaltung einer änderungshistorie stark erleichtert. Im vorliegenden Beitrag gehen wir noch weiter und vereinfachen die Geschichtsschreibung für Formulare. Dazu brauchen Sie dem Formular nur noch eine Klasse zuzuweisen – den Rest übernimmt unsere kleine Erweiterung.<\/b><\/p>\n

Stellen Sie sich vor, Sie wollten die änderungen an den Datensätzen eines Formulars beim Anlegen und Löschen sowie bei der zuletzt erfolgten änderung in den entsprechenden Feldern der Tabelle speichern und bräuchten dazu nur ein paar immer gleiche Codezeilen im Formular unterzubringen.<\/p>\n

Nicht möglich Aber sicher – Sie brauchen nur zuvor die Datenherkunft mit den Feldern zum Speichern der Historie-Daten auszustatten. Und wie das geht, haben Sie ja bereits im oben bereits erwähnten Beitrag änderungsdaten protokollieren <\/b>erfahren.<\/p>\n

Sie brauchen nur eine Tabelle, die mit den Zusatzfeldern wie in Bild 1 ausgestattet ist, eine Abfrage, die alle Datensätze daraus liefert außer solche, die als gelöscht markiert sind (siehe Bild 2) und ein Formular, das die Abfrage als Datenherkunft verwendet und unsere Klasse clsAenderungsprotokollierung<\/b> einsetzt.<\/p>\n

\"pic001.png\"<\/p>\n

Bild 1: Die Tabelle mit Historie-Feldern<\/span><\/b><\/p>\n

\"pic002.png\"<\/p>\n

Bild 2: Diese Abfrage liefert alle nicht gelöschten Datensätze der obigen Tabelle<\/span><\/b><\/p>\n

Um diese Klasse zu verwenden, erstellen Sie zunächst eine Objektvariable im Kopf des Klassenmoduls des Formulars (falls dieses noch nicht vorhanden ist: Eigenschaft Enthält Modul <\/b>auf Ja <\/b>einstellen und auf den Ribbon-Eintrag Entwurf|Tools|Code anzeigen <\/b>klicken):<\/p>\n

Dim objAenderungsprotokollierung As clsAenderungsprotokollierung<\/pre>\n
Danach fügen Sie der Eigenschaft Beim Laden <\/b>den Wert [Ereignisprozedur] <\/b>hinzu, klicken auf die Schaltfläche neben der Eigenschaft und ergänzen die noch leere Prozedur Form_Load <\/b>wie folgt:<\/p>\n
Private Sub Form_Load()\r\n    Set objAenderungsprotokollierung = _\r\n    New clsAenderungsprotokollierung\r\n    With objAenderungsprotokollierung\r\n        Set .Form = Me\r\n        .BenutzerID = GetCurrentUser\r\n    End With\r\nEnd Sub<\/pre>\n
Diese Prozedur erzeugt ein neues Objekt auf Basis der Klasse clsAenderungsprotokollierung <\/b>und weist seiner Eigenschaften einige Werte zu. Die Eigenschaft Form <\/b>wird mit einem Verweis auf das aktuelle Formular versehen, und die Eigenschaft BenutzerID <\/b>füllen wir mit dem Wert der Funktion GetCurrentUser<\/b>. Diese Funktion ist hier noch ein Dummy, den Sie abhängig von der in Ihrer Anwendung eingesetzten Benutzerverwaltung noch anpassen müssen:<\/p>\n
Public Function GetCurrentUser() As Long\r\n    GetCurrentUser = 1\r\nEnd Function<\/pre>\n
Der Dummy liefert schlicht den Wert 1 <\/b>als ID <\/b>des aktuellen Benutzers (später greifen Sie mit dieser Funktion beispielsweise auf eine Optionen-Tabelle zu, welche die ID <\/b>des aktuellen Benutzers speichert).<\/p>\n
Die Klasse clsAenderungsprotokollierung<\/b><\/p>\n
Kommen wir zum Arbeitstier der Beispieldatenbank – der Klasse clsAenderungsprotokollierung<\/b>. Diese deklariert zunächst die folgenden Variablen:<\/p>\n
Private WithEvents m_Form As Form\r\nPrivate m_BenutzerID As Variant\r\nPrivate bolDelete As Boolean\r\nPrivate lngTimerIntervalOld As Long<\/pre>\n
m_Form <\/b>bekommt über die öffentliche Set<\/b>-Prozedur Form<\/b> einen Verweis auf das aufrufende Formular zugewiesen.<\/p>\n
Sie ist deshalb mit dem Schlüsselwort WithEvents <\/b>deklariert worden, damit sie auf die Ereignisse des aufrufenden Formulars reagieren kann. Dazu sind drei Bedingungen zu erfüllen:<\/p>\n