Langkah 4 : Membuat form Manager User , designnya seperti berikut
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
