Wirtschaftsinformatik 1
Prof. Dr. Thomas Off
K
(Bitte wenden)
Seite 1 von 2 beuth_wi1_test3_k_v1-1.docx
Test Nr. 3
Anrede Frau Herr _______ Datum: 01.01.2001
Name, Vorname Mustermann,Michael MatrikelNr: 12345 Ich möchte das Ergebnis meines Tests per E-Mail an nachfolgende Adresse erhalten:
E-Mailadresse: m.mustermann@gmx.de
(Schreiben Sie deutlich. Lassen Sie die Angabe leer, wenn Sie keine Mail von Prof. Off wollen.)
Summe: / 45 Punkte
Halten Sie Ihren Studierendenausweis bereit. Es sind keine Hilfsmittel zulässig. Abschreiben oder Abgucken sind nicht gestattet - auch der Versuch führt zum Ausschluss vom Test.
Aufgabe 1 ___ / 12 Punkte
Scheiben Sie im folgenden Modul mdlBenutzer eine öffentliche Prozedur login, die einen Benutzernamen und ein Passwort übergeben bekommt. Die Prozedur soll prüfen, ob der übergebene Benutzername „admin“ und das übergebene Passwort „geheim“ ist. Wenn ja, dann soll in einem einfachen Meldungsfenster „Willkommen!“ angezeigt werden. In allen anderen Fällen soll in einem einfachen Meldungsfenster „Fehler!“ angezeigt werden. Das Modul mdlBenutzer beginnt hier:
Option Compare Database Option Explicit
'1P Public, 0.5P Sub, 0.5 Bezeichner
'2P alle Parameterbezeichner, 2P alle As+Datentyp
Public Sub login(pstrUser As String, pstrPasswort As String)
'0.5P If+Bedingung+Then+Else+End If '2x2P Parameterverwendung in Bedingung
If pstrUser = "admin" And pstrPasswort = "geheim" Then MsgBox ("Willkommen!") '0.5P
Else
MsgBox ("Fehler!") '0.5P End If
End Sub '0.5P
Wirtschaftsinformatik 1
Prof. Dr. Thomas Off
K
Seite 2 von 2 beuth_wi1_test3_k_v1-1.docx
Aufgabe 2 ___ / 33 Punkte
Gegeben ist das folgende Formular. Die Namen der Oberflächenelemente sind angegeben. Schreiben Sie zwei Ereignisprozeduren. Als erstes eine Ereignisprozedur, die aufgerufen wird, wenn der Benutzer auf die Schaltfläche
"Zurück" klickt. Sie soll das Fenster
„frmStart“ öffnen. Die zweite
Ereignisprozedur soll aufgerufen werden, sobald der Benutzer auf die Schaltfläche
„Anmelden“ klickt. Ermitteln Sie dann die in den Textfeldern "Benutzername" und
"Passwort" eingegebenen Texte. (Gehen Sie davon aus, dass dort immer ein Text eingegeben wurde.) Rufen Sie die Prozedur im Modul mdlBenutzer (aus Aufgabe 1) auf und übergeben Sie diese Werte als Parameter.
Option Compare Database Option Explicit
'2P Private, 1P Sub, 2P Bezeichner, 2P Ereignis Private Sub btnCancel_Click()
'1P DoCmd.OpenForm, 1P Formularname DoCmd.OpenForm "frmStart"
End Sub '0.5P
'2P Private, 1P Sub, 2P Bezeichner, 2P Ereignis Private Sub btnLogin_Click()
' 0.5P alle Deklarationen inkl. passender Datentypen Dim strBenutzer As String
Dim strPasswort As String
' 0.5P Let+Bezeichner+Zuweisung ' 1P Me, 2x2.5P Bezeichner, 1P Value Let strBenutzer = Me.txtUser.Value Let strPasswort = Me.txtPassword.Value
'2P Call, 1P Modul, 2P Bezeichner, '3P Parameterüberabe für alle Parameter
Call mdlBenutzer.login(strBenutzer, strPasswort)
End Sub '0.5P