CARA MEMBUAT FORM LOGIN DENGAN DELPHI 7

Kali Ini Saya Akan Membagi Ilmu Yang Saya Peroleh 1 Hari Yang Lalu Yaitu Cara Membuat Form Login Dengan Delphi 7, Form Login Ini Fungsinya Adalah Melindungi Data Yang Penting Yang Kita Buat Dengan Menggunakan Delphi 7, Pertama Kali Saya Membuat Form Login, Saya Pusing Tidak Tahu Coding nya, Saya Coba Cari Di  GOOGLE  Eh Ternyata Di Google Codingnya  Berbeda - Beda Dan  Menambah Pusing Kepala Ane, Singkat Cerita : Atas Pemahaman, Ketelitian, Keingginan, Dan Kesabaran Saya, Akhirnya Membuahkan Hasil Yang Memuaskan Saya Bisa Membuat Form Login Tersebut  Dengan Cara Memahami Dan Meneliti Coding Yang Berbeda Dari Yang Saya Cari Di Google.

 ITULAH PENGALAMAN SAYA MEMBUAT FORM LOGIN

OK Langsung Aja Kita Praktekan, Cermati Tutor Di Bawah Ini Ya BROOO  !!!!

#LANGKAH YANG HARUS KITA JALANKAN#

#LANGKAH PERTAMA#

1.-Buka  Delphi 7 Pasti Akan Muncul Form1

   -Tambahkan Kommpone Di Form1 Seperti Dibawah Ini :

   - 2 Label  : Letaknya Di Tap Standard

   - 2 Edit    : Letaknya Di Tap Standard

   - 2 Buton : Letaknya Di Tap Standard

   -Ganti Nama Kompone Di Caption Seperti Di Bawah Ini :

   - Label1  = (User Name )    - Edit1 = ( Kosongkan )     - Buton1  = ( LOGIN )               

   - Label2  = (Password   )     - Edit2 = ( Kosongkan )     - Buton2  = ( LOG OUT )

   - Lihat Gambar Di Bawah Ini :

#LANGKAH KEDUA#

2.-Klik 2 Kali Pada Buton1 ( LOGIN )

   -Tambahkan Code Seperti Gambar Di Bawah Ini :


var
a,b:string; //untuk mengetahui user dan pass
begin
a:='rozak'; //a adalah user
b:='1';     //b adalah pass
if (edit1.text=a) and (edit2.text=b) then //untuk menampilkan user dan pass
begin
edit1.Clear;//untuk menghapus User Name
edit2.Clear;//untuk menghapus Password
form2.show; //untuk menampilkan form2
form1.Hide; //untuk menyembunyikan form1
form1.Visible:=false; //untuk menampilkan form login kembali
end
else
begin
messagedlg('KASIHAN SEKALI ANDA TIDAK BISA LOGIN, HA HA HA HA', mtwarning,[mbok],0);  //untuk menampilkan peringatan jika salah memasukan user dan pass
end;

end;

   -Klik 2 Kali Pada Buton2 ( LOG OUT)

   -Tambahkan Code Seperti Gambar Di Bawah Ini :


application.Terminate; //untuk keluar aplikasi
end;


end.

#LANGKAH KETIGA#

3.-Buat Form Baru : Letaknya Di File > New > Form , Atau Bisa Klik Pada New  Form Sebelah Kiri     Run

   - Tambahkan Kompone Seperti Dibawah Ini :

   - 1 Label

   - 1 Buton

   - Ganti Nama Komponen Di Caption Tersebut Seperti Di Bawah Ini :

   - Label1  = ( BERHASIL LOGIN MASTER )

   - Buton1 = ( KEMBALI )

#LANGKAH KEEMPAT#

4.-Klik 2 Kali Pada Buton 1 ( KEMBALI)

   - Isi Code Seperti Gambar Di Bawah Ini :


form1.Visible:=true; //untuk menampilkan form login kembali
form2.Visible:=false; //untuk menampilkan form login kembali
end;


end.

#LANGKAH KELIMA#

5.-Klik Run / F9

   -SELESAI


INI PROJECT LATIHANNYA JIKA MAU DOWNLOAD DISINI

Note : Ikuti Tutor Tersebut Dengan Benar Jika Tidak Pasti Akan Eror!!!!!!

!!!!! @@@@ Jika Ingin Copas Sertakan Sumbernya YA Broooo @@@@ !!!!!

Creat By : Fatkhur Rozak