 | Artikel Visual Basic |
| Basis Data - Database |
| Pemrograman Grafis |
| E-Book Tutorial |
| Video Kursus - Tutorial |
| Software - Open Source code |
| W E B Programming |
| Windows System |
| XBasicFramework |
| Berbagi Pengalaman |
| Quick Basic |
|
Software gratis! Open Source
Code
|
|
|
|
|
MENU>Artikel Visual Basic>Visual Basic 6.0 Database>Laporan dgn Crystal Report
|
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.
Penjelasan dan rincian langkah-langkah detail dari pembuatan report ini dapat anda
baca di E-Book saya yang berjudul
TRIK DATABASE VISUAL BASIC 6.0
Tehnik pengkodean ini juga telah dipakai pada
SOFTWARE POS (POINT OF SALES) - PROGRAM KASIR |
|