Pengaturan "MDIForm Untuk Menu Utama"

Pengaturan MDIForm

Pembahasan ini merupakan kelanjutan dari pokok bahasan "Membuat Aplikasi Inventory dan Lapoan Keuangan", baca terlebih dahulu pokok bahasan tersebut agar lebih jelas.

Pada pembahasan kali ini, kita akan membahas mengenai Pembuatan Menu Utama menggunakan MDIForm dan cara melakukan pengaturan dalam pembuatan Menu Utama pada MDIForm. Berikut ini bentuk Tampilan Menu Utama yang akan kita buat.

Penjelasan Pembuatan Menu Utama

Caption : digunakan untuk membuat Judul Menu.

Name : digunakan untuk mendeklarasikan nama dari sebuah menu.

Index : digunakan sebagai pembeda nama menu, apabila dalam pemberian nama menu dideklarasikan dengan nama yang sama. Sehingga diperlukan untuk mengisikan angka dalam index yang dimulai dari angka nol (0).

Shortcut : digunakan untuk menambahkan tombol percepatan dalam sebuah menu, seperti CTRL + A dan lain-lain.

Checked : digunakan untuk memberikan tanda check pada sebuah menu atau sub menu.

Enabled : digunakan untuk mengkunci sebuah menu atau sub menu supaya tidak bisa di klik atau sebaliknya. Jika diberikan tanda check (√ ), maka menu tersebut dapat diklik, sebaliknya apbila tidak di beri tanda check, maka menu tersebut tidak dapat diklik.

Visible : digunakan untuk memunculkan menu atau menyembunyikan menu dari tampilan taskbar menu.

Tombol

digunakan untuk membuat levelisasi menu.

Tombol

digunakan untuk mengatur posisi dari menu atau sub menu.

Tombol NEXT digunakan untuk melanjutkan ke pembuatan menu berikutnya.

Tombol INSERT digunakan untuk menyisipkan menu tambahan kedalam bagian dari menu atau sub menu.

Tombol DELETE digunakan untuk menghapus menu atau sub menu.

Struktur Menu	Caption	Name	Index
*Menu Utama*	File	mnFile1
*Sub Menu*	....Log In	mnFile	0
*Sub Menu*	....Log Out	mnFile	1
*Sub Menu*	....-	mnFile	2
*Sub Menu*	....Keluar	mnFile	3
*Menu Utama*	Data Master	mnMasterData1
*Sub Menu*	....Data Barang	mnMaster	0
*Sub Menu*	....Data Supplier	mnMaster	1
*Sub Menu*	....Data Pelanggan	mnMaster	2
*Menu Utama*	Data Akuntansi	mnDataAkuntansi
*Sub Menu*	....Data Rekening	mnDataRekening	0
*Menu Utama*	Transaksi	mnMutasi1
*Sub Menu*	....Transaksi Pembelian	mnMutasi	0
*Sub Menu*	....Transaksi Penjualan	mnMutasi	1
*Sub Menu*	....-	mnMutasi	2
*Sub Menu*	....Jurnal Umum	mnMutasi	3
*Menu Utama*	Laporan Akuntansi	mnLaporanak1
*Sub Menu*	....Laporan Jurnal	mnLaporanak	0
*Sub Menu*	....Buku Besar	mnLaporanak	1
*Sub Menu*	....Neraca Saldo	mnLaporanak	2
*Sub Menu*	....Laba/ Rugi	mnLaporanak	3
*Sub Menu*	....Laporan Provitabilitas	mnLaporanak	4

Hasil Akhir dari pembuatan Menu Editor seperti gambar di bawah ini

Desain Form Menu Utama seperti Gamabr di bawah ini

