Setelah kita melihat contoh aplikasi program penerimaan siswa baru sekolah mengemudi menggunakan visual basic 6.0, selanjutnya kita akan membuat form laporan.
Pertama-tama buat terlebih dahulu formnya seperti dibawah ini, juga beri name masing-masing :



Catatan :
A. Tambahkan crystalreport beri name "cr"
B. tambahkan tabel grid, beri name "grid"
C. Tambahkan timer


1. Buatlah Sub baru dengan nama Sub aktifuser() dan pastekan kode berikut :
fmenu.mlog.Enabled = True
fmenu.mganti.Enabled = True
    fmenu.mdata.Enabled = True
    fmenu.mdatabiaya.Enabled = False
    fmenu.mdatauser.Enabled = False
    fmenu.mdatasiswa.Enabled = True
    fmenu.mjadwal.Enabled = True
    fmenu.mtransaksi.Enabled = True
    fmenu.mlaporan.Enabled = True
    fmenu.mlogout.Enabled = True
    fmenu.mloguser.Enabled = False
    fmenu.mmobil.Enabled = False
    fmenu.mjam.Enabled = False

2. Buatlah form_load() dan pastekan kode berikut :
Me.Left = 100
Me.Top = 0
oharian.Enabled = False
omingguan.Enabled = False
obulanan.Enabled = False
osemua.Enabled = False
charian.Enabled = False
cmingguawal.Enabled = False
cmingguakhir.Enabled = False
cbulan.Enabled = False
ctahun.Enabled = False
cetak.Enabled = False
cbulan.Clear
ctahun.Clear
For a = 1 To 12
cbulan.AddItem a
Next a
For i = 1 To 30
ctahun.AddItem 2014 + i
Next i
Me.Width = 11580
Me.Height = 8115

3. Klik pada cbersih dan pastekan kode berikut (deklarasi=click):
oharian.Value = False
omingguan.Value = False
obulanan.Value = False
osemua.Value = False

 Call Form_Load

4. Klik pada cetak dan pastekan kode berikut (deklarasi=click):
If charian.Enabled = True And pilihtrans.Text = "Pendaftaran" 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

 ElseIf cmingguakhir.Enabled = True And pilihtrans.Text = "Pendaftaran" Then
cr.SelectionFormula = "{tpendaftaran.tgl_daftar} in date ('" & (Format(cmingguawal.Value, "yyyy-mm-dd")) & "') to date ('" & (Format(cmingguakhir.Value, "yyyy-mm-dd")) & "')"
cr.ReportFileName = "D:\Perkuliahan\Tugas Akhir\Tugas Akhir\program\Laporan\TransaksiPendaftaranmingguan.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
ElseIf osemua.Value = 1 Then
End If
'batas
If charian.Enabled = True And pilihtrans.Text = "Pembuatan SIM" Then

 cr.SelectionFormula = "Totext({tpembuatansima.tgl_sim})= '" & (Format(charian.Value, "yyyy-mm-dd")) & "'"
cr.ReportFileName = "D:\Perkuliahan\Tugas Akhir\Tugas Akhir\program\Laporan\TransaksiPembuatansimharian.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
ElseIf cmingguakhir.Enabled = True And pilihtrans.Text = "Pembuatan SIM" Then
cr.SelectionFormula = "{tpembuatansima.tgl_sim} in date ('" & (Format(cmingguawal.Value, "yyyy-mm-dd")) & "') to date ('" & (Format(cmingguakhir.Value, "yyyy-mm-dd")) & "')"
cr.ReportFileName = "D:\Perkuliahan\Tugas Akhir\Tugas Akhir\program\Laporan\TransaksiPembuatansimmingguan.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
ElseIf osemua.Value = 1 Then
End If


