FORM LOGIN MENGGUNAKAN ADOTABLE DI DELPHI 7

Assalamualaikum wr.wb..
disini akan ada penjelasan tentang..penggunaan login di Delphi 7.
ingat..gunakan Adotable untuk koneksi ke database Access (mdb)..
komponen :
edit1 : eusername
edit2 : epassword
button1 : blogin
button2 : bkeluar

..
langsung ke kode.. 
:)
Oke, terimakasih atas sarannya..
Pertama kita double klik button Login..yg terpenting "name" pada setiap button..
contoh :blogin -> untuk button login.
Maka ketika di double klik, otomatis muncul kode, seperti ini :
->procedure TFakses.bloginClick(Sender : TObject);
->begin
->end;
..
Selanjutnya kita ketikan kode dibawah ini diantara begin dan end;
...
procedure TFakses.bloginClick(Sender : TObject);
begin
 if (eusername.Text='') and (epassword.Text='') then
begin
Application.MessageBox('USERNAME DAN PASSWORD MASIH KOSONG','INFORMASI',mb_iconstop);
end

else
if eusername.Text='' then
begin
Application.MessageBox('USERNAME MASIH BELUM DI ISI','INFORMASI',mb_iconstop);
end

else
if epassword.Text='' then
begin
Application.MessageBox('PASSWORD MASIH BELUM DI ISI','INFORMASI',mb_iconstop);
end

else
if adologin.Locate('username',eusername.Text,[]) then
begin
if adologin.Locate('password',epassword.Text,[]) then
begin
Application.MessageBox('Anda berhasil login','INFORMASI',mb_iconinformation);
flogin.Hide;
fmenu_utama.show;
end

else
Application.MessageBox('PASSWORD SALAH BROOO !!!','PERINGATAN',mb_iconwarning);
end

else
Application.MessageBox('USERNAME SALAH BROOO !!!','PERINGATAN',mb_iconwarning);
end;
..
Selanjutnya untuk button "keluar", ada beberapa metode.
jika yg praktis dengan cara seperti ini :
procedure TFakses.bkeluarClick(Sender : TObject);
begin
Application.Terminate;
end;
..
Terimakasih..
keterangan :
1. saya beri jarak antar kode yg memberi maksud tertentu
2. setiap (if) di beri pesan (message) agar mudah dipahami alur sistem login ini..
3. silahkan dicoba, jika ada kesalahan,,silahkan beri kritik dan saran..

Wassalamualaikum wr.wb..