NEA/SignUp.xaml.vb

   1 ' This is a comment
   2 Imports System.Data
   3 Imports System.Drawing
   4 Imports System.IO
   5 Imports Microsoft.Win32
   6
   7 Public Class SignUp
   8     Dim cmd As New OleDb.OleDbCommand
   9     Dim da3 As New OleDb.OleDbDataAdapter
  10     Dim result As Integer
  11     Dim imgpath As String
  12     Dim arrImage() As Byte
  13     Dim sql As String
  14     Dim fileUri As Uri
  15
  16
  17
  18
  19     Private Sub BtnSignUp_Click(sender As Object, e As RoutedEventArgs) Handles btnSignUp.Click
  20         Dim ds As New NEADataSet
  21         Dim da As New NEADataSetTableAdapters.User_DetailsTableAdapter
  22         Dim dt As New NEADataSet.User_DetailsDataTable
  23         Dim dr As NEADataSet.User_DetailsRow
  24         Dim ds2 As New NEADataSet
  25         Dim da2 As New NEADataSetTableAdapters.UsersTableAdapter
  26         Dim dt2 As New NEADataSet.UsersDataTable
  27         Dim dr2 As NEADataSet.UsersRow
  28         Dim ID As Integer
  29         Dim CardNum As Integer
  30
  31         CardNum = CInt(txtCardNum.Text)
  32         Dim CVC As Integer
  33         CVC = CInt(txtCVC.Text)
  34
  35         dr = dt.NewUser_DetailsRow()
  36         dr.Item("FirstName") = txtFirstName.Text
  37         dr.Item("LastName") = txtLastName.Text
  38         dr.Item("AddressLine1") = txtAddress.Text
  39         dr.Item("CVC") = CVC
  40         dr.Item("CardNumber") = CardNum
  41         dr.Item("Email") = txtEmail.Text
  42         dr.Item("IGN") = txtIGN.Text
  43         dr.Item("Postcode") = txtPostcode.Text
  44         dr.Item("Town") = txtTown.Text
  45
  46         If imgpath <> "" Then
  47             Dim img As Image = Image.FromFile(imgpath)
  48             Dim bArr As Byte() = imgToByteArray(img)
  49             '   da.InsertQuery(txtFirstName.Text, txtLastName.Text, txtAddress.Text, txtTown.Text, txtPostcode.Text, CardNum, CVC, txtIGN.Text, txtEmail.Text, bArr)
  50             dr.Item("ProfilePic") = bArr
  51         End If
  52         '
  53         dt.AddUser_DetailsRow(dr)
  54         da.Update(dt)
  55         MsgBox("Your data has been successfully added")
  56
  57         da.Fill(dt)
  58         Dim Q As String = "[FirstName] =  '" & txtFirstName.Text & "'"
  59         Dim result() As NEADataSet.User_DetailsRow = dt.Select(Q)
  60
  61         ID = result(0).UserDetailsID
  62         MsgBox(ID)
  63
  64         dr2 = dt2.NewRow()
  65         dr2.Item("User_DetailsID") = ID
  66         dr2.Item("Username") = txtUsername.Text
  67         dr2.Item("Password") = txtPassword.Text
  68
  69
  70
  71
  72         dt2.AddUsersRow(dr2)
  73         da2.Update(dt2)
  74
  75         txtFirstName.Text = "First Name"
  76         txtLastName.Text = "Last Name"
  77         txtAddress.Text = "Address Line 1"
  78         txtCardNum.Text = "Card Number"
  79         txtCVC.Text = "CVC"
  80         txtEmail.Text = "Email"
  81         txtIGN.Text = "In Game Name"
  82         txtPostcode.Text = "Postcode"
  83         txtTown.Text = "Town/City"
  84         txtUsername.Text = "Username"
  85         txtPassword.Text = "Password"
  86
  87         dt.Dispose()
  88         da.Dispose()
  89     End Sub
  90
  91     Private Sub Btnbrowse_Click(sender As Object, e As RoutedEventArgs) Handles btnbrowse.Click
  92         Try
  93             Dim OFD As FileDialog = New OpenFileDialog()
  94
  95             OFD.Filter = "Image File (*.jpg;*.bmp;*.gif)|*.jpg;*.bmp;*.gif"
  96
  97             OFD.ShowDialog()
  98
  99             imgpath = OFD.FileName
 100             fileUri = New Uri(OFD.FileName)
 101             ProfilePic.Source = New BitmapImage(fileUri)
 102
 103
 104             OFD = Nothing
 105
 106         Catch ex As Exception
 107             MsgBox(ex.Message.ToString())
 108         End Try
 109     End Sub
 110
 111     '    Private Sub txtIGN_LostFocus(sender As Object, e As RoutedEventArgs) Handles txtIGN.LostFocus
 112     '   If txtIGN.Text <> "In Game Name" Then
 113     '          lblIGN.Content = txtIGN
 114     ' End If
 115     'End Sub
 116
 117     'convert image to bytearray
 118     Private Function imgToByteArray(ByVal img As Image) As Byte()
 119         Using mStream As New MemoryStream()
 120             img.Save(mStream, Imaging.ImageFormat.Jpeg)
 121             Return mStream.GetBuffer()
 122         End Using
 123     End Function
 124
 125 End Class