order.vb

asp做的网上书店销售系统数据库采用sqlserver

Imports System.Data.SqlClient

Public Class Order
    '书的ID
    Private _BookID As String
    Public Property BookID() As String
        Get
            Return _BookID
        End Get
        Set(ByVal Value As String)
            _BookID = Value
        End Set
    End Property
    '书名
    Private _BookName As String
    Public Property BookName() As String
        Get
            Return _BookName
        End Get
        Set(ByVal Value As String)
            _BookName = Value
        End Set
    End Property
    '书总量
    Private _BookNum As Integer
    Public Property BookNum() As Integer
        Get
            Return _BookNum
        End Get
        Set(ByVal Value As Integer)
            _BookNum = Value
        End Set
    End Property
    '书的单价
    Private _Price As Decimal
    Public Property Price() As Decimal
        Get
            Return _Price
        End Get
        Set(ByVal Value As Decimal)
            _Price = Value
        End Set
    End Property
    '总费用
    Private _TotalCharge As Decimal
    Public Property TotalCharge() As Decimal
        Get
            Return _TotalCharge
        End Get
        Set(ByVal Value As Decimal)
            _TotalCharge = Value
        End Set
    End Property


End Class

Public Class OrderControl
    Dim connstr As String = System.Configuration.ConfigurationSettings.AppSettings("ConnectionString").ToString.Trim
    Dim myconn As SqlConnection = New SqlConnection(connstr)
    '=============================================================
    ' 函 数 名：AddOrder
    ' 功能描述：往OrderCar中添加NewBook订单信息
    ' 输入参数：NewBook需要添加的订单信息，OrderCar购物车
    ' 返 回 值：添加后的购物车信息
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：如果购物车中存在该书的订单，则将其数量加1，否则，添加新的订单信息
    '==============================================================
    Public Function AddOrder(ByVal NewBook As Order, ByVal OrderCar As ArrayList) As ArrayList
        Dim obj As Order
        Dim Sign As Integer = 0
        If OrderCar.Count = 0 Then
            OrderCar.Add(NewBook)
            Return OrderCar
        End If
        For Each obj In OrderCar
            If obj.BookID = NewBook.BookID Then
                obj.BookNum += 1
                obj.TotalCharge = obj.Price * obj.BookNum
                Return OrderCar
            End If
        Next
        OrderCar.Add(NewBook)
        Return OrderCar
    End Function
    '=============================================================
    ' 函 数 名：UpdateOrder
    ' 功能描述：更新OrderCar中的NewBook订单数量信息
    ' 输入参数：NewBook需要修改的订单信息，OrderCar购物车
    ' 返 回 值：更新后的购物车信息
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================
    Public Function UpdateOrder(ByVal NewBook As Order, ByVal OrderCar As ArrayList) As ArrayList
        If NewBook.BookNum = 0 Then
            Return DelOrder(NewBook.BookID, OrderCar)
        End If
        Dim obj As Order
        Dim Sign As Integer = 0
        For Each obj In OrderCar
            If obj.BookID = NewBook.BookID Then
                obj.BookNum = NewBook.BookNum
                obj.TotalCharge = obj.Price * obj.BookNum
                Return OrderCar
            End If
        Next
        OrderCar.Add(NewBook)
        Return OrderCar
    End Function
    '=============================================================
    ' 函 数 名：DelOrder
    ' 功能描述：在OrderCar中删除NewBook订单信息
    ' 输入参数：NewBook需要删除的订单信息，OrderCar购物车
    ' 返 回 值：删除订单后的购物车信息
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================
    Public Function DelOrder(ByVal BookID As String, ByVal OrderCar As ArrayList) As ArrayList
        Dim obj As Order
        Dim Sign As Integer = 0
        For Each obj In OrderCar
            If obj.BookID = BookID Then
                '删除为零的
                OrderCar.Remove(obj)
                Return OrderCar
            End If
        Next
        Return OrderCar

    End Function
    '=============================================================
    ' 函 数 名：PayOrder
    ' 功能描述：处理用户买单事件，结算OrderCar中订单信息，写入数据库
    ' 输入参数：UserID用户的ID，OrderCar购物车
    ' 返 回 值：此次消费的总金额
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================
    Public Function PayOrder(ByVal UserID As String, ByVal OrderCar As ArrayList) As Decimal
        Dim connstr As String
        Dim sqlstr As String = ""
        Dim obj As Order
        Dim Sign As Integer = 0
        Dim Charge As Decimal = 0
        For Each obj In OrderCar
            sqlstr += " insert into Orders(UserID,BookID,BookNum,TotalCharge,OrderDate)values ("
            sqlstr += UserID + ","
            sqlstr += obj.BookID + ","
            sqlstr += obj.BookNum.ToString + ","
            sqlstr += obj.TotalCharge.ToString + ","
            sqlstr += "'" + Now.ToShortDateString + "') "
            Charge += obj.TotalCharge
        Next
        Dim cmd As SqlCommand = New SqlCommand(sqlstr, myconn)
        Try
            myconn.Open()
            cmd.ExecuteNonQuery()
        Catch
        Finally
            myconn.Close()
        End Try
        Return Charge
    End Function
End Class