Sumário
- Índice
- Anterior
- Próximo
TEvUserAccess
Propriedades Métodos Eventos
Unit
EUserAcs
Descrição
Com uma interface bem amigável, o componente TEvUserAccess tem por objetivo facilitar a definição do que cada usuário poderá acessar dentro de uma aplicação. Você poderá usar este componente para configurar o acesso de cada usuário individualmente ou para configurar o acesso de grupos de usuários.
Basta adiciona-lo ao formulário e dar um duplo clique sobre o componente ou acessar a propriedade Consents que você tem acesso ao Editor de Acessos.
O princípio de funcionamento é o seguinte: para cada botão, item de menu, edit, memo, etc., você define quais usuários terão acesso a este controle. Esta identificação é feita através de números. Por exemplo: você pode definir que um botão possa ser acesso pelos usuários 1, 4 e 5.
Após estas definições só resta identificar qual usuário está iniciando a aplicação e atribuir o número desse usuário à propriedade UserID. Veja:
procedure Form1.FormActivate(Sender: TObject);
begin
if usuário_é_o_José then
EvUserAccess1.UserID := 1
else if usuário_é_o_João then
EvUserAccess1.UserID := 2;
end;
Assim, se o usuário que estiver iniciando a aplicação for o José a propriedade UserID será igual 1. Quando você faz isso (UserAccess1.UserID := 1) o componente entra em ação e deixa habilitado somente os controles que puderem ser acessados pelo usuário 1. A mesma coisa acontece quando você faz UserAccess1.UserID igual a 2. O componente redefine todos os controles de tela, deixando habilitados somente os controles que podem ser acessados pelo usuário 2.