Public Class frmUsers

    Dim db As New Objects.Db
    Dim p As New Persist
    Dim user As New User
    Public add As Boolean = False 'is in adding mode?

    Private Sub btnMenu_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnMenu.Click
        Me.Hide()
        frmMenu.Show()
        frmMenu.Focus()
    End Sub

    Private Sub frmUsers_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        frmMenu.Show()
        frmMenu.Focus()
    End Sub

    Private Sub btnUser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUser.Click
        Dim oldUsername As String = user.Username
        user = p.GetObject(db.SQLSelect("Users", New Collection, "Username = '" & txtUsername.Text & "'"), New User)

        If (user.Username <> "") Then 'record found
            txtFirstName.Text = user.FirstName
            txtSurname.Text = user.Surname
            txtPassword.Text = user.Password
            txtComments.Text = user.Comments
            cboUserLevel.SelectedIndex = user.AccessLevel - 1
            UpdateUserObject()
            ToggleReadOnly(False)
        Else
            MsgBox("Error. Could not find user: ''" & txtUsername.Text & "''", MsgBoxStyle.Exclamation, "Error")
            txtUsername.Text = oldUsername
        End If

    End Sub

    Private Sub UpdateUserObject()
        user.Username = txtUsername.Text
        user.FirstName = txtFirstName.Text
        user.Surname = txtSurname.Text
        user.Password = txtPassword.Text
        user.Comments = txtComments.Text
        user.AccessLevel = cboUserLevel.SelectedIndex + 1
    End Sub

    Private Sub ClearInput()
        txtUsername.Text = ""
        txtComments.Text = ""
        txtFirstName.Text = ""
        txtSurname.Text = ""
        txtPassword.Text = ""
        cboUserLevel.Text = ""
    End Sub

    Private Sub ToggleReadOnly(ByVal isReadOnly As Boolean)
        txtComments.ReadOnly = isReadOnly

        If (isReadOnly) Then
            txtComments.BackColor = Color.Gray
        Else
            txtComments.BackColor = Color.White
        End If

        txtFirstName.ReadOnly = isReadOnly
        txtSurname.ReadOnly = isReadOnly
        txtPassword.ReadOnly = isReadOnly
        cboUserLevel.Enabled = Not isReadOnly
    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

        If Not (add) Then 'editing
            If (user.Username <> "") Then
                UpdateUserObject()
                p.UpdateObject(user)

                If (user.Username = frmLogin.user.Username) Then 'edited current user
                    frmLogin.user = user 'get updated user details
                End If
            End If
        Else 'adding
            UpdateUserObject()
            p.AddObject(user)

            'normal mode
            btnUser.Enabled = True
            btnDelete.Enabled = True
            add = False
        End If

    End Sub

    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        Dim result As MsgBoxResult = MsgBox("Are you sure you want to delete this record?", MsgBoxStyle.YesNo, "Caution")
        If (result = MsgBoxResult.Yes) Then
            UpdateUserObject()
            p.DeleteObject(user)
            ToggleReadOnly(True)
            ClearInput()
        End If
    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        ClearInput()
        btnUser.Enabled = False
        btnDelete.Enabled = False
        add = True
        ToggleReadOnly(False)
    End Sub
End Class