Trik Trik Membuat Form Login Delphi dengan Database Ms Access 2007

Pada kesempatan yang sedikit ini saya akan share tentang pembuatan sebuah form login dengan delphi 7 dan database Ms Access 2007. Untuk Anda yang ingin mengetahui cara membuat form login tanpa database bisa Anda klik disini . Langsung saja kita mulai, pertama - tama kita buat terlebih dahulu design form seperti gambar dibawah :

Gambar 1 : Contoh Form login dengan Access 2007

Dari gambar di atas kita bisa lihat komponen apa saja yang kita gunakan yaitu :
1. Label ( 2 ) letaknya di tab standard
2. Tedit ( 2 ) letaknya di tab standard
3. Bitbtn ( 2 ) letaknya di tab Additional
4. Adotable ( 1 ) letaknya di tab ADO
setelah itu setting properties Form :
1. Klik di form dan ganti Properties Caption nya menjadi Form login dengan database access 2007
2. Klik di label1 dan label2 lalu Ubah label1 dan label2 Properties Caption nya menjadi :
label1 = Username
label2 = Password
3. Klik bitbtn1 kemudian bitbtn2 dan ubah properties
1. bitbtn1 = Kind menjadi bkOK

2. bitbtn2 = Kind menjadi bkCancel
 
3. Pilih save all dan ok dan ok.

Setelah membuat design form dan mengatur properties nya seperti di atas maka langkah selaanjutnya adalah membuat database access 2007, isi dari database ini yang akan berfungsi sebagai "validasi apakah data benar atau tidak, jikalau benar maka akan tampil form baru yang di inginkan jikalau salah maka akan keluar pesan pemberitahuan bahwa password atau username Anda salah".

Pseudocode form login ini adalah " Jika validasi data edit1 dan edit2 benar maka akan tampil pemberitahuan 
selamat anda berhasil login apabila validasi data edit1 dan edit2 salah maka aplikasi akan di tutup / dimatikan ( close ).

Langkah pertama membuat database nya yaitu :
1. Buka Ms Access 2007 Anda, Ms Access 2010 tidak masalah maupun Ms Access 2003 .
2. Buatlah Blank Database dan jangan mengganti nama Database1.accdb langsung saja setting alamat database untuk disimpan dengan klik gambar folder lalu open dialog akan terbuka, taruh database ( db ) di tempat Anda menyimpan project ini .

setting tempat penyimpanan database access untuk form login

3. Setting database kita dan simpan nama tabel dengan nama login dan masuk ke menu design view lalu buat 2 field dengan nama Username dan Password.

gambar masuk ke menu design view di access

 4. Setting field size dengan nilai 20

5. Jadikan Username sebagai Primary Key. apabila username tidak dijadikan Primary Key tidak Masalah.
6. Isi Field Username dengan nama Anda.
7. Isi Field Password terserah Anda.

Langsung kita koneksikan Adotable1 dengan database Access yang sudah di buat dan di setting seperti diatas.
1. Klik Adotable dan lihat properties di kiri lalu klik connection string nya dan pilih build.

setting adotable1 dengan access

2. lalu muncul jendela data link properties dan klik microsoft office 12.0 access........

pemilihan data link properties ms access connection ke adotable1

 
3. klik next
4. lalu di tab connection setting lagi seperti gambar di bawah ini.

tes connection access 2007 ke adotable1

5. ganti nama datasource dengan nama database yang anda simpan tadi, kalau anda tidak merubahnya maka nama databasenya adalah database1.accdb
6. Test Connection jika berhasil muncul pemberitahuan.
7. klik ok dan ok dan ok.
8. kembali ke form login klik adotable1 nya dan pilih database name menjadi login



9. Masih di properties Adotable pilih Active menjadi True
10. oke sampai sini silahkan di running terlebih dahulu atau tekan di keyboard F9

Lalu kita buat codingnya seperti berikut :
1. klik 2 kali tombol bitbtn1 dan isikan code di bawah ini :

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ADOTable1.Refresh;
ADOTable1.First;
while not ADOTable1.Eof do
begin
if (edit1.Text =ADOTable1['username']) and (edit2.Text =ADOTable1['password']) then
begin
ShowMessage('Anda berhasil login');
exit;
end;
ADOTable1.Next;
if (edit1.Text =ADOTable1['username']) and (edit2.Text =ADOTable1['password']) then
begin
ShowMessage('Anda berhasil login');
exit;
end;
if ADOTable1.Eof then
begin
Application.MessageBox('Periksa User Name dan Password anda','Peringatan',MB_OK);
application.Terminate;
end;
end;
end;
 2. klik pada form login dan lihat properties dan taruh di eventonshow coding sebagai berikut :

procedure TForm1.FormShow(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit1.SetFocus;
form1.BorderStyle:=bsSingle;
end;

===selesai===
Dan silahkan di Runing.