' This is a comment
Imports System.Data
Imports Microsoft.Win32
Public Class SignUp
    Dim cmd As New OleDb.OleDbCommand
    Dim da3 As New OleDb.OleDbDataAdapter
    Dim result As Integer
    Dim imgpath As String
    Dim arrImage() As Byte
    Dim sql As String
    Dim fileUri As Uri




    Private Sub BtnSignUp_Click(sender As Object, e As RoutedEventArgs) Handles btnSignUp.Click
        Dim ds As New NEADataSet
        Dim da As New NEADataSetTableAdapters.User_DetailsTableAdapter
        Dim dt As New NEADataSet.User_DetailsDataTable
        Dim dr As NEADataSet.User_DetailsRow
        Dim ds2 As New NEADataSet
        Dim da2 As New NEADataSetTableAdapters.UsersTableAdapter
        Dim dt2 As New NEADataSet.UsersDataTable
        Dim dr2 As NEADataSet.UsersRow
        Dim ID As Integer
        Dim CardNum As Integer
        CardNum = CInt(txtCardNum.Text)
        Dim CVC As Integer
        CVC = CInt(txtCVC.Text)

        dr = dt.NewRow()
        dr.Item("FirstName") = txtFirstName.Text
        dr.Item("LastName") = txtLastName.Text
        dr.Item("AddressLine1") = txtAddress.Text
        dr.Item("CVC") = CVC
        dr.Item("CardNumber") = CardNum
        dr.Item("Email") = txtEmail.Text
        dr.Item("IGN") = txtIGN.Text
        dr.Item("Postcode") = txtPostcode.Text
        dr.Item("Town") = txtTown.Text






        dt.AddUser_DetailsRow(dr)
        da.Update(dt)

        MsgBox("Your data has been successfully added")
        da.Fill(dt)

        Dim Q As String = "[FirstName] =  '" & txtFirstName.Text & "'"
        Dim result() As NEADataSet.User_DetailsRow = dt.Select(Q)

        ID = result(0).UserDetailsID
        MsgBox(ID)

        dr2 = dt2.NewRow()
        dr2.Item("User_DetailsID") = ID
        dr2.Item("Username") = txtUsername.Text
        dr2.Item("Password") = txtPassword.Text

        dt2.AddUsersRow(dr2)
        da2.Update(dt2)

        txtFirstName.Text = "First Name"
        txtLastName.Text = "Last Name"
        txtAddress.Text = "Address Line 1"
        txtCardNum.Text = "Card Number"
        txtCVC.Text = "CVC"
        txtEmail.Text = "Email"
        txtIGN.Text = "In Game Name"
        txtPostcode.Text = "Postcode"
        txtTown.Text = "Town/City"
        txtUsername.Text = "Username"
        txtPassword.Text = "Password"

        dt.Dispose()
        da.Dispose()
    End Sub

    Private Sub Btnbrowse_Click(sender As Object, e As RoutedEventArgs) Handles btnbrowse.Click
        Try
            Dim OFD As FileDialog = New OpenFileDialog()

            OFD.Filter = "Image File (*.jpg;*.bmp;*.gif)|*.jpg;*.bmp;*.gif"

            OFD.ShowDialog()

            imgpath = OFD.FileName
            fileUri = New Uri(OFD.FileName)
            ProfilePic.Source = New BitmapImage(fileUri)

            OFD = Nothing

        Catch ex As Exception
            MsgBox(ex.Message.ToString())
        End Try
    End Sub

    '    Private Sub txtIGN_LostFocus(sender As Object, e As RoutedEventArgs) Handles txtIGN.LostFocus
    '   If txtIGN.Text <> "In Game Name" Then
    '          lblIGN.Content = txtIGN
    ' End If
    'End Sub
End Class