'------------------------------------------------------------------------------
'
' 이 코드는 도구를 사용하여 생성되었습니다.
' 런타임 버전: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