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
Leave a Reply