Dim UsrAces As Integer = 1
Dim Usr1Aces As Integer = 2
Dim Usr2Aces As Integer = 3
Dim Usr3Aces As Integer = 4
Dim Usr4Aces As Integer = 5
Dim Usr5Aces As Integer = 6
Dim Usr6Aces As Integer = 7
Dim Usr7Aces As Integer = 8
Dim Usr8Aces As Integer = 9




CurUser =  usernameTextBox.Text
unhashpass = Me.PasswordTextBox.Text.ToLower
hashpass = GenerateHash(unhashpass)



Dim loginCase As Boolean = True
        Select Case loginCase
            Case (UsernameTextBox.Text = "") = True Or (PasswordTextBox.Text = "") = True
                MsgBox("الرجاء التأكد من كتابة الاسم و كلمة المرور")
                UsernameTextBox.Focus()

            Case (UsernameTextBox.Text <> "") = True And (PasswordTextBox.Text <> "") = True And CheckBox1.Checked = True
                Dim connt As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;data source=data\sticker.mdb")
                Dim comd As OleDbCommand = New OleDbCommand("SELECT * FROM tblEmployees WHERE strEmpName = '" & UsernameTextBox.Text & "' AND strEmpPassword = '" & hashpass & "' AND strUsrActStatus = ? ", connt)
                comd.Parameters.Add(New OleDbParameter("strUsrActStatus", UsrStatus))
                connt.Open()
                Dim UsrValidation As OleDbDataReader = comd.ExecuteReader()
                If (UsrValidation.Read() = True) Then
                    connt.Close()
                    PassChng.Show()
                    Me.Hide()
                Else
                    MsgBox("تأكد من صحة اسم المستخدم و كلمة المرور و ان اسم المستخدم نشط")
                End If

            Case (UsernameTextBox.Text <> "") = True And (PasswordTextBox.Text <> "") = True And CheckBox1.Checked = False

                Dim con As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;data source=data\sticker.mdb")
                Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM tblEmployees WHERE strEmpName = '" & UsernameTextBox.Text & "' AND strEmpPassword = '" & hashpass & "' AND strUsrActStatus = ? AND strAccess = ? ", con)
                Dim cmd1 As OleDbCommand = New OleDbCommand("SELECT * FROM tblEmployees WHERE strEmpName = '" & UsernameTextBox.Text & "' AND strEmpPassword = '" & hashpass & "' AND strUsrActStatus = ? AND strAccess = ? ", con)
                Dim cmd2 As OleDbCommand = New OleDbCommand("SELECT * FROM tblEmployees WHERE strEmpName = '" & UsernameTextBox.Text & "' AND strEmpPassword = '" & hashpass & "' AND strUsrActStatus = ? AND strAccess = ? ", con)
                Dim cmd3 As OleDbCommand = New OleDbCommand("SELECT * FROM tblEmployees WHERE strEmpName = '" & UsernameTextBox.Text & "' AND strEmpPassword = '" & hashpass & "' AND strUsrActStatus = ? AND strAccess = ? ", con)
                Dim cmd4 As OleDbCommand = New OleDbCommand("SELECT * FROM tblEmployees WHERE strEmpName = '" & UsernameTextBox.Text & "' AND strEmpPassword = '" & hashpass & "' AND strUsrActStatus = ? AND strAccess = ? ", con)
                Dim cmd5 As OleDbCommand = New OleDbCommand("SELECT * FROM tblEmployees WHERE strEmpName = '" & UsernameTextBox.Text & "' AND strEmpPassword = '" & hashpass & "' AND strUsrActStatus = ? AND strAccess = ? ", con)
                Dim cmd6 As OleDbCommand = New OleDbCommand("SELECT * FROM tblEmployees WHERE strEmpName = '" & UsernameTextBox.Text & "' AND strEmpPassword = '" & hashpass & "' AND strUsrActStatus = ? AND strAccess = ? ", con)
                Dim cmd7 As OleDbCommand = New OleDbCommand("SELECT * FROM tblEmployees WHERE strEmpName = '" & UsernameTextBox.Text & "' AND strEmpPassword = '" & hashpass & "' AND strUsrActStatus = ? AND strAccess = ? ", con)
                Dim cmd8 As OleDbCommand = New OleDbCommand("SELECT * FROM tblEmployees WHERE strEmpName = '" & UsernameTextBox.Text & "' AND strEmpPassword = '" & hashpass & "' AND strUsrActStatus = ? AND strAccess = ? ", con)
                Dim cmd9 As OleDbCommand = New OleDbCommand("SELECT * FROM tblEmployees WHERE strEmpName = '" & UsernameTextBox.Text & "' AND strEmpPassword = '" & hashpass & "' AND strUsrActStatus = ?  ", con)


                cmd.Parameters.Add(New OleDbParameter("strUsrActStatus", UsrStatus))
                cmd.Parameters.Add(New OleDbParameter("strAccess", UsrAces))

                cmd1.Parameters.Add(New OleDbParameter("strUsrActStatus", UsrStatus))
                cmd1.Parameters.Add(New OleDbParameter("strAccess", Usr1Aces))

                cmd2.Parameters.Add(New OleDbParameter("strUsrActStatus", UsrStatus))
                cmd2.Parameters.Add(New OleDbParameter("strAccess", Usr2Aces))

                cmd3.Parameters.Add(New OleDbParameter("strUsrActStatus", UsrStatus))
                cmd3.Parameters.Add(New OleDbParameter("strAccess", Usr3Aces))

                cmd4.Parameters.Add(New OleDbParameter("strUsrActStatus", UsrStatus))
                cmd4.Parameters.Add(New OleDbParameter("strAccess", Usr4Aces))

                cmd5.Parameters.Add(New OleDbParameter("strUsrActStatus", UsrStatus))
                cmd5.Parameters.Add(New OleDbParameter("strAccess", Usr5Aces))

                cmd6.Parameters.Add(New OleDbParameter("strUsrActStatus", UsrStatus))
                cmd6.Parameters.Add(New OleDbParameter("strAccess", Usr6Aces))

                cmd7.Parameters.Add(New OleDbParameter("strUsrActStatus", UsrStatus))
                cmd7.Parameters.Add(New OleDbParameter("strAccess", Usr7Aces))

                cmd8.Parameters.Add(New OleDbParameter("strUsrActStatus", UsrStatus))
                cmd8.Parameters.Add(New OleDbParameter("strAccess", Usr8Aces))

                cmd9.Parameters.Add(New OleDbParameter("strUsrActStatus", Usr1Status))

                con.Open()

                Dim UsrValid As OleDbDataReader = cmd.ExecuteReader()
                Dim Usr1Valid As OleDbDataReader = cmd1.ExecuteReader()
                Dim Usr2Valid As OleDbDataReader = cmd2.ExecuteReader()
                Dim Usr3Valid As OleDbDataReader = cmd3.ExecuteReader()
                Dim Usr4Valid As OleDbDataReader = cmd4.ExecuteReader()
                Dim Usr5Valid As OleDbDataReader = cmd5.ExecuteReader()
                Dim Usr6Valid As OleDbDataReader = cmd6.ExecuteReader()
                Dim Usr7Valid As OleDbDataReader = cmd7.ExecuteReader()
                Dim Usr8Valid As OleDbDataReader = cmd8.ExecuteReader()
                Dim Usr9Valid As OleDbDataReader = cmd9.ExecuteReader()


                Dim validat As Boolean = True
                Select Case validat
                    Case UsrValid.Read() = True
                        UsrMenu = 1
                        con.Close()
                        mdipar.Show()
                        Me.Hide()

                    Case Usr1Valid.Read() = True
                        con.Close()
                        UsrMenu = 2
                        mdipar.Show()
                        Me.Hide()

                    Case Usr2Valid.Read() = True
                        con.Close()
                        UsrMenu = 3
                        mdipar.Show()
                        Me.Hide()

                    Case Usr3Valid.Read() = True
                        con.Close()
                        UsrMenu = 4
                        mdipar.Show()
                        Me.Hide()

                    Case Usr4Valid.Read() = True
                        con.Close()
                        UsrMenu = 5
                        mdipar.Show()
                        Me.Hide()

                    Case Usr5Valid.Read() = True
                        con.Close()
                        UsrMenu = 6
                        mdipar.Show()
                        Me.Hide()

                    Case Usr6Valid.Read() = True
                        con.Close()
                        UsrMenu = 7
                        mdipar.Show()
                        Me.Hide()

                    Case Usr7Valid.Read() = True
                        con.Close()
                        UsrMenu = 8
                        mdipar.Show()
                        Me.Hide()

                    Case Usr8Valid.Read() = True
                        con.Close()
                        UsrMenu = 9
                        mdipar.Show()
                        Me.Hide()

                    Case Usr9Valid.Read() = True
                        MessageBox.Show("UnActive User!")
                        con.Close()

                    Case MessageBox.Show("Invalid username or password!")
                        con.Close()

                        EntTries = EntTries + 1
                        If EntTries = 3 Then
                            Dim conn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;data source=data\sticker.mdb")
                            Dim cmd10 As OleDbCommand = New OleDbCommand("UPDATE tblEmployees SET strUsrActStatus='" & Usr1Status & "' WHERE strEmpName = '" & Me.UsernameTextBox.Text & "' ", conn)
                            cmd.Parameters.Add(New OleDbParameter("strEmpName", Me.UsernameTextBox.Text))

                            Try
                                Me.Validate()
                                conn.Open()
                                cmd10.ExecuteNonQuery()
                                conn.Close()
                                cmd10.Dispose()
                            Catch ex As Exception
                                MsgBox("An exception occurred:" & vbCrLf & ex.Message)
                            End Try
                            Me.Close()
                        End If
                End Select
        End Select