PERTEMUAN 20

rumus :

Public Class FormMenuUtama

Private Sub TambahUserAdminToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TambahUserAdminToolStripMenuItem.Click
Me.Enabled = False
FormTambahAdmin.Show()
End Sub

Private Sub InputDataKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InputDataKaryawanToolStripMenuItem.Click
Me.Enabled = False
FormInputDataKaryawan.Show()
End Sub

Private Sub LihatDataKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LihatDataKaryawanToolStripMenuItem.Click
Me.Enabled = False
FormLihatDataKaryawan.Show()
End Sub

Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
If MsgBox("Apakah Anda Yakin Ingin Keluar?", MsgBoxStyle.YesNo, "KELUAR") = MsgBoxResult.Yes Then
Me.Close()
Else
Me.Show()
End If
End Sub

Private Sub EditDataKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditDataKaryawanToolStripMenuItem.Click
Me.Enabled = False
FormEditDataKaryawan.Show()
End Sub

Private Sub FormMenuUtama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class