UserControl
Pessoal,
passei a usar o componente UserControl e ele está funcionando bem mas tenho uma dúvida.
Como faço para obter o usuário q está logado no sistema?
Tenho alguns usuários e suas devidas permissões o que funciona bem mas quero, por exemplo, mostrar num statusbar o usuário e seu nome.
como faço?
Até mais!!!
passei a usar o componente UserControl e ele está funcionando bem mas tenho uma dúvida.
Como faço para obter o usuário q está logado no sistema?
Tenho alguns usuários e suas devidas permissões o que funciona bem mas quero, por exemplo, mostrar num statusbar o usuário e seu nome.
como faço?
Até mais!!!
Leogalindo
Curtidas 0
Respostas
Qmd
16/02/2004
Acho que nesse caso uma boa opcao seria usar o evento OnLoginSucess. Pois esse evento ocorre qdo o usuario se loga no sistema e sao enviados como parametro os dados do login.
Veja o exemplo:
http://usercontrol.sourceforge.net/images/OnLoginSucess.jpg
(eu esqueci de traduzir pra ingles os parametros do evento... farei isso numa futura versao...)
Outra forma de voce ter acesso aos dados do usuario logado e utilizando a propriedade CurrentUser.
ex: ShowMessage(AdoUserControl1.CurrentUser.UserName);
obs:
Definicao da propriedade CurrentUser : TUserDef
UserID, Profile : Integer;
Username, LoginName, Password, Email : String;
Privilegiado : Boolean;
T++
QmD
http://usercontrol.sourceforge.net
versao atual 2.7
qmd@onda.com.br
icq: 15630894
Canal #Delphi irc.brasnet.org
Veja o exemplo:
http://usercontrol.sourceforge.net/images/OnLoginSucess.jpg
(eu esqueci de traduzir pra ingles os parametros do evento... farei isso numa futura versao...)
Outra forma de voce ter acesso aos dados do usuario logado e utilizando a propriedade CurrentUser.
ex: ShowMessage(AdoUserControl1.CurrentUser.UserName);
obs:
Definicao da propriedade CurrentUser : TUserDef
UserID, Profile : Integer;
Username, LoginName, Password, Email : String;
Privilegiado : Boolean;
T++
QmD
http://usercontrol.sourceforge.net
versao atual 2.7
qmd@onda.com.br
icq: 15630894
Canal #Delphi irc.brasnet.org
GOSTEI 0