Monteiro Posted July 11, 2014 Posted July 11, 2014 Alguém tem algum exemplo ou idéia que possa compartilhar em relação a implementação de controle de permissões por usuário ou grupo? Quote
possidonio Posted August 20, 2014 Posted August 20, 2014 Monteiro, Ainda não comecei a implementar, mas minha ideia é utilizar a visible do menu para ativar ou desativar de acordo com as permissões. Atenciosamente, Possidônio Oliveira. Quote
possidonio Posted October 2, 2014 Posted October 2, 2014 Boa tarde. Eu fiz da seguinte forma: 1 - Coloquei todos os itens do menu com visible false. 2 - Faço um select no banco de dados para verificar quais os menus que o usuário tem acesso. 3 - Chamo a procedure abaixo, que é recursiva (pois deve-se percorrer os itens e subitens do menu), e recebe como parâmetro um objeto da classe TUniMenuItem. HabilitarMenu(MainMenu.Items); procedure TFrmMain.HabilitarMenu(AMenu: TUniMenuItem); var i: integer; begin for i := 0 to AMenu.Count - 1 do begin if QryAux.Locate('descricao', AMenu.Caption, [loCaseInsensitive]) then begin AMenu.Visible := true; end; HabilitarMenu(AMenu); end; end; Atenciosamente, Possidônio. 1 Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.