correto:=false; if (edt_nome.text = dm.table.cliNOME.value) then begin correto:=true; edt_pass.text.setfocus; dm.table.cliNOME.last; end else begin dm.table.cliNOME.next; end; //aqui tem um if caso seja table.eof e a var correto seja false, mostra menssagem...
Ei .. opa... muito boa as suas aulas.. mas eu tive um pequeno problema na hora de validar a senha.
Eu no meu caso eu to usando o drive DBExpress pra conectar ao Firebird 2.1
o usuário está funcionando beleza, mas a senha não está pegando do usuário que eu digito, está pegando sempre o primeiro da tabela. If not (edtSenha.Text = DataModule2.strngfldUsuariosSENHA.Value) then begin MessageDlg('Senha Incorreta.', mtInformation, [mbOK], 0); edtSenha.SetFocus; Exit; end;
cara eu fiz um rolo pra essa mesma coisa... kkkk
compliquei d+ :p
while not dm.table.eof do
var user_correto, pass_correto: boolean; begin
correto:=false; if (edt_nome.text = dm.table.cliNOME.value) then begin correto:=true; edt_pass.text.setfocus; dm.table.cliNOME.last; end else begin dm.table.cliNOME.next; end; //aqui tem um if caso seja table.eof e a var correto seja false, mostra menssagem...
end;
parabéns,ficou mto show
sslayerrflah 7 months ago
This has been flagged as spam show
Ei .. opa... muito boa as suas aulas.. mas eu tive um pequeno problema na hora de validar a senha.
Eu no meu caso eu to usando o drive DBExpress pra conectar ao Firebird 2.1
o usuário está funcionando beleza, mas a senha não está pegando do usuário que eu digito, está pegando sempre o primeiro da tabela. If not (edtSenha.Text = DataModule2.strngfldUsuariosSENHA.Value) then begin MessageDlg('Senha Incorreta.', mtInformation, [mbOK], 0); edtSenha.SetFocus; Exit; end;
cagoleuterpe 1 year ago
Comment removed
cagoleuterpe 1 year ago