Tutorial Penggunaan Crystal Report dengan Visual Basic 6
A. Install Install Crysta Crystall Report Report 4.6 1. Pil Pilih ih file file “CRY “CRYSTL STL32. 32.EXE EXE” ”
2. Lalu kemud kemudian ian akan akan muncul muncul dialog dialog seperti seperti berikut berikut ini ini :
3. Tekan tombol tombol Yes dan kemudian kemudian akan muncul dialog untuk memilih memilih lokasi lokasi instalasi
4. Lalu Kemudian Kemudian Proses Proses instalasi instalasi akan akan berjalan, berjalan, dan akan muncul muncul konfirmasi konfirmasi seperti berikut :
5. Untuk Melihat apakah apakah Crystal Crystal Report Report Berhasil Berhasil terintegrasi terintegrasi dengan Visual Basic kita bisa melihatnya dengan : a. Buka Buka Visu Visual al Basi Basic c b. Pilih Add-Ins -> Report Designer c. Lalu akan muncul muncul aplika aplikasi si Cryst Crystal al Report Report
B. Penggu Penggunaa naan n Crystal Crystal Report Report 1. Bukalah Aplikasi Crystal Report dengan cara : a. Buka Buka Visu Visual al Basi Basic c b. Pilih Add-Ins -> Report Designer c. Lalu akan muncul muncul aplikasi aplikasi Crystal Crystal Repor Reportt
2. Pili Pilih h Fil File e -> -> New New
Akan muncul tampilan seperti berikut :
3. Pili Pilih h Tom Tombo boll “Standard”, sehingga muncul tampilan berikut :
4. Pili Pilih h Tom Tombo boll “Data File”, lalu Kemudian pilih database file (dalam contoh kali ini digunakan database Access)
5. Lalu Lalu kem kemud udia ian n pili pilih h “ Add”, dan akan muncul tampilan relasi database nya seperti berikut :
6. Kemudian Kemudian pilih pilih field-fiel field-field d yang akan digunaka digunakan n dalam report report
7. Lalu pilih Pengelom Pengelompoka pokan n data (Groupin (Grouping) g)
8. Lalu Lalu pil pilih ih tom tombo boll “ Preview Report”, hasilnya akan ditampilkan sebagai berikut :
9. Setelah muncul tampilan tersebut, selesai sudah pembuatan crystal report, Tahap selanjutnya adalah melakukan pengaturan-pengaturan pengaturan-pengaturan pada Report
C. Beberapa contoh fitur-fitur pada Crystal Report 1. Sekarang Sekarang kita akan akan melakukan melakukan pengatur pengaturan an pada file report report yang telah telah kita buat tadi
Tampilan awal report sebelum dilakukan pengaturan 2. Memberi Memberi Judul Judul pada pada Report, Report, tekan tekan tombol tombol berikut berikut :
3. Letakkan Letakkan penem penempata patan n judul judul pada secti section on “Title” “Title”
4. Lakukan perubahan penamaan pada tiap2 tiap2 field, field, dan lakukan pengaturan penempatan2 sesuai dengan kehendak 5. Pengat Pengatur uran an Form Format at Tangg Tanggal al 1. Klik kanan pada record record bertip bertipe e “date” “date”
2. Lalu akan akan muncul muncul tampi tampilan lan sepert sepertii berikut berikut :
3. Pilih Format Format tanggal tanggal sesua sesuaii yang di di inginkan inginkan 6. Menampilk Menampilkan an dan dan menyem menyembunyi bunyikan kan Sectio Section n Dalam Crystal Report, kita bisa menampilkan dan menyembunyikan Section, sesuai dengan apa yang kita kehendaki. Misalnya kita ingin menampilkan atau menyembunyikan menyembunyikan section “Title”, atau yang lainnya, berikut langkah untuk melakukannya : 1. Klik kanan kanan pada area area sebelah sebelah tulisan tulisan section section (Area (Area abu-abu), abu-abu), akan akan muncul tampilan berikut
2. Dalam contoh contoh diatas diatas kita kita akan menyembu menyembunyika nyikan n section #1 : ID_department 7. Menamb Menambahk ahkan an Field Field pada pada repo report rt 1. Jika kita mengi mengingin nginkan kan tambaha tambahan n field pada pada report, report, kita bisa bisa melakukan penambahan field dengan menekan tombol :
2. Setelah Setelah itu itu akan akan keluar keluar tampil tampilan an berikut berikut
3. Untuk Untuk melakukan melakukan penambah penambahan an field, kita kita cukup menekan menekan tombol tombol Insert atau dengan melakukan drag and drop pada tulisan 8. Untuk Untuk fitur-fitur fitur-fitur lainny lainnya a bisa anda jelajahi jelajahi dengan dengan sesuka sesuka hati :D
D. Pemanggila Pemanggilan n Crystal Report Report melalui melalui Visual Visual Basic Untuk melakukan pemanggilan Report dari Visual Basic, berikut langkahlangkahnya 1. Buat Buat Form Form Baru Baru 2. Lakukan Lakukan pemanggi pemanggilan lan komponen komponen yang yang dibutuhkan dibutuhkan,, antara lain lain :
3. Kemudian Kemudian Buatlah Buatlah tamp tampilan ilan Form Form seperti seperti beriku berikutt ini :
4. Sebelum Sebelum itu kita kita lakukan lakukan setting setting koneksi koneksi pada komponen komponen AdoDC AdoDC 1. Klik kanan kanan pada kompon komponen en AdoDC, AdoDC, akan muncu muncull tampilan tampilan berikut berikut
•
Pilih radio button “Use Connection String”
•
Kemudian Tekan tombol Build
•
Akan muncul tampilan seperti berikut :
•
Pilih Microsoft Jet 4.0 OLE DB Provider
•
Setelah itu akan muncul tampilan seperti berikut
•
Kemudian pilih File database (Database Ms. access)
•
Lalu kemudian lakukan Test Connection, jika berhasil akan muncul tampilan berikut :
•
Setelah itu, pindah pada Tab “Recordsource”
•
Ganti Command Type dengan “Table”
2. Lakukan Lakukan Pengatu Pengaturan ran Proper Properties ties pada pada DataGr DataGrid id •
Pilih DataSource dengan AdoDC1
3. Lakukan Lakukan Penamb Penambahan ahan Scrip Scriptt pada tombol tombol “Cetak” “Cetak” Private Sub Command1_Click() CrystalReport1.ReportFileName = App.Path & "\contoh.rpt" CrystalReport1.PrintReport End Sub
4. Setelah Setelah Itu Itu Jalanka Jalankan n Progra Program m Tersebu Tersebutt :
5. Lalu Tekan Tekan Tombol Tombol Cetak, Cetak, akan keluar keluar Report Report yang telah telah kita buat buat sebelumnya :
Pembuatan Laporan dengan Kriteria berdasarkan tanggal (Transaksi/Rekap) dengan passing parameter
1. Buatlah Report terlebih dahulu dengan table yang ditentukan
2. Lalu Lalu kemudi kemudian an Save Save
3. Tampilan Tampilan awal awal report report akan standard standard seperti seperti beriku berikutt
Untuk membuat laporan berdasarkan criteria, kita dapat melakukan nya dengan mengirimkan parameter formula pada program Visual Basic (VB), berikut ini adalah langkah-langkah pembuatan aplikasi dari VB: 1. Buat Form Form Baru dengan dengan sampai sampai menjadi menjadi tampilan tampilan seperti seperti berikut berikut :
2. Untuk Untuk Koneksi Koneksi adodc dan dan datagrid datagrid lakukan lakukan seperti seperti pada pada contoh contoh sebelumnya, namun kali ini kita menggunakan database database berbeda yaitu transaksi.mdb 3. Cara Melakukan Melakukan Pengiri Pengiriman man parameter parameter pada pada Crystal Report Report (Pemilihan (Pemilihan Berdasarkan Tanggal)
•
Lakukan Double Click pada Button Cetak
•
Kemudian tuliskan script script seperti seperti berikut :
Private Sub cetak_Click() Dim tanggalan As String tanggalan = Format(DTPicker1.Value, Format(DTPicker1.Value, "yyyy,mm,dd") CrystalReport1.SelectionFormula = CrystalReport1.SelectionFormula "{faktur.tanggal}=Date(" "{faktur.tanggal}=Date(" & tanggalan & ")" CrystalReport1.ReportFileName = App.Path & CrystalReport1.ReportFileName "\rekap.rpt" CrystalReport1.PrintReport End Sub
Penjelasan : •
•
•
Untuk Mengirimkan parameter pada crystal report, kita melakukannya dengan melalui fungsi “SelectionFormula” Lakukan Pemilihan table dan Field, pada kali ini kita menggunakan table ‘faktur’ dan field ‘tanggal’ DTPicker1 digunakan untuk penanggalan dan kita lakukan format tanggal sesuai dengan yang diminta oleh Formula pada Crystal Report yaitu “Date(yyyy,mm,dd)” CrystalReport1.SelectionFormula = "{faktur.tanggal}=Date(" CrystalReport1.SelectionFormula "{faktur.tanggal}=Date(" & tanggalan & ")"
4. Cara Melakukan Melakukan Pengiri Pengiriman man parameter parameter pada pada Crystal Report Report (Pemilihan (Pemilihan Berdasarkan nama) •
Lakukan seperti pada nomor 3
•
Ketikkan Script seperti berikut : Private Sub cetak2_Click() CrystalReport1.SelectionFormula CrystalReport1.SelectionFormula = "{faktur.nama}=' "{faktur.nama}='" " & nama.Text & "'" CrystalReport1.ReportFileName CrystalReport1.ReportFileName = App.Path & "\rekap.rpt" CrystalReport1.PrintReport End Sub
Penjelasan: •
•
Lakukan Pemilihan table dan Field, pada kali ini kita menggunakan table ‘faktur’ dan field ‘nama’ Text Field digunakan sebagai parameter yang akan dikirimkan pada crystal report
CrystalReport1.SelectionFormula = "{faktur.nama}=' CrystalReport1.SelectionFormula "{faktur.nama}='" " & nama.Text & "'"
5. Rekapitu Rekapitulasi lasi data berdas berdasarka arkan n tanggal (Range (Range tanggal tanggal)) •
•
Lakukan Double Klik pada button (seperti langkah pada nomor 3 dan 4) Ketikkan Script seperti berikut : Private Sub cetakrekap_Click() cetakrekap_Click() Dim tanggalan1 As String, tanggalan2 As String tanggalan1 = Format(DTPicker2.Value, Format(DTPicker2.Value, "yyyy,mm,dd") tanggalan2 = Format(DTPicker3.Value, Format(DTPicker3.Value, "yyyy,mm,dd") CrystalReport1.SelectionFormula CrystalReport1.SelectionFormula = "{faktur.tanggal}>Date(" "{faktur.tanggal }>Date(" & tanggalan1 & "); {faktur.tanggal}
CrystalReport1.PrintReport End Sub
Penjelasan : •
•
Lakukan Pemilihan table dan Field, pada kali ini kita menggunakan table ‘faktur’ dan field ‘tanggal Prosedur mirip dengan langkah pada nomor 3, namun kali ini kita menggunakan 2 DTPicker untuk range tanggal awal dan tanggal akhir : CrystalReport1.SelectionFormula = "{faktur.tanggal CrystalReport1.SelectionFormula "{faktur.tanggal}>Date(" }>Date(" & tanggalan1 & ");{faktur.tangg ");{faktur.tanggal}
•
Pada formula pertama yaitu tanggal lebih besar (>) dari DTPicker2 (tanggal awal) Pada formula pertama yaitu tanggal lebih kecil (<) dari DTPicker3 (tanggal akhir)
*)Untuk Mencobanya silahkan melihat contoh program pada file contoh.rar