Sistema de login

[phfmiranda 0]

Bom dia Pessoal,

 

Estava precisando de um simples sistema de login, até achei o que utiliza o Zeus mas precisava de algo mais simples mas que utiliza-se bd.

 

Obrigado.

[Raficcha 1]

Cara, eu tenho um componete de login, mas não conversa diretamente com o banco de dados, você precisa adicionar os usuarios via código.

 

Ao chamar ele, ele irá exibir um propet e solicitará usuário e senha, e se a janela for fechada ou cancelada poderá finalizar a aplicação.

 

Veja uma tela do prompt de login:

 

 

Se você se interessar me envie um e-mail: tonello.rafinha@gmail.com

[Rodrigo Miss 1]

Bom dia senhores!

lembro-me muito bem que um dia o meu amigão do peito, ex-colega do grupo de moderadores aqui do fórum, Marcio Theis, ele fez um exemplo disso e postou no laboratório de scripts....

http://forum.imasters.com.br/index.php?/topic/230297-controle-de-acesso/page__view__findpost__p__796102

[phfmiranda 0]

Obrigado pela ajuda amigos, porem o link para download dos codigos está quebrado.

[Mário Monteiro 179]

É verdade, estava hospedado no geocites

[vitorm11 3]

phfmiranda...

 

Como você utiliza o ZeosLib basta você colocar um código no botão de entrar mais ou menos assim:

  if (usuario.Text = '') then
  begin
    Messagedlg('O campo "Usuario" deve ser preenchido!', mtInformation, [mbOk], 0);
    if usuario.CanFocus then
      usuario.SetFocus;
    Exit;
  end;
  if (senha.Text = '') then
  begin
    Messagedlg('O campo "Senha" deve ser preenchido!', mtInformation, [mbOk], 0);
    if senha.CanFocus then
      senha.SetFocus;
    Exit;
  end;

  Query.Close;
  Query.SQL.Clear;
  Query.SQL.Add('SELECT * FROM usuario WHERE login='''+usuario.Text+''' AND senha=MD5('''+senha.Text+''')');
  Query.ExecSQL;
  Query.Active:=true;
  if (Query.RecordCount > 0) then
  begin
    Messagedlg('Login Efetuado Com Sucesso!', mtInformation, [mbOk], 0);
        FormUsuario.Visible := True;
        FormLogin.Hide;
  end

  else
    inc(tentativas);
  if tentativas= 1 then
  begin
    MessageDlg(Format('Tentativa 1 de 3', [tentativas]), mtError, [mbOk], 0);
  end;
  if tentativas= 2 then
  begin
    MessageDlg(Format('Tentativa 2 de 3', [tentativas]), mtError, [mbOk], 0);
  end;
  if tentativas= 3 then
  begin
    MessageDlg(Format('O login ou senha estão errados! A aplicação será fechada!',
    [tentativas]) + #13 + 'Confira seu erro, abra e tente novamente!', mtError, [mbOk],   0);
    Application.Terminate;
  end;

E em private adicione:

tentativas: Smallint;

Este é um sistema de login ele verifica o campo se foi digitado alguma coisa, caso haja digitado ele parte para a verificação... Caso contrario retorna o foco no campo em branco...

Ele também possui um sistema de tentativas, você tem 3 tentativas para acertar o login e a senha, caso contrario o programa será fechado...

 

Caso possua mais alguma dúvida ou não entenda o código direito volte a fazer contato...

 

Feliz Natal...

 

Att. Vitor.

[Rodrigo Miss 1]

Obrigado pela ajuda amigos, porem o link para download dos codigos está quebrado.

 

http://forum.imasters.com.br/index.php?/topic/230297-controle-de-acesso/page__p__796102entry796102