NEA/mainwindow.xaml.vb

   1
   2 Class MainWindow
   3     Private Sub BtnLogIn_Click(sender As Object, e As RoutedEventArgs) Handles btnLogIn.Click
   4         Dim ds As New NEADataSet
   5         Dim dr As System.Data.DataRow
   6         Dim da As New NEADataSetTableAdapters.UsersTableAdapter
   7         Dim dt As System.Data.DataTable
   8         dt = ds.Tables("Users")
   9         da.fill(dt)
  10         For Each dr In dt.Rows
  11             If String.Compare(dr("Username"), txtUserName.Text) = 0 And String.Compare(dr("Password"), txtPassword.Text) = 0 Then
  12                 If chkRememberMe.IsChecked = True Then
  13                     Dim file As System.IO.StreamWriter
  14                     file = My.Computer.FileSystem.OpenTextFileWriter("CheckedBox.txt", True)
  15                     file.WriteLine("Checked")
  16                     file.Close()
  17                     Dim A = New Store()
  18                     A.Show()
  19                     Me.Close()
  20                 Else
  21                     Dim A = New Store()
  22                     A.Show()
  23                     Me.Close()
  24                 End If
  25                 GoTo LineBreak
  26             End If
  27         Next
  28         MsgBox("Your username or password is incorrect!", vbExclamation)
  29 LineBreak:
  30         ds.Dispose()
  31     End Sub
  32
  33     Private Sub BtnSignUp_Click(sender As Object, e As RoutedEventArgs) Handles btnSignUp.Click
  34         Dim A = New Signup()
  35         A.show()
  36         Me.Close()
  37     End Sub
  38
  39 End Class