Login De Acesso

[Guest - Anderson -]

olá Pessoal, sou novo no forúm e na linguagem e gostaria de saber como faço para restringir o acesso a um sistema por niveis de usuário. Tenho uma tabela(paradox) com os campos : username, senha, nivel. Gostaria q o nivel 1 tivesse acesso a tudo no sistema, o 2 menos aos faturamento (contas receber), o 3 so aos cadastros e assim por diante.

Agradeço desde já

[vitorbrando]

Cara você pode fazer o seguinte:

A principio você marca todas as opções do seu Menu como Enabled := False.

Na tela de login quando o cara informar login e senha você lê qual o nível dele na tabela e a depender disso você habilita no Menu somente as opções que correspondem ao nível dele, deixando as outras ainda desabilitadas... No caso do Usuário root você habilita o menu todo...

Cara espero ter ajudado!!!

falou!!!

[Guest - Anderson -]

Cara você pode fazer o seguinte:

A principio você marca todas as opções do seu Menu como Enabled := False.

Na tela de login quando o cara informar login e senha você lê qual o nível dele na tabela e a depender disso você habilita no Menu somente as opções que correspondem ao nível dele, deixando as outras ainda desabilitadas... No caso do Usuário root você habilita o menu todo...

Cara espero ter ajudado!!!

falou!!!

Mas como faço para pegar o nivel dele na tabela, você não tem nenhum exemplo para eu ver.

Valeu pela ajuda.

[vitorbrando]

Cara você lê o nivel do usuário do mesmo jeito que você está lendo o username e senha quando você faz a verificação dos 2 quando o cara os digitar isso num edit...

Você declara lá uma variável...

nivel : integer por exemplo, e le na base de dados:

nivel := tabela.fieldbyname('nivel').AsInteger;

e depois verifica que nivel é, assim:

if nivel = 1 then
begin
//Aqui você habilita o q tiver q habilitar para nivel 1
end
else
if nivel = 2 then
begin
// Habilita o q tiver q habilitar para 2
end
else 
if ... e por ai vai, depende de quantos niveis de usuário você tem ai...

Qualque dúvida posta aeee...