Membuat Laporan dengan Crystal Report & Visual Basic 6.0

Membuat Laporan dengan Crystal Report & Visual Basic 6.0

Dalam pembuatan program database report dipergunakan untuk menampilkan data hasil seleksi maupun hasil proses pemrograman.

Crystal Report merupakan paket software yang dipergunakan untuk keperluan menampilkan report.

Banyak fitur pengolahan report yang disediakan oleh crystal report namun saya lebih suka memanipulasi data report melalui Query yang ada di SQL Server maupun melalui kode di Visual Basic 6.0

Misalnya kita akan menampilkan daftar nama kota ke file Kota.rpt

Komponen-komponen penyusun report dalam aplikasi kita adalah sebagai berikut:
1. View atau Table dibuat dengan SQL Server (MIS: tbl_kota atau View_kota)
2. Report dibuat dengan Crystal Report (misal kota.rpt)
3. Report Viewer (Penampil Report) dibuat dengan Form Visual Basic dan Komponen Crystal Report)
4. Script untuk memanggil frmViewer

Untuk membuat report dengan crystal report kita terlebih dahulu menghubungkan Crystal Report ke Tabel atau View di SQL Server. Lalu file report mis: kota.rpt disimpan.
Gambar di bawah ini adalah contoh report yang dibuat dengan crystal report:

Setelah file disimpan, file ini nanti ditampilkan dengan Viewer (Penampil yang akan kita buat sendiri.
Penampil/Viewer report ini dibuat dengan form Visual Basic yang di dalamnya terdapat komponen Crystal Report Viewer.
Lihat gambar di bawah ini:

Selanjutnya form tersebut kita berinama frmViewer.frm

Di dalam frmViewer ini tentunya ada kode penampil sbb:

Public rptName As String
Public Sql As String
Public sConn As String

Private Sub Form_Load()

Dim oConn As New ADODB.Connection
oConn.Open sConn
Dim oRs As New ADODB.Recordset
Dim CrystalApp As New CRAXDRT.Application
Dim CrystalRpt As CRAXDRT.Report
oRs.Open Sql, oConn, adOpenStatic, adLockReadOnly, adCmdText

Set CrystalRpt = CrystalApp.OpenReport(rptName)
CrystalRpt.DiscardSavedData
CrystalRpt.Database.SetDataSource oRs

‘– tampilkan report pada viewer
CrystalActiveXReportViewer1.ReportSource = CrystalRpt

CrystalActiveXReportViewer1.ViewReport
oRs.Close

End Sub

Sekarang waktunya membuat tombol dan script pemanggil frmViewer. Kodenya adalah sbb:

Private Sub cmdLaporan_Click()
frmViewer.sConn = “Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Dataku;Data Source=.”

frmViewer.rptName = “kota.rpt”
frmViewer.Sql = “select * from kota where kode_kota=’K-001′”

frmViewer.Show

End Sub

Jika kode kita benar setelah mengklik tombol laporan maka akan berjalan seperti gambar di bawah ini:

OK. Selamat sekarang report anda telah berjalan.
Untuk mempermudah pemahaman memang saya menjelaskan tahap-tahap pembuatan report secara garis besar. Ini artinya ada yang terpotong-potong.

About these ads

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s