Tutorial cara Membuat Laporan Perbulan VB 6.0 dengan Crystal Reports

Sekedar ingin berbagi kepada teman-teman yang lagi bikin Menyusun Skripsi atau yang ingin belajar. Disini saya akan menjelaskan bagaiman cara membuat laporan perbulan dengan menggunakan Crystal Reports. Kalau dijelasin secara detail mungkin akan sangat panjang. Jadi saya kasih intinya aja ya, Sekarang saya anggap kamu sudah punya data yang sudah tersedia di database kamu. Kita sama-sama coba ikutin langkah-langkahnya ya :
1. Sekarang kamu siapkan 1 Form Baru,
2 ComboBox dan 1 Crystal Reports (Note : Untuk Crystal Reports kamu bisa tambahin melalui components jika belum tampil toolbox). 2. Kemudian Kamu design serapi mungkin tampilannya. Contoh seperti tampilan jelek dari saya :

3. Kamu ganti textbox namenya sesuai dengan yang kamu mau
4. Kamu copas aja coding ini :

Private Sub CMBBULAN_Change()
If KeyAscii = 27 Then Unload Me
End Sub
Private Sub CMDTAMPIL_Click()
If Me.CMBBULAN = "" Or Me.CMBTAHUN = "" Then
MsgBox "BULAN DAN TAHUN HARUS DIISI!"Exit Sub
End If
C1.SelectionFormula = "Month({table_transaksi.tanggal})=" & Val(CMBBULAN.Text) & " and Year({table_transaksi.tanggal})=" & Val(Me.CMBTAHUN.Text)
C1.ReportFileName = App.Path & "\Lappenjualan.rpt"
C1.WindowState = crptMaximized C1.WindowShowRefreshBtn = True
C1.RetrieveDataFiles
C1.Action = 1
End Sub

Private Sub Form_Load()CMBBULAN.AddItem "1"
CMBBULAN.AddItem "2"
CMBBULAN.AddItem "3"
CMBBULAN.AddItem "4"
CMBBULAN.AddItem "5"
CMBBULAN.AddItem "6"
CMBBULAN.AddItem "7"
CMBBULAN.AddItem "8"
CMBBULAN.AddItem "9"CMBBULAN.AddItem "10"
CMBBULAN.AddItem "11"
CMBBULAN.AddItem "12"
CMBTAHUN.AddItem "2010"
CMBTAHUN.AddItem "2011"
CMBTAHUN.AddItem "2012"
CMBTAHUN.AddItem "2013"
With C1
.ReportFileName = App.Path & "\Lappenjualan.rpt"
End With
End Sub

Hasilnya atau Tampilannya Seperti Dibawah ini :

Tag : Visual Basic 6.0, Crystal Report 8.5