Sistema de Login Simples!

Olá!

neste POST estarei mostrando a vocês como montar o login simples para controle de acesso a um sistema quaquer.

Mãos a obra!

  1. No delphi vou precisar colocar um objeto statusbar e nesse status bar estarei adicionando um panel, que servirá para mostrar o nome do usuário logado no sistema.
  2. Definir duas variáveis de controle no espaço Public do formulário principal.
    public
    { Public declarations }
    bolAcessoPermitido:Boolean; //que servirá como controle para saber se o usuário esta ou não autenticado
    strNomeUsuario:string; //esta variável armazenará o nome do usuário logado no sistema
    end;
  3. Crie um nome formulário quer servirá como login
    • Coloqueo os sequintes componentes:
      EdtUsuario: TEdit;
      EdtSenha: TEdit;
      BtnOk: TButton;
      LblUsuario: TLabel;
      LblSenha: TLabel;
      BtnCancelar: TButton;
  4. Agora referencia nas cláusulas uses a unidade Princicipal: UntMain para que o form de login tenha acesso as variáveis publicas do form Main;
  5. Programe o Clique do botão Ok:
    procedure TFrmLogin.BtnOkClick(Sender: TObject);
    begin
    if (EdtUsuario.Text = ‘usuario’) then
    begin
    if EdtSenha.Text = ‘123’ then
    begin
    {o usuario e a senha são verdadeiros}
    FrmMain.bolAcessoPermitido:= true;
    FrmMain.strNomeUsuario:= EdtUsuario.Text;
    close;
    end else
    begin
    {a senha é incorreta}
    ShowMessage(‘Senha incorreta’);
    FrmMain.bolAcessoPermitido:= false;
    FrmMain.strNomeUsuario:= ”;
    EdtSenha.SetFocus;
    EdtSenha.SelectAll;
    end;
    end else
    begin
    {o usuario é incorreto}
    ShowMessage(‘Usuario inválido’);
    FrmMain.bolAcessoPermitido:= false;
    FrmMain.strNomeUsuario:= ”;
    EdtUsuario.SetFocus;
    EdtUsuario.SelectAll;
    EdtSenha.Clear;
    end;

    end;
    {Entenda o que o sistema está fazendo}

  6. agora nosso form de login ja sabe fazer uma logica simples para validar um usuário e uma senha!
  7. volte para o form Main do projeto e crie um evento OnActive do objeto Form
    {Este evento terá a lógica, que fecha ou permite que o sistema continue aberto.
    veja que ele esta analisando a variável bolAcessoPermitido, que foi definida neste mesmo form no inicio do projeto;
    caso seu valor seja false o sistema vai executar o método close; que encerra a aplicação, caso não seja false
    ele vai escrever o nome do usuário no painel 0 do statusbar
    }

    procedure TFrmMain.FormActivate(Sender: TObject);
    begin
    FrmLogin.ShowModal;
    if not(bolAcessoPermitido) then
    close
    else
    StatusBar1.Panels[0].Text:=strNomeUsuario;
    end;

Teste a sua aplicação, veja que o sistema ja executa o login.

agora basta que vc use a sua imaginação para fazer as regras de acesso a cada programa!

tente, invente, copie, modifique e aprenda!

abraços

Marcos

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s