25 January, 2010

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.



Artikel Terkait

0 comments:

:10 :11 :12 :13
:14 :15 :16 :17
:18 :19 :20 :21
:22 :23 :24 :25
:26 :27 :28 :29
:30 :31 :32 :33
:34 :35 :36 :37
:38 :39 :40 :41
:42 :43 :44 :45
:46 :47 :48 :49
:50 :51 :52 :53
:54 :55 :56 :57

Post a Comment

Template by : kendhin x-template.blogspot.com ==> Editor by : BIK