Ver Mensaje Individual
  #1 (permalink)  
Antiguo 19/01/2011, 13:26
Avatar de fallen61
fallen61
 
Fecha de Ingreso: enero-2011
Mensajes: 4
Antigüedad: 14 años, 2 meses
Puntos: 0
Login con Visual Basic.

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?