Artigo Clube Delphi 76 - Controle de Acesso

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.

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.

 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),

...