All About My Knowledge

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 :
Mungkin ada tambahan masukan atau pertanyaan? Silahkan posting comment dibawah…. terima kasih, semoga membantu