MEMBUAT MENU UTAMA TANPA MDi FORM

Seringkali kita melihat banyak pemula merasakan kebingungan dalam membuat Menu Utama dalam suatu project di Visual Basic dikarenakan mereka terpaku dengan menggunakan MDiForm yang sudah mereka pelajari akan tetapi sudah lupa. Padahal pembuatan Menu Utama dalam sebuah project tidak selalu harus menggunakan MDiForm akan tetapi bisa dengan Form biasa yang sering kita pakai untuk membuat tampilan program. Berikut adalah sedikit cara pembuatan Menu Utama :

1. Masuk dalam Microsoft Visual Basic 6.0
2. Tambahkan Form baru untuk membuat Menu Utama
3. Setelah tampil form yang biasa kita jumpai selanjutnya adalah cari Menu Tool pilih Menu Editor (ctrl+E). berikut adalah tampilannya.

4. Setelah terlihat tampilan menu diatas maka kita tinggal mengatur Isi Menu yang akan kita tampilkan dalam Menu Utama. Caption disini adalah untuk menampilkan menu dalam Menu Utama, Name adalah untuk penamaan yang digunakan untuk membedakan nama yang lain, Shortcut adalah untuk menambahkan perintah cepat (ctrl+x) atau yang lainnya.
5. Setelah semua kita masukan dan kita tekan OK maka Menu Utama kita telah berhasil terbuat,namun jika masih ada masalah silahkan cek di Name yang disitu wajib tidak sama dalam penamaannya. Setelah berhasil membuat Menu Utama seperti terlihat dalam gambar dibawah.

6. Menu Utama diatas belum bisa berfungsi seperti apa yang kita kehendaki jika belum kita masukkan koding untuk perintah jalannya program. Berikut koding yang wajib ada dalam menu utama.

Private Sub cmdganti_Click()

login.Show

Unload Me

End Sub

Private Sub cmdkeluar_Click()

pesan = MsgBox("..::Yakin Mau Keluar PROGRAM ???", vbYesNo + vbQuestion, "Warning!!")

If pesan = vbYes Then

MsgBox "..::TERIMA KASIH TELAH MENGGUNAKAN PROGRAM KAMI::..", vbInformation, "::ADMIN::"

End

End If

End Sub

Private Sub mnbkeluar_Click()

keluar.Show

UTAMA.Enabled = False

End Sub

Private Sub mnbmasuk_Click()

MASUK.Show

UTAMA.Enabled = False

End Sub

Private Sub mneditbarang_Click()

BARANG.Show

BARANG.Frame1.Visible = False

UTAMA.Enabled = False

End Sub

Private Sub mneditkons_Click()

Agen.Show

Agen.Frame1.Visible = False

UTAMA.Enabled = False

End Sub

Private Sub mneditpro_Click()

PRODUSEN.Show

PRODUSEN.Frame1.Visible = False

UTAMA.Enabled = False

End Sub

Private Sub mnedituser_Click()

USER.Show

USER.Frame1.Visible = False

UTAMA.Enabled = False

End Sub

Private Sub mnganti_Click()

login.Show

Unload Me

End Sub

Private Sub mnkeluaraplikasi_Click()

pesan = MsgBox("..::Yakin Mau Keluar PROGRAM ???", vbYesNo + vbQuestion, "Warning!!")

If pesan = vbYes Then

MsgBox "..::TERIMA KASIH TELAH MENGGUNAKAN PROGRAM KAMI::..", vbOKOnly, "::ADMIN::"

End

End If

End Sub

Private Sub mnlapagen_Click()

CrystalReport1.ReportFileName = App.Path & "\report\LapAgen.rpt"

    CrystalReport1.WindowState = crptMaximized

    CrystalReport1.RetrieveDataFiles

    CrystalReport1.Action = 1

End Sub

Private Sub mnlapbarang_Click()

CrystalReport1.ReportFileName = App.Path & "\report\LapBarang.rpt"

    CrystalReport1.WindowState = crptMaximized

    CrystalReport1.RetrieveDataFiles

    CrystalReport1.Action = 1

End Sub

Private Sub mnlapkeluar_Click()

FrmLapKel.Show

FrmLapKel.Caption = "Laporan Barang Keluar"

End Sub

Private Sub mnlapmasuk_Click()

FrmLaporan.Show

FrmLaporan.Caption = "Laporan Barang Masuk"

End Sub

Private Sub mnlapprod_Click()

CrystalReport1.ReportFileName = App.Path & "\report\LapProdusen.rpt"

    CrystalReport1.WindowState = crptMaximized

    CrystalReport1.RetrieveDataFiles

    CrystalReport1.Action = 1

End Sub

Private Sub mnlapuser_Click()

    CrystalReport1.ReportFileName = App.Path & "\report\LapUser.rpt"

    CrystalReport1.WindowState = crptMaximized

    CrystalReport1.RetrieveDataFiles

    CrystalReport1.Action = 1

End Sub

Private Sub mnprog_Click()

about.Show

UTAMA.Enabled = True

End Sub

Private Sub mntambahkons_Click()

Agen.Show

Agen.Frame2.Visible = False

UTAMA.Enabled = False

End Sub

Private Sub mntambahpro_Click()

PRODUSEN.Show

PRODUSEN.Frame2.Visible = False

UTAMA.Enabled = False

End Sub

Private Sub mntambahuser_Click()

USER.Show

USER.Frame2.Visible = False

UTAMA.Enabled = False

End Sub

Private Sub nmtambahbarang_Click()

BARANG.Show

BARANG.Frame2.Visible = False

UTAMA.Enabled = False

End Sub