Assalamualikum,

Jumpa lagi dengan saya,kali ini kita akan meneruskan pembahasan tutorial aplikasi penerimaan siswa baru part 3.untuk lebih jelas kita langsung aja ke bahan pembahasan mengenai lanjutan mengenai menu Laporan.

Buatlah design bentuk untuk pembuatan menu laporan seperti gambar di bawah ini, namun dalam computer anda harus terinstal sebuah CrystalReport.

Design Submenu Laporan daftar calon siswa baru beserta tahun ajaran.

Masukan Sebuah SouceCode untuk menghubungkan tampilan diatas,lihat source code di bawah ini.

Private Sub cmdKeluar_Click()
Unload Me
End Sub
Private Sub cmdCetak_Click()
CR.ReportFileName = App.Path + "\lapCalon.rpt"
CR.DataFiles(0) = App.Path + "\dbPSB.mdb"
CR.ReplaceSelectionFormula "year({calon.tgl_daftar})=" & Year(dtThn.Value)
CR.Destination = crptToPrinter
CR.Action = 28
End Sub

Private Sub cmdLihat_Click()
CR.ReportFileName = App.Path + "\lapCalon.rpt"
CR.DataFiles(0) = App.Path + "\dbPSB.mdb"
CR.ReplaceSelectionFormula "year({calon.tgl_daftar})=" & Year(dtThn.Value)
CR.Destination = crptToWindow
CR.WindowState = crptMaximized
CR.Action = 28
End Sub
Private Sub Form_Load()
End Sub

Design Submenu Laporan Daftar Panitia Pendaftaran Siswa Baru.

Masukan source code di bawah ini untuk menghubungkan tampilan di atas.

Private Sub cmdKeluar_Click()
Unload Me
End Sub
Private Sub cmdCetak_Click()
CR.ReportFileName = App.Path + "\lapPSB.rpt"
CR.DataFiles(0) = App.Path + "\dbPSB.mdb"
CR.Destination = crptToPrinter
CR.Action = 28
End Sub
Private Sub cmdLihat_Click()
CR.ReportFileName = App.Path + "\lapPSB.rpt"
CR.DataFiles(0) = App.Path + "\dbPSB.mdb"
CR.Destination = crptToWindow
CR.WindowState = crptMaximized
CR.Action = 28
End Sub

Buat Tampilan design seperti gambar di bawah ini.

Lihat di bawah ini,untuk pembuatan source code diatas.

Private Sub cmdKeluar_Click()
Unload Me
End Sub
Private Sub cmdCetak_Click()
CR.ReportFileName = App.Path + "\lapSiswaBaru.rpt"
CR.DataFiles(0) = App.Path + "\dbPSB.mdb"
CR.ReplaceSelectionFormula "{siswa.thn_ajaran}=" & Year(dtThn.Value)
CR.Destination = crptToPrinter
CR.Action = 28
End Sub

Private Sub cmdLihat_Click()
CR.ReportFileName = App.Path + "\lapSiswaBaru.rpt"
CR.DataFiles(0) = App.Path + "\dbPSB.mdb"
CR.ReplaceSelectionFormula "{siswa.thn_ajaran}=" & Year(dtThn.Value)
CR.Destination = crptToWindow
CR.WindowState = crptMaximized
CR.Action = 28
End Sub
Private Sub Form_Load()
End Sub

Namun sebelum itu anda coba buat sebuah database dari Microsoft acces dengan 4 nama table. Diantaranya:

a.Tabel Calon Siswa

b.Tabel  Daftar User

c.Tabel  Psb

d.Tabel Siswa

dari ke-4 tabel diatas ,adapun susunannya yaitu:

Tabel Calon Siswa : No.daftar,nama,jeniskelamin,tanggallahir,tempatlahir,agama,anak

                                 ke-,status, Alamat,tanggaldaftar,nem,sekolahasal,alamatsekolah

                                ,ayah,ibu,alamat ortu, Pekerjaan ayah,pekerjaan ibu,wali,alamat

                                wali,pekerjaan wali,NIS.

Tabel Daftar User  : user id,password.

Tabel PSB              : NIK,Nama,Alamat, Jabatan.

Tabel Siswa            : NIS,No_Daftar, nama,jenis kelamin,tempat lahir,tanggallahir,agama

                                 ,anak ke,Status,alamat,tanggal diterima,tahunajaran,nem,kelas,

                                 sekolahasal,alamatSekolah,Ayah,ibu,alamatortu,pekerjaanayah,

                                 pekerjaanibu,wali,alamatwali,

                                 Pekerjaan wali.

Demikian penjelasan tutorial mengenai aplikasi penerimaan siswa baru.semoga bermanfaat dan mendapat ilmu baru dari penjelasan diatas.sampai jumpa di tutorial selanjutnya.

<<<bravo>>>...