Cara Membuat Menu Utama dan Form Login di Vb.Net 2010 - 2019

Cara Membuat Menu Utama dan Form Login di Vb.Net 2010 - 2019

Form Utama?
Ini contohnya :

Dalam setiap aplikasi/software tentu memiliki tampilan utama aplikasi seperti di atas terutama aplikasi - aplikasi penginputan data.

Nah kali ini, bukan niat saya untuk menggurui, tapi mari kita sama - sama belajar membuat dan mendesain tampilan tersebut.


Membuat Menu Utama

Langsung saja, pertama – tama buatlah menu pada form utama dengan menambahkan komponen “MenuStrip” pada “ToolBox”.

Desainlah menu pada form utama seperti ini:


Selanjutnya masukkan dua komponen “Label” dan ubahlah propertiesnya menjadi seperti ini ;
  • Label1, Nama : Label1, Text : Selamat Datang 
  • Label2, Nama : Lbl_User, Text : Lbl_User 


Membuat Form Login

Lalu buat form baru, dengan klik menu Project AddForm buat nama form "Frm_Login" kemudian desainlah menjadi seperti ini :


Komponen dan Properties :
  • Akan kita bahas pada posting berikutnya

Mencoding Form Utama

Kemudian doble klik pada form1, maka akan muncul componen Form1.VB. 
Copy dan paste “Coding” berikut pada Form1.Vb 

1. Coding saat aplikasi pertama di jalankan :
Imports System.Data.OleDb
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Keluar_User()
    End Sub
Cara Kerja coding :
  • Saat aplikasi di mulai maka jalankan perintah Keluar_User/Coding No : 2 


2. Coding untuk mengunci menu utama/saat User belum login :
Sub Keluar_User()
        MasukToolStripMenuItem.Enabled = True
        KeluarToolStripMenuItem.Enabled = False
        UserToolStripMenuItem.Enabled = False
        TutupAplikasiToolStripMenuItem.Enabled = True
        InputDataToolStripMenuItem.Enabled = False
        LaporanToolStripMenuItem.Enabled = False
Me.Show()
        Frm_Login.ShowDialog()
        Lbl_User.Text = ""

    End Sub
Cara Kerja coding :
  • Saat Keluar_User di jalankan maka
  • Tombol “Masuk” True,Benar = Terbuka
  • Tombol “Keluar” False,Salah = Terkunci
  • Form1 Terlihat
  • Form Login Terlihat
  • Lbl_User isi tex kosong


3. Coding untuk membuka kunci utama saat user login dengan hak akses “Operator” :
Sub Masuk_Operator()
        MasukToolStripMenuItem.Enabled = False
        KeluarToolStripMenuItem.Enabled = True
        UserToolStripMenuItem.Enabled = False
        TutupAplikasiToolStripMenuItem.Enabled = True
        InputDataToolStripMenuItem.Enabled = True
        LaporanToolStripMenuItem.Enabled = True
    End Sub

4. Coding untuk membuka kunci utama saat user login dengan hak akses “Admin” :
Sub Masuk_Admin()
        MasukToolStripMenuItem.Enabled = False
        KeluarToolStripMenuItem.Enabled = True
        UserToolStripMenuItem.Enabled = True
        TutupAplikasiToolStripMenuItem.Enabled = True
        InputDataToolStripMenuItem.Enabled = True
        LaporanToolStripMenuItem.Enabled = True

    End Sub

5. Coding untuk mengatur hak akses user :
Sub MasukUser()
        If Lbl_User.Text = "" Then
            Keluar_User()
        ElseIf Lbl_User.Text = "Operator" Then
            Masuk_Operator()
        ElseIf Lbl_User.Text = "Admin" Then
            Masuk_Admin()
        End If
    End Sub
Cara Kerja coding :

  • Saat MasukUser di jalankan
  • Jika Lbl_User isi text kosong maka jalankan Keluar_User/Coding 2
  • Tapi jika Lbl_User isi text “Operator” maka jalankan Masuk_Operator/Coding 3
  • Tapi jika Lbl_User isi text “Admin” maka jalankan Masuk_Admin/Coding 4




6. Coding saat menu masuk di klik :
Private Sub MasukToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MasukToolStripMenuItem.Click
        Frm_Login.ShowDialog()
    End Sub
Cara Kerja coding :

  • Saat tombol “Masuk” di klik Form_Login Terlihat


7. Coding saat menu keluar di klik :
Private Sub KeluarToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KeluarToolStripMenuItem.Click
        If MsgBox("Menu Akan di Kunci!", vbYesNo + vbInformation, "Informasi") = vbYes Then
            Keluar_User()
        ElseIf vbNo Then
            MasukUser()
        End If
    End Sub
Cara Kerja coding :
  • Saat tombol “Keluar” di klik Kotak Pesan "YesNo" Terlihat tipe kotak pesan (Logo Pesan) Informasi isi pesan “Menu Akan di Kunci!” isi header pesan “Informasi”
  • Jika pengguna memilih/mengklik Yes, maka jalankan Keluar_User/coding 2
  • Tapi jika pengguna memilih/mengklik tidak jalankan “MasukUser”/coding 5


8. Coding saat menu Tutup Aplikasi di klik :
Private Sub TutupAplikasiToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TutupAplikasiToolStripMenuItem.Click
        If MsgBox("Aplikasi Akan di Tutup!", vbYesNo + vbInformation, "Informasi User") = vbYes Then
            End
        ElseIf vbNo Then
            MasukUser()
        End If
    End Sub
End Class
Cara Kerja coding :
  • Saat tombol “Tutup Aplikasi” di klik Kotak Pesan "YesNo" Terlihat tipe kotak pesan (Logo Pesan) Informasi isi pesan “Aplikasi Akan di Tutup” isi header pesan “Informasi User”
  • Jika pengguna memilih/mengklik ya, maka aplikasi di tutup/akhiri
  • Tapi jika pengguna memilih/mengklik tidak jalankan “MasukUser”/coding 5


Beginilah contoh coding di dalam Form1.Vb


Kemudian tes jalankan aplikasi dengan klik  atau tekan tombol F5, maka beginilah tampilan form utama kita


Saya rasa cukup sekian dulu postingan saya kali ini mohon maaf jika ada kekurangan, kritik dan saran saya butuhkan, selamat mencoba dan semoga sukses selalu.


Tunggu postingan saya di lain waktu dengan judul :
  1. Cara Membuat modul koneksi di Vb.Net 2010 – 2019 dan
  2. Membuat Form Login dengan hak akses di Vb.Net 2010 – 2019


Comments

Popular posts from this blog

Cara Membuat Aplikasi Kasir Dengan Microsoft Excel

Membuat Form Login dengan hak akses di Vb.Net 2010 – 2019

Belajar Memulai Pembuatan Aplikasi Berbasis DataBase Access di Vb.Net 2010 - 2019

Cara Megunci dan Menyembunyikan Rumus di Microsoft Excel

Rumus Terbilang di Excel

Cara Mendapatkan Kuota Geratis Telkomsel

BG-100DH Baterai Grip For Canon Eos 100D

Cara mendapatkan paket termurah telkomsel