HYTOS

Imports Llama

Module MDatatable

#Region "Load Pipe"

    Public Function LoadPipe_DT() As DataTable

        Dim oDt As New DataTable

        oDt.Columns.Add("start_x")

        oDt.Columns.Add("start_y")

        oDt.Columns.Add("end_x")

        oDt.Columns.Add("end_y")

        oDt.Columns.Add("SystemPath")

        Return oDt

    End Function

#End Region

#Region "Load Symbol"

    Public Function LoadSymbol_DT() As DataTable

        Dim oDt As New DataTable

        oDt.Columns.Add("Class")

        oDt.Columns.Add("Name")

        oDt.Columns.Add("Item")

        oDt.Columns.Add("Type")

        oDt.Columns.Add("x")

        oDt.Columns.Add("y")

        oDt.Columns.Add("Angle")

        oDt.Columns.Add("SystemPath")

        oDt.Columns.Add("Text")

        oDt.Columns.Add("uid")

        Return oDt

    End Function

#End Region

#Region "Load DWG DataSet"

    Public Function Load_Dwg_Ds() As DataSet

        Dim oDs As New DataSet

    End Function

#End Region

#Region "Check LineNoText above Line"

    Public Function PipeRun_Dt() As DataTable

        Dim oDt As New DataTable

        oDt.Columns.Add("Piperun", GetType(LMPipeRun))

        oDt.Columns.Add("startx")

        oDt.Columns.Add("starty")

        oDt.Columns.Add("endx")

        oDt.Columns.Add("endy")

        oDt.Columns.Add("value")

        Return oDt

    End Function

