VB.Net Access Login Dengan Level User

 

Di artikel sebelum nya yang saya buat hanya form login sederhana, di artikel kali ini ada sedikit tambahan, diantaranya :

1. Validasi jika username atau password kosong

2. Validasi berdasarkan Level user

Untuk form login masih bisa menggunakan form yang sebelum nya dibuat, karena hanya menambahkan sedikit codingan saja.

Untuk database access nya tambahkan id dan user level.

berikut codingan nya :

Public Class Form1

    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        'Validasi username kosong
        If String.IsNullOrEmpty(txtUsername.Text) Then
            MessageBox.Show("Username tidak boleh kosong", "Kesalahan", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txtUsername.Focus()
            'Validasi password kosong
        ElseIf String.IsNullOrEmpty(txtPassword.Text) Then
            MessageBox.Show("Password tidak boleh kosong", "Kesalahan", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txtPassword.Focus()
        Else

            'Jika username dan password terisi maka buat koneksi
            Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\users.accdb")

            'Membuka koneksi ke database
            conn.Open()

            'Membuat command untuk memeriksa data login pengguna di database
            Dim cmd As New OleDb.OleDbCommand("SELECT * FROM users WHERE username = @username AND password = @password", conn)

            'Mengisi parameter pada command
            cmd.Parameters.AddWithValue("@username", txtUsername.Text)
            cmd.Parameters.AddWithValue("@password", txtPassword.Text)

            'Menjalankan command dan menyimpan hasilnya dalam sebuah data reader
            Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader()
            If dr.HasRows Then
                'Membaca data pengguna
                dr.Read()

                'Memeriksa apakah pengguna memiliki hak akses yang sesuai
                If dr("userlvl") = "admin" Then
                    'Jika level pengguna adalah admin
                    MessageBox.Show("Level user anda adalah Admin", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

                ElseIf dr("userlvl") = "users" Then
                    'Jika level pengguna adalah pengguna User
                    MessageBox.Show("Level user anda adalah User", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Else
                'Jika data pengguna tidak ditemukan, tampilkan pesan kesalahan
                MessageBox.Show("Username atau Password salah!", "Kesalahan", MessageBoxButtons.OK, MessageBoxIcon.Error)
                txtUsername.Text = ""
                txtPassword.Text = ""
                txtUsername.Focus()

                'Menutup koneksi ke database
                dr.Close()
                cmd.Dispose()
                conn.Close()

            End If
        End If
    End Sub
End Class

Sekian Tutorial membuat Form Login menggunakan VB.Net Access dengan Level User.