Cara Membuat Laporan Bulanan Dengan Crystal Report 8.5 Dan Visual Basic 6.0

Cara Membuat Laporan Bulanan Dengan Crystal Report 8.5 Dan Visual Basic 6.0 | Kali ini kita bahas lagi tentang cara membuat laporan bulanannya.

Disini saya memliki dua buah tabel yang terelasi seperti gambar berikut ini :

Berikut ini disain dari masing-masing tabel diatas :

Yang akan kita jadikan patokan sebagai seleksi data pada laporan bulanan adalah field "tgl_trans" yang terdapat pada tabel "transakasi".

Sebelumnya, entrikan dulu beberapa buah data baik di tabel barang maupun di tabel transaksi dan pastikan kode barang yang dientrikan ke tabel transaksi sama dengan kode barang yang ada di tabel barang agar data yang muncul di report nantinya lebih akurat. Pastikan sobat mengentrikan beberapa record dengan tanggal maupun bulan transaksi yang berbeda.

Sekarang, berdasarkan kedua tabel diatas silakan sobat buat disain di Crystal Report, sehingga hasilnya seperti berikut ini :

Setelah itu klik kanan field "tgl_trans" yang berada di bagian header, lalu pilih Format Field :

Pilih Style : March 1999, kemudian klik OK.

Jika sudah, klik kanan pada field "tgl_trans" yang berada pada kolom detail design crystal report dan pilih Format Field :

Pilih Style : 03/01/1999 (MM/DD/YYYY), kemudian klik OK.

Terakhir, simpan disain laporan ini dengan nama "bulanan.rpt" dan letakkan dalam folder yang sama dengan database nya.

Sekarang kita beralih ke Visual Basic 6.0. Bukalah sebuah project dan buat disain form dengan 1 buah DTPicker, 1 buah Crystal Report Control dan 1 buah Command Button.

Jika pada toolsbox belum tersedia DTPicker dan Crystal Report Control, tekan tombol CTRL + T pada keyboard kemudian pilih dan checklist :

• Crystal Report Control
• Microsoft Windows Common Controls 2 6.0

Setelah semua component diletakkan di form, atur properties DTPicker nya seperti gambar berikut ini :

• Format : 3 - dtpCostum
• Costum Format : MMMM-yyyy 

Jika semua sudah dilakukan, sekarang kita msukkan codingnya, double klik pada Command Button dan masikkan coding berikut tepat diantara Private Sub Command1_Click() dengan End Sub :

Dim bln As Date On Error GoTo pesan: bln = DTPicker1.Value CrystalReport1.ReportFileName = App.Path & "\bulanan.rpt" CrystalReport1.RetrieveDataFiles CrystalReport1.SelectionFormula = _ " YEAR({transaksi.tgl_trans})= " & Year(bln) & _ " and month({transaksi.tgl_trans})= " & Month(bln) & "" CrystalReport1.WindowState = crptMaximized CrystalReport1.Action = 0 pesan: If (Err.Number = 20533) Then MsgBox "Report Gak Connect Ke Database...!", vbCritical, App.Title Exit Sub End If

Simpan project ini dan diletakkan dalam satu folder dengan database dan disain report tadi. Sekarang coba jalankan programmnya pilih bulan-tahun sesuai dengan "tgl_trans" yang sudah dientrikan ke tabel transaksi sebelumnya.