FoxPro/Visual FoxPro - pantalla de inicio

 
Vista:
sin imagen de perfil

pantalla de inicio

Publicado por eduardo (139 intervenciones) el 24/01/2010 14:24:27
Hola :

Tengo este codigo el cual es el programa principal de inicio de un proyecto:

CLOSE DATA ALL
SET DEFA TO d:\ADMTAXI2009
SET TALK OFF
SET SAFETY OFF
PUBLIC entra
entra=.F.

DO FORM fpassword WITH entra
READ EVENTS
IF entra
use parametros
sele parametros
ZOOM WINDOWS SCREEN MAX
_screen.visible=.T.
_screen.autocenter=.T.
_screen.backcolor=parametros.backcolor
_screen.Closable=.F.

_screen.caption="ADMINISTRACION DE TAXIS"

do MENUTAXI.MPR
READ EVENTS
endif

-----------
en el formulario fpassword ,tengo un boton aceptar,y en el evento click de l mismo,si la clave coincide ,devuelvo la variable entra con valor .T:
Lo que no puedo lograr es que al inicio del programa me aparezca solo el form de ingreso de password sin el menu de vfox atras,y al aceptar la clave me aparezca el menu que se ejecuta dentro del if.
desde ya gracias por leer el mensaje y por la ayuda
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:pantalla de inicio

Publicado por Jorge (45 intervenciones) el 25/01/2010 15:45:17
En el formulario fpassword, la propiedad ShowWindows debe estar en 2 , el Init de mismo pon:
_screen visible=.f.
Ahora cuando cierres el formulario, pones nuevamente:
_screen visible=.t.
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