STMIKBG MATARAM

Bagi programer VB mungkin anda kadang menggunakan object report dari buatan “business objects” yang terkenal yakni Crystal Report, Mulai dari Crystal report versi 9 keatas ( Up to ver 9.x ) component viewernya tidak lagi menggunakan crystal32.ocx. Teknologi viewernya diarahkan menggunakan runtime library yang lebih stabil dan mudah diintegrasikan kedalam aplikasi, component aplikasi ini yakni :

Crystal Reports ActiveX Designer Run Time Library 10.0 Atau yang lebih tinggi ( craxdrt.dll )

serta object library crviewer.dll ( ver 10.0 atau yang lebih tinggi )

Kedua object diatas kita masukkan dalam project, untuk crviewer.dll kita masukkan sebagai komponen, dan craxdrt.dll sebagai object reference. Jika kita bedah file project maka akan terlihat string seperti berikut :

Reference=*\G{76691052-244D-4C07-8ECA-9FA4F1A25263}#a.0#0#D:\Program Files\Common Files\Crystal Decisions\2.5\bin\craxdrt.dll#Crystal Reports ActiveX Designer Run Time Library 10.0

Object={3C62B3DD-12BE-4941-A787-EA25415DCD27}#10.0#0; crviewer.dll

Ok, sekarang kita masukkan step by step untuk memasukkan control ini kedalam aplikasi.

1 ) . Add component dan pilih crviewer.dll serta properties name valuenya diisi “CrViewer” dan masukkan project reference serta pilih craxdrt.dll

2). Buat Form baru dan beri nama ( misalnya : FrmLaporan”), atur width and high valuenya, letakkan control crviewer.dll diform ini. masukkan code berikut

Public Crystal As CRAXDRT.Application ‘LOADS REPORT FROM FILE
Public Report As CRAXDRT.Report ‘HOLDS REPORT

3). Buat module baru dan ketikkan code dibawah ini

Public Sub CetakLaporan(Nm As String, Fm As String, Optional Dest As String)
Set FrmLaporan.Crystal = New CRAXDRT.Application
Set FrmLaporan.Report = Form1.Crystal.OpenReport(Nm)
If Fm <> “0″ Then
FrmLaporan.Report.RecordSelectionFormula = Trim(Fm)
End If
If Dest = “1″ Then
FrmLaporan.Report.PrintOut False
Else
FrmLaporan.CrViewer.ReportSource = FrmLaporan.Report
FrmLaporan.CrViewer.ViewReport
End If
Do While FrmLaporan.CrViewer.IsBusy
DoEvents
Loop
FrmLaporan.CrViewer.Zoom 95
FrmLaporan.SetFocus
End Sub

Dengan metode sederhana diatas anda sudah bisa memasukkan control crystal report pada aplikasi anda.