Sistema de Login No Delphi7

[DeexTTer 0]

Boa manha gente!

 

vo trazer para vcs um tutorial de como criar um sistema de login

 

 

 

Tutorial

 

 

 

Adicione 2 Labels, 2 Edits e 1 Button.

 

Altere:

Caption do Label1 = Usuário:

Caption do Label2 = Senha:

Caption do Button1 =Okay

Text dos * Edits =

 

 

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

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: dexter e o campo senha: 162 // Se estiver tudo correto abre o Form2 if (Edit1.text = 'dexxtter')and(Edit2.text = '162') 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 <> 'dexxtter')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:

 

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.

 

 

creditos à:

 

- Eu por fazer o post

- Pinguin por fazer o codigo

[-_God-Warrior_- 0]

Amigo... O conteúdo já é existente...

 

Seu tópico não está centralizado... Não está com cores, não tem print de tutorial...

 

Como quer que um iniciante visite esse tópico e complete o sistema de login?

 

Simplesmente impossível...

 

Tente melhorar da próxima vez...

 

Abraçs.

[DeexTTer 0]

@

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

nao quero discutir com ninguem mais se vc achou ruim faça um melhor ^^

pq estou iniciando no delphi 7 tamem ^^

[Drakar~ 0]

O Conteúdo infelizmente já é existente sim, mas parabéns Pelo Tutorial, Na próxima coloque mais cores, e algumas SS para melhor Entendimento :smiley:

Boa Sorte no Delphi.

[DeexTTer 0]

@

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

obrigado ,boa sorte para vc tamem

[soureidosnoob 0]

mano a formataçao do topico fikou horrivel , se eu n soubesse fazer eu n ia ter entendido nada!

 

poes os codigos em QUOTE e adiciona umas cores!

 

e esse conteudo tem na quick list!

[DragonBoss 8]

Jé pensou em pesquisar se já existe? sei que a intenção foi ajudar, mas este conteudo existe aos montes aqui.

 

[x] Tópico fechado.