'------------------------------------------------------------------------------
' 
'     이 코드는 도구를 사용하여 생성되었습니다.
'     런타임 버전:4.0.30319.42000
'
'     파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면
'     이러한 변경 내용이 손실됩니다.
' 
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
'''
'''Represents a strongly typed in-memory cache of data.
'''
  _
Partial Public Class DSR
    Inherits Global.System.Data.DataSet
    
    Private table최대냉난방부하 As 최대냉난방부하DataTable
    
    Private table월별에너지분석 As 월별에너지분석DataTable
    
    Private tableTReqUse As TReqUseDataTable
    
    Private tableGraph_Req As Graph_ReqDataTable
    
    Private tableGraph_ReqUse As Graph_ReqUseDataTable
    
    Private tableGraph_Info As Graph_InfoDataTable
    
    Private table사용면적 As 사용면적DataTable
    
    Private table에너지소요량 As 에너지소요량DataTable
    
    Private table에너지소요량1 As 에너지소요량1DataTable
    
    Private table생산에너지 As 생산에너지DataTable
    
    Private tableGraph_Info_data As Graph_Info_dataDataTable
    
    Private tablePyonga_REQ As Pyonga_REQDataTable
    
    Private tablePyonga_USE As Pyonga_USEDataTable
    
    Private tablePyonga_1USE As Pyonga_1USEDataTable
    
    Private tablePyonga_YK As Pyonga_YKDataTable
    
    Private table월별1차에너지사용량 As 월별1차에너지사용량DataTable
    
    Private table설계계산결과 As 설계계산결과DataTable
    
    Private table설계계산파라미터 As 설계계산파라미터DataTable
    
    Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
    
      _
    Public Sub New()
        MyBase.New
        Me.BeginInit
        Me.InitClass
        Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
        AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
        AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
        Me.EndInit
    End Sub
    
      _
    Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
        MyBase.New(info, context, false)
        If (Me.IsBinarySerialized(info, context) = true) Then
            Me.InitVars(false)
            Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
            AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
            AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
            Return
        End If
        Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
        If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
            Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
            ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
            If (Not (ds.Tables("최대냉난방부하")) Is Nothing) Then
                MyBase.Tables.Add(New 최대냉난방부하DataTable(ds.Tables("최대냉난방부하")))
            End If
            If (Not (ds.Tables("월별에너지분석")) Is Nothing) Then
                MyBase.Tables.Add(New 월별에너지분석DataTable(ds.Tables("월별에너지분석")))
            End If
            If (Not (ds.Tables("TReqUse")) Is Nothing) Then
                MyBase.Tables.Add(New TReqUseDataTable(ds.Tables("TReqUse")))
            End If
            If (Not (ds.Tables("Graph_Req")) Is Nothing) Then
                MyBase.Tables.Add(New Graph_ReqDataTable(ds.Tables("Graph_Req")))
            End If
            If (Not (ds.Tables("Graph_ReqUse")) Is Nothing) Then
                MyBase.Tables.Add(New Graph_ReqUseDataTable(ds.Tables("Graph_ReqUse")))
            End If
            If (Not (ds.Tables("Graph_Info")) Is Nothing) Then
                MyBase.Tables.Add(New Graph_InfoDataTable(ds.Tables("Graph_Info")))
            End If
            If (Not (ds.Tables("사용면적")) Is Nothing) Then
                MyBase.Tables.Add(New 사용면적DataTable(ds.Tables("사용면적")))
            End If
            If (Not (ds.Tables("에너지소요량")) Is Nothing) Then
                MyBase.Tables.Add(New 에너지소요량DataTable(ds.Tables("에너지소요량")))
            End If
            If (Not (ds.Tables("에너지소요량1")) Is Nothing) Then
                MyBase.Tables.Add(New 에너지소요량1DataTable(ds.Tables("에너지소요량1")))
            End If
            If (Not (ds.Tables("생산에너지")) Is Nothing) Then
                MyBase.Tables.Add(New 생산에너지DataTable(ds.Tables("생산에너지")))
            End If
            If (Not (ds.Tables("Graph_Info_data")) Is Nothing) Then
                MyBase.Tables.Add(New Graph_Info_dataDataTable(ds.Tables("Graph_Info_data")))
            End If
            If (Not (ds.Tables("Pyonga_REQ")) Is Nothing) Then
                MyBase.Tables.Add(New Pyonga_REQDataTable(ds.Tables("Pyonga_REQ")))
            End If
            If (Not (ds.Tables("Pyonga_USE")) Is Nothing) Then
                MyBase.Tables.Add(New Pyonga_USEDataTable(ds.Tables("Pyonga_USE")))
            End If
            If (Not (ds.Tables("Pyonga_1USE")) Is Nothing) Then
                MyBase.Tables.Add(New Pyonga_1USEDataTable(ds.Tables("Pyonga_1USE")))
            End If
            If (Not (ds.Tables("Pyonga_YK")) Is Nothing) Then
                MyBase.Tables.Add(New Pyonga_YKDataTable(ds.Tables("Pyonga_YK")))
            End If
            If (Not (ds.Tables("월별1차에너지사용량")) Is Nothing) Then
                MyBase.Tables.Add(New 월별1차에너지사용량DataTable(ds.Tables("월별1차에너지사용량")))
            End If
            If (Not (ds.Tables("설계계산결과")) Is Nothing) Then
                MyBase.Tables.Add(New 설계계산결과DataTable(ds.Tables("설계계산결과")))
            End If
            If (Not (ds.Tables("설계계산파라미터")) Is Nothing) Then
                MyBase.Tables.Add(New 설계계산파라미터DataTable(ds.Tables("설계계산파라미터")))
            End If
            Me.DataSetName = ds.DataSetName
            Me.Prefix = ds.Prefix
            Me.Namespace = ds.Namespace
            Me.Locale = ds.Locale
            Me.CaseSensitive = ds.CaseSensitive
            Me.EnforceConstraints = ds.EnforceConstraints
            Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
            Me.InitVars
        Else
            Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
        End If
        Me.GetSerializationData(info, context)
        Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
        AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
        AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
    End Sub
    
      _
    Public ReadOnly Property 최대냉난방부하() As 최대냉난방부하DataTable
        Get
            Return Me.table최대냉난방부하
        End Get
    End Property
    
      _
    Public ReadOnly Property 월별에너지분석() As 월별에너지분석DataTable
        Get
            Return Me.table월별에너지분석
        End Get
    End Property
    
      _
    Public ReadOnly Property TReqUse() As TReqUseDataTable
        Get
            Return Me.tableTReqUse
        End Get
    End Property
    
      _
    Public ReadOnly Property Graph_Req() As Graph_ReqDataTable
        Get
            Return Me.tableGraph_Req
        End Get
    End Property
    
      _
    Public ReadOnly Property Graph_ReqUse() As Graph_ReqUseDataTable
        Get
            Return Me.tableGraph_ReqUse
        End Get
    End Property
    
      _
    Public ReadOnly Property Graph_Info() As Graph_InfoDataTable
        Get
            Return Me.tableGraph_Info
        End Get
    End Property
    
      _
    Public ReadOnly Property 사용면적() As 사용면적DataTable
        Get
            Return Me.table사용면적
        End Get
    End Property
    
      _
    Public ReadOnly Property 에너지소요량() As 에너지소요량DataTable
        Get
            Return Me.table에너지소요량
        End Get
    End Property
    
      _
    Public ReadOnly Property 에너지소요량1() As 에너지소요량1DataTable
        Get
            Return Me.table에너지소요량1
        End Get
    End Property
    
      _
    Public ReadOnly Property 생산에너지() As 생산에너지DataTable
        Get
            Return Me.table생산에너지
        End Get
    End Property
    
      _
    Public ReadOnly Property Graph_Info_data() As Graph_Info_dataDataTable
        Get
            Return Me.tableGraph_Info_data
        End Get
    End Property
    
      _
    Public ReadOnly Property Pyonga_REQ() As Pyonga_REQDataTable
        Get
            Return Me.tablePyonga_REQ
        End Get
    End Property
    
      _
    Public ReadOnly Property Pyonga_USE() As Pyonga_USEDataTable
        Get
            Return Me.tablePyonga_USE
        End Get
    End Property
    
      _
    Public ReadOnly Property Pyonga_1USE() As Pyonga_1USEDataTable
        Get
            Return Me.tablePyonga_1USE
        End Get
    End Property
    
      _
    Public ReadOnly Property Pyonga_YK() As Pyonga_YKDataTable
        Get
            Return Me.tablePyonga_YK
        End Get
    End Property
    
      _
    Public ReadOnly Property 월별1차에너지사용량() As 월별1차에너지사용량DataTable
        Get
            Return Me.table월별1차에너지사용량
        End Get
    End Property
    
      _
    Public ReadOnly Property 설계계산결과() As 설계계산결과DataTable
        Get
            Return Me.table설계계산결과
        End Get
    End Property
    
      _
    Public ReadOnly Property 설계계산파라미터() As 설계계산파라미터DataTable
        Get
            Return Me.table설계계산파라미터
        End Get
    End Property
    
      _
    Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
        Get
            Return Me._schemaSerializationMode
        End Get
        Set
            Me._schemaSerializationMode = value
        End Set
    End Property
    
      _
    Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
        Get
            Return MyBase.Tables
        End Get
    End Property
    
      _
    Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
        Get
            Return MyBase.Relations
        End Get
    End Property
    
      _
    Protected Overrides Sub InitializeDerivedDataSet()
        Me.BeginInit
        Me.InitClass
        Me.EndInit
    End Sub
    
      _
    Public Overrides Function Clone() As Global.System.Data.DataSet
        Dim cln As DSR = CType(MyBase.Clone,DSR)
        cln.InitVars
        cln.SchemaSerializationMode = Me.SchemaSerializationMode
        Return cln
    End Function
    
      _
    Protected Overrides Function ShouldSerializeTables() As Boolean
        Return false
    End Function
    
      _
    Protected Overrides Function ShouldSerializeRelations() As Boolean
        Return false
    End Function
    
      _
    Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
        If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
            Me.Reset
            Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
            ds.ReadXml(reader)
            If (Not (ds.Tables("최대냉난방부하")) Is Nothing) Then
                MyBase.Tables.Add(New 최대냉난방부하DataTable(ds.Tables("최대냉난방부하")))
            End If
            If (Not (ds.Tables("월별에너지분석")) Is Nothing) Then
                MyBase.Tables.Add(New 월별에너지분석DataTable(ds.Tables("월별에너지분석")))
            End If
            If (Not (ds.Tables("TReqUse")) Is Nothing) Then
                MyBase.Tables.Add(New TReqUseDataTable(ds.Tables("TReqUse")))
            End If
            If (Not (ds.Tables("Graph_Req")) Is Nothing) Then
                MyBase.Tables.Add(New Graph_ReqDataTable(ds.Tables("Graph_Req")))
            End If
            If (Not (ds.Tables("Graph_ReqUse")) Is Nothing) Then
                MyBase.Tables.Add(New Graph_ReqUseDataTable(ds.Tables("Graph_ReqUse")))
            End If
            If (Not (ds.Tables("Graph_Info")) Is Nothing) Then
                MyBase.Tables.Add(New Graph_InfoDataTable(ds.Tables("Graph_Info")))
            End If
            If (Not (ds.Tables("사용면적")) Is Nothing) Then
                MyBase.Tables.Add(New 사용면적DataTable(ds.Tables("사용면적")))
            End If
            If (Not (ds.Tables("에너지소요량")) Is Nothing) Then
                MyBase.Tables.Add(New 에너지소요량DataTable(ds.Tables("에너지소요량")))
            End If
            If (Not (ds.Tables("에너지소요량1")) Is Nothing) Then
                MyBase.Tables.Add(New 에너지소요량1DataTable(ds.Tables("에너지소요량1")))
            End If
            If (Not (ds.Tables("생산에너지")) Is Nothing) Then
                MyBase.Tables.Add(New 생산에너지DataTable(ds.Tables("생산에너지")))
            End If
            If (Not (ds.Tables("Graph_Info_data")) Is Nothing) Then
                MyBase.Tables.Add(New Graph_Info_dataDataTable(ds.Tables("Graph_Info_data")))
            End If
            If (Not (ds.Tables("Pyonga_REQ")) Is Nothing) Then
                MyBase.Tables.Add(New Pyonga_REQDataTable(ds.Tables("Pyonga_REQ")))
            End If
            If (Not (ds.Tables("Pyonga_USE")) Is Nothing) Then
                MyBase.Tables.Add(New Pyonga_USEDataTable(ds.Tables("Pyonga_USE")))
            End If
            If (Not (ds.Tables("Pyonga_1USE")) Is Nothing) Then
                MyBase.Tables.Add(New Pyonga_1USEDataTable(ds.Tables("Pyonga_1USE")))
            End If
            If (Not (ds.Tables("Pyonga_YK")) Is Nothing) Then
                MyBase.Tables.Add(New Pyonga_YKDataTable(ds.Tables("Pyonga_YK")))
            End If
            If (Not (ds.Tables("월별1차에너지사용량")) Is Nothing) Then
                MyBase.Tables.Add(New 월별1차에너지사용량DataTable(ds.Tables("월별1차에너지사용량")))
            End If
            If (Not (ds.Tables("설계계산결과")) Is Nothing) Then
                MyBase.Tables.Add(New 설계계산결과DataTable(ds.Tables("설계계산결과")))
            End If
            If (Not (ds.Tables("설계계산파라미터")) Is Nothing) Then
                MyBase.Tables.Add(New 설계계산파라미터DataTable(ds.Tables("설계계산파라미터")))
            End If
            Me.DataSetName = ds.DataSetName
            Me.Prefix = ds.Prefix
            Me.Namespace = ds.Namespace
            Me.Locale = ds.Locale
            Me.CaseSensitive = ds.CaseSensitive
            Me.EnforceConstraints = ds.EnforceConstraints
            Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
            Me.InitVars
        Else
            Me.ReadXml(reader)
            Me.InitVars
        End If
    End Sub
    
      _
    Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
        Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
        Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
        stream.Position = 0
        Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
    End Function
    
      _
    Friend Overloads Sub InitVars()
        Me.InitVars(true)
    End Sub
    
      _
    Friend Overloads Sub InitVars(ByVal initTable As Boolean)
        Me.table최대냉난방부하 = CType(MyBase.Tables("최대냉난방부하"),최대냉난방부하DataTable)
        If (initTable = true) Then
            If (Not (Me.table최대냉난방부하) Is Nothing) Then
                Me.table최대냉난방부하.InitVars
            End If
        End If
        Me.table월별에너지분석 = CType(MyBase.Tables("월별에너지분석"),월별에너지분석DataTable)
        If (initTable = true) Then
            If (Not (Me.table월별에너지분석) Is Nothing) Then
                Me.table월별에너지분석.InitVars
            End If
        End If
        Me.tableTReqUse = CType(MyBase.Tables("TReqUse"),TReqUseDataTable)
        If (initTable = true) Then
            If (Not (Me.tableTReqUse) Is Nothing) Then
                Me.tableTReqUse.InitVars
            End If
        End If
        Me.tableGraph_Req = CType(MyBase.Tables("Graph_Req"),Graph_ReqDataTable)
        If (initTable = true) Then
            If (Not (Me.tableGraph_Req) Is Nothing) Then
                Me.tableGraph_Req.InitVars
            End If
        End If
        Me.tableGraph_ReqUse = CType(MyBase.Tables("Graph_ReqUse"),Graph_ReqUseDataTable)
        If (initTable = true) Then
            If (Not (Me.tableGraph_ReqUse) Is Nothing) Then
                Me.tableGraph_ReqUse.InitVars
            End If
        End If
        Me.tableGraph_Info = CType(MyBase.Tables("Graph_Info"),Graph_InfoDataTable)
        If (initTable = true) Then
            If (Not (Me.tableGraph_Info) Is Nothing) Then
                Me.tableGraph_Info.InitVars
            End If
        End If
        Me.table사용면적 = CType(MyBase.Tables("사용면적"),사용면적DataTable)
        If (initTable = true) Then
            If (Not (Me.table사용면적) Is Nothing) Then
                Me.table사용면적.InitVars
            End If
        End If
        Me.table에너지소요량 = CType(MyBase.Tables("에너지소요량"),에너지소요량DataTable)
        If (initTable = true) Then
            If (Not (Me.table에너지소요량) Is Nothing) Then
                Me.table에너지소요량.InitVars
            End If
        End If
        Me.table에너지소요량1 = CType(MyBase.Tables("에너지소요량1"),에너지소요량1DataTable)
        If (initTable = true) Then
            If (Not (Me.table에너지소요량1) Is Nothing) Then
                Me.table에너지소요량1.InitVars
            End If
        End If
        Me.table생산에너지 = CType(MyBase.Tables("생산에너지"),생산에너지DataTable)
        If (initTable = true) Then
            If (Not (Me.table생산에너지) Is Nothing) Then
                Me.table생산에너지.InitVars
            End If
        End If
        Me.tableGraph_Info_data = CType(MyBase.Tables("Graph_Info_data"),Graph_Info_dataDataTable)
        If (initTable = true) Then
            If (Not (Me.tableGraph_Info_data) Is Nothing) Then
                Me.tableGraph_Info_data.InitVars
            End If
        End If
        Me.tablePyonga_REQ = CType(MyBase.Tables("Pyonga_REQ"),Pyonga_REQDataTable)
        If (initTable = true) Then
            If (Not (Me.tablePyonga_REQ) Is Nothing) Then
                Me.tablePyonga_REQ.InitVars
            End If
        End If
        Me.tablePyonga_USE = CType(MyBase.Tables("Pyonga_USE"),Pyonga_USEDataTable)
        If (initTable = true) Then
            If (Not (Me.tablePyonga_USE) Is Nothing) Then
                Me.tablePyonga_USE.InitVars
            End If
        End If
        Me.tablePyonga_1USE = CType(MyBase.Tables("Pyonga_1USE"),Pyonga_1USEDataTable)
        If (initTable = true) Then
            If (Not (Me.tablePyonga_1USE) Is Nothing) Then
                Me.tablePyonga_1USE.InitVars
            End If
        End If
        Me.tablePyonga_YK = CType(MyBase.Tables("Pyonga_YK"),Pyonga_YKDataTable)
        If (initTable = true) Then
            If (Not (Me.tablePyonga_YK) Is Nothing) Then
                Me.tablePyonga_YK.InitVars
            End If
        End If
        Me.table월별1차에너지사용량 = CType(MyBase.Tables("월별1차에너지사용량"),월별1차에너지사용량DataTable)
        If (initTable = true) Then
            If (Not (Me.table월별1차에너지사용량) Is Nothing) Then
                Me.table월별1차에너지사용량.InitVars
            End If
        End If
        Me.table설계계산결과 = CType(MyBase.Tables("설계계산결과"),설계계산결과DataTable)
        If (initTable = true) Then
            If (Not (Me.table설계계산결과) Is Nothing) Then
                Me.table설계계산결과.InitVars
            End If
        End If
        Me.table설계계산파라미터 = CType(MyBase.Tables("설계계산파라미터"),설계계산파라미터DataTable)
        If (initTable = true) Then
            If (Not (Me.table설계계산파라미터) Is Nothing) Then
                Me.table설계계산파라미터.InitVars
            End If
        End If
    End Sub
    
      _
    Private Sub InitClass()
        Me.DataSetName = "DSR"
        Me.Prefix = ""
        Me.Namespace = "http://tempuri.org/DSR.xsd"
        Me.EnforceConstraints = true
        Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
        Me.table최대냉난방부하 = New 최대냉난방부하DataTable()
        MyBase.Tables.Add(Me.table최대냉난방부하)
        Me.table월별에너지분석 = New 월별에너지분석DataTable()
        MyBase.Tables.Add(Me.table월별에너지분석)
        Me.tableTReqUse = New TReqUseDataTable()
        MyBase.Tables.Add(Me.tableTReqUse)
        Me.tableGraph_Req = New Graph_ReqDataTable()
        MyBase.Tables.Add(Me.tableGraph_Req)
        Me.tableGraph_ReqUse = New Graph_ReqUseDataTable()
        MyBase.Tables.Add(Me.tableGraph_ReqUse)
        Me.tableGraph_Info = New Graph_InfoDataTable()
        MyBase.Tables.Add(Me.tableGraph_Info)
        Me.table사용면적 = New 사용면적DataTable()
        MyBase.Tables.Add(Me.table사용면적)
        Me.table에너지소요량 = New 에너지소요량DataTable()
        MyBase.Tables.Add(Me.table에너지소요량)
        Me.table에너지소요량1 = New 에너지소요량1DataTable()
        MyBase.Tables.Add(Me.table에너지소요량1)
        Me.table생산에너지 = New 생산에너지DataTable()
        MyBase.Tables.Add(Me.table생산에너지)
        Me.tableGraph_Info_data = New Graph_Info_dataDataTable()
        MyBase.Tables.Add(Me.tableGraph_Info_data)
        Me.tablePyonga_REQ = New Pyonga_REQDataTable()
        MyBase.Tables.Add(Me.tablePyonga_REQ)
        Me.tablePyonga_USE = New Pyonga_USEDataTable()
        MyBase.Tables.Add(Me.tablePyonga_USE)
        Me.tablePyonga_1USE = New Pyonga_1USEDataTable()
        MyBase.Tables.Add(Me.tablePyonga_1USE)
        Me.tablePyonga_YK = New Pyonga_YKDataTable()
        MyBase.Tables.Add(Me.tablePyonga_YK)
        Me.table월별1차에너지사용량 = New 월별1차에너지사용량DataTable()
        MyBase.Tables.Add(Me.table월별1차에너지사용량)
        Me.table설계계산결과 = New 설계계산결과DataTable()
        MyBase.Tables.Add(Me.table설계계산결과)
        Me.table설계계산파라미터 = New 설계계산파라미터DataTable()
        MyBase.Tables.Add(Me.table설계계산파라미터)
    End Sub
    
      _
    Private Function ShouldSerialize최대냉난방부하() As Boolean
        Return false
    End Function
    
      _
    Private Function ShouldSerialize월별에너지분석() As Boolean
        Return false
    End Function
    
      _
    Private Function ShouldSerializeTReqUse() As Boolean
        Return false
    End Function
    
      _
    Private Function ShouldSerializeGraph_Req() As Boolean
        Return false
    End Function
    
      _
    Private Function ShouldSerializeGraph_ReqUse() As Boolean
        Return false
    End Function
    
      _
    Private Function ShouldSerializeGraph_Info() As Boolean
        Return false
    End Function
    
      _
    Private Function ShouldSerialize사용면적() As Boolean
        Return false
    End Function
    
      _
    Private Function ShouldSerialize에너지소요량() As Boolean
        Return false
    End Function
    
      _
    Private Function ShouldSerialize에너지소요량1() As Boolean
        Return false
    End Function
    
      _
    Private Function ShouldSerialize생산에너지() As Boolean
        Return false
    End Function
    
      _
    Private Function ShouldSerializeGraph_Info_data() As Boolean
        Return false
    End Function
    
      _
    Private Function ShouldSerializePyonga_REQ() As Boolean
        Return false
    End Function
    
      _
    Private Function ShouldSerializePyonga_USE() As Boolean
        Return false
    End Function
    
      _
    Private Function ShouldSerializePyonga_1USE() As Boolean
        Return false
    End Function
    
      _
    Private Function ShouldSerializePyonga_YK() As Boolean
        Return false
    End Function
    
      _
    Private Function ShouldSerialize월별1차에너지사용량() As Boolean
        Return false
    End Function
    
      _
    Private Function ShouldSerialize설계계산결과() As Boolean
        Return false
    End Function
    
      _
    Private Function ShouldSerialize설계계산파라미터() As Boolean
        Return false
    End Function
    
      _
    Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
        If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
            Me.InitVars
        End If
    End Sub
    
      _
    Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
        Dim ds As DSR = New DSR()
        Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
        Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
        Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
        any.Namespace = ds.Namespace
        sequence.Items.Add(any)
        type.Particle = sequence
        Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
        If xs.Contains(dsSchema.TargetNamespace) Then
            Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
            Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
            Try 
                Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
                dsSchema.Write(s1)
                Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
                Do While schemas.MoveNext
                    schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
                    s2.SetLength(0)
                    schema.Write(s2)
                    If (s1.Length = s2.Length) Then
                        s1.Position = 0
                        s2.Position = 0
                        
                        Do While ((s1.Position <> s1.Length)  _
                                    AndAlso (s1.ReadByte = s2.ReadByte))
                            
                            
                        Loop
                        If (s1.Position = s1.Length) Then
                            Return type
                        End If
                    End If
                    
                Loop
            Finally
                If (Not (s1) Is Nothing) Then
                    s1.Close
                End If
                If (Not (s2) Is Nothing) Then
                    s2.Close
                End If
            End Try
        End If
        xs.Add(dsSchema)
        Return type
    End Function
    
      _
    Public Delegate Sub 최대냉난방부하RowChangeEventHandler(ByVal sender As Object, ByVal e As 최대냉난방부하RowChangeEvent)
    
      _
    Public Delegate Sub 월별에너지분석RowChangeEventHandler(ByVal sender As Object, ByVal e As 월별에너지분석RowChangeEvent)
    
      _
    Public Delegate Sub TReqUseRowChangeEventHandler(ByVal sender As Object, ByVal e As TReqUseRowChangeEvent)
    
      _
    Public Delegate Sub Graph_ReqRowChangeEventHandler(ByVal sender As Object, ByVal e As Graph_ReqRowChangeEvent)
    
      _
    Public Delegate Sub Graph_ReqUseRowChangeEventHandler(ByVal sender As Object, ByVal e As Graph_ReqUseRowChangeEvent)
    
      _
    Public Delegate Sub Graph_InfoRowChangeEventHandler(ByVal sender As Object, ByVal e As Graph_InfoRowChangeEvent)
    
      _
    Public Delegate Sub 사용면적RowChangeEventHandler(ByVal sender As Object, ByVal e As 사용면적RowChangeEvent)
    
      _
    Public Delegate Sub 에너지소요량RowChangeEventHandler(ByVal sender As Object, ByVal e As 에너지소요량RowChangeEvent)
    
      _
    Public Delegate Sub 에너지소요량1RowChangeEventHandler(ByVal sender As Object, ByVal e As 에너지소요량1RowChangeEvent)
    
      _
    Public Delegate Sub 생산에너지RowChangeEventHandler(ByVal sender As Object, ByVal e As 생산에너지RowChangeEvent)
    
      _
    Public Delegate Sub Graph_Info_dataRowChangeEventHandler(ByVal sender As Object, ByVal e As Graph_Info_dataRowChangeEvent)
    
      _
    Public Delegate Sub Pyonga_REQRowChangeEventHandler(ByVal sender As Object, ByVal e As Pyonga_REQRowChangeEvent)
    
      _
    Public Delegate Sub Pyonga_USERowChangeEventHandler(ByVal sender As Object, ByVal e As Pyonga_USERowChangeEvent)
    
      _
    Public Delegate Sub Pyonga_1USERowChangeEventHandler(ByVal sender As Object, ByVal e As Pyonga_1USERowChangeEvent)
    
      _
    Public Delegate Sub Pyonga_YKRowChangeEventHandler(ByVal sender As Object, ByVal e As Pyonga_YKRowChangeEvent)
    
      _
    Public Delegate Sub 월별1차에너지사용량RowChangeEventHandler(ByVal sender As Object, ByVal e As 월별1차에너지사용량RowChangeEvent)
    
      _
    Public Delegate Sub 설계계산결과RowChangeEventHandler(ByVal sender As Object, ByVal e As 설계계산결과RowChangeEvent)
    
      _
    Public Delegate Sub 설계계산파라미터RowChangeEventHandler(ByVal sender As Object, ByVal e As 설계계산파라미터RowChangeEvent)
    
    '''
    '''Represents the strongly named DataTable class.
    '''
      _
    Partial Public Class 최대냉난방부하DataTable
        Inherits Global.System.Data.TypedTableBase(Of 최대냉난방부하Row)
        
        Private columnZone As Global.System.Data.DataColumn
        
        Private column최대난방기기부하 As Global.System.Data.DataColumn
        
        Private column최대난방실내부하 As Global.System.Data.DataColumn
        
        Private column난방최대가동시간 As Global.System.Data.DataColumn
        
        Private column최대가열성능 As Global.System.Data.DataColumn
        
        Private column최대냉방기기부하 As Global.System.Data.DataColumn
        
        Private column최대냉방실내부하 As Global.System.Data.DataColumn
        
        Private column냉방최대가동시간 As Global.System.Data.DataColumn
        
        Private column최대냉각성능 As Global.System.Data.DataColumn
        
        Private column최대가습성능 As Global.System.Data.DataColumn
        
        Private column공조풍량 As Global.System.Data.DataColumn
        
          _
        Public Sub New()
            MyBase.New
            Me.TableName = "최대냉난방부하"
            Me.BeginInit
            Me.InitClass
            Me.EndInit
        End Sub
        
          _
        Friend Sub New(ByVal table As Global.System.Data.DataTable)
            MyBase.New
            Me.TableName = table.TableName
            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
                Me.CaseSensitive = table.CaseSensitive
            End If
            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
                Me.Locale = table.Locale
            End If
            If (table.Namespace <> table.DataSet.Namespace) Then
                Me.Namespace = table.Namespace
            End If
            Me.Prefix = table.Prefix
            Me.MinimumCapacity = table.MinimumCapacity
        End Sub
        
          _
        Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
            MyBase.New(info, context)
            Me.InitVars
        End Sub
        
          _
        Public ReadOnly Property ZoneColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columnZone
            End Get
        End Property
        
          _
        Public ReadOnly Property 최대난방기기부하Column() As Global.System.Data.DataColumn
            Get
                Return Me.column최대난방기기부하
            End Get
        End Property
        
          _
        Public ReadOnly Property 최대난방실내부하Column() As Global.System.Data.DataColumn
            Get
                Return Me.column최대난방실내부하
            End Get
        End Property
        
          _
        Public ReadOnly Property 난방최대가동시간Column() As Global.System.Data.DataColumn
            Get
                Return Me.column난방최대가동시간
            End Get
        End Property
        
          _
        Public ReadOnly Property 최대가열성능Column() As Global.System.Data.DataColumn
            Get
                Return Me.column최대가열성능
            End Get
        End Property
        
          _
        Public ReadOnly Property 최대냉방기기부하Column() As Global.System.Data.DataColumn
            Get
                Return Me.column최대냉방기기부하
            End Get
        End Property
        
          _
        Public ReadOnly Property 최대냉방실내부하Column() As Global.System.Data.DataColumn
            Get
                Return Me.column최대냉방실내부하
            End Get
        End Property
        
          _
        Public ReadOnly Property 냉방최대가동시간Column() As Global.System.Data.DataColumn
            Get
                Return Me.column냉방최대가동시간
            End Get
        End Property
        
          _
        Public ReadOnly Property 최대냉각성능Column() As Global.System.Data.DataColumn
            Get
                Return Me.column최대냉각성능
            End Get
        End Property
        
          _
        Public ReadOnly Property 최대가습성능Column() As Global.System.Data.DataColumn
            Get
                Return Me.column최대가습성능
            End Get
        End Property
        
          _
        Public ReadOnly Property 공조풍량Column() As Global.System.Data.DataColumn
            Get
                Return Me.column공조풍량
            End Get
        End Property
        
          _
        Public ReadOnly Property Count() As Integer
            Get
                Return Me.Rows.Count
            End Get
        End Property
        
          _
        Public Default ReadOnly Property Item(ByVal index As Integer) As 최대냉난방부하Row
            Get
                Return CType(Me.Rows(index),최대냉난방부하Row)
            End Get
        End Property
        
          _
        Public Event 최대냉난방부하RowChanging As 최대냉난방부하RowChangeEventHandler
        
          _
        Public Event 최대냉난방부하RowChanged As 최대냉난방부하RowChangeEventHandler
        
          _
        Public Event 최대냉난방부하RowDeleting As 최대냉난방부하RowChangeEventHandler
        
          _
        Public Event 최대냉난방부하RowDeleted As 최대냉난방부하RowChangeEventHandler
        
          _
        Public Overloads Sub Add최대냉난방부하Row(ByVal row As 최대냉난방부하Row)
            Me.Rows.Add(row)
        End Sub
        
          _
        Public Overloads Function Add최대냉난방부하Row(ByVal Zone As String, ByVal 최대난방기기부하 As Decimal, ByVal 최대난방실내부하 As Decimal, ByVal 난방최대가동시간 As Decimal, ByVal 최대가열성능 As Decimal, ByVal 최대냉방기기부하 As Decimal, ByVal 최대냉방실내부하 As Decimal, ByVal 냉방최대가동시간 As Decimal, ByVal 최대냉각성능 As Decimal, ByVal 최대가습성능 As Decimal, ByVal 공조풍량 As Decimal) As 최대냉난방부하Row
            Dim row최대냉난방부하Row As 최대냉난방부하Row = CType(Me.NewRow,최대냉난방부하Row)
            Dim columnValuesArray() As Object = New Object() {Zone, 최대난방기기부하, 최대난방실내부하, 난방최대가동시간, 최대가열성능, 최대냉방기기부하, 최대냉방실내부하, 냉방최대가동시간, 최대냉각성능, 최대가습성능, 공조풍량}
            row최대냉난방부하Row.ItemArray = columnValuesArray
            Me.Rows.Add(row최대냉난방부하Row)
            Return row최대냉난방부하Row
        End Function
        
          _
        Public Overrides Function Clone() As Global.System.Data.DataTable
            Dim cln As 최대냉난방부하DataTable = CType(MyBase.Clone,최대냉난방부하DataTable)
            cln.InitVars
            Return cln
        End Function
        
          _
        Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
            Return New 최대냉난방부하DataTable()
        End Function
        
          _
        Friend Sub InitVars()
            Me.columnZone = MyBase.Columns("Zone")
            Me.column최대난방기기부하 = MyBase.Columns("최대난방기기부하")
            Me.column최대난방실내부하 = MyBase.Columns("최대난방실내부하")
            Me.column난방최대가동시간 = MyBase.Columns("난방최대가동시간")
            Me.column최대가열성능 = MyBase.Columns("최대가열성능")
            Me.column최대냉방기기부하 = MyBase.Columns("최대냉방기기부하")
            Me.column최대냉방실내부하 = MyBase.Columns("최대냉방실내부하")
            Me.column냉방최대가동시간 = MyBase.Columns("냉방최대가동시간")
            Me.column최대냉각성능 = MyBase.Columns("최대냉각성능")
            Me.column최대가습성능 = MyBase.Columns("최대가습성능")
            Me.column공조풍량 = MyBase.Columns("공조풍량")
        End Sub
        
          _
        Private Sub InitClass()
            Me.columnZone = New Global.System.Data.DataColumn("Zone", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnZone)
            Me.column최대난방기기부하 = New Global.System.Data.DataColumn("최대난방기기부하", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column최대난방기기부하)
            Me.column최대난방실내부하 = New Global.System.Data.DataColumn("최대난방실내부하", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column최대난방실내부하)
            Me.column난방최대가동시간 = New Global.System.Data.DataColumn("난방최대가동시간", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column난방최대가동시간)
            Me.column최대가열성능 = New Global.System.Data.DataColumn("최대가열성능", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column최대가열성능)
            Me.column최대냉방기기부하 = New Global.System.Data.DataColumn("최대냉방기기부하", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column최대냉방기기부하)
            Me.column최대냉방실내부하 = New Global.System.Data.DataColumn("최대냉방실내부하", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column최대냉방실내부하)
            Me.column냉방최대가동시간 = New Global.System.Data.DataColumn("냉방최대가동시간", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column냉방최대가동시간)
            Me.column최대냉각성능 = New Global.System.Data.DataColumn("최대냉각성능", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column최대냉각성능)
            Me.column최대가습성능 = New Global.System.Data.DataColumn("최대가습성능", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column최대가습성능)
            Me.column공조풍량 = New Global.System.Data.DataColumn("공조풍량", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column공조풍량)
            Me.column최대난방기기부하.DefaultValue = CType(0D,Decimal)
            Me.column최대난방실내부하.DefaultValue = CType(0D,Decimal)
            Me.column난방최대가동시간.DefaultValue = CType(0D,Decimal)
            Me.column최대가열성능.DefaultValue = CType(0D,Decimal)
            Me.column최대냉방기기부하.DefaultValue = CType(0D,Decimal)
            Me.column최대냉방실내부하.DefaultValue = CType(0D,Decimal)
            Me.column냉방최대가동시간.DefaultValue = CType(0D,Decimal)
            Me.column최대냉각성능.DefaultValue = CType(0D,Decimal)
            Me.column최대가습성능.DefaultValue = CType(0D,Decimal)
            Me.column공조풍량.DefaultValue = CType(0D,Decimal)
        End Sub
        
          _
        Public Function New최대냉난방부하Row() As 최대냉난방부하Row
            Return CType(Me.NewRow,최대냉난방부하Row)
        End Function
        
          _
        Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
            Return New 최대냉난방부하Row(builder)
        End Function
        
          _
        Protected Overrides Function GetRowType() As Global.System.Type
            Return GetType(최대냉난방부하Row)
        End Function
        
          _
        Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.최대냉난방부하RowChangedEvent) Is Nothing) Then
                RaiseEvent 최대냉난방부하RowChanged(Me, New 최대냉난방부하RowChangeEvent(CType(e.Row,최대냉난방부하Row), e.Action))
            End If
        End Sub
        
          _
        Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.최대냉난방부하RowChangingEvent) Is Nothing) Then
                RaiseEvent 최대냉난방부하RowChanging(Me, New 최대냉난방부하RowChangeEvent(CType(e.Row,최대냉난방부하Row), e.Action))
            End If
        End Sub
        
          _
        Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.최대냉난방부하RowDeletedEvent) Is Nothing) Then
                RaiseEvent 최대냉난방부하RowDeleted(Me, New 최대냉난방부하RowChangeEvent(CType(e.Row,최대냉난방부하Row), e.Action))
            End If
        End Sub
        
          _
        Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.최대냉난방부하RowDeletingEvent) Is Nothing) Then
                RaiseEvent 최대냉난방부하RowDeleting(Me, New 최대냉난방부하RowChangeEvent(CType(e.Row,최대냉난방부하Row), e.Action))
            End If
        End Sub
        
          _
        Public Sub Remove최대냉난방부하Row(ByVal row As 최대냉난방부하Row)
            Me.Rows.Remove(row)
        End Sub
        
          _
        Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
            Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
            Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
            Dim ds As DSR = New DSR()
            Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
            any1.MinOccurs = New Decimal(0)
            any1.MaxOccurs = Decimal.MaxValue
            any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
            sequence.Items.Add(any1)
            Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
            any2.MinOccurs = New Decimal(1)
            any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
            sequence.Items.Add(any2)
            Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
            attribute1.Name = "namespace"
            attribute1.FixedValue = ds.Namespace
            type.Attributes.Add(attribute1)
            Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
            attribute2.Name = "tableTypeName"
            attribute2.FixedValue = "최대냉난방부하DataTable"
            type.Attributes.Add(attribute2)
            type.Particle = sequence
            Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
            If xs.Contains(dsSchema.TargetNamespace) Then
                Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
                Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
                Try 
                    Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
                    dsSchema.Write(s1)
                    Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
                    Do While schemas.MoveNext
                        schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
                        s2.SetLength(0)
                        schema.Write(s2)
                        If (s1.Length = s2.Length) Then
                            s1.Position = 0
                            s2.Position = 0
                            
                            Do While ((s1.Position <> s1.Length)  _
                                        AndAlso (s1.ReadByte = s2.ReadByte))
                                
                                
                            Loop
                            If (s1.Position = s1.Length) Then
                                Return type
                            End If
                        End If
                        
                    Loop
                Finally
                    If (Not (s1) Is Nothing) Then
                        s1.Close
                    End If
                    If (Not (s2) Is Nothing) Then
                        s2.Close
                    End If
                End Try
            End If
            xs.Add(dsSchema)
            Return type
        End Function
    End Class
    
    '''
    '''Represents the strongly named DataTable class.
    '''
      _
    Partial Public Class 월별에너지분석DataTable
        Inherits Global.System.Data.TypedTableBase(Of 월별에너지분석Row)
        
        Private column월 As Global.System.Data.DataColumn
        
        Private column존 As Global.System.Data.DataColumn
        
        Private column난방요구량열 As Global.System.Data.DataColumn
        
        Private column난방요구량공조 As Global.System.Data.DataColumn
        
        Private column냉방요구량열 As Global.System.Data.DataColumn
        
        Private column냉방요구량공조 As Global.System.Data.DataColumn
        
        Private column조명요구량 As Global.System.Data.DataColumn
        
        Private column급탕요구량 As Global.System.Data.DataColumn
        
        Private column공조풍량 As Global.System.Data.DataColumn
        
        Private column공조요구량난방 As Global.System.Data.DataColumn
        
        Private column공조요구량냉방 As Global.System.Data.DataColumn
        
        Private column공조요구량가습 As Global.System.Data.DataColumn
        
        Private column환기요구량 As Global.System.Data.DataColumn
        
          _
        Public Sub New()
            MyBase.New
            Me.TableName = "월별에너지분석"
            Me.BeginInit
            Me.InitClass
            Me.EndInit
        End Sub
        
          _
        Friend Sub New(ByVal table As Global.System.Data.DataTable)
            MyBase.New
            Me.TableName = table.TableName
            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
                Me.CaseSensitive = table.CaseSensitive
            End If
            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
                Me.Locale = table.Locale
            End If
            If (table.Namespace <> table.DataSet.Namespace) Then
                Me.Namespace = table.Namespace
            End If
            Me.Prefix = table.Prefix
            Me.MinimumCapacity = table.MinimumCapacity
        End Sub
        
          _
        Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
            MyBase.New(info, context)
            Me.InitVars
        End Sub
        
          _
        Public ReadOnly Property 월Column() As Global.System.Data.DataColumn
            Get
                Return Me.column월
            End Get
        End Property
        
          _
        Public ReadOnly Property 존Column() As Global.System.Data.DataColumn
            Get
                Return Me.column존
            End Get
        End Property
        
          _
        Public ReadOnly Property 난방요구량열Column() As Global.System.Data.DataColumn
            Get
                Return Me.column난방요구량열
            End Get
        End Property
        
          _
        Public ReadOnly Property 난방요구량공조Column() As Global.System.Data.DataColumn
            Get
                Return Me.column난방요구량공조
            End Get
        End Property
        
          _
        Public ReadOnly Property 냉방요구량열Column() As Global.System.Data.DataColumn
            Get
                Return Me.column냉방요구량열
            End Get
        End Property
        
          _
        Public ReadOnly Property 냉방요구량공조Column() As Global.System.Data.DataColumn
            Get
                Return Me.column냉방요구량공조
            End Get
        End Property
        
          _
        Public ReadOnly Property 조명요구량Column() As Global.System.Data.DataColumn
            Get
                Return Me.column조명요구량
            End Get
        End Property
        
          _
        Public ReadOnly Property 급탕요구량Column() As Global.System.Data.DataColumn
            Get
                Return Me.column급탕요구량
            End Get
        End Property
        
          _
        Public ReadOnly Property 공조풍량Column() As Global.System.Data.DataColumn
            Get
                Return Me.column공조풍량
            End Get
        End Property
        
          _
        Public ReadOnly Property 공조요구량난방Column() As Global.System.Data.DataColumn
            Get
                Return Me.column공조요구량난방
            End Get
        End Property
        
          _
        Public ReadOnly Property 공조요구량냉방Column() As Global.System.Data.DataColumn
            Get
                Return Me.column공조요구량냉방
            End Get
        End Property
        
          _
        Public ReadOnly Property 공조요구량가습Column() As Global.System.Data.DataColumn
            Get
                Return Me.column공조요구량가습
            End Get
        End Property
        
          _
        Public ReadOnly Property 환기요구량Column() As Global.System.Data.DataColumn
            Get
                Return Me.column환기요구량
            End Get
        End Property
        
          _
        Public ReadOnly Property Count() As Integer
            Get
                Return Me.Rows.Count
            End Get
        End Property
        
          _
        Public Default ReadOnly Property Item(ByVal index As Integer) As 월별에너지분석Row
            Get
                Return CType(Me.Rows(index),월별에너지분석Row)
            End Get
        End Property
        
          _
        Public Event 월별에너지분석RowChanging As 월별에너지분석RowChangeEventHandler
        
          _
        Public Event 월별에너지분석RowChanged As 월별에너지분석RowChangeEventHandler
        
          _
        Public Event 월별에너지분석RowDeleting As 월별에너지분석RowChangeEventHandler
        
          _
        Public Event 월별에너지분석RowDeleted As 월별에너지분석RowChangeEventHandler
        
          _
        Public Overloads Sub Add월별에너지분석Row(ByVal row As 월별에너지분석Row)
            Me.Rows.Add(row)
        End Sub
        
          _
        Public Overloads Function Add월별에너지분석Row(ByVal 월 As String, ByVal 존 As String, ByVal 난방요구량열 As Decimal, ByVal 난방요구량공조 As Decimal, ByVal 냉방요구량열 As Decimal, ByVal 냉방요구량공조 As Decimal, ByVal 조명요구량 As Decimal, ByVal 급탕요구량 As Decimal, ByVal 공조풍량 As Decimal, ByVal 공조요구량난방 As Decimal, ByVal 공조요구량냉방 As Decimal, ByVal 공조요구량가습 As Decimal, ByVal 환기요구량 As Decimal) As 월별에너지분석Row
            Dim row월별에너지분석Row As 월별에너지분석Row = CType(Me.NewRow,월별에너지분석Row)
            Dim columnValuesArray() As Object = New Object() {월, 존, 난방요구량열, 난방요구량공조, 냉방요구량열, 냉방요구량공조, 조명요구량, 급탕요구량, 공조풍량, 공조요구량난방, 공조요구량냉방, 공조요구량가습, 환기요구량}
            row월별에너지분석Row.ItemArray = columnValuesArray
            Me.Rows.Add(row월별에너지분석Row)
            Return row월별에너지분석Row
        End Function
        
          _
        Public Function FindBy월존(ByVal 월 As String, ByVal 존 As String) As 월별에너지분석Row
            Return CType(Me.Rows.Find(New Object() {월, 존}),월별에너지분석Row)
        End Function
        
          _
        Public Overrides Function Clone() As Global.System.Data.DataTable
            Dim cln As 월별에너지분석DataTable = CType(MyBase.Clone,월별에너지분석DataTable)
            cln.InitVars
            Return cln
        End Function
        
          _
        Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
            Return New 월별에너지분석DataTable()
        End Function
        
          _
        Friend Sub InitVars()
            Me.column월 = MyBase.Columns("월")
            Me.column존 = MyBase.Columns("존")
            Me.column난방요구량열 = MyBase.Columns("난방요구량열")
            Me.column난방요구량공조 = MyBase.Columns("난방요구량공조")
            Me.column냉방요구량열 = MyBase.Columns("냉방요구량열")
            Me.column냉방요구량공조 = MyBase.Columns("냉방요구량공조")
            Me.column조명요구량 = MyBase.Columns("조명요구량")
            Me.column급탕요구량 = MyBase.Columns("급탕요구량")
            Me.column공조풍량 = MyBase.Columns("공조풍량")
            Me.column공조요구량난방 = MyBase.Columns("공조요구량난방")
            Me.column공조요구량냉방 = MyBase.Columns("공조요구량냉방")
            Me.column공조요구량가습 = MyBase.Columns("공조요구량가습")
            Me.column환기요구량 = MyBase.Columns("환기요구량")
        End Sub
        
          _
        Private Sub InitClass()
            Me.column월 = New Global.System.Data.DataColumn("월", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column월)
            Me.column존 = New Global.System.Data.DataColumn("존", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column존)
            Me.column난방요구량열 = New Global.System.Data.DataColumn("난방요구량열", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column난방요구량열)
            Me.column난방요구량공조 = New Global.System.Data.DataColumn("난방요구량공조", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column난방요구량공조)
            Me.column냉방요구량열 = New Global.System.Data.DataColumn("냉방요구량열", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column냉방요구량열)
            Me.column냉방요구량공조 = New Global.System.Data.DataColumn("냉방요구량공조", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column냉방요구량공조)
            Me.column조명요구량 = New Global.System.Data.DataColumn("조명요구량", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column조명요구량)
            Me.column급탕요구량 = New Global.System.Data.DataColumn("급탕요구량", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column급탕요구량)
            Me.column공조풍량 = New Global.System.Data.DataColumn("공조풍량", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column공조풍량)
            Me.column공조요구량난방 = New Global.System.Data.DataColumn("공조요구량난방", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column공조요구량난방)
            Me.column공조요구량냉방 = New Global.System.Data.DataColumn("공조요구량냉방", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column공조요구량냉방)
            Me.column공조요구량가습 = New Global.System.Data.DataColumn("공조요구량가습", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column공조요구량가습)
            Me.column환기요구량 = New Global.System.Data.DataColumn("환기요구량", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column환기요구량)
            Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.column월, Me.column존}, true))
            Me.column월.AllowDBNull = false
            Me.column월.DefaultValue = CType("",String)
            Me.column존.AllowDBNull = false
            Me.column존.DefaultValue = CType("",String)
            Me.column난방요구량열.DefaultValue = CType(0D,Decimal)
            Me.column난방요구량공조.DefaultValue = CType(0D,Decimal)
            Me.column냉방요구량열.DefaultValue = CType(0D,Decimal)
            Me.column냉방요구량공조.DefaultValue = CType(0D,Decimal)
            Me.column조명요구량.DefaultValue = CType(0D,Decimal)
            Me.column급탕요구량.DefaultValue = CType(0D,Decimal)
            Me.column공조풍량.DefaultValue = CType(0D,Decimal)
            Me.column공조요구량난방.DefaultValue = CType(0D,Decimal)
            Me.column공조요구량냉방.DefaultValue = CType(0D,Decimal)
            Me.column공조요구량가습.DefaultValue = CType(0D,Decimal)
            Me.column환기요구량.DefaultValue = CType(0D,Decimal)
        End Sub
        
          _
        Public Function New월별에너지분석Row() As 월별에너지분석Row
            Return CType(Me.NewRow,월별에너지분석Row)
        End Function
        
          _
        Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
            Return New 월별에너지분석Row(builder)
        End Function
        
          _
        Protected Overrides Function GetRowType() As Global.System.Type
            Return GetType(월별에너지분석Row)
        End Function
        
          _
        Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.월별에너지분석RowChangedEvent) Is Nothing) Then
                RaiseEvent 월별에너지분석RowChanged(Me, New 월별에너지분석RowChangeEvent(CType(e.Row,월별에너지분석Row), e.Action))
            End If
        End Sub
        
          _
        Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.월별에너지분석RowChangingEvent) Is Nothing) Then
                RaiseEvent 월별에너지분석RowChanging(Me, New 월별에너지분석RowChangeEvent(CType(e.Row,월별에너지분석Row), e.Action))
            End If
        End Sub
        
          _
        Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.월별에너지분석RowDeletedEvent) Is Nothing) Then
                RaiseEvent 월별에너지분석RowDeleted(Me, New 월별에너지분석RowChangeEvent(CType(e.Row,월별에너지분석Row), e.Action))
            End If
        End Sub
        
          _
        Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.월별에너지분석RowDeletingEvent) Is Nothing) Then
                RaiseEvent 월별에너지분석RowDeleting(Me, New 월별에너지분석RowChangeEvent(CType(e.Row,월별에너지분석Row), e.Action))
            End If
        End Sub
        
          _
        Public Sub Remove월별에너지분석Row(ByVal row As 월별에너지분석Row)
            Me.Rows.Remove(row)
        End Sub
        
          _
        Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
            Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
            Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
            Dim ds As DSR = New DSR()
            Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
            any1.MinOccurs = New Decimal(0)
            any1.MaxOccurs = Decimal.MaxValue
            any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
            sequence.Items.Add(any1)
            Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
            any2.MinOccurs = New Decimal(1)
            any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
            sequence.Items.Add(any2)
            Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
            attribute1.Name = "namespace"
            attribute1.FixedValue = ds.Namespace
            type.Attributes.Add(attribute1)
            Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
            attribute2.Name = "tableTypeName"
            attribute2.FixedValue = "월별에너지분석DataTable"
            type.Attributes.Add(attribute2)
            type.Particle = sequence
            Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
            If xs.Contains(dsSchema.TargetNamespace) Then
                Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
                Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
                Try 
                    Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
                    dsSchema.Write(s1)
                    Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
                    Do While schemas.MoveNext
                        schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
                        s2.SetLength(0)
                        schema.Write(s2)
                        If (s1.Length = s2.Length) Then
                            s1.Position = 0
                            s2.Position = 0
                            
                            Do While ((s1.Position <> s1.Length)  _
                                        AndAlso (s1.ReadByte = s2.ReadByte))
                                
                                
                            Loop
                            If (s1.Position = s1.Length) Then
                                Return type
                            End If
                        End If
                        
                    Loop
                Finally
                    If (Not (s1) Is Nothing) Then
                        s1.Close
                    End If
                    If (Not (s2) Is Nothing) Then
                        s2.Close
                    End If
                End Try
            End If
            xs.Add(dsSchema)
            Return type
        End Function
    End Class
    
    '''
    '''Represents the strongly named DataTable class.
    '''
      _
    Partial Public Class TReqUseDataTable
        Inherits Global.System.Data.TypedTableBase(Of TReqUseRow)
        
        Private columnCode As Global.System.Data.DataColumn
        
        Private columnDesc As Global.System.Data.DataColumn
        
        Private columnGRP As Global.System.Data.DataColumn
        
        Private columnUNIT As Global.System.Data.DataColumn
        
        Private columnSIGN As Global.System.Data.DataColumn
        
        Private columnEQ As Global.System.Data.DataColumn
        
        Private columnM00 As Global.System.Data.DataColumn
        
        Private columnM01 As Global.System.Data.DataColumn
        
        Private columnM02 As Global.System.Data.DataColumn
        
        Private columnM03 As Global.System.Data.DataColumn
        
        Private columnM04 As Global.System.Data.DataColumn
        
        Private columnM05 As Global.System.Data.DataColumn
        
        Private columnM06 As Global.System.Data.DataColumn
        
        Private columnM07 As Global.System.Data.DataColumn
        
        Private columnM08 As Global.System.Data.DataColumn
        
        Private columnM09 As Global.System.Data.DataColumn
        
        Private columnM10 As Global.System.Data.DataColumn
        
        Private columnM11 As Global.System.Data.DataColumn
        
        Private columnM12 As Global.System.Data.DataColumn
        
        Private columnF As Global.System.Data.DataColumn
        
          _
        Public Sub New()
            MyBase.New
            Me.TableName = "TReqUse"
            Me.BeginInit
            Me.InitClass
            Me.EndInit
        End Sub
        
          _
        Friend Sub New(ByVal table As Global.System.Data.DataTable)
            MyBase.New
            Me.TableName = table.TableName
            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
                Me.CaseSensitive = table.CaseSensitive
            End If
            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
                Me.Locale = table.Locale
            End If
            If (table.Namespace <> table.DataSet.Namespace) Then
                Me.Namespace = table.Namespace
            End If
            Me.Prefix = table.Prefix
            Me.MinimumCapacity = table.MinimumCapacity
        End Sub
        
          _
        Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
            MyBase.New(info, context)
            Me.InitVars
        End Sub
        
          _
        Public ReadOnly Property CodeColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columnCode
            End Get
        End Property
        
          _
        Public ReadOnly Property DescColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columnDesc
            End Get
        End Property
        
          _
        Public ReadOnly Property GRPColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columnGRP
            End Get
        End Property
        
          _
        Public ReadOnly Property UNITColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columnUNIT
            End Get
        End Property
        
          _
        Public ReadOnly Property SIGNColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columnSIGN
            End Get
        End Property
        
          _
        Public ReadOnly Property EQColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columnEQ
            End Get
        End Property
        
          _
        Public ReadOnly Property M00Column() As Global.System.Data.DataColumn
            Get
                Return Me.columnM00
            End Get
        End Property
        
          _
        Public ReadOnly Property M01Column() As Global.System.Data.DataColumn
            Get
                Return Me.columnM01
            End Get
        End Property
        
          _
        Public ReadOnly Property M02Column() As Global.System.Data.DataColumn
            Get
                Return Me.columnM02
            End Get
        End Property
        
          _
        Public ReadOnly Property M03Column() As Global.System.Data.DataColumn
            Get
                Return Me.columnM03
            End Get
        End Property
        
          _
        Public ReadOnly Property M04Column() As Global.System.Data.DataColumn
            Get
                Return Me.columnM04
            End Get
        End Property
        
          _
        Public ReadOnly Property M05Column() As Global.System.Data.DataColumn
            Get
                Return Me.columnM05
            End Get
        End Property
        
          _
        Public ReadOnly Property M06Column() As Global.System.Data.DataColumn
            Get
                Return Me.columnM06
            End Get
        End Property
        
          _
        Public ReadOnly Property M07Column() As Global.System.Data.DataColumn
            Get
                Return Me.columnM07
            End Get
        End Property
        
          _
        Public ReadOnly Property M08Column() As Global.System.Data.DataColumn
            Get
                Return Me.columnM08
            End Get
        End Property
        
          _
        Public ReadOnly Property M09Column() As Global.System.Data.DataColumn
            Get
                Return Me.columnM09
            End Get
        End Property
        
          _
        Public ReadOnly Property M10Column() As Global.System.Data.DataColumn
            Get
                Return Me.columnM10
            End Get
        End Property
        
          _
        Public ReadOnly Property M11Column() As Global.System.Data.DataColumn
            Get
                Return Me.columnM11
            End Get
        End Property
        
          _
        Public ReadOnly Property M12Column() As Global.System.Data.DataColumn
            Get
                Return Me.columnM12
            End Get
        End Property
        
          _
        Public ReadOnly Property FColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columnF
            End Get
        End Property
        
          _
        Public ReadOnly Property Count() As Integer
            Get
                Return Me.Rows.Count
            End Get
        End Property
        
          _
        Public Default ReadOnly Property Item(ByVal index As Integer) As TReqUseRow
            Get
                Return CType(Me.Rows(index),TReqUseRow)
            End Get
        End Property
        
          _
        Public Event TReqUseRowChanging As TReqUseRowChangeEventHandler
        
          _
        Public Event TReqUseRowChanged As TReqUseRowChangeEventHandler
        
          _
        Public Event TReqUseRowDeleting As TReqUseRowChangeEventHandler
        
          _
        Public Event TReqUseRowDeleted As TReqUseRowChangeEventHandler
        
          _
        Public Overloads Sub AddTReqUseRow(ByVal row As TReqUseRow)
            Me.Rows.Add(row)
        End Sub
        
          _
        Public Overloads Function AddTReqUseRow( _
                    ByVal Code As String,  _
                    ByVal Desc As String,  _
                    ByVal GRP As String,  _
                    ByVal UNIT As String,  _
                    ByVal SIGN As String,  _
                    ByVal EQ As String,  _
                    ByVal M00 As Decimal,  _
                    ByVal M01 As Decimal,  _
                    ByVal M02 As Decimal,  _
                    ByVal M03 As Decimal,  _
                    ByVal M04 As Decimal,  _
                    ByVal M05 As Decimal,  _
                    ByVal M06 As Decimal,  _
                    ByVal M07 As Decimal,  _
                    ByVal M08 As Decimal,  _
                    ByVal M09 As Decimal,  _
                    ByVal M10 As Decimal,  _
                    ByVal M11 As Decimal,  _
                    ByVal M12 As Decimal,  _
                    ByVal F As String) As TReqUseRow
            Dim rowTReqUseRow As TReqUseRow = CType(Me.NewRow,TReqUseRow)
            Dim columnValuesArray() As Object = New Object() {Code, Desc, GRP, UNIT, SIGN, EQ, M00, M01, M02, M03, M04, M05, M06, M07, M08, M09, M10, M11, M12, F}
            rowTReqUseRow.ItemArray = columnValuesArray
            Me.Rows.Add(rowTReqUseRow)
            Return rowTReqUseRow
        End Function
        
          _
        Public Function FindByCode(ByVal Code As String) As TReqUseRow
            Return CType(Me.Rows.Find(New Object() {Code}),TReqUseRow)
        End Function
        
          _
        Public Overrides Function Clone() As Global.System.Data.DataTable
            Dim cln As TReqUseDataTable = CType(MyBase.Clone,TReqUseDataTable)
            cln.InitVars
            Return cln
        End Function
        
          _
        Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
            Return New TReqUseDataTable()
        End Function
        
          _
        Friend Sub InitVars()
            Me.columnCode = MyBase.Columns("Code")
            Me.columnDesc = MyBase.Columns("Desc")
            Me.columnGRP = MyBase.Columns("GRP")
            Me.columnUNIT = MyBase.Columns("UNIT")
            Me.columnSIGN = MyBase.Columns("SIGN")
            Me.columnEQ = MyBase.Columns("EQ")
            Me.columnM00 = MyBase.Columns("M00")
            Me.columnM01 = MyBase.Columns("M01")
            Me.columnM02 = MyBase.Columns("M02")
            Me.columnM03 = MyBase.Columns("M03")
            Me.columnM04 = MyBase.Columns("M04")
            Me.columnM05 = MyBase.Columns("M05")
            Me.columnM06 = MyBase.Columns("M06")
            Me.columnM07 = MyBase.Columns("M07")
            Me.columnM08 = MyBase.Columns("M08")
            Me.columnM09 = MyBase.Columns("M09")
            Me.columnM10 = MyBase.Columns("M10")
            Me.columnM11 = MyBase.Columns("M11")
            Me.columnM12 = MyBase.Columns("M12")
            Me.columnF = MyBase.Columns("F")
        End Sub
        
          _
        Private Sub InitClass()
            Me.columnCode = New Global.System.Data.DataColumn("Code", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnCode)
            Me.columnDesc = New Global.System.Data.DataColumn("Desc", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnDesc)
            Me.columnGRP = New Global.System.Data.DataColumn("GRP", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnGRP)
            Me.columnUNIT = New Global.System.Data.DataColumn("UNIT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnUNIT)
            Me.columnSIGN = New Global.System.Data.DataColumn("SIGN", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnSIGN)
            Me.columnEQ = New Global.System.Data.DataColumn("EQ", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnEQ)
            Me.columnM00 = New Global.System.Data.DataColumn("M00", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnM00)
            Me.columnM01 = New Global.System.Data.DataColumn("M01", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnM01)
            Me.columnM02 = New Global.System.Data.DataColumn("M02", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnM02)
            Me.columnM03 = New Global.System.Data.DataColumn("M03", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnM03)
            Me.columnM04 = New Global.System.Data.DataColumn("M04", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnM04)
            Me.columnM05 = New Global.System.Data.DataColumn("M05", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnM05)
            Me.columnM06 = New Global.System.Data.DataColumn("M06", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnM06)
            Me.columnM07 = New Global.System.Data.DataColumn("M07", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnM07)
            Me.columnM08 = New Global.System.Data.DataColumn("M08", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnM08)
            Me.columnM09 = New Global.System.Data.DataColumn("M09", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnM09)
            Me.columnM10 = New Global.System.Data.DataColumn("M10", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnM10)
            Me.columnM11 = New Global.System.Data.DataColumn("M11", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnM11)
            Me.columnM12 = New Global.System.Data.DataColumn("M12", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnM12)
            Me.columnF = New Global.System.Data.DataColumn("F", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnF)
            Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCode}, true))
            Me.columnCode.AllowDBNull = false
            Me.columnCode.Unique = true
            Me.columnDesc.DefaultValue = CType("",String)
            Me.columnGRP.DefaultValue = CType("",String)
            Me.columnUNIT.DefaultValue = CType("",String)
            Me.columnSIGN.DefaultValue = CType("",String)
            Me.columnEQ.DefaultValue = CType("",String)
            Me.columnM00.DefaultValue = CType(0D,Decimal)
            Me.columnM01.DefaultValue = CType(0D,Decimal)
            Me.columnM02.DefaultValue = CType(0D,Decimal)
            Me.columnM03.DefaultValue = CType(0D,Decimal)
            Me.columnM04.DefaultValue = CType(0D,Decimal)
            Me.columnM05.DefaultValue = CType(0D,Decimal)
            Me.columnM06.DefaultValue = CType(0D,Decimal)
            Me.columnM07.DefaultValue = CType(0D,Decimal)
            Me.columnM08.DefaultValue = CType(0D,Decimal)
            Me.columnM09.DefaultValue = CType(0D,Decimal)
            Me.columnM10.DefaultValue = CType(0D,Decimal)
            Me.columnM11.DefaultValue = CType(0D,Decimal)
            Me.columnM12.DefaultValue = CType(0D,Decimal)
            Me.columnF.DefaultValue = CType("",String)
        End Sub
        
          _
        Public Function NewTReqUseRow() As TReqUseRow
            Return CType(Me.NewRow,TReqUseRow)
        End Function
        
          _
        Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
            Return New TReqUseRow(builder)
        End Function
        
          _
        Protected Overrides Function GetRowType() As Global.System.Type
            Return GetType(TReqUseRow)
        End Function
        
          _
        Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.TReqUseRowChangedEvent) Is Nothing) Then
                RaiseEvent TReqUseRowChanged(Me, New TReqUseRowChangeEvent(CType(e.Row,TReqUseRow), e.Action))
            End If
        End Sub
        
          _
        Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.TReqUseRowChangingEvent) Is Nothing) Then
                RaiseEvent TReqUseRowChanging(Me, New TReqUseRowChangeEvent(CType(e.Row,TReqUseRow), e.Action))
            End If
        End Sub
        
          _
        Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.TReqUseRowDeletedEvent) Is Nothing) Then
                RaiseEvent TReqUseRowDeleted(Me, New TReqUseRowChangeEvent(CType(e.Row,TReqUseRow), e.Action))
            End If
        End Sub
        
          _
        Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.TReqUseRowDeletingEvent) Is Nothing) Then
                RaiseEvent TReqUseRowDeleting(Me, New TReqUseRowChangeEvent(CType(e.Row,TReqUseRow), e.Action))
            End If
        End Sub
        
          _
        Public Sub RemoveTReqUseRow(ByVal row As TReqUseRow)
            Me.Rows.Remove(row)
        End Sub
        
          _
        Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
            Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
            Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
            Dim ds As DSR = New DSR()
            Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
            any1.MinOccurs = New Decimal(0)
            any1.MaxOccurs = Decimal.MaxValue
            any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
            sequence.Items.Add(any1)
            Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
            any2.MinOccurs = New Decimal(1)
            any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
            sequence.Items.Add(any2)
            Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
            attribute1.Name = "namespace"
            attribute1.FixedValue = ds.Namespace
            type.Attributes.Add(attribute1)
            Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
            attribute2.Name = "tableTypeName"
            attribute2.FixedValue = "TReqUseDataTable"
            type.Attributes.Add(attribute2)
            type.Particle = sequence
            Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
            If xs.Contains(dsSchema.TargetNamespace) Then
                Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
                Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
                Try 
                    Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
                    dsSchema.Write(s1)
                    Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
                    Do While schemas.MoveNext
                        schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
                        s2.SetLength(0)
                        schema.Write(s2)
                        If (s1.Length = s2.Length) Then
                            s1.Position = 0
                            s2.Position = 0
                            
                            Do While ((s1.Position <> s1.Length)  _
                                        AndAlso (s1.ReadByte = s2.ReadByte))
                                
                                
                            Loop
                            If (s1.Position = s1.Length) Then
                                Return type
                            End If
                        End If
                        
                    Loop
                Finally
                    If (Not (s1) Is Nothing) Then
                        s1.Close
                    End If
                    If (Not (s2) Is Nothing) Then
                        s2.Close
                    End If
                End Try
            End If
            xs.Add(dsSchema)
            Return type
        End Function
    End Class
    
    '''
    '''Represents the strongly named DataTable class.
    '''
      _
    Partial Public Class Graph_ReqDataTable
        Inherits Global.System.Data.TypedTableBase(Of Graph_ReqRow)
        
        Private columnGubun As Global.System.Data.DataColumn
        
        Private columnMon As Global.System.Data.DataColumn
        
        Private columnReq As Global.System.Data.DataColumn
        
          _
        Public Sub New()
            MyBase.New
            Me.TableName = "Graph_Req"
            Me.BeginInit
            Me.InitClass
            Me.EndInit
        End Sub
        
          _
        Friend Sub New(ByVal table As Global.System.Data.DataTable)
            MyBase.New
            Me.TableName = table.TableName
            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
                Me.CaseSensitive = table.CaseSensitive
            End If
            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
                Me.Locale = table.Locale
            End If
            If (table.Namespace <> table.DataSet.Namespace) Then
                Me.Namespace = table.Namespace
            End If
            Me.Prefix = table.Prefix
            Me.MinimumCapacity = table.MinimumCapacity
        End Sub
        
          _
        Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
            MyBase.New(info, context)
            Me.InitVars
        End Sub
        
          _
        Public ReadOnly Property GubunColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columnGubun
            End Get
        End Property
        
          _
        Public ReadOnly Property MonColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columnMon
            End Get
        End Property
        
          _
        Public ReadOnly Property ReqColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columnReq
            End Get
        End Property
        
          _
        Public ReadOnly Property Count() As Integer
            Get
                Return Me.Rows.Count
            End Get
        End Property
        
          _
        Public Default ReadOnly Property Item(ByVal index As Integer) As Graph_ReqRow
            Get
                Return CType(Me.Rows(index),Graph_ReqRow)
            End Get
        End Property
        
          _
        Public Event Graph_ReqRowChanging As Graph_ReqRowChangeEventHandler
        
          _
        Public Event Graph_ReqRowChanged As Graph_ReqRowChangeEventHandler
        
          _
        Public Event Graph_ReqRowDeleting As Graph_ReqRowChangeEventHandler
        
          _
        Public Event Graph_ReqRowDeleted As Graph_ReqRowChangeEventHandler
        
          _
        Public Overloads Sub AddGraph_ReqRow(ByVal row As Graph_ReqRow)
            Me.Rows.Add(row)
        End Sub
        
          _
        Public Overloads Function AddGraph_ReqRow(ByVal Gubun As String, ByVal Mon As String, ByVal Req As Decimal) As Graph_ReqRow
            Dim rowGraph_ReqRow As Graph_ReqRow = CType(Me.NewRow,Graph_ReqRow)
            Dim columnValuesArray() As Object = New Object() {Gubun, Mon, Req}
            rowGraph_ReqRow.ItemArray = columnValuesArray
            Me.Rows.Add(rowGraph_ReqRow)
            Return rowGraph_ReqRow
        End Function
        
          _
        Public Overrides Function Clone() As Global.System.Data.DataTable
            Dim cln As Graph_ReqDataTable = CType(MyBase.Clone,Graph_ReqDataTable)
            cln.InitVars
            Return cln
        End Function
        
          _
        Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
            Return New Graph_ReqDataTable()
        End Function
        
          _
        Friend Sub InitVars()
            Me.columnGubun = MyBase.Columns("Gubun")
            Me.columnMon = MyBase.Columns("Mon")
            Me.columnReq = MyBase.Columns("Req")
        End Sub
        
          _
        Private Sub InitClass()
            Me.columnGubun = New Global.System.Data.DataColumn("Gubun", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnGubun)
            Me.columnMon = New Global.System.Data.DataColumn("Mon", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnMon)
            Me.columnReq = New Global.System.Data.DataColumn("Req", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnReq)
            Me.columnReq.DefaultValue = CType(0D,Decimal)
        End Sub
        
          _
        Public Function NewGraph_ReqRow() As Graph_ReqRow
            Return CType(Me.NewRow,Graph_ReqRow)
        End Function
        
          _
        Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
            Return New Graph_ReqRow(builder)
        End Function
        
          _
        Protected Overrides Function GetRowType() As Global.System.Type
            Return GetType(Graph_ReqRow)
        End Function
        
          _
        Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.Graph_ReqRowChangedEvent) Is Nothing) Then
                RaiseEvent Graph_ReqRowChanged(Me, New Graph_ReqRowChangeEvent(CType(e.Row,Graph_ReqRow), e.Action))
            End If
        End Sub
        
          _
        Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.Graph_ReqRowChangingEvent) Is Nothing) Then
                RaiseEvent Graph_ReqRowChanging(Me, New Graph_ReqRowChangeEvent(CType(e.Row,Graph_ReqRow), e.Action))
            End If
        End Sub
        
          _
        Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.Graph_ReqRowDeletedEvent) Is Nothing) Then
                RaiseEvent Graph_ReqRowDeleted(Me, New Graph_ReqRowChangeEvent(CType(e.Row,Graph_ReqRow), e.Action))
            End If
        End Sub
        
          _
        Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.Graph_ReqRowDeletingEvent) Is Nothing) Then
                RaiseEvent Graph_ReqRowDeleting(Me, New Graph_ReqRowChangeEvent(CType(e.Row,Graph_ReqRow), e.Action))
            End If
        End Sub
        
          _
        Public Sub RemoveGraph_ReqRow(ByVal row As Graph_ReqRow)
            Me.Rows.Remove(row)
        End Sub
        
          _
        Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
            Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
            Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
            Dim ds As DSR = New DSR()
            Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
            any1.MinOccurs = New Decimal(0)
            any1.MaxOccurs = Decimal.MaxValue
            any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
            sequence.Items.Add(any1)
            Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
            any2.MinOccurs = New Decimal(1)
            any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
            sequence.Items.Add(any2)
            Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
            attribute1.Name = "namespace"
            attribute1.FixedValue = ds.Namespace
            type.Attributes.Add(attribute1)
            Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
            attribute2.Name = "tableTypeName"
            attribute2.FixedValue = "Graph_ReqDataTable"
            type.Attributes.Add(attribute2)
            type.Particle = sequence
            Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
            If xs.Contains(dsSchema.TargetNamespace) Then
                Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
                Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
                Try 
                    Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
                    dsSchema.Write(s1)
                    Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
                    Do While schemas.MoveNext
                        schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
                        s2.SetLength(0)
                        schema.Write(s2)
                        If (s1.Length = s2.Length) Then
                            s1.Position = 0
                            s2.Position = 0
                            
                            Do While ((s1.Position <> s1.Length)  _
                                        AndAlso (s1.ReadByte = s2.ReadByte))
                                
                                
                            Loop
                            If (s1.Position = s1.Length) Then
                                Return type
                            End If
                        End If
                        
                    Loop
                Finally
                    If (Not (s1) Is Nothing) Then
                        s1.Close
                    End If
                    If (Not (s2) Is Nothing) Then
                        s2.Close
                    End If
                End Try
            End If
            xs.Add(dsSchema)
            Return type
        End Function
    End Class
    
    '''
    '''Represents the strongly named DataTable class.
    '''
      _
    Partial Public Class Graph_ReqUseDataTable
        Inherits Global.System.Data.TypedTableBase(Of Graph_ReqUseRow)
        
        Private columnGubun As Global.System.Data.DataColumn
        
        Private columntype As Global.System.Data.DataColumn
        
        Private columnReq As Global.System.Data.DataColumn
        
          _
        Public Sub New()
            MyBase.New
            Me.TableName = "Graph_ReqUse"
            Me.BeginInit
            Me.InitClass
            Me.EndInit
        End Sub
        
          _
        Friend Sub New(ByVal table As Global.System.Data.DataTable)
            MyBase.New
            Me.TableName = table.TableName
            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
                Me.CaseSensitive = table.CaseSensitive
            End If
            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
                Me.Locale = table.Locale
            End If
            If (table.Namespace <> table.DataSet.Namespace) Then
                Me.Namespace = table.Namespace
            End If
            Me.Prefix = table.Prefix
            Me.MinimumCapacity = table.MinimumCapacity
        End Sub
        
          _
        Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
            MyBase.New(info, context)
            Me.InitVars
        End Sub
        
          _
        Public ReadOnly Property GubunColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columnGubun
            End Get
        End Property
        
          _
        Public ReadOnly Property typeColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columntype
            End Get
        End Property
        
          _
        Public ReadOnly Property ReqColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columnReq
            End Get
        End Property
        
          _
        Public ReadOnly Property Count() As Integer
            Get
                Return Me.Rows.Count
            End Get
        End Property
        
          _
        Public Default ReadOnly Property Item(ByVal index As Integer) As Graph_ReqUseRow
            Get
                Return CType(Me.Rows(index),Graph_ReqUseRow)
            End Get
        End Property
        
          _
        Public Event Graph_ReqUseRowChanging As Graph_ReqUseRowChangeEventHandler
        
          _
        Public Event Graph_ReqUseRowChanged As Graph_ReqUseRowChangeEventHandler
        
          _
        Public Event Graph_ReqUseRowDeleting As Graph_ReqUseRowChangeEventHandler
        
          _
        Public Event Graph_ReqUseRowDeleted As Graph_ReqUseRowChangeEventHandler
        
          _
        Public Overloads Sub AddGraph_ReqUseRow(ByVal row As Graph_ReqUseRow)
            Me.Rows.Add(row)
        End Sub
        
          _
        Public Overloads Function AddGraph_ReqUseRow(ByVal Gubun As String, ByVal type As String, ByVal Req As Decimal) As Graph_ReqUseRow
            Dim rowGraph_ReqUseRow As Graph_ReqUseRow = CType(Me.NewRow,Graph_ReqUseRow)
            Dim columnValuesArray() As Object = New Object() {Gubun, type, Req}
            rowGraph_ReqUseRow.ItemArray = columnValuesArray
            Me.Rows.Add(rowGraph_ReqUseRow)
            Return rowGraph_ReqUseRow
        End Function
        
          _
        Public Overrides Function Clone() As Global.System.Data.DataTable
            Dim cln As Graph_ReqUseDataTable = CType(MyBase.Clone,Graph_ReqUseDataTable)
            cln.InitVars
            Return cln
        End Function
        
          _
        Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
            Return New Graph_ReqUseDataTable()
        End Function
        
          _
        Friend Sub InitVars()
            Me.columnGubun = MyBase.Columns("Gubun")
            Me.columntype = MyBase.Columns("type")
            Me.columnReq = MyBase.Columns("Req")
        End Sub
        
          _
        Private Sub InitClass()
            Me.columnGubun = New Global.System.Data.DataColumn("Gubun", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnGubun)
            Me.columntype = New Global.System.Data.DataColumn("type", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columntype)
            Me.columnReq = New Global.System.Data.DataColumn("Req", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnReq)
            Me.columntype.Caption = "Mon"
            Me.columnReq.DefaultValue = CType(0D,Decimal)
        End Sub
        
          _
        Public Function NewGraph_ReqUseRow() As Graph_ReqUseRow
            Return CType(Me.NewRow,Graph_ReqUseRow)
        End Function
        
          _
        Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
            Return New Graph_ReqUseRow(builder)
        End Function
        
          _
        Protected Overrides Function GetRowType() As Global.System.Type
            Return GetType(Graph_ReqUseRow)
        End Function
        
          _
        Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.Graph_ReqUseRowChangedEvent) Is Nothing) Then
                RaiseEvent Graph_ReqUseRowChanged(Me, New Graph_ReqUseRowChangeEvent(CType(e.Row,Graph_ReqUseRow), e.Action))
            End If
        End Sub
        
          _
        Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.Graph_ReqUseRowChangingEvent) Is Nothing) Then
                RaiseEvent Graph_ReqUseRowChanging(Me, New Graph_ReqUseRowChangeEvent(CType(e.Row,Graph_ReqUseRow), e.Action))
            End If
        End Sub
        
          _
        Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.Graph_ReqUseRowDeletedEvent) Is Nothing) Then
                RaiseEvent Graph_ReqUseRowDeleted(Me, New Graph_ReqUseRowChangeEvent(CType(e.Row,Graph_ReqUseRow), e.Action))
            End If
        End Sub
        
          _
        Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.Graph_ReqUseRowDeletingEvent) Is Nothing) Then
                RaiseEvent Graph_ReqUseRowDeleting(Me, New Graph_ReqUseRowChangeEvent(CType(e.Row,Graph_ReqUseRow), e.Action))
            End If
        End Sub
        
          _
        Public Sub RemoveGraph_ReqUseRow(ByVal row As Graph_ReqUseRow)
            Me.Rows.Remove(row)
        End Sub
        
          _
        Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
            Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
            Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
            Dim ds As DSR = New DSR()
            Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
            any1.MinOccurs = New Decimal(0)
            any1.MaxOccurs = Decimal.MaxValue
            any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
            sequence.Items.Add(any1)
            Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
            any2.MinOccurs = New Decimal(1)
            any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
            sequence.Items.Add(any2)
            Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
            attribute1.Name = "namespace"
            attribute1.FixedValue = ds.Namespace
            type.Attributes.Add(attribute1)
            Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
            attribute2.Name = "tableTypeName"
            attribute2.FixedValue = "Graph_ReqUseDataTable"
            type.Attributes.Add(attribute2)
            type.Particle = sequence
            Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
            If xs.Contains(dsSchema.TargetNamespace) Then
                Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
                Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
                Try 
                    Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
                    dsSchema.Write(s1)
                    Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
                    Do While schemas.MoveNext
                        schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
                        s2.SetLength(0)
                        schema.Write(s2)
                        If (s1.Length = s2.Length) Then
                            s1.Position = 0
                            s2.Position = 0
                            
                            Do While ((s1.Position <> s1.Length)  _
                                        AndAlso (s1.ReadByte = s2.ReadByte))
                                
                                
                            Loop
                            If (s1.Position = s1.Length) Then
                                Return type
                            End If
                        End If
                        
                    Loop
                Finally
                    If (Not (s1) Is Nothing) Then
                        s1.Close
                    End If
                    If (Not (s2) Is Nothing) Then
                        s2.Close
                    End If
                End Try
            End If
            xs.Add(dsSchema)
            Return type
        End Function
    End Class
    
    '''
    '''Represents the strongly named DataTable class.
    '''
      _
    Partial Public Class Graph_InfoDataTable
        Inherits Global.System.Data.TypedTableBase(Of Graph_InfoRow)
        
        Private columnname As Global.System.Data.DataColumn
        
        Private columnyear As Global.System.Data.DataColumn
        
        Private columnjuso As Global.System.Data.DataColumn
        
        Private columnchung As Global.System.Data.DataColumn
        
        Private columnmyoun As Global.System.Data.DataColumn
        
        Private columnydo As Global.System.Data.DataColumn
        
        Private columni1 As Global.System.Data.DataColumn
        
        Private columni2 As Global.System.Data.DataColumn
        
        Private columni3 As Global.System.Data.DataColumn
        
        Private columngrade As Global.System.Data.DataColumn
        
        Private columnco2 As Global.System.Data.DataColumn
        
          _
        Public Sub New()
            MyBase.New
            Me.TableName = "Graph_Info"
            Me.BeginInit
            Me.InitClass
            Me.EndInit
        End Sub
        
          _
        Friend Sub New(ByVal table As Global.System.Data.DataTable)
            MyBase.New
            Me.TableName = table.TableName
            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
                Me.CaseSensitive = table.CaseSensitive
            End If
            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
                Me.Locale = table.Locale
            End If
            If (table.Namespace <> table.DataSet.Namespace) Then
                Me.Namespace = table.Namespace
            End If
            Me.Prefix = table.Prefix
            Me.MinimumCapacity = table.MinimumCapacity
        End Sub
        
          _
        Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
            MyBase.New(info, context)
            Me.InitVars
        End Sub
        
          _
        Public ReadOnly Property nameColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columnname
            End Get
        End Property
        
          _
        Public ReadOnly Property yearColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columnyear
            End Get
        End Property