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 :

Klik disini untuk melihat beberapa Tutorial Crystal Report dari kami

Subscribe to receive free email updates:

7 Responses to "Membuat Laporan Bulanan Crystal Report"

  1. Untuk Password mdb Sapoerna-123 ketahuan kwkwwkwk www.java-electronic.blogspot.com

    ReplyDelete
  2. Untuk Password mdb Sapoerna-123 ketahuan kwkwwkwk http://www.java-electronic.blogspot.com

    ReplyDelete
  3. Hi Anonym,
    Terima kasih telah berkunjung :)

    ReplyDelete
  4. Cara buat items di Combobox berubah otomatis sesuai dengan waktu yang ditentukan

    ReplyDelete
  5. kalau untuk mengirimkan file parameter dari vb ke crystal report gimana caranya ya

    irman banjarbaru

    ReplyDelete
  6. kok hasilnya gak keluar ya ?

    ReplyDelete