'------------------------------------------------------------------------------ ' ' 이 코드는 도구를 사용하여 생성되었습니다. ' 런타임 버전: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 _ Public ReadOnly Property jusoColumn() As Global.System.Data.DataColumn Get Return Me.columnjuso End Get End Property _ Public ReadOnly Property chungColumn() As Global.System.Data.DataColumn Get Return Me.columnchung End Get End Property _ Public ReadOnly Property myounColumn() As Global.System.Data.DataColumn Get Return Me.columnmyoun End Get End Property _ Public ReadOnly Property ydoColumn() As Global.System.Data.DataColumn Get Return Me.columnydo End Get End Property _ Public ReadOnly Property i1Column() As Global.System.Data.DataColumn Get Return Me.columni1 End Get End Property _ Public ReadOnly Property i2Column() As Global.System.Data.DataColumn Get Return Me.columni2 End Get End Property _ Public ReadOnly Property i3Column() As Global.System.Data.DataColumn Get Return Me.columni3 End Get End Property _ Public ReadOnly Property gradeColumn() As Global.System.Data.DataColumn Get Return Me.columngrade End Get End Property _ Public ReadOnly Property co2Column() As Global.System.Data.DataColumn Get Return Me.columnco2 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_InfoRow Get Return CType(Me.Rows(index),Graph_InfoRow) End Get End Property _ Public Event Graph_InfoRowChanging As Graph_InfoRowChangeEventHandler _ Public Event Graph_InfoRowChanged As Graph_InfoRowChangeEventHandler _ Public Event Graph_InfoRowDeleting As Graph_InfoRowChangeEventHandler _ Public Event Graph_InfoRowDeleted As Graph_InfoRowChangeEventHandler _ Public Overloads Sub AddGraph_InfoRow(ByVal row As Graph_InfoRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddGraph_InfoRow(ByVal name As String, ByVal year As String, ByVal juso As String, ByVal chung As String, ByVal myoun As String, ByVal ydo As String, ByVal i1 As String, ByVal i2 As String, ByVal i3 As String, ByVal grade As String, ByVal co2 As Short) As Graph_InfoRow Dim rowGraph_InfoRow As Graph_InfoRow = CType(Me.NewRow,Graph_InfoRow) Dim columnValuesArray() As Object = New Object() {name, year, juso, chung, myoun, ydo, i1, i2, i3, grade, co2} rowGraph_InfoRow.ItemArray = columnValuesArray Me.Rows.Add(rowGraph_InfoRow) Return rowGraph_InfoRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As Graph_InfoDataTable = CType(MyBase.Clone,Graph_InfoDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New Graph_InfoDataTable() End Function _ Friend Sub InitVars() Me.columnname = MyBase.Columns("name") Me.columnyear = MyBase.Columns("year") Me.columnjuso = MyBase.Columns("juso") Me.columnchung = MyBase.Columns("chung") Me.columnmyoun = MyBase.Columns("myoun") Me.columnydo = MyBase.Columns("ydo") Me.columni1 = MyBase.Columns("i1") Me.columni2 = MyBase.Columns("i2") Me.columni3 = MyBase.Columns("i3") Me.columngrade = MyBase.Columns("grade") Me.columnco2 = MyBase.Columns("co2") End Sub _ Private Sub InitClass() Me.columnname = New Global.System.Data.DataColumn("name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnname) Me.columnyear = New Global.System.Data.DataColumn("year", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnyear) Me.columnjuso = New Global.System.Data.DataColumn("juso", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnjuso) Me.columnchung = New Global.System.Data.DataColumn("chung", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnchung) Me.columnmyoun = New Global.System.Data.DataColumn("myoun", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmyoun) Me.columnydo = New Global.System.Data.DataColumn("ydo", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnydo) Me.columni1 = New Global.System.Data.DataColumn("i1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columni1) Me.columni2 = New Global.System.Data.DataColumn("i2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columni2) Me.columni3 = New Global.System.Data.DataColumn("i3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columni3) Me.columngrade = New Global.System.Data.DataColumn("grade", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngrade) Me.columnco2 = New Global.System.Data.DataColumn("co2", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnco2) Me.columnname.DefaultValue = CType("",String) Me.columnyear.DefaultValue = CType("",String) Me.columnjuso.DefaultValue = CType("",String) Me.columnchung.DefaultValue = CType("",String) Me.columnmyoun.DefaultValue = CType("",String) Me.columnydo.DefaultValue = CType("",String) Me.columni1.DefaultValue = CType("",String) Me.columni2.DefaultValue = CType("",String) Me.columni3.DefaultValue = CType("",String) Me.columngrade.DefaultValue = CType("",String) Me.columnco2.DefaultValue = CType(0,Short) End Sub _ Public Function NewGraph_InfoRow() As Graph_InfoRow Return CType(Me.NewRow,Graph_InfoRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New Graph_InfoRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(Graph_InfoRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.Graph_InfoRowChangedEvent) Is Nothing) Then RaiseEvent Graph_InfoRowChanged(Me, New Graph_InfoRowChangeEvent(CType(e.Row,Graph_InfoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.Graph_InfoRowChangingEvent) Is Nothing) Then RaiseEvent Graph_InfoRowChanging(Me, New Graph_InfoRowChangeEvent(CType(e.Row,Graph_InfoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.Graph_InfoRowDeletedEvent) Is Nothing) Then RaiseEvent Graph_InfoRowDeleted(Me, New Graph_InfoRowChangeEvent(CType(e.Row,Graph_InfoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.Graph_InfoRowDeletingEvent) Is Nothing) Then RaiseEvent Graph_InfoRowDeleting(Me, New Graph_InfoRowChangeEvent(CType(e.Row,Graph_InfoRow), e.Action)) End If End Sub _ Public Sub RemoveGraph_InfoRow(ByVal row As Graph_InfoRow) 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_InfoDataTable" 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 columnH As Global.System.Data.DataColumn Private columnC As Global.System.Data.DataColumn Private columnL As Global.System.Data.DataColumn Private columnW As Global.System.Data.DataColumn Private columnV As Global.System.Data.DataColumn Private columnH_WF As Global.System.Data.DataColumn Private columnC_WF As Global.System.Data.DataColumn Private columnL_WF As Global.System.Data.DataColumn Private columnW_WF As Global.System.Data.DataColumn Private columnV_WF 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 HColumn() As Global.System.Data.DataColumn Get Return Me.columnH End Get End Property _ Public ReadOnly Property CColumn() As Global.System.Data.DataColumn Get Return Me.columnC End Get End Property _ Public ReadOnly Property LColumn() As Global.System.Data.DataColumn Get Return Me.columnL End Get End Property _ Public ReadOnly Property WColumn() As Global.System.Data.DataColumn Get Return Me.columnW End Get End Property _ Public ReadOnly Property VColumn() As Global.System.Data.DataColumn Get Return Me.columnV End Get End Property _ Public ReadOnly Property H_WFColumn() As Global.System.Data.DataColumn Get Return Me.columnH_WF End Get End Property _ Public ReadOnly Property C_WFColumn() As Global.System.Data.DataColumn Get Return Me.columnC_WF End Get End Property _ Public ReadOnly Property L_WFColumn() As Global.System.Data.DataColumn Get Return Me.columnL_WF End Get End Property _ Public ReadOnly Property W_WFColumn() As Global.System.Data.DataColumn Get Return Me.columnW_WF End Get End Property _ Public ReadOnly Property V_WFColumn() As Global.System.Data.DataColumn Get Return Me.columnV_WF 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 H As Decimal, ByVal C As Decimal, ByVal L As Decimal, ByVal W As Decimal, ByVal V As Decimal, ByVal H_WF As Decimal, ByVal C_WF As Decimal, ByVal L_WF As Decimal, ByVal W_WF As Decimal, ByVal V_WF As Decimal) As 사용면적Row Dim row사용면적Row As 사용면적Row = CType(Me.NewRow,사용면적Row) Dim columnValuesArray() As Object = New Object() {H, C, L, W, V, H_WF, C_WF, L_WF, W_WF, V_WF} 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.columnH = MyBase.Columns("H") Me.columnC = MyBase.Columns("C") Me.columnL = MyBase.Columns("L") Me.columnW = MyBase.Columns("W") Me.columnV = MyBase.Columns("V") Me.columnH_WF = MyBase.Columns("H_WF") Me.columnC_WF = MyBase.Columns("C_WF") Me.columnL_WF = MyBase.Columns("L_WF") Me.columnW_WF = MyBase.Columns("W_WF") Me.columnV_WF = MyBase.Columns("V_WF") End Sub _ Private Sub InitClass() Me.columnH = New Global.System.Data.DataColumn("H", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnH) Me.columnC = New Global.System.Data.DataColumn("C", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnC) Me.columnL = New Global.System.Data.DataColumn("L", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnL) Me.columnW = New Global.System.Data.DataColumn("W", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnW) Me.columnV = New Global.System.Data.DataColumn("V", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnV) Me.columnH_WF = New Global.System.Data.DataColumn("H_WF", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnH_WF) Me.columnC_WF = New Global.System.Data.DataColumn("C_WF", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnC_WF) Me.columnL_WF = New Global.System.Data.DataColumn("L_WF", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnL_WF) Me.columnW_WF = New Global.System.Data.DataColumn("W_WF", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnW_WF) Me.columnV_WF = New Global.System.Data.DataColumn("V_WF", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnV_WF) Me.columnH.DefaultValue = CType(0D,Decimal) Me.columnC.DefaultValue = CType(0D,Decimal) Me.columnL.DefaultValue = CType(0D,Decimal) Me.columnW.DefaultValue = CType(0D,Decimal) Me.columnV.DefaultValue = CType(0D,Decimal) Me.columnH_WF.DefaultValue = CType(0D,Decimal) Me.columnC_WF.DefaultValue = CType(0D,Decimal) Me.columnL_WF.DefaultValue = CType(0D,Decimal) Me.columnW_WF.DefaultValue = CType(0D,Decimal) Me.columnV_WF.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 columnmon 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 monColumn() As Global.System.Data.DataColumn Get Return Me.columnmon 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 mon As String, ByVal 난방에너지소요량 As String, ByVal 난방보조에너지소요량 As String, ByVal 냉방에너지소요량 As String, ByVal 냉방보조에너지소요량 As String, ByVal 급탕에너지소요량 As String, ByVal 급탕보조에너지소요량 As String, 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() {mon, 난방에너지소요량, 난방보조에너지소요량, 냉방에너지소요량, 냉방보조에너지소요량, 급탕에너지소요량, 급탕보조에너지소요량, 난방, 냉방, 조명, 급탕, 환기} 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.columnmon = MyBase.Columns("mon") 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.columnmon = New Global.System.Data.DataColumn("mon", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmon) 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(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(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난방에너지소요량.Caption = "난방에너지요구량열" Me.column난방에너지소요량.DefaultValue = CType("0",String) Me.column난방보조에너지소요량.Caption = "난방에너지요구량공조" Me.column난방보조에너지소요량.DefaultValue = CType("0",String) Me.column냉방에너지소요량.Caption = "냉방에너지요구량" Me.column냉방에너지소요량.DefaultValue = CType("0",String) Me.column냉방보조에너지소요량.Caption = "냉방에너지요구량공조" Me.column냉방보조에너지소요량.DefaultValue = CType("0",String) Me.column급탕에너지소요량.Caption = "급탕단위면적당요구량" Me.column급탕에너지소요량.DefaultValue = CType("0",String) Me.column급탕보조에너지소요량.DefaultValue = CType("0",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) 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 에너지소요량1DataTable Inherits Global.System.Data.TypedTableBase(Of 에너지소요량1Row) Private columnmon As Global.System.Data.DataColumn Private column난방등유 As Global.System.Data.DataColumn Private column난방LNG As Global.System.Data.DataColumn Private column난방LPG 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냉방LNG As Global.System.Data.DataColumn Private column냉방LPG As Global.System.Data.DataColumn Private column냉방지역 As Global.System.Data.DataColumn Private column냉방지역2 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급탕LNG As Global.System.Data.DataColumn Private column급탕LPG 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 = "에너지소요량1" 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 monColumn() As Global.System.Data.DataColumn Get Return Me.columnmon End Get End Property _ Public ReadOnly Property 난방등유Column() As Global.System.Data.DataColumn Get Return Me.column난방등유 End Get End Property _ Public ReadOnly Property 난방LNGColumn() As Global.System.Data.DataColumn Get Return Me.column난방LNG End Get End Property _ Public ReadOnly Property 난방LPGColumn() As Global.System.Data.DataColumn Get Return Me.column난방LPG 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 냉방LNGColumn() As Global.System.Data.DataColumn Get Return Me.column냉방LNG End Get End Property _ Public ReadOnly Property 냉방LPGColumn() As Global.System.Data.DataColumn Get Return Me.column냉방LPG End Get End Property _ Public ReadOnly Property 냉방지역Column() As Global.System.Data.DataColumn Get Return Me.column냉방지역 End Get End Property _ Public ReadOnly Property 냉방지역2Column() As Global.System.Data.DataColumn Get Return Me.column냉방지역2 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 급탕LNGColumn() As Global.System.Data.DataColumn Get Return Me.column급탕LNG End Get End Property _ Public ReadOnly Property 급탕LPGColumn() As Global.System.Data.DataColumn Get Return Me.column급탕LPG 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 에너지소요량1Row Get Return CType(Me.Rows(index),에너지소요량1Row) End Get End Property _ Public Event 에너지소요량1RowChanging As 에너지소요량1RowChangeEventHandler _ Public Event 에너지소요량1RowChanged As 에너지소요량1RowChangeEventHandler _ Public Event 에너지소요량1RowDeleting As 에너지소요량1RowChangeEventHandler _ Public Event 에너지소요량1RowDeleted As 에너지소요량1RowChangeEventHandler _ Public Overloads Sub Add에너지소요량1Row(ByVal row As 에너지소요량1Row) Me.Rows.Add(row) End Sub _ Public Overloads Function Add에너지소요량1Row( _ ByVal mon As String, _ ByVal 난방등유 As String, _ ByVal 난방LNG As String, _ ByVal 난방LPG As String, _ ByVal 난방지역 As String, _ ByVal 난방전력 As String, _ ByVal 난방펠렛 As String, _ ByVal 냉방등유 As String, _ ByVal 냉방LNG As String, _ ByVal 냉방LPG As String, _ ByVal 냉방지역 As String, _ ByVal 냉방지역2 As Decimal, _ ByVal 냉방전력 As String, _ ByVal 냉방펠렛 As String, _ ByVal 급탕등유 As String, _ ByVal 급탕LNG As String, _ ByVal 급탕LPG As String, _ ByVal 급탕지역 As String, _ ByVal 급탕전력 As String, _ ByVal 급탕펠렛 As String) As 에너지소요량1Row Dim row에너지소요량1Row As 에너지소요량1Row = CType(Me.NewRow,에너지소요량1Row) Dim columnValuesArray() As Object = New Object() {mon, 난방등유, 난방LNG, 난방LPG, 난방지역, 난방전력, 난방펠렛, 냉방등유, 냉방LNG, 냉방LPG, 냉방지역, 냉방지역2, 냉방전력, 냉방펠렛, 급탕등유, 급탕LNG, 급탕LPG, 급탕지역, 급탕전력, 급탕펠렛} row에너지소요량1Row.ItemArray = columnValuesArray Me.Rows.Add(row에너지소요량1Row) Return row에너지소요량1Row End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As 에너지소요량1DataTable = CType(MyBase.Clone,에너지소요량1DataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New 에너지소요량1DataTable() End Function _ Friend Sub InitVars() Me.columnmon = MyBase.Columns("mon") Me.column난방등유 = MyBase.Columns("난방등유") Me.column난방LNG = MyBase.Columns("난방LNG") Me.column난방LPG = MyBase.Columns("난방LPG") Me.column난방지역 = MyBase.Columns("난방지역") Me.column난방전력 = MyBase.Columns("난방전력") Me.column난방펠렛 = MyBase.Columns("난방펠렛") Me.column냉방등유 = MyBase.Columns("냉방등유") Me.column냉방LNG = MyBase.Columns("냉방LNG") Me.column냉방LPG = MyBase.Columns("냉방LPG") Me.column냉방지역 = MyBase.Columns("냉방지역") Me.column냉방지역2 = MyBase.Columns("냉방지역2") Me.column냉방전력 = MyBase.Columns("냉방전력") Me.column냉방펠렛 = MyBase.Columns("냉방펠렛") Me.column급탕등유 = MyBase.Columns("급탕등유") Me.column급탕LNG = MyBase.Columns("급탕LNG") Me.column급탕LPG = MyBase.Columns("급탕LPG") Me.column급탕지역 = MyBase.Columns("급탕지역") Me.column급탕전력 = MyBase.Columns("급탕전력") Me.column급탕펠렛 = MyBase.Columns("급탕펠렛") End Sub _ Private Sub InitClass() Me.columnmon = New Global.System.Data.DataColumn("mon", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmon) Me.column난방등유 = New Global.System.Data.DataColumn("난방등유", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column난방등유) Me.column난방LNG = New Global.System.Data.DataColumn("난방LNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column난방LNG) Me.column난방LPG = New Global.System.Data.DataColumn("난방LPG", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column난방LPG) 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(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냉방LNG = New Global.System.Data.DataColumn("냉방LNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column냉방LNG) Me.column냉방LPG = New Global.System.Data.DataColumn("냉방LPG", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column냉방LPG) Me.column냉방지역 = New Global.System.Data.DataColumn("냉방지역", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column냉방지역) Me.column냉방지역2 = New Global.System.Data.DataColumn("냉방지역2", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column냉방지역2) 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(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column급탕등유) Me.column급탕LNG = New Global.System.Data.DataColumn("급탕LNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column급탕LNG) Me.column급탕LPG = New Global.System.Data.DataColumn("급탕LPG", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column급탕LPG) 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(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column급탕펠렛) Me.column난방등유.Caption = "난방에너지요구량공조" Me.column난방등유.DefaultValue = CType("0",String) Me.column난방LNG.Caption = "난방단위면적당요구량" Me.column난방LNG.DefaultValue = CType("0",String) Me.column난방LPG.Caption = "냉방에너지요구량" Me.column난방LPG.DefaultValue = CType("0",String) Me.column난방지역.Caption = "냉방에너지요구량열" Me.column난방지역.DefaultValue = CType("0",String) Me.column난방전력.Caption = "냉방에너지요구량공조" Me.column난방전력.DefaultValue = CType("0",String) Me.column난방펠렛.DefaultValue = CType("0",String) Me.column냉방등유.Caption = "조명단위면적당요구량" Me.column냉방등유.DefaultValue = CType("0",String) Me.column냉방LNG.Caption = "급탕에너지요구량" Me.column냉방LNG.DefaultValue = CType("0",String) Me.column냉방LPG.Caption = "급탕단위면적당요구량" Me.column냉방LPG.DefaultValue = CType("0",String) Me.column냉방지역.Caption = "급탕보조에너지소요량" Me.column냉방지역.DefaultValue = CType("0",String) Me.column냉방지역2.DefaultValue = CType(0D,Decimal) Me.column냉방전력.Caption = "급탕단위면적당소요량" Me.column냉방전력.DefaultValue = CType("0",String) Me.column냉방펠렛.DefaultValue = CType("0",String) Me.column급탕등유.DefaultValue = CType("0",String) Me.column급탕LNG.DefaultValue = CType("0",String) Me.column급탕LPG.DefaultValue = CType("0",String) Me.column급탕지역.DefaultValue = CType("0",String) Me.column급탕전력.DefaultValue = CType("0",String) Me.column급탕펠렛.DefaultValue = CType("0",String) End Sub _ Public Function New에너지소요량1Row() As 에너지소요량1Row Return CType(Me.NewRow,에너지소요량1Row) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New 에너지소요량1Row(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(에너지소요량1Row) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.에너지소요량1RowChangedEvent) Is Nothing) Then RaiseEvent 에너지소요량1RowChanged(Me, New 에너지소요량1RowChangeEvent(CType(e.Row,에너지소요량1Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.에너지소요량1RowChangingEvent) Is Nothing) Then RaiseEvent 에너지소요량1RowChanging(Me, New 에너지소요량1RowChangeEvent(CType(e.Row,에너지소요량1Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.에너지소요량1RowDeletedEvent) Is Nothing) Then RaiseEvent 에너지소요량1RowDeleted(Me, New 에너지소요량1RowChangeEvent(CType(e.Row,에너지소요량1Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.에너지소요량1RowDeletingEvent) Is Nothing) Then RaiseEvent 에너지소요량1RowDeleting(Me, New 에너지소요량1RowChangeEvent(CType(e.Row,에너지소요량1Row), e.Action)) End If End Sub _ Public Sub Remove에너지소요량1Row(ByVal row As 에너지소요량1Row) 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 = "에너지소요량1DataTable" 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 columnmon As Global.System.Data.DataColumn Private column전력태양광 As Global.System.Data.DataColumn Private column전력태양광offsite 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전력풍력offsite 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 Private column신재생열병합열생산량 As Global.System.Data.DataColumn Private column연료전지전력생산량_offsite 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 monColumn() As Global.System.Data.DataColumn Get Return Me.columnmon End Get End Property _ Public ReadOnly Property 전력태양광Column() As Global.System.Data.DataColumn Get Return Me.column전력태양광 End Get End Property _ Public ReadOnly Property 전력태양광offsiteColumn() As Global.System.Data.DataColumn Get Return Me.column전력태양광offsite 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 전력풍력offsiteColumn() As Global.System.Data.DataColumn Get Return Me.column전력풍력offsite 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 신재생열병합열생산량Column() As Global.System.Data.DataColumn Get Return Me.column신재생열병합열생산량 End Get End Property _ Public ReadOnly Property 연료전지전력생산량_offsiteColumn() As Global.System.Data.DataColumn Get Return Me.column연료전지전력생산량_offsite 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 mon As String, _ ByVal 전력태양광 As String, _ ByVal 전력태양광offsite As String, _ ByVal 전력열병합 As String, _ ByVal 생산량태양열 As String, _ ByVal 생산량지열 As String, _ ByVal 면적당생산량태양열 As Decimal, _ ByVal 면적당생산량지열 As Decimal, _ ByVal 신재생열병합전력생산량 As String, _ ByVal 신재생면적당열생산량 As String, _ ByVal 전력풍력 As String, _ ByVal 생산량수열 As String, _ ByVal 면적당생산량수열 As String, _ ByVal 전력풍력offsite As String, _ ByVal 면적당생산량태양열_난방 As String, _ ByVal 면적당생산량태양열_냉방 As String, _ ByVal 면적당생산량태양열_급탕 As String, _ ByVal 면적당생산량지열_난방 As String, _ ByVal 면적당생산량지열_냉방 As String, _ ByVal 면적당생산량지열_급탕 As String, _ ByVal 신재생면적당열생산량_난방 As String, _ ByVal 신재생면적당열생산량_급탕 As String, _ ByVal 신재생면적당열생산량_냉방 As String, _ ByVal 면적당생산량수열_난방 As String, _ ByVal 면적당생산량수열_냉방 As String, _ ByVal 면적당생산량수열_급탕 As String, _ ByVal 신재생열병합열생산량 As String, _ ByVal 연료전지전력생산량_offsite As String) As 생산에너지Row Dim row생산에너지Row As 생산에너지Row = CType(Me.NewRow,생산에너지Row) Dim columnValuesArray() As Object = New Object() {mon, 전력태양광, 전력태양광offsite, 전력열병합, 생산량태양열, 생산량지열, 면적당생산량태양열, 면적당생산량지열, 신재생열병합전력생산량, 신재생면적당열생산량, 전력풍력, 생산량수열, 면적당생산량수열, 전력풍력offsite, 면적당생산량태양열_난방, 면적당생산량태양열_냉방, 면적당생산량태양열_급탕, 면적당생산량지열_난방, 면적당생산량지열_냉방, 면적당생산량지열_급탕, 신재생면적당열생산량_난방, 신재생면적당열생산량_급탕, 신재생면적당열생산량_냉방, 면적당생산량수열_난방, 면적당생산량수열_냉방, 면적당생산량수열_급탕, 신재생열병합열생산량, 연료전지전력생산량_offsite} 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.columnmon = MyBase.Columns("mon") Me.column전력태양광 = MyBase.Columns("전력태양광") Me.column전력태양광offsite = MyBase.Columns("전력태양광offsite") 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전력풍력offsite = MyBase.Columns("전력풍력offsite") 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("신재생열병합열생산량") Me.column연료전지전력생산량_offsite = MyBase.Columns("연료전지전력생산량_offsite") End Sub _ Private Sub InitClass() Me.columnmon = New Global.System.Data.DataColumn("mon", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnmon) Me.column전력태양광 = New Global.System.Data.DataColumn("전력태양광", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column전력태양광) Me.column전력태양광offsite = New Global.System.Data.DataColumn("전력태양광offsite", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column전력태양광offsite) 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(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(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(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(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column면적당생산량수열) Me.column전력풍력offsite = New Global.System.Data.DataColumn("전력풍력offsite", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column전력풍력offsite) 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(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(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(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(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(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(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column신재생열병합열생산량) Me.column연료전지전력생산량_offsite = New Global.System.Data.DataColumn("연료전지전력생산량_offsite", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column연료전지전력생산량_offsite) Me.column전력태양광.Caption = "에너지요구량" Me.column전력태양광.DefaultValue = CType("0",String) Me.column전력태양광offsite.DefaultValue = CType("0",String) Me.column전력열병합.Caption = "단위면적당요구량" Me.column전력열병합.DefaultValue = CType("0",String) Me.column생산량태양열.Caption = "난방에너지요구량열" Me.column생산량태양열.DefaultValue = CType("0",String) Me.column생산량지열.Caption = "난방에너지요구량공조" Me.column생산량지열.DefaultValue = CType("0",String) Me.column면적당생산량태양열.DefaultValue = CType(0D,Decimal) Me.column면적당생산량지열.DefaultValue = CType(0D,Decimal) Me.column신재생열병합전력생산량.DefaultValue = CType("0",String) Me.column신재생면적당열생산량.DefaultValue = CType("0",String) Me.column전력풍력offsite.DefaultValue = CType("0",String) 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 Graph_Info_dataDataTable Inherits Global.System.Data.TypedTableBase(Of Graph_Info_dataRow) 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난방소요1 As Global.System.Data.DataColumn Private column급탕소요1 As Global.System.Data.DataColumn Private column냉방소요1 As Global.System.Data.DataColumn Private column조명소요1 As Global.System.Data.DataColumn Private column환기소요1 As Global.System.Data.DataColumn Private column난방co2 As Global.System.Data.DataColumn Private column급탕co2 As Global.System.Data.DataColumn Private column냉방co2 As Global.System.Data.DataColumn Private column조명co2 As Global.System.Data.DataColumn Private column환기co2 As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Graph_Info_data" 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 난방소요1Column() As Global.System.Data.DataColumn Get Return Me.column난방소요1 End Get End Property _ Public ReadOnly Property 급탕소요1Column() As Global.System.Data.DataColumn Get Return Me.column급탕소요1 End Get End Property _ Public ReadOnly Property 냉방소요1Column() As Global.System.Data.DataColumn Get Return Me.column냉방소요1 End Get End Property _ Public ReadOnly Property 조명소요1Column() As Global.System.Data.DataColumn Get Return Me.column조명소요1 End Get End Property _ Public ReadOnly Property 환기소요1Column() As Global.System.Data.DataColumn Get Return Me.column환기소요1 End Get End Property _ Public ReadOnly Property 난방co2Column() As Global.System.Data.DataColumn Get Return Me.column난방co2 End Get End Property _ Public ReadOnly Property 급탕co2Column() As Global.System.Data.DataColumn Get Return Me.column급탕co2 End Get End Property _ Public ReadOnly Property 냉방co2Column() As Global.System.Data.DataColumn Get Return Me.column냉방co2 End Get End Property _ Public ReadOnly Property 조명co2Column() As Global.System.Data.DataColumn Get Return Me.column조명co2 End Get End Property _ Public ReadOnly Property 환기co2Column() As Global.System.Data.DataColumn Get Return Me.column환기co2 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_Info_dataRow Get Return CType(Me.Rows(index),Graph_Info_dataRow) End Get End Property _ Public Event Graph_Info_dataRowChanging As Graph_Info_dataRowChangeEventHandler _ Public Event Graph_Info_dataRowChanged As Graph_Info_dataRowChangeEventHandler _ Public Event Graph_Info_dataRowDeleting As Graph_Info_dataRowChangeEventHandler _ Public Event Graph_Info_dataRowDeleted As Graph_Info_dataRowChangeEventHandler _ Public Overloads Sub AddGraph_Info_dataRow(ByVal row As Graph_Info_dataRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddGraph_Info_dataRow(ByVal 난방소요 As Decimal, ByVal 급탕소요 As Decimal, ByVal 냉방소요 As Decimal, ByVal 조명소요 As Decimal, ByVal 환기소요 As Decimal, ByVal 난방소요1 As Decimal, ByVal 급탕소요1 As Decimal, ByVal 냉방소요1 As Decimal, ByVal 조명소요1 As Decimal, ByVal 환기소요1 As Decimal, ByVal 난방co2 As Decimal, ByVal 급탕co2 As Decimal, ByVal 냉방co2 As Decimal, ByVal 조명co2 As Decimal, ByVal 환기co2 As Decimal) As Graph_Info_dataRow Dim rowGraph_Info_dataRow As Graph_Info_dataRow = CType(Me.NewRow,Graph_Info_dataRow) Dim columnValuesArray() As Object = New Object() {난방소요, 급탕소요, 냉방소요, 조명소요, 환기소요, 난방소요1, 급탕소요1, 냉방소요1, 조명소요1, 환기소요1, 난방co2, 급탕co2, 냉방co2, 조명co2, 환기co2} rowGraph_Info_dataRow.ItemArray = columnValuesArray Me.Rows.Add(rowGraph_Info_dataRow) Return rowGraph_Info_dataRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As Graph_Info_dataDataTable = CType(MyBase.Clone,Graph_Info_dataDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New Graph_Info_dataDataTable() 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난방소요1 = MyBase.Columns("난방소요1") Me.column급탕소요1 = MyBase.Columns("급탕소요1") Me.column냉방소요1 = MyBase.Columns("냉방소요1") Me.column조명소요1 = MyBase.Columns("조명소요1") Me.column환기소요1 = MyBase.Columns("환기소요1") Me.column난방co2 = MyBase.Columns("난방co2") Me.column급탕co2 = MyBase.Columns("급탕co2") Me.column냉방co2 = MyBase.Columns("냉방co2") Me.column조명co2 = MyBase.Columns("조명co2") Me.column환기co2 = MyBase.Columns("환기co2") End Sub _ Private Sub InitClass() 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난방소요1 = New Global.System.Data.DataColumn("난방소요1", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column난방소요1) Me.column급탕소요1 = New Global.System.Data.DataColumn("급탕소요1", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column급탕소요1) Me.column냉방소요1 = New Global.System.Data.DataColumn("냉방소요1", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column냉방소요1) Me.column조명소요1 = New Global.System.Data.DataColumn("조명소요1", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column조명소요1) Me.column환기소요1 = New Global.System.Data.DataColumn("환기소요1", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column환기소요1) Me.column난방co2 = New Global.System.Data.DataColumn("난방co2", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column난방co2) Me.column급탕co2 = New Global.System.Data.DataColumn("급탕co2", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column급탕co2) Me.column냉방co2 = New Global.System.Data.DataColumn("냉방co2", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column냉방co2) Me.column조명co2 = New Global.System.Data.DataColumn("조명co2", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column조명co2) Me.column환기co2 = New Global.System.Data.DataColumn("환기co2", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column환기co2) 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난방소요1.DefaultValue = CType(0D,Decimal) Me.column급탕소요1.DefaultValue = CType(0D,Decimal) Me.column냉방소요1.DefaultValue = CType(0D,Decimal) Me.column조명소요1.DefaultValue = CType(0D,Decimal) Me.column환기소요1.DefaultValue = CType(0D,Decimal) Me.column난방co2.DefaultValue = CType(0D,Decimal) Me.column급탕co2.DefaultValue = CType(0D,Decimal) Me.column냉방co2.DefaultValue = CType(0D,Decimal) Me.column조명co2.DefaultValue = CType(0D,Decimal) Me.column환기co2.DefaultValue = CType(0D,Decimal) End Sub _ Public Function NewGraph_Info_dataRow() As Graph_Info_dataRow Return CType(Me.NewRow,Graph_Info_dataRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New Graph_Info_dataRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(Graph_Info_dataRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.Graph_Info_dataRowChangedEvent) Is Nothing) Then RaiseEvent Graph_Info_dataRowChanged(Me, New Graph_Info_dataRowChangeEvent(CType(e.Row,Graph_Info_dataRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.Graph_Info_dataRowChangingEvent) Is Nothing) Then RaiseEvent Graph_Info_dataRowChanging(Me, New Graph_Info_dataRowChangeEvent(CType(e.Row,Graph_Info_dataRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.Graph_Info_dataRowDeletedEvent) Is Nothing) Then RaiseEvent Graph_Info_dataRowDeleted(Me, New Graph_Info_dataRowChangeEvent(CType(e.Row,Graph_Info_dataRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.Graph_Info_dataRowDeletingEvent) Is Nothing) Then RaiseEvent Graph_Info_dataRowDeleting(Me, New Graph_Info_dataRowChangeEvent(CType(e.Row,Graph_Info_dataRow), e.Action)) End If End Sub _ Public Sub RemoveGraph_Info_dataRow(ByVal row As Graph_Info_dataRow) 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_Info_dataDataTable" 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 Pyonga_REQDataTable Inherits Global.System.Data.TypedTableBase(Of Pyonga_REQRow) Private column종류 As Global.System.Data.DataColumn Private column값 As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Pyonga_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 종류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 Pyonga_REQRow Get Return CType(Me.Rows(index),Pyonga_REQRow) End Get End Property _ Public Event Pyonga_REQRowChanging As Pyonga_REQRowChangeEventHandler _ Public Event Pyonga_REQRowChanged As Pyonga_REQRowChangeEventHandler _ Public Event Pyonga_REQRowDeleting As Pyonga_REQRowChangeEventHandler _ Public Event Pyonga_REQRowDeleted As Pyonga_REQRowChangeEventHandler _ Public Overloads Sub AddPyonga_REQRow(ByVal row As Pyonga_REQRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddPyonga_REQRow(ByVal 종류 As String, ByVal 값 As Decimal) As Pyonga_REQRow Dim rowPyonga_REQRow As Pyonga_REQRow = CType(Me.NewRow,Pyonga_REQRow) Dim columnValuesArray() As Object = New Object() {종류, 값} rowPyonga_REQRow.ItemArray = columnValuesArray Me.Rows.Add(rowPyonga_REQRow) Return rowPyonga_REQRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As Pyonga_REQDataTable = CType(MyBase.Clone,Pyonga_REQDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New Pyonga_REQDataTable() End Function _ Friend Sub InitVars() 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(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column값) Me.column종류.Caption = "Mon" Me.column값.DefaultValue = CType(0D,Decimal) End Sub _ Public Function NewPyonga_REQRow() As Pyonga_REQRow Return CType(Me.NewRow,Pyonga_REQRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New Pyonga_REQRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(Pyonga_REQRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.Pyonga_REQRowChangedEvent) Is Nothing) Then RaiseEvent Pyonga_REQRowChanged(Me, New Pyonga_REQRowChangeEvent(CType(e.Row,Pyonga_REQRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.Pyonga_REQRowChangingEvent) Is Nothing) Then RaiseEvent Pyonga_REQRowChanging(Me, New Pyonga_REQRowChangeEvent(CType(e.Row,Pyonga_REQRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.Pyonga_REQRowDeletedEvent) Is Nothing) Then RaiseEvent Pyonga_REQRowDeleted(Me, New Pyonga_REQRowChangeEvent(CType(e.Row,Pyonga_REQRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.Pyonga_REQRowDeletingEvent) Is Nothing) Then RaiseEvent Pyonga_REQRowDeleting(Me, New Pyonga_REQRowChangeEvent(CType(e.Row,Pyonga_REQRow), e.Action)) End If End Sub _ Public Sub RemovePyonga_REQRow(ByVal row As Pyonga_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 = "Pyonga_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 Pyonga_USEDataTable Inherits Global.System.Data.TypedTableBase(Of Pyonga_USERow) Private column종류 As Global.System.Data.DataColumn Private column값 As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Pyonga_USE" 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 Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As Pyonga_USERow Get Return CType(Me.Rows(index),Pyonga_USERow) End Get End Property _ Public Event Pyonga_USERowChanging As Pyonga_USERowChangeEventHandler _ Public Event Pyonga_USERowChanged As Pyonga_USERowChangeEventHandler _ Public Event Pyonga_USERowDeleting As Pyonga_USERowChangeEventHandler _ Public Event Pyonga_USERowDeleted As Pyonga_USERowChangeEventHandler _ Public Overloads Sub AddPyonga_USERow(ByVal row As Pyonga_USERow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddPyonga_USERow(ByVal 종류 As String, ByVal 값 As Decimal) As Pyonga_USERow Dim rowPyonga_USERow As Pyonga_USERow = CType(Me.NewRow,Pyonga_USERow) Dim columnValuesArray() As Object = New Object() {종류, 값} rowPyonga_USERow.ItemArray = columnValuesArray Me.Rows.Add(rowPyonga_USERow) Return rowPyonga_USERow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As Pyonga_USEDataTable = CType(MyBase.Clone,Pyonga_USEDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New Pyonga_USEDataTable() End Function _ Friend Sub InitVars() 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(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column값) Me.column종류.Caption = "Mon" Me.column값.DefaultValue = CType(0D,Decimal) End Sub _ Public Function NewPyonga_USERow() As Pyonga_USERow Return CType(Me.NewRow,Pyonga_USERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New Pyonga_USERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(Pyonga_USERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.Pyonga_USERowChangedEvent) Is Nothing) Then RaiseEvent Pyonga_USERowChanged(Me, New Pyonga_USERowChangeEvent(CType(e.Row,Pyonga_USERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.Pyonga_USERowChangingEvent) Is Nothing) Then RaiseEvent Pyonga_USERowChanging(Me, New Pyonga_USERowChangeEvent(CType(e.Row,Pyonga_USERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.Pyonga_USERowDeletedEvent) Is Nothing) Then RaiseEvent Pyonga_USERowDeleted(Me, New Pyonga_USERowChangeEvent(CType(e.Row,Pyonga_USERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.Pyonga_USERowDeletingEvent) Is Nothing) Then RaiseEvent Pyonga_USERowDeleting(Me, New Pyonga_USERowChangeEvent(CType(e.Row,Pyonga_USERow), e.Action)) End If End Sub _ Public Sub RemovePyonga_USERow(ByVal row As Pyonga_USERow) 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 = "Pyonga_USEDataTable" 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 Pyonga_1USEDataTable Inherits Global.System.Data.TypedTableBase(Of Pyonga_1USERow) Private column종류 As Global.System.Data.DataColumn Private column값 As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Pyonga_1USE" 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 Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As Pyonga_1USERow Get Return CType(Me.Rows(index),Pyonga_1USERow) End Get End Property _ Public Event Pyonga_1USERowChanging As Pyonga_1USERowChangeEventHandler _ Public Event Pyonga_1USERowChanged As Pyonga_1USERowChangeEventHandler _ Public Event Pyonga_1USERowDeleting As Pyonga_1USERowChangeEventHandler _ Public Event Pyonga_1USERowDeleted As Pyonga_1USERowChangeEventHandler _ Public Overloads Sub AddPyonga_1USERow(ByVal row As Pyonga_1USERow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddPyonga_1USERow(ByVal 종류 As String, ByVal 값 As Decimal) As Pyonga_1USERow Dim rowPyonga_1USERow As Pyonga_1USERow = CType(Me.NewRow,Pyonga_1USERow) Dim columnValuesArray() As Object = New Object() {종류, 값} rowPyonga_1USERow.ItemArray = columnValuesArray Me.Rows.Add(rowPyonga_1USERow) Return rowPyonga_1USERow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As Pyonga_1USEDataTable = CType(MyBase.Clone,Pyonga_1USEDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New Pyonga_1USEDataTable() End Function _ Friend Sub InitVars() 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(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column값) Me.column종류.Caption = "Mon" Me.column값.DefaultValue = CType(0D,Decimal) End Sub _ Public Function NewPyonga_1USERow() As Pyonga_1USERow Return CType(Me.NewRow,Pyonga_1USERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New Pyonga_1USERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(Pyonga_1USERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.Pyonga_1USERowChangedEvent) Is Nothing) Then RaiseEvent Pyonga_1USERowChanged(Me, New Pyonga_1USERowChangeEvent(CType(e.Row,Pyonga_1USERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.Pyonga_1USERowChangingEvent) Is Nothing) Then RaiseEvent Pyonga_1USERowChanging(Me, New Pyonga_1USERowChangeEvent(CType(e.Row,Pyonga_1USERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.Pyonga_1USERowDeletedEvent) Is Nothing) Then RaiseEvent Pyonga_1USERowDeleted(Me, New Pyonga_1USERowChangeEvent(CType(e.Row,Pyonga_1USERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.Pyonga_1USERowDeletingEvent) Is Nothing) Then RaiseEvent Pyonga_1USERowDeleting(Me, New Pyonga_1USERowChangeEvent(CType(e.Row,Pyonga_1USERow), e.Action)) End If End Sub _ Public Sub RemovePyonga_1USERow(ByVal row As Pyonga_1USERow) 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 = "Pyonga_1USEDataTable" 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 Pyonga_YKDataTable Inherits Global.System.Data.TypedTableBase(Of Pyonga_YKRow) 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지열난방COP As Global.System.Data.DataColumn Private column지열냉방COP 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 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 Private column열병합가동연료 As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Pyonga_YK" 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 지열난방COPColumn() As Global.System.Data.DataColumn Get Return Me.column지열난방COP End Get End Property _ Public ReadOnly Property 지열냉방COPColumn() As Global.System.Data.DataColumn Get Return Me.column지열냉방COP 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 급탕용량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 열병합가동연료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 Pyonga_YKRow Get Return CType(Me.Rows(index),Pyonga_YKRow) End Get End Property _ Public Event Pyonga_YKRowChanging As Pyonga_YKRowChangeEventHandler _ Public Event Pyonga_YKRowChanged As Pyonga_YKRowChangeEventHandler _ Public Event Pyonga_YKRowDeleting As Pyonga_YKRowChangeEventHandler _ Public Event Pyonga_YKRowDeleted As Pyonga_YKRowChangeEventHandler _ Public Overloads Sub AddPyonga_YKRow(ByVal row As Pyonga_YKRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddPyonga_YKRow( _ ByVal 벽체종류 As String, _ ByVal 지붕종류 As String, _ ByVal 바닥종류 As String, _ ByVal 벽체값 As Decimal, _ ByVal 지붕값 As Decimal, _ ByVal 바닥값 As Decimal, _ ByVal 창호종류 As String, _ ByVal 창호값 As Decimal, _ ByVal 주거실조명전력 As String, _ ByVal 주조명광원 As String, _ ByVal 지열히트펌프용량 As String, _ ByVal 지열난방COP As String, _ ByVal 지열냉방COP As String, _ ByVal 지열비고 As String, _ ByVal 온열원설비방식 As String, _ ByVal 급탕설비방식 As String, _ ByVal 급탕설비연료 As String, _ ByVal 냉열원설비방식 As String, _ ByVal 냉열원설비연료 As String, _ ByVal 온열원설비연료 As String, _ ByVal 온열원용량 As String, _ ByVal 온열원효율 As String, _ ByVal 냉열원용량 As String, _ ByVal 냉열원효율 As String, _ ByVal 급탕효율 As String, _ ByVal 급탕용량 As String, _ ByVal 태양열집열판면적 As String, _ ByVal 태양열집열기유형 As String, _ ByVal 태양열집열판방위 As String, _ ByVal 태양광모듈면적 As String, _ ByVal 태양광모듈종류 As String, _ ByVal 태양광모듈방위 As String, _ ByVal 태양광모듈기울기 As String, _ ByVal 태양광모듈적용타입 As String, _ ByVal 열병합열생산능력 As String, _ ByVal 열병합열생산효율 As String, _ ByVal 열병합발전효율 As String, _ ByVal 지열히트펌프용량냉방 As String, _ ByVal 열병합가동연료 As String) As Pyonga_YKRow Dim rowPyonga_YKRow As Pyonga_YKRow = CType(Me.NewRow,Pyonga_YKRow) Dim columnValuesArray() As Object = New Object() {벽체종류, 지붕종류, 바닥종류, 벽체값, 지붕값, 바닥값, 창호종류, 창호값, 주거실조명전력, 주조명광원, 지열히트펌프용량, 지열난방COP, 지열냉방COP, 지열비고, 온열원설비방식, 급탕설비방식, 급탕설비연료, 냉열원설비방식, 냉열원설비연료, 온열원설비연료, 온열원용량, 온열원효율, 냉열원용량, 냉열원효율, 급탕효율, 급탕용량, 태양열집열판면적, 태양열집열기유형, 태양열집열판방위, 태양광모듈면적, 태양광모듈종류, 태양광모듈방위, 태양광모듈기울기, 태양광모듈적용타입, 열병합열생산능력, 열병합열생산효율, 열병합발전효율, 지열히트펌프용량냉방, 열병합가동연료} rowPyonga_YKRow.ItemArray = columnValuesArray Me.Rows.Add(rowPyonga_YKRow) Return rowPyonga_YKRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As Pyonga_YKDataTable = CType(MyBase.Clone,Pyonga_YKDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New Pyonga_YKDataTable() 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지열난방COP = MyBase.Columns("지열난방COP") Me.column지열냉방COP = MyBase.Columns("지열냉방COP") 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("급탕용량") 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(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(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(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(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column지열히트펌프용량) Me.column지열난방COP = New Global.System.Data.DataColumn("지열난방COP", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column지열난방COP) Me.column지열냉방COP = New Global.System.Data.DataColumn("지열냉방COP", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column지열냉방COP) 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(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(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(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(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(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(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(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(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(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(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(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(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벽체종류.Caption = "Mon" Me.column벽체종류.DefaultValue = CType("",String) Me.column지붕종류.DefaultValue = CType("",String) 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("",String) Me.column창호값.DefaultValue = CType(0D,Decimal) Me.column주거실조명전력.DefaultValue = CType("",String) Me.column주조명광원.DefaultValue = CType("",String) Me.column지열히트펌프용량.DefaultValue = CType("",String) Me.column지열난방COP.DefaultValue = CType("",String) Me.column지열냉방COP.DefaultValue = CType("",String) Me.column지열비고.DefaultValue = CType("",String) Me.column온열원설비방식.DefaultValue = CType("",String) Me.column급탕설비방식.Caption = "온열원설비방식" Me.column급탕설비방식.DefaultValue = CType("",String) Me.column급탕설비연료.Caption = "온열원설비연료" Me.column급탕설비연료.DefaultValue = CType("",String) Me.column냉열원설비방식.Caption = "온열원설비방식" Me.column냉열원설비방식.DefaultValue = CType("",String) Me.column냉열원설비연료.Caption = "온열원설비연료" Me.column냉열원설비연료.DefaultValue = CType("",String) Me.column온열원설비연료.DefaultValue = CType("",String) Me.column온열원용량.DefaultValue = CType("",String) Me.column온열원효율.DefaultValue = CType("",String) Me.column냉열원용량.DefaultValue = CType("",String) Me.column냉열원효율.DefaultValue = CType("",String) Me.column급탕효율.DefaultValue = CType("",String) Me.column급탕용량.DefaultValue = CType("",String) Me.column태양열집열판면적.DefaultValue = CType("",String) Me.column태양열집열기유형.DefaultValue = CType("",String) Me.column태양열집열판방위.DefaultValue = CType("",String) Me.column태양광모듈면적.DefaultValue = CType("",String) Me.column태양광모듈종류.DefaultValue = CType("",String) Me.column태양광모듈방위.DefaultValue = CType("",String) Me.column태양광모듈기울기.DefaultValue = CType("",String) Me.column태양광모듈적용타입.DefaultValue = CType("",String) Me.column열병합열생산능력.DefaultValue = CType("",String) Me.column열병합열생산효율.DefaultValue = CType("",String) Me.column열병합발전효율.DefaultValue = CType("",String) Me.column열병합가동연료.DefaultValue = CType("",String) End Sub _ Public Function NewPyonga_YKRow() As Pyonga_YKRow Return CType(Me.NewRow,Pyonga_YKRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New Pyonga_YKRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(Pyonga_YKRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.Pyonga_YKRowChangedEvent) Is Nothing) Then RaiseEvent Pyonga_YKRowChanged(Me, New Pyonga_YKRowChangeEvent(CType(e.Row,Pyonga_YKRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.Pyonga_YKRowChangingEvent) Is Nothing) Then RaiseEvent Pyonga_YKRowChanging(Me, New Pyonga_YKRowChangeEvent(CType(e.Row,Pyonga_YKRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.Pyonga_YKRowDeletedEvent) Is Nothing) Then RaiseEvent Pyonga_YKRowDeleted(Me, New Pyonga_YKRowChangeEvent(CType(e.Row,Pyonga_YKRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.Pyonga_YKRowDeletingEvent) Is Nothing) Then RaiseEvent Pyonga_YKRowDeleting(Me, New Pyonga_YKRowChangeEvent(CType(e.Row,Pyonga_YKRow), e.Action)) End If End Sub _ Public Sub RemovePyonga_YKRow(ByVal row As Pyonga_YKRow) 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 = "Pyonga_YKDataTable" 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 월별1차에너지사용량DataTable Inherits Global.System.Data.TypedTableBase(Of 월별1차에너지사용량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 columncode As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "월별1차에너지사용량" 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 codeColumn() As Global.System.Data.DataColumn Get Return Me.columncode 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 월별1차에너지사용량Row Get Return CType(Me.Rows(index),월별1차에너지사용량Row) End Get End Property _ Public Event 월별1차에너지사용량RowChanging As 월별1차에너지사용량RowChangeEventHandler _ Public Event 월별1차에너지사용량RowChanged As 월별1차에너지사용량RowChangeEventHandler _ Public Event 월별1차에너지사용량RowDeleting As 월별1차에너지사용량RowChangeEventHandler _ Public Event 월별1차에너지사용량RowDeleted As 월별1차에너지사용량RowChangeEventHandler _ Public Overloads Sub Add월별1차에너지사용량Row(ByVal row As 월별1차에너지사용량Row) Me.Rows.Add(row) End Sub _ Public Overloads Function Add월별1차에너지사용량Row(ByVal 년 As String, ByVal 월 As String, ByVal 도시가스 As String, ByVal 전력 As String, ByVal 지역난방 As String, ByVal code As String) As 월별1차에너지사용량Row Dim row월별1차에너지사용량Row As 월별1차에너지사용량Row = CType(Me.NewRow,월별1차에너지사용량Row) Dim columnValuesArray() As Object = New Object() {년, 월, 도시가스, 전력, 지역난방, code} row월별1차에너지사용량Row.ItemArray = columnValuesArray Me.Rows.Add(row월별1차에너지사용량Row) Return row월별1차에너지사용량Row End Function _ Public Function FindBycode월(ByVal code As String, ByVal 월 As String) As 월별1차에너지사용량Row Return CType(Me.Rows.Find(New Object() {code, 월}),월별1차에너지사용량Row) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As 월별1차에너지사용량DataTable = CType(MyBase.Clone,월별1차에너지사용량DataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New 월별1차에너지사용량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.columncode = MyBase.Columns("code") 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(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(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column지역난방) Me.columncode = New Global.System.Data.DataColumn("code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncode) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode, 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("",String) Me.column전력.DefaultValue = CType("",String) Me.column지역난방.DefaultValue = CType("",String) Me.columncode.AllowDBNull = false Me.columncode.DefaultValue = CType("",String) End Sub _ Public Function New월별1차에너지사용량Row() As 월별1차에너지사용량Row Return CType(Me.NewRow,월별1차에너지사용량Row) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New 월별1차에너지사용량Row(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(월별1차에너지사용량Row) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.월별1차에너지사용량RowChangedEvent) Is Nothing) Then RaiseEvent 월별1차에너지사용량RowChanged(Me, New 월별1차에너지사용량RowChangeEvent(CType(e.Row,월별1차에너지사용량Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.월별1차에너지사용량RowChangingEvent) Is Nothing) Then RaiseEvent 월별1차에너지사용량RowChanging(Me, New 월별1차에너지사용량RowChangeEvent(CType(e.Row,월별1차에너지사용량Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.월별1차에너지사용량RowDeletedEvent) Is Nothing) Then RaiseEvent 월별1차에너지사용량RowDeleted(Me, New 월별1차에너지사용량RowChangeEvent(CType(e.Row,월별1차에너지사용량Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.월별1차에너지사용량RowDeletingEvent) Is Nothing) Then RaiseEvent 월별1차에너지사용량RowDeleting(Me, New 월별1차에너지사용량RowChangeEvent(CType(e.Row,월별1차에너지사용량Row), e.Action)) End If End Sub _ Public Sub Remove월별1차에너지사용량Row(ByVal row As 월별1차에너지사용량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 = "월별1차에너지사용량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 _ 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 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 String, ByVal 난방 As String, ByVal 조명 As String, ByVal 환기 As String, ByVal 급탕전 As String, ByVal 냉방전 As String, ByVal 난방전 As String, ByVal 조명전 As String, ByVal 환기전 As String) 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) 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("환기전") 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(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(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(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(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(String), 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월}, true)) Me.column월.AllowDBNull = false Me.column월.Unique = true Me.column월.DefaultValue = CType("",String) Me.column급탕.DefaultValue = CType("0",String) Me.column냉방.DefaultValue = CType("0",String) Me.column난방.DefaultValue = CType("0",String) Me.column조명.DefaultValue = CType("0",String) Me.column환기.DefaultValue = CType("0",String) Me.column급탕전.DefaultValue = CType("0",String) Me.column냉방전.DefaultValue = CType("0",String) Me.column난방전.DefaultValue = CType("0",String) Me.column조명전.DefaultValue = CType("0",String) Me.column환기전.DefaultValue = CType("0",String) 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 _ 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 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 String) 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 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("기저비율") 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(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column기저비율) Me.column난방.DefaultValue = CType("0",String) Me.column냉방.DefaultValue = CType("0",String) Me.column기저비율.DefaultValue = CType("0",String) 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 strongly named DataRow class. ''' Partial Public Class 최대냉난방부하Row Inherits Global.System.Data.DataRow Private table최대냉난방부하 As 최대냉난방부하DataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.table최대냉난방부하 = CType(Me.Table,최대냉난방부하DataTable) End Sub _ Public Property Zone() As String Get Try Return CType(Me(Me.table최대냉난방부하.ZoneColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'최대냉난방부하' 테이블의 'Zone' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table최대냉난방부하.ZoneColumn) = value End Set End Property _ Public Property 최대난방기기부하() As Decimal Get Try Return CType(Me(Me.table최대냉난방부하.최대난방기기부하Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'최대냉난방부하' 테이블의 '최대난방기기부하' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table최대냉난방부하.최대난방기기부하Column) = value End Set End Property _ Public Property 최대난방실내부하() As Decimal Get Try Return CType(Me(Me.table최대냉난방부하.최대난방실내부하Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'최대냉난방부하' 테이블의 '최대난방실내부하' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table최대냉난방부하.최대난방실내부하Column) = value End Set End Property _ Public Property 난방최대가동시간() As Decimal Get Try Return CType(Me(Me.table최대냉난방부하.난방최대가동시간Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'최대냉난방부하' 테이블의 '난방최대가동시간' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table최대냉난방부하.난방최대가동시간Column) = value End Set End Property _ Public Property 최대가열성능() As Decimal Get Try Return CType(Me(Me.table최대냉난방부하.최대가열성능Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'최대냉난방부하' 테이블의 '최대가열성능' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table최대냉난방부하.최대가열성능Column) = value End Set End Property _ Public Property 최대냉방기기부하() As Decimal Get Try Return CType(Me(Me.table최대냉난방부하.최대냉방기기부하Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'최대냉난방부하' 테이블의 '최대냉방기기부하' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table최대냉난방부하.최대냉방기기부하Column) = value End Set End Property _ Public Property 최대냉방실내부하() As Decimal Get Try Return CType(Me(Me.table최대냉난방부하.최대냉방실내부하Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'최대냉난방부하' 테이블의 '최대냉방실내부하' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table최대냉난방부하.최대냉방실내부하Column) = value End Set End Property _ Public Property 냉방최대가동시간() As Decimal Get Try Return CType(Me(Me.table최대냉난방부하.냉방최대가동시간Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'최대냉난방부하' 테이블의 '냉방최대가동시간' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table최대냉난방부하.냉방최대가동시간Column) = value End Set End Property _ Public Property 최대냉각성능() As Decimal Get Try Return CType(Me(Me.table최대냉난방부하.최대냉각성능Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'최대냉난방부하' 테이블의 '최대냉각성능' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table최대냉난방부하.최대냉각성능Column) = value End Set End Property _ Public Property 최대가습성능() As Decimal Get Try Return CType(Me(Me.table최대냉난방부하.최대가습성능Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'최대냉난방부하' 테이블의 '최대가습성능' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table최대냉난방부하.최대가습성능Column) = value End Set End Property _ Public Property 공조풍량() As Decimal Get Try Return CType(Me(Me.table최대냉난방부하.공조풍량Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'최대냉난방부하' 테이블의 '공조풍량' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table최대냉난방부하.공조풍량Column) = value End Set End Property _ Public Function IsZoneNull() As Boolean Return Me.IsNull(Me.table최대냉난방부하.ZoneColumn) End Function _ Public Sub SetZoneNull() Me(Me.table최대냉난방부하.ZoneColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is최대난방기기부하Null() As Boolean Return Me.IsNull(Me.table최대냉난방부하.최대난방기기부하Column) End Function _ Public Sub Set최대난방기기부하Null() Me(Me.table최대냉난방부하.최대난방기기부하Column) = Global.System.Convert.DBNull End Sub _ Public Function Is최대난방실내부하Null() As Boolean Return Me.IsNull(Me.table최대냉난방부하.최대난방실내부하Column) End Function _ Public Sub Set최대난방실내부하Null() Me(Me.table최대냉난방부하.최대난방실내부하Column) = Global.System.Convert.DBNull End Sub _ Public Function Is난방최대가동시간Null() As Boolean Return Me.IsNull(Me.table최대냉난방부하.난방최대가동시간Column) End Function _ Public Sub Set난방최대가동시간Null() Me(Me.table최대냉난방부하.난방최대가동시간Column) = Global.System.Convert.DBNull End Sub _ Public Function Is최대가열성능Null() As Boolean Return Me.IsNull(Me.table최대냉난방부하.최대가열성능Column) End Function _ Public Sub Set최대가열성능Null() Me(Me.table최대냉난방부하.최대가열성능Column) = Global.System.Convert.DBNull End Sub _ Public Function Is최대냉방기기부하Null() As Boolean Return Me.IsNull(Me.table최대냉난방부하.최대냉방기기부하Column) End Function _ Public Sub Set최대냉방기기부하Null() Me(Me.table최대냉난방부하.최대냉방기기부하Column) = Global.System.Convert.DBNull End Sub _ Public Function Is최대냉방실내부하Null() As Boolean Return Me.IsNull(Me.table최대냉난방부하.최대냉방실내부하Column) End Function _ Public Sub Set최대냉방실내부하Null() Me(Me.table최대냉난방부하.최대냉방실내부하Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉방최대가동시간Null() As Boolean Return Me.IsNull(Me.table최대냉난방부하.냉방최대가동시간Column) End Function _ Public Sub Set냉방최대가동시간Null() Me(Me.table최대냉난방부하.냉방최대가동시간Column) = Global.System.Convert.DBNull End Sub _ Public Function Is최대냉각성능Null() As Boolean Return Me.IsNull(Me.table최대냉난방부하.최대냉각성능Column) End Function _ Public Sub Set최대냉각성능Null() Me(Me.table최대냉난방부하.최대냉각성능Column) = Global.System.Convert.DBNull End Sub _ Public Function Is최대가습성능Null() As Boolean Return Me.IsNull(Me.table최대냉난방부하.최대가습성능Column) End Function _ Public Sub Set최대가습성능Null() Me(Me.table최대냉난방부하.최대가습성능Column) = Global.System.Convert.DBNull End Sub _ Public Function Is공조풍량Null() As Boolean Return Me.IsNull(Me.table최대냉난방부하.공조풍량Column) End Function _ Public Sub Set공조풍량Null() Me(Me.table최대냉난방부하.공조풍량Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class 월별에너지분석Row Inherits Global.System.Data.DataRow Private table월별에너지분석 As 월별에너지분석DataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.table월별에너지분석 = CType(Me.Table,월별에너지분석DataTable) End Sub _ Public Property 월() As String Get Return CType(Me(Me.table월별에너지분석.월Column),String) End Get Set Me(Me.table월별에너지분석.월Column) = value End Set End Property _ Public Property 존() As String Get Return CType(Me(Me.table월별에너지분석.존Column),String) End Get Set Me(Me.table월별에너지분석.존Column) = value End Set End Property _ Public Property 난방요구량열() As Decimal Get Try Return CType(Me(Me.table월별에너지분석.난방요구량열Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'월별에너지분석' 테이블의 '난방요구량열' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table월별에너지분석.난방요구량열Column) = value End Set End Property _ Public Property 난방요구량공조() As Decimal Get Try Return CType(Me(Me.table월별에너지분석.난방요구량공조Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'월별에너지분석' 테이블의 '난방요구량공조' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table월별에너지분석.난방요구량공조Column) = value End Set End Property _ Public Property 냉방요구량열() As Decimal Get Try Return CType(Me(Me.table월별에너지분석.냉방요구량열Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'월별에너지분석' 테이블의 '냉방요구량열' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table월별에너지분석.냉방요구량열Column) = value End Set End Property _ Public Property 냉방요구량공조() As Decimal Get Try Return CType(Me(Me.table월별에너지분석.냉방요구량공조Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'월별에너지분석' 테이블의 '냉방요구량공조' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table월별에너지분석.냉방요구량공조Column) = value End Set End Property _ Public Property 조명요구량() As Decimal Get Try Return CType(Me(Me.table월별에너지분석.조명요구량Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'월별에너지분석' 테이블의 '조명요구량' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table월별에너지분석.조명요구량Column) = value End Set End Property _ Public Property 급탕요구량() As Decimal Get Try Return CType(Me(Me.table월별에너지분석.급탕요구량Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'월별에너지분석' 테이블의 '급탕요구량' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table월별에너지분석.급탕요구량Column) = value End Set End Property _ Public Property 공조풍량() As Decimal Get Try Return CType(Me(Me.table월별에너지분석.공조풍량Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'월별에너지분석' 테이블의 '공조풍량' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table월별에너지분석.공조풍량Column) = value End Set End Property _ Public Property 공조요구량난방() As Decimal Get Try Return CType(Me(Me.table월별에너지분석.공조요구량난방Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'월별에너지분석' 테이블의 '공조요구량난방' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table월별에너지분석.공조요구량난방Column) = value End Set End Property _ Public Property 공조요구량냉방() As Decimal Get Try Return CType(Me(Me.table월별에너지분석.공조요구량냉방Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'월별에너지분석' 테이블의 '공조요구량냉방' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table월별에너지분석.공조요구량냉방Column) = value End Set End Property _ Public Property 공조요구량가습() As Decimal Get Try Return CType(Me(Me.table월별에너지분석.공조요구량가습Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'월별에너지분석' 테이블의 '공조요구량가습' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table월별에너지분석.공조요구량가습Column) = value End Set End Property _ Public Property 환기요구량() As Decimal Get Try Return CType(Me(Me.table월별에너지분석.환기요구량Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'월별에너지분석' 테이블의 '환기요구량' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table월별에너지분석.환기요구량Column) = value End Set End Property _ Public Function Is난방요구량열Null() As Boolean Return Me.IsNull(Me.table월별에너지분석.난방요구량열Column) End Function _ Public Sub Set난방요구량열Null() Me(Me.table월별에너지분석.난방요구량열Column) = Global.System.Convert.DBNull End Sub _ Public Function Is난방요구량공조Null() As Boolean Return Me.IsNull(Me.table월별에너지분석.난방요구량공조Column) End Function _ Public Sub Set난방요구량공조Null() Me(Me.table월별에너지분석.난방요구량공조Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉방요구량열Null() As Boolean Return Me.IsNull(Me.table월별에너지분석.냉방요구량열Column) End Function _ Public Sub Set냉방요구량열Null() Me(Me.table월별에너지분석.냉방요구량열Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉방요구량공조Null() As Boolean Return Me.IsNull(Me.table월별에너지분석.냉방요구량공조Column) End Function _ Public Sub Set냉방요구량공조Null() Me(Me.table월별에너지분석.냉방요구량공조Column) = Global.System.Convert.DBNull End Sub _ Public Function Is조명요구량Null() As Boolean Return Me.IsNull(Me.table월별에너지분석.조명요구량Column) End Function _ Public Sub Set조명요구량Null() Me(Me.table월별에너지분석.조명요구량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is급탕요구량Null() As Boolean Return Me.IsNull(Me.table월별에너지분석.급탕요구량Column) End Function _ Public Sub Set급탕요구량Null() Me(Me.table월별에너지분석.급탕요구량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is공조풍량Null() As Boolean Return Me.IsNull(Me.table월별에너지분석.공조풍량Column) End Function _ Public Sub Set공조풍량Null() Me(Me.table월별에너지분석.공조풍량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is공조요구량난방Null() As Boolean Return Me.IsNull(Me.table월별에너지분석.공조요구량난방Column) End Function _ Public Sub Set공조요구량난방Null() Me(Me.table월별에너지분석.공조요구량난방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is공조요구량냉방Null() As Boolean Return Me.IsNull(Me.table월별에너지분석.공조요구량냉방Column) End Function _ Public Sub Set공조요구량냉방Null() Me(Me.table월별에너지분석.공조요구량냉방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is공조요구량가습Null() As Boolean Return Me.IsNull(Me.table월별에너지분석.공조요구량가습Column) End Function _ Public Sub Set공조요구량가습Null() Me(Me.table월별에너지분석.공조요구량가습Column) = Global.System.Convert.DBNull End Sub _ Public Function Is환기요구량Null() As Boolean Return Me.IsNull(Me.table월별에너지분석.환기요구량Column) End Function _ Public Sub Set환기요구량Null() Me(Me.table월별에너지분석.환기요구량Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TReqUseRow Inherits Global.System.Data.DataRow Private tableTReqUse As TReqUseDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTReqUse = CType(Me.Table,TReqUseDataTable) End Sub _ Public Property Code() As String Get Return CType(Me(Me.tableTReqUse.CodeColumn),String) End Get Set Me(Me.tableTReqUse.CodeColumn) = value End Set End Property _ Public Property Desc() As String Get If Me.IsDescNull Then Return "" Else Return CType(Me(Me.tableTReqUse.DescColumn),String) End If End Get Set Me(Me.tableTReqUse.DescColumn) = value End Set End Property _ Public Property GRP() As String Get If Me.IsGRPNull Then Return "" Else Return CType(Me(Me.tableTReqUse.GRPColumn),String) End If End Get Set Me(Me.tableTReqUse.GRPColumn) = value End Set End Property _ Public Property UNIT() As String Get If Me.IsUNITNull Then Return "" Else Return CType(Me(Me.tableTReqUse.UNITColumn),String) End If End Get Set Me(Me.tableTReqUse.UNITColumn) = value End Set End Property _ Public Property SIGN() As String Get If Me.IsSIGNNull Then Return "" Else Return CType(Me(Me.tableTReqUse.SIGNColumn),String) End If End Get Set Me(Me.tableTReqUse.SIGNColumn) = value End Set End Property _ Public Property EQ() As String Get If Me.IsEQNull Then Return "" Else Return CType(Me(Me.tableTReqUse.EQColumn),String) End If End Get Set Me(Me.tableTReqUse.EQColumn) = value End Set End Property _ Public Property M00() As Decimal Get Try Return CType(Me(Me.tableTReqUse.M00Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M00' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableTReqUse.M00Column) = value End Set End Property _ Public Property M01() As Decimal Get Try Return CType(Me(Me.tableTReqUse.M01Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M01' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableTReqUse.M01Column) = value End Set End Property _ Public Property M02() As Decimal Get Try Return CType(Me(Me.tableTReqUse.M02Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M02' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableTReqUse.M02Column) = value End Set End Property _ Public Property M03() As Decimal Get Try Return CType(Me(Me.tableTReqUse.M03Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M03' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableTReqUse.M03Column) = value End Set End Property _ Public Property M04() As Decimal Get Try Return CType(Me(Me.tableTReqUse.M04Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M04' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableTReqUse.M04Column) = value End Set End Property _ Public Property M05() As Decimal Get Try Return CType(Me(Me.tableTReqUse.M05Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M05' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableTReqUse.M05Column) = value End Set End Property _ Public Property M06() As Decimal Get Try Return CType(Me(Me.tableTReqUse.M06Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M06' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableTReqUse.M06Column) = value End Set End Property _ Public Property M07() As Decimal Get Try Return CType(Me(Me.tableTReqUse.M07Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M07' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableTReqUse.M07Column) = value End Set End Property _ Public Property M08() As Decimal Get Try Return CType(Me(Me.tableTReqUse.M08Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M08' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableTReqUse.M08Column) = value End Set End Property _ Public Property M09() As Decimal Get Try Return CType(Me(Me.tableTReqUse.M09Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M09' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableTReqUse.M09Column) = value End Set End Property _ Public Property M10() As Decimal Get Try Return CType(Me(Me.tableTReqUse.M10Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M10' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableTReqUse.M10Column) = value End Set End Property _ Public Property M11() As Decimal Get Try Return CType(Me(Me.tableTReqUse.M11Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M11' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableTReqUse.M11Column) = value End Set End Property _ Public Property M12() As Decimal Get Try Return CType(Me(Me.tableTReqUse.M12Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M12' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableTReqUse.M12Column) = value End Set End Property _ Public Property F() As String Get If Me.IsFNull Then Return "N0" Else Return CType(Me(Me.tableTReqUse.FColumn),String) End If End Get Set Me(Me.tableTReqUse.FColumn) = value End Set End Property _ Public Function IsDescNull() As Boolean Return Me.IsNull(Me.tableTReqUse.DescColumn) End Function _ Public Sub SetDescNull() Me(Me.tableTReqUse.DescColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGRPNull() As Boolean Return Me.IsNull(Me.tableTReqUse.GRPColumn) End Function _ Public Sub SetGRPNull() Me(Me.tableTReqUse.GRPColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUNITNull() As Boolean Return Me.IsNull(Me.tableTReqUse.UNITColumn) End Function _ Public Sub SetUNITNull() Me(Me.tableTReqUse.UNITColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSIGNNull() As Boolean Return Me.IsNull(Me.tableTReqUse.SIGNColumn) End Function _ Public Sub SetSIGNNull() Me(Me.tableTReqUse.SIGNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEQNull() As Boolean Return Me.IsNull(Me.tableTReqUse.EQColumn) End Function _ Public Sub SetEQNull() Me(Me.tableTReqUse.EQColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsM00Null() As Boolean Return Me.IsNull(Me.tableTReqUse.M00Column) End Function _ Public Sub SetM00Null() Me(Me.tableTReqUse.M00Column) = Global.System.Convert.DBNull End Sub _ Public Function IsM01Null() As Boolean Return Me.IsNull(Me.tableTReqUse.M01Column) End Function _ Public Sub SetM01Null() Me(Me.tableTReqUse.M01Column) = Global.System.Convert.DBNull End Sub _ Public Function IsM02Null() As Boolean Return Me.IsNull(Me.tableTReqUse.M02Column) End Function _ Public Sub SetM02Null() Me(Me.tableTReqUse.M02Column) = Global.System.Convert.DBNull End Sub _ Public Function IsM03Null() As Boolean Return Me.IsNull(Me.tableTReqUse.M03Column) End Function _ Public Sub SetM03Null() Me(Me.tableTReqUse.M03Column) = Global.System.Convert.DBNull End Sub _ Public Function IsM04Null() As Boolean Return Me.IsNull(Me.tableTReqUse.M04Column) End Function _ Public Sub SetM04Null() Me(Me.tableTReqUse.M04Column) = Global.System.Convert.DBNull End Sub _ Public Function IsM05Null() As Boolean Return Me.IsNull(Me.tableTReqUse.M05Column) End Function _ Public Sub SetM05Null() Me(Me.tableTReqUse.M05Column) = Global.System.Convert.DBNull End Sub _ Public Function IsM06Null() As Boolean Return Me.IsNull(Me.tableTReqUse.M06Column) End Function _ Public Sub SetM06Null() Me(Me.tableTReqUse.M06Column) = Global.System.Convert.DBNull End Sub _ Public Function IsM07Null() As Boolean Return Me.IsNull(Me.tableTReqUse.M07Column) End Function _ Public Sub SetM07Null() Me(Me.tableTReqUse.M07Column) = Global.System.Convert.DBNull End Sub _ Public Function IsM08Null() As Boolean Return Me.IsNull(Me.tableTReqUse.M08Column) End Function _ Public Sub SetM08Null() Me(Me.tableTReqUse.M08Column) = Global.System.Convert.DBNull End Sub _ Public Function IsM09Null() As Boolean Return Me.IsNull(Me.tableTReqUse.M09Column) End Function _ Public Sub SetM09Null() Me(Me.tableTReqUse.M09Column) = Global.System.Convert.DBNull End Sub _ Public Function IsM10Null() As Boolean Return Me.IsNull(Me.tableTReqUse.M10Column) End Function _ Public Sub SetM10Null() Me(Me.tableTReqUse.M10Column) = Global.System.Convert.DBNull End Sub _ Public Function IsM11Null() As Boolean Return Me.IsNull(Me.tableTReqUse.M11Column) End Function _ Public Sub SetM11Null() Me(Me.tableTReqUse.M11Column) = Global.System.Convert.DBNull End Sub _ Public Function IsM12Null() As Boolean Return Me.IsNull(Me.tableTReqUse.M12Column) End Function _ Public Sub SetM12Null() Me(Me.tableTReqUse.M12Column) = Global.System.Convert.DBNull End Sub _ Public Function IsFNull() As Boolean Return Me.IsNull(Me.tableTReqUse.FColumn) End Function _ Public Sub SetFNull() Me(Me.tableTReqUse.FColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class Graph_ReqRow Inherits Global.System.Data.DataRow Private tableGraph_Req As Graph_ReqDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableGraph_Req = CType(Me.Table,Graph_ReqDataTable) End Sub _ Public Property Gubun() As String Get Try Return CType(Me(Me.tableGraph_Req.GubunColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Graph_Req' 테이블의 'Gubun' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableGraph_Req.GubunColumn) = value End Set End Property _ Public Property Mon() As String Get Try Return CType(Me(Me.tableGraph_Req.MonColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Graph_Req' 테이블의 'Mon' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableGraph_Req.MonColumn) = value End Set End Property _ Public Property Req() As Decimal Get Try Return CType(Me(Me.tableGraph_Req.ReqColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Graph_Req' 테이블의 'Req' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableGraph_Req.ReqColumn) = value End Set End Property _ Public Function IsGubunNull() As Boolean Return Me.IsNull(Me.tableGraph_Req.GubunColumn) End Function _ Public Sub SetGubunNull() Me(Me.tableGraph_Req.GubunColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMonNull() As Boolean Return Me.IsNull(Me.tableGraph_Req.MonColumn) End Function _ Public Sub SetMonNull() Me(Me.tableGraph_Req.MonColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsReqNull() As Boolean Return Me.IsNull(Me.tableGraph_Req.ReqColumn) End Function _ Public Sub SetReqNull() Me(Me.tableGraph_Req.ReqColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class Graph_ReqUseRow Inherits Global.System.Data.DataRow Private tableGraph_ReqUse As Graph_ReqUseDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableGraph_ReqUse = CType(Me.Table,Graph_ReqUseDataTable) End Sub _ Public Property Gubun() As String Get Try Return CType(Me(Me.tableGraph_ReqUse.GubunColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Graph_ReqUse' 테이블의 'Gubun' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableGraph_ReqUse.GubunColumn) = value End Set End Property _ Public Property type() As String Get Try Return CType(Me(Me.tableGraph_ReqUse.typeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Graph_ReqUse' 테이블의 'type' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableGraph_ReqUse.typeColumn) = value End Set End Property _ Public Property Req() As Decimal Get Try Return CType(Me(Me.tableGraph_ReqUse.ReqColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Graph_ReqUse' 테이블의 'Req' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableGraph_ReqUse.ReqColumn) = value End Set End Property _ Public Function IsGubunNull() As Boolean Return Me.IsNull(Me.tableGraph_ReqUse.GubunColumn) End Function _ Public Sub SetGubunNull() Me(Me.tableGraph_ReqUse.GubunColumn) = Global.System.Convert.DBNull End Sub _ Public Function IstypeNull() As Boolean Return Me.IsNull(Me.tableGraph_ReqUse.typeColumn) End Function _ Public Sub SettypeNull() Me(Me.tableGraph_ReqUse.typeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsReqNull() As Boolean Return Me.IsNull(Me.tableGraph_ReqUse.ReqColumn) End Function _ Public Sub SetReqNull() Me(Me.tableGraph_ReqUse.ReqColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class Graph_InfoRow Inherits Global.System.Data.DataRow Private tableGraph_Info As Graph_InfoDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableGraph_Info = CType(Me.Table,Graph_InfoDataTable) End Sub _ Public Property name() As String Get If Me.IsnameNull Then Return "" Else Return CType(Me(Me.tableGraph_Info.nameColumn),String) End If End Get Set Me(Me.tableGraph_Info.nameColumn) = value End Set End Property _ Public Property year() As String Get If Me.IsyearNull Then Return "" Else Return CType(Me(Me.tableGraph_Info.yearColumn),String) End If End Get Set Me(Me.tableGraph_Info.yearColumn) = value End Set End Property _ Public Property juso() As String Get If Me.IsjusoNull Then Return "" Else Return CType(Me(Me.tableGraph_Info.jusoColumn),String) End If End Get Set Me(Me.tableGraph_Info.jusoColumn) = value End Set End Property _ Public Property chung() As String Get If Me.IschungNull Then Return "" Else Return CType(Me(Me.tableGraph_Info.chungColumn),String) End If End Get Set Me(Me.tableGraph_Info.chungColumn) = value End Set End Property _ Public Property myoun() As String Get If Me.IsmyounNull Then Return "" Else Return CType(Me(Me.tableGraph_Info.myounColumn),String) End If End Get Set Me(Me.tableGraph_Info.myounColumn) = value End Set End Property _ Public Property ydo() As String Get If Me.IsydoNull Then Return "" Else Return CType(Me(Me.tableGraph_Info.ydoColumn),String) End If End Get Set Me(Me.tableGraph_Info.ydoColumn) = value End Set End Property _ Public Property i1() As String Get If Me.Isi1Null Then Return "" Else Return CType(Me(Me.tableGraph_Info.i1Column),String) End If End Get Set Me(Me.tableGraph_Info.i1Column) = value End Set End Property _ Public Property i2() As String Get If Me.Isi2Null Then Return "" Else Return CType(Me(Me.tableGraph_Info.i2Column),String) End If End Get Set Me(Me.tableGraph_Info.i2Column) = value End Set End Property _ Public Property i3() As String Get If Me.Isi3Null Then Return "" Else Return CType(Me(Me.tableGraph_Info.i3Column),String) End If End Get Set Me(Me.tableGraph_Info.i3Column) = value End Set End Property _ Public Property grade() As String Get If Me.IsgradeNull Then Return "" Else Return CType(Me(Me.tableGraph_Info.gradeColumn),String) End If End Get Set Me(Me.tableGraph_Info.gradeColumn) = value End Set End Property _ Public Property co2() As Short Get Try Return CType(Me(Me.tableGraph_Info.co2Column),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Graph_Info' 테이블의 'co2' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableGraph_Info.co2Column) = value End Set End Property _ Public Function IsnameNull() As Boolean Return Me.IsNull(Me.tableGraph_Info.nameColumn) End Function _ Public Sub SetnameNull() Me(Me.tableGraph_Info.nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsyearNull() As Boolean Return Me.IsNull(Me.tableGraph_Info.yearColumn) End Function _ Public Sub SetyearNull() Me(Me.tableGraph_Info.yearColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsjusoNull() As Boolean Return Me.IsNull(Me.tableGraph_Info.jusoColumn) End Function _ Public Sub SetjusoNull() Me(Me.tableGraph_Info.jusoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IschungNull() As Boolean Return Me.IsNull(Me.tableGraph_Info.chungColumn) End Function _ Public Sub SetchungNull() Me(Me.tableGraph_Info.chungColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsmyounNull() As Boolean Return Me.IsNull(Me.tableGraph_Info.myounColumn) End Function _ Public Sub SetmyounNull() Me(Me.tableGraph_Info.myounColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsydoNull() As Boolean Return Me.IsNull(Me.tableGraph_Info.ydoColumn) End Function _ Public Sub SetydoNull() Me(Me.tableGraph_Info.ydoColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isi1Null() As Boolean Return Me.IsNull(Me.tableGraph_Info.i1Column) End Function _ Public Sub Seti1Null() Me(Me.tableGraph_Info.i1Column) = Global.System.Convert.DBNull End Sub _ Public Function Isi2Null() As Boolean Return Me.IsNull(Me.tableGraph_Info.i2Column) End Function _ Public Sub Seti2Null() Me(Me.tableGraph_Info.i2Column) = Global.System.Convert.DBNull End Sub _ Public Function Isi3Null() As Boolean Return Me.IsNull(Me.tableGraph_Info.i3Column) End Function _ Public Sub Seti3Null() Me(Me.tableGraph_Info.i3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsgradeNull() As Boolean Return Me.IsNull(Me.tableGraph_Info.gradeColumn) End Function _ Public Sub SetgradeNull() Me(Me.tableGraph_Info.gradeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isco2Null() As Boolean Return Me.IsNull(Me.tableGraph_Info.co2Column) End Function _ Public Sub Setco2Null() Me(Me.tableGraph_Info.co2Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class 사용면적Row Inherits Global.System.Data.DataRow Private table사용면적 As 사용면적DataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.table사용면적 = CType(Me.Table,사용면적DataTable) End Sub _ Public Property H() As Decimal Get If Me.IsHNull Then Return 0D Else Return CType(Me(Me.table사용면적.HColumn),Decimal) End If End Get Set Me(Me.table사용면적.HColumn) = value End Set End Property _ Public Property C() As Decimal Get If Me.IsCNull Then Return 0D Else Return CType(Me(Me.table사용면적.CColumn),Decimal) End If End Get Set Me(Me.table사용면적.CColumn) = value End Set End Property _ Public Property L() As Decimal Get If Me.IsLNull Then Return 0D Else Return CType(Me(Me.table사용면적.LColumn),Decimal) End If End Get Set Me(Me.table사용면적.LColumn) = value End Set End Property _ Public Property W() As Decimal Get If Me.IsWNull Then Return 0D Else Return CType(Me(Me.table사용면적.WColumn),Decimal) End If End Get Set Me(Me.table사용면적.WColumn) = value End Set End Property _ Public Property V() As Decimal Get If Me.IsVNull Then Return 0D Else Return CType(Me(Me.table사용면적.VColumn),Decimal) End If End Get Set Me(Me.table사용면적.VColumn) = value End Set End Property _ Public Property H_WF() As Decimal Get If Me.IsH_WFNull Then Return 0D Else Return CType(Me(Me.table사용면적.H_WFColumn),Decimal) End If End Get Set Me(Me.table사용면적.H_WFColumn) = value End Set End Property _ Public Property C_WF() As Decimal Get If Me.IsC_WFNull Then Return 0D Else Return CType(Me(Me.table사용면적.C_WFColumn),Decimal) End If End Get Set Me(Me.table사용면적.C_WFColumn) = value End Set End Property _ Public Property L_WF() As Decimal Get If Me.IsL_WFNull Then Return 0D Else Return CType(Me(Me.table사용면적.L_WFColumn),Decimal) End If End Get Set Me(Me.table사용면적.L_WFColumn) = value End Set End Property _ Public Property W_WF() As Decimal Get If Me.IsW_WFNull Then Return 0D Else Return CType(Me(Me.table사용면적.W_WFColumn),Decimal) End If End Get Set Me(Me.table사용면적.W_WFColumn) = value End Set End Property _ Public Property V_WF() As Decimal Get If Me.IsV_WFNull Then Return 0D Else Return CType(Me(Me.table사용면적.V_WFColumn),Decimal) End If End Get Set Me(Me.table사용면적.V_WFColumn) = value End Set End Property _ Public Function IsHNull() As Boolean Return Me.IsNull(Me.table사용면적.HColumn) End Function _ Public Sub SetHNull() Me(Me.table사용면적.HColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCNull() As Boolean Return Me.IsNull(Me.table사용면적.CColumn) End Function _ Public Sub SetCNull() Me(Me.table사용면적.CColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLNull() As Boolean Return Me.IsNull(Me.table사용면적.LColumn) End Function _ Public Sub SetLNull() Me(Me.table사용면적.LColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWNull() As Boolean Return Me.IsNull(Me.table사용면적.WColumn) End Function _ Public Sub SetWNull() Me(Me.table사용면적.WColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVNull() As Boolean Return Me.IsNull(Me.table사용면적.VColumn) End Function _ Public Sub SetVNull() Me(Me.table사용면적.VColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsH_WFNull() As Boolean Return Me.IsNull(Me.table사용면적.H_WFColumn) End Function _ Public Sub SetH_WFNull() Me(Me.table사용면적.H_WFColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsC_WFNull() As Boolean Return Me.IsNull(Me.table사용면적.C_WFColumn) End Function _ Public Sub SetC_WFNull() Me(Me.table사용면적.C_WFColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsL_WFNull() As Boolean Return Me.IsNull(Me.table사용면적.L_WFColumn) End Function _ Public Sub SetL_WFNull() Me(Me.table사용면적.L_WFColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsW_WFNull() As Boolean Return Me.IsNull(Me.table사용면적.W_WFColumn) End Function _ Public Sub SetW_WFNull() Me(Me.table사용면적.W_WFColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsV_WFNull() As Boolean Return Me.IsNull(Me.table사용면적.V_WFColumn) End Function _ Public Sub SetV_WFNull() Me(Me.table사용면적.V_WFColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class 에너지소요량Row Inherits Global.System.Data.DataRow Private table에너지소요량 As 에너지소요량DataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.table에너지소요량 = CType(Me.Table,에너지소요량DataTable) End Sub _ Public Property mon() As String Get Try Return CType(Me(Me.table에너지소요량.monColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량' 테이블의 'mon' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량.monColumn) = value End Set End Property _ Public Property 난방에너지소요량() As String Get Try Return CType(Me(Me.table에너지소요량.난방에너지소요량Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량' 테이블의 '난방에너지소요량' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량.난방에너지소요량Column) = value End Set End Property _ Public Property 난방보조에너지소요량() As String Get Try Return CType(Me(Me.table에너지소요량.난방보조에너지소요량Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량' 테이블의 '난방보조에너지소요량' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량.난방보조에너지소요량Column) = value End Set End Property _ Public Property 냉방에너지소요량() As String Get Try Return CType(Me(Me.table에너지소요량.냉방에너지소요량Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량' 테이블의 '냉방에너지소요량' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량.냉방에너지소요량Column) = value End Set End Property _ Public Property 냉방보조에너지소요량() As String Get Try Return CType(Me(Me.table에너지소요량.냉방보조에너지소요량Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량' 테이블의 '냉방보조에너지소요량' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량.냉방보조에너지소요량Column) = value End Set End Property _ Public Property 급탕에너지소요량() As String Get Try Return CType(Me(Me.table에너지소요량.급탕에너지소요량Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량' 테이블의 '급탕에너지소요량' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량.급탕에너지소요량Column) = value End Set End Property _ Public Property 급탕보조에너지소요량() As String Get Try Return CType(Me(Me.table에너지소요량.급탕보조에너지소요량Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량' 테이블의 '급탕보조에너지소요량' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량.급탕보조에너지소요량Column) = value End Set End Property _ Public Property 난방() As Decimal Get Try Return CType(Me(Me.table에너지소요량.난방Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량' 테이블의 '난방' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량.난방Column) = value End Set End Property _ Public Property 냉방() As Decimal Get Try Return CType(Me(Me.table에너지소요량.냉방Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량' 테이블의 '냉방' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량.냉방Column) = value End Set End Property _ Public Property 조명() As Decimal Get Try Return CType(Me(Me.table에너지소요량.조명Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량' 테이블의 '조명' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량.조명Column) = value End Set End Property _ Public Property 급탕() As Decimal Get Try Return CType(Me(Me.table에너지소요량.급탕Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량' 테이블의 '급탕' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량.급탕Column) = value End Set End Property _ Public Property 환기() As Decimal Get Try Return CType(Me(Me.table에너지소요량.환기Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량' 테이블의 '환기' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량.환기Column) = value End Set End Property _ Public Function IsmonNull() As Boolean Return Me.IsNull(Me.table에너지소요량.monColumn) End Function _ Public Sub SetmonNull() Me(Me.table에너지소요량.monColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is난방에너지소요량Null() As Boolean Return Me.IsNull(Me.table에너지소요량.난방에너지소요량Column) End Function _ Public Sub Set난방에너지소요량Null() Me(Me.table에너지소요량.난방에너지소요량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is난방보조에너지소요량Null() As Boolean Return Me.IsNull(Me.table에너지소요량.난방보조에너지소요량Column) End Function _ Public Sub Set난방보조에너지소요량Null() Me(Me.table에너지소요량.난방보조에너지소요량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉방에너지소요량Null() As Boolean Return Me.IsNull(Me.table에너지소요량.냉방에너지소요량Column) End Function _ Public Sub Set냉방에너지소요량Null() Me(Me.table에너지소요량.냉방에너지소요량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉방보조에너지소요량Null() As Boolean Return Me.IsNull(Me.table에너지소요량.냉방보조에너지소요량Column) End Function _ Public Sub Set냉방보조에너지소요량Null() Me(Me.table에너지소요량.냉방보조에너지소요량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is급탕에너지소요량Null() As Boolean Return Me.IsNull(Me.table에너지소요량.급탕에너지소요량Column) End Function _ Public Sub Set급탕에너지소요량Null() Me(Me.table에너지소요량.급탕에너지소요량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is급탕보조에너지소요량Null() As Boolean Return Me.IsNull(Me.table에너지소요량.급탕보조에너지소요량Column) End Function _ Public Sub Set급탕보조에너지소요량Null() Me(Me.table에너지소요량.급탕보조에너지소요량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is난방Null() As Boolean Return Me.IsNull(Me.table에너지소요량.난방Column) End Function _ Public Sub Set난방Null() Me(Me.table에너지소요량.난방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉방Null() As Boolean Return Me.IsNull(Me.table에너지소요량.냉방Column) End Function _ Public Sub Set냉방Null() Me(Me.table에너지소요량.냉방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is조명Null() As Boolean Return Me.IsNull(Me.table에너지소요량.조명Column) End Function _ Public Sub Set조명Null() Me(Me.table에너지소요량.조명Column) = Global.System.Convert.DBNull End Sub _ Public Function Is급탕Null() As Boolean Return Me.IsNull(Me.table에너지소요량.급탕Column) End Function _ Public Sub Set급탕Null() Me(Me.table에너지소요량.급탕Column) = Global.System.Convert.DBNull End Sub _ Public Function Is환기Null() As Boolean Return Me.IsNull(Me.table에너지소요량.환기Column) End Function _ Public Sub Set환기Null() Me(Me.table에너지소요량.환기Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class 에너지소요량1Row Inherits Global.System.Data.DataRow Private table에너지소요량1 As 에너지소요량1DataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.table에너지소요량1 = CType(Me.Table,에너지소요량1DataTable) End Sub _ Public Property mon() As String Get Try Return CType(Me(Me.table에너지소요량1.monColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 'mon' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량1.monColumn) = value End Set End Property _ Public Property 난방등유() As String Get Try Return CType(Me(Me.table에너지소요량1.난방등유Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '난방등유' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량1.난방등유Column) = value End Set End Property _ Public Property 난방LNG() As String Get Try Return CType(Me(Me.table에너지소요량1.난방LNGColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '난방LNG' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량1.난방LNGColumn) = value End Set End Property _ Public Property 난방LPG() As String Get Try Return CType(Me(Me.table에너지소요량1.난방LPGColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '난방LPG' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량1.난방LPGColumn) = value End Set End Property _ Public Property 난방지역() As String Get Try Return CType(Me(Me.table에너지소요량1.난방지역Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '난방지역' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량1.난방지역Column) = value End Set End Property _ Public Property 난방전력() As String Get Try Return CType(Me(Me.table에너지소요량1.난방전력Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '난방전력' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량1.난방전력Column) = value End Set End Property _ Public Property 난방펠렛() As String Get If Me.Is난방펠렛Null Then Return "0" Else Return CType(Me(Me.table에너지소요량1.난방펠렛Column),String) End If End Get Set Me(Me.table에너지소요량1.난방펠렛Column) = value End Set End Property _ Public Property 냉방등유() As String Get Try Return CType(Me(Me.table에너지소요량1.냉방등유Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '냉방등유' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량1.냉방등유Column) = value End Set End Property _ Public Property 냉방LNG() As String Get Try Return CType(Me(Me.table에너지소요량1.냉방LNGColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '냉방LNG' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량1.냉방LNGColumn) = value End Set End Property _ Public Property 냉방LPG() As String Get Try Return CType(Me(Me.table에너지소요량1.냉방LPGColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '냉방LPG' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량1.냉방LPGColumn) = value End Set End Property _ Public Property 냉방지역() As String Get Try Return CType(Me(Me.table에너지소요량1.냉방지역Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '냉방지역' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량1.냉방지역Column) = value End Set End Property _ Public Property 냉방지역2() As Decimal Get Try Return CType(Me(Me.table에너지소요량1.냉방지역2Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '냉방지역2' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량1.냉방지역2Column) = value End Set End Property _ Public Property 냉방전력() As String Get Try Return CType(Me(Me.table에너지소요량1.냉방전력Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '냉방전력' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량1.냉방전력Column) = value End Set End Property _ Public Property 냉방펠렛() As String Get If Me.Is냉방펠렛Null Then Return "0" Else Return CType(Me(Me.table에너지소요량1.냉방펠렛Column),String) End If End Get Set Me(Me.table에너지소요량1.냉방펠렛Column) = value End Set End Property _ Public Property 급탕등유() As String Get Try Return CType(Me(Me.table에너지소요량1.급탕등유Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '급탕등유' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량1.급탕등유Column) = value End Set End Property _ Public Property 급탕LNG() As String Get Try Return CType(Me(Me.table에너지소요량1.급탕LNGColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '급탕LNG' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량1.급탕LNGColumn) = value End Set End Property _ Public Property 급탕LPG() As String Get Try Return CType(Me(Me.table에너지소요량1.급탕LPGColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '급탕LPG' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량1.급탕LPGColumn) = value End Set End Property _ Public Property 급탕지역() As String Get Try Return CType(Me(Me.table에너지소요량1.급탕지역Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '급탕지역' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량1.급탕지역Column) = value End Set End Property _ Public Property 급탕전력() As String Get Try Return CType(Me(Me.table에너지소요량1.급탕전력Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '급탕전력' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table에너지소요량1.급탕전력Column) = value End Set End Property _ Public Property 급탕펠렛() As String Get If Me.Is급탕펠렛Null Then Return "0" Else Return CType(Me(Me.table에너지소요량1.급탕펠렛Column),String) End If End Get Set Me(Me.table에너지소요량1.급탕펠렛Column) = value End Set End Property _ Public Function IsmonNull() As Boolean Return Me.IsNull(Me.table에너지소요량1.monColumn) End Function _ Public Sub SetmonNull() Me(Me.table에너지소요량1.monColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is난방등유Null() As Boolean Return Me.IsNull(Me.table에너지소요량1.난방등유Column) End Function _ Public Sub Set난방등유Null() Me(Me.table에너지소요량1.난방등유Column) = Global.System.Convert.DBNull End Sub _ Public Function Is난방LNGNull() As Boolean Return Me.IsNull(Me.table에너지소요량1.난방LNGColumn) End Function _ Public Sub Set난방LNGNull() Me(Me.table에너지소요량1.난방LNGColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is난방LPGNull() As Boolean Return Me.IsNull(Me.table에너지소요량1.난방LPGColumn) End Function _ Public Sub Set난방LPGNull() Me(Me.table에너지소요량1.난방LPGColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is난방지역Null() As Boolean Return Me.IsNull(Me.table에너지소요량1.난방지역Column) End Function _ Public Sub Set난방지역Null() Me(Me.table에너지소요량1.난방지역Column) = Global.System.Convert.DBNull End Sub _ Public Function Is난방전력Null() As Boolean Return Me.IsNull(Me.table에너지소요량1.난방전력Column) End Function _ Public Sub Set난방전력Null() Me(Me.table에너지소요량1.난방전력Column) = Global.System.Convert.DBNull End Sub _ Public Function Is난방펠렛Null() As Boolean Return Me.IsNull(Me.table에너지소요량1.난방펠렛Column) End Function _ Public Sub Set난방펠렛Null() Me(Me.table에너지소요량1.난방펠렛Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉방등유Null() As Boolean Return Me.IsNull(Me.table에너지소요량1.냉방등유Column) End Function _ Public Sub Set냉방등유Null() Me(Me.table에너지소요량1.냉방등유Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉방LNGNull() As Boolean Return Me.IsNull(Me.table에너지소요량1.냉방LNGColumn) End Function _ Public Sub Set냉방LNGNull() Me(Me.table에너지소요량1.냉방LNGColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is냉방LPGNull() As Boolean Return Me.IsNull(Me.table에너지소요량1.냉방LPGColumn) End Function _ Public Sub Set냉방LPGNull() Me(Me.table에너지소요량1.냉방LPGColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is냉방지역Null() As Boolean Return Me.IsNull(Me.table에너지소요량1.냉방지역Column) End Function _ Public Sub Set냉방지역Null() Me(Me.table에너지소요량1.냉방지역Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉방지역2Null() As Boolean Return Me.IsNull(Me.table에너지소요량1.냉방지역2Column) End Function _ Public Sub Set냉방지역2Null() Me(Me.table에너지소요량1.냉방지역2Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉방전력Null() As Boolean Return Me.IsNull(Me.table에너지소요량1.냉방전력Column) End Function _ Public Sub Set냉방전력Null() Me(Me.table에너지소요량1.냉방전력Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉방펠렛Null() As Boolean Return Me.IsNull(Me.table에너지소요량1.냉방펠렛Column) End Function _ Public Sub Set냉방펠렛Null() Me(Me.table에너지소요량1.냉방펠렛Column) = Global.System.Convert.DBNull End Sub _ Public Function Is급탕등유Null() As Boolean Return Me.IsNull(Me.table에너지소요량1.급탕등유Column) End Function _ Public Sub Set급탕등유Null() Me(Me.table에너지소요량1.급탕등유Column) = Global.System.Convert.DBNull End Sub _ Public Function Is급탕LNGNull() As Boolean Return Me.IsNull(Me.table에너지소요량1.급탕LNGColumn) End Function _ Public Sub Set급탕LNGNull() Me(Me.table에너지소요량1.급탕LNGColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is급탕LPGNull() As Boolean Return Me.IsNull(Me.table에너지소요량1.급탕LPGColumn) End Function _ Public Sub Set급탕LPGNull() Me(Me.table에너지소요량1.급탕LPGColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is급탕지역Null() As Boolean Return Me.IsNull(Me.table에너지소요량1.급탕지역Column) End Function _ Public Sub Set급탕지역Null() Me(Me.table에너지소요량1.급탕지역Column) = Global.System.Convert.DBNull End Sub _ Public Function Is급탕전력Null() As Boolean Return Me.IsNull(Me.table에너지소요량1.급탕전력Column) End Function _ Public Sub Set급탕전력Null() Me(Me.table에너지소요량1.급탕전력Column) = Global.System.Convert.DBNull End Sub _ Public Function Is급탕펠렛Null() As Boolean Return Me.IsNull(Me.table에너지소요량1.급탕펠렛Column) End Function _ Public Sub Set급탕펠렛Null() Me(Me.table에너지소요량1.급탕펠렛Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class 생산에너지Row Inherits Global.System.Data.DataRow Private table생산에너지 As 생산에너지DataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.table생산에너지 = CType(Me.Table,생산에너지DataTable) End Sub _ Public Property mon() As String Get Try Return CType(Me(Me.table생산에너지.monColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'생산에너지' 테이블의 'mon' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table생산에너지.monColumn) = value End Set End Property _ Public Property 전력태양광() As String Get If Me.Is전력태양광Null Then Return "0" Else Return CType(Me(Me.table생산에너지.전력태양광Column),String) End If End Get Set Me(Me.table생산에너지.전력태양광Column) = value End Set End Property _ Public Property 전력태양광offsite() As String Get If Me.Is전력태양광offsiteNull Then Return "0" Else Return CType(Me(Me.table생산에너지.전력태양광offsiteColumn),String) End If End Get Set Me(Me.table생산에너지.전력태양광offsiteColumn) = value End Set End Property _ Public Property 전력열병합() As String Get Try Return CType(Me(Me.table생산에너지.전력열병합Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'생산에너지' 테이블의 '전력열병합' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table생산에너지.전력열병합Column) = value End Set End Property _ Public Property 생산량태양열() As String Get Try Return CType(Me(Me.table생산에너지.생산량태양열Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'생산에너지' 테이블의 '생산량태양열' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table생산에너지.생산량태양열Column) = value End Set End Property _ Public Property 생산량지열() As String Get Try Return CType(Me(Me.table생산에너지.생산량지열Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'생산에너지' 테이블의 '생산량지열' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table생산에너지.생산량지열Column) = value End Set End Property _ Public Property 면적당생산량태양열() As Decimal Get Try Return CType(Me(Me.table생산에너지.면적당생산량태양열Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'생산에너지' 테이블의 '면적당생산량태양열' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table생산에너지.면적당생산량태양열Column) = value End Set End Property _ Public Property 면적당생산량지열() As Decimal Get Try Return CType(Me(Me.table생산에너지.면적당생산량지열Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'생산에너지' 테이블의 '면적당생산량지열' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.table생산에너지.면적당생산량지열Column) = value End Set End Property _ Public Property 신재생열병합전력생산량() As String Get If Me.Is신재생열병합전력생산량Null Then Return "0" Else Return CType(Me(Me.table생산에너지.신재생열병합전력생산량Column),String) End If End Get Set Me(Me.table생산에너지.신재생열병합전력생산량Column) = value End Set End Property _ Public Property 신재생면적당열생산량() As String Get If Me.Is신재생면적당열생산량Null Then Return "0" Else Return CType(Me(Me.table생산에너지.신재생면적당열생산량Column),String) End If End Get Set Me(Me.table생산에너지.신재생면적당열생산량Column) = value End Set End Property _ Public Property 전력풍력() As String Get If Me.Is전력풍력Null Then Return "0" Else Return CType(Me(Me.table생산에너지.전력풍력Column),String) End If End Get Set Me(Me.table생산에너지.전력풍력Column) = value End Set End Property _ Public Property 생산량수열() As String Get If Me.Is생산량수열Null Then Return "0" Else Return CType(Me(Me.table생산에너지.생산량수열Column),String) End If End Get Set Me(Me.table생산에너지.생산량수열Column) = value End Set End Property _ Public Property 면적당생산량수열() As String Get If Me.Is면적당생산량수열Null Then Return "0" Else Return CType(Me(Me.table생산에너지.면적당생산량수열Column),String) End If End Get Set Me(Me.table생산에너지.면적당생산량수열Column) = value End Set End Property _ Public Property 전력풍력offsite() As String Get If Me.Is전력풍력offsiteNull Then Return "0" Else Return CType(Me(Me.table생산에너지.전력풍력offsiteColumn),String) End If End Get Set Me(Me.table생산에너지.전력풍력offsiteColumn) = value End Set End Property _ Public Property 면적당생산량태양열_난방() As String Get If Me.Is면적당생산량태양열_난방Null Then Return "0" Else Return CType(Me(Me.table생산에너지.면적당생산량태양열_난방Column),String) End If End Get Set Me(Me.table생산에너지.면적당생산량태양열_난방Column) = value End Set End Property _ Public Property 면적당생산량태양열_냉방() As String Get If Me.Is면적당생산량태양열_냉방Null Then Return "0" Else Return CType(Me(Me.table생산에너지.면적당생산량태양열_냉방Column),String) End If End Get Set Me(Me.table생산에너지.면적당생산량태양열_냉방Column) = value End Set End Property _ Public Property 면적당생산량태양열_급탕() As String Get If Me.Is면적당생산량태양열_급탕Null Then Return "0" Else Return CType(Me(Me.table생산에너지.면적당생산량태양열_급탕Column),String) End If End Get Set Me(Me.table생산에너지.면적당생산량태양열_급탕Column) = value End Set End Property _ Public Property 면적당생산량지열_난방() As String Get If Me.Is면적당생산량지열_난방Null Then Return "0" Else Return CType(Me(Me.table생산에너지.면적당생산량지열_난방Column),String) End If End Get Set Me(Me.table생산에너지.면적당생산량지열_난방Column) = value End Set End Property _ Public Property 면적당생산량지열_냉방() As String Get If Me.Is면적당생산량지열_냉방Null Then Return "0" Else Return CType(Me(Me.table생산에너지.면적당생산량지열_냉방Column),String) End If End Get Set Me(Me.table생산에너지.면적당생산량지열_냉방Column) = value End Set End Property _ Public Property 면적당생산량지열_급탕() As String Get If Me.Is면적당생산량지열_급탕Null Then Return "0" Else Return CType(Me(Me.table생산에너지.면적당생산량지열_급탕Column),String) End If End Get Set Me(Me.table생산에너지.면적당생산량지열_급탕Column) = value End Set End Property _ Public Property 신재생면적당열생산량_난방() As String Get If Me.Is신재생면적당열생산량_난방Null Then Return "0" Else Return CType(Me(Me.table생산에너지.신재생면적당열생산량_난방Column),String) End If End Get Set Me(Me.table생산에너지.신재생면적당열생산량_난방Column) = value End Set End Property _ Public Property 신재생면적당열생산량_급탕() As String Get If Me.Is신재생면적당열생산량_급탕Null Then Return "0" Else Return CType(Me(Me.table생산에너지.신재생면적당열생산량_급탕Column),String) End If End Get Set Me(Me.table생산에너지.신재생면적당열생산량_급탕Column) = value End Set End Property _ Public Property 신재생면적당열생산량_냉방() As String Get If Me.Is신재생면적당열생산량_냉방Null Then Return "0" Else Return CType(Me(Me.table생산에너지.신재생면적당열생산량_냉방Column),String) End If End Get Set Me(Me.table생산에너지.신재생면적당열생산량_냉방Column) = value End Set End Property _ Public Property 면적당생산량수열_난방() As String Get If Me.Is면적당생산량수열_난방Null Then Return "0" Else Return CType(Me(Me.table생산에너지.면적당생산량수열_난방Column),String) End If End Get Set Me(Me.table생산에너지.면적당생산량수열_난방Column) = value End Set End Property _ Public Property 면적당생산량수열_냉방() As String Get If Me.Is면적당생산량수열_냉방Null Then Return "0" Else Return CType(Me(Me.table생산에너지.면적당생산량수열_냉방Column),String) End If End Get Set Me(Me.table생산에너지.면적당생산량수열_냉방Column) = value End Set End Property _ Public Property 면적당생산량수열_급탕() As String Get If Me.Is면적당생산량수열_급탕Null Then Return "0" Else Return CType(Me(Me.table생산에너지.면적당생산량수열_급탕Column),String) End If End Get Set Me(Me.table생산에너지.면적당생산량수열_급탕Column) = value End Set End Property _ Public Property 신재생열병합열생산량() As String Get If Me.Is신재생열병합열생산량Null Then Return "0" Else Return CType(Me(Me.table생산에너지.신재생열병합열생산량Column),String) End If End Get Set Me(Me.table생산에너지.신재생열병합열생산량Column) = value End Set End Property _ Public Property 연료전지전력생산량_offsite() As String Get If Me.Is연료전지전력생산량_offsiteNull Then Return "0" Else Return CType(Me(Me.table생산에너지.연료전지전력생산량_offsiteColumn),String) End If End Get Set Me(Me.table생산에너지.연료전지전력생산량_offsiteColumn) = value End Set End Property _ Public Function IsmonNull() As Boolean Return Me.IsNull(Me.table생산에너지.monColumn) End Function _ Public Sub SetmonNull() Me(Me.table생산에너지.monColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is전력태양광Null() As Boolean Return Me.IsNull(Me.table생산에너지.전력태양광Column) End Function _ Public Sub Set전력태양광Null() Me(Me.table생산에너지.전력태양광Column) = Global.System.Convert.DBNull End Sub _ Public Function Is전력태양광offsiteNull() As Boolean Return Me.IsNull(Me.table생산에너지.전력태양광offsiteColumn) End Function _ Public Sub Set전력태양광offsiteNull() Me(Me.table생산에너지.전력태양광offsiteColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is전력열병합Null() As Boolean Return Me.IsNull(Me.table생산에너지.전력열병합Column) End Function _ Public Sub Set전력열병합Null() Me(Me.table생산에너지.전력열병합Column) = Global.System.Convert.DBNull End Sub _ Public Function Is생산량태양열Null() As Boolean Return Me.IsNull(Me.table생산에너지.생산량태양열Column) End Function _ Public Sub Set생산량태양열Null() Me(Me.table생산에너지.생산량태양열Column) = Global.System.Convert.DBNull End Sub _ Public Function Is생산량지열Null() As Boolean Return Me.IsNull(Me.table생산에너지.생산량지열Column) End Function _ Public Sub Set생산량지열Null() Me(Me.table생산에너지.생산량지열Column) = Global.System.Convert.DBNull End Sub _ Public Function Is면적당생산량태양열Null() As Boolean Return Me.IsNull(Me.table생산에너지.면적당생산량태양열Column) End Function _ Public Sub Set면적당생산량태양열Null() Me(Me.table생산에너지.면적당생산량태양열Column) = Global.System.Convert.DBNull End Sub _ Public Function Is면적당생산량지열Null() As Boolean Return Me.IsNull(Me.table생산에너지.면적당생산량지열Column) End Function _ Public Sub Set면적당생산량지열Null() Me(Me.table생산에너지.면적당생산량지열Column) = Global.System.Convert.DBNull End Sub _ Public Function Is신재생열병합전력생산량Null() As Boolean Return Me.IsNull(Me.table생산에너지.신재생열병합전력생산량Column) End Function _ Public Sub Set신재생열병합전력생산량Null() Me(Me.table생산에너지.신재생열병합전력생산량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is신재생면적당열생산량Null() As Boolean Return Me.IsNull(Me.table생산에너지.신재생면적당열생산량Column) End Function _ Public Sub Set신재생면적당열생산량Null() Me(Me.table생산에너지.신재생면적당열생산량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is전력풍력Null() As Boolean Return Me.IsNull(Me.table생산에너지.전력풍력Column) End Function _ Public Sub Set전력풍력Null() Me(Me.table생산에너지.전력풍력Column) = Global.System.Convert.DBNull End Sub _ Public Function Is생산량수열Null() As Boolean Return Me.IsNull(Me.table생산에너지.생산량수열Column) End Function _ Public Sub Set생산량수열Null() Me(Me.table생산에너지.생산량수열Column) = Global.System.Convert.DBNull End Sub _ Public Function Is면적당생산량수열Null() As Boolean Return Me.IsNull(Me.table생산에너지.면적당생산량수열Column) End Function _ Public Sub Set면적당생산량수열Null() Me(Me.table생산에너지.면적당생산량수열Column) = Global.System.Convert.DBNull End Sub _ Public Function Is전력풍력offsiteNull() As Boolean Return Me.IsNull(Me.table생산에너지.전력풍력offsiteColumn) End Function _ Public Sub Set전력풍력offsiteNull() Me(Me.table생산에너지.전력풍력offsiteColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is면적당생산량태양열_난방Null() As Boolean Return Me.IsNull(Me.table생산에너지.면적당생산량태양열_난방Column) End Function _ Public Sub Set면적당생산량태양열_난방Null() Me(Me.table생산에너지.면적당생산량태양열_난방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is면적당생산량태양열_냉방Null() As Boolean Return Me.IsNull(Me.table생산에너지.면적당생산량태양열_냉방Column) End Function _ Public Sub Set면적당생산량태양열_냉방Null() Me(Me.table생산에너지.면적당생산량태양열_냉방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is면적당생산량태양열_급탕Null() As Boolean Return Me.IsNull(Me.table생산에너지.면적당생산량태양열_급탕Column) End Function _ Public Sub Set면적당생산량태양열_급탕Null() Me(Me.table생산에너지.면적당생산량태양열_급탕Column) = Global.System.Convert.DBNull End Sub _ Public Function Is면적당생산량지열_난방Null() As Boolean Return Me.IsNull(Me.table생산에너지.면적당생산량지열_난방Column) End Function _ Public Sub Set면적당생산량지열_난방Null() Me(Me.table생산에너지.면적당생산량지열_난방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is면적당생산량지열_냉방Null() As Boolean Return Me.IsNull(Me.table생산에너지.면적당생산량지열_냉방Column) End Function _ Public Sub Set면적당생산량지열_냉방Null() Me(Me.table생산에너지.면적당생산량지열_냉방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is면적당생산량지열_급탕Null() As Boolean Return Me.IsNull(Me.table생산에너지.면적당생산량지열_급탕Column) End Function _ Public Sub Set면적당생산량지열_급탕Null() Me(Me.table생산에너지.면적당생산량지열_급탕Column) = Global.System.Convert.DBNull End Sub _ Public Function Is신재생면적당열생산량_난방Null() As Boolean Return Me.IsNull(Me.table생산에너지.신재생면적당열생산량_난방Column) End Function _ Public Sub Set신재생면적당열생산량_난방Null() Me(Me.table생산에너지.신재생면적당열생산량_난방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is신재생면적당열생산량_급탕Null() As Boolean Return Me.IsNull(Me.table생산에너지.신재생면적당열생산량_급탕Column) End Function _ Public Sub Set신재생면적당열생산량_급탕Null() Me(Me.table생산에너지.신재생면적당열생산량_급탕Column) = Global.System.Convert.DBNull End Sub _ Public Function Is신재생면적당열생산량_냉방Null() As Boolean Return Me.IsNull(Me.table생산에너지.신재생면적당열생산량_냉방Column) End Function _ Public Sub Set신재생면적당열생산량_냉방Null() Me(Me.table생산에너지.신재생면적당열생산량_냉방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is면적당생산량수열_난방Null() As Boolean Return Me.IsNull(Me.table생산에너지.면적당생산량수열_난방Column) End Function _ Public Sub Set면적당생산량수열_난방Null() Me(Me.table생산에너지.면적당생산량수열_난방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is면적당생산량수열_냉방Null() As Boolean Return Me.IsNull(Me.table생산에너지.면적당생산량수열_냉방Column) End Function _ Public Sub Set면적당생산량수열_냉방Null() Me(Me.table생산에너지.면적당생산량수열_냉방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is면적당생산량수열_급탕Null() As Boolean Return Me.IsNull(Me.table생산에너지.면적당생산량수열_급탕Column) End Function _ Public Sub Set면적당생산량수열_급탕Null() Me(Me.table생산에너지.면적당생산량수열_급탕Column) = Global.System.Convert.DBNull End Sub _ Public Function Is신재생열병합열생산량Null() As Boolean Return Me.IsNull(Me.table생산에너지.신재생열병합열생산량Column) End Function _ Public Sub Set신재생열병합열생산량Null() Me(Me.table생산에너지.신재생열병합열생산량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is연료전지전력생산량_offsiteNull() As Boolean Return Me.IsNull(Me.table생산에너지.연료전지전력생산량_offsiteColumn) End Function _ Public Sub Set연료전지전력생산량_offsiteNull() Me(Me.table생산에너지.연료전지전력생산량_offsiteColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class Graph_Info_dataRow Inherits Global.System.Data.DataRow Private tableGraph_Info_data As Graph_Info_dataDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableGraph_Info_data = CType(Me.Table,Graph_Info_dataDataTable) End Sub _ Public Property 난방소요() As Decimal Get Try Return CType(Me(Me.tableGraph_Info_data.난방소요Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '난방소요' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableGraph_Info_data.난방소요Column) = value End Set End Property _ Public Property 급탕소요() As Decimal Get Try Return CType(Me(Me.tableGraph_Info_data.급탕소요Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '급탕소요' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableGraph_Info_data.급탕소요Column) = value End Set End Property _ Public Property 냉방소요() As Decimal Get Try Return CType(Me(Me.tableGraph_Info_data.냉방소요Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '냉방소요' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableGraph_Info_data.냉방소요Column) = value End Set End Property _ Public Property 조명소요() As Decimal Get Try Return CType(Me(Me.tableGraph_Info_data.조명소요Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '조명소요' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableGraph_Info_data.조명소요Column) = value End Set End Property _ Public Property 환기소요() As Decimal Get Try Return CType(Me(Me.tableGraph_Info_data.환기소요Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '환기소요' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableGraph_Info_data.환기소요Column) = value End Set End Property _ Public Property 난방소요1() As Decimal Get Try Return CType(Me(Me.tableGraph_Info_data.난방소요1Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '난방소요1' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableGraph_Info_data.난방소요1Column) = value End Set End Property _ Public Property 급탕소요1() As Decimal Get Try Return CType(Me(Me.tableGraph_Info_data.급탕소요1Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '급탕소요1' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableGraph_Info_data.급탕소요1Column) = value End Set End Property _ Public Property 냉방소요1() As Decimal Get Try Return CType(Me(Me.tableGraph_Info_data.냉방소요1Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '냉방소요1' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableGraph_Info_data.냉방소요1Column) = value End Set End Property _ Public Property 조명소요1() As Decimal Get Try Return CType(Me(Me.tableGraph_Info_data.조명소요1Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '조명소요1' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableGraph_Info_data.조명소요1Column) = value End Set End Property _ Public Property 환기소요1() As Decimal Get Try Return CType(Me(Me.tableGraph_Info_data.환기소요1Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '환기소요1' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableGraph_Info_data.환기소요1Column) = value End Set End Property _ Public Property 난방co2() As Decimal Get Try Return CType(Me(Me.tableGraph_Info_data.난방co2Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '난방co2' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableGraph_Info_data.난방co2Column) = value End Set End Property _ Public Property 급탕co2() As Decimal Get Try Return CType(Me(Me.tableGraph_Info_data.급탕co2Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '급탕co2' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableGraph_Info_data.급탕co2Column) = value End Set End Property _ Public Property 냉방co2() As Decimal Get Try Return CType(Me(Me.tableGraph_Info_data.냉방co2Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '냉방co2' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableGraph_Info_data.냉방co2Column) = value End Set End Property _ Public Property 조명co2() As Decimal Get Try Return CType(Me(Me.tableGraph_Info_data.조명co2Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '조명co2' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableGraph_Info_data.조명co2Column) = value End Set End Property _ Public Property 환기co2() As Decimal Get Try Return CType(Me(Me.tableGraph_Info_data.환기co2Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '환기co2' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableGraph_Info_data.환기co2Column) = value End Set End Property _ Public Function Is난방소요Null() As Boolean Return Me.IsNull(Me.tableGraph_Info_data.난방소요Column) End Function _ Public Sub Set난방소요Null() Me(Me.tableGraph_Info_data.난방소요Column) = Global.System.Convert.DBNull End Sub _ Public Function Is급탕소요Null() As Boolean Return Me.IsNull(Me.tableGraph_Info_data.급탕소요Column) End Function _ Public Sub Set급탕소요Null() Me(Me.tableGraph_Info_data.급탕소요Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉방소요Null() As Boolean Return Me.IsNull(Me.tableGraph_Info_data.냉방소요Column) End Function _ Public Sub Set냉방소요Null() Me(Me.tableGraph_Info_data.냉방소요Column) = Global.System.Convert.DBNull End Sub _ Public Function Is조명소요Null() As Boolean Return Me.IsNull(Me.tableGraph_Info_data.조명소요Column) End Function _ Public Sub Set조명소요Null() Me(Me.tableGraph_Info_data.조명소요Column) = Global.System.Convert.DBNull End Sub _ Public Function Is환기소요Null() As Boolean Return Me.IsNull(Me.tableGraph_Info_data.환기소요Column) End Function _ Public Sub Set환기소요Null() Me(Me.tableGraph_Info_data.환기소요Column) = Global.System.Convert.DBNull End Sub _ Public Function Is난방소요1Null() As Boolean Return Me.IsNull(Me.tableGraph_Info_data.난방소요1Column) End Function _ Public Sub Set난방소요1Null() Me(Me.tableGraph_Info_data.난방소요1Column) = Global.System.Convert.DBNull End Sub _ Public Function Is급탕소요1Null() As Boolean Return Me.IsNull(Me.tableGraph_Info_data.급탕소요1Column) End Function _ Public Sub Set급탕소요1Null() Me(Me.tableGraph_Info_data.급탕소요1Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉방소요1Null() As Boolean Return Me.IsNull(Me.tableGraph_Info_data.냉방소요1Column) End Function _ Public Sub Set냉방소요1Null() Me(Me.tableGraph_Info_data.냉방소요1Column) = Global.System.Convert.DBNull End Sub _ Public Function Is조명소요1Null() As Boolean Return Me.IsNull(Me.tableGraph_Info_data.조명소요1Column) End Function _ Public Sub Set조명소요1Null() Me(Me.tableGraph_Info_data.조명소요1Column) = Global.System.Convert.DBNull End Sub _ Public Function Is환기소요1Null() As Boolean Return Me.IsNull(Me.tableGraph_Info_data.환기소요1Column) End Function _ Public Sub Set환기소요1Null() Me(Me.tableGraph_Info_data.환기소요1Column) = Global.System.Convert.DBNull End Sub _ Public Function Is난방co2Null() As Boolean Return Me.IsNull(Me.tableGraph_Info_data.난방co2Column) End Function _ Public Sub Set난방co2Null() Me(Me.tableGraph_Info_data.난방co2Column) = Global.System.Convert.DBNull End Sub _ Public Function Is급탕co2Null() As Boolean Return Me.IsNull(Me.tableGraph_Info_data.급탕co2Column) End Function _ Public Sub Set급탕co2Null() Me(Me.tableGraph_Info_data.급탕co2Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉방co2Null() As Boolean Return Me.IsNull(Me.tableGraph_Info_data.냉방co2Column) End Function _ Public Sub Set냉방co2Null() Me(Me.tableGraph_Info_data.냉방co2Column) = Global.System.Convert.DBNull End Sub _ Public Function Is조명co2Null() As Boolean Return Me.IsNull(Me.tableGraph_Info_data.조명co2Column) End Function _ Public Sub Set조명co2Null() Me(Me.tableGraph_Info_data.조명co2Column) = Global.System.Convert.DBNull End Sub _ Public Function Is환기co2Null() As Boolean Return Me.IsNull(Me.tableGraph_Info_data.환기co2Column) End Function _ Public Sub Set환기co2Null() Me(Me.tableGraph_Info_data.환기co2Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class Pyonga_REQRow Inherits Global.System.Data.DataRow Private tablePyonga_REQ As Pyonga_REQDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablePyonga_REQ = CType(Me.Table,Pyonga_REQDataTable) End Sub _ Public Property 종류() As String Get Try Return CType(Me(Me.tablePyonga_REQ.종류Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Pyonga_REQ' 테이블의 '종류' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tablePyonga_REQ.종류Column) = value End Set End Property _ Public Property 값() As Decimal Get Try Return CType(Me(Me.tablePyonga_REQ.값Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Pyonga_REQ' 테이블의 '값' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tablePyonga_REQ.값Column) = value End Set End Property _ Public Function Is종류Null() As Boolean Return Me.IsNull(Me.tablePyonga_REQ.종류Column) End Function _ Public Sub Set종류Null() Me(Me.tablePyonga_REQ.종류Column) = Global.System.Convert.DBNull End Sub _ Public Function Is값Null() As Boolean Return Me.IsNull(Me.tablePyonga_REQ.값Column) End Function _ Public Sub Set값Null() Me(Me.tablePyonga_REQ.값Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class Pyonga_USERow Inherits Global.System.Data.DataRow Private tablePyonga_USE As Pyonga_USEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablePyonga_USE = CType(Me.Table,Pyonga_USEDataTable) End Sub _ Public Property 종류() As String Get Try Return CType(Me(Me.tablePyonga_USE.종류Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Pyonga_USE' 테이블의 '종류' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tablePyonga_USE.종류Column) = value End Set End Property _ Public Property 값() As Decimal Get Try Return CType(Me(Me.tablePyonga_USE.값Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Pyonga_USE' 테이블의 '값' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tablePyonga_USE.값Column) = value End Set End Property _ Public Function Is종류Null() As Boolean Return Me.IsNull(Me.tablePyonga_USE.종류Column) End Function _ Public Sub Set종류Null() Me(Me.tablePyonga_USE.종류Column) = Global.System.Convert.DBNull End Sub _ Public Function Is값Null() As Boolean Return Me.IsNull(Me.tablePyonga_USE.값Column) End Function _ Public Sub Set값Null() Me(Me.tablePyonga_USE.값Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class Pyonga_1USERow Inherits Global.System.Data.DataRow Private tablePyonga_1USE As Pyonga_1USEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablePyonga_1USE = CType(Me.Table,Pyonga_1USEDataTable) End Sub _ Public Property 종류() As String Get Try Return CType(Me(Me.tablePyonga_1USE.종류Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Pyonga_1USE' 테이블의 '종류' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tablePyonga_1USE.종류Column) = value End Set End Property _ Public Property 값() As Decimal Get Try Return CType(Me(Me.tablePyonga_1USE.값Column),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Pyonga_1USE' 테이블의 '값' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tablePyonga_1USE.값Column) = value End Set End Property _ Public Function Is종류Null() As Boolean Return Me.IsNull(Me.tablePyonga_1USE.종류Column) End Function _ Public Sub Set종류Null() Me(Me.tablePyonga_1USE.종류Column) = Global.System.Convert.DBNull End Sub _ Public Function Is값Null() As Boolean Return Me.IsNull(Me.tablePyonga_1USE.값Column) End Function _ Public Sub Set값Null() Me(Me.tablePyonga_1USE.값Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class Pyonga_YKRow Inherits Global.System.Data.DataRow Private tablePyonga_YK As Pyonga_YKDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablePyonga_YK = CType(Me.Table,Pyonga_YKDataTable) End Sub _ Public Property 벽체종류() As String Get If Me.Is벽체종류Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.벽체종류Column),String) End If End Get Set Me(Me.tablePyonga_YK.벽체종류Column) = value End Set End Property _ Public Property 지붕종류() As String Get If Me.Is지붕종류Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.지붕종류Column),String) End If End Get Set Me(Me.tablePyonga_YK.지붕종류Column) = value End Set End Property _ Public Property 바닥종류() As String Get If Me.Is바닥종류Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.바닥종류Column),String) End If End Get Set Me(Me.tablePyonga_YK.바닥종류Column) = value End Set End Property _ Public Property 벽체값() As Decimal Get If Me.Is벽체값Null Then Return 0D Else Return CType(Me(Me.tablePyonga_YK.벽체값Column),Decimal) End If End Get Set Me(Me.tablePyonga_YK.벽체값Column) = value End Set End Property _ Public Property 지붕값() As Decimal Get If Me.Is지붕값Null Then Return 0D Else Return CType(Me(Me.tablePyonga_YK.지붕값Column),Decimal) End If End Get Set Me(Me.tablePyonga_YK.지붕값Column) = value End Set End Property _ Public Property 바닥값() As Decimal Get If Me.Is바닥값Null Then Return 0D Else Return CType(Me(Me.tablePyonga_YK.바닥값Column),Decimal) End If End Get Set Me(Me.tablePyonga_YK.바닥값Column) = value End Set End Property _ Public Property 창호종류() As String Get If Me.Is창호종류Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.창호종류Column),String) End If End Get Set Me(Me.tablePyonga_YK.창호종류Column) = value End Set End Property _ Public Property 창호값() As Decimal Get If Me.Is창호값Null Then Return 0D Else Return CType(Me(Me.tablePyonga_YK.창호값Column),Decimal) End If End Get Set Me(Me.tablePyonga_YK.창호값Column) = value End Set End Property _ Public Property 주거실조명전력() As String Get If Me.Is주거실조명전력Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.주거실조명전력Column),String) End If End Get Set Me(Me.tablePyonga_YK.주거실조명전력Column) = value End Set End Property _ Public Property 주조명광원() As String Get If Me.Is주조명광원Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.주조명광원Column),String) End If End Get Set Me(Me.tablePyonga_YK.주조명광원Column) = value End Set End Property _ Public Property 지열히트펌프용량() As String Get If Me.Is지열히트펌프용량Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.지열히트펌프용량Column),String) End If End Get Set Me(Me.tablePyonga_YK.지열히트펌프용량Column) = value End Set End Property _ Public Property 지열난방COP() As String Get If Me.Is지열난방COPNull Then Return "" Else Return CType(Me(Me.tablePyonga_YK.지열난방COPColumn),String) End If End Get Set Me(Me.tablePyonga_YK.지열난방COPColumn) = value End Set End Property _ Public Property 지열냉방COP() As String Get If Me.Is지열냉방COPNull Then Return "" Else Return CType(Me(Me.tablePyonga_YK.지열냉방COPColumn),String) End If End Get Set Me(Me.tablePyonga_YK.지열냉방COPColumn) = value End Set End Property _ Public Property 지열비고() As String Get If Me.Is지열비고Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.지열비고Column),String) End If End Get Set Me(Me.tablePyonga_YK.지열비고Column) = value End Set End Property _ Public Property 온열원설비방식() As String Get If Me.Is온열원설비방식Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.온열원설비방식Column),String) End If End Get Set Me(Me.tablePyonga_YK.온열원설비방식Column) = value End Set End Property _ Public Property 급탕설비방식() As String Get If Me.Is급탕설비방식Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.급탕설비방식Column),String) End If End Get Set Me(Me.tablePyonga_YK.급탕설비방식Column) = value End Set End Property _ Public Property 급탕설비연료() As String Get If Me.Is급탕설비연료Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.급탕설비연료Column),String) End If End Get Set Me(Me.tablePyonga_YK.급탕설비연료Column) = value End Set End Property _ Public Property 냉열원설비방식() As String Get If Me.Is냉열원설비방식Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.냉열원설비방식Column),String) End If End Get Set Me(Me.tablePyonga_YK.냉열원설비방식Column) = value End Set End Property _ Public Property 냉열원설비연료() As String Get If Me.Is냉열원설비연료Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.냉열원설비연료Column),String) End If End Get Set Me(Me.tablePyonga_YK.냉열원설비연료Column) = value End Set End Property _ Public Property 온열원설비연료() As String Get If Me.Is온열원설비연료Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.온열원설비연료Column),String) End If End Get Set Me(Me.tablePyonga_YK.온열원설비연료Column) = value End Set End Property _ Public Property 온열원용량() As String Get If Me.Is온열원용량Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.온열원용량Column),String) End If End Get Set Me(Me.tablePyonga_YK.온열원용량Column) = value End Set End Property _ Public Property 온열원효율() As String Get If Me.Is온열원효율Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.온열원효율Column),String) End If End Get Set Me(Me.tablePyonga_YK.온열원효율Column) = value End Set End Property _ Public Property 냉열원용량() As String Get If Me.Is냉열원용량Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.냉열원용량Column),String) End If End Get Set Me(Me.tablePyonga_YK.냉열원용량Column) = value End Set End Property _ Public Property 냉열원효율() As String Get If Me.Is냉열원효율Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.냉열원효율Column),String) End If End Get Set Me(Me.tablePyonga_YK.냉열원효율Column) = value End Set End Property _ Public Property 급탕효율() As String Get If Me.Is급탕효율Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.급탕효율Column),String) End If End Get Set Me(Me.tablePyonga_YK.급탕효율Column) = value End Set End Property _ Public Property 급탕용량() As String Get If Me.Is급탕용량Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.급탕용량Column),String) End If End Get Set Me(Me.tablePyonga_YK.급탕용량Column) = value End Set End Property _ Public Property 태양열집열판면적() As String Get If Me.Is태양열집열판면적Null Then Return "0" Else Return CType(Me(Me.tablePyonga_YK.태양열집열판면적Column),String) End If End Get Set Me(Me.tablePyonga_YK.태양열집열판면적Column) = value End Set End Property _ Public Property 태양열집열기유형() As String Get If Me.Is태양열집열기유형Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.태양열집열기유형Column),String) End If End Get Set Me(Me.tablePyonga_YK.태양열집열기유형Column) = value End Set End Property _ Public Property 태양열집열판방위() As String Get If Me.Is태양열집열판방위Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.태양열집열판방위Column),String) End If End Get Set Me(Me.tablePyonga_YK.태양열집열판방위Column) = value End Set End Property _ Public Property 태양광모듈면적() As String Get If Me.Is태양광모듈면적Null Then Return "0" Else Return CType(Me(Me.tablePyonga_YK.태양광모듈면적Column),String) End If End Get Set Me(Me.tablePyonga_YK.태양광모듈면적Column) = value End Set End Property _ Public Property 태양광모듈종류() As String Get If Me.Is태양광모듈종류Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.태양광모듈종류Column),String) End If End Get Set Me(Me.tablePyonga_YK.태양광모듈종류Column) = value End Set End Property _ Public Property 태양광모듈방위() As String Get If Me.Is태양광모듈방위Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.태양광모듈방위Column),String) End If End Get Set Me(Me.tablePyonga_YK.태양광모듈방위Column) = value End Set End Property _ Public Property 태양광모듈기울기() As String Get If Me.Is태양광모듈기울기Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.태양광모듈기울기Column),String) End If End Get Set Me(Me.tablePyonga_YK.태양광모듈기울기Column) = value End Set End Property _ Public Property 태양광모듈적용타입() As String Get If Me.Is태양광모듈적용타입Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.태양광모듈적용타입Column),String) End If End Get Set Me(Me.tablePyonga_YK.태양광모듈적용타입Column) = value End Set End Property _ Public Property 열병합열생산능력() As String Get If Me.Is열병합열생산능력Null Then Return "0" Else Return CType(Me(Me.tablePyonga_YK.열병합열생산능력Column),String) End If End Get Set Me(Me.tablePyonga_YK.열병합열생산능력Column) = value End Set End Property _ Public Property 열병합열생산효율() As String Get If Me.Is열병합열생산효율Null Then Return "0" Else Return CType(Me(Me.tablePyonga_YK.열병합열생산효율Column),String) End If End Get Set Me(Me.tablePyonga_YK.열병합열생산효율Column) = value End Set End Property _ Public Property 열병합발전효율() As String Get If Me.Is열병합발전효율Null Then Return "0" Else Return CType(Me(Me.tablePyonga_YK.열병합발전효율Column),String) End If End Get Set Me(Me.tablePyonga_YK.열병합발전효율Column) = value End Set End Property _ Public Property 지열히트펌프용량냉방() As String Get Try Return CType(Me(Me.tablePyonga_YK.지열히트펌프용량냉방Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Pyonga_YK' 테이블의 '지열히트펌프용량냉방' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tablePyonga_YK.지열히트펌프용량냉방Column) = value End Set End Property _ Public Property 열병합가동연료() As String Get If Me.Is열병합가동연료Null Then Return "" Else Return CType(Me(Me.tablePyonga_YK.열병합가동연료Column),String) End If End Get Set Me(Me.tablePyonga_YK.열병합가동연료Column) = value End Set End Property _ Public Function Is벽체종류Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.벽체종류Column) End Function _ Public Sub Set벽체종류Null() Me(Me.tablePyonga_YK.벽체종류Column) = Global.System.Convert.DBNull End Sub _ Public Function Is지붕종류Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.지붕종류Column) End Function _ Public Sub Set지붕종류Null() Me(Me.tablePyonga_YK.지붕종류Column) = Global.System.Convert.DBNull End Sub _ Public Function Is바닥종류Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.바닥종류Column) End Function _ Public Sub Set바닥종류Null() Me(Me.tablePyonga_YK.바닥종류Column) = Global.System.Convert.DBNull End Sub _ Public Function Is벽체값Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.벽체값Column) End Function _ Public Sub Set벽체값Null() Me(Me.tablePyonga_YK.벽체값Column) = Global.System.Convert.DBNull End Sub _ Public Function Is지붕값Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.지붕값Column) End Function _ Public Sub Set지붕값Null() Me(Me.tablePyonga_YK.지붕값Column) = Global.System.Convert.DBNull End Sub _ Public Function Is바닥값Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.바닥값Column) End Function _ Public Sub Set바닥값Null() Me(Me.tablePyonga_YK.바닥값Column) = Global.System.Convert.DBNull End Sub _ Public Function Is창호종류Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.창호종류Column) End Function _ Public Sub Set창호종류Null() Me(Me.tablePyonga_YK.창호종류Column) = Global.System.Convert.DBNull End Sub _ Public Function Is창호값Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.창호값Column) End Function _ Public Sub Set창호값Null() Me(Me.tablePyonga_YK.창호값Column) = Global.System.Convert.DBNull End Sub _ Public Function Is주거실조명전력Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.주거실조명전력Column) End Function _ Public Sub Set주거실조명전력Null() Me(Me.tablePyonga_YK.주거실조명전력Column) = Global.System.Convert.DBNull End Sub _ Public Function Is주조명광원Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.주조명광원Column) End Function _ Public Sub Set주조명광원Null() Me(Me.tablePyonga_YK.주조명광원Column) = Global.System.Convert.DBNull End Sub _ Public Function Is지열히트펌프용량Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.지열히트펌프용량Column) End Function _ Public Sub Set지열히트펌프용량Null() Me(Me.tablePyonga_YK.지열히트펌프용량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is지열난방COPNull() As Boolean Return Me.IsNull(Me.tablePyonga_YK.지열난방COPColumn) End Function _ Public Sub Set지열난방COPNull() Me(Me.tablePyonga_YK.지열난방COPColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is지열냉방COPNull() As Boolean Return Me.IsNull(Me.tablePyonga_YK.지열냉방COPColumn) End Function _ Public Sub Set지열냉방COPNull() Me(Me.tablePyonga_YK.지열냉방COPColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is지열비고Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.지열비고Column) End Function _ Public Sub Set지열비고Null() Me(Me.tablePyonga_YK.지열비고Column) = Global.System.Convert.DBNull End Sub _ Public Function Is온열원설비방식Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.온열원설비방식Column) End Function _ Public Sub Set온열원설비방식Null() Me(Me.tablePyonga_YK.온열원설비방식Column) = Global.System.Convert.DBNull End Sub _ Public Function Is급탕설비방식Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.급탕설비방식Column) End Function _ Public Sub Set급탕설비방식Null() Me(Me.tablePyonga_YK.급탕설비방식Column) = Global.System.Convert.DBNull End Sub _ Public Function Is급탕설비연료Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.급탕설비연료Column) End Function _ Public Sub Set급탕설비연료Null() Me(Me.tablePyonga_YK.급탕설비연료Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉열원설비방식Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.냉열원설비방식Column) End Function _ Public Sub Set냉열원설비방식Null() Me(Me.tablePyonga_YK.냉열원설비방식Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉열원설비연료Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.냉열원설비연료Column) End Function _ Public Sub Set냉열원설비연료Null() Me(Me.tablePyonga_YK.냉열원설비연료Column) = Global.System.Convert.DBNull End Sub _ Public Function Is온열원설비연료Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.온열원설비연료Column) End Function _ Public Sub Set온열원설비연료Null() Me(Me.tablePyonga_YK.온열원설비연료Column) = Global.System.Convert.DBNull End Sub _ Public Function Is온열원용량Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.온열원용량Column) End Function _ Public Sub Set온열원용량Null() Me(Me.tablePyonga_YK.온열원용량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is온열원효율Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.온열원효율Column) End Function _ Public Sub Set온열원효율Null() Me(Me.tablePyonga_YK.온열원효율Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉열원용량Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.냉열원용량Column) End Function _ Public Sub Set냉열원용량Null() Me(Me.tablePyonga_YK.냉열원용량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉열원효율Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.냉열원효율Column) End Function _ Public Sub Set냉열원효율Null() Me(Me.tablePyonga_YK.냉열원효율Column) = Global.System.Convert.DBNull End Sub _ Public Function Is급탕효율Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.급탕효율Column) End Function _ Public Sub Set급탕효율Null() Me(Me.tablePyonga_YK.급탕효율Column) = Global.System.Convert.DBNull End Sub _ Public Function Is급탕용량Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.급탕용량Column) End Function _ Public Sub Set급탕용량Null() Me(Me.tablePyonga_YK.급탕용량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is태양열집열판면적Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.태양열집열판면적Column) End Function _ Public Sub Set태양열집열판면적Null() Me(Me.tablePyonga_YK.태양열집열판면적Column) = Global.System.Convert.DBNull End Sub _ Public Function Is태양열집열기유형Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.태양열집열기유형Column) End Function _ Public Sub Set태양열집열기유형Null() Me(Me.tablePyonga_YK.태양열집열기유형Column) = Global.System.Convert.DBNull End Sub _ Public Function Is태양열집열판방위Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.태양열집열판방위Column) End Function _ Public Sub Set태양열집열판방위Null() Me(Me.tablePyonga_YK.태양열집열판방위Column) = Global.System.Convert.DBNull End Sub _ Public Function Is태양광모듈면적Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.태양광모듈면적Column) End Function _ Public Sub Set태양광모듈면적Null() Me(Me.tablePyonga_YK.태양광모듈면적Column) = Global.System.Convert.DBNull End Sub _ Public Function Is태양광모듈종류Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.태양광모듈종류Column) End Function _ Public Sub Set태양광모듈종류Null() Me(Me.tablePyonga_YK.태양광모듈종류Column) = Global.System.Convert.DBNull End Sub _ Public Function Is태양광모듈방위Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.태양광모듈방위Column) End Function _ Public Sub Set태양광모듈방위Null() Me(Me.tablePyonga_YK.태양광모듈방위Column) = Global.System.Convert.DBNull End Sub _ Public Function Is태양광모듈기울기Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.태양광모듈기울기Column) End Function _ Public Sub Set태양광모듈기울기Null() Me(Me.tablePyonga_YK.태양광모듈기울기Column) = Global.System.Convert.DBNull End Sub _ Public Function Is태양광모듈적용타입Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.태양광모듈적용타입Column) End Function _ Public Sub Set태양광모듈적용타입Null() Me(Me.tablePyonga_YK.태양광모듈적용타입Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열병합열생산능력Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.열병합열생산능력Column) End Function _ Public Sub Set열병합열생산능력Null() Me(Me.tablePyonga_YK.열병합열생산능력Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열병합열생산효율Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.열병합열생산효율Column) End Function _ Public Sub Set열병합열생산효율Null() Me(Me.tablePyonga_YK.열병합열생산효율Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열병합발전효율Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.열병합발전효율Column) End Function _ Public Sub Set열병합발전효율Null() Me(Me.tablePyonga_YK.열병합발전효율Column) = Global.System.Convert.DBNull End Sub _ Public Function Is지열히트펌프용량냉방Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.지열히트펌프용량냉방Column) End Function _ Public Sub Set지열히트펌프용량냉방Null() Me(Me.tablePyonga_YK.지열히트펌프용량냉방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열병합가동연료Null() As Boolean Return Me.IsNull(Me.tablePyonga_YK.열병합가동연료Column) End Function _ Public Sub Set열병합가동연료Null() Me(Me.tablePyonga_YK.열병합가동연료Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class 월별1차에너지사용량Row Inherits Global.System.Data.DataRow Private table월별1차에너지사용량 As 월별1차에너지사용량DataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.table월별1차에너지사용량 = CType(Me.Table,월별1차에너지사용량DataTable) End Sub _ Public Property 년() As String Get Return CType(Me(Me.table월별1차에너지사용량.년Column),String) End Get Set Me(Me.table월별1차에너지사용량.년Column) = value End Set End Property _ Public Property 월() As String Get Return CType(Me(Me.table월별1차에너지사용량.월Column),String) End Get Set Me(Me.table월별1차에너지사용량.월Column) = value End Set End Property _ Public Property 도시가스() As String Get If Me.Is도시가스Null Then Return "" Else Return CType(Me(Me.table월별1차에너지사용량.도시가스Column),String) End If End Get Set Me(Me.table월별1차에너지사용량.도시가스Column) = value End Set End Property _ Public Property 전력() As String Get If Me.Is전력Null Then Return "" Else Return CType(Me(Me.table월별1차에너지사용량.전력Column),String) End If End Get Set Me(Me.table월별1차에너지사용량.전력Column) = value End Set End Property _ Public Property 지역난방() As String Get If Me.Is지역난방Null Then Return "" Else Return CType(Me(Me.table월별1차에너지사용량.지역난방Column),String) End If End Get Set Me(Me.table월별1차에너지사용량.지역난방Column) = value End Set End Property _ Public Property code() As String Get Return CType(Me(Me.table월별1차에너지사용량.codeColumn),String) End Get Set Me(Me.table월별1차에너지사용량.codeColumn) = value End Set End Property _ Public Function Is도시가스Null() As Boolean Return Me.IsNull(Me.table월별1차에너지사용량.도시가스Column) End Function _ Public Sub Set도시가스Null() Me(Me.table월별1차에너지사용량.도시가스Column) = Global.System.Convert.DBNull End Sub _ Public Function Is전력Null() As Boolean Return Me.IsNull(Me.table월별1차에너지사용량.전력Column) End Function _ Public Sub Set전력Null() Me(Me.table월별1차에너지사용량.전력Column) = Global.System.Convert.DBNull End Sub _ Public Function Is지역난방Null() As Boolean Return Me.IsNull(Me.table월별1차에너지사용량.지역난방Column) End Function _ Public Sub Set지역난방Null() Me(Me.table월별1차에너지사용량.지역난방Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class 설계계산결과Row Inherits Global.System.Data.DataRow Private table설계계산결과 As 설계계산결과DataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.table설계계산결과 = CType(Me.Table,설계계산결과DataTable) End Sub _ Public Property 월() As String Get Return CType(Me(Me.table설계계산결과.월Column),String) End Get Set Me(Me.table설계계산결과.월Column) = value End Set End Property _ Public Property 급탕() As String Get If Me.Is급탕Null Then Return "0" Else Return CType(Me(Me.table설계계산결과.급탕Column),String) End If End Get Set Me(Me.table설계계산결과.급탕Column) = value End Set End Property _ Public Property 냉방() As String Get If Me.Is냉방Null Then Return "0" Else Return CType(Me(Me.table설계계산결과.냉방Column),String) End If End Get Set Me(Me.table설계계산결과.냉방Column) = value End Set End Property _ Public Property 난방() As String Get If Me.Is난방Null Then Return "0" Else Return CType(Me(Me.table설계계산결과.난방Column),String) End If End Get Set Me(Me.table설계계산결과.난방Column) = value End Set End Property _ Public Property 조명() As String Get If Me.Is조명Null Then Return "0" Else Return CType(Me(Me.table설계계산결과.조명Column),String) End If End Get Set Me(Me.table설계계산결과.조명Column) = value End Set End Property _ Public Property 환기() As String Get If Me.Is환기Null Then Return "0" Else Return CType(Me(Me.table설계계산결과.환기Column),String) End If End Get Set Me(Me.table설계계산결과.환기Column) = value End Set End Property _ Public Property 급탕전() As String Get If Me.Is급탕전Null Then Return "0" Else Return CType(Me(Me.table설계계산결과.급탕전Column),String) End If End Get Set Me(Me.table설계계산결과.급탕전Column) = value End Set End Property _ Public Property 냉방전() As String Get If Me.Is냉방전Null Then Return "0" Else Return CType(Me(Me.table설계계산결과.냉방전Column),String) End If End Get Set Me(Me.table설계계산결과.냉방전Column) = value End Set End Property _ Public Property 난방전() As String Get If Me.Is난방전Null Then Return "0" Else Return CType(Me(Me.table설계계산결과.난방전Column),String) End If End Get Set Me(Me.table설계계산결과.난방전Column) = value End Set End Property _ Public Property 조명전() As String Get If Me.Is조명전Null Then Return "0" Else Return CType(Me(Me.table설계계산결과.조명전Column),String) End If End Get Set Me(Me.table설계계산결과.조명전Column) = value End Set End Property _ Public Property 환기전() As String Get If Me.Is환기전Null Then Return "0" Else Return CType(Me(Me.table설계계산결과.환기전Column),String) End If End Get Set Me(Me.table설계계산결과.환기전Column) = value End Set End Property _ Public Function Is급탕Null() As Boolean Return Me.IsNull(Me.table설계계산결과.급탕Column) End Function _ Public Sub Set급탕Null() Me(Me.table설계계산결과.급탕Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉방Null() As Boolean Return Me.IsNull(Me.table설계계산결과.냉방Column) End Function _ Public Sub Set냉방Null() Me(Me.table설계계산결과.냉방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is난방Null() As Boolean Return Me.IsNull(Me.table설계계산결과.난방Column) End Function _ Public Sub Set난방Null() Me(Me.table설계계산결과.난방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is조명Null() As Boolean Return Me.IsNull(Me.table설계계산결과.조명Column) End Function _ Public Sub Set조명Null() Me(Me.table설계계산결과.조명Column) = Global.System.Convert.DBNull End Sub _ Public Function Is환기Null() As Boolean Return Me.IsNull(Me.table설계계산결과.환기Column) End Function _ Public Sub Set환기Null() Me(Me.table설계계산결과.환기Column) = Global.System.Convert.DBNull End Sub _ Public Function Is급탕전Null() As Boolean Return Me.IsNull(Me.table설계계산결과.급탕전Column) End Function _ Public Sub Set급탕전Null() Me(Me.table설계계산결과.급탕전Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉방전Null() As Boolean Return Me.IsNull(Me.table설계계산결과.냉방전Column) End Function _ Public Sub Set냉방전Null() Me(Me.table설계계산결과.냉방전Column) = Global.System.Convert.DBNull End Sub _ Public Function Is난방전Null() As Boolean Return Me.IsNull(Me.table설계계산결과.난방전Column) End Function _ Public Sub Set난방전Null() Me(Me.table설계계산결과.난방전Column) = Global.System.Convert.DBNull End Sub _ Public Function Is조명전Null() As Boolean Return Me.IsNull(Me.table설계계산결과.조명전Column) End Function _ Public Sub Set조명전Null() Me(Me.table설계계산결과.조명전Column) = Global.System.Convert.DBNull End Sub _ Public Function Is환기전Null() As Boolean Return Me.IsNull(Me.table설계계산결과.환기전Column) End Function _ Public Sub Set환기전Null() Me(Me.table설계계산결과.환기전Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class 설계계산파라미터Row Inherits Global.System.Data.DataRow Private table설계계산파라미터 As 설계계산파라미터DataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.table설계계산파라미터 = CType(Me.Table,설계계산파라미터DataTable) End Sub _ Public Property 난방() As String Get If Me.Is난방Null Then Return "0" Else Return CType(Me(Me.table설계계산파라미터.난방Column),String) End If End Get Set Me(Me.table설계계산파라미터.난방Column) = value End Set End Property _ Public Property 냉방() As String Get If Me.Is냉방Null Then Return "0" Else Return CType(Me(Me.table설계계산파라미터.냉방Column),String) End If End Get Set Me(Me.table설계계산파라미터.냉방Column) = value End Set End Property _ Public Property 기저비율() As String Get If Me.Is기저비율Null Then Return "0" Else Return CType(Me(Me.table설계계산파라미터.기저비율Column),String) End If End Get Set Me(Me.table설계계산파라미터.기저비율Column) = value End Set End Property _ Public Function Is난방Null() As Boolean Return Me.IsNull(Me.table설계계산파라미터.난방Column) End Function _ Public Sub Set난방Null() Me(Me.table설계계산파라미터.난방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉방Null() As Boolean Return Me.IsNull(Me.table설계계산파라미터.냉방Column) End Function _ Public Sub Set냉방Null() Me(Me.table설계계산파라미터.냉방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is기저비율Null() As Boolean Return Me.IsNull(Me.table설계계산파라미터.기저비율Column) End Function _ Public Sub Set기저비율Null() Me(Me.table설계계산파라미터.기저비율Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Row event argument class ''' _ Public Class 최대냉난방부하RowChangeEvent Inherits Global.System.EventArgs Private eventRow As 최대냉난방부하Row Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As 최대냉난방부하Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As 최대냉난방부하Row Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class 월별에너지분석RowChangeEvent Inherits Global.System.EventArgs Private eventRow As 월별에너지분석Row Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As 월별에너지분석Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As 월별에너지분석Row Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TReqUseRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TReqUseRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TReqUseRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TReqUseRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class Graph_ReqRowChangeEvent Inherits Global.System.EventArgs Private eventRow As Graph_ReqRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As Graph_ReqRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As Graph_ReqRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class Graph_ReqUseRowChangeEvent Inherits Global.System.EventArgs Private eventRow As Graph_ReqUseRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As Graph_ReqUseRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As Graph_ReqUseRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class Graph_InfoRowChangeEvent Inherits Global.System.EventArgs Private eventRow As Graph_InfoRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As Graph_InfoRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As Graph_InfoRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class 사용면적RowChangeEvent Inherits Global.System.EventArgs Private eventRow As 사용면적Row Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As 사용면적Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As 사용면적Row Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class 에너지소요량RowChangeEvent Inherits Global.System.EventArgs Private eventRow As 에너지소요량Row Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As 에너지소요량Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As 에너지소요량Row Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class 에너지소요량1RowChangeEvent Inherits Global.System.EventArgs Private eventRow As 에너지소요량1Row Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As 에너지소요량1Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As 에너지소요량1Row Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class 생산에너지RowChangeEvent Inherits Global.System.EventArgs Private eventRow As 생산에너지Row Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As 생산에너지Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As 생산에너지Row Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class Graph_Info_dataRowChangeEvent Inherits Global.System.EventArgs Private eventRow As Graph_Info_dataRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As Graph_Info_dataRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As Graph_Info_dataRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class Pyonga_REQRowChangeEvent Inherits Global.System.EventArgs Private eventRow As Pyonga_REQRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As Pyonga_REQRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As Pyonga_REQRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class Pyonga_USERowChangeEvent Inherits Global.System.EventArgs Private eventRow As Pyonga_USERow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As Pyonga_USERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As Pyonga_USERow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class Pyonga_1USERowChangeEvent Inherits Global.System.EventArgs Private eventRow As Pyonga_1USERow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As Pyonga_1USERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As Pyonga_1USERow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class Pyonga_YKRowChangeEvent Inherits Global.System.EventArgs Private eventRow As Pyonga_YKRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As Pyonga_YKRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As Pyonga_YKRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class 월별1차에너지사용량RowChangeEvent Inherits Global.System.EventArgs Private eventRow As 월별1차에너지사용량Row Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As 월별1차에너지사용량Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As 월별1차에너지사용량Row Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class 설계계산결과RowChangeEvent Inherits Global.System.EventArgs Private eventRow As 설계계산결과Row Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As 설계계산결과Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As 설계계산결과Row Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class 설계계산파라미터RowChangeEvent Inherits Global.System.EventArgs Private eventRow As 설계계산파라미터Row Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As 설계계산파라미터Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As 설계계산파라미터Row Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class End Class