Ir para conteúdo
  • Cadastre-se

dev botao

Tela de Login e senha


  • Este tópico foi criado há 1770 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Prezados, boa tarde !

Estou desenvolvendo uma tela de login e senha e, como sou iniciante, empaquei em uma situação meia cômica.

Quando eu insiro a senha incorreta, o sistema mostra a mensagem de senha de acesso inválida porém ainda assim abre o sistema.

Não sei como fazer para travar e não deixar que o sistema abra. Segue abaixo o código para verem onde errei. desde já, agradeço !!

procedure TFormLogin.btnentrarClick(Sender: TObject);
begin
  if    edtsenha.Text = DMDados.QueLoginusuario_senha.Value  then
        ShowMessage('Olá ' +DMDados.QueLoginusuario_nome.Value+ ' Bem Vindo ao sistema')
  else
        ShowMessage('Senha de acesso inválida !');

end;

procedure TFormLogin.btnsairClick(Sender: TObject);
begin
  Close;

end;

procedure TFormLogin.edtusuarioExit(Sender: TObject);
begin
    if not (DMDados.QueLogin.Locate('usuario_nome',edtusuario.Text,[loPartialKey,loCaseInsensitive])) then
     begin
          ShowMessage('Usuário não encontrado !');
          edtusuario.clear;
          edtusuario.SetFocus;
     end;

end;

procedure TFormLogin.FormShow(Sender: TObject);
begin
 edtusuario.SetFocus;
end;

end.

Link para o comentário
Compartilhar em outros sites

14 horas atrás, Josimar Neves disse:

Prezados, boa tarde !

Estou desenvolvendo uma tela de login e senha e, como sou iniciante, empaquei em uma situação meia cômica.

Quando eu insiro a senha incorreta, o sistema mostra a mensagem de senha de acesso inválida porém ainda assim abre o sistema.

Não sei como fazer para travar e não deixar que o sistema abra. Segue abaixo o código para verem onde errei. desde já, agradeço !!

procedure TFormLogin.btnentrarClick(Sender: TObject);
begin
  if    edtsenha.Text = DMDados.QueLoginusuario_senha.Value  then
        ShowMessage('Olá ' +DMDados.QueLoginusuario_nome.Value+ ' Bem Vindo ao sistema')
  else
        ShowMessage('Senha de acesso inválida !');

end;

procedure TFormLogin.btnsairClick(Sender: TObject);
begin
  Close;

end;

procedure TFormLogin.edtusuarioExit(Sender: TObject);
begin
    if not (DMDados.QueLogin.Locate('usuario_nome',edtusuario.Text,[loPartialKey,loCaseInsensitive])) then
     begin
          ShowMessage('Usuário não encontrado !');
          edtusuario.clear;
          edtusuario.SetFocus;
     end;

end;

procedure TFormLogin.FormShow(Sender: TObject);
begin
 edtusuario.SetFocus;
end;

end.

Josimar, bom dia. 

Cara, você postou uma dúvida que não é inerente aos componentes do Acbr, muito menos DF-e. rs Mais, como somos uma comunidade, vou tentar ajudar você, o(s) moderador(res) podem mover o fechar o tópico depois.

Pelo fragmento que postou, acredito que esse seria o caminho:

procedure TFormLogin.btnentrarClick(Sender: TObject);
begin
  if edtsenha.Text = DMDados.QueLoginusuario_senha.Value then
    ShowMessage('Olá ' +DMDados.QueLoginusuario_nome.Value+ ' Bem Vindo ao sistema')
  else
  begin
    edtsenha.Text := '';
    edtsenha.SetFocus;
    Raise Exception.Create('Senha de acesso inválida!');
  end;
end;

procedure TFormLogin.btnsairClick(Sender: TObject);
begin
  Close;
end;

procedure TFormLogin.edtusuarioExit(Sender: TObject);
begin
  if not (DMDados.QueLogin.Locate('usuario_nome', edtusuario.Text, [loPartialKey, loCaseInsensitive])) then
  begin
    ShowMessage('Usuário não encontrado !');
    edtusuario.clear;
    edtusuario.SetFocus;
  end;
end;

procedure TFormLogin.FormShow(Sender: TObject);
begin
 edtusuario.SetFocus;
end;

end.

 

 

Link para o comentário
Compartilhar em outros sites

  • Administradores

Bom dia.

Moderação: Movido para sub-fórum adequado.

Att.

  • Curtir 1
Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

Em 23/05/2019 at 08:27, MFincotto disse:

Josimar, bom dia. 

Cara, você postou uma dúvida que não é inerente aos componentes do Acbr, muito menos DF-e. rs Mais, como somos uma comunidade, vou tentar ajudar você, o(s) moderador(res) podem mover o fechar o tópico depois.

Pelo fragmento que postou, acredito que esse seria o caminho:


procedure TFormLogin.btnentrarClick(Sender: TObject);
begin
  if edtsenha.Text = DMDados.QueLoginusuario_senha.Value then
    ShowMessage('Olá ' +DMDados.QueLoginusuario_nome.Value+ ' Bem Vindo ao sistema')
  else
  begin
    edtsenha.Text := '';
    edtsenha.SetFocus;
    Raise Exception.Create('Senha de acesso inválida!');
  end;
end;

procedure TFormLogin.btnsairClick(Sender: TObject);
begin
  Close;
end;

procedure TFormLogin.edtusuarioExit(Sender: TObject);
begin
  if not (DMDados.QueLogin.Locate('usuario_nome', edtusuario.Text, [loPartialKey, loCaseInsensitive])) then
  begin
    ShowMessage('Usuário não encontrado !');
    edtusuario.clear;
    edtusuario.SetFocus;
  end;
end;

procedure TFormLogin.FormShow(Sender: TObject);
begin
 edtusuario.SetFocus;
end;

end.

 

 

MFincotto, desde já agradeço pela ajuda e esclarecimento em relação ao tópico.
Pois bem, Após inserir o orientação que me deu, quando vou fazer login, aparece a mensagem " raised exception class Exception with message 'Senha de acesso inválida!'."
Pode ajudar ?
Desde já, agradeço !

Link para o comentário
Compartilhar em outros sites

3 horas atrás, Josimar Neves disse:

MFincotto, desde já agradeço pela ajuda e esclarecimento em relação ao tópico.
Pois bem, Após inserir o orientação que me deu, quando vou fazer login, aparece a mensagem " raised exception class Exception with message 'Senha de acesso inválida!'."
Pode ajudar ?
Desde já, agradeço !

Tem que exibir caso a senha esteja incorreta.

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1770 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.