Menggunakan Crystal Report 7

Cara Menggunakan Crystal Report 7

Merasa heran dengan judul diatas. Saya pikir tidak sama sekali. Idealnya, Visual Basic 6.0 lebih kompatibel dengan Crystal Report 7 dikarenakan driver yang disupport oleh Crystal Report 7.0 juga disupport oleh visual basic 6.0.

Sebelumnya mari kita ketahui terlebih dahulu apa kegunaan dari Crystal Report?

Crystal Report 7.0

CR7/Crystal Report 7 sangat berguna bagi developer visual basic 6.0 khususnya didalam menyajikan data alias presentasi data yang diambil dari dalam database dalam bentuk laporan preview. Dengan Crystal Report kita bisa memberikan hasil yang jauh lebih baik dibandingkan menggunakan Data Report bawaan dari Visual basic 6.0 yang terintegrasi didalam bundle paket Visual Basic 6.0. Disamping fitur yang ditawarkan terbilang lengkap, Crystal report sangat mudah diintegrasikan dengan project visual basic 6.0 yang ingin menyajikan data yang ada dalam database (baik Ms.Access, MySQL, SQL Server, dsb). kedalam suatu tampilan siap cetak (print-out).

Berikut ini adalah tahapan didalam menginstal Crystal Report 7.0 di windows Vista, Windows 7 bahkan Windows 8. Apakah bisa?, saya jawab: Bisa!

Pada saat proses instalasi Crystal Report 7.0 di Operating System Windows Vista, Windows 7 dan yang terbaru Windows 8 akan muncul dialog box yang mengatakan bahwa telah terjadi Error pada file DLL atau tepatnya adalah ODBC Error. Kenapa? Karena ODBC yang digunakan pada Crystal Report 7.0 jelas berbeda dengan versi bawaan Windows Vista, 7 atau 8. 

Pada saat windows booting pertama kali, maka seluruh driver yang berkenaan dengan cPanel yang anggotanya salah satunya yaitu ODBC akan ikut dipanggil oleh sistem windows untuk di load berbarengan dengan driver lain. Pada saat inilah, terjadi error karena ODBC driver milik Crystal report ternyata sudah tidak dikenal. :D

Untuk mengatasi hal tersebut diatas, satu-satunya solusi adalah:

Instal-lah Crystal report 7.0 anda pada status "Safe-Mood". Kenapa? karena pada saat safe-mood, tidak seluruh driver di load pada saat windows booting, tapi hanya beberapa saja. Driver-driver berupa sound, graphic, khususnya ODBC driver tidak akan di load. Sedangkan driver grafic yang diload adalah driver default yaitu VGA Compatible, jadi tidak ada pengaruhnya sama sekali dengan Instalasi Crystal Report 7.0.

Pada saat proses instalasi, sistem akan memunculkan dialog box, bahwa beberapa file Crystal Report 7 tidak dapat di load dikarenakan corupt, tidak dapat diekstrak dari file .cab. Ini wajar karena anda menginstalnya dalam keadaan windows berstatus "safe-mood". Jadi, cukup klik tombol [ignore] saja, atau abaikan saja.
Setelah proses instalasi selesai, jangan langsung memvalidasi Serial Numbernya saat itu juga, tapi reboot PC atau lepi anda dan masukan SN pada saat windows benar-benar telah ON dan tidak berstatus "safe-mood" lagi. Done!

Mencetak Data dari Database dengan Crystal Report 7.0

Sebelumnya, desainlah terlebih dahulu laporan anda di Crystal Report 7.0 yang baru diinstal tersebut. Setelah itu, tambahkan Crystal Report Control pada form yang akan menjadi form cetaknya. Selanjutnya, silahkan ikuti tutorial scripting berikut ini:

1. MENCETAK SEMUA DATA

Misalkan Crystal Report Control atau Crystl32.OCX kita namakan dengan crCetakSemua.

With crCetakSemua
  .Reset 'menghapus cache sebelumnya bila ada dan mengembalikan crystal report dalam posisi siap perintah.
  .WindowState = crptMaximized ' posisi jendela preview crystal report - maximise
  .DataFiles(0) = App.Path + "\personalia.mdb" ' me-load data dari dalam database.

  .ReportFileName = App.Path + "\gajibulanan.rpt"  ' me-load file crystal report hasil desain.

  .WindowShowCloseBtn = False
  .WindowShowCancelBtn = False
  .WindowShowPrintSetupBtn = False
  .WindowShowNavigationCtls = False
  .WindowShowSearchBtn = False
  .WindowShowRefreshBtn = False
  .WindowShowProgressCtls = False
  .WindowShowPrintSetupBtn = False
  .WindowShowPrintBtn = False
  .WindowTitle = " Cetak Gaji Bulanan " & txtnamapegawai.Text & "- PT.Pembangunan"
  .RetrieveDataFiles
  .PrintReport
End with

Catatan: txtnamapegawai adalah TextBox yang diberi nama txtnamapegawai. Disini, data Gaji Bulanan akan ditampilkan berdasarkan nama pegawai yang diinput didalam txtnamapegawai.text.

2. HANYA MENCETAK 1 DATA

Berikut ini adalah cara mencetak 1 data saja, misalnya: Gaji pegawai. Gaji pegawai ini dicari berdasarkan Nama Pegawai tersebut sehingga menjadi sbb:

With crCetakGaji
  .Reset
  .WindowState = crptMaximized
  .DataFiles(0) = App.Path + "\personalia.mdb"
  .ReportFileName = App.Path + "\gajibulanan.rpt"
  .SelectionFormula = "{gaji.Kode_Peg} =" & txtKodePegawai.Text
  .WindowShowCloseBtn = False
  .WindowShowCancelBtn = False
  .WindowShowPrintSetupBtn = False
  .WindowShowNavigationCtls = False
  .WindowShowSearchBtn = False
  .WindowShowRefreshBtn = False
  .WindowShowProgressCtls = False
  .WindowShowPrintSetupBtn = False
  .WindowShowPrintBtn = False
  .WindowTitle = " Cetak Gaji Bulanan Per Pegawai " & txtNamaPegawai.Text & "- PT.Pembangunan"
  .RetrieveDataFiles
  .PrintReport
End With

Catatan: Kode  .SelectionFormula = "{gaji.Kode_Peg} =" & txtKodePegawai.Text memiliki interpretasi sebagai berikut:

"Cari nama tabel "gaji" dan ambil kolom Kode_Peg berdasarkan Kode Pegawai yang diinput melalui txtKodePegawai.text"