- \n
- Neues Projekt auf Basis der Vorlage Visual Basic|Windows Desktop|WPF-App <\/b>erstellen.<\/li>\n
- Neues Element des Typs ADO.NET Entity Data Model <\/b>namens BestellverwaltungContext <\/b>mit der Vorlage Leeres Code First-Modell <\/b>hinzufügen.<\/li>\n
- In der Access-Datenbank AccessZuWPFFormulare.accdb <\/b>aus dem Download die Prozedur EDMErstellen <\/b>des Moduls mdlEDM <\/b>aufrufen und den entstehenden Code aus der Zwischenablage nach den Anweisungen in den Kommentaren an den entsprechenden Stellen platzieren. Hier finden sich auch die Hinweise auf die Aufrufe der Befehle Enable-Migrations, Add-Migration und Update-Database, mit denen die Datenbank erstellt und gefüllt wird.<\/li>\n
- Den XAML-Code für das gewünschte Detailformular, zum Beispiel frmKundendetails<\/b>, mit dem folgenden Aufruf der Prozedur FormularNachWPF <\/b>in die Zwischenablage kopieren: FormularNachWPF “frmKundendetails”, “tblKunden”<\/b><\/li>\n
- Den Inhalt der Zwischenablage in das Fenster MainWindow.xaml <\/b>kopieren (oder in ein anderes, neues Fenster)<\/li>\n
- Den VB-Code für die Code behind-Datei mit dem folgenden Aufruf der Prozedur FormularNachWPF_CodeBehind <\/b>in die Zwischenablage kopieren: FormularNachWPF_CodeBehind “frmKundendetails”, “Kunde”, “Kunden”, “BestellverwaltungContext”<\/b><\/li>\n
- Den Inhalt der Zwischenablage in das Code behind-Modul MainWindow.xaml.vb <\/b>oder das entsprechende andere Code behind-Modul kopieren.<\/li>\n<\/ul>\n
Das Ergebnis nach dem Start der Anwendung sieht wie in Bild 1 aus. Hier wollen wir nun die Schaltflächen zum Blättern in den Datensätzen hinzufügen.<\/p>\n
![\"Fenster](\"..\/fileadmin\/_temp_\/2019_02\/pic_174_001.png\")
<\/p>\nBild 1: Fenster ohne Schaltflächen zum Blättern<\/span><\/b><\/p>\n
Schaltflächen hinzufügen<\/h2>\n
Die Schaltflächen fügen wir in einem Element namens StackPanel <\/b>hinzu, das ein Container für nebeneinander oder übereinander angeordnete Steuer-elemente ist. Dieses Element füllen wir mit fünf Button<\/b>-Elementen, deren Code wir wie folgt ergänzen:<\/p>\n
<StackPanel Orientation=\"Horizontal\" HorizontalAlignment=\"Left\" Height=\"28\" Margin=\"0,273,0,0\" VerticalAlignment=\"Top\" Width=\"339\">\r\n <Button x:Name=\"btnErster\" Content=\"<<\" Click=\"btnErster_Click\" Width=\"25\" Margin=\"2,2,2,2\"\/>\r\n <Button x:Name=\"btnVorheriger\" Content=\"<\" Click=\"btnVorheriger_Click\" Width=\"25\" Margin=\"2,2,2,2\"\/>\r\n <Button x:Name=\"btnNaechster\" Content=\">\" Click=\"btnNaechster_Click\" Width=\"25\" Margin=\"2,2,2,2\"\/>\r\n <Button x:Name=\"btnLetzter\" Content=\">>\" Click=\"btnLetzter_Click\" Width=\"25\" Margin=\"2,2,2,2\"\/>\r\n <Button x:Name=\"btnNeu\" Content=\"*\" Click=\"btnNeu_Click\" Width=\"25\" Margin=\"2,2,2,2\"\/>\r\n<\/StackPanel><\/pre>\n
Dabei müssen die Kleiner- und Größer-Zeichen im Code in der Eigenschaft Content<\/b> decodiert werden, und zwar das Größer-Zeichen als < <\/b>und das Kleiner-Zeichen als ><\/b>. Für jede Schaltfläche haben wir ein Attribut namens Click <\/b>angelegt, für das wir den Namen der beim Anklicken auszuführenden Ereignismethode angeben. Um die Eigenschaft schnell zu füllen, geben Sie das erste Anführungszeichen ein und wählen dann den IntelliSense-Eintrag Neuer Ereignishandler <\/b>aus. Dadurch werden dann auch direkt die entsprechenden, noch leeren Ereignismethoden in der Code behind-Klasse erstellt.<\/p>\n
Anzeigen des ersten Datensatzes<\/h2>\n
Damit beim Öffnen des Fensters direkt der erste Datensatz der Datenherkunft angezeigt wird, haben wir eine Konstruktor-Methode hinterlegt, welche die folgenden Befehle ausführt. Als Erstes füllen wir dabei die Variable dbContext <\/b>mit einer neuen Instanz unserer Context-Klasse BestellverwaltungContext<\/b>. Dann füllen wir die Auflistung Kunden <\/b>mit einer ObservableCollection<\/b>, die alle Einträge des DbSet<\/b>-Objekts Kunden <\/b>liefert. Schließlich füllen wir die Eigenschaft Kunde <\/b>mit dem ersten Element der Auflistung Kunden <\/b>(Kunden.First()<\/b>) und füllen auch noch die Auflistung Anreden<\/b>, welche die Datensätze für das ComboBox<\/b>-Element Anreden <\/b>enthält:<\/p>\n
Public Sub <\/span>New()\r\n InitializeComponent()\r\n dbContext = New<\/span> BestellverwaltungContext\r\n Kunden = New<\/span> ObservableCollection(Of Kunde)(dbContext.Kunden)\r\n Kunde = Kunden.First()\r\n Anreden = New<\/span> List(Of Anrede)(dbContext.Anreden)\r\n DataContext = Me\r\nEnd Sub<\/span><\/pre>\nEreignismethoden füllen<\/h2>\n
Damit zeigt das Fenster nun immer den ersten Datensatz an. Wir wollen aber mit den bereits angelegten Schaltflächen zwischen den Datensätzen navigieren können. Dazu schauen wir uns zunächst an, wie wir vom aktuellen Datensatz zum nächsten Datensatz gelangen, also zum zweiten Datensatz der ObservableCollection <\/b>namens Kunden<\/b>.<\/p>\n
Das Problem ist, dass wir nicht durch eine ObservableCollection navigieren können wie etwa durch ein Recordset und seinen Methoden MoveNext<\/b>, MovePrevious <\/b>und so weiter. Wir können aber immerhin die Methode Item() mit dem gewünschten Index nutzen, um ein anderes Element zu referenzieren. Im folgenden Code-Beispiel weisen wir der Variablen Kunde <\/b>etwa das zweite Element der Kundenliste zu:<\/p>\n
Private Sub <\/span>btnNaechster_Click(sender As Object<\/span>, e As <\/span>RoutedEventArgs)\r\n Kunde = Kunden.Item(1)\r\nEnd Sub<\/span><\/pre>\nWenn wir das Projekt nun allerdings starten und auf die Schaltfläche btnNaechster <\/b>klicken, wird immer noch der erste Datensatz angezeigt.<\/p>\n
Der Grund ist schnell gefunden: Wir haben keinerlei Mechanismus implementiert, der dafür sorgen würde, dass Änderungen an dem in der Eigenschaft Kunde <\/b>gespeicherten Element sich auf die Benutzeroberfläche auswirken beziehungsweise die Daten eines neu zugewiesenen Kunde<\/b>-Elements angezeigt würden. Für diesen Fall ist die Schnittstelle INotifyPropertyChanged <\/b>vorgesehen. Diese müssen wir in der Code behind-Klasse implementieren. Dazu fügen wir zunächst einen Verweis auf den Namespace System.ComponentModel <\/b>hinzu:<\/p>\n
Imports System.ComponentModel<\/pre>\n
Die Schnittstelle INotifyPropertyChanged <\/b>müssen wir nun für die Klasse frmKundendetails <\/b>implementieren. Dazu hängen wir in der Zeile unter der Definition der Klasse die folgende Zeile an:<\/p>\n
Public Class<\/span> frmKundendetails\r\n Implements INotifyPropertyChanged\r\n ...\r\nEnd Class<\/span><\/pre>\nAnschließend klicken Sie mit der rechten Maustaste auf INotifyPropertyChanged<\/b>, wählen den Kontextmenü-Eintrag Schnellaktionen und Refactorings… <\/b>aus und klicken dann auf Schnittstelle implementieren <\/b>(siehe Bild 2). Daraufhin fügt Visual Studio die folgende Anweisung zur Klasse hinzu:<\/p>\n
![\"Implementieren](\"..\/fileadmin\/_temp_\/2019_02\/pic_174_002.png\")
<\/p>\nBild 2: Implementieren der Schnittstelle INotifyPropertyChanged<\/span><\/b><\/p>\n
Public <\/span>Event PropertyChanged As <\/span>PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged<\/pre>\nNun müssen wir noch dafür sorgen, dass dieses Ereignis beim Ändern der Eigenschaft Kunde <\/b>ausgelöst wird. Das erreichen wir durch Hinzufügen einer Zeile zur Definition der entsprechenden Property:<\/p>\n
Public Property <\/span>Kunde\r\n Get\r\n Return _Kunde\r\n End Get\r\n Set<\/span>\r\n _Kunde = Value\r\n RaiseEvent PropertyChanged(Me, New<\/span> PropertyChangedEventArgs(\"Kunde\"))\r\n End Set<\/span>\r\nEnd Property<\/span><\/pre>\nWenn wir nun das Projekt neu starten und mit der Schaltfläche btnNaechster <\/b>den Kunden wechseln wollen, wird dieser auch angezeigt.<\/p>\n
Hinweis: <\/b>Diese Änderung wurde bereits in den Code zum Erstellen der Code behind-Klasse von Access aus hinzugefügt.<\/p>\n
Erster, vorheriger, nächster und letzter Datensatz<\/h2>\n
Damit können wir uns nun im Detail um die vier Schaltflächen btnErster<\/b>, btnVorheriger<\/b>, btnNaechster <\/b>und btnLetzter <\/b>kümmern. Den ersten Kunden finden wir leicht über die Methode First <\/b>der Kunden<\/b>-Auflistung. Also füllen wir die Methode btnErster_Click <\/b>wie folgt:<\/p>\n
Private Sub <\/span>btnErster_Click(sender As Object<\/span>, e As <\/span>RoutedEventArgs)\r\n Kunde = Kunden.First\r\nEnd Sub<\/span><\/pre>\nMöchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\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 - Neues Element des Typs ADO.NET Entity Data Model <\/b>namens BestellverwaltungContext <\/b>mit der Vorlage Leeres Code First-Modell <\/b>hinzufügen.<\/li>\n