Membuat Form Login Username dan Password Menggunakan Delphi7 dan Database Access

Form Login

Bertemu lagi dengan saya Een Pahlefi,  Kali ini saya akan menulis sebuah catatan kecil, dimana saya melewati sebuah proses mengerjakan laporan PKL semester7, dimana saya waktu itu membuat sistem informasi yang sebenarnya membuat puyeng kepala saya.

Disini saya menggunakan database microsoft access yang di buat menggunakan versi 2003-2007


1. Persiapkan dulu database dan tabel yang akan digunakan untuk menyimpan dan diakses oleh di delphi7.

Tabel Login

Disini saya membuat 2 buah field username dan password yang akan di tampung di tabel tblogin.

2. Disini saya tidak membahas cara mengkoneksikan/menghubungkan delphi7 ke database access, mungkin saya akan tulis di lain waktu. selanjutnya anda persiapkan form login yang akan diisikan user.

3. Selanjutnya kita isikan coding button Masuk.
Logika nya seperti ini.
A. Jika user tidak mengisikan inputan di username maka akan keluar pesan showmessage
B. Jika user tidak mengisikan inputan di password maka akan keluar pesan showmessage
C. Selanjutnya anda pahami sendiri ya..

Coding/Synax nya seperti berikut
procedure TForm3.BitBtn2Click(Sender: TObject);
  begin
  if Editusername.Text ='' then ShowMessage('Username Kosong')
  else if
  Editpassword.Text ='' then ShowMessage('Passowrd Kosong')
  else with DataModule1 do
  begin
  if (Editusername.Text=ADOTablelogin['username'])and
  (Editpassword.Text=ADOTablelogin['password'])then
  ShowMessage('Login Anda Berhasil') else
  showmessage('Password Anda Salah');
  end;
  end;
end.

Keteranga
with DataModule1 do = disini saya menggunakan datamodule yang digunakan didelphi7, jadi sesuaikan dengan keadaan code anda.

Penulis : Een Pahlefi
Semoga Bermanfaat