FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Recorrer 1 tabla
Estimados:
Cómo se hace (literalmente) poder recorrer 1 tabla de mi bd (firebird) y si el valor por ejemplo de esa tabla trae true, entonces desabilitar una opción del menu... Tabla: Menu idMenu(1) Menu (Mantenedor) Enabled (true) Alguien puede ayudar a trabajar esta opción ? Saludos Cordiales |
#2
|
|||
|
|||
Datos de la Tabla
Datos de la tabla:
Menu: id Menu Enabled idTipoUsuario 1 Mantenedor True 1 2 Usuarios True 1 3 Informes False 2 |
#3
|
||||
|
||||
tiene algo de codigo fuente?
__________________
Dulce Regalo que Satanas manda para mi..... |
#4
|
||||
|
||||
Cita:
En realidad, según te interpreto, no es la tabla la que devuelve el valor verdadero o falso sino alguno de sus campos. ¿ En base a que campo o campos queres realizar la evaluacion ? Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#6
|
||||
|
||||
Hola.
Yo lo que hago es tener en una tabla solamente las opciones del menú que van a estar habilitadas guardando el caption del menú. Cuando se ejecuta el programa deshabilito primero todas las opciones del menú y luego me recorro la tabla habilitando las opciones que están en ella. En la tabla guardo el texto del menú de arriba +'#' + las opciones del menú. Código:
// Primero deshabilito todo for N:=0 To MainMenu.Items.Count-1 do begin for M:=0 To MainMenu.Items[N].Count-1 do begin MainMenu.Items[N].Items[M].Enabled := False; end; end; // Habilito opciones de la tabla DataModule1.EDBQuery1.first; while not DataModule1.EDBQuery1.Eof do begin sAux:=DataModule1.EDBQuery1.FieldByName('OPCION').AsString; for N:= 0 to MainMenu.Items.Count-1 do begin if StrTran(MainMenu.Items[N].Caption,'&','') = Copy(sAux,1,Pos('#',sAux)-1) then begin for M:=0 To MainMenu.Items[N].Count-1 do begin if Copy(sAux,Pos('#',sAux)+1,100)=MainMenu.Items[N].Items[M].Caption then begin MainMenu.Items[N].Items[M].Enabled := True; break; end; end; end; end; DataModule1.EDBQuery1.Next; end; Saludos
__________________
Be water my friend. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Problema Al Recorrer Tabla | Ignacio Gentile | Varios | 4 | 28-06-2011 15:34:12 |
recorrer una tabla de una bd en access | sarias24 | Varios | 26 | 02-11-2010 22:26:09 |
Recorrer Tabla, contar registro repetidos y escribir totales en otra Tabla | Lucas_diaz1810 | Conexión con bases de datos | 1 | 25-12-2006 13:04:34 |
recorrer tabla | acrophet | Conexión con bases de datos | 7 | 30-04-2004 00:03:06 |
Crear y recorrer una tabla | magm2000 | MS SQL Server | 3 | 09-02-2004 19:43:34 |
|