P10_Membuat aplikasi database dengan akses data lewat komponen ADO (ActiveX Data Object).

 1.      Edit Data

Pada contoh sebelumnya, kita menggunakan DBGrid untuk merepresentasikan/ menampilkan data. Selain DBGrid, kita masih dapat pula menggunakan komponen yang lain. Pada contoh sebelumnya tambah kan komponen-komponen seperti gambar 10.1 dibawah ini.

Gambar 10.1 Program Data Mahasiswa

berikut ini video penerapan skrip untuk edit data:

 

2.       Pencarian Data

ADOQuery merupakan perintah yang diberikan kepada database sebagai usaha untuk memanipulasi data. ADOQuery biasanya berupa perintah untuk menampilkan/mencari data, mengubah data, dan menghapus data. Berikut ini adalah contoh   aplikasi   yang   menggunakan   ADOQuery untuk pencari data dengan menggunakan Delphi dan bagaimana cara membuatnya. Aplikasi tersebut digunakan untuk mencari data mahasiswa yang memanfaatkan tabel MHS yang telah dibuat sebelumnya seperti pada gambar 10.2

Gambar 10.2. Program Cari Data

 

Pada gambar tersebut, terdapat kategori pencarian data yaitu berdasarkan NIM, nama mahasiswa, angkatan, dan alamat. Dalam aplikasi terdapat pula tempat memasukkan kata kunci terkait dengan data yang akan dicari.  Hasil pencarian data akan ditampilkan pada DBGrid. Sisipkan komponen-komponen berikut ini dan ubahlah properties nya seperti pada Tabel 10.2.

Tabel 10.2 Komponen dan Properties dalam Form

Komponen	Property	Value
GroupBox1	Name	GroupBox1
	Caption	Kategori Pencarian
GroupBox2	Name	GroupBox2
	Caption	Kata Kunci
GroupBox3	Name	GroupBox3
	Caption	Kategori Pencarian
RadioButton1	Name	Radiobutton1
	Caption	NIM
	Checked	True
RadioButton2	Name	Radiobutton2
	Caption	Nama Mahasiswa
RadioButton3	Name	Radiobutton3
	Caption	Angkatan
RadioButton4	Name	Radiobutton4
	Caption	Alamat
Edit1	Name	Edit1
	Caption	(kosongkan)
Button1	Name	BUTTON1
	Caption	Cari Data

 

Komponen ADOConnection1 diatur sebagai berikut:

1. Klik properti ConnectionString  Klik icon Elipsis ( )   Build  Microsoft Jet 4.0 OLE DB Provider  Next  icon Elipsis  Pilih folder “penyimpanan database yang telah dibuat”  Open  Test Connection  OK  OK  OK

2. Klik properti LoginPrompt, lalu ubah nilainya menjadi False

3. Klik properti Connected, lalu ganti nilainya menjadi True seperti pada tabel 10.3

Tabel 10.3 Komponen Properti Connected

Komponen	Property	Value
ADOQuery1	Connection	ADOConnection1
DataSource1	DataSet	ADOQuery1
DBNavigator1	DataSource	DataSource1
DBGrid1	DataSource	DataSource1

 

Selanjutnya tambah code berikut ini pada event ON CLICK pada BUTTON1

procedure TForm1.Button1Click(Sender: TObject);

var query : string;

begin

ADOQuery1.SQL.Clear;

If Radiobutton1.Checked then query := 'SELECT * FROM MHS WHERE

NIM = :katakunci'

else If Radiobutton2.Checked then query := 'SELECT * FROM MHS

WHERE NAMAMHS LIKE :katakunci'

else If Radiobutton3.Checked then query := 'SELECT * FROM MHS

WHERE ANGKATAN = :katakunci'

else If Radiobutton4.Checked then query := 'SELECT * FROM MHS

WHERE ALAMAT LIKE :katakunci';

ADOQuery1.SQL.Add(query);

If Radiobutton2.Checked or Radiobutton4.Checked then

ADOQuery1.Parameters.ParamByName('katakunci').Value :=

'%'+Edit1.Text+'%'

else If RadioButton3.Checked then

ADOQuery1.Parameters.ParamByName('katakunci').Value :=

StrtoInt(Edit1.Text)

else ADOQuery1.Parameters.ParamByName('katakunci').Value :=

Edit1.Text;

ADOQuery1.Open;

