FoxPro/Visual FoxPro - accesos de usuarios

Buenas tardes, he echo un sistema de gestion comercial, lo que necesito y no puedo enfocar es el control de los usuarios para que solamente puedan ingresar a algunas rutina. Alguien me podria guiar como podria hacerlo?. Desde ya muchisimas gracias.

Oscar Salas

No me ubico, me podrias enunciar un pequeño ejemplo? Gracias.

Oscar Salas

En el init del form donde ejecutas tu menu, pon;

Public lMenu
****************************************
DO MENUMPR WITH THIS,.T.
****************************************
SELECT usuarios
GO TOP

Luego en el gotfocus de tu form pon;

if lMenu = .t.
Public lMenu
set sysmenu to
***************
select usuarios
go top
if alltrim(usuario) = "Administrador"
SET SKIP OF BAR 1 OF Archivo .T. IN (m.oFormRef.Name) BAR
SET SKIP OF BAR 1 OF Reportes .T. IN (m.oFormRef.Name) BAR
else
if alltrim(usuario) = "Operador"
SET SKIP OF BAR 1 OF Archivo .F. IN (m.oFormRef.Name) BAR
SET SKIP OF BAR 1 OF Reportes .F. IN (m.oFormRef.Name) BAR
else
DO MENUMPR WITH THIS,.T.
endif
endif

select USUARIOS
go top
thisform.caption = "Usuario que esta en el sistema" + " - "+ " " + alltrim(usuarios)
lMenu = .f.
endif

**NOTA:
Archivo es el menu, en la primera condicion Habilitamos la primera opcion del menu archivo y la primea opcion del menu Reportes.

Archivo es el menu, en la primera condicion DesHabilitamos la primera opcion del menu archivo y la primea opcion del menu Reportes.

Saludes, espero te sirva, si no puedes me ayudas, yo te hago un ejemplo.

Desde Honduras C.A

Gracias, voy a ver si lo interpreto, cualquier cosa te aviso.
Un abrazo

Oscar Salas