Public Class frmLogin
    Dim temp As Integer
    Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        connect()



        connect()
    End Sub

    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click


        sqlstring = "SELECT * FROM Account WHERE accountUsername = '" & txtUser.Text & "' and accountPassword = '" & txtPass.Text & "'"
        sqlcmd.CommandText = sqlstring
        sqlcmd.Connection = sqlconn
        sqldr = sqlcmd.ExecuteReader()

        sqldr.Read()
        If sqldr.HasRows Then
            MsgBox(" Account exists. Logging in... ")
            frmPayroll.Show()


        Else
            MsgBox(" Account doesn't exist. ")


        End If

        sqldr.Close()


    End Sub

    Private Sub btnRegister_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegister.Click

        sqlstring = "SELECT * FROM Account WHERE accountUsername = '" & txtUser.Text & "'"
        sqlcmd.CommandText = sqlstring
        sqlcmd.Connection = sqlconn

        sqldr = sqlcmd.ExecuteReader()

        sqldr.Read()


            If sqldr.HasRows Then
            temp = 2
            Else

            temp = 1


            End If

        sqldr.Close()
        If temp = 1 Then

            sqlstring = "INSERT INTO Account (accountUsername,accountPassword) VALUES ('" & txtUser.Text & "','" & txtPass.Text & "')"
            sqlcmd.CommandText = sqlstring
            sqlcmd.Connection = sqlconn

            sqlcmd.ExecuteNonQuery()

            MsgBox("Account Registered")
        Else
            MsgBox("Account already exists. Try another.")
            MsgBox(sqldr.Item(1))
        End If


    End Sub
End Class