![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#8
|
|||
|
|||
|
Saludos
en relacion a tu ultima pregunta el codigo es algo asi if fieldvalues['nivel']='0' then //administrador accesos3(); if fieldvalues['nivel']='1' then begin accesos2(); if fieldvalues['nivel']='2' then accesos1(); 0,1y2 porque tenemos 3 nivels de usuario y accesos() son procedimientos que me activan los menu a lo que cada tipo de usuario tiene acceso por ej: para nivel 0 sel habilitan todos los menu y para el nivel 2 que solo son usuarios que consultan activamos solo el menu "consultas" . accesos(1) es mas o menos asi: procedure accesos1(); begin Form.menu.Items.Items[0].Enabled:=false; Form.menu.Items.Items[1].Enabled:=false; Form.menu.Items.Items[1].Items[0].Enabled:=false; Form.menu.Items.Items[1].Items[1].Enabled:=false; Form.menu.Items.Items[1].Items[2].Enabled:=false; Form.menu.Items.Items[1].Items[3].Enabled:=false; Form.menu.Items.Items[1].Items[4].Enabled:=false; Form.menu.Items.Items[1].Items[5].Enabled:=false; Form.menu.Items.Items[2].Enabled:=false; Form.menu.Items.Items[2].Items[0].Enabled:=false; Form.menu.Items.Items[3].Enabled:=false; end; en el codigo se deshabilitan todos los item del los menu de la aplicacion para el usuario de nivel 2 que es el de menos privilegios, pero como te dije antes manejamos un menu Administrar en donde se crean y eliminan usuarios y solo se habilita para el administrador. para accesos(2) y accesos(3) habilito las que van de acuerdo al tipo de usuario. cuando creas el usuario debes decirles que nivel tiene Saludos... Última edición por karocs fecha: 01-10-2004 a las 17:42:22. |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|