Membuat Menu Utama di Visual Basic Net

Membuat Menu Utama di Visual Basic Net, Menu Utama merupakan sebuah form yang diguankan untuk memanggil form lainnya, selain form menu utama yang sudah dibuat. Kali ini kita akan mencoba membuat sebuah form Menu Utama dalam contoh program sederhana untuk melakukan pengelolaan data mahasiswa. Sebelum dpata menggunakan Menu Utama tentunya setiap pengguna diharuskan login terlebih dahulu. Sehingga jika tidak, maka kita buat menu utama tersebut dalam keadaan disable.

Anda dapat mengikuti langkah - langkah berikut ini untuk membuat menu utama di visual basic net berikut ini. Buatlah satu buah project baru dengan nama MenuNilaiMahasiswa. Kemudian anda gunakan fungsi WindowState : Maximized dalam listing program form 1 supaya tampilan form 1 ketika di runing secara otomatis menjadi besar atau anda bisa memilih properties WindowsState – Maximized.

Selanjutnya tambahkan menu strip pada form menu utama yang akan kita gunakan tersebut dalam kasus ini kita menggunakan form1 untuk pembuatan menu tersebut. Setelah menambahkan menu strip kita akan membuat menu - menu berikut ini.
Kemudian anda tambahkan source kobe berikut ini pada form1 atau menu utama.

File ---- Login (tabel login dengan field : Nama, Pasword)
---- Logout
---- Keluar
Master
---- Data Mahasiswa (tabel mahasiswa dengan field : NIM, Nama, Jurusan, Alamat, No_HP, Photo)
Transaksi
---- Nilai Mahasiswa (tabel nilai dengan field : KodeMK, NIM, Matakuliah, Absen, Tugas, UTS, UAS,
NilaiAkhir, HurufMutu)
Report
----- Laporan Data Nilai Mahasiswa

Source Kode Menu Utama Form1

Public Class Form1

    Private Sub LoginToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles LoginToolStripMenuItem.Click
        Form2.Show()
    End Sub

    Private Sub ExitToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Close()
    End Sub

    Private Sub DataMhsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DataMhsToolStripMenuItem.Click
        Form3.Show()
    End Sub

    Private Sub NilaiMhsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles NilaiMhsToolStripMenuItem.Click
        Form4.Show()
    End Sub

    Private Sub LaporanNilaiMhsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles LaporanNilaiMhsToolStripMenuItem.Click
        Form5.Show()
    End Sub

    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        MasterToolStripMenuItem.Enabled = False
        TransaksiToolStripMenuItem.Enabled = False
        ReportToolStripMenuItem.Enabled = False
        LoginToolStripMenuItem.Enabled = True
        LogoutToolStripMenuItem.Enabled = False
        Me.WindowState = FormWindowState.Maximized
    End Sub
    Private Sub LogoutToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles LogoutToolStripMenuItem.Click
        MessageBox.Show("Anda Telah Melakukan Logout Silahkan Login Kembali", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question)
        Form2.Show()
        MasterToolStripMenuItem.Enabled = False
        TransaksiToolStripMenuItem.Enabled = False
        ReportToolStripMenuItem.Enabled = False
        LoginToolStripMenuItem.Enabled = True
        LogoutToolStripMenuItem.Enabled = False
    End Sub
End Class

Selanjutnya anda tambahkan satu buah form lagi yang akan digunakan sebagai form login. Desainlah seperti gambar di bawah kemudian tambahkan source kode berikut.

Source Kode Form2 / Form Login

Public Class Form2

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "Admin" And TextBox2.Text = "Admin" Then
            Me.Close()
            Form1.Show()
            Form1.MasterToolStripMenuItem.Enabled = True
            Form1.TransaksiToolStripMenuItem.Enabled = True
            Form1.ReportToolStripMenuItem.Enabled = True
            Form1.LoginToolStripMenuItem.Enabled = False
            Form1.LogoutToolStripMenuItem.Enabled = True
        Else
            MessageBox.Show("Password dan User Name Anda Salah, ulangi lagi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question)
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox1.Focus()
        End If
      
    End Sub
End Class

Dalam pembuatan menu utama ini kita tidak menggunakan database, dan hanya melihat fungsi sederhana dari penjelasan diatas dimana meunu utama yang sudah dibuat akan disable jika user tidak login. Anda dapat menggunakan menu utama ini pada project yang anda buat anda dapat mengembanggkannya sendiri, Terima kasih semoga bermanfaat.

Share this post