Membuat Laporan Harian Visual Basic 6.0 Menggunakan Crystal Report

Cara membuat laporan harian program visual basic 6.0 (VB6/VB) menggunakan crystal report control dan dengan database Mysql Phpmyadmin. Pentingnya membuat sebuah laporan pada sebuah program khususnya VB6 adalah hal yang mutlak, jadi jika sebuah program aplikasi tidak memiliki laporan maka bisa dikatakan Bukanlah sebuah program. Oleh karena itu saya akan menjelaskan bagaimana caranya Membuat Laporan Harian Visual Basic 6.0 Menggunakan Crystal Report.

Hal pertama yang harus disiapkan adalah program VB6 yang sudah siap untuk dijalankan, misalnya dibawah ini sebuah Laporan pada program Penerimaan Siswa Baru Sekolah mengemudi ;

1. Buka Crystal Report
2. Pilih As a Blank Report dan klik OK





3. Pilih ODBC


4. Pilih Databasenya (Gambar hanya contoh)


5. Centang tabel yang sekiranya berhubungan, disarankan mencentang semua tabel (gambar hanya contoh). dan Klik Close





6. Buatlah Format laporannya, contohnya dibawah ini ;

7. Pilih Design

8. Pilih Insert Fields > Database Fields; (Klik simbol disamping simbol 'ab' )

9. Silahkan Drag/seret fields sesuai namanya ke dalam kolom Detail hingga terisi semua

10. Hingga seperti dibawah ini;

11. Pilih Insert Fields > Formula Fieldss > New




12. Buat namanya, misalnya 'tgl' untuk tanggal

13. Pada kolom samping kiri pilih tpendaftaran.tgl_daftar hingga muncul dibwah {tpendaftaran.tgl_daftar} kemudian klik Save and Close

Catatan : tpendaftaran adalah tabel pendaftaran dan tgl_daftar adalah field tanggal transaksinya

14. Pilih Insert Fileds > Formula Fields > tgl dan drag/seret ke dalam kolom detail (sesuaikan)

15. Untuk menjumlahkan Total bayar pilih Insert Summary > pilih tpendaftaran.totbay_daftar dan klik OK
catatan : tpendaftaran adalah nama tabel, dan Totbay_daftar adalah total bayar biaya pendaftaran

16. Saya jalankan programnya di VB6, tapi sebelum menjalankannya silahkan isi Kode listing (source code) dibwah ini ;

A. Pada DTpicker (lihat nomor 3) silahkan isi koding berikut ;
Private Sub charian_Change()
If pilihtrans.Text = "Pendaftaran" Then
Call koneksi
rspendaftaran.Open "select*from tpendaftaran where tgl_daftar='" & charian.Value & "'", KON

If rspendaftaran.EOF Then
MsgBox "Data Tidak Ditemukan"
charian.SetFocus
cetak.Enabled = False
Else
cetak.Enabled = True
End If
End If
End Sub

B. Pada commandbutton Cetak (nomor 4) silahkan isi koding berikut ;
If charian.Enabled = True Then

cr.SelectionFormula = "Totext({tpendaftaran.tgl_daftar})= '" & (Format(charian.Value, "yyyy-mm-dd")) & "'"

cr.ReportFileName = "D:\Perkuliahan\Tugas Akhir\Tugas Akhir\program\Laporan\TransaksiPendaftaranharian.rpt"

cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1

17. Ketika di cetak maka akan keluar seperti berikut ;
Catatan : Laporan akan menampilkan laporan harian pada tanggal 2017-7-18 saja


0 Komentar untuk "Membuat Laporan Harian Visual Basic 6.0 Menggunakan Crystal Report"

Silahkan Komentar sobat !
Berkomentarlah dengan sopan dan tidak menaruh link aktif!
Baca Aturan Berkomentar

Back To Top