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


Comments

Popular posts from this blog

Cara Membuat Aplikasi Kasir Dengan Microsoft Excel

Cara Membuat Menu Utama dan Form Login 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