Menampilkan Database Dengan DBChart

Dalam pembuatan aplikasi berbasis database banyak Sekali cara menampilkannya pada delphi. Pada postingan sebelumnya dijelaskan menampilkan data database dengan DBEdit. dalam tutorial kali ini akan dijelaskan cara menampilkan data ke bentuk CHART/GRAFIK..

DBChart digunakan untuk menampilkan grafik/chart terkait dengan data dalam database. Contoh aplikasi berikut memanfaatkan DBChart untuk merepresentasikan data. Perhatikan Gambar 5.5.



Aplikasi pada Gambar 5.5, 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. Berikut ini adalah cara membuatnya.

Sisipkan komponen berikut ini dan ubah propertiesnya

ADOCONNECTION



ADOTABLE



DATASOURCE



ADOQUERY



DBGRID



DBNAVIGATOR



DBCHART



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

Tambahkan 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 query SQL.
• Sedangkan Series1.YValues.ValueSource digunakan untuk menentukan field terkait dengan nilai data, dalam hal ini nilai data adalah ‘JUM’.

Tambahkan code berikut ini pada event AFTERDELETE dalam komponen TABLE1

procedure TForm1.Table1AfterDelete(DataSet: TDataSet);
begin
AdoQuery1.Active := false;
AdoQuery1.Active := true;
Series1.DataSource := AdoQuery1;
Series1.XLabelsSource := 'ANGKATAN';
Series1.YValues.ValueSource := 'JUM';
end;

Dan tambahkan pula code pada event AFTERPOST dalam komponen TABLE1

procedure TForm1.Table1AfterPost(DataSet: TDataSet);
begin
AdoQuery1.Active := false;
AdoQuery1.Active := true;
Series1.DataSource := AdoQuery1;
Series1.XLabelsSource := 'ANGKATAN';
Series1.YValues.ValueSource := 'JUM';
end;

HUUUH,, capekkkk,,,  SEKIAN dulu tutorial mengenai representasi data database Ke delphi Dengan Database MS ACCESS,,,

TERIMAKASIH,,,,,