Autenticação

Delphi

01/10/2003

Eu estou tentando verificar qual o valor do campo Setor na minha tabela usuario e estou fazendo utilizando o seguinte código:

If (DM.tblsenhaSetor.Text = ´Admin´) Then
  Begin
    CadUsu.ShowModal;
  End
  Else
    MessageDlg(´VOCÊ NÃO TEM AUTORIZAÇÃO NESTE CAMPO´, mtWarning, [mbOk], 0)
end;


Alguém teria alguma sugestão de algum outro código para fazer isso?


Raphael Oliveira

Raphael Oliveira

Curtidas 0

Respostas

Luizfernando777

Luizfernando777

01/10/2003

Caro colega:
Não sei se vai lhe ajudar,
mas eu trab. da seguinte maneira,
qdo o aplicativo é iniciado ele
faz a autenticação,
Usuario e Senha,
se for positivo, eu tenho
uma variavel publica que
se chama Nivel,
supondo-se que:
1) determinada chamada trabalha
com o nível 10 e a pessoa logada é
5 então não entra e mostra uma mensagem,
que nãotem autorização
é bem funcional.


GOSTEI 0
POSTAR