Detailformulare mit Combo, Checkbox und Button

Lies diesen Artikel und viele weitere mit einem kostenlosen, einwöchigen Testzugang.

Im Artikel “Access zu WPF: Detailformulare mit Textfeldern” schauen wir uns an, wie die programmgesteuerten Möglichkeiten aussehen, um Formulare automatisch als WPF-Fenster oder -Seiten abzubilden. Damit haben wir einfache Detailformulare samt Textfeldern und Datenbindung unter WPF abgebildet. Nun wollen wir einen Schritt weitergehen und uns um weitere Steuer-elemente wie etwa Kombinationsfelder und Kontrollkästchen kümmern. Außerdem wollen wir noch Schaltflächen zum Blättern in den Datensätzen sowie zum Anlegen neuer Datensätze hinzufügen.

Voraussetzungen

Wir gehen an dieser Stelle davon aus, dass Sie bereits ein Entity Data Model auf Basis des Access-Datenmodells erstellt und eine entsprechende SQL Server-Datenbank auf Basis des Entity Data Modells erstellt haben. Wie das gelingt, zeigen die Artikel Von Access zu Entity Framework: Datenmodell und Von Access zu Entity Framework: Daten aus Ausgabe 5/2018. Die weiteren Vorarbeiten werden im Artikel Access zu WPF: Detailformulare mit Textfeldern erläutert.

Kombinationsfelder hinzufügen

Wenn wir etwa das Kombinationsfeld cboAnredeID im WPF-Fenster abbilden möchten, benötigen wir einige weitere Elemente. Das erste ist natürlich das ComboBox-Element im XAML-Code. Diesem müssen wir die Eigenschaften für die Bindung übergeben. Außerdem brauchen wir im Code behind-Modul der WPF-Seite zusätzlichen Code, der die Auflistung der Anreden als öffentliche Eigenschaft bereithält, damit wir vom XAML-Code aus auf die Anreden zugreifen können. Wir schauen uns als Erstes die notwendigen Änderungen an. Im XAML-Code fügen wir allgemeine Eigenschaften für den Steuerelementtyp ComboBox hinzu:

<Window x:Class="frmKundendetails" ... Title="frmKundendetails" Height="332" Width="362">
     <Window.Resources>
         ...
         <Style TargetType="{x:Type ComboBox}">
             <Setter Property="HorizontalAlignment" Value="Left"></Setter>
             <Setter Property="VerticalAlignment" Value="Top"></Setter>
             <Setter Property="FontFamily" Value="Calibri"></Setter>
             <Setter Property="FontSize" Value="11pt"></Setter>
         </Style>
     </Window.Resources>

Für das Kombinationsfeld selbst fügen wir das ComboBox-Element hinzu. Im Beispielformular, das die Daten eines Kunden anzeigen soll, wollen wir mit der folgenden Definition eines ComboBox-Elements die Daten der Tabelle Anreden zur Auswahl einfügen und die für den aktuellen Kunden ausgewählte Anrede anzeigen:

     <Grid>
         ...
         <Label x:Name="Bezeichnungsfeld4" Content="Anrede:" Padding="0" Height="21" Margin="5,111,0,0" Width="64"/>
         <ComboBox x:Name="MehrwertsteuersatzID" Padding="0" Height="21" Margin="118,111,0,0" Width="221"
                   ItemsSource="{Binding Anreden}"
                   SelectedItem="{Binding Kunde.Anrede, ValidatesOnDataErrors=True}"
                   SelectedValuePath="ID" SelectionChanged="Anrede_SelectionChanged">
             <ComboBox.ItemTemplate>
                 <DataTemplate>
                     <TextBlock>
                         <TextBlock.Text>
                             <MultiBinding StringFormat="{}{0}">
                                 <!--<MultiBinding StringFormat="{}{0}, {1}">-->
                                 <Binding Path="Name" />
                                 <!--<Binding Path="Vorname" />-->
                             </MultiBinding>
                         </TextBlock.Text>
                     </TextBlock>
                 </DataTemplate>
             </ComboBox.ItemTemplate>
         </ComboBox>
         ....
     </Grid>
