<\/p>\n
Die Auswahl der Artikel ist getätigt, der Warenkorb gefüllt, der Kassenvorgang abgeschlossen und eine Bestellbestätigung versandt worden. Welche Vorgänge nun noch für den in Access fingierten Webshop zu vollziehen sind, findet sich hier im letzten Beitrag zur Reihe. Vornehmlich hat der Vertrieb nun das Wort, damit die Ware zum Versand kommt.<\/p>\n
Die Beispiele dieses Artikels finden Sie in der Datenbank 1702_WebshopIII.zip<\/b>.<\/p>\n
Der Beitrag setzt die Serie aus den Ausgaben 08\/2016<\/b> und 10\/2016<\/b> fort.<\/p>\nAlte Bestellungen einsehen<\/h2>\n
Beim Öffnen des zentralen Shop-Formulars frmShop<\/b> wird, wie früher bereits ausgeführt, aus einem Cookie die ID<\/b> des Kunden ausgelesen, der den Shop zuletzt besuchte. Das übernimmt die vom Beim Laden<\/b>-Ereignis (Form_Load<\/b>) aufgerufene Funktion LoadTempVar<\/b>:<\/p>\n Sie liest aus der Datei cookie.txt<\/b> im Datenbankverzeichnis die beim letzten Schließen des Shops abgelegte ID<\/b>, um sie in der TempVar<\/b> „KundeID<\/b>“ zwischenzuspeichern. Diese ID<\/b> steht forthin für die Dauer der Sitzung allen weiteren Operationen zur Verfügung.<\/p>\n Sie wirkt sich etwa aus, wenn in der rechten oberen Ecke des Shops der Button Meine Bestellungen…<\/b> angeklickt wird. Der für das Click<\/b>-Ereignis hinterlegte Code findet sich in Listing 1. Zunächst erfolgt hier eine Überprüfung, ob die TempVar<\/b> überhaupt schon gefüllt ist, was genau dann nicht<\/b> der Fall ist, wenn sich ein Kunde zum ersten Mal im Shop bewegt. Ihr Wert beträgt dann 0<\/b>. In diesem Fall erscheint das Dialog-Formular für einen Login<\/b>, das nach Beendigung die TempVar<\/b> KundeID<\/b> selbst setzt, falls die Aktion nicht abgebrochen wird.<\/p>\n Listing 1: Aufruf der getätigten Bestellungen über den Button cmdBestellungen<\/p>\n Andernfalls kommt es zur Nachfrage nach einem neuen Login. Das könnte dann Sinn machen, falls der Kunde sich mit einer anderen E-Mail-Adresse anmelden möchte.<\/p>\n Wie auch immer: Nach dem Schließen der Dialoge kann KundeID<\/b> immer noch den Wert 0<\/b> besitzen, worauf die Routine sang- und klanglos verlassen wird. Sonst aber öffnet sich das Formular für die Bestellungen. Zuvor allerdings wird noch ein Label im Shop-Formular über die Prozedur ShowKunde<\/b> mit dem Namen des Users beschrieben, wofür eine DLookup<\/b>-Funktion zum Einsatz kommt (siehe Bild 1).<\/p>\n Bild 1: Im Kopf des Shop-Forumlar frmShop blendet sich eine Begrüßungformel mit dem Namen des Kunden ein<\/p>\n Das über die OpenForm<\/b>-Anweisung geladene Bestellungen-Formular frmBestellungen<\/b> wird gleich im Aufruf über den optionalen Parameter WhereCondition<\/b> nach der ID<\/b> des Kunden gefiltert. Die Datenbasis für dieses Formular ist direkt die Tabelle tblBestellungen<\/b>.<\/p>\n Allerdings spielt dies nur eine untergeordnete Rolle, denn das Formular selbst zeigt gar keine Daten an. Dies übernimmt ein im Detailbereich eingebetteter Unterbericht mit der Herkunft rptBestellungen<\/b> in Berichtsansicht (siehe Bild 2).<\/p>\n Bild 2: Die Entwurfsansicht des Berichts zur Einsicht in die getätigte Bestellungen<\/p>\n Lediglich die Verknüpfung von Formularfeld KundeID<\/b> zum Berichtsfeld KundeID<\/b> ist vorzunehmen. Natürlich hätte man statt des Berichts auch ein Unterformular verwenden können, doch ersterer gestattet mehr Gestaltungsspielraum. Schließlich geht es hier nur um die passive Darstellung von Daten, wofür ein Bericht in der Regel die erste Wahl ist.<\/p>\n Der Bericht enthält im Detailbereich die Felder für die Artikelnummer (ArtNr<\/b>), das Produkt, die Anzahl und den Bruttopreis einer Bestellposition. Das alles wird jedoch nach der Bestellung über deren Merkmal BestellID<\/b> gruppiert, wie der Gruppen-Dialog des Berichts in Bild 3 zeigt.<\/p>\n Bild 3: Der im Entwurf des Berichts unten eingeblendete Gruppen-Dialog<\/p>\n Außerdem sortieren dessen Einstellungen noch die Bestellungen nach dem Bestelldatum (BestellDat<\/b>). Im Fußbereich wird zu jeder Bestellung noch die Gesamtsumme<\/b> über den hinterlegten Ausdruck Summe([Brutto]) <\/b>ausgegeben.<\/p>\n Im Ergebnis finden wir also alle Bestellungen des eingeloggten Kunden in der Reihenfolge der Bestellungen nach Datum absteigend angezeigt.<\/p>\n In Bild 4 finden Sie die Bestellhistorie mit dem Bericht im Formular dargestellt. Sowohl Bericht, wie auch Formular, kommen ohne jeglichen VBA-Code aus. Lediglich die Schaltfläche zum Schließen des Formulars (Zurück zum Shop<\/b>) ist mit einer Close<\/b>-Anweisung hinterlegt.<\/p>\n Bild 4: Das Formular frmBestellungen zeigt alle Bestellungen im Überblick<\/p>\n Selbstverständlich sind alle Felder des Berichts schreibgeschützt. Der Status einer Bestellung steht in einem Kombinationsfeld auf Basis der Tabelle tblBearbeitungsStati<\/b>, gebunden an das Datenfeld IDStatus<\/b>.<\/p>\n Nach Abschluss des Kassenvorgangs hat der Shop hier automatisch den Wert 1<\/b> für Bestellung aufgegeben<\/b> eingesetzt. Die Aufgabe des Vertriebs ist es dann, diesen Wert zu ändern.<\/p>\n Bevor wir zu diesen Vorgängen kommen, fehlt noch der Bestätigungsbericht rptBestaetigung<\/b>, der nach Abschluss der Bestellung per Outlook<\/b> an den Kunden versandt wurde (siehe Bild 5).<\/p>\n Bild 5: Der Bericht zur Bestellbestätigung per E-Mail<\/p>\n Sein Entwurf (siehe Bild 6) ähnelt mit den Gruppierungsebenen im Prinzip jedem des Berichts für die Bestellhistorie, doch hier kommt zusätzlich noch die Kundenadresse ins Spiel, die im Seitenkopf ihren Platz findet.<\/p>\n Bild 6: Der Aufbau des Bestätigungsberichts gleicht dem der Bestellhistorie<\/p>\n Die Datenherkunft des Berichts (Abfrage qry_Kundenbestellung<\/b>) kommt entsprechend komplexer daher. Bild 7 zeigt die Abfrage mit ihren vier verknüpften Tabellen. Genaugenommen sind es nur drei, denn die Adresse des Kunden kommt selbst aus einer Abfrage qry_Kundenadressen<\/b>, welche die Aufgabe hat, aus Namen, Strasse PLZ und Ort den kompletten Adressblock per String-Verkettung zu bilden.<\/p>\n Bild 7: Die Datenherkunfsabfrage für den Bestätigungsbericht benötigt eine weitere Abfrage qry_Kundenadressen<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>LoadTempVar \"KundeID\"<\/pre>\n
Private Sub <\/span>cmdBestellungen_Click()\r\n If <\/span>TempVars(\"KundeID\") = 0 Then<\/span>\r\n DoCmd.OpenForm \"frmLogin\", , , , , acDialog\r\n Else<\/span>\r\n If <\/span>MsgBox<\/span>(\"Neu einloggen\", vbQuestion Or vbYesNo, sLogo) = vbYes Then<\/span>\r\n DoCmd.OpenForm \"frmLogin\", , , , , acDialog\r\n End If<\/span>\r\n End If<\/span>\r\n If <\/span>TempVars(\"KundeID\") = 0 Then<\/span> Exit Sub<\/span>\r\n ShowKunde\r\n DoCmd.OpenForm \"frmBestellungen\", , , \"KundeID=\" & TempVars(\"KundeID\")\r\nPrivate Sub <\/span>ShowKunde()\r\n Dim <\/span>sKunde As String<\/span>\r\n \r\n sKunde = DLookup(\"[Vorname] & ' ' & [Nachname]\", _\r\n \"tblKunden\", \"ID=\" & TempVars(\"KundeID\"))\r\n Me!LblKunde.Caption = \"Hallo, \" & sKunde\r\n Me!LblKunde.Visible = True<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Im](\"..\/tl_files\/images\/frmShop_Part.png\")
<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\nBestellbestätigung<\/h2>\n
<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 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