cara membuat grafik pada laporan

Grafik merupakan suatu sajian data yang dituangkan dalam bentuk diagram. Bentuk sajian semacam ini tentu akan lebih menarik dan informatif, karena selain dapat diisi dengan kombinasi warana dan bentuk juga bersifat uptodate yang langsung berubah jika terjadi perubahan data.

Ada berbagai macam jenis grafik yang disediakan crystal report, yang dapat kamu gunakan untuk mendesain laporan dan grafik. Secara umum terdapat dua macam data yang dapat digunakan untuk membuat grafik, yaitu :

Data Tunggal

Data tungga hanya mempunyai satu data numerik yang akan dibandingkan untuk banyak baris (record). Bentuk grafik yang mendukung data tunggal adalah Pie dan Doughnout

Data Banyak

Data banyak merupakan data numerik yang digunakan lebih dari satu yang akan digunakan untuk banyak baris (record). Bentuk grafik yang menggunakan data banyak antara lain Bar, Line, Area dan sebagainya.

Contoh pembuatan program untuk menampilkan grafik kedalam laporan adalah sebagai berikut :

Desain tampilan seperti berikut :

Buat tabel baru pada SQL Server dengan data-data sebagai berikut, beri nama jual_mobil.

Kemudian buat laporan baru dengan template Crystal Report dan beri nama grafik_bar

Pilih tabel yang digunakan yaitu tabel jual_mobil, pilih seluruh field untuk digunakan

Setelah jadi klik Chart pad toolbar sehingga muncul tampilan berikut :

Pilih jenis Chart bar kemudian kamu bisa memilih jenis tampilannya pada bagian kanan. Kemudian kamu klik tab Data.

Pada tab Data ini pilih nama field-field yang akan dijadikan grafik. Contohnya adalah sebagai berikut:

Klik tombol Ok dan hasil desain grafik akan ditambahkan ke report

Sekarang kembali ke form dan masukkan kode-kode lengkapnya sebagai berikut :

Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Shared

Imports System.Data.SqlClient

Public Class Grafik

Dim xKoneksi As New SqlConnection

Dim xAdapter As New SqlDataAdapter

Dim xDataset As New DataSet

Dim xReport As New ReportDocument

Private Sub Grafik_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

xKoneksi.ConnectionString = “Server=(local);” & _

“database=db_test_transaction;UID=pakadmin;PWD=pakadmin”

‘perintah yg dipakai

xAdapter = New SqlDataAdapter(“Select * ” & _

“from tbl_jual”, xKoneksi)

‘buka koneksi

xKoneksi.Open()

‘mengisi dataset

xAdapter.Fill(xDataset)

End Sub

Dim bentuk As Byte

Private Sub rdo_bar_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdo_bar.CheckedChanged, rdo_line.CheckedChanged, rdo_pie.CheckedChanged, rdo_doughnut.CheckedChanged

bentuk = sender.tag

End Sub

Private Sub btn_cetak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_cetak.Click

If bentuk <= 2 Then

If bentuk = 1 Then

xReport = New grafik_bar

End If

End If

xReport.SetDataSource(xDataSet)

CrystalReportViewer1.ReportSource = xReport

End Sub

End Class

Sekarang coba kamu jalankan programnya dan coba kamu pilih radio button bar kemudian klik cetak, hasilnya kurang lebih adalah sebagai berikut :

Mungkin diantara kamu ada yang bertanya… lho terus mana code untuk tipe line, pie dan doughnut nya???? Nah itu dia… disini sengaja ga aku berikan, itu untuk PR kalian dirumah yaw… hohoho :)

Mungkin ada tambahan masukan atau pertanyaan? Silahkan kamu posting dibawah…. makasih, semoga membantu :)

SUMBER: http://ajidotnet.wordpress.com/2008/09/12/membuat-grafik-pada-laporan-crystal-report-adonet/