FoxPro/Visual FoxPro - Problemas con form para contraseña

 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problemas con form para contraseña

Publicado por neo (296 intervenciones) el 20/12/2006 16:24:07
Saludos...

Intenta escribir primero para cerrar el formulario de acceso y despues ejecuta el programa principal:

local user1
user1=usuarios.nombre
Wait Window "BIENVENIDO: " +SPACE(2)+user TIMEOUT 1.2
thisform.release
do seguridad
Endif

Te recomiendo, que utilices un Wait Window en lugar de un mensaje (messagebox) esto con el fin de que el usuario no utilice tantos botones...

Suerte►
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Problemas con form para contraseña

Publicado por Ernesto Hernandez (4623 intervenciones) el 20/12/2006 23:02:07
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"

En seguridad.prg al finalizar la rutina incluye un RETURN TO MASTER seguido de ThisForm.Release


Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar