order_edit_control.ascx.vb

这是一个订单管理系统

Imports System.Data
Imports OrderDll.C_SQLUtil

Partial Class Order_Edit_Control
    Inherits System.Web.UI.UserControl

    Private Const SHOWFLAG As String = "SHOWFLAG"
    Private Const MESSAGEID As String = "MESSAGEID"
    Public Event msgSubPanel(ByVal MsgDescription As String)

    Dim strSql As StringBuilder
    Dim strOrderId As String
    Dim strClientID As String
    Dim ds As DataSet

    'show the table
    Protected Sub show(ByRef ds As DataSet)
        Dim strCelTempID As String = "tblCell"        'cell part name
        Dim strLblTempID As String = "lblCell"        'label part name
        Dim strtxtTempID As String = "txtCell"        'textbox part name
        Dim strTabRowTempID As String = "tabrow"      'table row part name
        Dim strBtnUpd As String = "btnUpdate"      'button part name
        Dim strBtnDel As String = "btnDel"      'button part name

        ViewState("intListCount") = ds.Tables(0).Rows.Count
        For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
            Dim tabrow As HtmlTableRow = New HtmlTableRow()

            Dim tblCell1 As HtmlTableCell = New HtmlTableCell()
            Dim lblCell1 As Label = New Label()

            Dim tblCell2 As HtmlTableCell = New HtmlTableCell()
            Dim lblCell2 As Label = New Label()

            Dim tblCell3 As HtmlTableCell = New HtmlTableCell()
            Dim txtCell3 As TextBox = New TextBox()

            Dim tblCell4 As HtmlTableCell = New HtmlTableCell()
            Dim txtCell4 As TextBox = New TextBox()

            Dim tblCell5 As HtmlTableCell = New HtmlTableCell()
            Dim txtCell5 As TextBox = New TextBox()

            Dim tblCell6 As HtmlTableCell = New HtmlTableCell()
            Dim btnUpdate As Button = New Button()

            Dim tblCell7 As HtmlTableCell = New HtmlTableCell()
            Dim btnDel As Button = New Button()
            'row 1
            tabrow.ID = strTabRowTempID & i
            lblCell1.ID = strCelTempID & "1" & i.ToString
            tblCell1.ID = strLblTempID & "1" & i.ToString
            tblCell1.Align = "center"
            tblCell1.BgColor = "#EFF3Fb"
            lblCell1.Text = ds.Tables(0).Rows(i).Item("OrderId")
            tblCell1.Controls.Add(lblCell1)
            tabrow.Cells.Add(tblCell1)
            'row2
            lblCell2.ID = strCelTempID & "2" & i.ToString
            tblCell2.ID = strLblTempID & "2" & i.ToString
            tblCell2.Align = "center"
            tblCell2.BgColor = "#EFF3Fb"
            lblCell2.Text = ds.Tables(0).Rows(i).Item("ClientId")
            tblCell2.Controls.Add(lblCell2)
            tabrow.Cells.Add(tblCell2)
            'row 3
            tblCell3.ID = strCelTempID & "3" & i.ToString
            txtCell3.ID = strtxtTempID & "3" & i.ToString
            tblCell3.Align = "center"
            tblCell3.BgColor = "#EFF3Fb"
            txtCell3.Text = ds.Tables(0).Rows(i).Item("ProductId")
            tblCell3.Controls.Add(txtCell3)
            tabrow.Cells.Add(tblCell3)
            'row4
            tblCell4.ID = strCelTempID & "4" & i.ToString
            txtCell4.ID = strtxtTempID & "4" & i.ToString
            tblCell4.Align = "center"
            tblCell4.BgColor = "#EFF3Fb"
            txtCell4.Text = ds.Tables(0).Rows(i).Item("OrderNumber")
            tblCell4.Controls.Add(txtCell4)
            tabrow.Cells.Add(tblCell4)
            'row5
            tblCell5.ID = strCelTempID & "5" & i.ToString
            txtCell5.ID = strtxtTempID & "5" & i.ToString
            tblCell5.Align = "center"
            tblCell5.BgColor = "#EFF3Fb"
            txtCell5.Text = ds.Tables(0).Rows(i).Item("DeliveryDate")
            tblCell5.Controls.Add(txtCell5)
            tabrow.Cells.Add(tblCell5)
            'row6
            tblCell6.ID = strCelTempID & "6" & i.ToString
            btnUpdate.ID = strBtnUpd & i.ToString
            tblCell6.Align = "center"
            tblCell6.BgColor = "#EFF3Fb"
            AddHandler btnUpdate.Click, AddressOf sUpdate
            btnUpdate.Text = "更新"
            tblCell6.Style.Item("text-align") = "center"
            tblCell6.Controls.Add(btnUpdate)
            tabrow.Cells.Add(tblCell6)
            'row7
            tblCell7.ID = strCelTempID & "7" & i.ToString
            tblCell7.Align = "center"
            tblCell7.BgColor = "#EFF3Fb"
            btnDel.ID = strBtnDel & i.ToString
            AddHandler btnDel.Click, AddressOf DelClick
            btnDel.Text = "删除"
            tblCell7.Style.Item("text-align") = "center"
            tblCell7.Controls.Add(btnDel)
            tabrow.Cells.Add(tblCell7)

            tbl_edit.Rows.Add(tabrow)
        Next

    End Sub

    Protected Sub sUpdate(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim intSel As Integer
        intSel = CInt(sender.id.Remove(0, 9))
        ds = Session("ds")

        strSql = New StringBuilder("")
        strSql.AppendLine("UPDATE")
        strSql.AppendLine("OrderList")
        strSql.AppendLine("SET")
        strSql.AppendLine("ProductId = " & Request.Form("ctl00$Right$Order_Manage_Control1$orderEdit$txtCell3" & intSel).ToString.Replace("'", "''") & ",")       '动态捕捉,待修改
        strSql.AppendLine("OrderNumber = " & Request.Form("ctl00$Right$Order_Manage_Control1$orderEdit$txtCell4" & intSel).ToString.Replace("'", "''") & ",")   '动态捕捉
        strSql.AppendLine("DeliveryDate = to_date('" & Request.Form("ctl00$Right$Order_Manage_Control1$orderEdit$txtCell5" & intSel).ToString.Replace("'", "''") & "','yyyy-mm-dd')")  '动态捕捉
        strSql.AppendLine("WHERE")
        strSql.AppendLine("OrderId = " & ds.Tables(0).Rows(intSel).Item("OrderId"))

        OrderDll.C_SQLUtil.fExecuteNonQuery(strSql.ToString)
        sReshow()
    End Sub

    Protected Sub DelClick(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim intSel As Integer
        intSel = CInt(sender.id.Remove(0, 9))
        ds = Session("ds")

        strSql = New StringBuilder("")
        strSql.AppendLine("DELETE FROM")
        strSql.AppendLine("OrderList")
        strSql.AppendLine("WHERE")
        strSql.AppendLine("OrderId = '" & ds.Tables(0).Rows(intSel).Item("OrderId") & "'")
        'strSql.AppendLine(";")

        OrderDll.C_SQLUtil.fExecuteNonQuery(strSql.ToString)
        sReshow()

        Session(MESSAGEID) = 0
        RaiseEvent msgSubPanel("显示当月未到期订单")
    End Sub

  
    Protected Sub btnShow_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnShow.Click
        'Dim ds As New dataset

        init_tbl()

        'tbl_edit

    End Sub
    Protected Sub init_tbl()
        Dim i As Integer = 0
        For i = 0 To ViewState("intListCount")
            tbl_edit.Rows.Remove(CType(Me.FindControl("tabrow" & i), HtmlTableRow))
        Next

        strOrderId = Trim(txtOrderID.Text.ToString)
        strClientID = Trim(txtClientID.Text.ToString)

        strSql = New StringBuilder("")
        strSql.AppendLine("select")
        strSql.AppendLine("OrderId,ClientId,ProductId,OrderNumber,DeliveryDate")
        strSql.AppendLine("from")
        strSql.AppendLine("OrderList")
        If strOrderId <> "" OrElse strClientID <> "" Then
            strSql.AppendLine("WHERE")
            If strOrderId <> "" Then
                strSql.AppendLine("OrderId = " & strOrderId)
            End If
            If strClientID <> "" Then
                If strOrderId <> "" Then
                    strSql.AppendLine("AND")
                    strSql.AppendLine("ClientId = " & strClientID)
                Else
                    strSql.AppendLine("ClientId = " & strClientID)
                End If
            End If
        End If
        strSql.AppendLine("order by OrderId")

        ds = OrderDll.C_SQLUtil.fExecuteDataset(strSql.ToString)
        Session("ds") = ds
        Session(SHOWFLAG) = True
        show(ds)
    End Sub

    'Protected Sub gdvSearch_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles gdvSearch.RowEditing
    '    Response.Redirect("_Order_Edit_Pop.aspx?OrderId=" & strOrderId)
    'End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If IsPostBack AndAlso Session(SHOWFLAG) Then
            Session(SHOWFLAG)=false
            Dim i As Integer = 0
            For i = 0 To ViewState("intListCount")
                tbl_edit.Rows.Remove(CType(Me.FindControl("tabrow" & i), HtmlTableRow))
            Next
            show(Session("ds"))

        End If

    End Sub

    Protected Sub sReshow()
        'strOrderId = Trim(txtOrderID.Text.ToString)
        'strClientID = Trim(txtClientID.Text.ToString)

        'strSql = New StringBuilder("")
        'strSql.AppendLine("select")
        'strSql.AppendLine("OrderId,ClientId,ProductId,OrderNumber,DeliveryDate")
        'strSql.AppendLine("from")
        'strSql.AppendLine("OrderList")
        'If strOrderId <> "" OrElse strClientID <> "" Then
        '    strSql.AppendLine("WHERE")
        '    If strOrderId <> "" Then
        '        strSql.AppendLine("OrderId = '" & strOrderId & "'")
        '    End If
        '    If strClientID <> "" Then
        '        strSql.AppendLine("ClientId = '" & strClientID & "'")
        '    End If
        'End If

        'ds = Ord.erDll.C_SQLUtil.fExecuteDataset(strSql.ToString)
        'Session("ds") = ds
        'show(ds)
        init_tbl()
    End Sub

    Protected Sub show_order()
        strSql = New StringBuilder("")
        strSql.AppendLine("select")
        strSql.AppendLine("OrderId,ClientId,ProductId,OrderNumber,DeliveryDate")
        strSql.AppendLine("from")
        strSql.AppendLine("OrderList")

        strSql.AppendLine("WHERE")
        'strSql.AppendLine("DeliveryDate > to_date('" & System.DateTime.Now.ToString("yyyy-MM-dd") & "','yyyy-mm-dd')")
        strSql.AppendLine("DeliveryDate > to_date('" & Today.ToString("yyyy-MM-dd") & "','yyyy-mm-dd')")
        strSql.AppendLine("AND")
        'strSql.AppendLine("OrderDate >= to_date('" & System.DateTime.Now.ToString("yyyy-MM-dd").Substring(0, 8) & "01" & "','yyyy-mm-dd')")
        strSql.AppendLine("OrderDate >= to_date('" & Today.ToString("yyyy-MM-dd").Substring(0, 8) & "01" & "','yyyy-mm-dd')")
        strSql.AppendLine("AND")
        'strSql.AppendLine("OrderDate <= to_date('" & System.DateTime.Now.ToString("yyyy-MM-dd").Substring(0, 8) & "30" & "','yyyy-mm-dd')")
        strSql.AppendLine("OrderDate <= to_date('" & Today.ToString("yyyy-MM-dd").Substring(0, 8) & "30" & "','yyyy-mm-dd')")
        ds = OrderDll.C_SQLUtil.fExecuteDataset(strSql.ToString)
        GridView1.DataSource = ds
        GridView1.DataBind()
        Session("ds") = ds

        Session(MESSAGEID) = 0
        RaiseEvent msgSubPanel("显示当月未到期订单")
    End Sub

    Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
        Panel3.Visible = False
        Panel2.Visible = True
        show_order()

        'strSql = New StringBuilder("")
        'strSql.AppendLine("select")
        'strSql.AppendLine("OrderId,ClientId,ProductId,OrderNumber,DeliveryDate")
        'strSql.AppendLine("from")
        'strSql.AppendLine("OrderList")

        'strSql.AppendLine("WHERE")
        ''strSql.AppendLine("DeliveryDate > to_date('" & System.DateTime.Now.ToString("yyyy-MM-dd") & "','yyyy-mm-dd')")
        'strSql.AppendLine("DeliveryDate > to_date('" & Today.ToString("yyyy-MM-dd") & "','yyyy-mm-dd')")
        'strSql.AppendLine("AND")
        ''strSql.AppendLine("OrderDate >= to_date('" & System.DateTime.Now.ToString("yyyy-MM-dd").Substring(0, 8) & "01" & "','yyyy-mm-dd')")
        'strSql.AppendLine("OrderDate >= to_date('" & Today.ToString("yyyy-MM-dd").Substring(0, 8) & "01" & "','yyyy-mm-dd')")
        'strSql.AppendLine("AND")
        ''strSql.AppendLine("OrderDate <= to_date('" & System.DateTime.Now.ToString("yyyy-MM-dd").Substring(0, 8) & "30" & "','yyyy-mm-dd')")
        'strSql.AppendLine("OrderDate <= to_date('" & Today.ToString("yyyy-MM-dd").Substring(0, 8) & "30" & "','yyyy-mm-dd')")
        'ds = OrderDll.C_SQLUtil.fExecuteDataset(strSql.ToString)
        'GridView1.DataSource = ds
        'GridView1.DataBind()
        'Session("ds") = ds

        Session(MESSAGEID) = 0
        RaiseEvent msgSubPanel("显示当月未到期订单")

    End Sub

    Protected Sub LinkButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton2.Click
        Panel3.Visible = False
        Panel2.Visible = True

        strSql = New StringBuilder("")
        strSql.AppendLine("UPDATE")
        strSql.AppendLine("OrderList")
        strSql.AppendLine("SET")
        strSql.AppendLine("OrderNumber = OrderNumber *1.02,")
        strSql.AppendLine("DeliveryDate = DeliveryDate + 3")
        strSql.AppendLine("WHERE")
        strSql.AppendLine("DeliveryDate > to_date('" & System.DateTime.Now.ToString("yyyy-MM-dd") & "','yyyy-mm-dd')")
        strSql.AppendLine("AND")
        strSql.AppendLine("OrderDate >=to_date('" & System.DateTime.Now.ToString("yyyy-MM-dd").Substring(0, 8) & "01" & "','yyyy-mm-dd')")
        strSql.AppendLine("AND")
        strSql.AppendLine("OrderDate <=to_date('" & System.DateTime.Now.ToString("yyyy-MM-dd").Substring(0, 8) & "30" & "','yyyy-mm-dd')")

        OrderDll.C_SQLUtil.fExecuteNonQuery(strSql.ToString)
        'ds = Session("ds")
        'GridView1.DataSource = ds
        'GridView1.DataBind()

        Session(MESSAGEID) = 0
        RaiseEvent msgSubPanel("修改成功")
        show_order()

    End Sub
End Class