Contraseña

Hola a todos, mi duda es la sig.: quiero usar una contraseña, para abrir un form.
El usuario y la contraseña las tengo guardas en una tabla.
Tengo incluso la idea del código, pero no me funciona.
Alguien me podría ayudar con este problemita.
Gracias. Bye.

1 respuesta

Respuesta
1
Dime como estás llamado el código, así como lo planteas es difícil adivir vual sea el problema.
Hola.
Ya lo había usado antes, sino que empecé este proyecto. Y no se que le pude haber cambiado. No recuerdo el código bien.
select conmaestros
U=alltrim(thisform.text1.value)
C=alltrim(thisform.text2.value)
locate for Usuario=U
if found ()
if Clave=C
do form maestro
else
x=MESSAGEBOX("CLAVE INCORRECTA",16,"ERROR")
endif
else
x=MESSAGEBOX("USUARIO NO ENCONTRADO",16,"ERROR")
Endif
THISFORM.REFRESH
Lo mando llamar con un botón de comando.
Adiós., gracias.
No se que error te marque o a que te refieras con que no funciona, de cualquier manera checa si es que tus claves son CASE SENSITIVE, además le hice unas pequeñas correcciones.
U=alltrim(thisform.text1.value)
C=alltrim(thisform.text2.value)
locate for conmaestros.Usuario=U
if found ()
if conmaestros.Clave=C
do form maestro
else
x=MESSAGEBOX("CLAVE INCORRECTA",16,"ERROR")
endif
else
x=MESSAGEBOX("USUARIO NO ENCONTRADO",16,"ERROR")
Endif

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Intentos fallidos espere para volver a ingresar

La verdad soy nuevo programando en VFP Bueno tengo un formulario de inicio de sesión con dos cuadros de textos y dos botones de comando (aceptar y cancelar), quisiera saber como hago para que cuando tenga 3 intentos fallidos bien sea en Usuario y/o...
1 respuesta

Comparar dos cadenas

Tengo un form de validación que usa la tabla usuario y no puedo comparar el valor del campo usuario con el del text1. Aunque coincida el usuario no entra al if: do while !eof() if usuario = thisform.text1.value Messagebox("Entre al if") Endif Skip Enddo
1 respuesta

Comando locate en foxpro

Estoy iniciando en foxpro antes usaba visual basic. USE "C:\Documents and Settings\Administrador\Mis documentos\Visual FoxPro Projects\usuarios.dbf" rpassword=thisform.text1.Text Locate for clave = rpassword IF FOUND() then MESSAGEBOX("Bienvenido(a)...
2 respuestas

Usuario y Contraseña validar

Quiero hacer un proyecto pero para poder acceder a ello tenque hacer un formulario login donde me pida el nombre de usuario y contraseña para ppoder acceder al formulario principal y que el nombre de usuario y contraseña que de guardado para cada...
1 respuesta

Buscar datos en una tabla

Nuevamente yo haciendo una consulta. Tengo una Tabla y un Formulario; En la Tabla están los campos "Usuario" y "Contraseña". En el Formulario tengo dos (2) Textos y un botón de comando. Bueno la cuestión es que deseo ingresar en el Text1 el "Usuario"...
1 respuesta

Busqueda CON SEEK

Programadores requiero de su ayuda, he creado un indice con mis campos sede+dtoc(fecha de ingreso)+cod_cli, el primero y el segundo son de tipo char, entonces cuando presiono guardar quiero que busque en la tabla si los registros son iguales y que el...
2 respuestas

Set focus no me funciona

Te agradecería mucho si me puedes ayudar con esta duda: Tengo un formulario que contiene 4 cuadros de texto: código, nit, nombre y dirección. Lo que necesito es que cuando este posicionado en código, los tres cuadros siguientes se desactiven, y que...
1 respuesta

Codigo mas conveniente para botones para touch validando numeros

El textbox y los botones estan en el mismo formulario... En el textbox en lostfocus tengo el siguiente codigo: SET ESCAPE OFF *SET DEFAULT TO C:\VSEEK\ USE Demages ORDER pin SEEK(thisform.ppin.value) IF FOUND() thisform.pPin.Value=Demages.Pin...
2 respuestas