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 :
- Cara Membuat modul koneksi di Vb.Net 2010 – 2019 dan
- Membuat Form Login dengan hak akses di Vb.Net 2010 – 2019
Comments
Post a Comment