Membuat Laporan Bulanan Crystal Report Pada VB .Net 2010

Jangan lupa membaca artikel sebelumnya, terkait: > Panduan Pemrograman PHP.

Kembali Lagi di Tutorial Crystal Report bersama JavaNetMedia.com, kali ini kita akan melanjutkan tutorial tentang Crystal report, jika sebelumnya kita telah membahas Cara Membuat Laporan Harian, kini saatnya kita membuat Laporan Bulanan Crystal Report pada VB .Net 2010.

Berikut langkahnya :

LANGKAH #1

Buatlah Sebuah Project dengan VB .Net 2010

Saya membuat Project dengana Nama : AppProject dan saya menyimpan di Drive D:\Laporan\Bulanan

Klik OK

Pada Form1, saya 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 menggunakan database access .mdb)

Simpan database Pada Folder Bin/Debug pada Project VB .Net 2010 yang telah anda buat pada langkah1

LANGKAH #3

Jika sudah membuat 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 - kemudian klik Close

Klik Next - Add All - Finish

Maka akan muncul gambar dibawah ini :

Cara Membuat Laporan Harian Crystal Report Pada VB .Net 2010

Silahkan anda Save dengan nama : LaporanBulanan.rpt

Jika sudah sukses membuat seperti 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