ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

percorrer Menu - Nível de acesso

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
daqdel
Aprendiz
Aprendiz


Registrado: Terça-Feira, 19 de Mai de 2009
Mensagens: 272

MensagemEnviada: Sex Out 25, 2019 9:05 am    Assunto: percorrer Menu - Nível de acesso Responder com Citação

Bom dia!
Preciso de ajuda para ativar e desativar menu e submenu conforme a tabela de acesso. Na tabela de acesso, esta cadastrado o nome do form e o nível de acesso.
USER:FORM:ITEM:SUBIT:ACESSO
0005:F0001:0000:00000:1
0005:F0002:0000:00001:2
O acesso é 1 para enable = true e 2 para false.

O menu esta assim:
Orçamento
ENTRADA(0)
>>>>>>ORÇAMENTO(0)
>>>>>>LIBERAÇÃO(1)
Neste caso, gostaria de deixar desativado somente a opção LIBERAÇÃO conforme a tabela de nível de acesso.

Fiz o código abaixo, porem, não esta correto:
////
for I := 0 to AdvPop_orc.Items.Count - 1 do
begin
For j := I+1 to AdvPop_orc.Items[I].Count - 1 do
begin
IF QUSER.Locate('ITEM;SUBITEM',VARARRAYOF([I,J]),[]) THEN
AdvPop_orc.Items[I].Items[j].Enabled := false;
///

Alguém sabe o que tenho que fazer para identificar o sub menu e desativar ou ativar conforme minha tabela de acesso ?
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10506
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Sex Out 25, 2019 9:49 am    Assunto: Responder com Citação

Veja este link, é a mesma coisa que você deseja:


http://www.activedelphi.com.br/forum/viewtopic.php?t=96137



bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB