¿darle la bienvenida?

[principefreddy]

hola. sera que se puede hacer esto: que cuando una persona inicie sesion al sistema, en el menu le aparezca bienvenido (nombre de la persona)?

[David]

Depende, ¿de dónde obtendrías el nombre?. Podría ser, el nombre de usuario de Windows:

Código vb:

Label.Caption = "Bienvenido(a) " & Environ("UserName")
 

[principefreddy]

por ejemplo. de una tabla. por que antes de el usuario tener acceso al sistema debe registrarse como todo. entonces su nombre qued almacenado en una tabla.

[David]

Puedes almacenar en una variable pública (ya sea en un módulo o en el mismo formulario) el nombre que usó el usuario para registrarse o ingresar al sistema y a partir de ahí mostrarlo en cualquier lugar donde desees.

[aldo1982]

bue es un poco de iamginacion je... supongamos tenes 2 forms, el de login y el susesor al de login.

en el de login tienes 2 text (txt_usuario, txt_pass) y un boton de Aceptacion y en el formulario susesor tienes un label llamado datos_usuario

entonces haces una consulta a la tabla de usuarios (en el boton aceptar del fom de logeo)

Código:

Private Sub login_Click()

If txt_usuario.text = "" Then
    MsgBox "Debe ingresar su nombre de usuario", vbInformation, "Usuario"
    txt_usuario.SetFocus
    Exit Sub
End If
If txt_pass.text = "" Then
    MsgBox "Debe ingresar su contraseña de usuario", vbInformation, "Usuario"
    txt_pass.SetFocus
    Exit Sub
End If

Call conexion
Set rs = New ADODB.Recordset
sql_usu = "select id_usuario, id_permiso, activo, usuario, pass, nombre_apellido from usuarios where usuario = '" & Trim(txt_usuario.text) & "' and pass = '" & Trim(txt_pass.text) & "'"
rs.Open sql_usu, conectar
If Not rs.EOF Then
    If rs!activo = 1 Then
                    
        forSusesor.datos_usuario.Caption = "Usuario: [" & rs!usuario & ": " & rs!id_permiso & "] " & rs!nombre_apellido
               
        
        Unload inicio_login
        forSusesor.Show   
        
    
    End If
Else
    MsgBox "La contraseña o el nombre de usuario no es válido", vbInformation, "Usuario"
    Exit Sub
End If

... bue espero sirva la idea.


salu2