Problemas con form para contraseña
Publicado por Amado Garcia Lara (63 intervenciones) el 20/12/2006 16:09:43
Tengo un Form llamado "Acceso.scx" con el cual deseo iniciar mi aplicacion llamada "SEGURIDAD.PRG", en el evento click del Boton "aceptar" tengo el codigo para validar los usuarios de una tabla y este funciona bien.. asi.
****PARTE DEL FORM "ACCESO
if alltrim(thisform.cpass.value)<> alltrim(usuarios.contrasena)
messagebox ("SU CONTRASEÑA ES INCORRECTA",64," ACCESO DENEGADO...! ")
nocaciones = nocaciones + 1
Thisform.Datos()
if nocaciones=3
m.entrada=.f.
thisform.release
quit
endif
return (.f.)
else
messagebox(" BIENVENIDO: " +usuarios.NOMBRE,64, " Dirección General de Seguridad Pública Municipal ")
do seguridad <-------------------------------------- EL PROBLEMA ES AQUI..
thisform.release
endif
**********************************************
Al cargar el Programa "Seguridad.prg" que es el principal, queda abierto el form "acceso",
como logro desaparecer el form acceso despues de cargar el prg principal o de donde debo cargar el form acceso ya que si lo pongo en el prg principal "seguridad.prg" este se carga hasta read event como se muestra en el siguiente codigo que es parte del programa principal..
*********** PARTE DEL PROGRMA PRINCIPAL "SEGURIDAD.PRG" *******************
_Screen.Picture = "C:\seguridad\images\FONDO041.jpg"
DEFINE WINDOW w_Output ;
FROM 0,0 TO 25,70 ;
TITLE 'Informes - BCN' ;
CLOSE FLOAT GROW ZOOM SYSTEM
if wexist("Estándar")
hide window ("Estándar")
endif
*do form acceso && DUDO SI CARGARLO DE AQUI O DE AFUERA
do form presentacion
do menseguridad.mpr <----------- LLEGA HASTA AQUI PERO QUEDA ABIERTO ACCESO.
read events
_vfp.caption="Visual FoxPro"
*************************************
Les agradecere bastante su ayuda.. ya que es lo unico que me falta para que funcione mi aplicacion...
1000 gracias
****PARTE DEL FORM "ACCESO
if alltrim(thisform.cpass.value)<> alltrim(usuarios.contrasena)
messagebox ("SU CONTRASEÑA ES INCORRECTA",64," ACCESO DENEGADO...! ")
nocaciones = nocaciones + 1
Thisform.Datos()
if nocaciones=3
m.entrada=.f.
thisform.release
quit
endif
return (.f.)
else
messagebox(" BIENVENIDO: " +usuarios.NOMBRE,64, " Dirección General de Seguridad Pública Municipal ")
do seguridad <-------------------------------------- EL PROBLEMA ES AQUI..
thisform.release
endif
**********************************************
Al cargar el Programa "Seguridad.prg" que es el principal, queda abierto el form "acceso",
como logro desaparecer el form acceso despues de cargar el prg principal o de donde debo cargar el form acceso ya que si lo pongo en el prg principal "seguridad.prg" este se carga hasta read event como se muestra en el siguiente codigo que es parte del programa principal..
*********** PARTE DEL PROGRMA PRINCIPAL "SEGURIDAD.PRG" *******************
_Screen.Picture = "C:\seguridad\images\FONDO041.jpg"
DEFINE WINDOW w_Output ;
FROM 0,0 TO 25,70 ;
TITLE 'Informes - BCN' ;
CLOSE FLOAT GROW ZOOM SYSTEM
if wexist("Estándar")
hide window ("Estándar")
endif
*do form acceso && DUDO SI CARGARLO DE AQUI O DE AFUERA
do form presentacion
do menseguridad.mpr <----------- LLEGA HASTA AQUI PERO QUEDA ABIERTO ACCESO.
read events
_vfp.caption="Visual FoxPro"
*************************************
Les agradecere bastante su ayuda.. ya que es lo unico que me falta para que funcione mi aplicacion...
1000 gracias
Valora esta pregunta


0