bonusescontrol.ascx.vb

来自「C#语言制作asp.net网上商店的」· VB 代码 · 共 394 行 · 第 1/2 页

    End Sub

    Protected Sub btnUpdateSpecialPrice_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdateSpecialPrice.Click


        Dim objSPC As New SpecialOfferController
        For i As Integer = 0 To gvSpecailPriceProducts.Rows.Count - 1
            Dim row As GridViewRow = gvSpecailPriceProducts.Rows(i)
            Dim txtAdjustPrice As TextBox = CType(row.FindControl("txtAdjustPrice"), TextBox)
            Dim hfProductID As HiddenField = CType(row.FindControl("hfProductID"), HiddenField)
            Dim product As New SpecialOfferBonusPriceInfo(hfOfferID.Value, hfProductID.Value, 0, Decimal.Parse(txtAdjustPrice.Text))
            objSPC.UpdateSpecailOffersBonusPrice(product)
        Next i

        BindData()
        ResultMessageControl1.ShowSuccess("更新成功!")
    End Sub
    Protected Sub btnUpdateDiscount_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdateDiscount.Click
        Dim objSOC As New SpecialOfferController
        Dim Amount As New SpecialOfferAmountInfo
        Amount.MaxAomount = Decimal.Parse(txtDiscountAmount.Text)
        Amount.DisCountType = IIf(CInt(ddlDiscountType.SelectedValue) = 0, DiscountType.Percent, DiscountType.Absolute)
        Amount.DiscountExceed = Decimal.Parse(txtDiscountExceed.Text)
        Amount.Type = "B"
        Amount.Type2 = BonusType
        Amount.OfferID = hfOfferID.Value
        objSOC.SaveSpecailOffersAmount(Amount)
        BindData()
        ResultMessageControl1.ShowSuccess("更新成功!")
    End Sub

    Protected Sub btnUpdatePoint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdatePoint.Click
        Dim objSOC As New SpecialOfferController
        Dim Amount As New SpecialOfferAmountInfo
        Amount.MaxAomount = Decimal.Parse(txtMaxPoint.Text)
        Amount.MinAmount = Decimal.Parse(txtMinPoint.Text)
        Amount.Type = "B"
        Amount.Type2 = BonusType
        Amount.OfferID = hfOfferID.Value
        objSOC.SaveSpecailOffersAmount(Amount)
        ResultMessageControl1.ShowSuccess("更新成功!")
    End Sub

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

    Private Sub BindData()

        Dim IsComplete As Boolean
        Dim BonusText As String = "error"



        Select Case BonusType
            Case SpecialOffer.BonusType.GiveBonusPoint
                pChooseProducts.Visible = False
                IsComplete = BindPiont()
                BonusText = GiveBonusPoint
            Case SpecialOffer.BonusType.GiveCoupon
                pChooseProducts.Visible = False
                BonusText = GiveCoupon
            Case SpecialOffer.BonusType.GiveDiscount
                Dim objSPC As New SpecialOfferController
                BindDiscountProducts()
                pChooseProducts.Visible = True
                IsComplete = BindDiscountAmount()
                BonusText = GIVEDISCOUNT
            Case SpecialOffer.BonusType.OfferFreeShipping
                Dim objSPC As New SpecialOfferController
                IsComplete = BindFreeShippingProducts()
                pChooseProducts.Visible = True
                pChooseProducts.Visible = True
                BonusText = OfferFreeShipping
            Case SpecialOffer.BonusType.OfferMemberShip
                pChooseProducts.Visible = True
                BonusText = OfferMemberShip
            Case SpecialOffer.BonusType.SpecialPrice
                Dim objSPC As New SpecialOfferController
                pChooseProducts.Visible = True
                '  rblProductCategory.Visible = False
                IsComplete = BindSpecailPriceProducts()
                BonusText = SpecialPrice
            Case Else
                pChooseProducts.Visible = False
        End Select

        rblBonuses.Items(0).Text = GIVEDISCOUNT
        rblBonuses.Items(1).Text = SPECIALPRICE
        rblBonuses.Items(2).Text = OFFERFREESHIPPING
        rblBonuses.Items(3).Text = GIVEBONUSPOINT
        If Not IsComplete Then
            hfIsComplete.Value = 0
            rblBonuses.SelectedItem.Text = String.Format("{0}<font color=red >({1})</font>", BonusText, INCOMPLETE)
        Else
            hfIsComplete.Value = 1
        End If
        mvConditions.ActiveViewIndex = rblBonuses.SelectedValue


    End Sub

    Private Function BindDiscountProducts() As Boolean

        Dim products As Generic.List(Of SpecialOfferProductsInfo) = SpecialOfferController.GetSpecialOfferProductsList(hfOfferID.Value, "B", BonusType)
        gvDiscountProducts.DataSource = products
        gvDiscountProducts.DataBind()
        Dim b As Boolean = products.Count > 0
        btnDeleteDiscountProducts.Visible = b
        Dim jString As New StringBuilder
        jString.Append("")
        Return True
    End Function
    Private Function BindPiont() As Boolean

        Dim objSPC As New SpecialOfferController
        Dim objSPA As SpecialOfferAmountInfo = objSPC.GetSpecialOfferAmount(hfOfferID.Value, "B", BonusType)
        Dim b As Boolean
        If Not IsNothing(objSPA) Then
            txtMaxPoint.Text = String.Format("{0:F}", objSPA.MaxAomount)
            txtMinPoint.Text = String.Format("{0:F}", objSPA.MinAmount)
            b = (objSPA.MinAmount > 0.0)
        Else
            txtMaxPoint.Text = "0.00"
            txtMinPoint.Text = "0.00"
            b = False
        End If
        Return b
    End Function
    Private Function BindFreeShippingProducts() As Boolean

        Dim products As Generic.List(Of SpecialOfferProductsInfo) = SpecialOfferController.GetSpecialOfferProductsList(hfOfferID.Value, "B", BonusType)

        gvFreeShippingProducts.DataSource = products
        gvFreeShippingProducts.DataBind()
        Dim b As Boolean = products.Count > 0
        btnDeleteFreeShipping.Visible = b
        Return True
    End Function
    Private Function BindSpecailPriceProducts() As Boolean

        Dim objSPC As New SpecialOfferController
        Dim products As Generic.List(Of SpecialOfferBonusPriceInfo) = objSPC.GetSpecialOfferBonusPriceList(hfOfferID.Value)

        gvSpecailPriceProducts.DataSource = products
        gvSpecailPriceProducts.DataBind()
        Dim b As Boolean = products.Count > 0
        btnUpdateSpecialPrice.Visible = b
        btnDeleteSpecialPrice.Visible = b
        Return b
    End Function
    Private Function BindDiscountAmount() As Boolean
        Dim objSPC As New SpecialOfferController
        Dim objSPA As SpecialOfferAmountInfo = objSPC.GetSpecialOfferAmount(hfOfferID.Value, "B", BonusType)
        Dim b As Boolean
        If Not IsNothing(objSPA) Then
            txtDiscountAmount.Text = String.Format("{0:F}", objSPA.MaxAomount)
            txtDiscountExceed.Text = String.Format("{0:F}", objSPA.DiscountExceed)
            ddlDiscountType.SelectedValue = CInt(objSPA.DisCountType)
            b = (objSPA.MaxAomount > 0.0)
        Else
            txtDiscountAmount.Text = "0.00"
            txtDiscountExceed.Text = "0.00"
            b = False
        End If
        Return b
    End Function


