shippingcontroller.vb

C#语言制作asp.net网上商店的

Imports Microsoft.Practices.EnterpriseLibrary.Data
Imports Microsoft.Practices.EnterpriseLibrary.Common
Imports System.Data.SqlClient
Imports System.Data.Common
Imports System.Data
Imports System.Collections.Generic
Imports System.Text
Imports NetShopForge.Common.Globals
Imports NetShopForge.Common

Namespace NetShopForge.Library.Shipping

    Public Class ShippingController

#Region "---Public Method----"

#Region "---Shipping Region-----"

        Public Function GetShippingRegionList() As List(Of ShippingRegionInfo)

            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Shipping_GetShippingRegionList")

            Dim ShippingRegionList As New List(Of ShippingRegionInfo)
            Using reader As IDataReader = db.ExecuteReader(dbCommand)
                While reader.Read
                    ShippingRegionList.Add(FillShippingRegionInfo(reader))
                End While
                Return ShippingRegionList
            End Using

        End Function
        Public Function GetShippingRegion(ByVal ShippingRegionID As Integer) As ShippingRegionInfo
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Shipping_GetShippingRegion")

            db.AddInParameter(dbCommand, "@ShippingRegionID", DbType.Int32, ShippingRegionID)
            Using reader As IDataReader = db.ExecuteReader(dbCommand)
                While reader.Read
                    Return FillShippingRegionInfo(reader)
                End While
                Return Nothing
            End Using

        End Function
        Public Function AddShippingRegion(ByVal regioninfo As ShippingRegionInfo) As Integer
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Shipping_AddShippingRegion")
            Dim regionID As Integer = GetKeys("ShippingRegionID")
            db.AddInParameter(dbCommand, "@ShippingRegionID", DbType.Int32, regionID)
            db.AddInParameter(dbCommand, "@Name", DbType.String, regioninfo.Name)
            db.AddInParameter(dbCommand, "@RegionDescription", DbType.String, regioninfo.RegionDescription)
            db.AddInParameter(dbCommand, "@IsValid", DbType.Boolean, regioninfo.IsValid)
            db.ExecuteNonQuery(dbCommand)

            Return regionID

        End Function
        Public Sub DeleteShippingRegion(ByVal shippingRegionID As Integer)
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Shipping_DeleteShippingRegion")
            db.AddInParameter(dbCommand, "@ShippingRegionID", DbType.Int32, shippingRegionID)
            db.ExecuteNonQuery(dbCommand)
        End Sub
        Public Sub UpdateShippingRegionQuick(ByVal shippingRegionID As Integer, ByVal isValid As Boolean)

            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Shipping_UpdateShippingRegionQuick")

            db.AddInParameter(dbCommand, "@ShippingRegionID", DbType.Int32, shippingRegionID)
            db.AddInParameter(dbCommand, "@IsValid", DbType.Boolean, isValid)
            db.ExecuteNonQuery(dbCommand)


        End Sub
        Public Sub UpdateShippingRegion(ByVal shippingRegion As ShippingRegionInfo)
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Shipping_UpdateShippingRegion")

            db.AddInParameter(dbCommand, "@ShippingRegionID", DbType.Int32, shippingRegion.ShippingRegionID)
            db.AddInParameter(dbCommand, "@Name", DbType.String, shippingRegion.Name)
            db.AddInParameter(dbCommand, "@RegionDescription", DbType.String, shippingRegion.RegionDescription)
            db.AddInParameter(dbCommand, "@IsValid", DbType.Boolean, shippingRegion.IsValid)
            db.ExecuteNonQuery(dbCommand)

        End Sub

