Tutorial VB.Net Aplikasi Penjualan (PART 5)

Bona    Saturday, April 04, 2015    IT_News , VB_Net    Comment   

Hey Kawan RELAINC ANDRO, kini saatnya saya melanjutkan tutorial Tutorial VB.Net Aplikasi Penjualan (PART 5) , yang sebelumnya yaitu pembuatan MENU LOGIN.

Untuk Tutorial VB.Net Aplikasi Penjualan (PART 5) ini kita akan membuat MENU UTAMA.

A : Apasih Menu Utama Itu?
B : Menu Utama Adalah dimana bagian yang mengkontrol untuk menjalankan semua menu yang ada di dalam aplikasi.

 Oke langsung saja, untuk tampilan menunya seperti ini, ya maaf - maaf ya kalo kurang menarik.
ini tugas pertama saya pada saat masih kuliah.Hehehehehehe

Untuk Mendesign Aplikasi Secara menarik Bisa Untuk Membuka Link Disini.

Menu Utama -RELAINC ANDRO-

Bagaimana cara Membuat Menu di atas, yaitu seperti berikut :

1. Pertama
2. Kita Klik kanan pada Project
3. Klik Add
4. Klik Windows Forms
5. Setelah itu berikan nama sesuai dengan nama form yang diiinginkan, (disini saya menamakan MenuUtama.frm).

Setelah itu, kita mempergunakan Component - Component seperti berikut :

1.  Button Sebagai Klik Menu
2. Group Box Sebagai Pemisah Menu
3. dan Status Strip untuk Status informasi
4. Namakan Button Master Tersebut sesuai dengan nama Menu yang akan di tampilkan (Menu Master : Master Buku, Master User)
5. Namakan Button Transaksi Tersebut sesuai dengan nama Menu yang akan di tampilkan (Menu Transaksi:Penjualan, Retur Penjualan)
6. Namakan Button Laporan Tersebut sesuai dengan nama Menu yang akan di tampilkan (Menu Laporan: Laporan Data Master, Laporan Data Transaksi)
7. Namakan Button Utility Tersebut sesuai dengan nama Menu yang akan di tampilkan (Menu Utility: Backup Database,Manual Book, Ganti Password)
8. Setelah itu di masukan kedalam GROUP BOX Masing-masing Menu tersebut.

Desing Menu Utama -RELAINC ANDRO-

Dan Berikut untuk SOURCE CODE MenuUtama.Frm

Public Class Menu_utama

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        gb1.Dock = DockStyle.Top
        gb2.Visible = False
        gb3.Visible = False
        gb4.Visible = False
        gb5.Visible = True
        gb5.Dock = DockStyle.Bottom
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        gb1.Dock = DockStyle.Top
        gb2.Visible = True
        gb2.Dock = DockStyle.Bottom
        gb3.Visible = False
        gb4.Visible = False
        gb5.Visible = False
    End Sub

    Private Sub MenuUtama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        gb1.Dock = DockStyle.Top
        gb2.Visible = False
        gb3.Visible = False
        gb4.Visible = False
        gb5.Visible = False
        gb5.Dock = DockStyle.Bottom
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        gb1.Dock = DockStyle.Top
        gb3.Visible = True
        gb3.Dock = DockStyle.Bottom
        gb5.Visible = False
        gb2.Visible = False
        gb4.Visible = False
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        gb1.Dock = DockStyle.Top
        gb4.Visible = True
        gb4.Dock = DockStyle.Bottom
        gb3.Visible = False
        gb2.Visible = False
        gb5.Visible = False
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If MessageBox.Show("Tutup Aplikasi", "Tutup", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
            End
        End If
    End Sub

    Private Sub gb5_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gb5.Enter

    End Sub

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

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

    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        Laporan_penjualan.Show()

    End Sub

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

    End Sub

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

    End Sub

    Private Sub gb3_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gb3.Enter

    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        BackupDB.Show()
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        Windows.Forms.Help.ShowHelp(Me, "manualbook.chm")
    End Sub

    Private Sub gb4_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gb4.Enter

    End Sub

    Private Sub gb2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gb2.Enter

    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        buku.Show()
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        Petugas.Show()
    End Sub

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

    End Sub

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

    End Sub

    Private Sub gb1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gb1.Enter

    End Sub

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

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Ganti_Password.Show()
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Retur_penjualan.Show()

    End Sub
End Class 

Silahkan Dicoba, dan diikuti terus untuk Tutorial VB.Net Aplikasi Penjualan, Semoga Tutorial ini bermanfaat buat temen temen RELAINC ANDRO, Kita akan melanjutkan ketutorial berikutnya,
Jika anda ingin merepost Artikel ini dimohon untuk Sumber penulis dituliskan di Blog anda, Terima kasih.


Salam, RELAINC ANDRO.