Selasa, 06 Desember 2011

Membuat Form Login Delphi dengan Database

Step 1

Buat Database di Access dulu , pke yang 2003 gpp , yg formatnya *.mdb

Buat Juga Tablenya n isi datanya ni contohnya ky di bawah.




Step 2

Buat Form Login Sederhana aja dulu
Kaya gini nih ...



Teruz properties namenya di ganti ,
Euser --> buat username
Epass --> buat password

Ya itu mah biar gampang ajja , disave dulu tu form ....



sekarang buat module
File->New->Data Module



Sekarang Tambahkan 1 ADOconnection n 2 ADOquery



nama data modulenya di ganti dm
ADOconnection1 namenya di ganti ADOconn
ADOquery1 namenya di ganti QTemp
ADOquery2 namenya di ganti QLogin


trus klik 2 x ADOconn nya
n ikutin step ini


1. klik build



2. Pilih Jet 4.0 ...


3. Pilih Database yang dah di buat truz ok ok ... mau test koneksi dulu ya monggo .... klo da tulisan D:/bla bla bla/*.mdb ilangin jja D:/bla bla bla nya jd tinggal *.mdb nya jja


4. Properties ADOconn di cek
  • LoginPrompt = False
  • Mode = cmsharedenynone
5. Propertis QTemp
  • Connection = ADOconn
6. Properties QLogin
  • connection = ADOconn
  • SQL.string = Select * from namatable
  • Active = True --> klo salah berarti sql.stringnya salah


Untuk yang merah ganti nama TABLE !!

Teruzzz pilih File->> Uses Unit pilih file semuanya nya truz ok .... fungsinya biar di uses nya dah nge link semua ...






Kalo udah , klik 2 x buton login tuh ...

ni scriptnya MASUKIN antara BEGIN dan END; dari procedurebuttonclick : Yang warna merah ganti ama nama table anda ....


with dm.QLogin do
  begin
    close;
    sql.clear;
    sql.Text:='select * from tb_login_iqbal 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




-----------------------------------------------------------
SELESAI .....


ni contoh programnya : Klik Disini

11 komentar: