Imports MySql.Data.MySqlClient
Public Class frmLogin
    Dim COMMAND As MySqlCommand
    Private Sub frmLogin_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnCheckConecao_Click(sender As Object, e As EventArgs) Handles btnCheckConecao.Click
        Dim Mysqlconn As MySqlConnection = New MySqlConnection("server=gigamaxx.com.br;Port=3306;Database=gigamaxx_vbnet;Uid=gigamaxx_vbuser;Pwd=aa197364;")

        Try
            Mysqlconn.Open()
            MessageBox.Show("Conectado ao servidor com sucesso!")

            Mysqlconn.Close()

        Catch ex As MySqlException
            MessageBox.Show(ex.Message)
        Finally
            Mysqlconn.Dispose()

        End Try

    End Sub

    Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
        Dim Mysqlconn As MySqlConnection = New MySqlConnection("server=gigamaxx.com.br;Port=3306;Database=gigamaxx_vbnet;Uid=gigamaxx_vbuser;Pwd=aa197364;")

        Dim Ler As MySqlDataReader

        Try
            Mysqlconn.Open()
            Dim Query As String
            Query = "SELECT * FROM gigamaxx_vbnet.usuarios WHERE Usuario='" & txtUsuario.Text & "' and Senha='" & txtSenha.Text & "'"
            COMMAND = New MySqlCommand(Query, Mysqlconn)
            Ler = COMMAND.ExecuteReader
            Dim count As Integer
            count = 0
            While Ler.Read
                count = count + 1
            End While

            If txtUsuario.Text = "" Or txtSenha.Text = "" Then
                MsgBox("Preencha os campos", MsgBoxStyle.Critical)
                txtUsuario.Focus()
            End If

            If count = 1 Then
                MessageBox.Show("Login feito com sucesso!")
                frmCadastroDoador.Show()
                Me.Hide()

            ElseIf count > 1 Then
                MessageBox.Show("Usuário e senha estão duplicados!")
            Else
                MessageBox.Show("Usuário ou senha incorretos, tente novamente.")
            End If
            txtUsuario.Text = ""
            txtSenha.Text = ""
            txtUsuario.Focus()


            Mysqlconn.Close()

        Catch ex As MySqlException
            MessageBox.Show(ex.Message)
        Finally
            Mysqlconn.Dispose()

        End Try

    End Sub

    Private Sub btnSair_Click(sender As Object, e As EventArgs) Handles btnSair.Click
        Close()
    End Sub
End Class