Validacion de permisos

22/07/2004 - 19:20 por Lancelot | Informe spam
Hola a todos, no se si sea posible lo siguiente, tengo un base de datos el
cual se puede ingresar un administrador al igual un usuario, los menus los
lee por medio de un programa para cada uno, tengo una duda en un
formulario y es que si puedo parametrizar que en un marco de pagina, si
ingresa un usuario no le muestre una de las pestañas del marco, si es el
administrador muestre todo

Tengo este codigo que lee tanto el menu para el admon como para el usuario

Thisform.text3.Value = Thisform.text3.Value + 1

Select usuarios
Locate For Alltrim(usuarios.usua_nomb) =Upper(Alltrim(m.nombre_usuario)) And ;
ALLTRIM(usuarios.usua_clave) == Upper(Alltrim(m.clave_usuario))

If Found() then

m.tipo_usuario = usuarios.usua_tipo
If m.tipo_usuario=1
Do menu1.prg
Thisform.Release

Else
If m.tipo_usuario=2
Do menu3.prg
Thisform.Release
Endif
Endif
Else

If Thisform.text3.Value >= 3 then
parametros2*?

Else

parametros?*
Endif

Thisform.Text1.SetFocus

Thisform.Refresh

Endif



El anterior codigo es para el menu de ingreso a la base de datos, pero
para la forma necesito es que cuando se ingrese esta valide que usuario
esta ingresando y oculte alguna pestaña si esta parametrizado de esta
manera.

Gracias por su valiosa colboracion

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa
 

Leer las respuestas

#1 Marco Jacobo - CEMDO Ltda.
23/07/2004 - 14:08 | Informe spam
Hola Lancelot:

Una de las cosas que podés hacer es poner en el Init del marco de página la
propiedad ENABLED en Verdadero o en Falso según el usuario.

Por ejemplo:

IF condición
Thisform.PageFrame1.Page1.Enabled = .T.
ELSE
Thisform.PageFrame1.Page1.Enabled = .F.
ENDIF

Suerte,

Marco Jacobo
Villa Dolores (Córdoba - Argentina)

"Lancelot" escribió en el mensaje
news:
Hola a todos, no se si sea posible lo siguiente, tengo un base de datos el
cual se puede ingresar un administrador al igual un usuario, los menus los
lee por medio de un programa para cada uno, tengo una duda en un
formulario y es que si puedo parametrizar que en un marco de pagina, si
ingresa un usuario no le muestre una de las pestañas del marco, si es el
administrador muestre todo

Tengo este codigo que lee tanto el menu para el admon como para el usuario

Thisform.text3.Value = Thisform.text3.Value + 1

Select usuarios
Locate For Alltrim(usuarios.usua_nomb) => Upper(Alltrim(m.nombre_usuario)) And ;
ALLTRIM(usuarios.usua_clave) == Upper(Alltrim(m.clave_usuario))

If Found() then

m.tipo_usuario = usuarios.usua_tipo
If m.tipo_usuario=1
Do menu1.prg
Thisform.Release

Else
If m.tipo_usuario=2
Do menu3.prg
Thisform.Release
Endif
Endif
Else

If Thisform.text3.Value >= 3 then
parametros2*?

Else

parametros?*
Endif

Thisform.Text1.SetFocus

Thisform.Refresh

Endif



El anterior codigo es para el menu de ingreso a la base de datos, pero
para la forma necesito es que cuando se ingrese esta valide que usuario
esta ingresando y oculte alguna pestaña si esta parametrizado de esta
manera.

Gracias por su valiosa colboracion


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Preguntas similares