Membuat login dengan database access

Langkah 1 : siapkan database nya , seperti berikut ini

 

Langkah 2 : Membuat form Login menggunakan vbnet 2010 , formnya seperti berikut

Langkah 3 : membuat form mainform , designnya seperti berikut

 

Langkah 4 : Membuat form Manager User , designnya seperti berikut 

tuliskan koding ini pada form Login
Public Class Frmlogin
    Dim conString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\ΔTugas KampusΔ\©SEMESTER 4©\PEMROGRAMAN VISUAL II\BarangBarcode\BarangBarcode\bin\Debug\barcode.accdb"

    Dim kon As New OleDb.OleDbConnection(ConString)
    Dim cmd As New OleDb.OleDbCommand
    Dim dr As OleDb.OleDbDataReader
    Private Sub btCard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCard.Click
        txtcard.Focus()
    End Sub

    Private Sub txtpin_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtpin.TextChanged
        txtpin.Focus()
    End Sub

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Dim idcard As String = txtcard.Text.Trim
        Dim pin As String = txtpin.Text.Trim

        Dim sql As String = "SELECT*FROM Login " & _
                            "WHERE idKasir ='" & idcard & "' AND " & _
                            "pin='" & pin & "'"
        kon.Open()
        cmd.CommandText = sql
        cmd.Connection = kon
        dr = cmd.ExecuteReader
        Dim nama As String = Nothing
        Dim user As Byte = 0


        If dr.HasRows Then
            While dr.Read

                nama = dr.Item("nama").ToString.Trim
                user = dr.Item(3).ToString
            End While

            Mainform.Show()
            Mainform.btnpos.Enabled = False
            Mainform.btnReport.Enabled = False
            Mainform.btnmanager.Enabled = False

            Select Case user
                Case 0
                    Mainform.btnmanager.Enabled = True
                Case 1
                    Mainform.btnpos.Enabled = True
                Case 2
                    Mainform.btnReport.Enabled = True

            End Select
            Mainform.lbllogged.Text = "Log in as : " & nama
            Mainform.lbltime.Text = "Time Log in : " & Now


            Me.Close()


        Else
            MsgBox("Your card or pin is incalid, please try again !")

        End If
        kon.Close()
    End Sub

    Private Sub Frmlogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Setelah itu Ketikan koding ini pada form mainform
Private Sub btnmanager_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmanager.Click
        manageruser.ShowDialog()
    End Sub
Setelah itu ketikan koding ini pada form MenuUser
Public Class manageruser

    Dim conString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\ΔTugas KampusΔ\©SEMESTER 4©\PEMROGRAMAN VISUAL II\BarangBarcode\BarangBarcode\bin\Debug\barcode.accdb"

    Dim kon As New OleDb.OleDbConnection(conString)
    Dim cmd As New OleDb.OleDbCommand
    Dim dr As OleDb.OleDbDataReader



    Private Sub lblclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblclose.Click
        Me.Close()

    End Sub

    Private Sub btnback_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnback.Click
        Me.Close()

    End Sub
    Private Sub simpanuser()
        Dim sql As String = "INSERT INTO login VALUES('" & _
            txtuser.Text.Trim & "', '" & _
            txtname.Text.Trim & "','" & _
            txtpin.Text.Trim & "','" & _
            cmbprivilages.SelectedIndex & "')"
        kon.Open()
        cmd.CommandText = sql
        cmd.Connection = kon
        cmd.ExecuteNonQuery()
        kon.Close()
        Call bersih()



    End Sub
    Private Sub bersih()
        txtuser.Clear()
        txtname.Clear()
        txtpin.Clear()
        cmbprivilages.SelectedIndex = 0


    End Sub
    Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
        Call simpanuser()

    End Sub

    Private Sub manageruser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cmbprivilages.Items.AddRange({"Power User ", " Kasir", "User"})



    End Sub

    Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click

        Dim sql As String = "UPDATE  login SET nama('" & _
           txtuser.Text.Trim & "', '" & _
           txtname.Text.Trim & "','" & _
           txtpin.Text.Trim & "','" & _
           cmbprivilages.SelectedIndex & "')"
       kon.Open()
        cmd.CommandText = sql
        cmd.Connection = kon
        cmd.ExecuteNonQuery()
        kon.Close()
        Call bersih()



    End Sub

    Private Sub btndelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndelete.Click
        Dim sqlquery As New OleDb.OleDbCommand
        sqlquery.Connection = kon
        sqlquery.CommandType = CommandType.Text
        sqlquery.CommandText = "Delete from Login where idKasir  = '" &
        txtuser.Text & "'"
        sqlquery.ExecuteNonQuery()
        MsgBox("Data Dihapus")
        Call bersih()



    End Sub

    Private Sub cmbprivilages_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbprivilages.SelectedIndexChanged

    End Sub

    Private Sub txtuser_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtuser.TextChanged

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub
End Class