Cara membuat Form Password di Borland Delphi 7

Ass. Apa kabar kembali sobat Blogger he

Disini saya akan membahas bagaimana sih membuat sebuah form password di Borland Delphi 7.

Tanpa basa-basi sob langsung saja kita praktekan ya biar g,k jenuh dech hehehe

Seprti biasa dibawah ini adalah desain form nya.

Catatan: klik edit2 pada form yang telah di desain klick edit2  untuk mengganti karaketer password menjadi symbol bintang. Untuk lebih jelas nya lihat gamabar dibawah ini.

Selanjutnya buat loh form baru dengan cara pilih file-new-form pada menu Delphi. Maka akan tampil seperti gambar di bawah ini.

 

nah setelah membuat form baru langsung kita atur properties controlnya yang ada di bawah ini.

Aturlah properties controlnya. 

 

Nama Control	Properties	Nilai Pengaturan
Form	Caption	Form Password
Label1	Caption	Nama User
Label2	Caption	Password
Button1	Caption	&OK
Buton2	Caption	&Close
Form	Caption	Selamat Datang di Form2
Label1	Caption	Anda Berhasil Login

 Selanjutnya ketikan listing program berikut ini:

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

if edit2.text='nama pasword' then

begin

form2.show;

form1.Hide;

end

else

begin

  messagedlg('maaf password anda salah!!!!',mtinformation,[mbok],0);

edit1.Clear;

edit1.setfocus;

end;

end;

end.

jangan lupa save ya sob dengan nama unit dan project yang bebas …..asal tidak boleh pake spasi saja saat menyimpan nama file nya. Contoh U_Latihan1. P_Latihan1.

Nah sob,,,,,langsung saja sobat jalan kan programnya dengan cara menekan tombol F9 pada keyboard.

Kalau sukses maka tampilannya akan seperti gambar di bawah ini.

 

kalau password anda salah makan akan muncul pesan seperti gamabar di bawah ini

kalau password nya benar maka   akan langsung ke form 2 seperti gambar di bawah ini.

 

Horeeeeeeee,,,,,,,,,,,,,,pasword nya sudah jalan.....gimana sob cukup mudahkan......semoga artikel ini dapat bermafaat ya sob.....selamat mencoba.....Goodlockkkkkkkkkk!!!!!!!!!!!!

klik disini