eu estou criando o formulario de login, e não estou conseguindo fazer com o usuario tenha tres chances de entrar no sistema, ou seja, depois que o usuario errar três vezes seu login ou senha
é que o sistema vai dar o.....
Application.Terminate;
encerra o programa
onde e como devo alterar
procedimentos,
//Verifica a senha do usuário
F_Dados.Q_ConsFunc.Active := False;
F_Dados.Q_ConsFunc.SQL.Clear;
F_Dados.Q_ConsFunc.SQL.Add('SELECT * FROM FUNCIONARIO WHERE LOGIN ='+#39+EditLogin.Text+#39);
Pergunta
Livio Neiva
eu estou criando o formulario de login, e não estou conseguindo fazer com o usuario tenha tres chances de entrar no sistema, ou seja, depois que o usuario errar três vezes seu login ou senha
é que o sistema vai dar o.....
Application.Terminate;
encerra o programa
onde e como devo alterar
procedimentos,
//Verifica a senha do usuário
F_Dados.Q_ConsFunc.Active := False;
F_Dados.Q_ConsFunc.SQL.Clear;
F_Dados.Q_ConsFunc.SQL.Add('SELECT * FROM FUNCIONARIO WHERE LOGIN ='+#39+EditLogin.Text+#39);
F_Dados.Q_ConsFunc.SQL.Add('AND SENHA ='+#39+EditSenha.Text+#39);
F_Dados.Q_ConsFunc.Active := True;
//
if F_Dados.Q_ConsFunc.FieldByName('LOGIN').AsString <> '' then
F_Menu.ShowModal
Else begin
ShowMessage('Login ou Senha Incorretos');
Application.Terminate;
end;
close;
end;
obrigado a todos
Link para o comentário
Compartilhar em outros sites
5 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.