Insert dan Login di delphi

Sebelum kita ke Login , saya buat Foerm Untuk Pendaftaran  agar anda bisa login

tools yang saya gunakan untuk pagecontrol daftar:
1. PageControl (1 untuk login dan 2 untk daftar).
2. Label (ada 2 : username and password)
3. EditText (ada 2 : Ename.text and epass.text)
4. SpeedButton (ada 2 : SPdaftar dan SPkeluar)
5. adoquery

Untuk Koneksi Adoquery pada Propertiesnya :

1.ConnectionString =

 Provider=Microsoft.Jet.OLEDB.4.0;Data  Source=db.mdb;Persist Security Info=False 

2. SQL = select * from login
3. Lalu di TES pilih ACTIVE = TRUE


jika anda berhasil Daftar maka akan ada konfirmasi :

Setelah anda Terdaftar baru anda bisa Login :

Untuk Toolsnya :
1. Label (ada 2 : username and password)
2. EditText (ada 2 : Eser.text and epassu.text)
3. SpeedButton (ada 2 : SPlogin dan SPclose)

Untuk konneksi sama
Untuk Cara Kerja bila anda belum Terdaftar maka anda Klik Tulisan berwarna Biru Untuk Masuk Ke Menu Pendaftaran,
Jika sudah terdaftar silahkan Login





Jikan Anda Telah Berhasil LOGIN maka Akan Ada Pesan :

coba download di link ini Latihan.rar
Klau kurang jelas silahkan di tanya di BLOG : karena scriptnya banyak menggunakan PROCEDURE