CIS4290SeniorProject/ViewCartTest.aspx.vb at master · jlazer/CIS4290SeniorProject · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
Imports System.Data
Imports System.Data.SqlClient
    Public Class ViewCartTest
        Inherits System.Web.UI.Page
        Public strCartNo As String = " "
        Dim CookieBack As HttpCookie = HttpContext.Current.Request.Cookies("CartNo")
        Public strConn As String = System.Configuration.ConfigurationManager.ConnectionStrings("ConnectionStringOnlineStore").ConnectionString
        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            ' get CartNo
            If Not CookieBack Is Nothing Then
                strCartNo = CookieBack.Value
            End If
            sqlDSCart1.SelectCommand = "Select * From Cart Where CartNo = '" & strCartNo & "'"
            ' get cart total
            Dim strConn As String = System.Configuration.ConfigurationManager.ConnectionStrings("ConnectionStringOnlineStore").ConnectionString
            Dim conntp As SqlConnection
            Dim cmdtp As SqlCommand
            Dim drtp As SqlDataReader
            Dim strSQL As String = "Select sum(price*quantity) AS total From Cart Where CartNo = '" & strCartNo & "' "
            conntp = New SqlConnection(strConn)
            cmdtp = New SqlCommand(strSQL, conntp)
            conntp.Open()
            drtp = cmdtp.ExecuteReader(CommandBehavior.CloseConnection)
            If drtp.Read() Then

        End If
        End Sub
        Protected Sub lvCart_OnItemCommand(ByVal sender As Object, ByVal e As ListViewCommandEventArgs)
            If e.CommandName = "cmdUpdate" Then
                ' get productno and quantity
                Dim strProductNo As String = e.CommandArgument
                Dim tbQuantity As TextBox = CType(e.Item.FindControl("tbQuantity"), TextBox)
                Dim strSQL As String = "Update Cart set Quantity = '" & CInt(tbQuantity.Text) & "' where ProductNo = '" & strProductNo & "' and CartNo = '" & strCartNo & "'"
                ' update
                Dim connCart As SqlConnection
                Dim cmdCart As SqlCommand
                Dim drCart As SqlDataReader
                connCart = New SqlConnection(strConn)
                cmdCart = New SqlCommand(strSQL, connCart)
                connCart.Open()
                drCart = cmdCart.ExecuteReader(CommandBehavior.CloseConnection)
                sqlDSCart1.DataBind()
            ElseIf e.CommandName = "cmdDelete" Then
                ' get productid and quantity
                Dim strProductNo As String = e.CommandArgument
                Dim tbQuantity As TextBox = CType(e.Item.FindControl("tbQuantity"), TextBox)
                Dim strSQL As String = "Delete from Cart where ProductNo = '" & strProductNo & "' and CartNo = '" & strCartNo & "'"
                ' update
                Dim connCart As SqlConnection
                Dim cmdCart As SqlCommand
                Dim drCart As SqlDataReader
                connCart = New SqlConnection(strConn)
                cmdCart = New SqlCommand(strSQL, connCart)
                connCart.Open()
                drCart = cmdCart.ExecuteReader(CommandBehavior.CloseConnection)
                sqlDSCart1.DataBind()
            End If
        End Sub

        Protected Sub DataPager1_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataPager1.PreRender
            Dim total_pages As Integer
            Dim current_page As Integer
            lvCart.DataBind()
            total_pages = DataPager1.TotalRowCount / DataPager1.PageSize
            current_page = DataPager1.StartRowIndex / DataPager1.PageSize + 1
            If DataPager1.TotalRowCount Mod DataPager1.PageSize <> 0 Then
                total_pages = total_pages + 1
            End If
            If CInt(lvCart.Items.Count) <> 0 Then
                Dim lbl As Label = lvCart.FindControl("lblPage")
                lbl.Text = "Page " + CStr(current_page) + " of " + CStr(total_pages) + " (Total items: " + CStr(DataPager1.TotalRowCount) + ")"
            End If
            If CInt(lvCart.Items.Count) = 0 Then
                DataPager1.Visible = False
                show_next.Visible = False
                show_prev.Visible = False
            End If
        End Sub

        Protected Sub show_prev_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles show_prev.Click
            Dim pagesize As Integer = DataPager1.PageSize
            Dim current_page As Integer = DataPager1.StartRowIndex / DataPager1.PageSize + 1
            Dim total_pages As Integer = DataPager1.TotalRowCount / DataPager1.PageSize
            Dim last As Integer = total_pages \ 3
            last = last * 3
            Do While current_page < last
                last = last - 3
            Loop
            If last < 3 Then
                last = 0
            Else
                last = last - 3
            End If
            DataPager1.SetPageProperties(last * pagesize, pagesize, True)
        End Sub

    Protected Sub show_next_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles show_next.Click
        Dim last As Integer = 3
        Dim pagesize As Integer = DataPager1.PageSize
        Dim current_page As Integer = DataPager1.StartRowIndex / DataPager1.PageSize + 1
        Dim total_pages As Integer = DataPager1.TotalRowCount / DataPager1.PageSize
        Do While current_page > last
            last = last + 3
        Loop
        If last > total_pages Then
            last = total_pages
        End If
        DataPager1.SetPageProperties(last * pagesize, pagesize, True)
    End Sub
End Class