Beschreibung Access Konfigurations-Modul März 2002

(Autor: Michael Graßmann)

Proceduren und Funktion um Einstellungen von Schaltern/ Werte und Texte zu sichern und abzufragen:

è Schalter

' Schalterpos. in der Konfiguration setzen

Sub CfgSetSW(SW As Byte, OptVal As Boolean)

' Schalterpos. aus Konfiguration laden

Function CfgLoadDefSW(SW As Byte) As Boolean

è Werte

' Gespeicherte Option laden

Function OptGetValue(Opt As Byte) As Byte

' Option speichern

Sub OptSaveValue(Opt As Byte, OptVal As Byte)

è Texte

' Gespeicherte Text-Option laden

Function OptGetText(Opt As Byte) As String

' Option speichern

Sub OptSaveText(Opt As Byte, OptTxt As String)

' Ermittle xten Wert des Delimiter-Strings

Function GetXofDelStr(DText As String, DChar As String, Nr As Byte) As Integer

__________________________________________________________________________

Beispiel:

' Lesen der Konfiguration beim Öffnen des Formulars

Private Sub Form_Load()

Dim CodesKundTxt As String

' Schalter ermitteln

ToCurrSitu = DBConfig.CfgLoadDefSW(1) ' Schalter aus Konfig laden

SOPOTxt = DBConfig.CfgLoadDefSW(2)

MeldungTxt2 = DBConfig.CfgLoadDefSW(3) ' Schalter laden

MeldungTxt = DBConfig.CfgLoadDefSW(4) ' Schalter laden

' Text ermitteln

CodesKundTxt = DBConfig.OptGetText(1) ' Ermitteln der Codes aus Konfig

Me.KundentextOut = CodesKundTxt

Me.KundentextOut.Requery

Me.KundtxtW1 = DBConfig.GetXofDelStr(CodesKundTxt, ";", 1)

Me.KundtxtW1.Requery

Me.KundtxtW2 = DBConfig.GetXofDelStr(CodesKundTxt, ";", 2)

Me.KundtxtW2.Requery

' Wert ermitteln

Me.Wert1 = DBConfig.OptGetValue(1) ' Einstellung aus der Konfiguration ermitteln

Me.Requery

Me.Wert2 = DBConfig.OptGetValue(2) ' Einstellung aus der Konfiguration ermitteln

Me.Requery

End Sub

' Speichert Wert dieses Options-Schlaters in der Konfiguration unter Schalter 4

Private Sub MeldungTxt_AfterUpdate()

DBConfig.CfgSetSW 4, MeldungTxt ' Schalter setzen

End Sub