Monteiro Posted July 11, 2014 Share 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? Link to comment Share on other sites More sharing options...
possidonio Posted August 20, 2014 Share 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. Link to comment Share on other sites More sharing options...
possidonio Posted October 2, 2014 Share 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 Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now