If ADOQuery1.RecordCount = 0 then MessageDlg('Data tidak

ditemukan',mtinformation,[mbOK],0);

end;

  contoh video pembelajaran tentang cari data :

3.      Menampilkan Grafik atau Chart

Untuk menampilkan grafik atau chart terkait dengan data dalam database. Contoh

a.       aplikasi berikut memanfaatkan DBChart untuk merepresentasikan data. Untuk menampilkan grafik atau chart tambahkan komponen-komponen seperti gambar disamping.

b.      DBChart digunakan untuk menampilkan grafik diagram batang yang menunjukkan jumlah mahasiswa per angkatan. Grafik tersebut akan berubah secara otomatis apabila dilakukan perubahan data pada tabel MHS seperti pada gambar 10.3 dan tabel 10.4

Gambar 10.3 Program Data Mahasiswa

 

Tabel 10.4 Komponen Data Mahasiswa

Komponen	Property	Value
ADOConnection1	ConnectionString
	LoginPrompt	False
	Connected	True
ADOQuery2	Connection	ADOConnection1
	SQL	SELECT COUNT(*) AS JUM, ANGKATAN FROM MHS GROUP BY ANGKATAN
	Active	True
ADOQuery2	Connection	ADOConnection1
	SQL	SELECT * FROM MHS
	Active	True
DataSource1	DataSet	ADOQuery2
DBNavigator1	DataSource	DataSource1
DBGrid1	DataSource	DataSource1
DBChart	Name	DBChart1

 

Catatan:

Tambahkan SERIES pada DBCHART1 dengan bentuk Bar

Ubah titlenya menjadi ‘GRAFIK JUMLAH MAHASISWA PER ANGKATAN’

Hapuslah legend (legend tidak ditampilkan)

Tambahkan  title   pada   Left   Axis   dengan   ‘JUMLAH’   dan   Bottom   Axis   dengan

‘ANGKATAN’.  Dua option ini akan ditampilkan sebagai nama sumbu grafik

 

Selanjutnya tambah code berikut ini pada event :

ONACTIVATE dalam komponen FORM

procedure TForm1.FormActivate(Sender: TObject);

begin

Series1.DataSource := AdoQuery1;

Series1.XLabelsSource := 'ANGKATAN';

Series1.YValues.ValueSource := 'JUM';

end;

Keterangan:

Perintah Series1.XLabelsSource digunakan untuk  menampilkan label sumbu  X pada grafik. Pada code di atas, label sumbu x diambil dari field ANGKATAN pada quer y SQL. Sedangkan Series1.YValues.ValueSource digunakan untuk  menentukan field terkait dengan nilai data, dalam hal ini nilai data adalah ‘JUM’

 

AFTERDELETE dalam komponen ADOQuery2

procedure TForm1.ADOQuery2AfterDelete(DataSet: TDataSet);

begin

ADOQuery1.Active := false;

ADOQuery1.Active := true; Series1.DataSource := ADOQuery1; Series1.XLabelsSource := 'ANGKATAN'; Series1.YValues.ValueSource := 'JUM';

end;

 

 

AFTERPOST dalam komponen ADOQuery2

procedure TForm1.ADOQuery2AfterPost(DataSet: TDataSet);

begin

ADOQuery1.Active := false; ADOQuery1.Active := true; Series1.DataSource := ADOQuery1; Series1.XLabelsSource := 'ANGKATAN'; Series1.YValues.ValueSource := 'JUM';

end;

 

A.    Rangkuman

Menampilkan grafik berdasarkan kategori dapat dilakukan dengan langkah berikut ini :

1.       membuat ADOQuery terlebih dahulu untuk menghubungkan dengan database. Dalam delphi yang telah saya coba untuk jurusan menggunakan ADOQuery2 sedangkan jenis kelamin menggunakan ADOQuery4. Berikut saya lampirkan SQL pada ADOQuery tersebut.

ADOQuery2 -> Select count(*)As Jumlah, JURUSAN from DataSiswa Group By JURUSAN

ADOQuery4 -> Select count(*)As JK, JENISKELAMIN from DataSiswa Group By JENISKELAMIN

2.      ADOQuery tersebut diactivkan.

3.      Setelah itu dibuat DBChart untuk menampilkan rincian dengan menghubungkan ADOQuery pada data set di DBChart. Sebelumnya untuk menampilkan rincian database jurusan saya pilih series1 sedangkan jenis kelamin saya pilih series 3.

4.      Kode Delphi yang digunakan adalah sebagai berikut :

//Kode untuk Jurusan

If RadioButton4.Checked then

begin

ADOQuery2.Active:=true;

series2.Active:=false;

series3.Active:=false;

series1.Active:=true;

Series1.DataSource:=ADOQuery2;

Series1.XLabelsSource:='JURUSAN';

Series1.YValues.ValueSource:='Jumlah';

end

//Kode untuk jenis kelamin

else if RadioButton6.Checked then

begin

series2.Active:=false;

series3.Active:=true;

series1.Active:=false;

ADOQuery2.Active:=false;

ADOQuery3.Active:=false;

ADOQuery4.Active:=true;

Series3.DataSource:=AdoQuery4;

Series3.XLabelsSource:='JENISKELAMIN';

Series3.YValues.ValueSource:='JK';

end;

Tugas : 

Silahkan dilengkapi Tugas minggu kemarin dengan menambahkan:

1. Menu tambah, edit dan hapus

2. Menu Cari berdasarkan Nama, NIK dan No HP

3. Menunjukkan grafik berdasarkan Jenis Kelamin, Agama dan Alamat