Cara Buat Form Login Dengan Delphi 7

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 :

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 .

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.

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.

2. lalu muncul jendela data link properties dan klik

microsoft office 12.0 access........

3. klik next

4. lalu di tab connection setting lagi seperti gambar di

bawah ini.

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;