Menu

Olá Carlos,
   Fiz aqui um exemplo bem explicado e simples de como você configurar o nível de acesso do ActionManager, segue abaixo o link do mesmo.

  http://www.4shared.com/file/102198302/bbb1e334/Chamado-_Menu.html

  Explicação do Exemplo :
  Você irá encontrar um ActionManager, um Label(Informativo dos níveis de acesso), e um RadioGroup com 3 Itens(Administrador, Gerente, e Funcionário).
  - Administrador : Geralmente tem acesso ao sistema todo (TAG 1);
  - Gerente  : Geralmente tem acesso as funções dele e as do seu inferiores ( TAG 2);
  - Funcionário : Tem acesso as funções Bases ( TAG 3);
  Ao clicar em um dos itens do RadioGroup, o menu irá ser totalmente desabilitado, e logo em seguida, na rotina, irá ser configurado o nível considerando a TAG e o usuário Selecionado.

  Espero que ajude.


Att,

Wesley Y
 


 

Olá Carlos, podemos encerra este chamado ? Tem mais alguma dúvida ? Estou no aguardo

Att,

Wesley Y

Ola Wesley seu exemplo é muito bom mais no meu caso aqui gostaria de fazer  algo um pouco diferente disso   como te disse gostaria de resumir isso a no maximo  5 linhas    case propriedade tag do component.tag = 1  begin     mostre menu a,b  end      case propriedade tag do action = 2 begin Mostre a,b,c,d end    case propriedade tag do action = 3  begin    mostre tudo  end ;

Olá Carlos,
  Irei gravar uma vídeo te dando esta idéia da parte de segurança. Eu fiz uma alteração aqui no código, mas acho que ainda não é isso que você quer.

procedure TForm1.ConfigurarAcessoCarlos(xUsuario: String);
Var
 ACAO : Integer;
begin
     { Desabilitar todos os itens do menu }

     for ACAO := 0 to ActionManager1.ActionCount - 1 do
     begin
        TAction(ActionManager1.Actions[ACAO]).Enabled := False;
     end;

     for ACAO := 0 to ActionManager1.ActionCount - 1 do
     begin
        case TAction(ActionManager1.Actions[ACAO]).Tag of
          1 : begin
                if (xUsuario = 'Administrador') then //Administrador
                   Ac_Cliente.Enabled := True;
              end;
          2 : begin
              if (xUsuario = 'Gerente') then
                Ac_Funcionario.Enabled := True; // Funcionario
              end;
          3 : begin
               if (xUsuario = 'Funcionário') then
                begin
                   Ac_Ajuda.Enabled := True; // Ajuda
                   Ac_Sair.Enabled  := True; //Sair
                end;
              end;
        end;
     end;
end;

  Caso isso não resolva, irei gravar uma vídeo a noite para você.


Att,

Wesley Y

Fico aguardando sua video wesley

Como te disse sua video ficou legal na questao das variaves deu para resolver o problema em questao ao menu vc nao mencionou nada de como fazer daquele jeito que me pediram aqui ? 

Olá Carlos,
  Peço que aguarde mais um pouco sobre a video. Grato pela compreensão.


Att,

Wesley Y

Olá Wesley   Tudo bem, quando der vc posta ai ok

Olá Carlos,
  Segue abaixo o link da video.
  http://www.4shared.com/file/104796919/6db92f3f/Chamado5099.html
  Peço que espere um pouco mais sobre os outros chamados. Grato pela compreensão
Att,

Wesley Y

Ola Wesley Esse ai ta ok meu camarada pode fechar ,como te disse na video aula tudo se resolve rss

Olá Carlos,
  UFAAAAAA!! Que bom! srsrsr. Pode deixar que sempre irei gravar as vídeos. rssrsr..

Abraços

Att,

Wesley Y