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;
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.
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.
form1.Visible:=true; //untuk menampilkan form login kembali
form2.Visible:=false; //untuk menampilkan form login kembali
end;
end.
#LANGKAH KELIMA#
5.-Klik Run / F9
Note : Ikuti Tutor Tersebut Dengan Benar Jika Tidak Pasti Akan Eror!!!!!!
!!!!! @@@@ Jika Ingin Copas Sertakan Sumbernya YA Broooo @@@@ !!!!!
Creat By : Fatkhur Rozak
