Acesso ao sistema com perfil de usuário
Bom dia pessoal,
Estou montando um sistema e no mesmo vai existir um controle de acesso por perfis.
Os usuarios terão perfis personalizados. Por exemplo :
Joãozinho acessa estoque,
Mariazinha acessa contas a pagar e a receber,
e assim por diante...
No Delphi existe uma propriedade para os componentes que é ´TAG´. Nesta propriedade, posso colocar qualquer valor inteiro.
Então o que estou fazendo. Quero que toda vez que o usuario abrir um form o sistema verificasse se nesta ´TAG´ ele tem direito de acesso.
Para isso criei uma Tabela com as tags que cada usuário pode acessar.
Até aí tudo bem. Mas gostaria de automatizar um pouco, criando uma função para isso. Então o que eu gostaria de fazer.
Criar um for toda vez que abrisse um form e verificasse todos os componentes. Se a ´TAG´ estivesse na tabela, então faria Enabled = True.
Agora vem a minha duvida. Como faço para ele varrer o formulário todo e ativar / desativar os componentes ?
Grato a todos.
Estou montando um sistema e no mesmo vai existir um controle de acesso por perfis.
Os usuarios terão perfis personalizados. Por exemplo :
Joãozinho acessa estoque,
Mariazinha acessa contas a pagar e a receber,
e assim por diante...
No Delphi existe uma propriedade para os componentes que é ´TAG´. Nesta propriedade, posso colocar qualquer valor inteiro.
Então o que estou fazendo. Quero que toda vez que o usuario abrir um form o sistema verificasse se nesta ´TAG´ ele tem direito de acesso.
Para isso criei uma Tabela com as tags que cada usuário pode acessar.
Até aí tudo bem. Mas gostaria de automatizar um pouco, criando uma função para isso. Então o que eu gostaria de fazer.
Criar um for toda vez que abrisse um form e verificasse todos os componentes. Se a ´TAG´ estivesse na tabela, então faria Enabled = True.
Agora vem a minha duvida. Como faço para ele varrer o formulário todo e ativar / desativar os componentes ?
Grato a todos.
Denis
Curtidas 0
Respostas
Denis
12/04/2006
up
GOSTEI 0
Denis
12/04/2006
up
GOSTEI 0