NEA/SignUp.xaml.vb

   1
   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             dr.Item("ProfilePic") = bArr
  50         End If
  51
  52         dt.AddUser_DetailsRow(dr)
  53         da.Update(dt)
  54         MsgBox("Your data has been successfully added")
  55
  56         da.Fill(dt)
  57         Dim Q As String = "[FirstName] =  '" & txtFirstName.Text & "'"
  58         Dim result() As NEADataSet.User_DetailsRow = dt.Select(Q)
  59
  60         ID = result(0).UserDetailsID
  61         MsgBox(ID)
  62
  63         dr2 = dt2.NewRow()
  64         dr2.Item("User_DetailsID") = ID
  65         dr2.Item("Username") = txtUsername.Text
  66         dr2.Item("Password") = txtPassword.Text
  67
  68
  69
  70
  71         dt2.AddUsersRow(dr2)
  72         da2.Update(dt2)
  73
  74         txtFirstName.Text = "First Name"
  75         txtLastName.Text = "Last Name"
  76         txtAddress.Text = "Address Line 1"
  77         txtCardNum.Text = "Card Number"
  78         txtCVC.Text = "CVC"
  79         txtEmail.Text = "Email"
  80         txtIGN.Text = "In Game Name"
  81         txtPostcode.Text = "Postcode"
  82         txtTown.Text = "Town/City"
  83         txtUsername.Text = "Username"
  84         txtPassword.Text = "Password"
  85
  86         dt.Dispose()
  87         da.Dispose()
  88     End Sub
  89
  90     Private Sub Btnbrowse_Click(sender As Object, e As RoutedEventArgs) Handles btnbrowse.Click
  91         Try
  92             Dim OFD As FileDialog = New OpenFileDialog()
  93
  94             OFD.Filter = "Image File (*.jpg;*.bmp;*.gif)|*.jpg;*.bmp;*.gif"
  95
  96             OFD.ShowDialog()
  97
  98             imgpath = OFD.FileName
  99             fileUri = New Uri(OFD.FileName)
 100             ProfilePic.Source = New BitmapImage(fileUri)
 101
 102
 103             OFD = Nothing
 104
 105         Catch ex As Exception
 106             MsgBox(ex.Message.ToString())
 107         End Try
 108     End Sub
 109     Private Function imgToByteArray(ByVal img As Image) As Byte()
 110         Using mStream As New MemoryStream()
 111             img.Save(mStream, Imaging.ImageFormat.Jpeg)
 112             Return mStream.GetBuffer()
 113         End Using
 114     End Function
 115
 116 End Class