ActiveDelphi

[wilianbenin]

Boa noite a todos, estou fazendo uma tela de login com usuario e senha, e tenho uma tabela "Usuario" onde são salvos Usuario, Senha e Permissão. Eu queria fazer com que de acordo com a permissão o usuario pudesse ter acesso ou não a certas opções em um menu. O meu banco é o access e as minhas permissões são salvas por exemplo : 'Administrador', 'Aluno'. Tentei fazer de algumas maneiras mas nenhuma deu certo, acho que tá faltando algum detalhe.

Desde já agradeço pela ajuda.

[oneshotbr]

Eu faço assim.

[wilianbenin]

Eu tentei dessa maneira, só que o meu primeiro usuário cadastrado tem com permissão 'Administrador'. Ai eu entro com outro login só que dessa forma ele continua pegando a permissão de 'Administrador', sendo que esse outro login não tem essa permissão. No caso eu acho que ele não está buscando a permissão de acordo com a do usuário e sim só está buscando a permissão do primeiro usuário.

[oneshotbr]

Coloca aqui seu código deixa eu ver como está.
_________________
AMD Phenom II X4 960T 3.00 GHz - 8 GB DDR III - HD 1000 GB SATA - GeForce GTX 650 TI GDDR 5 - Monitor 21,5" Full HD - Kubuntu 14.04 + Windows 7 Professional x64.

[faccruz]

[BrunoMoreyra]

Bom dia,

você terá que criar um método para alimentar as propriedades do MainMenu, e após a tela de login executar esse método.
Ou adicionar no Activate da tela, para remontar o menu, e habilitar as opções do menu respectiva a cada Perfil.

[wilianbenin]

Bom dia,

Essa programação está no formulário de login.
if dm.QryUsuario.FieldByName('Permissao').Value <> 'Administrador' Then
begin
FR_MenuEstoque.Usurio1.Visible := False;
end;

Vou dar uma olhada nesse componente também. E o problema não é que eu não esteja conseguindo desabilitar os componentes e sim o fato de não estar conseguindo passar os valores da permissão de cada usuário.

[BrunoMoreyra]

Bom dia,

terá que fazer algo do tipo.

[wilianbenin]

sim sim, essa idéia é parecida com a que eu postei ali. O problema é que mesmo que eu entre com um usuario que não tenha permissão de 'Administrador', ele carrega o componente do menu. Eu acredito que o problema esteja na hora do 'DM.QryUsuario.Fieldbyname('Permissao'). Pelo o que eu consegui ver, ele carrega a permissao sempre como 'Administrador' e isso acontece porque o meu primeiro usuário tem a permissão 'Administrador'.

[wilianbenin]

Eu consegui resolver o problema. Eu fiz uma procedure que tem um select e passei o resultado desse select para uma variável. E depois "chamei" a variavel dentro do botão "Entrar".


procedure TFR_Login.VerificaPermissao;
begin
With DM.QryUsuario do
begin
SQL.Clear;
SQL.Add('Select Permissao_Usuario');
SQL.Add('From Usuario');
SQL.Add('Where Login_Usuario = :Log');
SQL.Add('and Senha_Usuario = :Sen');
Parameters.ParamValues['Log'] := Txt_Usuario.Text;
Parameters.ParamValues['Sen'] := Txt_Senha.Text;
Open;
bOpcao := DM.QryUsuario.fieldbyname('Permissao_Usuario').AsString;
end;
If bOpcao <> 'Administrador' Then
begin
FR_MenuEstoque.Usurio1.Visible := False;
end;
end;

[E5150]

você fez menus diferentes para diferentes perfil's de usuário ou alterou as propriedades de um unico menu para diferentes perfil's de usuários?

[wilianbenin]

eu fiz um único menu, para diferentes tipos de usuários e passei algumas propriedades como falsas ou verdadeiras de acordo com a permissão que esse usuário possuia.