form login Archives » Jaranguda

Buat design form seperti gambar dibawah ini

komponen yang digunakan
2 TEdit, 2 TLabel dan 1 TButton. Property yang diubah
Label1 : Caption menjadi Username
Label2 : Caption menjadi Password
TButton : Caption menjadi Login

klik dua kali pada tombol login dan paste script dibawah ini

if (edit1.Text <> 'jaranguda') or (edit2.Text <> 'jaranguda.com') then
begin
  MessageDlg('Username atau Password yang anda masukkan kurang tepat', MTWarning, [MBOK], 0);
  Exit;
end;
showmessage('Selamat anda berhasil login');

lengkapnya

procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.Text <> 'jaranguda') or (edit2.Text <> 'jaranguda.com') then
begin
  MessageDlg('Username atau Password yang anda masukkan kurang tepat', MTWarning, [MBOK], 0);
  Exit;
end;
showmessage('Selamat anda berhasil login');
end;
 
end.

Screenshoot :

untuk menjalankan program tekan F9