leslie
30 de Marzo del 2006

COMO LE HAGO PARA QUE CUANDO EJECUTE EL FORMULARIO, EN UN LABEL VA A DECIR "INGRESE CONTRASEÑA" Y UN TEXTO DEBAJO DEL LABEL, EL FORMULARIO VA A ESTAR PEQUEÑO Y SI INGRESO LA CONTRASEÑA CORRECTA EL FORMULARIO SE EXPANDE PERO SI LA INGRESO MAL ME SALE UN MENSAJE DE ERROR Y ME CIERRA EL PROGRAMA.

Manuel
30 de Marzo del 2006

Haz un formulario pequeño que tenga dos TextBox: Usuario y contraseña. Y Dos botones: Aceptar y Cancelar. OJO: En el TextBox de Contraseña, debes tener la propiedad PasswordChar='*', para que no se vea lo que escribes.
Tienes dos opciones:
1. SIN TABLA DE USUARIOS
En este caso, debes definir un usuario y contraseña conocidos, y en el Click del botón Aceptar, le programas:
If NOT (thisform.Text1.Value='TUNOMBRE' and thisfrm.text2.value='TUCLAVE')
MESSAGEBOX("Lo siento. No está autorizado",0,"Denegado")
thisform.Text1.SetFocus
return
Else
thisform.release
Endif

2. CON TABLA DE USUARIOS
En el Entorno de Datos, agrégale tu tabla de usuarios.
Y en el click de Aceptar, le programas algo similar al anterios. Sólo que la busqueda la harás de la tabla.
SELECT USUARIOS
LOCATE FOR IDUSUARIO=thisform.Text1.Value AND pass=thisfrm.text2.value
IF NOT FOUN()
MESSAGEBOX("Lo siento. No está autorizado",0,"Denegado")
thisform.Text1.SetFocus
return
Else
thisform.release
Endif