Dim savefile As Long
savefile = FreeFile()
Open "I:\new-work\savedfile.txt" For Output As #savefile
Write #savefile, (Text1.Text); (Text2.Text)
Close #savefile

Dim uname As String, pwd As String
Dim is_matched As Boolean
 
If Trim(txtusername.Text) = "" Or Trim(txtpassword.Text) = "" Then
    MsgBox "Missing login info."
    txtusername.SetFocus
    Exit Sub
End If
 
is_matched = False
 
Open App.Path & "\user.txt" For Input As #1
    Do While Not EOF(1)
        Input #1, uname, pwd
        If Trim(uname) = Trim(txtusername.Text) And _
            Trim(pwd) = Trim(txtpassword.Text) Then
             is_matched = True
             Close #1
             Exit Do
        End If
    Loop
Close #1
 
If is_matched = True Then
    MsgBox "Valid login."
Else
    MsgBox "Invalid username or password." & vbCrLf & _
        "Please re-try..."
    txtusername.Text = ""
    txtpassword.Text = ""
    txtusername.SetFocus
End If

If (Len(txtusername.Text) < 4) Or (Len(txtpassword.Text) < 4) Then
    MsgBox "Minimum length not entered"
    Else
    MsgBox "You have Registered"
   response = MsgBox("Would you like to login now? , Press Cancel to Exit", vbOKCancel, "Note")
 
     If response = vbOK Then 'If user clicks OK then fologin form will display
fologin.Show
frmreg.Visible = False 'after clicking OK then this form will not be visible
 
 
Dim savefile As Long
savefile = FreeFile()
Open "G:\new-work\savedfile.txt" For Append As #savefile
    Write #savefile, (txtusername.Text); (txtpassword.Text)
Close #savefile
Exit Sub
 
 
    End If
End If

Dim user As String, pwd As String
Dim duplicate As Boolean
 
duplicate = False
 
If Dir(App.Path & "\user.txt") = "" Then
    GoTo adduser
Else
    Open App.Path & "\user.txt" For Input As #1
        Do While Not EOF(1)
            Input #1, user, pwd
            If Trim(user) = Trim(txtusername.Text) And Trim(pwd) = Trim(txtpasswd.Text) Then
                duplicate = True
                Close #1
                Exit Do
            End If
        Loop
    Close #1
 
    If duplicate = True Then
        MsgBox "username/password already exists."
    Else
adduser:
        Open App.Path & "\user.txt" For Append As #1
            Write #1, Trim(txtusername.Text), Trim(txtpasswd.Text)
        Close #1
        MsgBox "User created."
    End If
 
    txtusername.Text = ""
    txtpasswd.Text = ""
    txtusername.SetFocus
End If

Dim uname As String, pwd As String
Dim is_matched As Boolean
 
If Trim(frmreg.txtusername.Text) <> Label1.Caption Then
    MsgBox "should work"
    txtusername.SetFocus
 
Open App.Path & "G:\College Work ------- Updated 2008 March\new-work\savedfile.txt" For Input As #1
    Do While Not EOF(1)
        Input #1, uname
        If Trim(uname) = Trim(frmreg.txtusername.Text) Then
             is_matched = True
             Close #1
             Exit Do
        End If
    Loop
Close #1
    Exit Sub
End If