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

Mencoba Oracle

Belajar Database Oracle ,,,  membuat primary key and foreign key

CREATE table "TES1" (
    "NIM"        CHAR(8),
    "NAMA"       VARCHAR2(25),
    "NILAI"      NUMBER,
    "TUGAS"      NUMBER,
    "TGL"        DATE
)
/


alter table "TES1" add constraint  "TES1_PK" primary key ("NIM","NIM")
/


ALTER TABLE "TES1" ADD CONSTRAINT "TES1_FK2" 
FOREIGN KEY ("NAMA")
REFERENCES "MHS" ("NAMA")


/

Perintah SQL untuk pencarian di Delphi

NI ada sampel menggunakan adoquery2 ,,,  nama table master_pegawai..
Yang perlu d siapkan,, adoquery2, edit1.text, dan button untuk tombol cari
 OK,, mulai....

with ADOQuery2 do
  begin
  sql.Clear;
  sql.Add('select * from master_pegawai'+
  ' where NIP like '+QuotedStr('%'+Edit1.Text+'%')+' ');
  Open;
  end;

variasi masing22 progremer...
silahkan dikembangkan
maaf masih belajar...