
Mejor explicacion
Publicado por manuel campos (13 intervenciones) el 27/02/2001 15:56:51
MIra, el asunto es el siguiente:
1) Tengo una Forma que se debe mostrar al arrancar el sistema y quedarse alli 30 segundos
2) Tengo una form que hace la captura de password. Si esta correcto, modifica el valor de una variable
y se ejecuta otra forma, que actua como pantalla de base de mi aplicacion. En esa forma hay un menu.
Todo funciona bien mientras estas en VisualFox; pero cuando lo compilas a un EXE todo se ejecuta de una
sola vez.
Todas las formas las llamo desde un programa principal, asi:
public Ws_Indiend,Ws_Ok,Ws_IndiShow,WfecAct,Ws_Mess,Ws_Demo,Xleaser,Ws_Mpw,Ws_Ipx
Public Ws_PassWord,Ws_User,Ws_Nivel,WS_OK2,WS_TIMES
ws_indiend = .f.
Ws_Ok = .T.
Ws_Ok2 = .F.
WS_TIMES = 0
ON SHUTDOWN CLEAR EVENTS
do pr_checkuser (un procedimiento que chequea un dbf)
Do Form facceso with 2 to Ws_Ok (la forma de acceso)
if Ws_Ok (la variable que retorna el formulario)
Do Pr_Che3User (un procedimiento que chequea otra cosa)
do form ssplash (la forma principal, donde esta un menu)
*do form menup (una forma que es un menu)
read events
endif
ON SHUTDOWN
clear events
release all like Ws_Indiend,Ws_Ok,Ws_IndiShow,WfecAct,Ws_Mess,Ws_Demo,Xleaser,Ws_Mpw,Ws_Ipx
release all like Ws_PassWord,Ws_User,Ws_Nivel
close all
1) Tengo una Forma que se debe mostrar al arrancar el sistema y quedarse alli 30 segundos
2) Tengo una form que hace la captura de password. Si esta correcto, modifica el valor de una variable
y se ejecuta otra forma, que actua como pantalla de base de mi aplicacion. En esa forma hay un menu.
Todo funciona bien mientras estas en VisualFox; pero cuando lo compilas a un EXE todo se ejecuta de una
sola vez.
Todas las formas las llamo desde un programa principal, asi:
public Ws_Indiend,Ws_Ok,Ws_IndiShow,WfecAct,Ws_Mess,Ws_Demo,Xleaser,Ws_Mpw,Ws_Ipx
Public Ws_PassWord,Ws_User,Ws_Nivel,WS_OK2,WS_TIMES
ws_indiend = .f.
Ws_Ok = .T.
Ws_Ok2 = .F.
WS_TIMES = 0
ON SHUTDOWN CLEAR EVENTS
do pr_checkuser (un procedimiento que chequea un dbf)
Do Form facceso with 2 to Ws_Ok (la forma de acceso)
if Ws_Ok (la variable que retorna el formulario)
Do Pr_Che3User (un procedimiento que chequea otra cosa)
do form ssplash (la forma principal, donde esta un menu)
*do form menup (una forma que es un menu)
read events
endif
ON SHUTDOWN
clear events
release all like Ws_Indiend,Ws_Ok,Ws_IndiShow,WfecAct,Ws_Mess,Ws_Demo,Xleaser,Ws_Mpw,Ws_Ipx
release all like Ws_PassWord,Ws_User,Ws_Nivel
close all
Valora esta pregunta


0