Kode Listing Form Laporan Penerimaan Siswa Baru Sekolah Mengemudi VB6

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


0 Komentar untuk "Kode Listing Form Laporan Penerimaan Siswa Baru Sekolah Mengemudi VB6"

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

Back To Top