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
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
0