Curso de Delphi - Aula 06
By Tiago Assis

Cronograma Aula 06
- Sistema de login e senha


Sistema de Login e Senha
Esse é um dos recursos muito utilizados por programadores que desenvolvem softwares de gerenciamento de uma empresa, produtos, clientes, etc. O que postarei aqui será uma forma de login e senha simples, utilizando variáveis normais, porém com essa base, você poderá utilizar sua criatividade e raciocínio para banco de dados de usuários por exemplo. Caso deseje aprender como trabalhar com banco de dados no Delphi, na aula 03 tem uma explicação de uma das formas de trabalho com o SQL Server.

1 - Crie um novo projeto, salve-o com o nome que desejar.

2 - Ao criar um novo projeto, você terá o Form1. Crie mais um form (File | New | Form). Após criar você terá o Form1 e o Form2.

3 - No Form1 você adicionará os seguintes componentes (NOTA: Para alternar entre os forms, tecle Shift + F12).
---- 2 Labels (Paleta Standard)
---- 2 Edits (Paleta Standard)
---- 2 Buttons (Paleta Standard)

4 - Altere as propriedades dos componentes da seguinte forma:
- Label1
---- Caption: Login
- Label2
---- Caption: Senha
- Button1
---- Caption: Entrar
- Button2
---- Caption: Sair
- Edit1
---- Deixar em branco a propriedade Text
- Edit2
---- Deixar em branco a propriedade Text
---- PasswordChar: * (Esse é o campo que podemos alterar para uma determinada máscara, nesse caso estou utilizando o asterisco, mas você poderá utilizar o que desejar).

5 - Adicione o Form2 no Form1 pressionando Alt + F11 (irá aparecer na lista a Unit referente ao Form2, basta selecioná-la e pronto).

Evento Onclick do Entrar (Button1)
Código:
procedure TForm1.Button1Click(Sender: TObject);
var
Usuario, Senha: String; // Variáveis onde serão armazenados o login e senha
begin
Usuario:='Tiago'; // Login armazenado (OBS: Delphi é case sensetive, se tiver maiúscula, tem que digitar maiúscula na hora de logar)
Senha:='123'; // Senha armazenada
  { Se a palavra do Edit1 for diferente da variável usuário ou
   a palavra do Edit2 for diferente da variável Senha então faça}
  if (Edit1.Text<>Usuario) or (Edit2.Text<>Senha) then begin
    ShowMessage('Erro: Usuário e/ou senha incorreto(s)'); // Mensagem de erro
  end
  else begin // Caso contrário
    ShowMessage('Acesso permitido!'); // Sucesso
    Form2.ShowModal; // Abre o form2 - Adicione-o pressionando Alt + F11
  end;
end;
No evento Onclick do Sair (Button2) basta digitar o comando Application.Terminate;

[Somente membros podem ver os links. ]