Membuat Laporan Bulanan Crystal Report Pada Vb .Net 2010
Kembali Lagi di Tutorial Crystal Report bersama JavaNetMedia.com, kali ini kita akan melanjutkan tutorial perihal Crystal report, kalau sebelumnya kita telah membahas Cara Membuat Laporan Harian, sekarang saatnya kita menciptakan Laporan Bulanan Crystal Report pada VB .Net 2010.
Berikut langkahnya :
Jika anda sudah melaksanakan langkah diatas, namun data tidak muncul, anda dapat lihat tutorial yang sudah aku buat dengan KLIK DISINI
Berikut langkahnya :
LANGKAH #1
Buatlah Sebuah Project dengan VB .Net 2010
Saya menciptakan Project dengana Nama : AppProject dan aku menyimpan di Drive D:\Laporan\Bulanan
Klik OK
Pada Form1, aku tambahkan Label1, Label2, ComboBox1, ComboBox2 dan Button1
LANGKAH #2
Buatlah Database dengan nama : DBJNM.mdb
Buatlah Tabel Dengan nama : Penjualan
Berikut design tabel Penjualan beserta isisnya (kami memakai database access .mdb)
Simpan database Pada Folder Bin/Debug pada Project VB .Net 2010 yang telah anda buat pada langkah1
LANGKAH #3
Jika sudah menciptakan database saatnya kita buat laporan dengan crystal report.
Buka Crystal Report Pada komputer anda
Klik File - New :
Klik Standard - OK
Klik Database - Database Files - Find Database File - Pilih Database DBJNM.mdb yang telah anda buat
Klik Penjualan - Add - lalu klik Close
Klik Next - Add All - Finish
Maka akan muncul gambar dibawah ini :
Silahkan anda Save dengan nama : LaporanBulanan.rpt
Jika sudah sukses menciptakan menyerupai gambar diatas, kita langjutkan pada Form1 di langkah 1
Pada Form1 tambahkan Crystal Report Control
Kemudian Masukan Koding dibawah ini :
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ComboBox1.Items.Add("1") ComboBox1.Items.Add("2") ComboBox1.Items.Add("3") ComboBox1.Items.Add("4") ComboBox1.Items.Add("5") ComboBox1.Items.Add("6") ComboBox1.Items.Add("7") ComboBox1.Items.Add("8") ComboBox1.Items.Add("9") ComboBox1.Items.Add("10") ComboBox1.Items.Add("11") ComboBox1.Items.Add("12") ComboBox2.Items.Add("2015") ComboBox2.Items.Add("2016") ComboBox2.Items.Add("2017") End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click AxCrystalReport1.SelectionFormula = "Month({Penjualan.Tanggal})=" & Val(ComboBox1.Text) & " and Year({Penjualan.Tanggal})=" & Val(ComboBox2.Text) AxCrystalReport1.ReportFileName = "LaporanBulanan.rpt" AxCrystalReport1.WindowState = Crystal.WindowStateConstants.crptMaximized AxCrystalReport1.RetrieveDataFiles() AxCrystalReport1.Action = 1 End Sub End Class 
Jika sudah silahkan pilih Bulan dan Tahun Pada ComboBox
Kemudian Klik Button Cetak Laporan
Harusnya Muncul data sesuai dengan yang ada didatabase
Jika anda sudah melaksanakan langkah diatas, namun data tidak muncul, anda dapat lihat tutorial yang sudah aku buat dengan KLIK DISINI
Semoga Bermanfaat untuk anda