Laporan Perbulan VB 6.0 dengan Crystal Reports

Sekedar ingin berbagi kepada teman-teman yang lagi bikin TA 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 y.. Sekarang saya anggap kamu sudah punya data yang sudah tersedia di database kamu. Kita sama-sama coba ikutin langkah-langkahnya y :
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

Note : Sesuikan nama pada coding dengan name pada form kamu. Ok...
5. Kurang lebih tampilannya seperti ini :



6. Nah, untuk lebih detailnya kamu pelajari y...