topic-8252

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Crear Dialogo Validacion Usuarios...
Posted: Fri Sep 21, 2007 01:48 PM

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?

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Crear Dialogo Validacion Usuarios...
Posted: Fri Sep 21, 2007 02:18 PM

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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Kleyber

Posts: 581

Joined: Tue Oct 11, 2005 11:28 AM

Crear Dialogo Validacion Usuarios...
Posted: Fri Sep 21, 2007 02:51 PM

Hola Leandro,

Yo hago asi:

Code: Select all Collapse

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,

Kleyber Derick

FWH / xHb / xDevStudio / SQLLIB

Ramon Paredes

Posts: 215

Joined: Fri Feb 02, 2007 03:38 PM

yo lo hago de esta manera
Posted: Fri Sep 21, 2007 03:11 PM

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

... Desde la Tierra de lagos y Volcanes......

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Perfecto...
Posted: Fri Sep 21, 2007 04:07 PM

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

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

FiveTech Support Forums

Continue the discussion