Oficina da Net

Fórum - Acesse nosso fórum, e faça suas perguntas.

Criando um sistema de login em seu programa

Publicado em: 17/12/2006 | Delphi | Visualizações: 9.560 | 1 Comentário(s)

Para criarmos o formulário de login, serão utilizados conceitos avançados, portanto, leia as outras colunas dos programadores de Delphi aqui da nossa Oficina.

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.

Até a próxima pessoal.

Qualquer dúvida deixe um recado aqui em baixo ou me mande um e-mail:
gabrielbiga@gmail.com ou gabriel@gabrielbiga.tk

compartilhe

Links patrocinados