[Delphi]Sistema de Login e Cadastro

[RickKM 2]

Olá pessoal da WC, depois que eu fiz o tópico [Delphi]Acesso ao banco de dados do Access resolvi postar um sistema de login e cadastro utilizando o metodo desse outro poste.

 

Preparei um video tutorial para vocês:

 

Parte 1

[video=youtube;EkePWYum2aQ]

 

Parte 2

[video=youtube;QuaY5QYMVjQ]

 

Para quem está com dificuldade em copiar o codigo, vou postar aqui um baixo

 

Button1 onClick

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

• Entre
• ou
• Cadastre-se

 

Button2 onClick

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

• Entre
• ou
• Cadastre-se

 

ADOTable1 onAfterPost

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

• Entre
• ou
• Cadastre-se

 

ADOTable1. onPostError

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

• Entre
• ou
• Cadastre-se

 

Créditos: _RicardoSouz ou RickKM (tanto faz)

Se copiar coloque os créditos ;D

[VrSoldad 0]

Vlw!

 

Eita velho, muito bom vio ? Cara, eu tava procurando isso :D:D:D:D:D ebaaa, esses videos são de sua autoria ?

Abrçs

[~Zz.Victor.zZ~ 0]

Cara, Umas duvidas!

As veses perco meu tempo atoa :D , as veses eu perco o tempo pra uma coisa Boa....

 

Bem, Eu to com uma duvida!

Como eu faço pra que se o Button1 (Entrar) Estiver com Login Certo E Etc, Ele Abrir o Form2, e Destruir o Form 1

Sendo como, Exemplo:

Me Loguei e ao Clicar em Entrar, Abrir a outra Form Com o conteudo Ex: O Programinha, Um Hack... Etc ?

[Marcolin 1]

Exemplo de if

 

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

• Entre
• ou
• Cadastre-se

 

Use essa base.

[~Zz.Victor.zZ~ 0]

Agora ele ta pedindo pra Declarar : Form2 (Undeclared identifier)

 

Tentei assim : Form2 : TForm2

Não deu :S

 

Help ae :S

 

 

------------------------------------

consegui!

 

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

• Entre
• ou
• Cadastre-se

[ϟ Gus~ 0]

Só precisa declarar Form2.

[RickKM 2]

Eita velho, muito bom vio ? Cara, eu tava procurando isso ebaaa, esses videos são de sua autoria ?

Abrçs

 

Sim, são meus ^ ^

 

Cara, Umas duvidas!

As veses perco meu tempo atoa , as veses eu perco o tempo pra uma coisa Boa....

 

Bem, Eu to com uma duvida!

Como eu faço pra que se o Button1 (Entrar) Estiver com Login Certo E Etc, Ele Abrir o Form2, e Destruir o Form 1

Sendo como, Exemplo:

 

Me Loguei e ao Clicar em Entrar, Abrir a outra Form Com o conteudo Ex: O Programinha, Um Hack... Etc ?

 

Crie um novo formulário no menu File > New > Form.

 

Declare Unit2 na uses

 

Substitua o codigo do botão de entrar por esse:

 

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

• Entre
• ou
• Cadastre-se

 

Agora no evento OnClose do Form2 adicione esse código:

 

(Se quiser que quando fechar o Form2 abrir o Form1)

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

• Entre
• ou
• Cadastre-se

 

(Mas caso queira fechar o programa de uma vez)

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

• Entre
• ou
• Cadastre-se

 

Exemplo de if

 

 

Código:

if //função que consulta o login then

Form2.Show;

else

Form1.Close;Use essa base.

 

Não, isso iria mostrar o form2 se a senha for certa, e fechar o form1 se for errada. Utilize os codigos acima.

[BuzzyBolz 1]

Gostei. Obrigado por compartilhar

[VrSoldad 0]

Muito bom velho, olha, responda minha MP que te mandei. Quanto ao tutorial 10. Esperando sua resposta!

@Additional Tem como usar outros códigos?

Visita:

http://www.webcheats.com.br/forum/programacao-duvidas-ajuda/991815-delphi-edit-redonda-como-fazer-duvida.html#post4184448

[RickKM 2]

@Additional Tem como usar outros códigos?

 

Como assim?

[webcheatshack2010 2]

Muito bom para quem quer criar um blog

sera muito util

abraços!

[lipinf 7]

Parabéns cara, tópico ficou muito bom e bastante interessante =]

Com certeza irei tentar implementar rsrs ^^

 

Bom, gostaria também de aproveitar e dar umas dicas para os próximos videos xD

1° Seria melhor diminuir um pouco a letra do bloco de notas e dar enter ao final da linha, pois assim possibilitaria de nós podermos ir adiantando o vídeo e conseguir ler tudo rapidamente =] (acabando o vídeo + rápido)

2° Uma musiquinha também seria bem interessante.

 

Bom, espero ter ajudado e mais uma vez, parabéns ;D

Abraço.