SISTEM INFORMASI DATA DOKTER SPECIALIS RS.MUTIARA INDAH

From menu

listing program menu


Public Class Menu

    Private Sub DataDokterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataDokterToolStripMenuItem.Click

        data_dokter.Show()

        data_dokter.MdiParent = Me

    End Sub

    Private Sub DataObatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataObatToolStripMenuItem.Click

        data_obat.Show()

        data_obat.MdiParent = Me

    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click

        Me.Close()

    End Sub

    Private Sub LDOKTERToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LDOKTERToolStripMenuItem.Click

        Dim LAPORAN As New DOKTER

        LAPDOKTER.CRV.ReportSource = LAPORAN

        LAPDOKTER.Show()

        LAPDOKTER.MdiParent = Me

    End Sub

    Private Sub LOBATToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LOBATToolStripMenuItem.Click

        Dim LAPORAN As New OBAT

        LAPOBAT.CRV.ReportSource = LAPORAN

        LAPOBAT.Show()

        LAPOBAT.MdiParent = Me

    End Sub

End Class

FROM DATA DOKTER SPECIALIS