Membuat Laporan Grafik dengan VB.net 2005

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

 

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:

Setelah jadi klik Chart pad toolbar sehingga muncul tampilan 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 :

 

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