ClassInitializeBefore

betrifft

Die Klassenfunktion ClassInitializeBefore wird für jedes Objekt, das von einer TCE-Klasse erzeugt wird, vor der Initialisierung der Klassenvariablen aufgerufen, sofern diese Funktion in der Klasse angelegt ist.

 

Syntax

ClassInitializeBefore()

Rückgabewert

Kein

Parameter

Kein

Bespiel:

Die ClassInitializeBefore-Funktion wird hier dazu verwendet, beim Start einer Anwendung die Datenbankverbindungen neu zu justieren, denn zu diesem Zeitpunkt sind ODBC-Klassen noch nicht geladen.

 

Function ClassInitializeBefore() As Void

   Switch UCase(Server.ComputerName)

   Case "SERVER01"

      Server.DatabaseConnections.DSN("DBC1", True) := Server.DatabaseConnections.DSN("DBC1_S", True)

      Server.DatabaseConnections.DSN("DBC1", False) := Server.DatabaseConnections.DSN("DBC1_S", False)

   End Switch

End Function