Page 1 of 1
Crear Dialogo Validacion Usuarios...
Posted: Fri Sep 21, 2007 1:48 pm
by leandro
Amigos del foro tengan buen dia....
Lo que pasa es que quiero hacer un dialogo para validar el acceso de los usuario al sistema... Se que eso es muy facil y ya lo tengo hecho, en este momento lo coloco sobre la ventana principal y de esta manera accesan los usuarios.
Pero lo que quiero hacer es no abrir la ventana principal si no hasta que el usuario se valide correctamente. Lo he intentado de varias formas pero al momento que cierro al dialogo se cierra la aplicacion totalmente.
Alguna idea?
Posted: Fri Sep 21, 2007 2:18 pm
by Armando
Leandro:
Yo lo hago así
En la función que me crea el menú salgo a una función donde se valida al usuario
STATIC FUNCTION HazMenu()
LOCAL oMenu
LogIn()
....
.....
....
RETURN(.T.)
Y en la función LOGIN() creo un diálogo
DEFINE DIALOG oDlg RESOURCE "LogIn" ICON oIcono FONT oFont
* Gets para pedir usuario y clave de acceso
* si el usuario no es válido aborto el programa
IF ! lGo
QUIT
ENDIF
RETURN((.F.))
Espero esto te ponga en el hilo, si aún hay dudas me pegas un grito
Saludos
Posted: Fri Sep 21, 2007 2:51 pm
by Kleyber
Hola Leandro,
Yo hago asi:
Code: Select all
FUNCTION MAIN()
...
...
...
vUsuarios:=senha()
if empty(vUsuarios)
MsgBeep();MsgBeep()
Set Resources To
return nil
endif
...
...
DEFINE WINDOW oWnd ..........
...
...
ACTIVATE WINDOW oWnd
STATIC FUNCTION Senha()
local oDlg, cUsuario
...
...
DEFINE DIALOG oDlg FROM 0,0 TO 199,399 PIXEL
(tus SAYS)
(tus GETS)
ACTIVATE DIALOG oDlg CENTERED
return cUsuario
Espero te sirva,
Saludos,
yo lo hago de esta manera
Posted: Fri Sep 21, 2007 3:11 pm
by Ramon Paredes
Hola leandro ,
en la funcion principal yo lo hago asi :
pAceptar := .F.
pAceptar = !Veri_clave()
IF pAceptar
CLOSE DATA
RETURN nil
ENDIF
CLOSE DATA
y en la funcion veri_clave, defino el dialogo donde capturo del nombre de usuario y clave encriptada, lo valido y si me devuelve .t. se abre el menu principal del sistema sino pues te manda error de usuario invalido.
Mientras no devuelva .t. la funcion veri_clave no hay forma que se abra el menu principal.
Saludes,
Ramon Paredes
Managua, Niacaragua
Perfecto...
Posted: Fri Sep 21, 2007 4:07 pm
by leandro
Muchas Gracias a los tres de verdad que si.. los tres tienen la misma idea.. era lo que necesitaba.
