Tudo sobre Menu - F�rum DevMedia

28/04/2009

Wesley Yamazack

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

Responder

Gostei + 0

29/04/2009

Wesley Yamazack

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

Att,

Wesley Y

Responder

Gostei + 0

30/04/2009

Carlos Faria

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 ;

Responder

Gostei + 0

30/04/2009

Wesley Yamazack

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

Responder

Gostei + 0

30/04/2009

Carlos Faria

Fico aguardando sua video wesley

Responder

Gostei + 0

07/05/2009

Carlos Faria

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 ?

Responder

Gostei + 0

07/05/2009

Wesley Yamazack

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

Att,

Wesley Y

Responder

Gostei + 0

07/05/2009

Carlos Faria

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

Responder

Gostei + 0

11/05/2009

Wesley Yamazack

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

Responder

Gostei + 0

12/05/2009

Carlos Faria

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

Responder

Gostei + 0

12/05/2009

Wesley Yamazack

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

Abra�os

Att,

Wesley Y

Responder

Gostei + 0

F�rum Menu #5099