SISTEM INFORMASI DATA SISWA DAN PENILAIAN SISWA PADA SEKOLAH SMA AL-WASHLIAYAH 3 MEDAN

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