Tutorial dan Contoh Program – Membuat Laporan Dengan Crystal Report Pada ADO.NET – VB.NET

Dalam membuat suatu laporan, data merupakan komponen yang sangat vital dan mutlak disediakan. Terdapat dua model untuk mengambil data yang ada di database guna ditampilkan pada laporan yaitu :
Pull Mode

Pada model ini proses yang terjadi adalah driver akan melakukan koneksi ke database dan menarik data yang ada di dalam database tersebut sesuai dengan permintaan. Dengan model ini, di antara koneksi dalam database dengan perintah SQL akan menghasilkan data yang ditangani crystal report. Umumnya model ini digunakan pada laporan yang pengambilan datanya berasal dari database, dimana koneksinya tidak mengalami perubahan atau tidak memerlukan pengkodean.
Push Mode

Pada mode ini koneksi ke database digunakan untuk mengambil data dan mengisikan data tersebut kedalam dataset. Data yang berada didalam dataset selanjutnya akan ditampilkan kedalam laporan.Push mode merupakan model yang lebih fleksibel dari pada pull mode, kareana perubahan koneksi kedata base dapat dilakukan melalui kode-kode program.

Contoh programnya adalah sebagai berikut :

Buat tabel baru dengan definisi kurang lebih sebagai berikut :

Membuat Laporan Dengan Crystal Report

Untuk membuat laporan dengan Crystal Reports, langkah-langkahnya adalah sebagai berikut :

Klik kanan nama project pada jendela solution. Pilih Add dab klik menu Add New Items akan dimunculkan dialog Add New Item.

Pada bagian template pilih Crystal Report. Tuliskan nama laporan pada isian nama, kemudian klik open.

Selanjutnya pada jendela Crystal Report Galery pilih Using Report Wizard dan pilih jenis Standart

Kemudian pada jendela Standar Report Creation Wizard create New Connection kemudian pilih OLE DB (ADO), akan muncul jendela baru OLEDB (ADO) pilih Microsoft OLE DB For SQL Server. Kemudian klik Next.

 

Berikutnya masukkan nama server yang kamu gunakan beserta user id, password dan nama database yang digunakan. Lalu klik Next

 

Berikutnya akan muncul advance information. Klik finish untuk menutup jendela ini. Maka akan kembali ke tampilan berikut dan data koneksi baru sudah ditambahkan

  Kemudian pilih tabel yang akan dibuat laporannya, lalu klik tombol > untuk menambahkan ke pilihan. Kemudian klik Next . Akan muncul jendela untuk pemilihan fields yang akan digunakan. Pilih field yang akan digunakan kemudian klik tombol Next. Kemudian akan muncul jendela pemilihan group, lewati saja klik tombol Next. Kemudian pada Report Selection lewati saja klik tombol Next. Kemudian pada jendela Report Style pilih Standart dan klik tombol finish. Maka desain laporan yang akan kita gunakan sudah dibuat.

 

Desain Program

Tambahkan sebuah kontrol Crystal Report Viewer kedalam Form kamu. tampilan kurang lebih adalah sebagai berikut :

 

Code Model Pull Mode

Berikut ini adalah contoh kode lengkap untuk model Pull Mode :
‘direktif yang digunakan
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Data.SqlClient
Public Class Form1
‘call variabel
Dim obj_RepDoc As New ReportDocument
Dim Obj_ConInfo As New ConnectionInfo
Dim Obj_TabLog As New TableLogOnInfo
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
obj_RepDoc = New lap_001
Obj_TabLog = obj_RepDoc.Database.Tables(0).LogOnInfo
With Obj_ConInfo
.ServerName = “(local)”
.UserID = “pakadmin”
.Password = “pakadmin”
.DatabaseName = “db_test_transaction”
End With
Obj_TabLog.ConnectionInfo = Obj_ConInfo
obj_RepDoc.Database.Tables(0).ApplyLogOnInfo(Obj_TabLog)
CrystalReportViewer1.ReportSource = obj_RepDoc
End Sub
End Class
Coba kamu jalankan hasilnya kurang lebih adalah sebagai berikut :

 

Code Model Push Mode

Berikut ini adalah contoh kode lengkap untuk model Push Mode :
‘direktif yang digunakan
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Data.SqlClient
Public Class Form2
‘class variabel
Dim xKoneksi As New SqlConnection
Dim xAdapter As New SqlDataAdapter
Dim xDataset As New DataSet
Dim obj_RepDoc As New ReportDocument
Private Sub Form2_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”
xAdapter = New SqlDataAdapter(“Select * ” & _
“from tbl_jual”, xKoneksi)
xAdapter.Fill(xDataset, “BRG”)
obj_RepDoc = New lap_001
obj_RepDoc.SetDataSource(xDataset)
CrystalReportViewer1.ReportSource = obj_RepDoc
End Sub
End Class
Sekarang coba kamu jalankan. Jika koneksi database ke SQL Server menggunakan “User ID” dan “Password”, program akan menampilkan kotak dialog Database Login.

 

Dan hasilnya adalah sebagai berikut :

 

Refrensi : http://ajidotnet.wordpress.com/2008/09/08/tutorial-dan-contoh-program-membuat-laporan-dengan-crystal-report-pada-adonet-vbnet/