Artigos Delphi Artigo Clube Delphi 76 - Controle de Acesso

Esse artigo faz parte da revista Clube Delphi Edição 76. Clique aqui para ler todos os artigos desta edição

s de Alteração e Exclusão, então o Everson será capaz de Inserir, Alterar e Excluir os clientes.

O controle de acesso poderá ser definido ainda ao nível de usuário sem a necessidade de vinculá-lo a um ou mais grupos. No entanto, caso existam permissões de acesso definidas diretamente no usuário e esse pertença a um grupo que também possui permissões definidas, as mesmas serão concatenadas da mesma forma que ocorre entre os grupos.

 

Nota: Por questões de espaço, mostraremos neste artigo apenas os códigos relacionados ao controle de acesso da aplicação. Você pode ter acesso ao código-fonte completo do exemplo através do link para download.

Definindo o banco de dados

Começaremos o exemplo, definindo as tabelas que serão responsáveis em armazenar as informações referentes ao controle de acesso do sistema. Abra a sua ferramenta de gerenciamento de banco de dados InterBase ou Firebird, como por exemplo o IBConsole ou IBExpert e crie um banco de dados com o nome de “ACESSO.IB”. Criaremos seis tabelas no banco de dados, cuja descrição das mesmas consta na Tabela 1.

 

Nome da Tabela

Descrição

MENUS

Tabela contendo todas as opções disponíveis no menu principal da aplicação.

GRUPOS

Tabela contendo todos os grupos cadastrados no sistema.

USUARIOS

Tabela com todos os usuários do sistema.

GRUPOS_USUARIOS

Tabela de vínculo entre os usuários e grupos do sistema.

PERMISSOES_GRUPOS

Tabela contendo as permissões de acesso de cada item de menu e tela para os grupos do sistema.

PERMISSOES_USUARIOS

Tabela contendo as permissões de acesso de cada item de menu e tela para os usuários do sistema.

 Tabela 1. Descrição das tabelas do banco

Na Listagem 1 temos as instruções DDL para a criação das tabelas.

 

Listagem 1. Código para criação das tabelas

CREATE TABLE MENUS (

  MEN_CODIGO INTEGER NOT NULL,

  MEN_NOME VARCHAR(25) NOT NULL,

  MEN_CODIGOPAI INTEGER,

  MEN_EXISTE BOOLEAN NOT NULL,

  CONSTRAINT PK_MENUS PRIMARY KEY (MEN_CODIGO),

  CONSTRAINT FK_MENUS FOREIGN KEY (MEN_CODIGOPAI)

  REFERENCES MENUS(MEN_CODIGO)

  ON UPDATE CASCADE ON DELETE CASCADE);

 

CREATE TABLE GRUPOS (

  GRU_CODIGO INTEGER NOT NULL,

  GRU_DESCRICAO VARCHAR(30) NOT NULL,

  CONSTRAINT PK_GRUPOS PRIMARY KEY (GRU_CODIGO));

 

CREATE TABLE USUARIOS (

  USU_CODIGO INTEGER NOT NULL,

  USU_NOMECOMPLETO VARCHAR(70) NOT NULL,

  USU_LOGIN VARCHAR(15) NOT NULL,

  USU_SENHA VARCHAR(15) NOT NULL,

  USU_ADMIN BOOLEAN DEFAULT FALSE,

  CONSTRAINT PK_USUARIOS PRIMARY KEY (USU_CODIGO));

 

CREATE TABLE GRUPOS_USUARIOS (

  GRU_CODIGO INTEGER NOT NULL,

  USU_CODIGO INTEGER NOT NULL,

  CONSTRAINT PK_GRUPOS_USUARIOS

  PRIMARY KEY (GRU_CODIGO, USU_CODIGO),

...

Quer ler esse conteúdo completo? Tenha acesso completo