Monday, December 10, 2012

Penggunaan Crystal Report dengan Visual Basic 6





  1. Install Crystal Report 4.6
1.       Pilih file “CRYSTL32.EXE”







2.       Lalu kemudian akan muncul dialog seperti berikut ini :




3.       Tekan tombol Yes dan kemudian akan muncul dialog untuk memilih lokasi instalasi






4.       Lalu Kemudian Proses instalasi akan berjalan, dan akan muncul konfirmasi seperti berikut :




5.       Untuk Melihat apakah Crystal Report Berhasil terintegrasi dengan Visual Basic kita bisa melihatnya dengan :
a.       Buka Visual Basic
b.      Pilih Add-Ins -> Report Designer
c.       Lalu akan muncul aplikasi Crystal Report






  1. Penggunaan Crystal Report
1.       Bukalah Aplikasi Crystal Report dengan cara :
a.       Buka Visual Basic
b.      Pilih Add-Ins -> Report Designer
c.       Lalu akan muncul aplikasi Crystal Report
2.       Pilih File -> New




Akan muncul tampilan seperti berikut :

3.       Pilih Tombol “Standard”, sehingga muncul tampilan berikut :
4.       Pilih Tombol “Data File”, lalu Kemudian pilih database file (dalam contoh kali ini digunakan database Access)
5.       Lalu kemudian pilih “Add”, dan akan muncul tampilan relasi database nya seperti berikut :
6.       Kemudian pilih field-field yang akan digunakan dalam report
7.       Lalu pilih Pengelompokan data (Grouping)
8.       Lalu pilih tombol “Preview Report”, hasilnya akan ditampilkan sebagai berikut :
9.       Setelah muncul tampilan tersebut, selesai sudah pembuatan crystal report, Tahap selanjutnya adalah melakukan pengaturan-pengaturan pada Report

  1. Beberapa contoh fitur-fitur pada Crystal Report
1.       Sekarang kita akan melakukan pengaturan pada file report yang telah kita buat tadi






Tampilan awal report sebelum dilakukan pengaturan
2.       Memberi Judul pada Report, tekan tombol berikut :
3.       Letakkan penempatan judul pada section “Title”
4.       Lakukan perubahan penamaan pada tiap2 field, dan lakukan pengaturan penempatan2 sesuai dengan kehendak
5.       Pengaturan Format Tanggal
1.       Klik kanan pada record bertipe “date”
2.       Lalu akan muncul tampilan seperti berikut :
3.       Pilih Format tanggal sesuai yang di inginkan
6.       Menampilkan dan menyembunyikan Section
Dalam Crystal Report, kita bisa menampilkan dan menyembunyikan Section, sesuai dengan apa yang kita kehendaki. Misalnya kita ingin menampilkan atau menyembunyikan section “Title”, atau yang lainnya, berikut langkah untuk melakukannya :
1.       Klik kanan pada area sebelah tulisan section (Area abu-abu), akan muncul  tampilan berikut
 
2.       Dalam contoh diatas kita akan menyembunyikan section #1 : ID_department
7.       Menambahkan Field pada report
1.       Jika kita menginginkan tambahan field pada report, kita bisa melakukan penambahan field dengan menekan tombol :
2.       Setelah itu akan keluar tampilan berikut
3.       Untuk melakukan penambahan field, kita cukup menekan tombol Insert atau dengan melakukan drag and drop pada tulisan
8.       Untuk fitur-fitur lainnya bisa anda jelajahi dengan sesuka hati :D


  1. Pemanggilan Crystal Report melalui Visual Basic
Untuk melakukan pemanggilan Report dari Visual Basic, berikut langkah-langkahnya
1.       Buat  Form Baru
2.       Lakukan pemanggilan komponen yang dibutuhkan, antara lain :
3.       Kemudian Buatlah tampilan Form seperti berikut ini :
4.       Sebelum itu kita lakukan setting koneksi pada komponen AdoDC
1.       Klik kanan pada komponen AdoDC, akan muncul tampilan 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 Pengaturan Properties pada DataGrid
·         Pilih DataSource dengan AdoDC1
3.       Lakukan Penambahan Script pada tombol “Cetak”
Private Sub Command1_Click()
    CrystalReport1.ReportFileName = App.Path & "\contoh.rpt"
    CrystalReport1.PrintReport
End Sub
4.       Setelah Itu Jalankan Program Tersebut :
5.       Lalu Tekan Tombol Cetak, akan keluar Report yang telah kita buat sebelumnya :
Pembuatan Laporan dengan Kriteria berdasarkan tanggal (Transaksi/Rekap) dengan passing parameter

  1. Buatlah Report terlebih dahulu dengan table yang ditentukan



  1. Lalu kemudian Save
  1. Tampilan awal report akan standard seperti berikut


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 Baru dengan sampai menjadi tampilan seperti berikut :
2.       Untuk Koneksi adodc dan datagrid lakukan seperti pada contoh sebelumnya, namun kali ini kita menggunakan database berbeda yaitu transaksi.mdb
3.       Cara Melakukan Pengiriman parameter pada Crystal Report (Pemilihan Berdasarkan Tanggal)

·         Lakukan Double Click pada Button Cetak
·         Kemudian tuliskan script seperti  berikut :




Private Sub cetak_Click()
    Dim tanggalan As String
    tanggalan = Format(DTPicker1.Value, "yyyy,mm,dd")
    CrystalReport1.SelectionFormula = "{faktur.tanggal}=Date(" & tanggalan & ")"
    CrystalReport1.ReportFileName = App.Path & "\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(" & tanggalan & ")"
4.       Cara Melakukan Pengiriman parameter pada Crystal Report (Pemilihan Berdasarkan nama)
·         Lakukan seperti pada nomor 3
·         Ketikkan Script seperti berikut :
Private Sub cetak2_Click()
    CrystalReport1.SelectionFormula = "{faktur.nama}='" & nama.Text & "'"
    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}='" & nama.Text & "'"
5.       Rekapitulasi data berdasarkan tanggal (Range tanggal)
·         Lakukan Double Klik pada button (seperti langkah pada nomor 3 dan 4)
·         Ketikkan Script seperti berikut :
Private Sub cetakrekap_Click()
    Dim tanggalan1 As String, tanggalan2 As String
    tanggalan1 = Format(DTPicker2.Value, "yyyy,mm,dd")
    tanggalan2 = Format(DTPicker3.Value, "yyyy,mm,dd")
    CrystalReport1.SelectionFormula = "{faktur.tanggal}>Date(" & tanggalan1 & ");{faktur.tanggal}<Date(" & tanggalan2 & ");"
    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 ‘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}>Date(" & tanggalan1 & ");{faktur.tanggal}<Date(" & tanggalan2 & ");"
·         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