Passwords/Usernames in the registry

[Tobyn]

Hey,
heres my code, i need a little help please

Dim CountClick As Integer
Dim X As Variant
Private Sub cmdOK_Click()
X = 1 Or "2" Or 3 Or 4 Or 5 Or 6 Or 7 Or 8 Or 9 Or 10
Dim bLoggedin As Boolean

    If txtuser = GetSetting(App.Title, "Setup", "user1" = txtuser) Then
        If txtpass = GetSetting(App.Title, "Setup", "pass1" = txtpass) Then
              bLoggedin = True
           ElseIf txtuser = GetSetting(App.Title, "Setup", "user2" = txtuser) Then
            ElseIf txtpass = GetSetting(App.Title, "Setup", "pass2" = txtpass) Then
                   bLoggedin = True
        ElseIf txtuser = GetSetting(App.Title, "Setup", "User3" = txtuser) Then
        ElseIf txtpass = GetSetting(App.Title, "Setup", "Pass3" = txtpass) Then
            bLoggedin = True
        ElseIf txtuser = GetSetting(App.Title, "Setup", "user4" = txtuser) Then
        ElseIf txtpass = GetSetting(App.Title, "Setup", "pass4" = txtpass) Then
            bLoggedin = True
        ElseIf txtuser = GetSetting(App.Title, "Setup", "user5" = txtuser) Then
        ElseIf txtpass = GetSetting(App.Title, "Setup", "pass5" = txtpass) Then
            bLoggedin = True
        ElseIf txtuser = GetSetting(App.Title, "Setup", "user6" = txtuser) Then
        ElseIf txtpass = GetSetting(App.Title, "Setup", "pass6" = txtpass) Then
            bLoggedin = True
        ElseIf txtuser = GetSetting(App.Title, "Setup", "user7" = txtuser) Then
        ElseIf txtpass = GetSetting(App.Title, "Setup", "pass7" = txtpass) Then
            bLoggedin = True
        ElseIf txtuser = GetSetting(App.Title, "Setup", "user8" = txtuser) Then
        ElseIf txtpass = GetSetting(App.Title, "Setup", "pass8" = txtpass) Then
            bLoggedin = True
        Else
            bLoggedin = False
        End If
    Else
        bLoggedin = False
    End If
    MsgBox IIf(bLoggedin, "Login Successful", "Login Failed")

End Sub


Private Sub Command1_Click()
CountClick = Label1.Caption + 1
SaveSetting App.Title, "Setup", "User" & CountClick, Text1
SaveSetting App.Title, "Setup", "Pass" & CountClick, Text2
Label1.Caption = CountClick
Label2.Caption = CountClick
End Sub
Private Sub exit_Click()
SaveSetting App.Title, "setup", "User#", CountClick
SaveSetting App.Title, "setup", "Pass#", CountClick
End
End Sub

Private Sub Form_Load()
Label1.Caption = GetSetting(App.Title, "setup", "User#")
Label2.Caption = GetSetting(App.Title, "setup", "Pass#")
End Sub

Does this look a little screwy? i've got parts right, but i think the pword check is not quite right,
how might i go about this so that it will werk? there must be an easier way to do the password check, i was trying to make
X = 1 thru 100
but it wouldn't werk please help

Thanks,
Tobyn

[This message has been edited by Tobyn (edited 11-05-1999).]

[Aaron Young]

Why don't you use a For..Next Loop, eg.

For X = 1 To 10
    If txtUser = GetSetting(App.Title, "Setup", "user" & X) And txtPass = GetSetting(App.Title, "Setup", "pass" & X) Then 
        bLoggedIn = True
        Exit For
    End If
Next

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]