Koneksi Database di Delphi 7 dengan ADO

1. Pertama-tama kita harus membuat database terlebih dahulu dengan menggunakan Ms.Acces,di bawah ini contoh database yang telah saya buat, isikan kolom dan baris pada Ms. Acces seperti gambar di bawah ini:

pastikan databasenya seperti gambar dibawah ini :

2. Simpan access tersebut ke hardisk dan beri nama sesuai kehendak teman-teman.

3. Buka Delphi lalu Buat Form baru dan Siapkan :

a. 5 buah label (Standar)
b. 5 buah DBEdit (Data Control)
c. ADOConection (ADO)
d. ADOTable (ADO)
e. DataSource (Data Access)
f. DBNavigator (Data Control)
g. 2 Buah Button (Standar)
h. DBGrid (Data Control)

Susunlah Komponen-komponen diatas sesuai dengan gambar di bawah ini,atau terserah temen-temen aja yang penting mudah di pahami.

4. Koneksikan ADOConection

a. Klik dua kali komponen ADOConecction,lalu akan muncul tampilan seperti di bawah ini :

b. Klik Build >> lalu muncul tampilan seperti di bawah ini :

c. Klik Next >>Klik Tombol(...) untuk mengoneksikan databasenya,cari Ms.access yang telah temen-temen simpan di hardisk tadi. dan muncul gambar seperti dibawah ini :

d. Klik Test Connection pastikan test koneksinya sukses,seperti gambar di bawah ini :

e. Klik OK >> OK >> OK sehingga kembali ke form1 lagi.


f. Koneksikan komponen-komponen seperti gambar di bawah ini :

Sehingga Form1 tadi akan berubah seperti gambar dibawah ini :

5. Isikan program pada button proses dan Exit.

a. Klik dua kali button proses.
b. Isikan Program seperti dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);
var
Nilai_Matematika,Nilai_Bahasa_Indonesia,Nilai_bahasa_Inggris,
Total_Nilai:real;
kriteria:String;
begin
Nilai_Matematika:=StrToFloat(DBEdit1.Text);
Nilai_Bahasa_Indonesia:=StrToFloat(DBEdit2.Text);
Nilai_bahasa_Inggris:=StrToFloat(DBEdit3.Text);
Total_nilai:=(Nilai_Matematika+Nilai_Bahasa_Indonesia+Nilai_bahasa_Inggris)/3;
dbedit4.text:=floattostr(total_nilai);
if(total_nilai >=85) then kriteria:='A' else
if(total_nilai >=75) and (total_nilai <=84) then kriteria:='B' else if(total_nilai >=60) and (total_nilai <=74) then kriteria:='C' else if(total_nilai >=45) and (total_nilai <=59) then kriteria:='D' else kriteria:='E'; dbedit5.Text:=kriteria; end;

c. Lalu klik dua kali pada button exit.
d. Isikan Program seperti dibawah ini :

procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;
end.