Porgama de inico
Hola keystone, estoy haciendo el programa principal para la aplicación
Estas lineas están en el programa inicio.prg
set talk off
set echo off
set date to british
set defa to "d:\compras"
set clock status
set dele on
set safe off
set cent on
clear all
close all
clear
cDir= SYS(5)+CURDIR()
cRuta= cDir+","+cDir+"datos\,"+cDir+"formu\,"+ +cDir+"menu\,"+cDir+"imagenes\,"
set path to &cRuta
do form "&cDir.\formu\frmacceso.scx"
OPEN DATABASE "&cDir.\datos\compras.dbc"
_screen.caption="Registro de Compras"
_screen.Icon =cDir+"iconos\color02g.ico"
_screen.windowstate=2
do "&cDir.\menu\registro.mpr"
read events
Cuando ejecuto el programa me sale el formulario de acceso y también me sale la barra de menús. Lo que intendo hacer es que cuando cargo el programa solo me salga el formulario para ingresar la clave y una vez que la clave es correcta recién me cargue el menu y todo lo demás, ¿hay alguna sugerencia sobre estas líneas de código?.
Estas lineas están en el programa inicio.prg
set talk off
set echo off
set date to british
set defa to "d:\compras"
set clock status
set dele on
set safe off
set cent on
clear all
close all
clear
cDir= SYS(5)+CURDIR()
cRuta= cDir+","+cDir+"datos\,"+cDir+"formu\,"+ +cDir+"menu\,"+cDir+"imagenes\,"
set path to &cRuta
do form "&cDir.\formu\frmacceso.scx"
OPEN DATABASE "&cDir.\datos\compras.dbc"
_screen.caption="Registro de Compras"
_screen.Icon =cDir+"iconos\color02g.ico"
_screen.windowstate=2
do "&cDir.\menu\registro.mpr"
read events
Cuando ejecuto el programa me sale el formulario de acceso y también me sale la barra de menús. Lo que intendo hacer es que cuando cargo el programa solo me salga el formulario para ingresar la clave y una vez que la clave es correcta recién me cargue el menu y todo lo demás, ¿hay alguna sugerencia sobre estas líneas de código?.
1 Respuesta
Respuesta de keystone CITI
1
¿Cómo estas?
Si te puedo sugerir algo.. incluso con esto podes hacer que cuando el usuario elija salir en el menu vuelva a la de login (clave)
Hace así antes del doForm:
do while .t.
mBoton=0
do form acceso
if mBoton=1 && aceptar
do ....lo que sigue
else
if messagebox('¿salir del sistema?',4+32,'Salir')=6
exit
Endif
Endif
Enddo
Ahora, para que funcione el form de acceso tiene que ser modal.. o sino después de llamarlo (do form acceso poner read event) y en el destroy del formulario clear event
Después, en el mismo formulario haces la validación de la clave en el botón "aceptar". Si está bien.. antes de salir pones la variable mBoton=1
Sino, el botón aceptar no hace nada..
Algo así en el click
if laClaveEstabien
mBoton=1
Thisform. Release
Endif
Ahora, en el click del botón "cancelar" o "salir" pones esto:
mBoton=2
Thisform. Release
Entonces quedaria asi..
1) Comienza el do while .t.
2) Va al formulario de acceso
3) Si toca aceptar y la clave esta bien, establece el boton=1 y sale
4) Si la clave esta mal y toca aceptar no hace nada
5) Si toca cancelar, pone el boton=2 y sale
6) Cuando vuelve, si la variable boton=1 sigue con la ejecución..
Bueno, espero lo pongas en practica y que te sea útil..
Saludos
Keystone - Christian
www.keystone.com.ar
Si te puedo sugerir algo.. incluso con esto podes hacer que cuando el usuario elija salir en el menu vuelva a la de login (clave)
Hace así antes del doForm:
do while .t.
mBoton=0
do form acceso
if mBoton=1 && aceptar
do ....lo que sigue
else
if messagebox('¿salir del sistema?',4+32,'Salir')=6
exit
Endif
Endif
Enddo
Ahora, para que funcione el form de acceso tiene que ser modal.. o sino después de llamarlo (do form acceso poner read event) y en el destroy del formulario clear event
Después, en el mismo formulario haces la validación de la clave en el botón "aceptar". Si está bien.. antes de salir pones la variable mBoton=1
Sino, el botón aceptar no hace nada..
Algo así en el click
if laClaveEstabien
mBoton=1
Thisform. Release
Endif
Ahora, en el click del botón "cancelar" o "salir" pones esto:
mBoton=2
Thisform. Release
Entonces quedaria asi..
1) Comienza el do while .t.
2) Va al formulario de acceso
3) Si toca aceptar y la clave esta bien, establece el boton=1 y sale
4) Si la clave esta mal y toca aceptar no hace nada
5) Si toca cancelar, pone el boton=2 y sale
6) Cuando vuelve, si la variable boton=1 sigue con la ejecución..
Bueno, espero lo pongas en practica y que te sea útil..
Saludos
Keystone - Christian
www.keystone.com.ar
