Random post

Home Program Visual Basic Penerimaan Siswa Baru Sekolah Mengemudi √ Aba-Aba Listing Form Laporan Penerimaan Siswa Gres Sekolah Mengemudi Vb6

Tuesday, October 16, 2018

√ Aba-Aba Listing Form Laporan Penerimaan Siswa Gres Sekolah Mengemudi Vb6

Diterbitkan

Setelah kita melihat contoh aplikasi kegiatan penerimaan siswa gres sekolah mengemudi memakai visual basic 6.0, selanjutnya kita akan menciptakan form laporan.
Pertama-tama buat terlebih dahulu formnya ibarat 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 gres dengan nama Sub aktifuser() dan pastekan arahan 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 arahan 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 arahan berikut (deklarasi=click):
oharian.Value = False
omingguan.Value = False
obulanan.Value = False
osemua.Value = False

 Call Form_Load

4. Klik pada cetak dan pastekan arahan 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 arahan 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 arahan berikut (deklarasi=change):
If cmingguakhir.Value < cmingguawal.Value Then
MsgBox "Tanggal Akhir dilarang kurang dari tanggal awal", vbCritical
cmingguakhir.SetFocus
cetak.Enabled = False
Else
cetak.Enabled = True
End If

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

8. Klik pada ctahun dan pastekan arahan 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 arahan 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 arahan berikut (deklarasi=click):
cmingguakhir.Enabled = True

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

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

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

14. Klik pada osemua dan pastekan arahan 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 arahan 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 arahan berikut (deklarasi=click):
charian.Enabled = True
cmingguawal.Enabled = False
cbulan.Enabled = False

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

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

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



Sumber http://www.hendrisetiawan.com

Artikel Terkait

hiyahiya

Next Post
Previous Post