</Window>

In der Code behind-Klasse fügen wir zunächst im allgemeinen Teil die private Variable für die Liste der Anreden hinzu sowie die öffentliche Eigenschaft, über welche diese dann verfügbar ist:

Private _Anreden As List(Of Anrede)
Public Property Anreden As List(Of Anrede)
     Get
         Return _Anreden
     End Get
     Set(value As List(Of Anrede))
         _Anreden = value
     End Set
End Property

Schließlich benötigen wir in den Konstruktor-Methoden jeweils eine Anweisung, welche die Auflistung der Anreden mit den Daten der DbSet-Auflistung Anreden füllt:

Public Sub New()
     ...
     Anreden = New List(Of Anrede)(dbContext.Anreden)
     DataContext = Me
End Sub
Public Sub New(lngID As Long)
     ...
     Anreden = New List(Of Anrede)(dbContext.Anreden)
     DataContext = Me
End Sub

Standardeigenschaften für ComboBox-Element hinzufügen

Das wären zunächst einmal die Anforderungen für die einzufügenden Elemente, die wir in den Prozeduren des Moduls mdlAccessZuWPF berücksichtigen müssen. Die Erweiterungen sind teilweise trivial wie etwa die für die Standardeigenschaften für die Kombinationsfelder beziehungsweise ComboBox-Elemente. Diese fügen wir der Prozedur AttributeHinzufuegen wie folgt hinzu:

Public Sub AttributeHinzufuegen(frm As Form, strXAML As String)
     strXAML = strXAML & "        <Window.Resources>" & vbCrLf
     ...
     With frm.DefaultControl(acComboBox)
         strXAML = strXAML & "        <Style TargetType=""{x:Type ComboBox}"">" & vbCrLf
         strXAML = strXAML & "            <Setter Property=""HorizontalAlignment"" Value=""Left""></Setter>" & vbCrLf
         strXAML = strXAML & "            <Setter Property=""VerticalAlignment"" Value=""Top""></Setter>" & vbCrLf
         strXAML = strXAML & "            <Setter Property=""FontFamily"" Value=""" & .FontName & """></Setter>" & vbCrLf
         strXAML = strXAML & "            <Setter Property=""FontSize"" Value=""" & .FontSize & "pt""></Setter>" & vbCrLf
         strXAML = strXAML & "        </Style>" & vbCrLf
     End With
     strXAML = strXAML & "        </Window.Resources>" & vbCrLf
End Sub

ComboBox-Element hinzufügen

Der Teil, der die XAML-Definition des ComboBox-Elements zusammenstellt, ist etwas umfangreicher als der für das Zusammenstellen eines Label– oder eines TextBox-Elements. Das liegt daran, dass wir ein paar mehr Informationen sammeln müssen – etwa, um herauszufinden, welche Tabelle beziehungsweise welches DbSet-Element die Daten für das aufgeklappte ComboBox-Element liefert. Genau genommen ist es sogar recht kompliziert – und umso komplizierter, je mehr mögliche Fälle man abdecken möchte.

Gehen wir einmal davon aus, dass wir etwa das Kombinationsfeld zur Auswahl der Anrede eines Kunden abbilden wollen. Dann hat dieses Kombinationsfeld beispielsweise die folgende Abfrage als Datensatzherkunft:

SELECT [tblAnreden].[AnredeID], [tblAnreden].[Anrede] FROM tblAnreden;

Daneben verwendet es die erste Spalte dieser Abfrage als gebundene Spalte und die zweite soll angezeigt werden. Schließlich ist das Kombinationsfeld an das Feld AnredeID der Tabelle tblKunden gebunden. Diese Informationen benötigen wir auch für das ComboBox-Element – genau genommen sogar einige davon abgeleitete Informationen. Wir wollen ja nicht den Namen der Tabelle tblAnreden für das Attribut ItemsSource angeben, sondern benötigen das DbSet des Entity Data Models, dass die Daten dieser Tabelle liefert.

