Membuat Form Login Delphi dengan Database

Langkah 1
- Buat Database terlebih dahulu. FYI, saya pakai Access 2007, jadi formatnya adalah *.accdb ya ^,^ kalau misalnya kamu pake Access 2003, formatnya *.mdb. Ga jauh beda kok sebenarnya :)

- Buat tabel yang fieldnya username dan password dengan tipe data text ya. Kemudian masukkan isi tabel dengan username dan password yang dikehendaki, misalnya usernamenya: sitty dan passwordnya: sitty //biar gampang aja sih :D
Contohnya seperti gambar di bawah ini:

Langkah 2

- Buka Borland Delphi. Bikin form sederhana seperti ini:

- Ganti name pada propertiesnya:

      Edit1 --> Euser

      Edit2 --> Epass

   Dan kosongkan bagian text pada properties.
- Gampang kan?! Save deh!!

Langkah 3
- Buat Module! Caranya: File >> New >> Data Module

- Tambahkan 1 ADOconnection dan 2 ADOquery. Ganti nama pada propertiesnya:

   datamodule1 --> dm

   ADOconnection1 --> ADOConn

   ADOQuery1 --> QTemp

   ADOQuery2 --> QLogin

- Selanjutnya, klik 2 kali ADOConn-nya.

- Klik build

- Pilih Microsoft Office 12.0 Access Database Engine OLE DB Provider. Next.

PS: Untuk kamu yang pake Access 2003, pilih Microsoft Jet 4.0 OLE DB Provider ya :). 

- Kemudian isikan Data Source/ Lokasi database yang udah di buat pada Langkah 1 tadi. Kemudian kalo mau Test Connection dulu, kalo enggak ya gapapa sih. OK.

- Cek properties untuk ADOConn:

• LoginPrompt = False
• Mode = cmsharedenynone

- Pada QTemp:

• Connection = ADOConn

-Pada QLogin:

• connection = ADOconn
• SQL.string = Select * from <namatable>
• Active = True --> Kalo salah (Ada peringatan) berarti sql.stringnya salah

- Pilih File >> Use Unit dan pilih semuanya. OK. Ini berfungsi agar uses-nya sudah saling berhubungan

Langkah 4

- Klik 2 kali button Login

- Masukkan script berikut setelah Begin:

with dm.QLogin do
  begin
    close;
    sql.clear;
    sql.Text:='select * from <namatable> where username='+quotedstr(Euser.Text);
    Open;
  End;
if dm.QLogin.RecordCount = 0 then
  begin
    Messagedlg('Identitas tidak ditemukan !',mtwarning,[mbok],0);
    Euser.Text:='';
    Epass.Text:='';
    Euser.setfocus;
  End
else
if dm.QLogin.FieldByName('password').AsString <> Epass.Text then
  begin
    Messagedlg('Identitas atau Katasandi yang anda masukan salah !',mtwarning,[mbok],0);
    Euser.Text:='';
    Epass.Text:='';
    Euser.setfocus;
  end
else
  begin
    Messagedlg('Identitas Dikenal, Anda Berhasil ',mtwarning,[mbok],0);
    close;
  end

- Udah kan?! Save. 

- Mau dicoba?! Run aja.

Fiuhh akhirnya selesai *lapkeringet*