Criando um controle de acesso no Lazarus - Parte 1
Nesta série de artigos que iniciarei hoje, vou apresentar aos colegas como que venho implement implementando ando o controle controle de acesso acesso em meus aplicativ aplicativos. os. É um modelo simples, que venho "aperfeiçoando" desde que comecei a programar e adaptando sempre à nova realidade que vem se apresentando. Não é a última palavra em programação, mas acredito que pode ser um bom começo para quem deseja implementar alguma coisa partindo do zero. O modelo que apresento irá abordar algumas funcionalidades que utilizo em meus programas, sendo sendo algumas usadas usadas há muito tempo, tempo, outras nem tanto. tanto. São elas: Menu Menu Dinâ Dinâmi mico co,, arma armaze zena nado do no banc bancoo de dado dadoss e cria criado do em temp tempoo de execução; Cadastro de telas (aplicações), usuários e permissões no próprio aplicativo; Barra de ferramentas com os ícones das aplicações permitidas, configuradas pelo usuário; Inte Interf rfac acee TDI TDI (Tab (Tabbe bedd Do Docu cume ment nt Inte Interf rfac ace) e).. Esta Esta foi foi impl implem emen enta tada da recentemente e acredito que precisa de algumas melhorias; •
• •
•
Antes de tudo devo esclarecer que utilizo dois ambientes distintos. Um no trabalho e outro outro em casa. casa. No trabal trabalho ho utiliz utilizoo De Delph lphii ou Lazaru Lazarus, s, depen dependen dendo do do caso, caso, em ambiente Windows XP e 2003 Server, com os bancos de Dados SQL Server 2005 e Firebird 2.1. Em casa utilizo Linux Ubuntu 10.10, Lazarus 0.9.31 (SVN) e Banco de Dados Firebird 2.5 e este será o ambiente utilizado ao longo destes artigos. Em todo caso, o modelo já foi usado nos dois ambientes sem nenhum problema, precisando apenas de algumas adaptações. adaptações. Portanto, vamos logo às ferramentas necessárias: 1. Lazaru Lazaruss 0.9.31 0.9.31 (SVN): (SVN): Não vou entrar entrar em detalh detalhes es de instal instalaç ação ão do Lazaru Lazaruss porquê já abordaram o assunto assunto com muito mais competência competência do que eu. eu. Portanto se você não tem o seu Lazarus instalado, leia o excelente post de meu amigo Sílvio Clécio no artigo Instalando o Lazarus no Lucid ou Maverick pelo SVN. SVN . 2. Firebird Firebird 2.5: 2.5: Caso você você não tenha tenha o seu Firebi Firebird rd instalado instalado,, em meu último último post eu mostrei como instalar a versão "stable" do mesmo. O post pode ser visto em Instalando o Firebird 2.5 Final no Ubuntu Maverick . 3. ZeosLi ZeosLibb 7.0: 7.0: Compon Component entee de acesso acesso a divers diversos os bancos bancos de dad dados, os, entre entre eles: eles: Firebird, PostgreSQL, SQL Server, MySQL, SQLite e outros. Um bom tutorial sobre sua instalação e configuração pode ser encontrado (mais uma vez) no site do amigo Sílvio Clécio. O título do artigo é Tutorial Zeos Especial. Especial . Nele você encontra várias informações sobre o Zeos, um link para download do tutorial do Professor Carlos Amaral e muitas outras coisas.
4. Flamerobin: O Flamerobin, para quem não conhece, é uma ferramenta open source para administração de bancos de dados Firebird em ambiente Linux, disponível nos repositórios do Ubuntu. Você pode instalá-la através do synaptic, central de programas do Ubuntu, ou mesmo através do apt-get. Nesta última opção, basta entrar no terminal e digitar: sudo apt-get install flamerobin
Para esta série de artigos, vou criar um novo banco de dados, que darei o nome ACESSO.FDB, para que os colegas possam acompanhar todo o processo de criação. Vamos aos passos para criá-lo: 1) Abra o FlameRobin, através do menu Aplicativos - Desenvolvimento - Flamerobin. Aparecerá a tela principal do programa, como abaixo:
2) Clique no Server "Localhost" com o botão direito do mouse e selecione a opção Create new Database. Será aberta a tela de criação de um novo banco de dados como abaixo:
3) Preencha as informações conforme a tela abaixo. Altere apenas o campo "Database path" para o caminho onde você armazenará o seu banco de dados. No meu caso eu utilizei o /media/Projetos/Database/ACESSO.FDB, porquê meus arquivos de trabalho ficam em um outro HD.
4) Feito isto, basta criar no botão "Create" e seu novo banco de dados estará criado, como você verá nas imagens abaixo:
No próximo artigo veremos como criar as tabelas que formarão a nossa estrutura de acesso. Desculpem-me por dividir o artigo em várias partes, mas isto é necessário devido a grande quantidade de informações, o que poderia confundir usuários iniciantes. Caso tenha alguma dúvida, por favor poste nos comentários que terei o maior prazer em responder. Um abraço a todos e até a próxima. Criando um controle de acesso no Lazarus - Parte 2
Nesta segunda parte do artigo vamos criar nossa estrutura de dados e partir para a programação de nosso modelo. Como vocês devem ter percebido em nosso primeiro artigo, fizemos uma abordagem mais detalhada do Flamerobin. Sei que muitos podem ter achado o assunto enfadonho, principalmente aqueles que já dominam bem a ferramenta, mas achei necessário por se tratar de uma ferramenta não muito conhecida. Eu mesmo usava o IBExpert até há alguns dias atrás e não domino muito bem o Flamerobin. Mas quem preferir continuar usando o IBExpert, informo que ele pode ser instalado no Linux e roda perfeitamente via wine. Para não deixar o assunto flamerobin incompleto, vou mostrar apenas como criar a primeira tabela. No modelo proposto utilizaremos cinco tabelas: USUARIOS - Armazenará as informações de login dos usuários. APLICACOES - Armazenará as aplicações que farão parte do Aplicativo e as configurações para exibição no menu e na barra de ferramentas. PERMISSOES - Armazenará o relacionamento entre os usuários e as telas às quais os mesmos terão acesso. FAVORITOS - Armazenará as preferências do usuário no que se refere aos ícones que serão exibidos na barra de ferramentas. TABELAS - Armazenará o relacionamento entre as aplicações e as tabelas no banco de dados às quais o usuário deverá ter acesso para executá-las • •
•
•
•
Vou mostrar (para os iniciantes, é claro) apenas como criar a tabela de usuários e as outras ficam por conta de cada um. Então vamos lá: 1) Abra o Flamerobin e expanda a lista do localhost. Irá aparecer os seus bancos de dados como na figura abaixo:
2) Dê um duplo click sobre o database Acesso para expandir os objetos dele, como abaixo:
3) Clique com o botão direito sobre o objeto Tables e escolha a opção "create new...". Será aberta uma nova janela com um template da instrução SQL para criação de uma nova tabela:
4) A partir daí, é só substituir os nomes da tabela e dos campos que iremos criar, de acordo com a nossa necessidade:
5) Depois que as definições da tabela estiverem digitadas, iremos executar a instrução no Banco. Isto é feito através do botão Execute Statement, ou pressionando a tecla F4. E finalmente, para as informações ficarem gravadas no banco, precisaremos fazer o commit, clicando no botão Ok:
6) Após estes procedimentos você verá a nova tabela na árvore de objetos do banco, como mostrado abaixo:
Agora é só criar as demais tabelas, de acordo com o script que vou passar agora. CREATE (
TABLE ID_APLICACAO NOME
INTEGER VARCHAR(20) TITULO DESCRICAO CLASSE VARCHAR(20) ICONE INTEGER NOT NULL,
APLICACOES NOT NOT
NULL, NULL, VARCHAR(40), VARCHAR(160), NOT NULL,
NIVEL INTEGER NOT NULL, POSICAO CHAR(9) NOT NULL, BARRA SMALLINT DEFAULT 0 , CONSTRAINT APLICACOES_PKEY PRIMARY KEY (ID_APLICACAO); CREATE TABLE PERMISSOES ( ID_USUARIO INTEGER NOT NULL, ID_APLICACAO INTEGER NOT NULL, CONSTRAINT PERMISSOES_PKEY PRIMARY KEY (ID_USUARIO,ID_APLICACAO) ); ALTER TABLE PERMISSOES ADD CONSTRAINT PERMISSOES_ID_APLICACAO_FKEY FOREIGN KEY (ID_APLICACAO) REFERENCES APLICACOES (ID_APLICACAO); ALTER TABLE PERMISSOES ADD CONSTRAINT PERMISSOES_ID_USUARIO_FKEY FOREIGN KEY (ID_USUARIO) REFERENCES USUARIOS (ID_USUARIO); CREATE TABLE FAVORITOS ( ID_USUARIO INTEGER NOT NULL, ID_APLICACAO INTEGER NOT NULL, CONSTRAINT FAVORITOS_PKEY PRIMARY KEY (ID_USUARIO,ID_APLICACAO) ); ALTER TABLE FAVORITOS ADD CONSTRAINT FAVORITOS_ID_APLICACAO_FKEY FOREIGN KEY (ID_APLICACAO) REFERENCES APLICACOES (ID_APLICACAO); ALTER TABLE FAVORITOS ADD CONSTRAINT FAVORITOS_ID_USUARIO_FKEY FOREIGN KEY (ID_USUARIO) REFERENCES USUARIOS (ID_USUARIO); CREATE TABLE TABELAS ( ID_APLICACAO INTEGER NOT NULL, TABELA VARCHAR(20) NOT NULL, CONSTRAINT TABELAS_PKEY PRIMARY KEY (ID_APLICACAO) ); ALTER TABLE TABELAS ADD CONSTRAINT TABELA_ID_APLICACAO_FKEY FOREIGN KEY (ID_APLICACAO) REFERENCES APLICACOES (ID_APLICACAO);
Para que o leitor possa acompanhar melhor o meu raciocínio, vou explicar a função de cada campo da Tabela APLICACOES. As demais tabelas, acredito eu, se auto explicam, mas caso haja alguma dúvida a respeito delas, fiquem à vontade para expressá-las nos comentários:
O campo NOME, se refere ao nome que iremos dar ao objeto TMenuItem que será criado dinamicamente na apresentação do menu. ele deve ser único e não deverá ter caracteres especiais para não causar erro de execução na montagem do menu. O campo TITULO, armazenará... o título do menu (Rá!). Exatamente! O título que será mostrado no menu. O campo DESCRICAO, conterá a informação que será apresentada no hint do objeto quando o mouse passar sobre a opção do menu. O campo CLASSE armazenará o nome da classe TForm que será instanciada quando o usuário clicar na opção do menu. Exemplo: TFrmClientes O campo ICONE armazenará a posição do ícone do menu dentro do objeto TImageList. Com certeza há outras formas de armazenar imagens... alguns optam por colocá-las no banco, outros preferem colocar em uma pasta. Neste caso específico, optei por colocar todas as imagens em um objeto TImageList, mas isso vai do gosto de cada um... O campo NIVEL armazenará a estrutura de submenus do objeto TMainMenu, podendo ser de 0 a 9. Eu particularmente, só utilizei até o nível 5. A partir deste número, não sei se ficaria com um visual muito legal. O campo POSICAO armazenará as informações a respeito do posicionamento de cada opção do menu dentro do objeto TMainMenu. O campo BARRA informa se a opção será ou não mostrada na barra de ferramentas (0 = não, 1 = sim). Logicamente, estas informações serão sobrepostas pelas preferências do usuário, cadastradas na tabela FAVORITOS. No próximo artigo, vamos partir para a programação do modelo. Então preparem seus Lazarus e até a próxima. Criando um controle de acesso no Lazarus - Parte 3
Após tanto tempo sem postar nada e, depois de uma porção de cobrança por parte de alguns de meus leitores, resolvi dar continuidade a esta série de artigos interrompida há mais de um ano. Devo dizer que durante este tempo, muita coisa mudou e, em meu dia a dia, houveram algumas mudanças que irão afetar a forma como passarei a apresentar meus artigos daqui para frente. Sobretudo no que se refere a este artigo, especialmente. A primeira coisa que mudou foi minha distribuição Linux. Quando iniciei esta série estava utilizando o Ubuntu 10.10 e como o Lazarus estava se mostrando muito instável com esta distro,comecei a testar outros ambientes até que finalmente encontrei aquela com a qual me identifiquei completamente: Linux Mint (Estou usando a versão 14).
Caso algum dos meus leitores tenham interesse em conhecê-la, a mesma encontra-se disponível em http://www.linuxmint.com. Outra coisa que mudou foi o meu cliente de banco de dados. Não por nenhum demérito do FlameRobin, mas por uma questão de praticidade mesmo. Naquela época eu utilizava o FlameRobin e o IBExpert (Windows) para acessar Firebird, SQL Managment Studio para acessar o MS SQL Server, SQLite Studio para bases SQLite, PGAdmin3 para o PostgreSQL… era muito cliente pra pouco banco. Resolvi o problema quando encontrei uma ferramenta que para mim é perfeita. Trata-se do SquirrelSQL (http://www.squirrelsql.org), um cliente multibancos e multiplataforma que me permite acessar mais de vinte bancos de dados diferentes, e com uma porção de recursos que facilitaram muito a minha vida. Em meu próximo artigo farei uma apresentação mais detalhada desta maravilhosa ferramenta. Ainda sobre bancos de dados, achei mais adequado adotar para exemplos de meus artigos o banco de dados SQLite, pois nem todo mundo tem a paciência necessária para instalar e configurar um Firebird ou outro banco de dados mais parrudo. Sem falar que, pelo pequeno tamanho dos arquivos, fica mais fácil para disponibilizar uma cópia dos bancos juntamente com os programas fontes de meus artigos em meu repositório SVN(https://subversion.assembla.com/svn/smalltips/), onde aqueles que estiverem com preguiça sem tempo para digitar os códigos poderão baixar e estudá-los com mais calma. Devo adiantar que os fontes deste artigo já estão disponíveis no SVN para quem quiser baixar. Não está completo ainda, mas já dá para os mais apressados pegarem como modelo para implementar alguma coisa prática. E finalmente, também mudará a forma como os artigos serão publicados. Nos próximos artigos não teremos mais parte 1, 2, 3, … 1000… Este será meu último artigo seccionado. Se o artigo não for pequeno suficiente para caber em um único post, o mesmo será disponibilizado em formato PDF para ser baixado do SVN. E a partir de hoje, todos os novos artigos que se referirem a programação Lazarus, terão os programas de exemplos no SVN. Com isso espero atender melhor a meus leitores e evitar desgastes provocados pela demora entre as postagens de artigos muito longos. Terminadas as explicações, vamos ao que de fato interessa, que é a implementação do controle de acesso. Para quem está chegando agora, aconselho a dar uma lida na Parte 1 e na Parte 2 deste artigo, onde apresentamos a montagem da estrutura de dados. Como já havia falado, troquei a base de dados para SQLite e também dei uma “enxugada” na mesma para que o assunto ficasse focado apenas no controle de acesso básico. Então àqueles que estão acompanhando desde a primeira parte, fica o conselho de dar uma olhada nas tabelas do banco acesso.db3, do SVN. Para o assunto não ficar muito extenso, tanto o banco de dados quanto os programas fontes estão disponíveis no SVN e podem ser baixados no link abaixo: https://subversion.assembla.com/svn/smalltips/ Para quem utiliza Linux, sugiro a instalação do programa SVN Workbench. Já no caso do Windows, o Tortoise SVN para mim é a melhor opção. Mas isso fica a critério de cada um. Estando de posse do código fonte, passarei a explicar os porquês de cada instrução. Mas isso ficará para a parte 4, que espero ser a última, e deverá estar publicada no máximo, até domingo. Até lá, divirtam-se estudando os códigos e fiquem à vontade para fazer quaisquer comentários ou sugestões.
Um abraço a todos e até a parte 4.
