Josimar Neves

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 !

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.

Obrigado Felipe !

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 !