Controle de permissões de usuário

[Monteiro]

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?

[possidonio]

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.

[possidonio]

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.