order_add_control.ascx.vb

这是一个订单管理系统

Imports System.Data

Partial Class Order_Add_Control
    Inherits System.Web.UI.UserControl

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

    Dim intOrderId As Integer
    Dim ds As dataset

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Init_Control()
    End Sub
    Protected Sub Init_Control()

        Dim ltNode As ListItem                               'new item of dropdownlist
        Me.txtOrderNumber.Text = ""
        Me.txtDeliveryDate.Text = ""
        ds = OrderDll.C_SQLUtil.fExecuteDataset(fOrderID())
        txtOrderId.Text = (CInt(ds.Tables(0).Rows(0).Item("OrderId")) + 1).ToString
        ds.Clear()
        'dplClient
        Me.dplClient.Items.Clear()
        ds = OrderDll.C_SQLUtil.fExecuteDataset(fClientID())
        For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
            ltNode = New ListItem(ds.Tables(0).Rows(i).Item("ClientName"), ds.Tables(0).Rows(i).Item("ClientId"))
            dplClient.Items.Add(ltNode)
        Next
        ds.Clear()
        'dplProduct
        ds = OrderDll.C_SQLUtil.fExecuteDataset(fProductID())
        Me.dplProduct.Items.Clear()
        For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
            ltNode = New ListItem(ds.Tables(0).Rows(i).Item("ProductName"), ds.Tables(0).Rows(i).Item("ProductId"))
            dplProduct.Items.Add(ltNode)
        Next
        ds.Clear()
        'txtOrderNumber

        'txtOrderDate
        txtOrderDate.Text = Today
        txtOrderDate.Enabled = False
        'txtDeliveryDate
    End Sub


    Protected Function fOrderID() As String

        Dim strBuilder As StringBuilder                                                     'stringbuilder for sql 

        strBuilder = New StringBuilder("")
        strBuilder.AppendLine("SELECT")
        strBuilder.AppendLine("MAX(OrderId) AS OrderId")
        strBuilder.AppendLine("FROM")
        strBuilder.AppendLine("OrderList")

        Return strBuilder.ToString

    End Function

    Protected Function fClientID() As String

        Dim strBuilder As StringBuilder

        strBuilder = New StringBuilder("")
        strBuilder.AppendLine("SELECT DISTINCT")
        strBuilder.AppendLine("ClientId,")
        strBuilder.AppendLine("ClientName")
        strBuilder.AppendLine("FROM")
        strBuilder.AppendLine("Client")

        Return strBuilder.ToString

    End Function

    Protected Function fProductID() As String

        Dim strBuilder As StringBuilder

        strBuilder = New StringBuilder("")
        strBuilder.AppendLine("SELECT DISTINCT")
        strBuilder.AppendLine("ProductId,")
        strBuilder.AppendLine("ProductName")
        strBuilder.AppendLine("FROM")
        strBuilder.AppendLine("Product")

        Return strBuilder.ToString

    End Function

    Protected Sub btnRun_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRun.Click
        'Dim ltNode As ListItem                               'new item of dropdownlist

        'ds = OrderDll.C_SQLUtil.fExecuteDataset(fOrderID())
        'txtOrderId.Text = (CInt(ds.Tables(0).Rows(0).Item("OrderId")) + 1).ToString
        'ds.Clear()
        ''dplClient
        'ds = OrderDll.C_SQLUtil.fExecuteDataset(fClientID())
        'For i As Integer = 0 To ds.Tables(0).Rows.Count
        '    ltNode = New ListItem(ds.Tables(0).Rows(i).Item("ClientId"),ds.Tables(0).Rows(i).Item("ClientName"))
        '    dplClient.Items.Add(ltNode)
        'Next
        'ds.Clear()
        ''dplProduct
        'ds = OrderDll.C_SQLUtil.fExecuteDataset(fProductID())
        'For i As Integer = 0 To ds.Tables(0).Rows.Count
        '    ltNode = New ListItem(ds.Tables(0).Rows(i).Item("ProductId"), ds.Tables(0).Rows(i).Item("ProductName"))
        '    dplProduct.Items.Add(ltNode)
        'Next
        'ds.Clear()
        ''txtOrderNumber

        ''txtOrderDate
        'txtOrderDate.Text = Today
        'txtOrderDate.Enabled = False
        ''txtDeliveryDate

        'strClientID = Trim(txtClientID.Text.ToString)

        Dim strSql As StringBuilder

        strSql = New StringBuilder("")
        strSql.AppendLine("insert into")
        strSql.AppendLine("OrderList")
        strSql.AppendLine("values")
        strSql.AppendLine("(")
        strSql.AppendLine(Trim(txtOrderId.Text) & ",")
        strSql.AppendLine("to_date('" & txtOrderDate.Text & "','YYYY-MM-DD'),")
        strSql.AppendLine(dplProduct.SelectedItem.Value & ",")
        strSql.AppendLine(dplClient.SelectedItem.Value & ",")
        strSql.AppendLine(Trim(txtOrderNumber.Text) & ",")
        strSql.AppendLine("to_date('" & Trim(txtDeliveryDate.Text) & "','YYYY-MM-DD')")
        strSql.AppendLine(")")

        OrderDll.C_SQLUtil.fExecuteNonQuery(strSql.ToString)

        Session(MESSAGEID) = 0
        RaiseEvent msgSubPanel("添加成功")
        Init_Control()

    End Sub

    'Protected Sub btnReset_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnReset.Click
    '    txtOrderNumber.Text = ""
    '    txtDeliveryDate.Text = ""
    'End Sub

End Class