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, jikalau sebelumnya kita telah membahas Cara Membuat Laporan Harian, sekarang saatnya kita menciptakan Laporan Bulanan Crystal Report pada VB .Net 2010.

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 

End Class Berikut Hasilnya :

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