Dengan adanya laporan kita dapat mengetahui seluruh data apa saja yang masuk ke dalam database program penjualan ini. Ada banyak cara untuk membuat sebuah laporan. Dan cara yang saya pakai saat ini adalah dengan menggunakan software tambahan yang bernama Crystal Report. Bagi anda yang tidak punya Crystal Report, anda dapat membaca tutorial yang lain yang judulnya Membuat Laporan Dengan Data Report. Dan bagi anda yang punya Crystal Report, anda dapat melihat cara membuat laporannya pada Tutorial Membuat Laporan Dengan Crystal Report. Pada Tutorial yang ini saya hanya membahas pembuatan form laporan beserta listing programnya saja.
8. Membuat FORM LAPORAN
- Buat form baru lagi lalu isikan dengan isi dan properties dibawah ini:
|
NAME |
CAPTION/TEXT |
KETERANGAN |
|
Flaporan |
Laporan |
Form |
|
Label1 |
Tanggal |
Label |
|
Label2 |
Tanggal Awal |
Label |
|
Label3 |
Tanggal Akhir |
Label |
|
Label4 |
Bulan |
Label |
|
Label5 |
Tahun |
Label |
|
Label7 |
Tahun |
Label |
|
Label8 |
Tekan Preview |
Label |
|
Cmdexit |
&exit |
Command Button |
|
Cmdpreview |
&preview |
Command Button |
|
Frame1 |
Harian |
Frame |
|
Frame2 |
Mingguan |
Frame |
|
Frame3 |
Bulanan |
Frame |
|
Frame4 |
Tahunan |
Frame |
|
Data1 |
-
|
Data |
|
CR |
-
|
Crystal Report |
|
Combo1 |
-
|
Combo |
|
Combo2 |
-
|
Combo |
|
Combo3 |
-
|
Combo |
|
Combo4 |
-
|
Combo |
|
Combo5 |
-
|
Combo |
|
Combo6 |
Keseluruhan |
Combo |
|
Combo7 |
-
|
Combo |
Adapun Listing Program dari Form Login ini adalah:
Private Sub CMDEXIT_Click()
Unload Me
End Sub
Private Sub Combo6_Click()
If Combo6.Text = "HARIAN" Then
Frame1.Visible = True
Frame2.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Label8.Visible = False
Combo1.Text = ""
Else
If Combo6.Text = "MINGGUAN" Then
Frame2.Visible = True
Frame1.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Label8.Visible = False
Combo2.Text = ""
Else
If Combo6.Text = "BULANAN" Then
Frame3.Visible = True
Frame2.Visible = False
Frame1.Visible = False
Frame4.Visible = False
Label8.Visible = False
Combo3.Text = ""
Else
If Combo6.Text = "TAHUNAN" Then
Frame4.Visible = True
Frame2.Visible = False
Frame1.Visible = False
Frame3.Visible = False
Label8.Visible = False
Combo7.Text = ""
Else
If Combo6.Text = "KESELURUHAN" Then
Label8.Visible = True
Frame4.Visible = False
Frame2.Visible = False
Frame1.Visible = False
Frame3.Visible = False
End If
End If
End If
End If
End If
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "/buku.mdb"
Data1.RecordSource = "select * from Table_transaksi"
Data1.RecordSource = "Select Distinct Tgl_faktur From table_transaksi order By 1"
Data1.Refresh
Do Until Data1.Recordset.EOF
Combo1.AddItem Data1.Recordset!Tgl_faktur
Combo2.AddItem Format(Data1.Recordset!Tgl_faktur, "YYYY ,MM, DD")
Combo3.AddItem Format(Data1.Recordset!Tgl_faktur, "YYYY ,MM, DD")
Data1.Recordset.MoveNext
Loop
For i = 1 To 12
Combo4.AddItem i
Next i
For i = 1 To 20
Combo5.AddItem 2000 + i
Next i
For i = 1 To 20
Combo7.AddItem 2000 + i
Next i
End Sub
KETERANGAN 1:
-Combo1 diisi dengan semua field Tanggal faktur yang ada di database.
-Combo2 juga diisi dengan semua field Tanggal faktur yang ada di database tapi dengan memakai format Tahun, Bulan, Hari contoh: 2009/03/20
-Combo3 juga diisi dengan semua field Tanggal faktur yang ada di database dan dengan memakai format seperti pada combo2.
-Combo4 diisi dengan angka dari 1 sampai 12
-Combo5 diisi dengan angka 2001 sampai 2020
-Combo7 diisi dengan angka 2001 sampai 2020
Private Sub CMDPREVIEW_Click()
On Error Resume Next
If Frame1.Visible = True Then
cr.SelectionFormula = "Totext({table_transaksi.Tgl_faktur})=’" & Combo1 & "’"
cr.ReportFileName = App.Path & "\Transaksi.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
Else
If Frame2.Visible = True Then
cr.SelectionFormula = "{table_transaksi.Tgl_faktur} in date (" & Combo2.Text & ") to date (" & Combo3.Text & ")"
cr.ReportFileName = App.Path & "\Transaksi.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
Else
If Frame3.Visible = True Then
Data1.RecordSource = "select * from table_transaksi where month(Tgl_faktur)=’" & Val(Combo4) & "’ and year(Tgl_faktur)=’" & (Combo5) & "’"
cr.SelectionFormula = "Month({table_transaksi.Tgl_faktur})=" & Val(Combo4.Text) & " and Year({table_transaksi.Tgl_faktur})=" & Val(Combo5.Text)
cr.ReportFileName = App.Path & "\Transaksi.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
Else
If Frame4.Visible = True Then
Data1.RecordSource = "select * from table_transaksi where year(Tgl_faktur)=’" & (Combo7) & "’"
cr.SelectionFormula = "Year({table_transaksi.Tgl_faktur})=" & Val(Combo7.Text)
cr.ReportFileName = App.Path & "\Transaksi.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
Else
cr.ReportFileName = App.Path & "\Transaksi.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
End If
End If
End If
End If
End Sub
KETERANGAN 2 :
-Selection Formula disini berfungsi untuk menyeleksi suatu data tertentu saja.
-Report File Name adalah nama dari Report/laporan yang kita buat dengan Crystal Report.
-Window State berguna untuk pengaturan besarnya layar laporan. Jika Crpt maximezed berarti layar laporan diperbesar sampai maximal.
-Retrieve Data Files dipakai agar apabila data yang ada di program penjualan berubah, maka data yang ada di laporan juga ikut berubah.
-Action disini adalah perintahnya.
KETERANGAN 3 :
-Frame1 mengambil data dari Table Transaksi yang Tanggal Faktur nya sama dengan yang dipilih di Combo1. Tapi sebelumnya Type data Tanggal Faktur dirubah menjadi Text (aslinya adalah Date/Time).
-Frame2 mengambil data dari Table Transaksi yang Tanggal Faktur nya adalah antara Tanggal yang dipilih di Combo2 dan Combo3.
– Frame3 mengambil data dari Table Transaksi yang Bulan faktur nya sama dengan yang dipilih di Combo4 dan Tahun faktur nya sama dengan yang dipilih di Combo5.
-Frame4 mengambil data dari Table Transaksi yang Tahun Faktur nya sama dengan yang dipilih di Combo7.
-Jika Tidak ada frame yang muncul berarti tidak memakai rumus Selection Formula, sehingga data akan ditampilkan semuanya dari awal hingga akhir.
- Jangan lupa untuk mengganti Name dari form ini di properties menjadi ”Flaporan” dan menyimpannya dengan nama ”Laporan.frm”.
- Sekali lagi saya ingatkan agar anda membaca juga cara Membuat Laporan Dengan Data Report dan cara Membuat Laporan Dengan Crystal Report.
Akhirnya selesai sudahlah semua tutorial belajar membuat program penjualan buku dengan menggunakan microsoft visual basic ini. Mudah mudahan bisa menjadi ilmu yang bermanfaat di dunia dan akhirat. Mohon maaf kalau seandainya pengetahuan yang saya berikan hanya sedikit karena saya juga masih belajar. Hanya Allah lah yang maha luas ilmunya. Dan saya mengharapkan komentar anda semua untuk membuat saya dan blog ini menjadi semakin maju. Atas perhatiannya saya ucapkan banyak terima kasih.
Wassalamualaikum !!!
By: OPIX HOLMES
opix.holmes@yahoo.com
http://www.islamicunderground.com
Tidak ada komentar:
Posting Komentar