[Tela de Login e senha]

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 !

[Tela de Login e senha]

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.

[Curso Dehphi focado em PDV]

31 minutos atrás, Felipe E. Resende Mesquita disse:

Bom dia, Josimar Neves.

Você pode procurar nessa parte do fórum:

https://www.projetoacbr.com.br/forum/companies/category/2-consultores/

Tópico movido para local mais indicado.

Obrigado Felipe !

[Curso Dehphi focado em PDV]

Prezados,

Estou desenvolvendo um PDV Emissor de NFCe. Como sou novo na área, estou a procura de cursos presenciais ou algum programador experiente que possa me dar aulas por conexão remota ou presencial (com valores acessíveis, é claro rs) para dar dicas e que algumas duvidas e bugs sejam retirados, tais como:
- Inserir produto na grid de venda ao bipar com leitor de código de barras;
- Criar botão para cancelar NFCe emitida;
- Imprimir nota na impressora térmica após a emissão;
- Etc...
Desde já, agradeço !