Sistema de Login (iniciante)

[malmal11 0]

Olá pessoal da Wc.

Estou aqui para postar mais um tutorial. eu acho esse sistema bem util pra quem esta iniciando no delphi.

 

Não sei se já postaram por aqui mais irei postar para garantir.

ele é bem facil para iniciantes e para os outros um pouco mais avançados

 

 

 

Tutorial

 

 

 

Vamos precisar de 2 Labels, 2 Edits e 1 Button.

No Label1 Vamos por "Usuário".

No Label2 Vamos por "Senha".

No Button Vamos por Ok.

Nos Edit Deixe os espaços em branco.

 

Clique duas vezes no button e adcione o seguinte Codigo.

// 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: malmal11 e o campo senha: 123…

 

// Se estiver tudo correto abre o Form2

 

if (Edit1.text = 'malmal11')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 <> 'malmal11')or(Edit2.text = '123') then

 

begin

 

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

 

Edit1.Clear;

 

Edit2.Clear;

 

Edit1.Setfocus;

 

end;

 

end;

 

Agora Vamos Criar um novo Form.

"Pra que esse novo Form?" Ele assim que digitar seu Login e senha abrira ele.

 

ao abrir o novo form vamos no Event.

Vá no evento OnClose Clique nos espaços em branco e digite

 

Halt;

 

Pronto.

Bem Simples Né.

Agora só apertar F9 e pronto.

Agora voce pode alterar login e senha no codigo que mostrei.

 

Aqui é como ficou o meu.

 

Eu troquei a skin dele.

eu achei esse tuto bem interessante espero ter ajudado a todos

 

Abraços MalMal11 WebCheats.

[maldoso500 0]

otimo topico mano obrigado vai me ajudar no meu novo programa :aplauso:

[Zaum 22]

Eu acho a existe um tópico na quick list com esse conteúdo mas tudo bem vai ajudar os iniciantes

[iMelo~' 15]

amigo isso é basico demais porém é bom para membros iniciantes , parabens pelo conteudo e obrigado por compartilhar com a wc.