[tutorial] Criando um sistema de login (com senha *)

[josezito 1]

Ola pessoal hoje vo ensinar a como criar um sistema de login com a (senha *)

(n sei se tem um tutor deste tipo porque n pesquisei se tiver mals ao criador)

 

bom vamos la:

 

 

 

1: Primeiro abra um novo projeto

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

• Entre
• ou
• Cadastre-se

2: Adicione ao nosso projeto:

 

1:Button: (esta na barra "standard").

2:MaskEdit: (esta na barra "additional").

2:Label: (esta na barra "standard").

3:new form:

 

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

• Entre
• ou
• Cadastre-se

3: Agora vamos editar o MaskEdit(em text):

 

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

• Entre
• ou
• Cadastre-se

(OBS: deixe os text "vazio"):

 

4: Agora vamos editar de novo MaskEdit (so que dessa vez vamos colocar para que quando escrever a senha apareça " * ")

Va em oBject inpector: properties: Passwordchar: e altere o "#0" para "*"

 

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

• Entre
• ou
• Cadastre-se

 

5: Agora vamos editar o Button (em caption):

 

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

• Entre
• ou
• Cadastre-se

(OBS: coloque o nome que quiser no "caption" (eu coloquei "OK"))

 

6: Agora Vamos editar as Label (em caption):

 

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

• Entre
• ou
• Cadastre-se

(OBS: vc pode colocar qualquer nome que quiser em "caption")

 

7: Agora vamos editar o form1 e 2:

 

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

• Entre
• ou
• Cadastre-se

(OBS: vc pode colocar o nome que quiser no "caption" faça isso no form 1 e 2)

8: Agora vamos progamar:

 

a) clique duas vezes no "Button1" e apague o:

begin

 

end;

 

E coloque este:

 

Codigo:

 

begin

if (MaskEdit1.text = '')and(MaskEdit2.text ='') then

begin

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

MaskEdit1.Clear;

MaskEdit2.Clear;

MaskEdit1.Setfocus;

end;

if (MaskEdit1.text <> '')and(MaskEdit2.text <> '') then

begin

to abre o Form2

if (MaskEdit1.text = 'COLOQUE AQUI O USUARIO')and(MaskEdit2.text = 'COLOQUE A SENHA AQUI') then

begin

Form2 := Tform2.create(application);

Hide;

Form2.showmodal;

end;

if (MaskEdit1.Text <> 'COLOQUE AQUI O USUARIO')or(MaskEdit2.text = 'COLOQUE A SENHA AQUI') then

begin

Application.MessageBox('Usuario ou senha incorreta!','Erro!',MB_ICONError);

MaskEdit1.Clear;

MaskEdit2.Clear;

MaskEdit1.Setfocus;

end;

end;

end;

(OBS: onde estiver em negrito coloque o usuario e a senha tem dois lugares para fazer isso e n tire as aspas)

 

 

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

• Entre
• ou
• Cadastre-se

b) Agora va no "form2" e va no object inpector: events: ONclose:

 

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

• Entre
• ou
• Cadastre-se

clique duas vezes nele e apague o seguinte codigo:

 

begin

 

end;

 

e coloque este

 

codigo:

 

begin

Halt;

end;

 

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

• Entre
• ou
• Cadastre-se

 

 

 

pronto acaboseu sistema esta completo colquer duvida e so perguntar

se gosto agradeça n custa cash:amor:

[-Systema- 0]

Cara legal o tutorial talz so que ja foi postado e so usar a ferramenta busca

ou olhar no quicklist

desta forma pelo menos ja foi postado ...

voce poderia mudar e colocar isto ai so que com sistema de cadastro .. simples

ai fica massa se o cara nao tiver conta ele ja cria uma

mais isto ja foi postado ...

['Leozin 34]

Conteúdo já existente, antes de postar um tópico, certifique-se que ele ainda não foi postado, para isto, use a ferramenta Pesquisar.

 

Fechado.