NEA/SignUp.xaml.vb

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