LISTING PROGRAM MENU
Public Class Menu
Private Sub SiswaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SiswaToolStripMenuItem.Click
siswa.Show()
End Sub
Private Sub GuruToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GuruToolStripMenuItem.Click
Guru.Show()
End Sub
Private Sub PelajaranToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PelajaranToolStripMenuItem.Click
Pelajaran.Show()
End Sub
Private Sub NilaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NilaiToolStripMenuItem.Click
Nilai.Show()
End Sub
Private Sub KeluarProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarProgramToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
Dim laporan As New rptguru
Form2.CrystalReportViewer1.ReportSource = laporan
Form2.Show()
End Sub
Private Sub LPELAJARANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LPELAJARANToolStripMenuItem.Click
Dim laporan As New rptpelajaran
Form4.CrystalReportViewer1.ReportSource = laporan
Form4.Show()
End Sub
Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
Dim laporan As New rptsiswa
Form1.CrystalReportViewer1.ReportSource = laporan
Form1.Show()
End Sub
Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click
Dim laporan As New rptrelasi
Form5.CrystalReportViewer1.ReportSource = laporan
Form5.Show()
End Sub
Private Sub LNILAIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LNILAIToolStripMenuItem.Click
Dim laporan As New rptnilai
Form3.CrystalReportViewer1.ReportSource = laporan
Form3.Show()
End Sub
Private Sub Menu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class