specialoffercontroller.vb

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

            db.ExecuteNonQuery(dbCommand)

        End Sub

#End Region

#Region "---BonusPrice-----"

        Public Function GetSpecialOfferBonusPriceList(ByVal offerID As Integer) As List(Of SpecialOfferBonusPriceInfo)
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_SpecialOffer_GetSpecailOffersBonusPriceList")

            db.AddInParameter(dbCommand, "@OfferID", DbType.Int32, offerID)
            Dim objSOPList As New List(Of SpecialOfferBonusPriceInfo)
            Using reader As IDataReader = db.ExecuteReader(dbCommand)
                While reader.Read
                    objSOPList.Add(FillSpecialOfferBonusPrice(reader))
                End While
                Return objSOPList
            End Using

        End Function
        Public Sub UpdateSpecailOffersBonusPrice(ByVal product As SpecialOfferBonusPriceInfo)
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_SpecialOffer_UpdateSpecailOffersBonusPrice")
            db.AddInParameter(dbCommand, "@OfferID", DbType.Int32, product.OfferID)
            db.AddInParameter(dbCommand, "@ProductID", DbType.Int32, product.ProductID)
            db.AddInParameter(dbCommand, "@BounsType", DbType.Int32, product.BounsType)
            db.AddInParameter(dbCommand, "@AdjustPrice", DbType.Decimal, product.AdjustPrice)
            db.ExecuteNonQuery(dbCommand)
        End Sub
        Public Sub DeleteSpecailOffersBonusPrice(ByVal offerID As Integer, ByVal productID As Integer)
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_SpecialOffer_DeleteSpecailOffersBonusPrice")
            db.AddInParameter(dbCommand, "@OfferID", DbType.Int32, offerID)
            db.AddInParameter(dbCommand, "@ProductID", DbType.Int32, productID)
            db.ExecuteNonQuery(dbCommand)
        End Sub
        Public Sub DeleteSpecialOffer(ByVal offerID As Integer)
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_SpecialOffer_DeleteSpecialOffer")
            db.AddInParameter(dbCommand, "@OfferID", DbType.Int32, offerID)
            db.ExecuteNonQuery(dbCommand)
        End Sub

        Public Sub AddSpecailOffersBonusPrice(ByVal product As SpecialOfferBonusPriceInfo)
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_SpecialOffer_AddSpecailOffersBonusPrice")

            db.AddInParameter(dbCommand, "@OfferID", DbType.Int32, product.OfferID)
            db.AddInParameter(dbCommand, "@ProductID", DbType.Int32, product.ProductID)
            db.AddInParameter(dbCommand, "@BounsType", DbType.Int32, product.BounsType)
            db.AddInParameter(dbCommand, "@AdjustPrice", DbType.Decimal, product.AdjustPrice)

            db.ExecuteNonQuery(dbCommand)

        End Sub

#End Region

#Region "---Amoumt------"

        Public Function GetSpecialOfferAmount(ByVal offerID As Integer, ByVal type As String, ByVal type2 As Integer) As SpecialOfferAmountInfo
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_SpecialOffer_GetSpecialOffersAmount")

            db.AddInParameter(dbCommand, "@OfferID", DbType.Int32, offerID)
            db.AddInParameter(dbCommand, "@Type", DbType.String, type)
            db.AddInParameter(dbCommand, "@Type2", DbType.Int32, type2)

            Using reader As IDataReader = db.ExecuteReader(dbCommand)
                While reader.Read
                    Return FillSpecialOfferAmount(reader)
                End While
                Return Nothing
            End Using

        End Function
        Public Sub SaveSpecailOffersAmount(ByVal Amount As SpecialOfferAmountInfo)
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_SpecialOffer_AddSpecialOffersAmount")

            db.AddInParameter(dbCommand, "@OfferID", DbType.Int32, Amount.OfferID)
            db.AddInParameter(dbCommand, "@MinAmount", DbType.Currency, Amount.MinAmount)
            db.AddInParameter(dbCommand, "@MaxAomount", DbType.Decimal, Amount.MaxAomount)
            db.AddInParameter(dbCommand, "@DisCountType", DbType.Int32, Amount.DisCountType)
            db.AddInParameter(dbCommand, "@DiscountExceed", DbType.Decimal, Amount.DiscountExceed)
            db.AddInParameter(dbCommand, "@Type", DbType.String, Amount.Type)
            db.AddInParameter(dbCommand, "@Type2", DbType.Int32, Amount.Type2)
            db.ExecuteNonQuery(dbCommand)
        End Sub


#End Region

