Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
felipejf Novato

Registrado: Domingo, 6 de Março de 2011 Mensagens: 5
|
Enviada: Sex Jul 22, 2011 12:30 am Assunto: Pegar usuario logado |
|
|
Bem, preciso pegar o usuário que esta logado no sistema e exibir em uma progress bar.
Como funciona:
Tem a tela de login e depois do usuário digitar o seu login abrirá um form que contem a Progress Bar.
Gostaria que alguem me ajudasse
infomação extra:
Banco de dados access 2003.
Obrigado. |
|
Voltar ao Topo |
|
 |
_johnny Novato

Registrado: Sábado, 7 de Mai de 2011 Mensagens: 32
|
Enviada: Sex Jul 22, 2011 1:36 am Assunto: Re: Pegar usuario logado |
|
|
Bem, no meu sistema tenho algo parecido, porem eu mostro em um label.
Para isso nao é tao complicado, basta criar no seu form principal uma variavel global, depois no botao de logar, crie uma variavel local do tipo boolean, e após a verificacao no banco de dados, vc pode usar algo assim Código: |
logado := (ClientLogin.RecordCount>0); //verifica se esta logado, ja q é boolean, se receber '1' é verdadeiro
if logado then
begin
NomeUsuario := clientLoginUsuNome.Value; //recebe o valor do nome do usuario
TipoUsuario := clientLoginUsuTipo.Value; //recebe o tipo dele(admin, etc)
CodigoUsuario := clientLoginUsuCodigo.Value;//recebe o codigo dele
Close;
FormPrincipal.show;
end
else
begin
Panel1.Visible := true; //ativa onde mostra o nome e o tipo do usuario
end; |
|
|
Voltar ao Topo |
|
 |
felipejf Novato

Registrado: Domingo, 6 de Março de 2011 Mensagens: 5
|
Enviada: Sex Jul 22, 2011 9:03 pm Assunto: |
|
|
Entendi,
mas voce colocou:
NomeUsuario := clientLoginUsuNome.Value; //recebe o valor do nome do usuario
TipoUsuario := clientLoginUsuTipo.Value; //recebe o tipo dele(admin, etc)
CodigoUsuario := clientLoginUsuCodigo.Value;//recebe o codigo dele
esses nomes em negrito e varialveu ou algo assim?
[/b] |
|
Voltar ao Topo |
|
 |
_johnny Novato

Registrado: Sábado, 7 de Mai de 2011 Mensagens: 32
|
Enviada: Sex Jul 22, 2011 9:07 pm Assunto: |
|
|
essas sao as variaveis globais q vc cria no seu main form... |
|
Voltar ao Topo |
|
 |
felipejf Novato

Registrado: Domingo, 6 de Março de 2011 Mensagens: 5
|
Enviada: Sex Jul 22, 2011 9:17 pm Assunto: |
|
|
OK. vou tentar fazer aki.
Obrigado |
|
Voltar ao Topo |
|
 |
felipejf Novato

Registrado: Domingo, 6 de Março de 2011 Mensagens: 5
|
Enviada: Sex Jul 22, 2011 9:29 pm Assunto: |
|
|
Devo ta te echendo o saco, sou iniciante em delphi, ja fiz algumas coisas em VB.
Tenho 2 form:
1º frmlogin,
2º frminicial,
declaro NomeUsuario... em qual deles? é em public?
Thanks Again... |
|
Voltar ao Topo |
|
 |
osmano.queiroz Novato

Registrado: Quinta-Feira, 12 de Novembro de 2009 Mensagens: 53
|
Enviada: Sex Jul 22, 2011 9:38 pm Assunto: |
|
|
Depende aonde você quer usar o nome do usuário.
Geralmente um login é salvo em uma banco de dados;
Você pode criar uma var em public ou private do seu form inicial e;
variavel := login;
veja abaixo, estou passando para um panel de um statusbar o login de um usuário.
FrmPrincipal.SB.Panels[1].Text := 'USUÁRIO: ' + loQry.FieldByName('LOGIN').AsString; |
|
Voltar ao Topo |
|
 |
felipejf Novato

Registrado: Domingo, 6 de Março de 2011 Mensagens: 5
|
Enviada: Sex Jul 22, 2011 9:40 pm Assunto: |
|
|
Ok. Tentando aki... |
|
Voltar ao Topo |
|
 |
|