Mundo Retro

Olá CONVIDADO,

Seja bem Vindo ao Mundo Retro.

Obrigado pela visita,
Aqui você encontra papéis de parede, capas de filmes, ajuda, detonados de jogos de xbox 360, ps3 e ps2 e muito mais ...

[Delphi] Como fazer sistema de login

SystemX
SystemX
Membro
Membro

Posts Posts : 10
Respeito Respeito : 0

[Delphi] Como fazer sistema de login Empty [Delphi] Como fazer sistema de login

Mensagem por SystemX em Sex Jun 08, 2012 9:16 pm

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 = “Loge-se” (sem as aspas)
Text dos 2 Edits = “”(sem as aspas)

Clique duas vezes no Button1(Logue-se) e coloque o código:

if
(Edit1.text = 'o usuario que vc quiser aqui dentro')and(Edit2.text = 'a
senha que vc quiser') thenbeginForm2 :=
Tform2.create(application);Hide;Form2.showmodal;end;

Agora crie um novo form.

Para isso:


Entre no menu File>New e clique em Form


Clique no Form2:


Quote
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:
[color=#777777][font=tahoma, arial, verdana, sans-serif][size=3]Halt;[/size][/font][/color]

    Data/hora atual: Dom Ago 25, 2019 5:43 pm