[Delphi] Como fazer sistema de login

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]