Visual Basic (Menu Utama)

Design Menu Utama :

Codding Menu Utama :   

Public Class MenuUtama

   

   Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

       If MessageBox.Show("Apakah anda ingin tutup aplikasi..?", "Konfirmasi", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then

           Me.Close()

           End

       End If

   End Sub

   Private Sub btnBarang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBarang.Click, Button9.Click, Button33.Click

       Barang.Show()

   End Sub

   Private Sub btnKasir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKasir.Click, Button35.Click, Button11.Click

       Kasir.Show()

   End Sub

   Private Sub btnMekanik_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMekanik.Click, Button36.Click, Button12.Click

       Mekanik.Show()

   End Sub

   Private Sub btnpendaf_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click, Button27.Click

       Pendaftaran.Show()

   End Sub

   Private Sub btnJasa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnJasa.Click, Button34.Click, Button10.Click

       Jasa.Show()

   End Sub

   Private Sub BarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BarangToolStripMenuItem.Click

       Barang.Show()

   End Sub

   Private Sub JasaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JasaToolStripMenuItem.Click

       Jasa.Show()

   End Sub

   Private Sub KasirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KasirToolStripMenuItem.Click

       Kasir.Show()

   End Sub

   Private Sub MekanikToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MekanikToolStripMenuItem.Click

       Mekanik.Show()

   End Sub

   Private Sub PendaftaranToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PendaftaranToolStripMenuItem.Click

       Pendaftaran.Show()

   End Sub

   Private Sub btnGanti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click, Button32.Click

       MessageBox.Show("Maaf untuk sementara kosong", "Informasi")

   End Sub

   Private Sub btnService_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click, Button2.Click

       Service.Show()

   End Sub

   Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

       MessageBox.Show("Maaf untuk sementara kosong", "Informasi")

   End Sub

   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

       MessageBox.Show("Maaf untuk sementara kosong", "Informasi")

   End Sub

   Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

       MessageBox.Show("Maaf untuk sementara kosong", "Informasi")

   End Sub

   Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

       MessageBox.Show("Maaf untuk sementara kosong", "Informasi")

   End Sub

   Private Sub MasterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MasterToolStripMenuItem.Click

       MessageBox.Show("Maaf untuk sementara kosong", "Informasi")

   End Sub

   Private Sub TransaksiToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TransaksiToolStripMenuItem1.Click

       MessageBox.Show("Maaf untuk sementara kosong", "Informasi")

   End Sub

   Private Sub BackupToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackupToolStripMenuItem.Click

       MessageBox.Show("Maaf untuk sementara kosong", "Informasi")

   End Sub

   Private Sub GantiPwdToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GantiPwdToolStripMenuItem.Click

       MessageBox.Show("Maaf untuk sementara kosong", "Informasi")

   End Sub

   Private Sub PetunjukToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PetunjukToolStripMenuItem.Click

       MessageBox.Show("Maaf untuk sementara kosong", "Informasi")

   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       If MessageBox.Show("Yakin Akan keluar dari Aplikasi..?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then

           Me.Close()

           End

       End If

   End Sub

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

       If MessageBox.Show("Yakin Akan keluar dari Aplikasi..?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then

           Me.Close()

       End If

   End Sub

End Class