Public Class frmUser
    Private Sub frm_adduser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            cbo_type.Text = "Administrator"
            reloadDtg("Select USERID as 'ID' ,UNAME as 'Name',USER_NAME as 'Username',ROLE as 'Type' From tbluseraccount", dtg_listUser)
            'dtg_listUser.Columns(0).Visible = False


            txtuserid.Text = loadautonumberWithKey("USERID")


            btn_update.Enabled = False
            btn_delete.Enabled = False
            btn_saveuser.Enabled = True



        Catch ex As Exception
            ' MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub btn_close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_New.Click
        cleartext(Me)
        Call frm_adduser_Load(sender, e)

    End Sub

    Private Sub btn_saveuser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_saveuser.Click

        If txt_name.Text = "" Or txt_pass.Text = "" Or txt_username.Text = "" Then
            '   emptymessage()
        Else
            create("insert into tbluseraccount (USERID,UNAME,USER_NAME,UPASS,ROLE) " _
             & "values('" & txtuserid.Text & "','" & txt_name.Text & "','" & txt_username.Text _
             & "',sha1('" & txt_pass.Text & "'),'" & cbo_type.Text _
             & "')", "User", "User")
            ''''''''''''''''''''''''''''
            cleartext(Me)
            '---------------------------------------
            updateautonumberWithKey("USERID")
            '----------------------------------
            Call frm_adduser_Load(sender, e)

        End If

    End Sub

    Private Sub btn_update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_update.Click
        Try
            If txt_name.Text = "" Or txt_pass.Text = "" Or txt_username.Text = "" Then
                '  emptymessage()
            Else
                updates("update tbluseraccount set UNAME = '" & txt_name.Text & "',USER_NAME= '" & txt_username.Text _
                            & "',UPASS= sha1('" & txt_pass.Text & "'),ROLE= '" & cbo_type.Text _
                            & "' where USERID = " & txtuserid.Text, "User", "User")
                cleartext(Me)
                Call frm_adduser_Load(sender, e)
                '  cleartext(grp_user)
            End If
            btn_saveuser.Enabled = True
            btn_update.Enabled = False
            btn_delete.Enabled = False
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub
    Private Sub btn_delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_delete.Click
        Try
            deletes("delete from tbluseraccount where USERID = '" & dtg_listUser.CurrentRow.Cells(0).Value & "'", "User", "User")
            cleartext(Me)
            Call frm_adduser_Load(sender, e)
            '  cleartext(grp_user)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub dtg_listUser_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dtg_listUser.CellClick

    End Sub

    Private Sub dtg_listUser_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles dtg_listUser.Click
        btn_delete.Enabled = True
    End Sub

    Private Sub dtg_listUser_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dtg_listUser.DoubleClick
        Try
            With dtg_listUser.CurrentRow
                txtuserid.Text = .Cells(0).Value
                txt_name.Text = .Cells(1).Value
                txt_username.Text = .Cells(2).Value
                cbo_type.Text = .Cells(3).Value

                btn_saveuser.Enabled = False
                btn_update.Enabled = True
                btn_delete.Enabled = False
            End With
        Catch ex As Exception

        End Try
    End Sub



    Private Sub lbl_id_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbl_id.TextChanged
        Try
            If lbl_id.Text = "id" Then

                btn_update.Enabled = False
                btn_delete.Enabled = False
                btn_saveuser.Enabled = True

            Else
                btn_saveuser.Enabled = False
                btn_update.Enabled = True
                btn_delete.Enabled = True
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub txtsearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtsearch.TextChanged
        reloadDtg("Select USERID as 'ID' ,UNAME as 'Name',USER_NAME as 'Username',ROLE as 'Type' From tbluseraccount WHERE UNAME like '%" & txtsearch.Text & "%'", dtg_listUser)
        dtg_listUser.Columns(0).Visible = False
    End Sub

End Class
