Hola amigos, tengo un problema al estar programando en VB 6.0
Tengo un formulario Login el cual tiene el siguiente codigo:
Código:
Private Sub cmdOK_Click()
Dim username, password As String
username = txtUserName
password = txtPassword
Open App.Path & "\user.txt" For Input As #2
If Trim(username) = Trim(txtUserName.Text) And Trim(password) = Trim(txtPassword.Text) Then
Unload Me
Form10.Show
'Close #1
'Open App.Path & "\user.txt" For Input As #1
'Input #1, username, password
ElseIf Trim(username) <> Trim(txtUserName.Text) And Trim(password) <> Trim(txtPassword.Text) Then
MsgBox " UserName or Password is wrong"
Unload Me
Load frmLogin
frmLogin.Show
Close #1
End If
Imagen del frmlogin:
Y tengo un formulario llamado Form5 el cual tiene este codigo
Código:
Private Sub Command1_Click()
Dim username As String, password As String
Dim duplicate As Boolean
'If Dir(App.Path & "\user.txt") = "" Then
GoTo adduser
Open App.Path & "\user.txt" For Input As #1
Do While Not EOF(1)
Input #1, username
If Trim(username) = Trim(txtUserName.Text) Then
'And Trim(pwd) = Trim(txtPassword.Text)
MsgBox "El Usuario ya existe"
Close #1
Exit Do
End If
Loop
Close #1
adduser:
Open App.Path & "\user.txt" For Append As #1
Write #1, Trim(txtUserName.Text), Trim(txtPassword.Text)
Close #1
MsgBox "Usuario creado."
MsgBox "Gracias por comprar."
Unload Me
frmLogin.Show
'Else
'adduser:
End Sub
Imagen del Form5:
Mi meta es lograr que en el Form5 se pueda agregar un usuario con su contraseña la cual las guarde en un archivo de texto (no importa la seguridad del mismo) y desde el frmLogin lea ese archivo, busque si el usuario existe y que si existe entre a la aplicacion X, en caso contrario de un mensaje de que el usuario no existe.
Con el Form 5 el uncio problema que tengo es que al existir un usuario lo reemplaza, y si no inserta una contraseña crea el usuario igualemten sin contraseña.
Que es lo que esta mal en mi codigo? Que debo cambiar?