5. Klik pada charian dan pastekan kode berikut (deklarasi=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
'==============================================
If pilihtrans.Text = "Pembuatan SIM" Then
Call koneksi
rspembuatansima.Open "select*from tpembuatansima where tgl_sim='" & charian.Value & "'", KON
If rspembuatansima.EOF Then
MsgBox "Data Tidak Ditemukan"
charian.SetFocus
cetak.Enabled = False
Else
cetak.Enabled = True
End If
End If


6. Klik pada cmingguakhir dan pastekan kode berikut (deklarasi=change):
If cmingguakhir.Value < cmingguawal.Value Then
MsgBox "Tanggal Akhir tidak boleh kurang dari tanggal awal", vbCritical
cmingguakhir.SetFocus
cetak.Enabled = False
Else
cetak.Enabled = True
End If

7. Klik pada cmingguawal dan pastekan kode berikut (deklarasi=click):
If cmingguawal.Value > cmingguakhir.Value Then
MsgBox "Tanggal Awal tidak boleh Lebih dari tanggal akhir", vbCritical
cmingguawal.SetFocus
cetak.Enabled = False
Else
cmingguakhir.Enabled = True
End If

8. Klik pada ctahun dan pastekan kode berikut (deklarasi=click):
If pilihtrans.Text = "Pendaftaran" Then
Call koneksi
rspendaftaran.Open "select*from tpendaftaran where month(tgl_daftar)='" & Val(cbulan) & "' and year(tgl_daftar)='" & Val(ctahun) & "'", KON
If rspendaftaran.EOF Then
MsgBox "Data Tidak Ditemukan"

 cbulan.SetFocus
Else
cr.SelectionFormula = "Month({tpendaftaran.tgl_daftar}) = " & Val(cbulan) & " And Year({tpendaftaran.tgl_daftar}) = " & Val(ctahun) & ""
cr.ReportFileName = "D:\Perkuliahan\Tugas Akhir\Tugas Akhir\program\Laporan\TransaksiPendaftaranbulanan.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
End If
End If
If pilihtrans.Text = "Pembuatan SIM" Then
Call koneksi
rspembuatansima.Open "select*from tpembuatansima where month(tgl_sim)='" & Val(cbulan) & "' and year(tgl_sim)='" & Val(ctahun) & "'", KON
If rspembuatansima.EOF Then
MsgBox "Data Tidak Ditemukan"

 cbulan.SetFocus
Else
cr.SelectionFormula = "Month({tpembuatansima.tgl_sim}) = " & Val(cbulan) & " And Year({tpembuatansima.tgl_sim}) = " & Val(ctahun) & ""
cr.ReportFileName = "D:\Perkuliahan\Tugas Akhir\Tugas Akhir\program\Laporan\TransaksiPembuatansimbulanan.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
End If
End If


9. Klik pada bmenu dan pastekan kode berikut (deklarasi=click):
a = MsgBox("Yakin Untuk Menutup Form Ini Dan kembali ke Menu Utama ?", vbCritical + vbYesNo, "INFO")
If a = vbYes Then
flaporan.Hide
Call aktifuser
End If

10. Klik pada cmingguawal dan pastekan kode berikut (deklarasi=click):
cmingguakhir.Enabled = True

11. Klik pada obulanan dan pastekan kode berikut (deklarasi=click):
cbulan.Enabled = True
charian.Enabled = False
cmingguawal.Enabled = False
cmingguakhir.Enabled = False

12. Klik pada oharian dan pastekan kode berikut (deklarasi=click):
charian.Enabled = True
cmingguawal.Enabled = False
cbulan.Enabled = False

13. Klik pada omingguan dan pastekan kode berikut (deklarasi=click):
cmingguawal.Enabled = True
cbulan.Enabled = False
charian.Enabled = False

14. Klik pada osemua dan pastekan kode berikut (deklarasi=click):
If pilihtrans.Text = "Pendaftaran" Then
cr.ReportFileName = "D:\Perkuliahan\Tugas Akhir\Tugas Akhir\program\Laporan\TransaksiPendaftaran.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
Else
cr.ReportFileName = "D:\Perkuliahan\Tugas Akhir\Tugas Akhir\program\Laporan\TransaksiPembuatansim.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
End If

15. Klik pada pilihtrans dan pastekan kode berikut (deklarasi=click):
If pilihtrans.Text = "Pendaftaran" Then
Call koneksi
rspendaftaran.Open "select distinct tgl_daftar from tpendaftaran order by 1", KON
rspendaftaran.Requery
'Do Until rspendaftaran.EOF
'charian.AddItem Format(rspendaftaran!tgl_daftar, "yyyy-mm-dd")
'cmingguawal.AddItem Format(rspendaftaran!tgl_daftar, "yyyy-mm-dd")
'cmingguakhir.AddItem Format(rspendaftaran!tgl_daftar, "yyyy-mm-dd")
'rspendaftaran.MoveNext
'Loop
ElseIf pilihtrans.Text = "Pembuatan SIM" Then
Call koneksi
rspembuatansima.Open "select distinct tgl_sim from tpembuatansima order by 1", KON
rspembuatansima.Requery
'Do Until rspembuatansima.EOF
'charian.AddItem Format(rspembuatansima!tgl_sim, "yyyy-mm-dd")
'cmingguawal.AddItem Format(rspembuatansima!tgl_sim, "yyyy-mm-dd")
'cmingguakhir.AddItem Format(rspembuatansima!tgl_sim, "yyyy-mm-dd")
'rspembuatansima.MoveNext
'Loop
End If
oharian.Enabled = True
omingguan.Enabled = True
obulanan.Enabled = True
osemua.Enabled = True


15. Klik pada oharian dan pastekan kode berikut (deklarasi=click):
charian.Enabled = True
cmingguawal.Enabled = False
cbulan.Enabled = False

16. Klik pada cmingguakhir dan pastekan kode berikut (deklarasi=click):
cetak.Enabled = True

17. Klik pada cbulan dan pastekan kode berikut (deklarasi=click):
ctahun.Enabled = True

18. Klik pada charian dan pastekan kode berikut (deklarasi=click):
cetak.Enabled = True