Anmeldeformular

  • VB6

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von Unknown.

    Anmeldeformular

    Hallo, ich hab gerade mit VB angefangen.
    Jetzt versuche ich ein Anmeldeformular zu programmieren, das je nach Benutzername ein anderes Formular startet. Leider sagt der Debugger, dass ein If-Block ohne End If da wäre, aber ich finde keinen.

    Außerdem würde ich eine später eine SQL- Anbindung mit womöglich automatisch erstellter Tabelle von den Benutzern der Domäne und deren Passwörtern planen. Vielleicht könnt ihr mir dabei helfen.

    Hier erstmal fürs Formular:

    Visual Basic-Quellcode

    1. Option Explicit
    2. Public Rights As Integer
    3. Public LoginSucceeded As Boolean
    4. Public angemeldet As Boolean
    7. Private Sub cmdCancel_Click()
    8. 'Globale Variable auf False setzen,
    9. 'um eine fehlgeschlagene Anmeldung zu kennzeichnen.
    10. LoginSucceeded = False
    11. Me.Hide
    12. End Sub
    14. Private Sub cmdOK_Click()
    15. 'Rechte nach Benutzername setzen
    16. If txtUserName = "Lehrer" Then
    17. Rights = 1
    19. If txtUserName = "Schueler" Then
    20. Rights = 2
    22. Else
    23. MsgBox "Ungültiger Benutzername. Bitte versuchen Sie es noch einmal!", , "Anmeldung"
    24. txtUserName.SetFocus
    25. SendKeys "{Home}+{End}"
    26. End If
    28. 'Auf korrektes Kennwort überprüfen
    29. If txtPassword = "pass" And Rights > 0 Then
    30. LoginSucceeded = True
    32. rightsloader.Module_Load
    34. Me.Hide
    36. Else
    37. MsgBox "Ungültiges Kennwort. Bitte versuchen Sie es noch einmal!", , "Anmeldung"
    38. txtPassword.SetFocus
    39. SendKeys "{Home}+{End}"
    40. End If
    41. End Sub


    Und dann für das Modul zum Weiterleiten (Modulname:"rightsloader"):


    Visual Basic-Quellcode

    1. Option Explicit
    2. Public Rights As Boolean
    3. Public Sub Module_Load()
    4. If Rights = 1 Then
    5. LSCOLS.Show
    6. End If
    8. If Rights = 2 Then
    9. SSCOLS.Show
    10. End If
    12. End Sub



    *Topic verschoben*

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Jetzt weiß ichs, aber das Formular lädt es trotzdem nicht:

    Visual Basic-Quellcode

    1. Option Explicit
    2. Public Rights As Integer
    3. Public LoginSucceeded As Boolean
    4. Public angemeldet As Boolean
    7. Private Sub cmdCancel_Click()
    8. 'Globale Variable auf False setzen,
    9. 'um eine fehlgeschlagene Anmeldung zu kennzeichnen.
    10. LoginSucceeded = False
    11. Me.Hide
    12. End Sub
    14. Private Sub cmdOK_Click()
    15. 'Rechte nach Benutzername setzen
    16. If txtUserName = "Lehrer" Then
    17. Rights = 1
    19. ElseIf txtUserName = "Schueler" Then
    20. Rights = 2
    22. Else
    23. MsgBox "Ungültiger Benutzername. Bitte versuchen Sie es noch einmal!", , "Anmeldung"
    24. txtUserName.SetFocus
    25. SendKeys "{Home}+{End}"
    26. End If
    28. 'Auf korrektes Kennwort überprüfen
    29. If txtPassword = "pass" And Rights > 0 Then
    30. LoginSucceeded = True
    32. Me.Hide
    34. rightsloader.Module_Load
    38. Else
    39. MsgBox "Ungültiges Kennwort. Bitte versuchen Sie es noch einmal!", , "Anmeldung"
    40. txtPassword.SetFocus
    41. SendKeys "{Home}+{End}"
    42. End If

    Hey Ludwig,

    ich weiß nicht, ob Du Deinen Fehler inzwischen gefunden hast, aber hier ein Vorschlag, der ganz bestimmt funktioniert:

    Visual Basic-Quellcode

    1. Private Sub cmdOK_Click()
    2. Dim sMsg$
    3. sMsg = "Ungültiger Benutzername" ' Von ungültigem Benutzernamen ausgehen
    4. If CheckUsername > 0 Then ' Ist aber nicht; deswegen...
    5. sMsg = "Ungültiges Kennwort" ' Von ungültigem Kennwort ausgehen
    6. If CheckPassword Then ' Ist aber nicht; deswegen...
    7. LoginSucceeded = True
    8. rightsloader.Module_Load
    9. Me.Hide
    10. Exit Sub ' Da alles OK, aussteigen!
    11. End If
    12. End If
    13. ' sonst...
    14. MsgBox sMsg & ". Bitte versuchen Sie es noch einmal!", , "Anmeldung"
    15. SendKeys "{Home}+{End}"
    16. End Sub
    18. Private Function CheckUsername()
    19. txtUserName.SetFocus
    20. Select Case txtUserName.Text
    21. Case "Lehrer": CheckUsername = 1
    22. Case "Schueler": CheckUsername = 2
    23. Case Else: CheckUsername = 0
    24. End Select
    25. End Function
    27. Private Function CheckPassword()
    28. txtPassword.SetFocus
    29. CheckPassword = (txtPassword.Text = "pass")
    30. End Function


    Wie Du siehst, würde ich die Überpüfung in zwei getrennten Funktionen vornehmen; für die Auswertung gibt es dann ja mehrere Möglichkeiten.
    mfG DHB

    Ich meine:
    :P Es sollten nur ernstzunehmende Beiträge eingestellt werden!
    :( Beiträge, die nur deren Anzahl in die Höhe treiben sollen, stehlen Lesern deren Zeit und schenken nur Frust.
    ;) Wenn ein Autor sein Thema für erledigt hält, sollte er dies kurz als letzten Eintrag vermerken.
    8) Leser wüssten dann, dass hier weitere Beiträge nicht mehr sinnvoll sind.

    Das Problem ist die Verwendung von selben
    Variablennamen in unterschiedlichen Gültigkeits-
    bereichen. Du deklarierst Rights einmal in dem
    Modul und einmal in deiner Form. Die in dem
    Modul deklarierte Variable ist im ganzen Projekt
    sichtbar, die in der Form deklarierte Variable nur
    innerhalb der Form.

    Du darfst die Variable also nur in einem der beiden
    Module deklarieren. Deklarierst du sie in der Form,
    musst du im Modul über Formular.Rights auf die
    Variable zugreifen:

    Quellcode

    1. Public Sub Module_Load()
    2. If Formularname.Rights = 1 Then
    3. LSCOLS.Show
    5. Else
    6. SSCOLS.Show
    8. End If
    10. End Sub


    Deklarierst du die Variable nur im Modul, kannst
    du den restlichen Code unverändert lassen.

Facebook
Telefonspende