FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Ayuda con una tabla de configuracion para boton visibles
Como realizo una rutina o código
Que me permita mediante una tabla activar o desactivar opciones en mi sistema Hasta el momento tengo la tabla que tiene lo siguientes campos Código Option1 Option2 Option3 Option4 Option5 Option6 Option7 Option8 Option9 Option10 Desde la optión 1 a la 10 son los campos que representan mis 10 botones en el menú Lo que no se como hacer para que cuando marque la opcion en la tabla sé guarde esa configuración para el usuario y cuando el entre solo tengo esas opciones habilitadas Esta fue la respuesta de marcoszorrilla a quien a gradesco su ayuda pero no logro hacer que funcione si puedes dar las instrucciones paso a paso no tengo tanta experiensias y te agradesco la ayuda marcos a continuacion esta el texto que me escribiste Por ejemplo puedes crear 10 campos de tipo Boolean si es que las opciones son excluyentes es decir si habilita una opción quiere decir que estará disponible y no al contrario. Lógicamente estas opciones se guardarán en una tabla que puedes llamar configuración. Cuando abras la aplicación lees los valores de la tabla y en consecuencia habilitas o desahabilitas las opciones que correspondan Código Delphi: if ConfiguracionMenuConta.Value = True then MenuContabilidad.Visible:=True else MenuContabilidad.Visible:=False; Gracias por su ayuda nuevamente |
#2
|
||||
|
||||
Hola amigo:
Supongo que estas utilizando un menu para tus opciones, lo que yo hice fue colocar todas las opciones del menu en su propiedad visible:=False que llegarian a ser los TMenuItem en el evento onshow de la foma donde se encuentra mi menu lo que hago es lo siguiente: Haces la consulta de tu tabla y recuperas el campo donde se encuentran tus opciones: NOMBRE ESTADO Opcion1 ACTIVO Opcion2 ACTIVO Opcion3 INACTIVO query.First; while not(query.Eof) do begin nombre:=query.Fields[0].AsString; estado:=query.Fields[1].AsString; For x := 0 To ComponentCount- 1 Do If Components[x] Is TMenuItem Then if (TMenuItem(Components[x]).name=nombre) and (estado='ACTIVO') then begin TMenuItem(Components[x]).visible:=True; end; query.Next; end; e identificas todos los componentes que sean de tipo TMenuItem, si en tu tabla en tu campo estado dice ACTIVO entonces lo muestras con la propiedad visible=True, en tu campo estado podrias ulitizarlo de tipo boolean (True,False). Espero te sirva |
|
|
|