order_manage_control.ascx.vb

这是一个订单管理系统


Partial Class Order_Manage_Control
    Inherits System.Web.UI.UserControl

#Region "常量声明"

    Private Shared CA_MULTISTATE As String = "CA-MULTISTATE"                                    'POINT_ID
    Private Shared CS_MULTISTATE As String = "CS-MULTISTATE"
    Private Shared SA_MULTISTATE As String = "SA-MULTISTATE"
    Private Shared ST_MULTISTATE As String = "ST-MULTISTATE"
    Private Shared ST_BINARY As String = "ST-BINARY"
    Private Shared AL_MULTISTATE As String = "AL-MULTISTATE"
    Private Shared AL_BINARY As String = "AL-BINARY"
    Private Shared AI_ANALOG As String = "AI-ANALOG"
    Private Shared AI_ANALOG_EE As String = "AI-ANALOG-EE"
    Private Shared PI_COUNTER As String = "PI-COUNTER"
    Private Shared PI_COUNTER_EE As String = "PI-COUNTER-EE"
    Private Shared PA_ANALOG As String = "PA-ANALOG"
    Private Shared PB_BINARY As String = "PB-BINARY"
    Private Shared PM_MULTISTATE As String = "PM-MULTISTATE"
    Private Shared ONEPOINT_SET_PAGE As String = "One_Point"                                     'the xml key
    Private Shared PANEL_COMPONENT As String = "panel_component"                                 'the xml key
    Private Const POINTID As String = "POINTID"                                                  'the string to save POINT_ID in session
    Private Const POINTNO As String = "POINTNO"                                                  'the string to save ポイント番号
    Private Const MESSAGEID As String = "MESSAGEID"                                              'the string to save Message ID in session
    Private Const CONTROLFLAG As String = "CONTROLFLAG"

#End Region

#Region "event"
    Public Event messageHandler(ByVal messageDescription As String)                              'the event to handle message show
#End Region



#Region "new"

    Protected Sub lbnAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbnAdd.Click
        'Dim orderAdd As New Order_Add_Control()
        pnlRight.Controls.Clear()
        Session(CONTROLFLAG) = 1

        Dim orderAdd As New Order_Add_Control
        Try
            orderAdd = DirectCast(LoadControl("Order_Add_Control.ascx"), Order_Add_Control)                        'create dynamic control
            orderAdd.ID = "orderAdd"
        Catch ex As Exception

        End Try
        pnlRight.Controls.Add(orderAdd)
    End Sub

    Protected Sub lbnSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbnSearch.Click
        'Dim orderSearch As New Order_Search_Control()
        pnlRight.Controls.Clear()
        Session(CONTROLFLAG) = 2

        Dim orderSearch As New Order_Search_Control
        Try
            orderSearch = DirectCast(LoadControl("Order_Search_Control.ascx"), Order_Search_Control)                        'create dynamic control
            orderSearch.ID = "orderSearch"
        Catch ex As Exception

        End Try
        pnlRight.Controls.Add(orderSearch)
    End Sub

    Protected Sub lbnDetailSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbnDetailSearch.Click
        'Dim orderDetail As New Order_Detail_Search_Control()
        pnlRight.Controls.Clear()
        Session(CONTROLFLAG) = 3

        Dim orderDetail As New Order_Detail_Search_Control
        Try
            orderDetail = DirectCast(LoadControl("Order_Detail_Search_Control.ascx"), Order_Detail_Search_Control)                        'create dynamic control
            orderDetail.ID = "orderDetail"
        Catch ex As Exception

        End Try
        pnlRight.Controls.Add(orderDetail)
    End Sub

    Protected Sub lbnEdit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbnEdit.Click
        'Dim orderEdit As New
        pnlRight.Controls.Clear()
        Session(CONTROLFLAG) = 4

        Dim orderEdit As New Order_Edit_Control
        Try
            orderEdit = DirectCast(LoadControl("Order_Edit_Control.ascx"), Order_Edit_Control)                        'create dynamic control
            orderEdit.ID = "orderEdit"
        Catch ex As Exception

        End Try
        pnlRight.Controls.Add(orderEdit)
    End Sub

#End Region
    
    
    
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If IsPostBack Then

            Select Case Session(CONTROLFLAG)
                Case 1
                    pnlRight.Controls.Clear()
                    Dim orderAdd As New Order_Add_Control
                    Try
                        orderAdd = DirectCast(LoadControl("Order_Add_Control.ascx"), Order_Add_Control)                        'create dynamic control
                        orderAdd.ID = "orderAdd"
                        AddHandler orderAdd.msgSubPanel, AddressOf msgProcess
                    Catch ex As Exception

                    End Try
                    pnlRight.Controls.Add(orderAdd)
                Case 2
                    pnlRight.Controls.Clear()

                    Dim orderSearch As New Order_Search_Control
                    Try
                        orderSearch = DirectCast(LoadControl("Order_Search_Control.ascx"), Order_Search_Control)                        'create dynamic control
                        orderSearch.ID = "orderSearch"
                        AddHandler orderSearch.msgSubPanel, AddressOf msgProcess
                    Catch ex As Exception

                    End Try
                    pnlRight.Controls.Add(orderSearch)
                Case 3
                    pnlRight.Controls.Clear()


                    Dim orderDetail As New Order_Detail_Search_Control
                    Try
                        orderDetail = DirectCast(LoadControl("Order_Detail_Search_Control.ascx"), Order_Detail_Search_Control)                        'create dynamic control
                        orderDetail.ID = "orderDetail"
                        AddHandler orderDetail.msgSubPanel, AddressOf msgProcess
                    Catch ex As Exception

                    End Try
                    pnlRight.Controls.Add(orderDetail)
                Case 4
                    pnlRight.Controls.Clear()

                    Dim orderEdit As New Order_Edit_Control
                    Try
                        orderEdit = DirectCast(LoadControl("Order_Edit_Control.ascx"), Order_Edit_Control)                        'create dynamic control
                        orderEdit.ID = "orderEdit"
                        AddHandler orderEdit.msgSubPanel, AddressOf msgProcess
                    Catch ex As Exception

                    End Try
                    pnlRight.Controls.Add(orderEdit)
            End Select

        End If
    End Sub
    Protected Sub msgProcess(ByVal str As String)
        RaiseEvent messageHandler(str)
    End Sub
End Class