#End Region

    Public Function Drawing_Dt() As DataTable

        Dim oDt As New DataTable

        oDt.Columns.Add("Name")

        oDt.Columns.Add("Path")

        Return oDt

    End Function

    Public Function Line_Dt() As DataTable

        Dim oDt As New DataTable

        oDt.Columns.Add(_XML_LINE_UID)

        oDt.Columns.Add(_XML_LINE_LINENOUID)

        oDt.Columns.Add(_XML_LINENO_TEXT)

        oDt.Columns.Add(_XML_LINE_STARTPOINT)

        oDt.Columns.Add(_XML_LINE_ENDPOINT)

        oDt.Columns.Add(_XML_LINE_SYSTEMPATH)

        oDt.Columns.Add(_XML_LINE_DRAWING_TF)

        oDt.Columns.Add(_XML_LINE_TYPE)

        oDt.Columns.Add(_XML_LINE_Conn1_Uid)

        oDt.Columns.Add(_XML_LINE_Conn2_Uid)

        oDt.Columns.Add(_XML_LINE_FlowDirection)

        oDt.Columns.Add(_XML_LINE_SPID)

        oDt.Columns.Add(_XML_LINE_LMCONNECTOR, GetType(LMConnector))

        oDt.Columns.Add(_XML_LINE_LMCONNECTOR_1, GetType(LMConnector))

        oDt.Columns.Add(_XML_LINE_LMCONNECTOR_2, GetType(LMConnector))

        oDt.Columns.Add(_XML_LINE_Check)

        Return oDt

    End Function

    Public Function ModelingResult_Dt() As DataTable

        Dim oDt As New DataTable

        oDt.Columns.Add(_Modeling_Uid)

        oDt.Columns.Add(_Modeling_LineNoUid)

        oDt.Columns.Add(_Modeling_Location_X)

        oDt.Columns.Add(_Modeling_Location_Y)

        oDt.Columns.Add(_Modeling_Connection1_X)

        oDt.Columns.Add(_Modeling_Connection1_Y)

        oDt.Columns.Add(_Modeling_Connection2_X)

        oDt.Columns.Add(_Modeling_Connection2_Y)

        oDt.Columns.Add(_Modeling_Connection3_X)

        oDt.Columns.Add(_Modeling_Connection3_Y)

        oDt.Columns.Add(_Modeling_Connection4_X)

        oDt.Columns.Add(_Modeling_Connection4_Y)

        oDt.Columns.Add(_Modeling_Type)

        oDt.Columns.Add(_Modeling_Angle)

        Return oDt

    End Function

    Public Function Symbol_Dt() As DataTable

        Dim oDt As New DataTable

        oDt.Columns.Add(_XML_SYMBOL_UID)

        oDt.Columns.Add(_XML_SYMBOL_LINENOUID)

        oDt.Columns.Add(_XML_LINENO_TEXT)

        oDt.Columns.Add(_XML_SYMBOL_NAME)

        oDt.Columns.Add(_XML_SYMBOL_CLASS)

        oDt.Columns.Add(_XML_SYMBOL_LOCATION)

        oDt.Columns.Add(_XML_SYMBOL_ORIGINALPOINT)

        oDt.Columns.Add(_XML_SYMBOL_SIZE)

        oDt.Columns.Add(_XML_SYMBOL_ANGLE)

        oDt.Columns.Add(_XML_SYMBOL_TYPE)

        oDt.Columns.Add(_XML_SYMBOL_SYSTEMPATH)

        oDt.Columns.Add(_XML_SYMBOL_DRAWING_TF)

        oDt.Columns.Add(_XML_SYMBOL_Conn1_Uid)

        oDt.Columns.Add(_XML_SYMBOL_Conn2_Uid)

        oDt.Columns.Add(_XML_SYMBOL_Conn3_Uid)

        oDt.Columns.Add(_XML_SYMBOL_Conn4_Uid)

        oDt.Columns.Add(_XML_SYMBOL_LMCONNECTOR_1, GetType(LMConnector))

        oDt.Columns.Add(_XML_SYMBOL_LMCONNECTOR_2, GetType(LMConnector))

        oDt.Columns.Add(_XML_SYMBOL_LMCONNECTOR_3, GetType(LMConnector))

        oDt.Columns.Add(_XML_SYMBOL_LMCONNECTOR_4, GetType(LMConnector))

        oDt.Columns.Add(_XML_SYMBOL_Conn1_Point)

        oDt.Columns.Add(_XML_SYMBOL_Conn2_Point)

        oDt.Columns.Add(_XML_SYMBOL_Conn3_Point)

        oDt.Columns.Add(_XML_SYMBOL_Conn4_Point)

        oDt.Columns.Add(_XML_SYMBOL_CONNECTIONPOINT)

        oDt.Columns.Add(_XML_SYMBOL_SPID)

        oDt.Columns.Add(_XML_SYMBOL_Check)

        Return oDt

    End Function

    Public Function Attribute_Dt() As DataTable

        Dim oDt As New DataTable

        oDt.Columns.Add(_XML_ATTRIBUTE_UID)

        oDt.Columns.Add(_XML_ATTRIBUTE_NAME)

        oDt.Columns.Add(_XML_ATTRIBUTE_VALUE)

        Return oDt

    End Function

    Public Function ImageSymbol_Dt() As DataTable

        Dim oDt As New DataTable

        oDt.Columns.Add(_Sheet_ImageSymbol_Type)

        oDt.Columns.Add(_Sheet_ImageSymbol_StartCell)

        oDt.Columns.Add(_Sheet_ImageSymbol_EndCell)

        Return oDt

    End Function

    Public Function DrawLind_Dt() As DataTable

        Dim oDt As New DataTable

        oDt.Columns.Add(_XML_LINE_UID)

        oDt.Columns.Add(_XML_LINE_STARTPOINT_X)

        oDt.Columns.Add(_XML_LINE_STARTPOINT_Y)

        oDt.Columns.Add(_XML_LINE_ENDPOINT_X)

        oDt.Columns.Add(_XML_LINE_ENDPOINT_Y)

        Return oDt

    End Function

End Module