Login y password (imagen) en Visual 6.0 con Access

[lokoman]

Hola!!
Aqui tienes la base para que continues:

http://myfreefilehosting.com/f/ae891a8938_0.04MB

El codigo del form login:

Código vb:

Private Sub cmdAceptar_Click()
    If Trim(txtUsuario.Text) = "PROFE" Then
        If Trim(txtPassword.Text) = "1234" Then
            Nombre_Profe = "LOKOMAN"
            
            frmPrograma.Show
            Unload Me
        Else
            MsgBox "PASSWORD INVALIDO!!", vbInformation
            txtPassword.SetFocus
        End If
    Else
        MsgBox "USUARIO INVALIDO!!", vbInformation
        txtUsuario.SetFocus
    End If
End Sub
 

El codigo del form principal:

Código vb:

Sub Carga_Foto()
    If Len(Dir(App.Path & "\Foto_Profe1.jpg")) > 0 Then
        img.Picture = LoadPicture(App.Path & "\Foto_Profe1.jpg")
    Else
        img.Picture = Nothing
        lblErrorFoto.Caption = "No se encontró la foto del profe!!"
    End If
End Sub
 
Private Sub Form_Load()
    lblInformacion.Caption = "Bienvenido profe " & UCase(Mid(Nombre_Profe, 1, 1)) & LCase(Mid(Nombre_Profe, 2)) & " !!"
    
    Carga_Foto
End Sub
 

El codigo del modulo:

Código vb:

Public Nombre_Profe As String
 

Te dejo para que investigar:
• La conexión a la base de datos
• Hacer consultas a la base de datos con Recordsets

Simplemente debes ajustar a tus necesidades la base que te dejo, nos cuentas tus avances!!!