done

CommonVariables.vb

@@ -2,10 +2,10 @@
 Module CommonVariables
 
     Public logedInEmail As String           'to store the email of the logged in user
-    Public alterUid = 0             'to store the uid of the card to be altered in teh admin site
+    Public alterUid = 0                     'to store the uid of the card to be altered in teh admin site
     Public selectCardUid As Integer         'to store the uid of the card customer has selected to buy
     Public quantitySelected As Integer      'to store the quantity of the card selected by the customer
-    Public totalAmount As Double           'to store the total discounted price of the cards
-    Public costprice As Double             'to store the original price of the cards
+    Public totalAmount As Double            'to store the total discounted price of the cards
+    Public costprice As Double              'to store the original price of the cards
     Public deliveryDate As Integer          'to store the delivery date of the cards
 End Module

FormAdminCards.vb

@@ -18,7 +18,7 @@ Public Class FormAdminCards
     Dim totalheight = My.Computer.Screen.Bounds.Size.Height         'variable to store the height of the screen
     Dim flowLayoutWidth As Double                                   'variable to store the width of the flow layout
     Dim panelWidth As Double                                        'variable to store the width of a indivisual panel
-    Dim panelHeight As Double                                        'variable to store the width of a indivisual panel
+    Dim panelHeight As Double                                       'variable to store the width of a indivisual panel
 
     Private Sub FormAdmin_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         'setting all the dimention of flow layout and indivisual panels

FormCardPage.vb

@@ -44,6 +44,7 @@ Public Class FormCardPage
         PictureBoxCardTemplate.Image = Image.FromStream(ms)
         LabelMRP.Text = reader.Item("Price")
         mrp = reader.Item("Price")
+        totalAmount = reader.Item("Price")
         LabelName.Text = reader.Item("Name")
         quantityLeft = reader.Item("Quantity")
         setContent(reader.Item("Type"))
@@ -86,6 +87,7 @@ Public Class FormCardPage
             End If
 
             'if the quantity is set set the mrp accordingly
+
             LabelMRP.Text = TextBoxQuantity.Text * mrp
             LabelMRP.ForeColor = Color.FromArgb(41, 191, 18)
             LabelRsMRP.ForeColor = Color.FromArgb(41, 191, 18)

FormLogin.vb

@@ -79,5 +79,4 @@ Public Class FormLogin
     Private Sub FormLogin_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
         Me.Close()
     End Sub
-End Class
-
+End Class

FormOrderHistory.vb

@@ -34,14 +34,14 @@ Public Class FormOrderHistory
             ComboBoxSearchCategory.Items.Add("Phone")
 
             'getting all  order history
-            cmd = New SqlCommand("SELECT TableOrder.OrderId, TableOrder.State, TableOrder.City, TableOrder.AddressLine, TableOrder.Pincode, TableOrder.Landmark, TableOrder.Email, TableOrder.TotalCost, TableOrder.DeliveryDate, TableOrder.PaymentMode, TableOrder.Name, TableOrder.Phone, TableCards.Cardtemplate, TableCards.Name FROM TableOrder JOIN TableCards ON TableOrder.CardId = TableCards.CardId", conn)
+            cmd = New SqlCommand("SELECT TableOrder.OrderId, TableOrder.State, TableOrder.City, TableOrder.AddressLine, TableOrder.Pincode, TableOrder.Landmark, TableOrder.Email, TableOrder.TotalCost, TableOrder.DeliveryDate, TableOrder.PaymentMode, TableOrder.Name, TableOrder.Phone, TableCards.Cardtemplate, TableCards.Name FROM TableOrder JOIN TableCards ON TableOrder.CardId = TableCards.CardId ORDER BY TableOrder.OrderId ASC", conn)
 
             'for customer site
         Else
             ComboBoxSearchCategory.Visible = False
             LabelSelectType.Visible = False
             'getting only the order history of a specific customer
-            cmd = New SqlCommand("SELECT TableOrder.OrderId, TableOrder.State, TableOrder.City, TableOrder.AddressLine, TableOrder.Pincode, TableOrder.Landmark, TableOrder.Email, TableOrder.TotalCost, TableOrder.DeliveryDate, TableOrder.PaymentMode, TableOrder.Name, TableOrder.Phone, TableCards.Cardtemplate, TableCards.Name FROM TableOrder JOIN TableCards ON TableOrder.CardId = TableCards.CardId WHERE TableOrder.Email = @email", conn)
+            cmd = New SqlCommand("SELECT TableOrder.OrderId, TableOrder.State, TableOrder.City, TableOrder.AddressLine, TableOrder.Pincode, TableOrder.Landmark, TableOrder.Email, TableOrder.TotalCost, TableOrder.DeliveryDate, TableOrder.PaymentMode, TableOrder.Name, TableOrder.Phone, TableCards.Cardtemplate, TableCards.Name FROM TableOrder JOIN TableCards ON TableOrder.CardId = TableCards.CardId WHERE TableOrder.Email = @email ORDER BY tableOrder.OrderId ASC", conn)
             cmd.Parameters.AddWithValue("@email", logedInEmail)
         End If
         cmd.ExecuteNonQuery()

FormOrderPage.vb

@@ -258,7 +258,7 @@ Public Class FormOrderPage
                 Return False
             End If
 
-            If Not (Regex.IsMatch(TextBox1UPIOrCard.Text, "^([0-9a-zA-Z]([-\.\w]*[0-9a-zA-Z])*@([0-9a-zA-Z][-\w]*[0-9a-zA-Z]\.)+[a-zA-Z]{2,9})$")) Then
+            If Not (Regex.IsMatch(TextBox1UPIOrCard.Text, "[a-zA-Z0-9.\-_]{2,256}@[a-zA-Z]{2,64}")) Then
                 PictureBoxErrorUPI.Visible = True
                 Return False
             End If
@@ -270,7 +270,6 @@ Public Class FormOrderPage
             End If
         End If
         Return True
-
     End Function
 
     Private Sub FormOrderPage_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed

ShareMarket.vbproj

@@ -16,6 +16,7 @@
 
   <ItemGroup>
     <PackageReference Include="Microsoft.Data.SqlClient" Version="5.1.0" />
+    <PackageReference Include="PdfSharp" Version="1.50.5147" />
     <PackageReference Include="System.Data.SqlClient" Version="4.8.5" />
   </ItemGroup>