Crear Dialogo Validacion Usuarios...

[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?

[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

[Kleyber]

Hola Leandro,

Yo hago asi:

Code: Select all  Expand view

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,

[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

[leandro]

Muchas Gracias a los tres de verdad que si.. los tres tienen la misma idea.. era lo que necesitaba.