UserControl – Controle de Usuários: Uma milagre para sua aplicação, um grande benefício para você
1 – Introdução
Muitas vezes perdemos um tempo imenso projetando regras de acesso de usuários em nossos aplicativos. Além de procurar arranjar uma forma dos usuários acessarem o aplicativo, devemos estabelecer uma forma de como armazenar essas informações em um banco de dados, ou no registro do Windows. Para acabar com esse problema, surge o conjunto de componentes chamado UserControl. Nas linhas que se seguirão nesse artigo, estarei tentando mostrar em detalhes, o uso desse maravilhosos conjunto de componentes.
2 – Download e Instalação
O download dos arquivos pode ser feito no endereço http://infussolucoes.github.io/usercontrol-sd/. No site, você deverá clicar no link DOWNLOAD ZIP FILE (o link está presente no lado direito da página principal). Ou clique aqui para acessar o link rapidamente. Após executar o download do arquivo, descompacte-o no diretório de sua preferência. O processo de instalação é simples. Você CONTA com um instalador, UCSWInstall.exe é só executar o mesmo e ir seguindo os passos. A Instalação realmente foi muito simplificada.
Se preferir, você pode baixar diretamente do repositório no Git Hub pelo endereço https://github.com/infussolucoes/usercontrol-sd
2.1 – Passos para Instalação
Antes de instalar a versão, remova todos os fontes antigos do UserControl (.dcu, .bpl) e etc.
Também remova do library do Delphi os caminhos que apontavam para instalações antigas.
Instalar com o instalador (Preferencial)
a) Execute o instalador que está junto com os arquivos do UserControl ou compile o projeto UCSWInstall e execute o mesmo. Após abrir, será exibido na página inicial é exibido liks para consultas em geral, clique em próximo.
b) Nesta página, é para escolher o local de instalação, versão do Delphi e plataforma. Opcionalmente você pode instalar para o C Builder também, configure e clique em próximo.
c) Aqui você pode selecionar os componentes a serem instalados, para simplificar o processo, marque todos e clique em próximo.
d) Chegamos no momento final, aqui você clica em instalar, se tudo ocorrer bem, uma mensagem de sucesso, caso contrário você pode visualizar o log de erros.
e) Clique em finalizar ou fechar e a instalação vai estar concluída.
Instalação Manual
Caso o compilador do seu Delphi não suporte compilação por linha de comando, situação esta
que é normal em versões Trial, você deverá instalar os pacotes manualmente.
Compile os pacotes na seguinte ordem:
Na pasta Base
pckUCDataConnector.dpk
pckmd5.dpk
pckAlcinoe.dpk // Somente em versoes do Delphi XE 2 ou superior
pckUserControl_RT.dpk
pckUserControl_DT.dpk
Pasta Historico – (Opcional)
pckHistorico.dpk
Pasta Connectors
Instale os connectors que você achar necessário. Não há ordenação.
Lembre de adicionar os paths dos fontes nos library do Delphi.
3 – Primeiros passos – Criando a aplicação de Exemplo
Após ter executado o processo de instalação do seu novo conjunto de componentes, você terá a sua disposição, duas abas na paleta de componentes do Delphi: SWDelphi – UC Main e SWDelphi – UC Connectors. Na paleta UC Main, existem 8 componentes, sendo eles respectivamente: UserControl, UCSettings, UCControls, UCApplicationMessage, UCIDle, MailUserControl, UCHist_DataSet e UCControl_Historico). Na aba UC Connectors, você terá somente aqueles conectores que foram instalados.
Para que possamos entender o funcionamento desse maravilhoso conjunto de componentes, vamos criar uma pequena aplicação.
3.1 – Criando um Banco de Dados
Você poderá criar o banco de dados usando o programa que preferir. Eu uso a versão do IBExpert Personal Edition. Esse procedimento eu não irei explicar. Mas você pode criar um banco de dados contendo a seguinte estrutura:
Clique aqui para baixar o arquivo contendo a estrutura do banco de dados
3.2 – Sistema de Exemplo
Para não perder muito tempo, clique aqui para baixar o arquivo zip contendo os arquivos de banco de dados e também de aplicativo. Nesse pequeno aplicativo, foram adicionados um data module contendo um componente SQLConnection da paleta DbExpress com o Name cnxUC; um componente TUCDBXConn da paleta UCConnectors com a propriedade Name definida para MyConn e um componente UserControl da paleta UC Main, tendo a sua propriedade Name definida para ucMyControl.
Execute as configurações para o componente SQLConnection (isso não faz parte do escopo desse tutorial). Na propriedade Connection do componente TUCDBXConn, defina o SQLConnection (cnxUC). Clique no componente UserControl e na propriedade DataConnector defina o TUCDBXConn (MyConn).
Executando esses procedimentos, você somente executou a parte mais simples de tudo. No próximo artigo, vamos começar a entender algumas propriedades do componente UserControl.
Artigo baseado em um artigo sobre o user control original. Autor do artigo original: Exio
http://www.planetadelphi.com.br/artigo/132/usercontrol-controle-os-usuarios-na-aplicacao-parte-1/
Você precisa fazer o login para publicar um comentário.
Belo trabalho, o instalador facilitou muito a vida. Caso identificar algum problema me comprometo a reportar no github
Estou tendo problemas, ao compilar o pacote pckAlcione, ocorre um erro
[dcc32 Error] ALExprEval.pas(2141): E2003 Undeclared identifier: ‘ZCrc32’
preciso ter o ACBe instalado antes
Estou com um problema, quando acesso o controle de usuário na 1ª aba que pega os itens do mainmenu se eu deixo marcado alguma opções e depois eu volto pra editar quando eu abror a arvore ele desmarca tudo, isso seria problema do componente ou configuração ?
Adheimar, sim isso do clique da árvore é um tipo de bug que estamso vendo para resolver.
Para facilitar a resposta a dúvidas, utilize o fórum, onde todas as questões ficam centralizadas.
Link: http://showdelphi.com.br/forum/forum/duvidas-e-problemas-relacionados-ao-usercontrol-showdelphi-edition/
Acabei de baixar por V/recomendação agoriha mesmo. Aqui vai o logo do erro, não o entendo!?
Copyright (c) 1983,2014 Embarcadero Technologies, Inc.
C:\TRAB\Embarcadero\MauriLima\source\Base\pUCFrame_User.pas(94) Fatal: F1026 File not found: ‘C:\TRAB\Embarcadero\MauriLima\Packages\Base\ImageList.dcu’
Compilation failure
Erro ao compilar o pacote “pckUserControl_RT.dpk”.
Abortando… Ocorreram erros na compilação dos pacotes.
Alguem mais se deparou com o mesmo erro no DXE7? Não testei em nenhum outro e aliás estou já considerando repor a versão que tinha antes, mesmo com problemas
Pelo erro, está faltando o arquivo pUCFrame_User.pas. Favor, verifique.
E lembramos ao pessoal para que utilizem o fórum para reportar sugestões ou bugs, porque por aqui não será monitorado.
Link do fórum: http://showdelphi.com.br/forum/forum/duvidas-e-problemas-relacionados-ao-usercontrol-showdelphi-edition/
bom dia preciso instalar usercontrol mas ele da o seguinte erro:
Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
pckUserControl_RT.dpk(37) Fatal: Required package ‘IndyProtocols’ not found
Compilation failure
Erro ao compilar o pacote “pckUserControl_RT.dpk”.
Bom dia ao Instalar o UserControl da erro:
Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
pckUserControl_RT.dpk(37) Fatal: Required package ‘IndyProtocols’ not found
Compilation failure
Erro ao compilar o pacote “pckUserControl_RT.dpk”.
mas ja instalei o Indy10 e o componente IndyProcols está no delphi 7
Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
pckUserControl_RT.dpk(37) Fatal: Required package ‘IndyProtocols’ not found
Compilation failure
Erro ao compilar o pacote “pckUserControl_RT.dpk”.
o componente Indy10 esta instalado corretamente e existe o package IndyProtocols está ok
aqui está dando um erro “Invalid File name -%s” sabe me dizer o que fazer??
Bom talvez este não seja o lugar mais adequado para deixar esta questão. Ainda assim tento expor que estou a tentar usar por um lado o EventAlert
e usercontrol o que mw esta a dar agua pela barba, pricipalmente em 2 situações: 1. Usercontrol1.Log(msg,0) ; 2- TucHistorico. Ambos crahsando a aplicação! Sem se perceber porque?
No TUCHistórico.Active tem que estar true, ou não regista nada, enquanto dava muito jeito faze-lo onfly. Mas com true ao gravar rebenta com a conexão?! Alguma dica? Obrigado
Estou tentando instalar para 10.3 e após escolher os pacotes ocorre o erro “Invalid file name” no instalador.
Olá João, isto deve ser porque o instalador ainda não está preparado para o Delphi 10.4. Acredito que em breve ele estará disponível para a versão.
Estou procurando informação para usercontrol a 64 bits Pque o instalador não compila