Memakai TDBChart untuk Menampilkan Diagram

Gambar lebih mudah dipahami daripada angka-angka. Oleh karena itu, para manajer sering merepresentasikan gambaran operasional perusahaan dengan menggunakan diagaram. Delphi mempunyai kemampuan itu, sebagai contoh di artikel ini, saya menggunakan TDBChart.

Buat aplikasi dengan satu form, TDbChart, TAdoQuery, TAdoConnection, datasource1, tdbgrid seperti dibawah ini:


Tulis kode berikut di bagian function TerhubungKeServer. Fungsi ini nanti akan dipanggil oleh formcreate. Kode tersebut akan menghubungkan masing-masing komponen koneksi data sampai datanya terhubung.

    with Adoconnection1 do begin
        Close;
        ConnectionString :=
        'Provider=SQLOLEDB.1;' +

        'Password=IniPassword;Persist Security Info=True;' +
        'User ID=SuperAdmin;Initial Catalog=PenjualanBuku;' +
        'Data Source=ServerPembelian;Use Procedure for Prepare=1;' +
        'Auto Translate=True;Packet Size=4096;' +

        'Workstation ID=KomputerServer;' +
        'Use Encryption for Data=False;' +
        'Tag with column collation when possible=False';
         Open;
    end;

    with AdoQuery1 do begin
      Close;
      Connection := AdoConnection1;
      SQL.Clear;
      SQL.Add(
          ' select top 5 ' +
          '     P.KodeBuku,  P.NamaBuku , sum(Banyak) As Total ' +
          ' from ' +
          '     BeliMaster As M Left Join BeliDetil As D ' +
          '     On M.NoBukti = D.NoBukti Left Join DaftarBuku As P ' +
          '     On P.KodeBuku = D.KodeBuku ' +
          ' where ' +
          '     year(M.Tglbuat) = 2017 ' +
          ' group by ' +
          '     P.NamaBuku, P.KodeBuku ' +
          ' order by ' +
          '     Total desc '
             );
       Open;
    end;

    Datasource1.DataSet := AdoQuery1;
    DBGrid1.DataSource := Datasource1;


Fungsi yang kedua adalah menghubungkan data ke komponen TDBChart. Kode programnya adalah sebagai berikut:

procedure TForm1.TampilkanDiagram;
begin
  with DBChart1 do begin
    Title.Text.Clear;
    Title.Text.Add('5 Penjualan Buku Terbanyak 2017');
    Title.Font.Size := 15;

    AddSeries(TPieSeries.Create(nil));
    series[0].Clear;
    series[0].Title := 'Judul Buku';
    series[0].ParentChart := DBChart1;
    series[0].XLabelsSource := 'NamaBuku';
    series[0].YValues.ValueSource := 'Total';
    series[0].DataSource := AdoQuery1;
  end;
end;


Panggil kedua fungsi tadi di FormCreate seperti dibawah ini:

procedure TForm1.FormCreate(Sender: TObject);
begin
   TerhubungKeServer;
   TampilkanDiagram;
end;



Memakai TDBChart untuk Menampilkan Diagram Rating: 4.5 Diposkan Oleh: Good Dreamer

0 comments:

Posting Komentar

Diberdayakan oleh Blogger.