Criando Sistema de Login

[Devil.May.Cry 1]

Criando Sistema de Login Pelo Delphin SUPER EXPLIKADO

 

Bom Pessoal Hoje eu to aki para ensinar a Vcs A Criar um Sistema Login e um metodo meio complicado mais vo fazer o possivel para ser o mais claro o possivel

 

Abra o Delphi

 

 

Adicione 2 Labels, 2 Edits e 1 Button.

 

Altere:

Caption do Label1 = “Usuário: ” (sem as aspas)

Caption do Label2 = “Senha: ” (sem as aspas)

Caption do Button1 = “Okay” (sem as aspas)

Text dos 2 Edits = “”(sem as aspas)

 

 

Clique duas vezes no Button1(OKay) e coloque o código:

 

 

// Se os campos estiverem em branco, mostra o erro…

if (Edit1.text = '')and(Edit2.text ='') then

begin

Application.MessageBox('Preencha os campos de maneira adequada, por favor.','Erro!',MB_ICONError);

Edit1.Clear;

Edit2.Clear;

Edit1.Setfocus;

end;

// Se os campos não estiverem em branco, Continua com a verificação...

if (Edit1.text <> '')and(Edit2.text <> '') then

begin

// Verifica se o campo usuário estiver com o valor: gabriel e o campo senha: 123…

// Se estiver tudo correto abre o Form2

if (Edit1.text = 'gabriel')and(Edit2.text = '123') then

begin

Form2 := Tform2.create(application);

Hide;

Form2.showmodal;

end;

// Se tiver algum problema na verificação, mostra uma mensagem e limpa os campos...

if (Edit1.Text <> 'gabriel')or(Edit2.text = '123') then

begin

Application.MessageBox('Sua senha esta incorreta!','Erro!',MB_ICONError);

Edit1.Clear;

Edit2.Clear;

Edit1.Setfocus;

end;

end;

 

 

Agora crie um novo form.

Para isso:

Entre no menu File>New e clique em Form

 

 

 

Clique no Form2, clique na aba Events dentro da janela object inpector, procure o evento OnClose, dê um duplo clique no campo vazio ao lado do evento. Irá abrir a janela de código, dentro dessa janela coloque o código:

 

Halt;

 

Agora é só apertar o F9 para testar.

Terminado o processo.

A partir de agora para acessar o seu programa não esqueça que terá que digitar seu login e senha e se alguém quiser usá-lo sem sua prévia autorização, pode desistir.

 

Vlw Pessoal Ate a Proxima

 

C Ajudei pode Agradecer eu Deixo xD