Convert data dari record Database ke grafik pada delphi 7

Convert data dari record Database ke grafik pada delphi

Berikut ini adalah contoh aplikasi mengubah data pada data base ke dalam bentuk grafik, contoh yang saya berikan adalah contoh sederhana hasil pengubahan data dari record database ke dalam bentuk grafik, database yang dipergunakan adalah microsoft access dengan data jumlah pemilih pada pemilihan kepala daerah,

Komponen yang dipergunakan dapat di lihat pada gambar  berikut :

Tampilan database nya adalah sebagai berikut :

Source code nyasebagai berikut :

procedure TForm1.ComboBox1Change(Sender: TObject);

var calonA,calonB,calon:integer;

begin

    Adoquery1.SQL.Text := 'select Calon_A,calon_B,calon_C from tb_kecamatan WHERE Nama_Kecamatan like "'+Combobox1.Text+'%"';

    Series1.DataSource := Adoquery1;

    Series1.XLabelsSource := 'Calon_A';

    series1.YValues.ValueSource := 'Calon_A';

     Series2.DataSource := Adoquery1;

    Series2.XLabelsSource := 'Calon_B';

    series2.YValues.ValueSource := 'Calon_B';

     Series3.DataSource := Adoquery1;

    Series3.XLabelsSource := 'Calon_C';

    series3.YValues.ValueSource := 'Calon_C';

    adoquery1.Active :=true;

    dbchart1.Title.Text.Clear;

    dbchart1.Title.Text.Add('Grafik Karbon:'+ ComboBox1.text);

end;

KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI