MEMBUAT PASSWORD DI DELPHI

1.  Form ini terdiri dari minimal field Username dan Password
2.  Jika pengguna memasukan username = ADMIN dan password=12345, maka form kedua akan tampil
3.  Jika salah memasukan username dan/atau password, maka munculkan pesan kesalahan.

JAWABANNYA

 

 

 

procedure TForm2.Button1Click(Sender: TObject);

begin

if (edit2.text<>'12345') then

        begin

        Messagedlg('Username anda salah!',mterror,[mbok],0);

        Edit1.setfocus;

        end

else

if (edit1.text<>'admin') then

        begin

        Messagedlg('Password anda salah!',mterror,[mbok],0);

        Edit1.setfocus;

        end

else

else

begin

form1.show;

form2.Hide;

end;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit1.SetFocus;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

if(application.MessageBox('Apakah Anda Yakin Akan keluar ?','Warning',MB_YESNO)=IDYES) then

        close;

end;

procedure TForm2.FormActivate(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

end;

end.