LA - Membuat Form Login menggunakan akses database dengan Delphi 7

Hahaha, sori coy gw selesai duluan . Nih gw kasih listing program yang udah jadi punya gw . Nama database yang gw gunakan LA dan nama tabelnya LA.

Desain form 1

oh iya, propertise namenya diganti jadi

edit1 >>Euser

edit2 >>Epass

nah, pada button Masuk tuh kita kasih scritp kaya gini :

pada button keluar masukkan :


procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Free;
application.terminate;
end;

pada Daftar Baru, masukkan :

procedure TForm1.Label3Click(Sender: TObject);
begin
form1.Hide;
form4.show;

end;

lalu

masukkan seperti ini dan ganti nama setiap komponen seperti ini :

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

Udah belum ?? wkwkkw nah klik 2x dah tuh pada AdoConn 

pilih file databasenya coy, ingat saat save gunakan yang 2003

Properties ADOconn di cek

LoginPrompt = False

Mode = cmsharedenynone

Properties QTemp

Connection = ADOconn

Properties QLogin

connection = ADOconn

SQL.string = Select * from namatable

Active = True --> klo salah berarti sql.stringnya salah, biasanya salahnya from lu tulis form

Terus Terus ....

Nah, form1 siap digunakan

buat form baru lagi .

nah pada form ini digunakan jika kita berhasil login pada form1, check this :

Lu kalo gk tahu buat yang ini kebangetan dah !!

lanjut dah buat form pendaftaran :

kali ini gw kayanya gk perlu jelasin yak, soalnya sama kaya lab kemaren buat ado nya.

nih script buat tombol simpan, hapus, edit dan cancel :

Nice, tinggal di run coba dah :D
kalo masih ada masalah silakan searching google :D

sumber : holiskakashi