Recorrer 1 tabla

[mantraxer21]

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

[mantraxer21]

Datos de la tabla:

Menu:

id Menu Enabled idTipoUsuario
1 Mantenedor True 1
2 Usuarios True 1
3 Informes False 2

[oscarac]

tiene algo de codigo fuente?

[ecfisa]

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
Hola mantraxer21.

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.

[oscarac]

aqui (http://neftali.clubdelphi.com/?p=182) hay un ejuemplo de creacion de Menus utilizando archivos de texto

[newtron]

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ú.


// 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;


Aclaro: strtran es una función que tengo para buscar y sustituir, en este caso la uso para que ignore el carácter '&' de los textos de los menús.

Saludos