#End Region
#Region "---Shipping Method----"

        Public Function GetShippingMethodList(ByVal regionID As Integer) As List(Of ShippingMethodInfo)


            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Shipping_GetShippingMethodList")
            Dim sRegion As String = String.Format("%{0}%", regionID.ToString)
            db.AddInParameter(dbCommand, "@ShippingRegionID", DbType.String, sRegion)
            Dim ShippingMethodList As New List(Of ShippingMethodInfo)
            Using reader As IDataReader = db.ExecuteReader(dbCommand)
                While reader.Read
                    ShippingMethodList.Add(FillShippingMethodInfo(reader))
                End While
                Return ShippingMethodList
            End Using

        End Function
        Public Function GetShippingMethodList() As List(Of ShippingMethodInfo)

            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Shipping_GetShippingMethodList")

            Dim ShippingMethodList As New List(Of ShippingMethodInfo)
            Using reader As IDataReader = db.ExecuteReader(dbCommand)
                While reader.Read
                    ShippingMethodList.Add(FillShippingMethodInfo(reader))
                End While
                Return ShippingMethodList
            End Using

        End Function


        Public Function GetShippingMethod(ByVal ShippingMethodID As Integer) As ShippingMethodInfo
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Shipping_GetShippingMethod")

            db.AddInParameter(dbCommand, "@ShippingMethodID", DbType.Int32, ShippingMethodID)
            Using reader As IDataReader = db.ExecuteReader(dbCommand)
                While reader.Read
                    Return FillShippingMethodInfo(reader)
                End While
                Return Nothing
            End Using

        End Function
        Public Function AddShippingMethod(ByVal ShippingMethod As ShippingMethodInfo) As Integer
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Shipping_AddShippingMethod")
            Dim ShippingMethodID As Integer = GetKeys("ShippingMethodID")
            db.AddInParameter(dbCommand, "@ShippingMethodID", DbType.Int32, ShippingMethodID)
            db.AddInParameter(dbCommand, "@ShippingMethodName", DbType.String, ShippingMethod.ShippingMethodName)
            db.AddInParameter(dbCommand, "@ShippingRegionIDs", DbType.String, ShippingMethod.ShippingRegionIDs)
            db.AddInParameter(dbCommand, "@PaymentMethodIDs", DbType.String, ShippingMethod.PaymentMethodIDs)
            db.AddInParameter(dbCommand, "@ShippingPrice", DbType.Decimal, ShippingMethod.ShippingPrice)
            db.AddInParameter(dbCommand, "@ShippingMethodDescription", DbType.String, ShippingMethod.ShippingMethodDescription)
            db.AddInParameter(dbCommand, "@ShippingMethodFeeType", DbType.Int32, ShippingMethod.ShippingMethodFeeType)
            db.AddInParameter(dbCommand, "@IsInsurance", DbType.Boolean, ShippingMethod.IsInsurance)
            db.AddInParameter(dbCommand, "@IsValid", DbType.Boolean, ShippingMethod.IsValid)
            db.AddInParameter(dbCommand, "@ItemOrder", DbType.Int32, ShippingMethod.ItemOrder)
            db.AddInParameter(dbCommand, "@InsuranceFeeRate", DbType.Decimal, ShippingMethod.InsuranceFeeRate)
            db.AddInParameter(dbCommand, "@MiniInsuranceFee", DbType.Decimal, ShippingMethod.MiniInsuranceFee)
            db.AddInParameter(dbCommand, "@ShippingType", DbType.Int32, CInt(ShippingMethod.ShippingType))
            db.ExecuteNonQuery(dbCommand)
            Return ShippingMethodID

        End Function
        Public Sub UpdateShippingMethod(ByVal ShippingMethod As ShippingMethodInfo)

            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Shipping_UpdateShippingMethod")
            db.AddInParameter(dbCommand, "@ShippingMethodID", DbType.Int32, ShippingMethod.ShippingMethodID)
            db.AddInParameter(dbCommand, "@ShippingMethodName", DbType.String, ShippingMethod.ShippingMethodName)
            db.AddInParameter(dbCommand, "@ShippingRegionIDs", DbType.String, ShippingMethod.ShippingRegionIDs)
            db.AddInParameter(dbCommand, "@PaymentMethodIDs", DbType.String, ShippingMethod.PaymentMethodIDs)
            db.AddInParameter(dbCommand, "@ShippingPrice", DbType.Decimal, ShippingMethod.ShippingPrice)
            db.AddInParameter(dbCommand, "@ShippingMethodDescription", DbType.String, ShippingMethod.ShippingMethodDescription)
            db.AddInParameter(dbCommand, "@ShippingMethodFeeType", DbType.Int32, ShippingMethod.ShippingMethodFeeType)
            db.AddInParameter(dbCommand, "@IsInsurance", DbType.Boolean, ShippingMethod.IsInsurance)
            db.AddInParameter(dbCommand, "@IsValid", DbType.Boolean, ShippingMethod.IsValid)
            db.AddInParameter(dbCommand, "@ItemOrder", DbType.Int32, ShippingMethod.ItemOrder)
            db.AddInParameter(dbCommand, "@InsuranceFeeRate", DbType.Decimal, ShippingMethod.InsuranceFeeRate)
            db.AddInParameter(dbCommand, "@MiniInsuranceFee", DbType.Decimal, ShippingMethod.MiniInsuranceFee)
            db.AddInParameter(dbCommand, "@ShippingType", DbType.Int32, CInt(ShippingMethod.ShippingType))

            db.ExecuteNonQuery(dbCommand)

        End Sub
        Public Sub DeleteShippingMethod(ByVal ShippingMethodID As Integer)
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Shipping_DeleteShippingMethod")