Membuat Form Login di Delphi

Membuat Form Login

Disini saya akan membuat login form. Borland delphi tampilannya hampir mirip dengan Visual Basic hanya saja yang membedakan bahasa yang digunakannya. Visual Basic menggunakan bahasa basic sedangkan borland delphi menggunakan bahasa pascal. Pertama buka Start lalu klik borland delphi. Ketika sudah muncul halaman utama borland delphi terdapat form1 yang masih kosong. Kemudian buat lah seperti tampilan berikut :

Kemudian klik tombol login 2x dan masukkan kodingan berikut :

Disini user dan pass sebagai kunci untuk dapat berhasil login atau tidak. Jika nilai pada MaskEdit1 atau username adalah f01 dan MaskEdit2 atau Password adalah 123, maka Akan muncul pesan “ Selamat anda berhasil Login”, maka kita akan masuk ke form2. jika MaskEdit1 dan MaskEdit2 tidak sesuai dengan kuncinya maka akan muncul pesan “Username dan password yang anda masukan salah ! “. Pada Bitbtn2click atau tombol cancel berfungsi untuk menutup program sehingga ketika kita menekan tombol cancel pada saat program berjalan maka otomatis program akan terhenti

Untuk dapat membuat password menjadi tidak terlihat atau "***" kita klik maskedit2 lalu ke bagian propertiesnya , setelah itu ada passwordchar kita masukan "*"maka ketika kita mengetik di maskedit2 tulisanya akan berubah menjadi "*" 

Kemudian agak kita dapat melihat isi password kita masukkan kodingan ini pada checkbox

Disini ketika check box di klik maka tampilan password char akan kembali ke awal sehingga kita dapat melihat password yang kita ketikkan dengan perintah If CheckBox1.Checked then

Begin MaskEdit2.Passwordchar :=#0 dan jika kita tidak mencentangnya maka password akan tersembunyi kembali kita. berikut kodingan pada show passwordnya :

nah silakan mencoba deh