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

Post a Comment

Popular posts from this blog

Cara Membuat Aplikasi Kasir Dengan Microsoft Excel

Image
Assalamu’alaikum warahmatullahi wabarakatuh... Apa kabar sobat semua? Semoga sehat dan selalu di dalam lindungan Allah.SWT Amin. Dalam kesempatan kali ini saya ingin menyampaikan bahwa saya ingin menepati janji saya, ya itu membagikan post tentang tutorial atau cara membuat aplikasi kasir sederhana di microsoft excel. Pertama - tama saya jelaskan bahwa dalam tutorial ini kita juga tidak hanya membuat aplikasi kasir, tapi juga sekalian membuat aplikasi pembukuan gudang lo sobat, nah dalam membuat aplikasi ini kita setidaknya membutuhkan atau menggunakan 3 jenis fungsi yakni ; 1. IF 2. SUMIF 3. VLOOKUP Dan ada 2 bagian pekerjaan yakni: 1. Persiapan 1.1 GUDANG 1.2 NOTA 2. Pengisian Formula dan Fungsi ; 2.1 GUDANG 2.2 NOTA 2.3 Stok Gudang Nah dalam mempermudah sobat untuk memahami dan mengembangkan aplikasi ini, karena dalam post ini saya hanya membahas dasarnya saja dan masih bisa di kembangkan jauh lebih luas lagiya sobat, maka dari itu saya sangat menyarank
Read more

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

Image
Membuat Form Login dengan hak akses di Vb.Net 2010 – 2019 Sesui janji saya pada postingan sebelumnya, pada  Belajar Membuat Menu Utama dan Form Login di Vb.Net 2010 - 2019. Kali ini kita akan belajar membuat Form Login user ke aplikasi Data Penduduk yang telah kita buat, dengan hak akses “Admin” dan “Operator”, cara kerja login jika user yang masuk memiliki level admin memiliki akses lebih luas dari pada user yang memiliki level operator, oke langsung saja. Mebuat Table User Componen Table Pertama – tama buka kembali file DB_Data_Penduduk, kemudian buat table baru dan buatlah komponen table sebagai berikut : Data User Isilah data – data usernya seperti contoh di bawah ini lalu simpan dan tutup. Selanjutnya letakkan terlebih dahulu database access ke   folder Bin > Debug pada folder Aplikasi   Data Penduduk. Letakkan di sisni! Membuat Modul Config Setelah itu buka project aplikasi data penduduk dan buat modul baru dengan cara klik m
Read more

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

Image
Assalamualaikum Warahmatullahi Wabarakatuh Wah lamanya ya ini situs kaga di olah 😀😀😀 Lanjuuut,,,!!! Sebelumnya   apa itu aplikasi berbasis database ?           Aplikasi berbasis database yakni aplikasi input data, melalui aplikasi yang telah di program dengan aplikasi lain, ke dalam database sebagai server/file penyimpanan datanyanya, untuk mempermudah pekerjaan kita, yang selanjutnya di olah kembali menjadi file atau berkas – berkas sesuai tujuan aplikasi tersebut di buat , seperti   Data Penduduk, Data Siswa, Data Barang dan Sejenisnya, Contoh : Aplikasi kasir mall atau Indomart, nah di sini kita sama – sama belajar untuk mebangun aplikasi tersebut, mulai dari nol s/d jadi aplikasi yang siap di edarkan/patenkan, bila perlu di beri lisensi/product key.         Dalam contoh ini saya menggunakan Microsoft Access 2010, yang di simpan dengan file DataBase Access 2007 atau file accdb, menggunakan system OLEDB dan Microsoft Visual Studio 2017 Enterprise. Pertama
Read more

Cara Megunci dan Menyembunyikan Rumus di Microsoft Excel

Image
Assalamu’alaikum warahmatullahi wabarakatuh... Apakabar sobat semua? Dalam hal ini saya terangkan, bahwa saya mempraktekkan tutorial ini di microsoft excel 2010. Dan artikel ini saya tulis karena berdasarkan pengalaman saya sendiri, ya itu saya masih ingat persis, saat adik saya meminjam dan memainkan laptop bobbrok milik saya, apa yang terjadi? dia menghapus rumus - rumus dan uraian pembukuan saya, yang baru saja selesai saya kerjakan. Dan saat itu saya setres banget, karna apa? jika saja filenya yang dia hapus, saya masih bisa mencari dan memulihkannya dari Recyle Bin, lah ini hanya rumus dan data di dalamnya saja. Karna itu saya yakin banget, sobat semua engga' mau hal ini terjadi pada file kerja sobatkan? maka dari itu dalam kesempatan ini saya ingin membagikan, tutorial atau cara mengunci dan menyembunyikan rumus atau data di file Microsoft Excel. baiklah kalo begitu kita langsung aja ya? pertama - tama silahkan sobat semua buka microsft exce
Read more

