Acesso ao sistema com perfil de usuário

Delphi

12/04/2006

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.


Denis

Denis

Curtidas 0

Respostas

Denis

Denis

12/04/2006

up


GOSTEI 0
Denis

Denis

12/04/2006

up


GOSTEI 0
POSTAR