Membuat Laporan Bulanan Crystal Report

Belajar VB - Kursus VB - Tutorial Visual Basic 6.0 dan Visual Basic .Net - Visual Basic Indonesia

Pada Pembelajaran Crystal Report kali ini adalah Cara Membuat Laporan Bulanan Dengan Crystal Report.

Berikut langkahnya :

1. Membuat sebuah Folder

Buatlah Folder pada Drive D: dengan nama folder "Belajar VB"

2. Buatlah Database dengan MS Office Access

Buatlah Database dengan nama : DBBelajarvb.mdb

Kemudian buatlah Tabel Transaksi dengan Design Tabel sebagai berikut :

Setelah selesai membuat Design Tabel Transaksi diatas, Masukan secara manual isi Tabel Transaksi sebagai sample nya. Sebagai contoh kami masukan data dibawah ini :

Pada isi Tabel diatas terdapat tanggal dengan Bulan yang berbeda-beda.

Setelah selesai mengisi manual, masukan Database DBBelajarvb.mdb tersebut pada Folder "Belajar VB" yang telah kita buat pada langkah 1

3. Membuat Laporan Dengan Crystal report

Buka Aplikasi Crystal Report anda

Jika muncul seperti Gambar diatas anda Klik Cancel saja dulu
Klik File
New

Pilih Standard - Klik OK

Klik Database

Double Klik Find Database File

Kemudian anda cari ke Folder D:\Belajar VB
Klik DBBelajarvb - Kemudian Klik Open

Kemudian Klik Add
Klik close

Klik Next

Klik Add All
Kemudian Klik Finish
Maka akan Muncul seperti gambar dibawah :

Klik File - Save

Simpan pada Folder yang sama yaitu "Belajar VB" dan beri nama Laporan Bulanan

Pembuatan Laporan dengan Crystal Report selesai, sekarang kita lanjut ke Tahap 4

4. Membuat Project VB 6 dan Memanggil Laporan Bulanan
Buka Aplikasi VB 6.0 Anda
Simpan Form1 dan Project1 anda pada Folder "Belajar VB"
Buatlah Form Seperti gambar dibawah ini :

Form diatas hanya ditambahkan Frame1, Combo1,Combo2, Command1,Command2 dan CrystalReport1
Kemudian Masukan Koding dibawah ini :

Private Sub Command1_Click()
If Combo1 = "" Or Combo2 = "" Then
MsgBox "Silahkan Isi Bulan dan tanggal terlebihb dahulu!"
Else
    CrystalReport1.SelectionFormula = "Month({Transaksi.Tanggal})=" & Val(Left(Combo1, 2)) & " and Year({Transaksi.Tanggal})=" & Val(Combo2.Text)
    CrystalReport1.ReportFileName = App.Path & "\Laporan Bulanan.rpt"
    CrystalReport1.WindowState = crptMaximized
    CrystalReport1.RetrieveDataFiles
    CrystalReport1.Action = 1
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.AddItem "5"
Combo1.AddItem "6"
Combo1.AddItem "7"
Combo1.AddItem "8"
Combo1.AddItem "9"
Combo1.AddItem "10"
Combo1.AddItem "11"
Combo1.AddItem "12"

Combo2.Clear
Combo2.AddItem "2013"
Combo2.AddItem "2014"
End Sub

Silahkan jalankan Project VB 6 anda

sebagai contoh kita akan memanggil Laporan Bulanan pada Bulan 1 tahun 2014
Kemudian Klik Cetak
Maka akan Muncul :

Mudah Bukan ???
Untuk hasil latihan diatas anda bisa KLIK LINK INI
Jika anda mengalami kesulitan atau ada yang ingin ditanyakan, anda bisa berkomentar di bawah

Tutorial Crystal report Lainnya :

Membuat Laporan Harian

Membuat Laporan Bulanan

Membuat Laporan Tahunan

Klik disini untuk melihat beberapa Tutorial Crystal Report dari kami