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

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 menu  >  lalu beri nama Mdl_Config.Vb klik oke, fungsi modul ini adalah untuk membuat perumpamaan – perumpamaan algoritma dan perintah koneksi ke data base secara umum di dalam aplikasi data penduduk.

Jika sudah selesai membuat modul, copy dan pastekan coding berikut pada Mdl_Convig.Vb

1. Coding Perumpamaan - Perumpmaan Umum :

Imports System.Data.OleDb
Module Mdl_Config
    Public conn As OleDbConnection
    Public cmd As OleDbCommand
    Public da As OleDbDataAdapter
    Public dr As OleDbDataReader
    Public ds As DataSet
    Public str As String
    Public index As Integer
Fungsi :

Coding ini nantinya akan kita gunakan di seluruh form pada aplikasi kita, yang akan selalu di awali dengan coding Imports System.Data.OleDb

2. Coding Koneksi Data Base :

Public Sub KoneksiDB()
        conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DB_Data_Penduduk.accdb")
        conn.Open()
    End Sub
Fungsi :

Coding ini nantinya untuk mengkoneksikan form – form di aplikasi ke data base Access

3. Coding Menutup Koneksi Data Base :

Public Sub tutupDB()
        If conn.State = ConnectionState.Open Then
            conn.Close()
        End If
    End Sub

End Module
Fungsi :

Coding ini nantinya untuk memutuskan koneksi ke data base Access, yang berikutnya akan berfungsi merefresh data – data yang ada pada form di aplikasi.

Membuat Form Login

Componen Form Login

Setelah membuat Mdl_Config kita lanjut ke Frm_Login[Design].Vb yang telah kita desain pada post sebelumnya, ubahlah properties komponennya sebagai berikut :
  • TextBox1 : Nama : txt_UserID
  • TextBox2 : Nama : txt_Password
  • ChecBox1 : Text : Lihat Password
  • Button1 : Text : &Masuk
  • Button2 : Text : Batal

Kemudian klik dua kali pada header Frm_Login[Design].Vb, mucullah tampilan Frm_Login.Vb, copy dan pastekan coding berikut ke Frm_Login.Vb.

1. Coding Perintah Saat Form di Jalankan :

Imports System.Data.OleDb
Public Class Frm_Login
    Private Sub Frm_Login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        txt_UserID.Text = ""
        txt_Password.Text = ""
        txt_UserID.Focus()
        txt_Password.PasswordChar = "●"
        CheckBox1.Checked = False
    End Sub

Cara kerja coding :
  • Apabila Frm_Login terbuka maka :
  • Isi text “txt_UserID” kosong
  • Isi text “txt_Password” kosong
  • Kursor fikus kepada “txt_UserID”
  • Sembunyikan isi “txt_Passwors” menjadi “● “

2. Coding Saat ChecBox Lihat Password di Klik :

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = False Then
            txt_Password.PasswordChar = "●"
        ElseIf CheckBox1.Checked = True Then
            txt_Password.PasswordChar = ""
        End If
    End Sub


Cara kerja coding :
  • Apabila “ChecBox1” bertukar ceklis maka :
  • Jika ceklis pada “ChecBox1” mati
  • Sembunyikan isi “txt_Passwors” menjadi “● “
  • Tapi jika ceklis pada “ChecBox1” aktif
  • Jangan sembunyikan isi pada “txt_Passwors”

3. Coding Saat Tombol "Masuk" di Klik :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If txt_UserID.Text = "" And txt_Password.Text = "" Then
            MsgBox("User ID & Password Masih Kosong!", MsgBoxStyle.Critical, "Informasi")
        ElseIf txt_UserID.Text = "" Then
            MsgBox("User ID Masih Kosong!", MsgBoxStyle.Critical, "Informasi")
        ElseIf txt_Password.Text = "" Then
            MsgBox("Password Masih Kosong!", MsgBoxStyle.Critical, "Informasi")
        Else
            Call KoneksiDB()
            cmd = New OleDbCommand("Select * From Tbl_Admin Where ID_User = '" & txt_UserID.Text & "' and Password ='" & txt_Password.Text & "'", conn)
            dr = cmd.ExecuteReader
            dr.Read()
            If dr.HasRows Then
                Me.Visible = True
                Form1.Lbl_User.Text = dr.Item("Level")
                Form1.MasukUser()
                Me.Close()
            Else
                MsgBox("User ID/Password Salah!", MsgBoxStyle.Critical, "Informasi")
            End If
        End If
    End Sub

Cara kerja coding :
  • Apabila tombol “Masuk” di klik maka :
  • Jika isi text “txt_UserID” dan “txt_Password” kosong
  • Tampilkan kotak pesan, tipe kotak pesan Critikal, isi Pesan “User ID & Password Masih Kosong, isi header pesan “Informasi”
  • Tapi jika isi text “txt_UserID” kosong
  • Tampilkan kotak pesan, tipe kotak pesan Critikal, isi Pesan “User ID Masih Kosong, isi header pesan “Informasi”
  • Tapi jika isi text “txt_Password” kosong
  • Tampilkan kotak pesan, tipe kotak pesan Critikal, isi Pesan “Password Masih Kosong, isi header pesan “Informasi”
  • Jika tidak maka :
  • Panggil KoneksiDB
  • Jalnakan perintah (pilih dari Tbl_Admin, isi txt_UserID sebagai isi ID_User dan isi txt_Password sebagai isi Password )
  • Isi Lbl_User dengan data pada Level
  • Jalankan coding MasukUser dan
  • Saya Tertutup

4. Coding Saat Tombol "Batal" di Klik :

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If MsgBox("Aplikasi Akan di Tutup!", vbYesNo + vbCritical, "Informasi") = vbYes Then
            End
        ElseIf vbNo Then
            Form1.MasukUser()
        End If
    End Sub
End Class


Cara kerja coding :
  • Apabila tombol “Batal” di klik maka :
  • Tampil kotak pesan YesNo, isi pesan “Aplikasi akan di Tutup”, tipe pesan Critikalm, isi header pesan “Informasi”, dan jika pengguna menklik tombol “Yes” maka Tutup aplikasi
  • Tapi jika pengguna mengklik tombol “No” jalankan coding Form1.MasukUser

Inilah contoh tiga kondisi aplikasi data penduduk.



Baiklah saya rasa cukup sekian postingan saya kali ini, saya juga sudah lelah banget, mohon maaf jika ada kekurangan, selamat mencoba dan semoga sukses selalu.

Nantikan postingan saya selanjutnya.

  • Cara membuat dan mendisain form input data penduduk di Vb.Net 2010 - 2019
  • Cara membuat tombol Tambah, Ubah dan Simpan data dengan Vb.Net 2010 - 2019


Location: Sungai Toman, Mendahara Ulu, Kabupaten Tanjung Jabung Timur, Jambi, Indonesia

Comments

  1. UnknownJuly 18, 2020 12:32 AM

    saya mendapat error seperti ini gan = Object reference not set to an instance of an object.

    masalah dimana nya ya ?

    ReplyDelete

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

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

Image
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, pe rtama – 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
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

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