Cara menciptakan laporan harian kegiatan visual basic 6.0 (VB6/VB) memakai crystal report control dan dengan database Mysql Phpmyadmin. Pentingnya menciptakan sebuah laporan pada sebuah kegiatan khususnya VB6 yaitu hal yang mutlak, jadi jikalau sebuah kegiatan aplikasi tidak mempunyai laporan maka dapat dikatakan Bukanlah sebuah program. Oleh alasannya yaitu itu aku akan menjelaskan bagaimana caranya Membuat Laporan Harian Visual Basic 6.0 Menggunakan Crystal Report.
Hal pertama yang harus disiapkan yaitu kegiatan VB6 yang sudah siap untuk dijalankan, contohnya dibawah ini sebuah Laporan pada kegiatan 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 ibarat dibawah ini;
11. Pilih Insert Fields > Formula Fieldss > New
12. Buat namanya, contohnya 'tgl' untuk tanggal
13. Pada kolom samping kiri pilih tpendaftaran.tgl_daftar sampai muncul dibwah {tpendaftaran.tgl_daftar} lalu klik Save and Close
Catatan : tpendaftaran adalah tabel registrasi 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 ;
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
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
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 ibarat berikut ;
Sumber http://www.hendrisetiawan.com