Membuat Program Penjualan Dengan Visual Basic 6.0. (Tutorial–Bagian 8–Pembuatan Laporan Bagian 2)

Setelah pada tutorial sebelumnya kita membuat desain laporan, sekarang waktunya kita membuat form untuk mengatur pencetakan dari desain laporan yang telah kita buat tersebut. Karena laporan tersebut adalah Laporan Penjualan Harian, maka tentu saja tidak semua data penjualan akan kita tampilkan. Kita akan membuat filter, agar data yang tercetak adalah data pada tanggal yang kita inginkan saja. Untuk itu, silahkan kembali pada jendela form designer, dan tambahkan satu form kosong ke dalam Project kita ini. Caranya, sudah tahu kan? Tekan saja Ctrl-D, lalu pilih “Form”, dan klik tombol “Open”. 

Setelah itu, akan muncul sebuah form kosong bernama Form1.

Lakukan perubahan pada beberapa properti form tersebut, pada item-item sebagai berikut:

No.	Nama Item	Nilai Awal	Ubah Menjadi
1.	Name	Form1	frmCetakLaporanHarian
2.	Caption	Form1	Cetak Laporan Harian
3.	StartUpPosition	3 – Windows Default	2 – Center Screen

Tampilan sesudah diubah akan menjadi kira-kira seperti di bawah ini:

Setelah itu, tambahkan kontrol Label, DateTimePicker, juga 3 buah CommandButton, dan atur agar tampilannya kira-kira seperti di bawah ini:

Kemudian, atur properti dari masing-masing kontrol tersebut, menjadi seperti di bawah ini :
Kontrol Label1

No.	Nama Item	Nilai Awal	Ubah Menjadi
1.	Caption	Form1	Cetak Laporan Harian

Kontrol DTPicker1

No.	Nama Item	Nilai Awal	Ubah Menjadi
1.	Name	DTPicker1	dtpTanggal
2.	CustomFormat	(kosong)	dd/MM/yyyy
3.	Format	1 – dtpShortDate	3 – dtpCustom

Kontrol Command1

No.	Nama Item	Nilai Awal	Ubah Menjadi
1.	Name	Command1	cmdPreview
2.	Caption	Command1	Preview

Kontrol Command2

No.	Nama Item	Nilai Awal	Ubah Menjadi
1.	Name	Command2	cmdCetak
2.	Caption	Command2	Cetak

Kontrol Command3

No.	Nama Item	Nilai Awal	Ubah Menjadi
1.	Name	Command3	cmdSelesai
2.	Caption	Command3	Selesai

Kemudian atur juga lebar dan tinggi form-nya, agar terlihat rapi. Kira-kira seperti di bawah ini:

Sekarang, kita tinggal menuliskan kode program untuk form ini. Double-click dulu pada control Command3 yang sekarang telah berubah menjadi cmdSelesai. Ini adalah kontrol yang paling mudah untuk penulisan script-nya.

Terlihat di situ jendela Code sudah terbuka dengan kursor keyboard yang berada di dalam prosedur “Private Sub cmdSelesai_Click()”. Nah, tuliskan kode berikut di situ:

   Unload Me

Tampilan sesudahnya akan menjadi kira-kira seperti di bawah ini :

Tutup jendela Code ini, kemudian double-click pada kontrol Command1 yang sekarang telah berubah menjadi cmdPreview.

Terlihat di situ jendela Code sudah terbuka dengan kursor keyboard yang berada di dalam prosedur “Private Sub cmdPreview_Click()”. Tuliskan kode berikut di dalam situ:

Cek:

    On Error GoTo Buka

    dePenjualan.rscmdHarian_Grouping.Filter = _

        "Tanggal=#" & _

        Format(dtpTanggal.Value, _

        "dd/MM/yyyy") & "#"

    dePenjualan.rscmdHarian_Grouping.Requery -1

    rptHarian.Show vbModal

    Exit

 SubBuka:

    dePenjualan.rscmdHarian_Grouping.Open

    GoTo Cek

Tampilannya pada jendela code editor akan nampak kira-kira seperti di bawah ini:

Tutup jendela Code Editor ini. Sekarang kita akan menuliskan script untuk kontrol Command2 yang sekarang telah berubah menjadi cmdCetak. Jadi, silahkan double-click cmdCetak, untuk membuka jendela code editor, dengan kursor yang berada di dalam prosedur cmdCetak_Click() yang sudah terbentuk.

Script pada prosedur cmdCetak ini mirip dengan script pada cmdPreview, dan hanya berbeda pada satu baris tertentu saja. Jadi kalau mau, Anda bisa meng-copy-nya dari script cmdPreview, untuk kemudian di-paste di dalam prosedur cmdCetak. Setelah itu, carilah baris bertuliskan rptHarian.Show vbModal, dan gantilah dengan rptHarian.PrintReport True. Lengkapnya, adalah seperti di bawah ini:

Cek:

    On Error GoTo Buka

    dePenjualan.rscmdHarian_Grouping.Filter = _

        "Tanggal=#" & _

        Format(dtpTanggal.Value, _

        "dd/MM/yyyy") & "#"

    dePenjualan.rscmdHarian_Grouping.Requery -1

    rptHarian.PrintReport True

    Exit Sub

Buka:

    dePenjualan.rscmdHarian_Grouping.Open

    GoTo Cek

Tampilannya pada jendela code-editor akan menjadi kira-kira seperti di bawah ini:

Selanjutnya, tentu saja adalah menambahkan atau mengubah script yang ada pada form Utama, tepatnya pada prosedur mnuLaporanPenjualanHarian_Click(). Jadi sekarang, silahkan kembali pada form frmUtama, lalu klik pada menu Laporan, dan pilih submenu Laporan Penjualan Harian.

Tak lama kemudian akan muncul jendela Code Editor untuk prosedur mnuLaporanPenjualanHarian_Click().

Terlihat di situ script yang pernah kita tuliskan sebelumnya, saat hendak menguji desain laporan yang sudah kita buat. Script inilah yang akan kita ganti. Jadi, hapus script tersebut, dan gantilah dengan script berikut ini:

   frmCetakLaporanHarian.Show

Tampilannya pada jendela Code Editor akan menjadi kira-kira seperti di bawah ini.

Tutup jendela Code Editor ini. Dan untuk sementara, script pada form CetakLaporanHarian ini sudah selesai. Anda bisa kembali pada jendela form-designer, dan menguji form ini dengan me-running program ini. Silahkan tekan tombol F5 pada keyboard Anda untuk me-running-nya. Jika sudah running, silahkan klik pada menu Laporan, lalu pilih submenu Laporan Penjualan Harian.

Tak lama akan muncul form Cetak Laporan Harian.

Pilih tanggal laporan yang diinginkan, kemudian silahkan klik pada tombol “Preview” untuk melihatnya pada layar monitor Anda (preview).

Anda dapat menutup jendela Preview ini, dan kembali ke form Cetak Laporan Harian, serta memilih tombol Cetak untuk menampilkan kotak dialog Print, untuk kemudian mencetaknya di atas kertas.