![\"Verweis](\"..\/fileadmin\/_temp_\/2020_04\/pic_212_001.png\")
<\/p>\nNachdem wir die Funktionen zum Abrufen von Kontoständen und Umsätzen sowie für das Überweisen programmiert haben, können wir uns an den Entwurf einer Benutzeroberfläche für diese Funktionen begeben. Diese soll kompakte Formulare für die wichtigsten bereits behandelten Onlinebanking-Funktionen enthalten. Dazu gehört die Auswahl von Bankaccount und Konto sowie die Anzeige von Umsätzen und Kontostand. Dies erledigen wir im Hauptfenster der Anwendung. Ein weiteres Fenster erlaubt dann das Ausführen einer Überweisung für das aktuell im Hauptfenster ausgewählte Konto. Außerdem benötigen wir noch eine Tabelle, mit der wir die abgefragten Umsatzdaten speichern können. Diese fügen wir per Entity Framework hinzu.<\/b><\/p>\n
Voraussetzungen<\/b><\/p>\n
Voraussetzung für das Umsetzen der Lösung dieses Artikels ist das Vorhandensein einer DDBAC-Lizenz. Die damit nutzbaren Komponenten sind leider nicht mehr kostenlos verfügbar, sondern müssen lizensiert werden, bevor man diese in seine Produkte einbauen kann. Lizenzen finden Sie im Onlineshop unter https:\/\/shop.minhorst.com\/access-tools\/295\/ddbac-jahreslizenzc=78<\/b>. <\/b><\/p>\n
Vorbereitungen<\/b><\/p>\n
Als Projekt legen wir ein neues Projekt des Typs Visual Basic|Windows Desktop|WPF-App <\/b>an.<\/p>\n
Dann fügen wir ein neues Element des Typs ADO.NET Entity Data Model <\/b>hinzu. Dieses dient dazu, ein Entity Data Model zu erstellen und über dieses automatisch eine Datenbank mit der benötigten Tabelle zu generieren. Nachdem Sie mit dem Menü-befehl Projekt|Neues Element hinzufügen… <\/b>den Dialog Neues Element hinzufügen <\/b>geöffnet haben, tragen Sie den Namen des Entity Data Models ein (hier OnlinebankingContext<\/b>) und klicken auf Hinzufügen<\/b>. Im nun erscheinenden Assistent für Entity Data Model <\/b>wählen Sie den Typ Leeres Code First-Modell <\/b>aus. Wenige Sekunden später hat der Assistent die notwendigen Elemente hinzugefügt.<\/p>\n
Durch diesen Schritt haben wir außerdem direkt Änderungen an der Datei App.config <\/b>vorgenommen. Dort steht nun im Element connectionStrings <\/b>die Verbindungszeichenfolge, mit der wir später die Datenbank zum Speichern der Umsätze erstellen und verwenden.<\/p>\n
Außerdem benötigen wir noch eine Referenz auf die DDBAC-Komponenten, die den Zugriff auf Ihre Konten überhaupt erst ermöglichen. Dazu fügen Sie dem Projekt den Verweis aus Bild 1 hinzu.<\/p>\n
<\/p>\n
Bild 1: Verweis auf die DDBAC-Bibliothek<\/span><\/b><\/p>\n Kontostand anzeigen<\/b><\/p>\n Wir beginnen mit der Anzeige des Kontostands. Hier wollen wir in einem Fenster die Auswahl des Kontakts und anschließend des gewünschten Kontos erlauben. Per Klick auf eine Schaltfläche soll dann der Kontostand eingelesen und in einem Textfeld angezeigt werden. Wie Sie bereits in den vorherigen Artikeln erfahren haben, legen wir die Kontakte und Konten über die Systemsteuerung an, und zwar über die App Homebanking Administrator (32-Bit)<\/b>. Auf die dort angelegten und synchronisierten Elemente können wir dann per Code zugreifen.<\/p>\n Ein neues WPF-Fenster soll nun zunächst ein Kombinationsfeld zur Auswahl des Kontakts anbieten. Nachdem der Benutzer dort einen Eintrag ausgewählt hat, sollen die zum gewählten Kontakt gehörenden Konten in einem zweiten Kombinationsfeld angezeigt werden. Das passende Steuer-element für diesen Zweck ist jeweils das ComboBox<\/b>-Element. Also fügen wir zunächst zwei solche Elemente im Hauptfenster MainWindow.xaml <\/b>an. Damit die zusätzlich angelegten Bezeichnungsfelder optisch ansprechend dargestellt werden, erstellen wir zuvor einige Spalten und Zeilen im bereits vorhandenen Grid<\/b>-Element.<\/p>\n Klasse für die Kontakte anlegen<\/b><\/p>\n Die über die Systemsteuerung hinzufügten Onlinebanking-Kontakte lesen wir mithilfe der im Artikel Onlinebanking mit DDBAC: Saldo und Umsätze <\/b>beschriebenen Funktion ein, die wir jedoch leicht abwandeln. Die eingelesenen Daten sollen je Kontakt in einer neuen Instanz der nachfolgend beschriebenen Klasse landen:<\/p>\n Diese Klasse legen Sie als neues Element im Projekt an und speichern es unter Contact.vb<\/b>. Wir benötigen allerdings die INotifyPropertyChanged<\/b>-Schnittstelle in dieser Klasse, daher ändern wir diese wie folgt.<\/p>\n Wir fügen außerdem noch eine Eigenschaft namens BACContact <\/b>hinzu, mit der wir einen Verweis auf das BACContact<\/b>-Objekt speichern, aus dem wir die Eigenschaften der Klasse ausgelesen haben:<\/p>\n Klasse für die Konten anlegen<\/b><\/p>\n Die Klasse für die Konten sieht ähnlich aus wie die für die Kontakte. Auch hier implementieren wir die INotifyPropertyChanges<\/b>-Schnittstelle. Die Klasse bietet die Eigenschaften AccountNumber<\/b>, AcctName<\/b>, BIC <\/b>und IBAN <\/b>an. Darüberhinaus wollen wir das BACAccount<\/b>-Objekt, über das wir die Klasse füllen, mit den Instanzen der Klasse speichern. Die Klassendefinition sieht wie folgt aus:<\/p>\n Auflistung mit Kontakt-Elementen füllen<\/b><\/p>\n Wenn die Anwendung gestartet und somit das Fenster MainWindow.xaml <\/b>geöffnet wird, sollen die Kontakte aus der Systemsteuerung eingelesen und in jeweils eine neue Klasse des Typs Contact <\/b>geschrieben werden. Die neuen Instanzen wollen wir außerdem direkt zu einer Liste hinzufügen, die wir anschließend dem ersten ComboBox<\/b>-Element zuweisen können. Wir nutzen dazu eine Funktion namens GetBACContacts<\/b>, die eine Liste von Elementen des Typs BACContact <\/b>liefert. Diese fügen wir einem Modul namens DDBACObjects.vb <\/b>hinzu, dem wir außerdem noch per Imports<\/b>-Anweisung die Elemente des Namespace BankingApplicationComponents <\/b>hinzufügen.<\/p>\n Die folgende privat deklarierte Variable speichert die Contacts<\/b>-Auflistung zwischen, damit diese nicht bei jedem Zugriff erneut ausgelesen werden müssen:<\/p>\n Die Funktion GetBACContacts <\/b>liest die Kontakte mit den Methoden der DDBAC-Bibliothek aus der Systemsteuerung in die Variable m_BACContacts <\/b>ein. Diese wird dann anschließend auch als Ergebnis der Funktion zurückgegeben. Wenn m_BACContacts <\/b>bereits vorhanden ist, wird die Auflistung nicht erneut gefüllt. Einzige Ausnahme ist, wenn der Aufruf den Wert True <\/b>für den Parameter bolReset <\/b>enthält. In diesem Fall werden die Kontakte auf jeden Fall erneut eingelesen:<\/p>\n Damit haben wir mit GetBACContacts <\/b>eine Liste der BACContact<\/b>-Elemente eingelesen. Diese müssen wir nun noch in eine ObservableCollection <\/b>mit Elementen des oben definierten Typs Contact <\/b>umfüllen. Diese Liste wollen wir dann als Datenquelle des ersten ComboBox<\/b>-Elements in unserem Fenster verwenden. Diese Aufgabe übernimmt die Funktion GetContacts<\/b>. Sie erstellt eine neue ObservableCollection <\/b>in der Variablen objContacts<\/b>. Dann durchläuft sie eine For Each<\/b>-Schleife über alle BACContact<\/b>-Elemente, welche die oben beschriebene Funktion GetContacts <\/b>liefert. Innerhalb der Schleife legt sie ein neues Contact<\/b>-Element an (nicht zu verwechseln mit BACContact<\/b>), und schreibt die entsprechenden Werte in die Eigenschaften BankCode<\/b>, CountryCode <\/b>und UserID <\/b>sowie einen Verweis auf das aktuelle BACContact<\/b>-Objekt in die Eigenschaft BACContact<\/b>. Anschließend fügt sie das neu erstellte und gefüllte Objekt zur ObservableCollection hinzu:<\/p>\n Auflistung für die Konten füllen<\/b><\/p>\n Wenn der Benutzer in der gleich noch zu erstellenden ComboBox einen Kontakt ausgewählt hat, soll die zweite ComboBox die zu diesem Kontakt gehörenden Konten zur Auswahl anbieten. Deshalb benötigen wir analog zu den oben beschriebenen Funktionen GetBACContacts <\/b>und GetContacts<\/b> eine weitere Funktion.<\/p>\n Die Funktion GetBACAccounts <\/b>erwartet als Parameter ein BACContact<\/b>-Objekt, zu dem sie die BACAccount<\/b>-Objekte einlesen soll. Sie verwendet dann schlicht die Accounts<\/b>-Auflistung des BACContact<\/b>-Objekts, um die Liste in der Variablen m_Accounts <\/b>des Typs BACAccounts <\/b>zu speichern:<\/p>\n Wenn der Benutzer im ersten ComboBox<\/b>-Feld mit den Kontakten einen Eintrag ausgewählt hat, holen wir mit der folgenden Funktion die Daten zum Füllen des zweiten ComboBox<\/b>-Feldes zur Anzeige der Konten dieses Kontakts. Dabei verwenden wir auch hier als Parameter das BACContact<\/b>-Element des zu untersuchenden Kontaktes. Die Funktion erstellt als Erstes wieder eine neue ObservableCollection.<\/p>\n In einer For Each<\/b>-Schleife durchlaufen wir diesmal die mit der Funktion GetBACAccounts <\/b>geholten Konten. Innerhalb der For Each<\/b>-Schleife legen wir ein neues Objekt des Typs Account <\/b>an und weisen diesem die Werte für die Eigenschaften AccountNumber<\/b>, AcctName<\/b>, IBAN <\/b>und BIC <\/b>zu sowie einen Verweis auf das BACAccount<\/b>-Objekt dieses Kontos. Anschließend fügen wir es der ObservableCollection namens objAccounts <\/b>zu, die wir als Funktionsergebnis zurückliefern:<\/p>\n Fenster zur Anzeige der Auswahlfelder für Kontakte und Konten<\/b><\/p>\n Das Fenster soll im oberen Bereich zwei ComboBox<\/b>-Elemente zur Auswahl von Kontakten und Konten anzeigen. Im Kontakt-Kombinationsfeld wollen wir die UserID <\/b>und die Bankleitzahl <\/b>anzeigen. Das Konto-Auswahlfeld soll nur die IBAN anzeigen. Die Definition dieser beiden Steuer-elemente sieht wie folgt aus. Als Erstes das ComboBox<\/b>-Element cboContacts<\/b>, das an die Auflistung Contacts <\/b>gebunden ist, die wir gleich noch im Code behind-Modul definieren.<\/p>\n Das ComboBox<\/b>-Element hat außerdem ein Attribut für das Ereignis SelectionChanged<\/b>. Da wir zwei Felder im ComboBox<\/b>-Element anzeigen wollen, stellen wir diese in einem ItemTemplate <\/b>und den entsprechenden untergeordneten Elementen wie folgt dar:<\/p>\n Das zweite ComboBox<\/b>-Element für die Konten ist an die Liste Accounts <\/b>gebunden. Sie soll nur das Feld IBAN <\/b>anzeigen und löst ebenfalls das Ereignis SelectionChanged <\/b>aus:<\/p>\n Code behind-Klasse des Fensters<\/b><\/p>\n Die Code behind-Klasse verwendet die folgenden beiden Namespaces:<\/p>\n Außerdem implementiert sie die INotifyPropertyChanged<\/b>-Schnittstelle:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Public Class<\/span> Contact\r\n Public <\/span>BankCode As String<\/span>\r\n Public <\/span>CountryCode As String<\/span>\r\n Public <\/span>UserID As String<\/span>\r\nEnd Class<\/span><\/pre>\nImports System.ComponentModel\r\nPublic Class<\/span> Contact\r\n Implements INotifyPropertyChanged\r\n Public <\/span>Event PropertyChanged As <\/span>PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged\r\n Protected Overridable Sub OnPropertyChanged(propname As String<\/span>)\r\n RaiseEvent PropertyChanged(Me, New<\/span> PropertyChangedEventArgs(propname))\r\n End Sub\r\n Private <\/span>_bankCode As String<\/span>\r\n Private <\/span>_countryCode As String<\/span>\r\n Private <\/span>_userID As String<\/span>\r\n Private <\/span>_bACContact As <\/span>BACContact\r\n Public <\/span>Property BankCode As String<\/span>\r\n Get\r\n Return _bankCode\r\n End Get\r\n Set(value As String<\/span>)\r\n _bankCode = value\r\n OnPropertyChanged(\"BankCode\")\r\n End Set<\/span>\r\n End Property\r\n Public <\/span>Property CountryCode As String<\/span>\r\n Get\r\n Return _countryCode\r\n End Get\r\n Set(value As String<\/span>)\r\n _countryCode = value\r\n OnPropertyChanged(CountryCode)\r\n End Set<\/span>\r\n End Property\r\n Public <\/span>Property UserID As String<\/span>\r\n Get\r\n Return _userID\r\n End Get\r\n Set(value As String<\/span>)\r\n _userID = value\r\n OnPropertyChanged(\"UserID\")\r\n End Set<\/span>\r\n End Property\r\n Public <\/span>Property BACContact As <\/span>BACContact\r\n Get\r\n Return _bACContact\r\n End Get\r\n Set(value As <\/span>BACContact)\r\n _bACContact = value\r\n End Set<\/span>\r\n End Property\r\nEnd Class<\/span><\/pre>\nImports System.ComponentModel\r\nImports BankingApplicationComponents\r\nPublic Class<\/span> Account\r\n Implements INotifyPropertyChanged\r\n Public <\/span>Event PropertyChanged As <\/span>PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged\r\n Protected Overridable Sub OnPropertyChanged(propname As String<\/span>)\r\n RaiseEvent PropertyChanged(Me, New<\/span> PropertyChangedEventArgs(propname))\r\n End Sub\r\n Private <\/span>_accountNumber As String<\/span>\r\n Private <\/span>_acctName As String<\/span>\r\n Private <\/span>_bIC As String<\/span>\r\n Private <\/span>_iBAN As String<\/span>\r\n Private <\/span>_bACAccount As <\/span>BACAccount\r\n Public <\/span>Property AccountNumber As String<\/span>\r\n Get\r\n Return _accountNumber\r\n End Get\r\n Set(value As String<\/span>)\r\n _accountNumber = value\r\n OnPropertyChanged(\"AccountNumber\")\r\n End Set<\/span>\r\n End Property\r\n ... weitere Property-Eigenschaften\r\n Public <\/span>Property BACAccount As <\/span>BACAccount\r\n Get\r\n Return _bACAccount\r\n End Get\r\n Set(value As <\/span>BACAccount)\r\n _bACAccount = value\r\n End Set<\/span>\r\n End Property\r\nEnd Class<\/span><\/pre>\n Private <\/span>m_Contacts As <\/span>BACContacts<\/pre>\nPublic Function <\/span>GetBACContacts(Optional<\/span> bolReset As Boolean<\/span> = False<\/span>) As <\/span>BACContacts\r\n If <\/span>m_BACContacts Is Nothing Then<\/span>\r\n m_BACContacts = New<\/span> BACContacts\r\n m_BACContacts.Populate(\"\")\r\n Else<\/span>\r\n If <\/span>bolReset = True<\/span> Then<\/span>\r\n m_BACContacts.Populate(\"\")\r\n End If<\/span>\r\n End If<\/span>\r\n Return m_BACContacts\r\nEnd Function<\/span><\/pre>\nPublic Function <\/span>GetContacts() As <\/span>ObservableCollection(Of Contact)\r\n Dim <\/span>objContacts As <\/span>ObservableCollection(Of Contact)\r\n Dim <\/span>objContact As <\/span>Contact\r\n Dim <\/span>objBACContact As <\/span>BACContact\r\n objContacts = New<\/span> ObservableCollection(Of Contact)\r\n For Each objBACContact In GetBACContacts()\r\n objContact = New<\/span> Contact\r\n With<\/span> objContact\r\n .BankCode = objBACContact.BankCode\r\n .CountryCode = objBACContact.CountryCode\r\n .UserID = objBACContact.UserID\r\n .BACContact = objBACContact\r\n objContacts.Add(objContact)\r\n End With<\/span>\r\n Next<\/span>\r\n Return objContacts\r\nEnd Function<\/span><\/pre>\nPublic Function <\/span>GetBACAccounts(objBACContact As <\/span>BACContact) As <\/span>BACAccounts\r\n Return objBACContact.Accounts\r\nEnd Function<\/span><\/pre>\nPublic Function <\/span>GetAccounts(objBACContact As <\/span>BACContact) As <\/span>ObservableCollection(Of Account)\r\n Dim <\/span>objAccounts As <\/span>ObservableCollection(Of Account)\r\n Dim <\/span>objAccount As <\/span>Account\r\n Dim <\/span>objBACAccount As <\/span>BACAccount\r\n objAccounts = New<\/span> ObservableCollection(Of Account)\r\n For Each objBACAccount In GetBACAccounts(objBACContact)\r\n objAccount = New<\/span> Account\r\n With<\/span> objAccount\r\n .AccountNumber = objBACAccount.AccountNumber\r\n .AcctName = objBACAccount.AcctName\r\n .BIC = objBACAccount.BIC\r\n .IBAN = objBACAccount.IBAN\r\n .BACAccount = objBACAccount\r\n End With<\/span>\r\n objAccounts.Add(objAccount)\r\n Next<\/span>\r\n Return objAccounts\r\nEnd Function<\/span><\/pre>\n<Label Grid.Column=\"0\" Content=\"Kontakt:\"\/>\r\n<ComboBox x:Name=\"cboContacts\" Grid.Row=\"0\" Grid.Column=\"1\" Width=\"200\"\r\n ItemsSource=\"{Binding Contacts}\"\r\n SelectedValuePath=\"UserID\"\r\n SelectionChanged=\"CboContacts_SelectionChanged\">\r\n <ComboBox.ItemTemplate>\r\n <DataTemplate>\r\n <TextBlock>\r\n <TextBlock.Text>\r\n <MultiBinding StringFormat=\"{}{0} {1}\">\r\n <Binding Path=\"UserID\" \/>\r\n <Binding Path=\"BankCode\" \/>\r\n <\/MultiBinding>\r\n <\/TextBlock.Text>\r\n <\/TextBlock>\r\n <\/DataTemplate>\r\n <\/ComboBox.ItemTemplate>\r\n<\/ComboBox><\/pre>\n<Label Grid.Column=\"0\" Grid.Row=\"1\" Content=\"Konto:\"\/>\r\n<ComboBox x:Name=\"cboAccounts\" Grid.Row=\"1\" Grid.Column=\"1\" Width=\"200\"\r\n ItemsSource=\"{Binding Accounts}\"\r\n SelectedValuePath=\"IBAN\"\r\n SelectionChanged=\"CboAccounts_SelectionChanged\"\r\n DisplayMemberPath=\"IBAN\">\r\n<\/ComboBox><\/pre>\nImports System.Collections.ObjectModel\r\nImports System.ComponentModel<\/pre>\n
Class<\/span> MainWindow\r\n Implements INotifyPropertyChanged\r\n Public <\/span>Event PropertyChanged As <\/span>PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged\r\n Protected Overridable Sub OnPropertyChanged(propname As String<\/span>)\r\n RaiseEvent PropertyChanged(Me, New<\/span> PropertyChangedEventArgs(propname))\r\n End Sub<\/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