iGames


Participe do fórum, é rápido e fácil

iGames
iGames
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Você não está conectado. Conecte-se ou registre-se

iGames » Informática » Programação » Delphi » [Tutorial] Sistema Anti-Lecher no seu projeto

[Tutorial] Sistema Anti-Lecher no seu projeto

Iniciado por ,

Ver o tópico anterior Ver o tópico seguinte Ir para baixo Mensagem [Página 1 de 1]

Avançado III
Style~°
Style~°
Tutorial

- Abra o Delphi 7 .

- Adicione 2 Labe.ls , 2 Edits e 1 Button .

Altere :


Caption do Lab.el1 = “Usuário:” [Sem as Aspas]
Caption do Lab.el2 = “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 :

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: PowerPixel e o campo senha: PowerPixel

// Se estiver tudo correto abre o Form2

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

begin

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

Edit1.Clear;

Edit2.Clear;

Edit1.Setfocus;

end;

end; 

- Agora crie uma nova For.m .

- 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:
Código:
Halt; 

- Agora é só apertar F9 para testar .

Sem tirar creditos !
Os créditos vão á : ~[B]art [Outro Fórum] - Pelo Tutorial.

Administrador
Solkis
Solkis
Olá,

O código está incompleto, pois este não há um "padrão" para o usuário e a senha, e poderias dizer que isto é um sistema de login para abrir o tal projeto.

Até mais Wink

Avançado III
Style~°
Style~°
Como assim o código está incompleto ?
Já testei aqui, e funcionou!

Administrador
Solkis
Solkis
Olá,

Desculpe, não olhei isto:
Código:
if (Edit1.text <> '')and(Edit2.text <> '') then

begin

// Verifica se o campo usuário estiver com o valor: PowerPixel e o campo senha: PowerPixel

// Se estiver tudo correto abre o Form2

if (Edit1.text = 'PowerPixel')and(Edit2.text = 'PowerPixel') then
Li muito rápido o código.
Para dar mais um tutorial, aqui está como configurar:
// 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: PowerPixel e o campo senha: PowerPixel

// Se estiver tudo correto abre o Form2

if (Edit1.text = 'PowerPixel')and(Edit2.text = 'PowerPixel') 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 = 'PowerPixel')and(Edit2.text = 'PowerPixel') then

begin

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

Edit1.Clear;

Edit2.Clear;

Edit1.Setfocus;

end;

end;
Vermelho: Caso você troque o nome do campo de usuário, troque o que está em vermelho.
Laranja: Caso você troque o nome do campo de senha, troque o que está em laranja.
Verde: Nome de usuário que será utilizado para fazer o login.
Violeta: Senha que será utilizada para fazer o login.
Marrom: Caso você troque o nome da sua segunda Form, troque o que está em marrom.

Até mais Wink


Conteúdo patrocinado

Ver o tópico anterior Ver o tópico seguinte Ir para o topo Mensagem [Página 1 de 1]


Permissões neste sub-fórum
Não podes responder a tópicos