Membuat Laporan Harian Dengan Crystal Report

MEMBUAT LAPORAN HARIAN DENGAN CRYSTAL REPORT

Pada kesempatan ini kita akan membuat laporan harian berdasar pemilihan tanggal dari Visual Basic. Diumpamakan kita mempunyai dua tabel yang berelasi seperti terlihat pada gambar

Berikut ini design dari masing-masing tabel

Yang kita jadikan sebagai seleksi data pada laporan harian adalah field "tgl_trans" yang terdapat pada tabel transaksi. Sebelumnya entrykan data terlebih dahulu di tabel barang dan tabel transaksi. Pastikan kode_brg di tabel barang dan di tabel transaksi sama agar report yang nantinya ditampilkan akurat dengan link kode_brg dan jangan lupa entrykan di tabel transaksi beberapa record dengan data tanggal yang berbeda.

Setelah itu berdasarkan kedua tabel di atas, kita buat design di Crystal Report seperti pada gambar

Setelah itu klik kanan field "tgl_trans" yang berada di design, kemudian pilih Format Field

Pilih Style : 01-March-1999 kemudian OK

Simpan design dengan nama harian.rpt dan letakkan di folder yang sama dengan databasenya.

Sekarang kita fokus ke Visual Basic. Buka sebuah project dan buat design form dengan 1 DTPicker, 1 Crystal Report Control dan 1 Command button. Jika pada toolbox belum tersedia DTPicker dan Crystal Report Control, maka tekan Ctrl + T, pilih dan checklist

• Crystal Report Control
• Microsoft Window Common Control 2-6

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

Jika semua sudah dilakukan, masukkan kodingnya dengan cara double klik Command button tepat di antara 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 dan letakkan dalam satu folder dengan database dan design report tadi. Coba jalankan programnya dan pilih tanggal sesuai dengan "tgl_trans" yang sudah dientrikan dalam tabel transaksi sebelumnya.

SELAMAT MENCOBA !