CARA MEMBUAT LOGIN DENGAN BEDA HAK AKSES PADA VB.NET DARI SISTEM PENJUALAN

HALO SEMUANYA DISNI SAYA AKAN MEMBERIKAN TUTORIAL MEMBUAT LOGIN SESUAI HAK AKSES YANG ADA PADA DATABASE

ADAPUN  PERSIAPAN YANG HARUS DIINSTAL DALAM PEMBUATAN SISTEM INI YAITU
CRISTAL REPORT 
XAMPP
MYSQL ODBC

DAN BERIKUT ADALAH ISI PADA TABEL ADMIN
KARENA KITA AKAN MENGGUNAKAN UNTUK LOGIN DI SISTEM

SETELAH ITU MEMBUAT MODUL PADA APLIKASI YANG SUDAH DIBUAT DAN KETIKAN KODE BERIKUT INI

Imports System.Data.Odbc
Module Module1
    Public conn As odbcConnection
    Public da As odbcDataAdapter
    Public ds As DataSet
    Public cmd As odbcCommand
    Public dr As OdbcDataReader
    Public AdvncSrch As Integer = 0
    Public Sub koneksi()
        conn = New OdbcConnection("dsn=inventori_rini")
        conn.Open()
    End Sub
End Module








SETELAH MEMBUAT MODUL SELANJUTNYA MEMBUAT CONNECTION PADA OBBC
DENGAN CARA CARI ODBC DI PENCARIAN KEMUDIAN KLIK ODBC

MAKA AKAN MUNCUL GAMBAR BERIKUT

KEMUDIAN CARI MYSQL ODBC 3.5.1 DRIVER

SETELAH ITU BUATLAH CONNECSINYA SESUAI DSN YANG ADA DI MODULE

KEMUDIAN KLIK OK UNTUK MENTES APAKAH CONNECTION SUDAH BENAR ATAU BELUM
SETELAH ITU MEMBUAT FORM LOGIN

 

 KEMUDIAN KLIK PADA FORM LOGIN  DAN ISIKAN KODE BERIKUT

Imports System.Data.Odbc
Public Class FormLogin
    Private Sub FormLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If txtuser.Text = "" Then
            MsgBox("Username belum diisi!!!", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Informasi")
            txtuser.Focus()
        ElseIf txtPass.Text = "" Then
            MsgBox("Password belum diisi!!!", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Informasi")
            txtPass.Focus()
        End If
        Call koneksi()
        cmd = New OdbcCommand("select * from tbl_admin where username='" & txtuser.Text & "' and password='" & txtPass.Text & "'", conn)
        dr = cmd.ExecuteReader
        dr.Read()
        If Not dr.HasRows Then
            MessageBox.Show("Gagal..!!", "Masukan Password dan Username Yang Benar", MessageBoxButtons.OK, MessageBoxIcon.Information)
            txtuser.Clear()
            txtPass.Clear()
            txtuser.Focus()
        End If
        If dr.HasRows Then
            If dr.Item("hak_akses").ToString = "admin" Then

                MenuUtama.Show()
                txtuser.Clear()
                txtPass.Clear()
                MenuUtama.Focus()
                FormPenjualan.TextBox1.Text = dr.Item("id_admin")
                dr.Close()
            ElseIf dr.Item("hak_akses").ToString = "super_admin" Then
                SuperAdmin.Label3.Text = dr.Item("hak_akses")
                SuperAdmin.Show()
                txtuser.Clear()
                txtPass.Clear()
            End If
        Else
            MsgBox("username dan password tidak benar", MsgBoxStyle.Exclamation, "perhatian")
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

    End Sub
End Class

SEKIAN PENJELASAN DARI SAYA MENGENAI MEMBUAT LOGIN DI SISTEM PENJUALAN THANK SUDAH BERKUNJUNG
JIKA ADA YANG BELUM JELAS BISA DITANYAKAN DI KOLOM KOMENTAR
THANKS




https://youtu.be/kBinC7gATgE