Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Ayuda con una tabla de configuracion para boton visibles (https://www.clubdelphi.com/foros/showthread.php?t=23349)

josevaldez 14-07-2005 15:03:10

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

Caro 14-07-2005 17:47:14

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


La franja horaria es GMT +2. Ahora son las 01:55:12.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi