Desenvolver uma rotina dessas por completo seria muito demorada para nós programadores que sempre estamos atarefados. Vou mostrar como fazer isso usando um componente, o User Control Package. É um pacote de componentes OpenSource que permite facilmente controlar acesso a programas desenvolvidos em Delphi 5, 6, 7, 2005 e Kylix 3. Possui suporte aos principais padrões de acesso a dados e servidores de Banco de Dados compatíveis com Delphi. O controle dos itens de menu e actions é feita de maneira automática e o acesso pode ser definido por Usuário e por Perfil de Usuários.

Antes de iniciar o tutorial, baixe o componente clicando aqui.

Salve e descompacte o componente na pasta Lib de instalação do Delphi. Abra o delphi e primeiramente, feche todos os forms e Units abertos (Menu File, Close All). Em seguida, em File, Open, localize a pasta onde salvou o componente e abra o arquivo UserControls.dpk.

Figura 1 - Pacote UserControls.dpk aberto

Observe a lista dos componentes que serão instalados. Clique em Compile e depois Install. Caso apareça alguma mensagem de notificação, confirme-a. Salve o projeto. Vá até a última paleta de componentes e veja o componente instalado.

Usando o Componente

Na sua aplicação, coloque o componente correspondente a Fonte de Dados que você está utilizando. Veja que o componente suporta vários tipos de conexões.

Figura 2 - Conexões suportadas pelo componente

Neste tutorial, usaremos o DBXUserControl, correspondente com a ligação dos componentes da paleta DBExpress. Precisamos agora configurar algumas de suas propriedade. Vejamos as que serão utilizadas:

+ActionList: Caso você use um ActionList para definir algumas ações do tipo Inserir, Alterar, Excluir, poderá informar o componente e controlar cada ação por Usuário. ActiveLogin: Ativa o funcionamento do Componente +Connection: Aqui você informa qual seu componente de conexão com o banco de dados. Você poderá usar a unit de um DataModule por exemplo e ligar à conexão lá configurada. Apenas tome o cuidado de que o DataModule deverá ser criado antes do form onde está seu componente UserControl .Eessa prioridade é definida no menu Project, Options do Delphi. +MailUserControl: Caso queira possibilitar ao usuário solicitar a senha quando a tenha esquecido, poderá colocar o componente MailUserControl no Form, liga-lo ao componente DBXUserControl e configurar algumas opções de servidor no mesmo, como o endereço SMTP, usuário, senha ou ainda definir uma mensagem a ser enviada. Não muito aconselhado, pois a maioria das máquinas não suporta o processo ou não possui conectividade com um servidor SMTP. +MenuCadastroUsuario, +MenuPerfilUsuario, +MenuTrocaSenha: Estes são simplesmente três menus que requerem ser exibidos na sua aplicação e precisam ser criados. Usando o componente MainMenu, crie um menu para Cadastrar Usuários, um para Perfis de Usuário e um para Alteração de Senha. No DBXUserControl, apenas ligue as propriedades aos referidos menus criados.

TabelaPermissao, TabelaUsuario: No seu banco de dados serão criadas duas tabelas, de forma automática pelo componente, na primeira vez que ele for executado. Você poderia estar alterando o nome das tabelas que serão criadas, mas é aconselhável deixar o nome padrão para evitar futuras perdas de relacionamento. As informações de senha serão criptografadas na tabela de Usuários.

Executando seu sistema pela primeira vez, o componente irá criar as tabelas no seu banco de dados e irá lhe informar um usuário e senha para o primeiro acesso. A partir desse momento, você poderá criar usuários, perfis e controlar os acessos livremente na sua aplicação.

Definindo Permissões

Figura 4 - Definindo Permissões

Você terá duas opções para controlar os acessos dos Usuários. Poderá criar um perfil e definir todos os acessos que o mesmo terá, e depois no cadastro de usuários, relacionar o usuário ao perfil, ou, ao cadastrar um usuário, definir quais os acessos exclusivos para aquele usuário, o que seria um processo mais trabalhoso.

Resumindo, mostrei uma forma rápida e segura de se controlar os usuários e níveis de acessos em seu sistema. Lembro que ainda existem outros componentes semelhantes, mas o mais complexo é o que lhes mostrei.

Qualquer dúvida, é só entrar em contato.

Maikel Marcelo Scheid é técnico em Informática com ênfase em Análise e Programação de Sistemas. Atua na área de Desenvolvimento de Softwares em Delphi para plataforma win32 e .NET. Contato: maikelscheid@gmail.com