16.3.6 Zusammenhänge der Objekte und Schichten
16.3.7 Initialisieren des Formulars
Direkt nach dem Öffnen soll das Formular keinen Datensatz anzeigen. Lediglich das Kombinationsfeld cboSchnellsuche soll alle enthaltenen Personen zur Auswahl anbieten. Das Füllen dieses Steuerelements ist dann auch die erste Funktion, die programmiert und auf mehrere Schichten aufgeteilt werden soll.
Der Beginn sieht unspektakulär aus: Die beim Öffnen des Formulars ausgelöste Routine initialisiert das im Kopf des Moduls deklarierte Controller-Objekt und ruft die Prozedur cboSchnellsucheAktualisieren auf.

Abbildung 16.8: Aufteilung der Objekte auf die einzelnen Schichten
Dim objController As clsController
Private Sub Form_Open(Cancel As Integer) Set objController = New clsController cboSchnellsucheAktualisieren End Sub
Listing 16.33: Initialisieren des Formulars
Die Prozedur cboSchnellsucheAktualisieren ruft die Routine GetPersons des Controller-Objekts auf. Diese Methode liefert ein Collection-Objekt zurück, das in dem Objekt objPersonen gespeichert wird. Bevor Sie die restlichen Zeilen der Prozedur betrachten, schauen Sie sich zunächst den weiteren Verlauf an.
Private Sub cboSchnellsucheAktualisieren()
Dim objPerson As clsPerson Dim objPersonen As Collection Dim str As String
Set objPersonen = objController.GetPersons
If Not objPersonen Is Nothing Then For Each objPerson In objPersonen Me.cboSchnellsuche.AddItem objPerson.PersonID & ";" _ & objPerson.Nachname & ", " & objPerson.Vorname Next objPerson Else MsgBox "Personenliste konnte nicht geladen werden." End If
End Sub
Listing 16.34: Zuweisen einer Datensatzgruppe mit allen Personen an das Kombinationsfeld zur Schnellsuche
Nächster Abschnitt:
16.3.8 Initialisieren des Controller-Objekts
|