Controle de acesso de usuários e grupos da aplicação através de menu dinâmico

Alguém?

No aguardo de alguma ajuda.

A idéia é definir os privilégios de acesso dos usuários e grupos do sistema no banco de dados e habilitar as opções do menu principal (MainMenu) e dos botões das telas de cadastro, de acordo com esses privilégios.

ninguém?

cade os feras em delphi pra ajudar?

Um componente muito bom que já faz todo esse processo de verificação e bloqueio de permissões através dos privilégios de usuários e grupos é o componente UserControl e o melhor de tudo é que ele é OpenSource. O único problema que ele foi descontinuado, mas por ser um componente muito bom existem várias pessoas que continuaram por si mesmo desenvolver ele. Tenho uma versão aqui que é compatível até versão XE3.

UserControl XE3:

http://www.mediafire.com/download.php?og8lp2yi3sc5czt

Como instalar, to tentando igual loko, no XE3.

Evandro Bastos Viana,

Como instalar no XE 3? Eu queria também aprender a fazer pra não ter que usar componentes de terceiros, queria usar nativos do Delphi.

Como que instalo no XE3? Não to conseguindo....

A instalação é bastante simples. Te um Grupo chamado XE2 é só abrir ele que aparecerá todos os componentes iniciais para serem compilados, foi um pequeno erro, apesar de ser XE2, mas é para o XE3.

É só seguir a ordem de instalação:

1)É necessário informar aonde estão os fontes do UserControl, vá no menu Tools -> Options -> Library -> Library Path -> Clica nos três pontinhos e adiciona os seguintes caminhos.

(Caminho aonde está a pasta)\UserControl XE3\Source

2) Compile o pacote pckUCDataConnector_XE3.dproj
3) Depois compile o pacote pckUserControl_RT_XE3.dproj
4) Agora compile os seguintes pacotes e instale o mesmo: pckUserControl_DT_XE3.dproj, pckUCDBXConn.dproj,pckUCMidasConn.dproj

Depois que esses pacote forem devidamente compilados e instalados vamos instalar os conectores.

1)É necessário informar aonde estão os fontes do Conectores, vá no menu Tools -> Options -> Library -> Library Path -> Clica nos três pontinhos e adicione os caminhos dos conectores que você vai utilizar.

Exemplo:

(Caminho aonde está a pasta)\UserControl XE3\Packages\Connectors\UCDBXConn
(Caminho aonde está a pasta)\UserControl XE3\Packages\Connectors\UCMidasConn

Obs.: Para aqueles que querem usar o UserControl no DataSnap devem utilizar o conector UCMidasConn.

2) A instalação dos conectores também é bastante simples abra os conectores que deseja instalar compila e instala.

Existe um terceiro e ultima parte da instalação, mas ela é opcional. Existe um último pacote que é o histórico, ou seja o controle do histórico da aplicação e sua instalação também é bastante simples:

1)É necessário informar aonde estão os fontes do UserControl, vá no menu Tools -> Options -> Library -> Library Path -> Clica nos três pontinhos e adiciona o seguinte caminho.

(Caminho aonde está a pasta)\UserControl XE3\UCHistórico

2) Abra o grupo GHistorico.groupproj, que está na pasta UCHistórico e compile o único pacote que está dentro dele e instale o mesmo.

Pronto sua instalação do UserControl está completa.

Ok, tentei instalar o Conector ADO e não estou conseguindo.

Então, antes de tudo, abro esse arquivo para começar a instalar, XE2.groupproj, certo?

Everson,
Quando executo a aplicação, pede usuário e senha, como o banco está vazio, coloquei na mão na tabela usuários. Não entra, o que pode ser? Teria que gerar um script para cadastrar valores nas tabelas?

FREDERICO qual foi o problema que você enfrentou ao instalar o conector no Delphi XE3?

FREDERICO quando iniciar pela primeira vez o UserControl ele pede a senha para se conectar com o banco e se ele não encontrar a estrutura ele roda o script automaticamente.

Pior que não sei, o ibx instalou normal. Como que instalo somente o conector para postar o erro?

Verifica na tela messages o erro que aparece ao compilar e essa tela geralmente fica na paste inferior do Delphi, mas coso não tenha esta telinha é só ir no menu View e selecionar a opção Messages.

Depois que você compila deverá aparecer nessa tela os erros de compilação.

Ok, vou remover o usercontrol e instalar novamente.

Welson, tenho que informar no menu Tools -> Options -> Library -> Library Path apenas a pasta Source?

Depois fazer o mesmo mas para os Conectores:

1)É necessário informar aonde estão os fontes do Conectores, vá no menu Tools -> Options -> Library -> Library Path -> Clica nos três pontinhos e adicione os caminhos dos conectores que você vai utilizar.

Exemplo:

(Caminho aonde está a pasta)\UserControl XE3\Packages\Connectors\UCDBXConn
(Caminho aonde está a pasta)\UserControl XE3\Packages\Connectors\UCMidasConn
(Caminho aonde está a pasta)\UserControl XE3\Packages\Connectors\UCADO // Posso informar esse também, certo?

Esqueci de mencionar aqui o pacote MD5, não precisa?

No caso do UCMidasConn, posso trocar pelo ADO? Esse seria o passo 4-) da instalação.

Que é:

4-) Agora compile os seguintes pacotes e instale o mesmo: pckUserControl_DT_XE3.dproj, pckUCDBXConn.dproj, pckUCMidasConn.dproj.

Posso trocar esse pelo ADO, certo? E seguir com a instalação mudando o path para o caminho onde está o conector ADO.

Ninguém de novo?

Removi o XE 3. Vou instalar novamente o XE 3 e o UserControl. Não precisa instalar o MD5? O conector Midas pode ser trocado pelo ADO?

A instalação foi feita. Segui o roteiro e deu certo. Mas o conector ADO não estou conseguindo. Estou fazendo assim:

1-) Abri o arquivo pckUCADOConn.dproj no Delphi no botão Open, uma pastinha amarela com uma seta azul.
2-) Dei Compile no pckUCADOConn.bpl e deu o seguinte erro:

[dcc32 Fatal Error] pckUCADOConn.dpk(32): F2141 Bad file format: 'C:\Program Files\Borland\Delphi7\Projects\Bpl\pckUCDataConnector.dcp'


O Library path está assim:
F:\Componentes Delphi\UserControl XE3\Source
F:\Componentes Delphi\UserControl XE3\Packages\Connectors\UCDBXConn
F:\Componentes Delphi\UserControl XE3\Packages\Connectors\UCMidasConn

Percebi que ao abrir o XE2.groupproj, o conector ADO não se encontra no pacote. Tem como adicionar?

Welson Play,

Viu o erro postado?