Generiertes Entity Data Model nutzen

In den Artikeln Von Access zu Entity Framework: Datenmodell und Von Access zu Entity Framework: Update 1 haben wir gezeigt, wie Sie aus dem Datenmodell einer Access-Datenbank ein Entity Data Model erstellen können. Dort haben wir unter anderem eine Collection zusammengestellt, welche die resultierenden Mappings enthält – also etwa die Namen der Tabellen (zum Beispiel tblKunden), der resultierenden Klasse (Kunde), des DbSet-Elements (Kunden) und weiterer Informationen. Die Daten aus dieser Collection können wir auch noch nutzen, um die Informationen zur Definition der ComboBox-Elemente zusammenzustellen. In der Collection, die Elemente des Typs clsMapping aufnimmt, fehlen allerdings noch zwei Informationen, die wir noch benötigen: Wenn der Name eines Feldes mit dem resultierenden Namen der Klasse übereinstimmt, was etwa bei der Tabelle tblAnreden mit den Feldern AnredeID und Anrede auftritt, dann soll der Name dieses Feldes als Eigenschaft der Klasse in Name umbenannt werden. Da wir zufällig genau beim Beispiel der Tabelle tblKunden, welche ja im Fremdschlüsselfeld AnredeID auf die Datensätze der Tabelle tblAnreden zugreift, auf diesen Fall treffen, wissen wir auch, dass diese Informationen gut noch in den Elementen der Collection colMappings untergebracht werden könnten. Dazu erweitern wir zunächst die Klasse clsMapping in der Access-Datenbank, welche die zu migrierenden Formulare enthält, um die folgenden beiden privaten Variablen und die entsprechenden Getter und Setter:

Private m_RenamedField As String
Private m_RenamedFieldOriginal As String
Public Property Get RenamedField() As String
     RenamedField = m_RenamedField
End Property
Public Property Let RenamedField(str As String)
     m_RenamedField = str
End Property
Public Property Get RenamedFieldOriginal() As String
     RenamedFieldOriginal = m_RenamedFieldOriginal
End Property
Public Property Let RenamedFieldOriginal(str As String)
     m_RenamedFieldOriginal = str
End Property

Die Eigenschaft RenamedFieldOriginal soll dann etwa den Namen des Feldes Anrede aufnehmen und RenamedField den Namen der resultierenden Eigenschaft der Klasse Anrede, also Name.

Die Prozedur EDMErstellen aus dem Modul mdlEDM wandeln wir in eine gleichnamige Funktion um, welche eine Collection als Funktionswert zurückliefern soll:

Public Function EDMErstellen() As Collection
     ...
     Set colMappings = New Collection
     ...

In der For Each-Schleife über alle Mappings, in denen die Funktion die Felder untersucht, schreibt die Funktion dann die entsprechenden Werte in die beiden Eigenschften RenamedField und RenamedFieldOriginal der clsMapping-Klasse:

     For Each objMapping In colMappings
         With objMapping
             ...
             For Each fld In tdf.Fields
                 ...
                 If fld.Name = .Entity_Original Then
                     strFieldname = "Name"
                     objMapping.RenamedField = "Name"
                     objMapping.RenamedFieldOriginal = fld.Name
                 Else
                     ...
                 End If
                 ...
             Next fld
             ...
         End With
         ...
     Next objMapping
     ...

Schließlich wird die Collection colMappings als Funktionswert der Funktion EDMErstellen zurückgegeben:

     Set EDMErstellen = colMappings
End Function

Anpassung der Prozeduren zum Migrieren des Formulars

Ende des frei verfügbaren Teil. Wenn Du mehr lesen möchtest, hole Dir ...

Testzugang

eine Woche kostenlosen Zugriff auf diesen und mehr als 1.000 weitere Artikel

diesen und alle anderen Artikel mit dem Jahresabo

Schreibe einen Kommentar