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.<\/b><\/p>\nVoraussetzungen<\/h2>\n
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 <\/b>und Von Access zu Entity Framework: Daten<\/b> aus Ausgabe 5\/2018. Die weiteren Vorarbeiten werden im Artikel Access zu WPF: Detailformulare mit Textfeldern <\/b>erläutert.<\/p>\nKombinationsfelder hinzufügen<\/h2>\n
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<\/b>-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 <\/b>hinzu:<\/p>\n Für das Kombinationsfeld selbst fügen wir das ComboBox<\/b>-Element hinzu. Im Beispielformular, das die Daten eines Kunden anzeigen soll, wollen wir mit der folgenden Definition eines ComboBox<\/b>-Elements die Daten der Tabelle Anreden <\/b>zur Auswahl einfügen und die für den aktuellen Kunden ausgewählte Anrede anzeigen:<\/p>\n 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:<\/p>\n Schließlich benötigen wir in den Konstruktor-Methoden jeweils eine Anweisung, welche die Auflistung der Anreden mit den Daten der DbSet<\/b>-Auflistung Anreden <\/b>füllt:<\/p>\n Das wären zunächst einmal die Anforderungen für die einzufügenden Elemente, die wir in den Prozeduren des Moduls mdlAccessZuWPF <\/b>berücksichtigen müssen. Die Erweiterungen sind teilweise trivial wie etwa die für die Standardeigenschaften für die Kombinationsfelder beziehungsweise ComboBox<\/b>-Elemente. Diese fügen wir der Prozedur AttributeHinzufuegen <\/b>wie folgt hinzu:<\/p>\n Der Teil, der die XAML-Definition des ComboBox<\/b>-Elements zusammenstellt, ist etwas umfangreicher als der für das Zusammenstellen eines Label<\/b>– oder eines TextBox<\/b>-Elements. Das liegt daran, dass wir ein paar mehr Informationen sammeln müssen – etwa, um herauszufinden, welche Tabelle beziehungsweise welches DbSet<\/b>-Element die Daten für das aufgeklappte ComboBox<\/b>-Element liefert. Genau genommen ist es sogar recht kompliziert – und umso komplizierter, je mehr mögliche Fälle man abdecken möchte.<\/p>\n 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:<\/p>\n 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 <\/b>der Tabelle tblKunden <\/b>gebunden. Diese Informationen benötigen wir auch für das ComboBox<\/b>-Element – genau genommen sogar einige davon abgeleitete Informationen. Wir wollen ja nicht den Namen der Tabelle tblAnreden <\/b>für das Attribut ItemsSource <\/b>angeben, sondern benötigen das DbSet <\/b>des Entity Data Models, dass die Daten dieser Tabelle liefert.<\/p>\n In den Artikeln Von Access zu Entity Framework: Datenmodell <\/b>und Von Access zu Entity Framework: Update 1 <\/b>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<\/b>), der resultierenden Klasse (Kunde<\/b>), des DbSet<\/b>-Elements (Kunden<\/b>) und weiterer Informationen. Die Daten aus dieser Collection können wir auch noch nutzen, um die Informationen zur Definition der ComboBox<\/b>-Elemente zusammenzustellen. In der Collection, die Elemente des Typs clsMapping <\/b>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 <\/b>mit den Feldern AnredeID <\/b>und Anrede <\/b>auftritt, dann soll der Name dieses Feldes als Eigenschaft der Klasse in Name <\/b>umbenannt werden. Da wir zufällig genau beim Beispiel der Tabelle tblKunden<\/b>, welche ja im Fremdschlüsselfeld AnredeID <\/b>auf die Datensätze der Tabelle tblAnreden <\/b>zugreift, auf diesen Fall treffen, wissen wir auch, dass diese Informationen gut noch in den Elementen der Collection colMappings <\/b>untergebracht werden könnten. Dazu erweitern wir zunächst die Klasse clsMapping <\/b>in der Access-Datenbank, welche die zu migrierenden Formulare enthält, um die folgenden beiden privaten Variablen und die entsprechenden Getter und Setter:<\/p>\n Die Eigenschaft RenamedFieldOriginal <\/b>soll dann etwa den Namen des Feldes Anrede <\/b>aufnehmen und RenamedField <\/b>den Namen der resultierenden Eigenschaft der Klasse Anrede<\/b>, also Name<\/b>.<\/p>\n Die Prozedur EDMErstellen <\/b>aus dem Modul mdlEDM <\/b>wandeln wir in eine gleichnamige Funktion um, welche eine Collection als Funktionswert zurückliefern soll:<\/p>\n In der For Each<\/b>-Schleife über alle Mappings, in denen die Funktion die Felder untersucht, schreibt die Funktion dann die entsprechenden Werte in die beiden Eigenschften RenamedField <\/b>und RenamedFieldOriginal <\/b>der clsMapping<\/b>-Klasse:<\/p>\n Schließlich wird die Collection colMappings <\/b>als Funktionswert der Funktion EDMErstellen <\/b>zurückgegeben:<\/p>\n Die Funktion EDMErstellen <\/b>rufen wir nun nicht mehr nur auf, wenn wir das Entity Data Model auf Basis des Datenmodells der Datenbank erstellen wollen, sondern auch beim Migrieren eines der Formular mit der Prozedur FormularNachWPF <\/b>des Moduls mdlAccessZuWPF <\/b>der Access-Datenbank. Dies erledigen wir direkt in der ersten Anweisung nach dem Deklarationsteil der Prozedur:<\/p>\n Dann übergeben wir diese Collection beim Aufruf der Prozedur SteuerelementeHinzufuegen <\/b>als neuen Parameter:<\/p>\n Die Prozedur SteuerelementeHinzufuegen <\/b>erfährt die umfassendsten Anpassungen. Zunächst fügen wir colMappings<\/b> mit dem Datentyp Collection <\/b>als vierten Parameter zur Prozedur hinzu:<\/p>\n Dann benötigen wir die folgenden zusätzlichen Variablen. Die erste namens strEntitiesCombo <\/b>nimmt den Namen der DbSet<\/b>-Auflistung für die Elemente des ComboBox<\/b>-Elements auf (etwa Anreden<\/b>), das zweite namens strEntityCombo <\/b>den Namen der Klasse für die Auflistung. strPKCombo <\/b>erhält das Primärschlüsselfeld der entsprechenden Entität, also zum Beispiel ID<\/b>. strSichtbaresFeldCombo <\/b>schließlich füllen wir mit dem Namen des zweiten Feldes der Datensatzherkunft des Kombinationsfeldes, im Falle der Datensatzherkunft SELECT [tblAnreden].[AnredeID], [tblAnreden].[Anrede] FROM tblAnreden; <\/b>also etwa das Feld Anrede<\/b>. Diesen Wert ändern wir aber in diesem Fall noch, da Anrede <\/b>ja dem Namen der entstehenden Entität entspricht und dementsprechend umbenannt werden muss.<\/p>\n In der Schleife über alle Steuer-elemente des Formulars landen wir dann früher oder später bei einem Kombinationsfeld. Für dieses haben wir in einer Select Case-Bedingung einen eigenen Zweig eingerichtet. In diesem fügen wir zunächst die Schriftart und Schriftgröße ein, sollte sich diese von der Standardschriftart für dieses Steuer-element unterscheiden:<\/p>\n Danach füllen wir die Variable strFeldname <\/b>mit dem Wert des Feldes Steuerelementinhalt <\/b>des Kombinationsfeldes:<\/p>\n Die Variable strSichtbaresFeldCombo <\/b>nimmt das zweite Feld der als Datensatzherkunft angegebenen Tabelle oder Abfrage als Wert:<\/p>\n In einer If…Then<\/b>-Bedingung verwenden wir dann das Ergebnis eines Aufrufs der Funktion GetDbSetCombo <\/b>als Kriterium. Liefert diese Funktion, welche aus den Mapping<\/b>-Informationen aus colMappings <\/b>und der Datensatzherkunft des Steuerelements den Namen der Entitätenliste, des Primärschlüsselfeldes und des sichtbaren Feldes ermitteln soll, den Wert True<\/b>, wurden diese Werte erfolgreich gefüllt und wir können den Code für das ComboBox<\/b>-Element zusammenstellen:<\/p>\n Ist das der Fall, tragen wir zunächst den Namen des Steuer-element für das Attribut Name <\/b>des ComboBox<\/b>-Elements ein sowie die Höhe, die Breite und die Abstände zum linken und oberen Rand:<\/p>\n Für das Attribut ItemsSource <\/b>stellen wir eine Bindung zu dem Element aus strEntitiesCombo <\/b>her, in diesem Fall Anreden<\/b>:<\/p>\n Den aktuell ausgewählten Eintrag wollen wir über das Feld Name <\/b>der Klasse Anrede <\/b>ermitteln und tragen diesen für das Attribut SelectedItem <\/b>ein:<\/p>\n Zu den allgemeinen Attributen gehört auch noch SelectedValuePath<\/b>, das festlegt, welche Eigenschaft der gebundenen Spalte entspricht, also wonach der Eintrag der ComboBox <\/b>für den aktuellen Datensatz im Fenster ausgewählt wird:<\/p>\n Danach folgen die anzuzeigenden Werte des ComboBox<\/b>-Elements. Dazu legen wir das folgende Konstrukt an, mit dem Sie direkt ein MultiBinding<\/b>-Element haben, das Sie nach der Migration leicht um weitere Felder erweitern können. Wir fügen hier für das Element Binding <\/b>die Eigenschaft auf strSichtbaresFeldCombo <\/b>ein, was im Beispiel der Bezeichnung Name <\/b>entspricht:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><Window x:Class=\"frmKundendetails\" ... Title=\"frmKundendetails\" Height=\"332\" Width=\"362\">\r\n <Window.Resources>\r\n ...\r\n <Style TargetType=\"{x:Type ComboBox}\">\r\n <Setter Property=\"HorizontalAlignment\" Value=\"Left\"><\/Setter>\r\n <Setter Property=\"VerticalAlignment\" Value=\"Top\"><\/Setter>\r\n <Setter Property=\"FontFamily\" Value=\"Calibri\"><\/Setter>\r\n <Setter Property=\"FontSize\" Value=\"11pt\"><\/Setter>\r\n <\/Style>\r\n <\/Window.Resources><\/pre>\n <Grid>\r\n ...\r\n <Label x:Name=\"Bezeichnungsfeld4\" Content=\"Anrede:\" Padding=\"0\" Height=\"21\" Margin=\"5,111,0,0\" Width=\"64\"\/>\r\n <ComboBox x:Name=\"MehrwertsteuersatzID\" Padding=\"0\" Height=\"21\" Margin=\"118,111,0,0\" Width=\"221\"\r\n ItemsSource=\"{Binding Anreden}\"\r\n SelectedItem=\"{Binding Kunde.Anrede, ValidatesOnDataErrors=True}\"\r\n SelectedValuePath=\"ID\" SelectionChanged=\"Anrede_SelectionChanged\">\r\n <ComboBox.ItemTemplate>\r\n <DataTemplate>\r\n <TextBlock>\r\n <TextBlock.Text>\r\n <MultiBinding StringFormat=\"{}{0}\">\r\n <!--<MultiBinding StringFormat=\"{}{0}, {1}\">-->\r\n <Binding Path=\"Name\" \/>\r\n <!--<Binding Path=\"Vorname\" \/>-->\r\n <\/MultiBinding>\r\n <\/TextBlock.Text>\r\n <\/TextBlock>\r\n <\/DataTemplate>\r\n <\/ComboBox.ItemTemplate>\r\n <\/ComboBox>\r\n ....\r\n <\/Grid>\r\n<\/Window><\/pre>\nPrivate <\/span>_Anreden As <\/span>List(Of Anrede)\r\nPublic Property <\/span>Anreden As <\/span>List(Of Anrede)\r\n Get\r\n Return _Anreden\r\n End Get\r\n Set(value As <\/span>List(Of Anrede))\r\n _Anreden = value\r\n End Set<\/span>\r\nEnd Property<\/span><\/pre>\nPublic Sub <\/span>New()\r\n ...\r\n Anreden = New<\/span> List(Of Anrede)(dbContext.Anreden)\r\n DataContext = Me\r\nEnd Sub<\/span>\r\nPublic Sub <\/span>New(lngID As Long<\/span>)\r\n ...\r\n Anreden = New<\/span> List(Of Anrede)(dbContext.Anreden)\r\n DataContext = Me\r\nEnd Sub<\/span><\/pre>\nStandardeigenschaften für ComboBox-Element hinzufügen<\/h2>\n
Public Sub <\/span>AttributeHinzufuegen(frm As <\/span>Form, strXAML As String<\/span>)\r\n strXAML = strXAML & \" <Window.Resources>\" & vbCrLf<\/span>\r\n ...\r\n With<\/span> frm.DefaultControl(acComboBox)\r\n strXAML = strXAML & \" <Style TargetType=\"\"{x:Type ComboBox}\"\">\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <Setter Property=\"\"HorizontalAlignment\"\" Value=\"\"Left\"\"><\/Setter>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <Setter Property=\"\"VerticalAlignment\"\" Value=\"\"Top\"\"><\/Setter>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <Setter Property=\"\"FontFamily\"\" Value=\"\"\" & .FontName & \"\"\"><\/Setter>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <Setter Property=\"\"FontSize\"\" Value=\"\"\" & .FontSize & \"pt\"\"><\/Setter>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <\/Style>\" & vbCrLf<\/span>\r\n End With<\/span>\r\n strXAML = strXAML & \" <\/Window.Resources>\" & vbCrLf<\/span>\r\nEnd Sub<\/span><\/pre>\nComboBox-Element hinzufügen<\/h2>\n
SELECT [tblAnreden].[AnredeID], [tblAnreden].[Anrede] FROM tblAnreden;<\/pre>\n
Generiertes Entity Data Model nutzen<\/h2>\n
Private <\/span>m_RenamedField As String<\/span>\r\nPrivate <\/span>m_RenamedFieldOriginal As String<\/span>\r\nPublic Property Get <\/span>RenamedField() As String<\/span>\r\n RenamedField = m_RenamedField\r\nEnd Property<\/span>\r\nPublic Property Let <\/span>RenamedField(str As String<\/span>)\r\n m_RenamedField = str\r\nEnd Property<\/span>\r\nPublic Property Get <\/span>RenamedFieldOriginal() As String<\/span>\r\n RenamedFieldOriginal = m_RenamedFieldOriginal\r\nEnd Property<\/span>\r\nPublic Property Let <\/span>RenamedFieldOriginal(str As String<\/span>)\r\n m_RenamedFieldOriginal = str\r\nEnd Property<\/span><\/pre>\nPublic Function <\/span>EDMErstellen() As <\/span>Collection\r\n ...\r\n Set<\/span> colMappings = New<\/span> Collection\r\n ...<\/pre>\n For Each objMapping In colMappings\r\n With<\/span> objMapping\r\n ...\r\n For Each fld In tdf.Fields\r\n ...\r\n If <\/span>fld.Name = .Entity_Original Then<\/span>\r\n strFieldname = \"Name\"\r\n objMapping.RenamedField = \"Name\"\r\n objMapping.RenamedFieldOriginal = fld.Name\r\n Else<\/span>\r\n ...\r\n End If<\/span>\r\n ...\r\n Next<\/span> fld\r\n ...\r\n End With<\/span>\r\n ...\r\n Next<\/span> objMapping\r\n ...<\/pre>\n Set<\/span> EDMErstellen = colMappings\r\nEnd Function<\/span><\/pre>\nAnpassung der Prozeduren zum Migrieren des Formulars<\/h2>\n
Public Sub <\/span>FormularNachWPF(strForm As String<\/span>, strKlasse As String<\/span>)\r\n ...\r\n Dim <\/span>colMappings As <\/span>Collection\r\n Set<\/span> colMappings = EDMErstellen\r\n ...<\/pre>\n SteuerelementeHinzufuegen frm, strXAML, strKlasse, colMappings\r\n ...\r\nEnd Sub<\/span><\/pre>\nPublic Function <\/span>SteuerelementeHinzufuegen(frm As <\/span>Form, strXAML As String<\/span>, strKlasse As String<\/span>, colMappings As <\/span>Collection)\r\n ...<\/pre>\n Dim <\/span>strEntitiesCombo As String<\/span>\r\n Dim <\/span>strEntityCombo As String<\/span>\r\n Dim <\/span>strPKCombo As String<\/span>\r\n Dim <\/span>strSichtbaresFeldCombo As String<\/span>\r\n ...<\/pre>\n For Each ctl In frm.Controls\r\n ...\r\n Select Case ctl.ControlType\r\n ...\r\n Case <\/span>acComboBox\r\n If <\/span>Not<\/span> ctl.FontName = strFontFamilyTextBox Then<\/span>\r\n strFontname = \"FontFamily=\"\"\" & strFontFamilyTextBox & \"\"\" \"\r\n End If<\/span>\r\n If <\/span>Not<\/span> ctl.FontSize = strFontSizeTextBox Then<\/span>\r\n strFontSize = \"FontSize=\"\"\" & strFontSizeTextBox & \"pt\"\" \"\r\n End If<\/span><\/pre>\n strFeldname = ctl.ControlSource<\/pre>\n
strSichtbaresFeldCombo = CurrentDb.OpenRecordset(ctl.RowSource).Fields(1).Name<\/pre>\n
If GetDbSetCombo(colMappings, ctl.RowSource, strEntitiesCombo, strPKCombo, strSichtbaresFeldCombo, _\r\n strEntityCombo) Then<\/pre>\n
strXAML = strXAML & \"<ComboBox x:Name=\"\"\" & ctl.Name & \"\"\" Padding=\"\"0\"\" Height=\"\"\" & lngHeight _\r\n & \"\"\" Margin=\"\"\" & lngLeft<\/span> & \",\" & lngTop & \",0,0\"\" Width=\"\"\" & lngWidth & \"\"\"\" & vbCrLf<\/span><\/pre>\n strXAML = strXAML & \" ItemsSource = \"\"{Binding \" & strEntitiesCombo & \"}\"\"\" & vbCrLf<\/span><\/pre>\n strXAML = strXAML & \" SelectedItem = \"\"{Binding \" & strKlasse & \".\" & strEntityCombo _\r\n & \", ValidatesOnDataErrors=True}\"\"\" & vbCrLf<\/span><\/pre>\n strXAML = strXAML & \" SelectedValuePath=\"\"\" & strPKCombo & \"\"\"> \" & vbCrLf<\/span><\/pre>\n strXAML = strXAML & \" <ComboBox.ItemTemplate>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <DataTemplate>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <TextBlock>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <TextBlock.Text>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <MultiBinding StringFormat=\"\"{}{0}\"\">\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <Binding Path=\"\"\" & strSichtbaresFeldCombo & \"\"\" \/>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <\/MultiBinding>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <\/TextBlock.Text>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <\/TextBlock>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <\/DataTemplate>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <\/ComboBox.ItemTemplate>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \"<\/ComboBox>\" & vbCrLf<\/span><\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t