#Region "---Private Method------"

        Private Shared Function FillSpecialOfferInfo(ByVal dr As IDataReader) As SpecialOfferInfo

            Dim objSO As New SpecialOfferInfo

            objSO.ConditionType = Utility.GetInt32(dr, "ConditionType")
            objSO.BonusType = Utility.GetInt32(dr, "BonusType")
            objSO.CouponID = Utility.GetInt32(dr, "CouponID")
            objSO.Detailedpromo = Utility.GetString(dr, "Detailedpromo")
            objSO.EndData = Utility.GetDateTime(dr, "EndDate")
            objSO.IsDispalyShortPromo = Utility.GetBoolean(dr, "IsDisplayShortPromo")
            objSO.IsValid = Utility.GetBoolean(dr, "IsValid")
            objSO.OfferID = Utility.GetInt32(dr, "OfferID")
            objSO.ShortPromoImage = Utility.GetString(dr, "ShortPromoImage")
            objSO.ShortPromoText = Utility.GetString(dr, "ShortPromoText")
            objSO.StartDate = Utility.GetDateTime(dr, "StartDate")
            objSO.Status = Utility.GetInt32(dr, "Status")
            objSO.Title = Utility.GetString(dr, "Title")

            Return objSO

        End Function

        Private Shared Function FillSpecialOfferProductsInfo(ByVal dr As IDataReader) As SpecialOfferProductsInfo

            Dim objSOP As New SpecialOfferProductsInfo
            objSOP.CategoryID = Utility.GetInt32(dr, "CategoryID")
            objSOP.CategoryName = Utility.GetString(dr, "CategoryName")
            objSOP.OfferID = Utility.GetInt32(dr, "OfferID")
            objSOP.ProductID = Utility.GetInt32(dr, "ProductID")
            objSOP.ProductName = Utility.GetString(dr, "ProductName")
            objSOP.Quantity = Utility.GetInt32(dr, "Quantity")
            objSOP.Type = Utility.GetString(dr, "Type")
            objSOP.Type2 = Utility.GetString(dr, "Type2")

            Return objSOP

        End Function

        Private Function FillSpecialOfferAmount(ByVal dr As IDataReader) As SpecialOfferAmountInfo
            Dim Amount As New SpecialOfferAmountInfo

            Amount.OfferID = Utility.GetInt32(dr, "OfferID")
            Amount.DiscountExceed = Utility.GetDecimal(dr, "DiscountExceed")
            Amount.DisCountType = Utility.GetInt32(dr, "DisCountType")
            Amount.MaxAomount = Utility.GetDecimal(dr, "MaxAomount")
            Amount.MinAmount = Utility.GetDecimal(dr, "MinAmount")
            Amount.Type = Utility.GetString(dr, "Type")
            Amount.Type2 = Utility.GetInt32(dr, "Type2")


            Return Amount
        End Function

        Private Function FillSpecialOfferBonusPrice(ByVal dr As IDataReader) As SpecialOfferBonusPriceInfo
            Dim product As New SpecialOfferBonusPriceInfo
            product.OfferID = Utility.GetInt32(dr, "OfferID")
            product.ProductID = Utility.GetInt32(dr, "ProductID")
            product.ProductName = Utility.GetString(dr, "ProductName")
            product.Price = Utility.GetDecimal(dr, "Price")
            product.AdjustPrice = Utility.GetDecimal(dr, "AdjustPrice")

            Return product
        End Function




#End Region


#End Region
#Region "-----Shop------"
        ''' <summary>
        ''' get available special offerid string by amount.
        ''' </summary>
        ''' <param name="miniAmount">amount in order </param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Shared Function GetAvailableSpecialOfferString(ByVal miniAmount As Decimal) As String
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_SpecialOffer_GetAvailableSpecialOfferAmountList")
            db.AddInParameter(dbCommand, "@MiniAmount", DbType.Decimal, miniAmount)

            Dim sOfferIDs As New StringBuilder
            Using reader As IDataReader = db.ExecuteReader(dbCommand)
                While reader.Read
                    sOfferIDs.Append(String.Format(",{0}", reader.Item(0).ToString))
                End While
                If sOfferIDs.Length = 0 Then Return ""
                Return sOfferIDs.ToString.Substring(1)
            End Using
        End Function
        ''' <summary>
        '''  get available special offerid string by ProductID or CategoryID.
        ''' </summary>
        ''' <param name="value">productID or CategoryID</param>
        ''' <param name="type">category type:"C",product type:"P"</param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Shared Function GetAvailableSpecialOfferString(ByVal value As Integer, ByVal type As String) As String
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_SpecialOffer_GetAvailableSpecialOfferProdutsList")
            If type.ToLower = "c" Then
                db.AddInParameter(dbCommand, "@CategoryID", DbType.Int32, value)
            Else
                db.AddInParameter(dbCommand, "@ProductID", DbType.Int32, value)
            End If

            Dim sOfferIDs As New StringBuilder
            Using reader As IDataReader = db.ExecuteReader(dbCommand)
                While reader.Read
                    sOfferIDs.Append(String.Format(",{0}", reader.Item(0).ToString))
                End While
                If sOfferIDs.Length = 0 Then Return ""
                Return sOfferIDs.ToString.Substring(1)
            End Using
        End Function

#End Region




    End Class

End Namespace