viewcar.aspx.vb

网上售书系统v-1 SQL数据库 ASP.NET开发环境

Public Class ViewCar
    Inherits System.Web.UI.Page
    Protected WithEvents UpdateBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents PayBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents OrderDBGrd As System.Web.UI.WebControls.DataGrid

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Not IsPostBack Then
            If Session("BookCar") Is Nothing Then
                Response.Write("当前购物车信息为空！")
                Response.End()
            End If
            Dim Arr As ArrayList = CType(Session("BookCar"), ArrayList)
            OrderDBGrd.DataSource = Arr
            OrderDBGrd.DataBind()
        End If
    End Sub

    Private Sub UpdateBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpdateBtn.Click
        UpdateCar()
    End Sub
    '=============================================================
    ' 函 数 名：UpdateCar
    ' 功能描述：更新购物车信息
    ' 输入参数：无
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================

    Private Sub UpdateCar()
        Dim Arr As ArrayList
        Arr = CType(Session("BookCar"), ArrayList)
        Dim obj As Order = New Order()
        Dim i As Integer
        Dim objControl As OrderControl = New OrderControl()
        For i = 0 To OrderDBGrd.Items.Count - 1
            obj.BookID = OrderDBGrd.Items(i).Cells(5).Text
            obj.BookName = OrderDBGrd.Items(i).Cells(1).Text
            obj.Price = OrderDBGrd.Items(i).Cells(2).Text
            obj.TotalCharge = obj.BookNum * obj.Price
            Dim txtBox As TextBox = CType(OrderDBGrd.Items(i).Cells(3).FindControl("txtBookNum"), TextBox)
            obj.BookNum = txtBox.Text.Trim
            obj.TotalCharge = obj.BookNum * obj.Price
            Arr = objControl.UpdateOrder(obj, Arr)
        Next
        Session("BookCar") = Arr
        OrderDBGrd.DataSource = Arr
        OrderDBGrd.DataBind()
    End Sub

    Private Sub OrderDBGrd_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles OrderDBGrd.DeleteCommand

        Dim BookID As String = OrderDBGrd.Items(e.Item.ItemIndex).Cells(5).Text
        Dim objControl As OrderControl = New OrderControl()
        Dim Arr As ArrayList = CType(Session("BookCar"), ArrayList)
        Arr = objControl.DelOrder(BookID, Arr)
        Session("BookCar") = Arr
        OrderDBGrd.DataSource = Arr
        OrderDBGrd.DataBind()

    End Sub

    Private Sub PayBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PayBtn.Click
        '先更新购物车信息
        UpdateCar()
        Response.Write("<script>javascript:confirm('刚更新购物车信息，是否确认买单？');</script>")
        Dim OrderCar As ArrayList = CType(Session("BookCar"), ArrayList)
        Dim User As UserInfo = CType(Session("UserInfo"), UserInfo)

        Dim obj As OrderControl = New OrderControl()
        Dim TotalCharge As Decimal = obj.PayOrder(User.UserId, OrderCar)
        Session("BookCar") = Nothing

        Response.Write("<script language=javascript>")
        Response.Write("window.alert('此次消费总金额为：" + TotalCharge.ToString + "');")
        Response.Write("window.location='BuyBook.aspx';")
        Response.Write("</script>")

    End Sub
End Class