Como mostrar el nombre del usuario logueado
Publicado por Joel Arvelo (47 intervenciones) el 16/09/2016 14:55:39
Buenas, necesito ayuda en una aplicacion que estoy desarrollando.
Mi aplicacion cuenta con un login conectado a una base de datos interna en dbf
La tabla en la que registro al usuario es asi:
tsdata
usuario
password
nivel
el codigo que utilizo para loguear es el siguiente:
La idea que quiero es que cuando acceda al sistema y ponga todos mis datos "Usuario & Password" al abrir el siguiente formulario INICIO, y los siguientes formularios, me muestre los datos del usuario logeado.
Hay alguna forma de hacerlo?
Apreciare enormemente la ayuda.
Mi aplicacion cuenta con un login conectado a una base de datos interna en dbf
La tabla en la que registro al usuario es asi:
tsdata
usuario
password
nivel
el codigo que utilizo para loguear es el siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
SELECT tsdata
SET ORDER TO usuario
SEEK(thisform.combo1.Value)
IF thisform.txtPassword.Value!=tsdata.password
MESSAGEBOX("Password Incorrecto, Intente de Nuevo",64,"Password")
thisform.txtPassword.Value=""
thisform.txtPassword.setfocus
thisform.canpass=thisform.canpass+1
IF thisform.canpass>3
MESSAGEBOX("Has Fallado 4 Veces de Entrar al Sistema, el Sistema se Cerrará",16,"Login Erroóneo")
thisform.ReleaseENDIF
RETURN 0
ELSE
MMNivel=tsdata.nivel
MMUserX=tsdata.usuario
thisform.Visible= .F.
thisform.ReleaseENDIF
La idea que quiero es que cuando acceda al sistema y ponga todos mis datos "Usuario & Password" al abrir el siguiente formulario INICIO, y los siguientes formularios, me muestre los datos del usuario logeado.
Hay alguna forma de hacerlo?
Apreciare enormemente la ayuda.
Valora esta pregunta
0
