Como acessar os atributos do usuário logado com o UserControl? – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Como acessar os atributos do usuário logado com o UserControl?

 

Olá pessoal, esta dica vai para quem esta Usando o user Control.

Exemplo de problema:
Fiz o login na minha aplicação, mas quero exibir o login do usuário
que está logado em uma statusbar, por exemplo.

Felizmente o componente já trás uma solução que é a propriedade
CurrentUser.

Esta propriedade nos permite acessar várias informações do usuário
logado.

Os dados acessíveis são:

UserID: Integer;
Profile: Integer;
UserIDOld: Integer;
IdLogon: String;
UserName: String;
UserLogin: String;
Password: String;
PassLivre: String;
Email: String;
DateExpiration: TDateTime;
Privileged: Boolean;
UserNotExpired: Boolean;
UserDaysExpired: Integer;

Veja o exemplo:
Quero mostrar o login do usuário logado no sistema.
No evento OnAfterLogin do userControl deixe conforme exemplo abaixo:

1
2
3
4
procedure TForm1.UserControl1AfterLogin(Sender: TObject);
begin
  StatusBar1.Panels[0].Text := UserControl1.CurrentUser.UserLogin;
end;

Este é um exemplo simples, que pode ser aprimorado.

Você pode baixar o User Control da comunidade Show Delphi
clicando aqui. Ou fazer o clone
do repositório no GitHub: https://github.com/infussolucoes/usercontrol-sd.git

Dúvidas ou sugestões deixe nos comentários do post.

Facebook Comments

Posts Relacionados

  • Administrador
  • 1.018 views
  • 0 comentários
  • 2 de outubro de 2015

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo

© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados