Tela de Login e senha

[Josimar Neves]

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.

[MFincotto]

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.

 

 

[Juliana Tamizou]

Bom dia.

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

Att.

[Josimar Neves]

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 !

[MFincotto]

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.