Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-07-2005
josevaldez josevaldez is offline
Miembro
 
Registrado: jul 2003
Posts: 10
Poder: 0
josevaldez Va por buen camino
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
Responder Con Cita
  #2  
Antiguo 14-07-2005
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 23
Caro Va por buen camino
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
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 01:22:24.


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
Copyright 1996-2007 Club Delphi