tiagoassis
27/07/2015, 09:18 PM
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)
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;
Download do Projeto + Source ([Only registered and activated users can see links])
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)
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;
Download do Projeto + Source ([Only registered and activated users can see links])