KODE PROGRAM Menu Utama

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub cmd_login_Click()
    Dim pesan As String
    If cmd_login.Caption = "LOGIN" Then
        Frm_login.Show 1
    ElseIf cmd_login.Caption = "LOG OFF" Then
        pesan = MsgBox("Apakah Anda Yakin Akan Log Off ?", vbYesNo, "Log Off")
        If pesan = vbYes Then
            cmd_login.Caption = "LOGIN"
            lbllevel.Caption = ""
            lblUser.Caption = ""
            mnDataMaster1.Enabled = False
            mnMutasi1.Enabled = False
            mnHutangPiutang1.Enabled = False
            mnLaporanak1.Enabled = False
            mnAkuntansi1.Enabled = False
            mnLapManajerial1.Enabled = False
            mnUntilitas1.Enabled = False
        End If
    End If
End Sub

Private Sub mn_akuntansi_Click(Index As Integer)
    Select Case Index
    Case 0
        Frm_Rekening.Show
    Case 1
        Frm_Jurnal.Show
    End Select
End Sub

Private Sub mnDataMaster_Click(Index As Integer)
    Select Case Index

    Case 0
        Frm_MasBar.Show
    Case 1
        Frm_pemasok.Show
    Case 2
        Frm_pelanggan.Show
    Case 4
        Frm_Rekening.Show
    End Select
End Sub

Private Sub mnDataRekening_Click(Index As Integer)
    Select Case Index

    Case 0
        Frm_Rekening.Show
    End Select
End Sub

Private Sub mnFile_Click(Index As Integer)
    Select Case Index
    Case 0
        Frm_login.Show
    Case 1
        Dim pesan As String
        pesan = MsgBox("Anda Yakin Akan Log Off ?", vbYesNo, "Log Off")
        If pesan = vbYes Then
            cmd_login.Caption = "Log In"
            lbllevel.Caption = ""
            lblUser.Caption = ""
            mnDataMaster1.Enabled = False
            mnMutasi1.Enabled = False
            mnHutangPiutang1.Enabled = False
            mnLaporanak1.Enabled = False
            mnAkuntansi1.Enabled = False
            mnLapManajerial1.Enabled = False
            mnUntilitas1.Enabled = False
        End If
    Case 3
        End
    End Select
End Sub

Private Sub mnhelp_Click(Index As Integer)
    Select Case Index
    Case 0
    Frm_About.Show
    Case 1
      ShellExecute Me.hwnd, "", App.Path & "\manual_program.doc", "", "", 1
    End Select
End Sub

Private Sub mnHutangPiutang_Click(Index As Integer)
    Select Case Index
    Case 0
        'Menampilkan form BayarHutang
        Frm_BayarHutang.Show
        Frm_BayarPiutang.Visible = False

    Case 1
        Frm_BayarPiutang.Show
        Frm_BayarHutang.Visible = False
    End Select
End Sub

Private Sub mnLaporan_Click(Index As Integer)
    Select Case Index
    Case 0
        Frm_LapJurnal.Show 1
    Case 1
        CR_BUKUBESAR.Action = 1
    Case 2
        Frm_NeracaSaldo.Show 1
    End Select
End Sub

Private Sub mnLaporanak_Click(Index As Integer)
    Select Case Index
    Case 0
        Frm_LapJurnal.Show 1
    Case 1
        Frm_CetakBukuBesar.Show 1
    Case 2
        Frm_Neraca.Show 1
    Case 3
        Frm_RugiLaba.Show 1
    Case 4
        Frm_Provitabilitas.Show 1

    End Select

End Sub

Private Sub mnMutasi_Click(Index As Integer)
    Select Case Index
    Case 0
        Frm_TranBeli.Show
    Case 1
        Frm_TranJual2.Show
    Case 3
        Frm_Jurnal.Show
    End Select

End Sub

Private Sub mnUntilitas_Click(Index As Integer)
    Select Case Index
    Case 0
        Frm_User.Show
    Case 1
        Frm_GPassword.Show
    Case 3
        frmBackupDatabase.Show
    End Select

End Sub

Private Sub Timergerakform_Timer()
    Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
    Label2.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
    Lbl_KK.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub