ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Pegar usuario logado

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
felipejf
Novato
Novato


Registrado: Domingo, 6 de Março de 2011
Mensagens: 5

MensagemEnviada: Sex Jul 22, 2011 12:30 am    Assunto: Pegar usuario logado Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular
_johnny
Novato
Novato


Registrado: Sábado, 7 de Mai de 2011
Mensagens: 32

MensagemEnviada: Sex Jul 22, 2011 1:36 am    Assunto: Re: Pegar usuario logado Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular
felipejf
Novato
Novato


Registrado: Domingo, 6 de Março de 2011
Mensagens: 5

MensagemEnviada: Sex Jul 22, 2011 9:03 pm    Assunto: Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular
_johnny
Novato
Novato


Registrado: Sábado, 7 de Mai de 2011
Mensagens: 32

MensagemEnviada: Sex Jul 22, 2011 9:07 pm    Assunto: Responder com Citação

essas sao as variaveis globais q vc cria no seu main form...
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
felipejf
Novato
Novato


Registrado: Domingo, 6 de Março de 2011
Mensagens: 5

MensagemEnviada: Sex Jul 22, 2011 9:17 pm    Assunto: Responder com Citação

OK. vou tentar fazer aki.
Obrigado
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
felipejf
Novato
Novato


Registrado: Domingo, 6 de Março de 2011
Mensagens: 5

MensagemEnviada: Sex Jul 22, 2011 9:29 pm    Assunto: Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular
osmano.queiroz
Novato
Novato


Registrado: Quinta-Feira, 12 de Novembro de 2009
Mensagens: 53

MensagemEnviada: Sex Jul 22, 2011 9:38 pm    Assunto: Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular
felipejf
Novato
Novato


Registrado: Domingo, 6 de Março de 2011
Mensagens: 5

MensagemEnviada: Sex Jul 22, 2011 9:40 pm    Assunto: Responder com Citação

Ok. Tentando aki...
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB