Formulario para Validar Usuario y Contraseña

Les comento que solo me falta solo colocar el formulario de acceso para la aplicación y listo he terminado entre las preguntas hay un experto (Raven) que ya respondió este tipo de cuestionamiento y trabaje con el código que el publico y funciono perfecto solo que lo más raro o extraño es que no necesito colocar el usuario y la contraseña si no que en el momento de ejecutar el form los coloca y me da acceso les publico el código que el puso para saber donde esta el error por así decirlo sin afán de ofender al experto que lo publico

local cNom_Usuar, cContraseña, nMensaje &&Declara variables&&
USE usuario EXCLUSIVE
select Usuario
cNom_Usuar=alltrim(thisform.txtNom_usuar.value)&&Asigna valor a variables&&
cContraseña=alltrim(thisform.txtContraseña.value)
Select Usuario
go top
Locate for alltrim(Nom_usuar)=alltrim(cNom_usuar)  
locate for Contraseña=cContraseña and len(alltrim(thisform.txtContraseña.value))=len(alltrim(Contraseña))
&&&&Busca secuencialmente en la tabla el primer registro que coincida con la&&
&&&&expresión lógica especificada.&&
IF !empty(cNom_usuar) and !empty(cContraseña)
If found()
Do FORM "Llama a tu form principal aki"
THISFORM.Release&&Cierra app y deja solo el form llamado&&
smensaje="Bienvenido al sistema"
_Screen.Scalemode= 0
WAIT WIND smensaje At Int(_Screen.Height/5), Int(_Screen.Width/3 - Len(smensaje)/2) TIMEOUT 1
else
nMensaje=messagebox("CONTRASEÑA INCORRECTA.............!" +CHR(13)+ "EL USUARIO NO EXISTE";
+CHR(13)+"ACCESO DENEGADO.........................!",0+16+0,"ACCESO DENEGADO")
clear event
clear windows
quit windows
set sysmenu to default
thisform.txtNom_usuar.value=""
thisform.txtContraseña.value=""
thisform.txtContraseña.setFocus
Endif
else
nMensaje=messagebox("Hay datos vacios",0+16+0,"ERROR / DATOS VACIOS")
QUIT WINDOWS &&Cierra aplicacion&&
ENDIF

Si me puede ayudar le agradecería de ante mano...

1 Respuesta

Respuesta
1

Lo que estas colocando es justamente el evento del botón ingresar, ya que las variables cNom_Usuar y cContraseña están siendo seteadas por medio de objetos de un formulario, portanto lo que debes de hacer es un formulario con dos textbox (usuario y contraseña) y un botón (Ingresar, login, Aceptar, etc), este código lo colocas en el evento clic del botón y solo lo adaptas para que llame a tu Menú principal, otro form, tu prg inicial etc.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas