Cara Membuat Laporan Harian Menggunakan Crystal Report 8.5 Dan Visual Basic 6.0

Cara Membuat Laporan Harian Menggunakan Crystal Report 8.5 Dan Visual Basic 6.0 | Visual Basic Magazine - Posting kali ini masih membahas disain laporan dengan Crystal Report 8.5. Kita akan membuat laporan harian berdasarkan pemilihan tanggal dari Visual Basic 6.0.

Disini saya tidak lagi menjelaskan langkah-langkah cara membuat disain report sedari awal, kita akan langsung masuk ke pembhasan utama saja. Jika sobat belum tahu cara mendisain report pertama kali, silakan sobat pelajari posting saya sebelumnya yang berjudul Cara Membuat Program Laporan Dengan Crystal Report 8.5 Dan Visual Basic 6.0.

Sekarang kita masuk ke pembahasan, 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 harian 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 transaksi yang berbeda.

Sekarang, berdasarka 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 disain, kemudian pilih Format Field :

Pilih Style : 01-March-1999 kemudian klik OK.

Terakhir, simpan disain laporan ini dengan nama "harian.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 : dd-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 :

On Error GoTo pesan: tgl = DTPicker1.Value CrystalReport1.ReportFileName = App.Path & "\harian.rpt" CrystalReport1.RetrieveDataFiles CrystalReport1.SelectionFormula = _ " YEAR({transaksi.tgl_trans})= " & Year(tgl) & _ " and month({transaksi.tgl_trans})= " & Month(tgl) & _ " and day({transaksi.tgl_trans})= " & Day(tgl) & "" 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 tanggal sesuai dengan "tgl_trans" yang sudah dientrikan ke tabel transaksi sebelumnya.

Bagaimana...?, kalau masih bingung sobat bisa download contoh projectnya melalui link berikut ini :

Sekian dulu posting saya yang berjudul Cara Membuat Laporan Harian Menggunakan Crystal Report 8.5 Dan Visual Basic 6.0. Posting berikutnya kita akan membahas cara membuat laporan bulanannya. Selamat mencoba dan semoga bermanfaat.