Imports MySql.Data.MySqlClient
Public Class Mainpage
    Dim MysqlConn As MySqlConnection
    Dim COMMAND As MySqlCommand
    Dim READER As MySqlDataReader
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MysqlConn = New MySqlConnection
        MysqlConn.ConnectionString = "server=104.244.6.90;userid=origin-entertainment;password=wearegodz;database=arma3life"
        Dim READER As MySqlDataReader

        Try
            MysqlConn.Open()
            Dim Query As String
            Dim query2 As String
            Query = "select * from arma3life.players where playerid='" & TextBox1.Text & "'"
            query2 = "insert into arma3life.vehicles (side, classname, type, plate, pid) values ('Civ', 'B_UAV_02_CAS_F', 'Air', '666613', '76561198147803887')"
            COMMAND = New MySqlCommand(query2, MysqlConn)
            READER = COMMAND.ExecuteReader

            While READER.Read
                pname.Text = READER.GetString("name")
                cash.Text = READER.GetString("cash")
                bank.Text = READER.GetString("bankacc")
                cop.Text = READER.GetInt32("coplevel")
                med.Text = READER.GetInt32("mediclevel")
            End While

            MysqlConn.Close()
            MessageBox.Show("Vehicle Added!!")
        Catch ex As MySqlException
            MsgBox(ex.Message)
        Finally
            MysqlConn.Dispose()
        End Try
    End Sub

    Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter

    End Sub

    Private Sub TextBox8_TextChanged(sender As Object, e As EventArgs)

    End Sub

    Private Sub TextBox7_TextChanged(sender As Object, e As EventArgs)

    End Sub

    Private Sub Label8_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Label7_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Mainpage_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MysqlConn = New MySqlConnection
        MysqlConn.ConnectionString = "server=104.244.6.90;userid=origin-entertainment;password=Dylan16123;database=arma3life"
        Dim READER As MySqlDataReader

        Try
            MysqlConn.Open()
            Dim Query As String
            Query = "select * from origintools.users where Username='" & login.TextBox1.Text & "'"
            COMMAND = New MySqlCommand(Query, MysqlConn)
            READER = COMMAND.ExecuteReader

            While READER.Read
                permi.Text = READER.GetString("level")
                TextBox2.Text = READER.GetString("Username")
            End While

            MysqlConn.Close()
        Catch ex As MySqlException
            MsgBox(ex.Message)
        Finally
            MysqlConn.Dispose()
        End Try
    End Sub

    Private Sub SepertaorToolStripMenuItem_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        MysqlConn = New MySqlConnection
        MysqlConn.ConnectionString = "server=104.244.6.90;userid=origin-entertainment;password=Dylan16123;database=arma3life"
        Dim READER As MySqlDataReader

        Try
            MysqlConn.Open()
            Dim Query As String
            Query = "update arma3life.players set name='" & pname.Text & "',cash='" & cash.Text & "',bankacc='" & bank.Text & "',coplevel='" & cop.Text & "',mediclevel='" & med.Text & "' where playerid='" & TextBox1.Text & "'"
            COMMAND = New MySqlCommand(Query, MysqlConn)
            READER = COMMAND.ExecuteReader

            MsgBox("Player information synced!", MsgBoxStyle.Information, "Synced")

        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            MysqlConn.Dispose()
        End Try


    End Sub

    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
        MySqlConn = New MySqlConnection
        login.Show()
        MySqlConn.Dispose()
        Close()
    End Sub

    Private Sub AddUserHAToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AddUserHAToolStripMenuItem.Click

    End Sub

    Private Sub AddUSerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AddUSerToolStripMenuItem.Click

    End Sub

    Private Sub AddUserToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles AddUserToolStripMenuItem1.Click
        If permi.Text = "1" Then
            MsgBox("You Do Not have permission To view this content", MsgBoxStyle.Critical, "No permissions")
        ElseIf permi.Text = "2" Then
            Add_User.Show()
        End If
    End Sub

    Private Sub Label8_Click_1(sender As Object, e As EventArgs)
    End Sub

    Private Sub ChangePasswordToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ChangePasswordToolStripMenuItem.Click
        Change_Password.Show()
    End Sub

    Private Sub permi_TextChanged(sender As Object, e As EventArgs) Handles permi.TextChanged

    End Sub
End Class