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