#End Region

    Protected Sub SpecialOfferNavControl1_StepMenuItemClick(ByVal navigateUrl As String) Handles SpecialOfferNavControl1.StepMenuItemClick
        If CBool(hfIsComplete.Value) Then
            My.Response.Redirect(navigateUrl)
        Else
            ResultMessageControl1.ShowFail("请完成对奖励内容的设置!")
        End If

    End Sub

    Protected Sub btnGoCondition_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGoCondition.Click
        'If CBool(hfIsComplete.Value) Then
        Dim navigateUrl As String = "~/Admin/Merchandising/Offers.aspx?mode=editoffer&submode=condition&offerid=" & hfOfferID.Value.ToString
        My.Response.Redirect(navigateUrl)
        'Else
        '  ResultMessageControl1.ShowFail("请完成对奖励内容的设置!")
        ' End If
    End Sub

    Protected Sub btnGoPromo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGoPromo.Click
        If CBool(hfIsComplete.Value) Then
            Dim navigateUrl As String = "~/Admin/Merchandising/Offers.aspx?mode=editoffer&submode=promotext&offerID=" & hfOfferID.Value.ToString
            My.Response.Redirect(navigateUrl)
        Else
            ResultMessageControl1.ShowFail("请完成对奖励内容的设置!")
        End If
    End Sub
End Class