Basic Store

[NEATEST.git] / NEA / Store.xaml.vb

diff --git a/NEA/Store.xaml.vb b/NEA/Store.xaml.vb
index 754a0aff709af297e5b2c75aec5d4a589f13d91d..5e6b4fc1673e5e2fbb8a6f476f4d606a657435fa 100644 (file)
--- a/NEA/Store.xaml.vb
+++ b/NEA/Store.xaml.vb
@@ -8,41 +8,37 @@ Public Class Store
         Dim dr As System.Data.DataRow
         Dim da As New NEADataSetTableAdapters.GamesTableAdapter
         Dim dt As System.Data.DataTable
         Dim dr As System.Data.DataRow
         Dim da As New NEADataSetTableAdapters.GamesTableAdapter
         Dim dt As System.Data.DataTable

+        Dim search As String
+        search = LCase(txtSearch.Text)

         dt = ds.Tables("Games")
         da.Fill(dt)
         For Each dr In dt.Rows
         dt = ds.Tables("Games")
         da.Fill(dt)
         For Each dr In dt.Rows

-            If String.Compare(dr("Name"), txtSearch.Text) = 0 Then
-
-
-                Dim Q As String = "[Name] =  '" & txtSearch.Text & "'"
+            If String.Compare(dr("Name"), search) = 0 Then
+                Dim Q As String = "[Name] =  '" & search & "'"

                 Dim result() As NEADataSet.GamesRow = dt.Select(Q)
                 Dim result() As NEADataSet.GamesRow = dt.Select(Q)

-

                 id = result(0).GameID
                 id = result(0).GameID

-
-

                 GoTo LineBreak
                 GoTo LineBreak

+            Else
+                MsgBox("The game you entered is not in the database", vbExclamation)

             End If
         Next
             End If
         Next

-        MsgBox("The game you entered is not in the database", vbExclamation)
+

 LineBreak:
         ds.Dispose()
 LineBreak:
         ds.Dispose()

-

         For Each dr In dt.Rows
             If String.Compare(dr("GameID"), id) = 0 Then
                 txtname.AppendText(dr.Item("Name"))
         For Each dr In dt.Rows
             If String.Compare(dr("GameID"), id) = 0 Then
                 txtname.AppendText(dr.Item("Name"))

-
-
-
-
+                btnBuy.Content = "Buy for £" & dr.Item("Price")
+                lblPublisher.Content = "Publisher: " & dr.Item("Publisher")
+                lblRating.Content = "This game is rated " & dr.Item("Rating") & " out of 5"
+                lblReviews.Content = "Gamer review: "

                 Dim bytes As [Byte]() = dr.Item("Icon")
                 Dim ms As New MemoryStream(bytes)
                 Dim bytes As [Byte]() = dr.Item("Icon")
                 Dim ms As New MemoryStream(bytes)

-

                 Dim bi As New BitmapImage()
                 bi.BeginInit()
                 bi.StreamSource = ms
                 bi.EndInit()
                 Dim bi As New BitmapImage()
                 bi.BeginInit()
                 bi.StreamSource = ms
                 bi.EndInit()

-
-                imglogo.Source = bi
+                imgLogo.Source = bi

             End If
 
         Next
             End If
 
         Next