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

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
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.
saya mendapat error seperti ini gan = Object reference not set to an instance of an object.
ReplyDeletemasalah dimana nya ya ?