Cara Membuat Rumus Terbilang di Excel

Image
Rumus terbilang di excel tanpa add-ins Rumus Terbilang, sangat bermanfaat bagi kita yang ingin membuat Kwitansi pembayaran. Gambar Contoh Ada banyak cara membuat rumus terbilang Ms Excel contohnya yang paling mudah ya dengan add ins, tapi sangsinya jika kita memindah file excel nya ke pc lain yang tidak terdapat file add ins terbilang, bisa di pastikan rumusnya akan error, sudah gitu kerap kali setelah kita tambahkan add ins di maksud malah rumus tidak dapat membaca sumber file add insnya.  Cara kedua dengan rumus Vlookup, tapi saya pernah mencoba hal ini, dan di jamin akan membuat file Ms Excelnya berat banget, karena banyaknya data yang akan di simpan, yakni data angka 1 - max yang kita butuhkan, dan terbilangnya, yasudah lah sumpah itu repot banget lah. Nah kali ini kita akan menggunakan cara ketiga yakni menggunakan rumus IF, ya sudah lah kaga berlama - lama lagi langsung aja ke tkp. Pertama - tama buka microsoft excelnya, copy dan pastekan rumus di bawah ini
Read more

Cara Mendapatkan Kuota Geratis Telkomsel

Image
Assalamu’alaikum warahmatullahi wabarakatuh... Apakabar sobat semua? Dalam kesempatan kali ini saya ingin membagikan cara mendapatkan kuota internet telkomsel geratis. Caranya dengan mendownload dan menjalankan aplikasi Roli di Smartphone kamu, artian smartphone disini yakni Android dan Ios. Selanjutnya silahkan buka aplikasi Roli yang telah kamu instal, kamu akan masuk pada tampilan awal klik saja lewati lalu lanjut. Maka kita akan di arahkan kemenu login jangan langsung login, klik menu daftar pada bagian bawah menu login, kita tinggal masukkan nomor telkomsel dan nama kita, ah pokoknya gua yakin kita pasti bisa daftar akun roli orang simpel banget ko' liat gambar ini : Setelah daftar maka kalian akan masuk kemenu beranda atau home seperti ini : Nah contoh di atas setelah kita memnjadi anggota roli dan kita langsung mendapatkan 2.000koin, dan ikuti saja pesan itu, selalu aktifkan layar kunci untuk mendapatkan bonus 300MB kuota internet tel
Read more

BG-100DH Baterai Grip For Canon Eos 100D

Image
Assalamu’alaikum warahmatullahi wabarakatuh... Apakabar sobat semua? Kali ini saya cuma pengen curhat, and sekaligus memberi sedikit info kepada sobat semua, bagi yang sekarang ini memiliki Kamera SLR Merk Canon 100D, dan ingin menambah atsessoriesnya berupa Baterai Grip yakni Sebuah pegangan baterai serta fungsi lainnya jiga sebagai pegangan vertikal dengan shutter release tambahan Biasanya menempel pada bodi kamera melalui kompartemen baterai kamera sendiri dan menyediakan kaset untuk menampung baterai tambahan untuk meningkatkan masa pakai baterai kamera. Nah dalam hal ini saya sangat tahu, faham dan mengerti banyak di antara sobat semua dan termasuk saya sendiri, pernah kebingungan dan nyaris putus asa dalam mencarikan jenis atsessories satu ini untuk kamera Canon Eos 100D, karna berdasarkan pengalaman saya informasi yang bisa kita dapat kan baik itu dari temen, toko bahkan mbah google sendiri tidak akurat dalam menginformasikan tipe Baterai Grip untuk Canon Eos 10
Read more

Cara mendapatkan paket termurah telkomsel

Image
Assalamu’alaikum warahmatullahi wabarakatuh... Apakabar sobat semua ? Semoga sehat selalu dan dalam perlindungan Allah.SWT amin. Dalam kesempatan kali ini saya ingin berbagi cara mendapatkan kuota/paket internet telkomsel termurah dan ini serius, karena dalam sejarah saya menggunakan telkomsel sebagai prabayar saya, ini pertama kalinya saya merasa bahwa paket internet telkomsel itu murah dan engga' ribet dalam pendaftarannya karena jujur saja mendaftarkan paket internet melalui My Telkomsel itu mudah tapi mahal, dan kalo melalui *363#/*9# itu ribet dan berbahaya/rentan kesalahan, kenapa? sampe kita salah pilih jenis paket bukan dapatnya paket untuk hemat tapi malah dapatnya paket mahal tapi isi abal - abal. baiklah tidak berpanjang lebar lagi kita langsung saja. Pertama - tama sobat harus memiliki atau menggunakan kartu Loop/Simpati Loop, kalo belum tau seperti inilah kartu loop : Selanjutnya kenapa harus Kartu Loop, karna kita akan menggunakan Aplikas
Read more