Imports MySql.Data.MySqlClient

Public Class login
    Dim myconn As New MySqlConnection("Server=" + My.Settings.databasehost + ";User Id=" + My.Settings.databaseid + ";Password=" + My.Settings.databasepass + ";Database=" + My.Settings.database)

    Private Sub login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            myconn.Open()

            ToolStripStatusLabel1.Text = "Connection to database was successful"
            myconn.Close()

        Catch ex As Exception
            MessageBox.Show(ex.Message)
            ToolStripStatusLabel1.Text = "Connection to database failed"


        End Try

    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Application.Exit()

    End Sub

    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        Try
            If txtUsername.Text = "" Or txtPassword.Text = "" Then
                MsgBox("Please enter a username/password")
            Else
                Dim myAdapter As New MySqlDataAdapter("SELECT * FROM users WHERE username= " & txtUsername.Text, myconn)
                Dim myDataTable As New DataTable
                myAdapter.Fill(myDataTable)
                If myDataTable.Rows.Count > 0 Then
                    If txtUsername.Text = myDataTable.Rows(0).Item("username") And txtPassword.Text = myDataTable.Rows(0).Item("password") Then
                        MsgBox("Good day " + myDataTable.Rows(0).Item("fname"))
                        Me.Close()
                        Form1.Enabled = True

                    Else
                        MsgBox("Incorrect Username/Password")
                    End If
                End If
            End If

        Catch ex As Exception
            MessageBox.Show(ex.Message)

        End Try
            End Sub
End Class