'------------------------------------------------------------------------------ ' ' 이 코드는 도구를 사용하여 생성되었습니다. ' 런타임 버전: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 tableExtReport As ExtReportDataTable 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 If (Not (ds.Tables("ExtReport")) Is Nothing) Then MyBase.Tables.Add(New ExtReportDataTable(ds.Tables("ExtReport"))) 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 ReadOnly Property ExtReport() As ExtReportDataTable Get Return Me.tableExtReport 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 If (Not (ds.Tables("ExtReport")) Is Nothing) Then MyBase.Tables.Add(New ExtReportDataTable(ds.Tables("ExtReport"))) 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 Me.tableExtReport = CType(MyBase.Tables("ExtReport"),ExtReportDataTable) If (initTable = true) Then If (Not (Me.tableExtReport) Is Nothing) Then Me.tableExtReport.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설계계산파라미터) Me.tableExtReport = New ExtReportDataTable() MyBase.Tables.Add(Me.tableExtReport) 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 Function ShouldSerializeExtReport() 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) _ Public Delegate Sub ExtReportRowChangeEventHandler(ByVal sender As Object, ByVal e As ExtReportRowChangeEvent) ''' '''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전력열병합 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 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 Decimal, ByVal 면적당생산량지열 As Decimal, ByVal 신재생열병합전력생산량 As String, ByVal 신재생면적당열생산량 As String) 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("신재생면적당열생산량") 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(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전력태양광.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(0D,Decimal) Me.column면적당생산량지열.DefaultValue = CType(0D,Decimal) 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 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("",String) 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 the strongly named DataTable class. ''' _ Partial Public Class ExtReportDataTable Inherits Global.System.Data.TypedTableBase(Of ExtReportRow) Private columnc001 As Global.System.Data.DataColumn Private columnc002 As Global.System.Data.DataColumn Private columnc003 As Global.System.Data.DataColumn Private columnc004 As Global.System.Data.DataColumn Private columnc005 As Global.System.Data.DataColumn Private columnc006 As Global.System.Data.DataColumn Private columnc007 As Global.System.Data.DataColumn Private columnc008 As Global.System.Data.DataColumn Private columnc009 As Global.System.Data.DataColumn Private columnc010 As Global.System.Data.DataColumn Private columnc011 As Global.System.Data.DataColumn Private columnc012 As Global.System.Data.DataColumn Private columnc013 As Global.System.Data.DataColumn Private columnc014 As Global.System.Data.DataColumn Private columnc015 As Global.System.Data.DataColumn Private columnc016 As Global.System.Data.DataColumn Private columnc017 As Global.System.Data.DataColumn Private columnc018 As Global.System.Data.DataColumn Private columnc019 As Global.System.Data.DataColumn Private columnc020 As Global.System.Data.DataColumn Private columnc021 As Global.System.Data.DataColumn Private columnc022 As Global.System.Data.DataColumn Private columnc023 As Global.System.Data.DataColumn Private columnc024 As Global.System.Data.DataColumn Private columnc025 As Global.System.Data.DataColumn Private columnc026 As Global.System.Data.DataColumn Private columnc027 As Global.System.Data.DataColumn Private columnc028 As Global.System.Data.DataColumn Private columnc029 As Global.System.Data.DataColumn Private columnc030 As Global.System.Data.DataColumn Private columnc031 As Global.System.Data.DataColumn Private columnc032 As Global.System.Data.DataColumn Private columnc033 As Global.System.Data.DataColumn Private columnc034 As Global.System.Data.DataColumn Private columnc035 As Global.System.Data.DataColumn Private columnc036 As Global.System.Data.DataColumn Private columnc037 As Global.System.Data.DataColumn Private columnc038 As Global.System.Data.DataColumn Private columnc039 As Global.System.Data.DataColumn Private columnc040 As Global.System.Data.DataColumn Private columnc041 As Global.System.Data.DataColumn Private columnc042 As Global.System.Data.DataColumn Private columnc043 As Global.System.Data.DataColumn Private columnc044 As Global.System.Data.DataColumn Private columnc045 As Global.System.Data.DataColumn Private columnc046 As Global.System.Data.DataColumn Private columnc047 As Global.System.Data.DataColumn Private columnc048 As Global.System.Data.DataColumn Private columnc049 As Global.System.Data.DataColumn Private columnc050 As Global.System.Data.DataColumn Private columnc051 As Global.System.Data.DataColumn Private columnc052 As Global.System.Data.DataColumn Private columnc053 As Global.System.Data.DataColumn Private columnc054 As Global.System.Data.DataColumn Private columnc055 As Global.System.Data.DataColumn Private columnc056 As Global.System.Data.DataColumn Private columnc057 As Global.System.Data.DataColumn Private columnc058 As Global.System.Data.DataColumn Private columnc059 As Global.System.Data.DataColumn Private columnc060 As Global.System.Data.DataColumn Private columnc061 As Global.System.Data.DataColumn Private columnc062 As Global.System.Data.DataColumn Private columnc063 As Global.System.Data.DataColumn Private columnc064 As Global.System.Data.DataColumn Private columnc065 As Global.System.Data.DataColumn Private columnc066 As Global.System.Data.DataColumn Private columnc067 As Global.System.Data.DataColumn Private columnc068 As Global.System.Data.DataColumn Private columnc069 As Global.System.Data.DataColumn Private columnc070 As Global.System.Data.DataColumn Private columnc071 As Global.System.Data.DataColumn Private columnc072 As Global.System.Data.DataColumn Private columnc073 As Global.System.Data.DataColumn Private columnc074 As Global.System.Data.DataColumn Private columnc075 As Global.System.Data.DataColumn Private columnc076 As Global.System.Data.DataColumn Private columnc077 As Global.System.Data.DataColumn Private columnc078 As Global.System.Data.DataColumn Private columnc079 As Global.System.Data.DataColumn Private columnc080 As Global.System.Data.DataColumn Private columnc081 As Global.System.Data.DataColumn Private columnc082 As Global.System.Data.DataColumn Private columnc083 As Global.System.Data.DataColumn Private columnc084 As Global.System.Data.DataColumn Private columnc085 As Global.System.Data.DataColumn Private columnc086 As Global.System.Data.DataColumn Private columnc087 As Global.System.Data.DataColumn Private columnc088 As Global.System.Data.DataColumn Private columnc089 As Global.System.Data.DataColumn Private columnc090 As Global.System.Data.DataColumn Private columnc091 As Global.System.Data.DataColumn Private columnc092 As Global.System.Data.DataColumn Private columnc093 As Global.System.Data.DataColumn Private columnc094 As Global.System.Data.DataColumn Private columnc095 As Global.System.Data.DataColumn Private columnc096 As Global.System.Data.DataColumn Private columnc097 As Global.System.Data.DataColumn Private columnc098 As Global.System.Data.DataColumn Private columnc099 As Global.System.Data.DataColumn Private columnc100 As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "ExtReport" 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 c001Column() As Global.System.Data.DataColumn Get Return Me.columnc001 End Get End Property _ Public ReadOnly Property c002Column() As Global.System.Data.DataColumn Get Return Me.columnc002 End Get End Property _ Public ReadOnly Property c003Column() As Global.System.Data.DataColumn Get Return Me.columnc003 End Get End Property _ Public ReadOnly Property c004Column() As Global.System.Data.DataColumn Get Return Me.columnc004 End Get End Property _ Public ReadOnly Property c005Column() As Global.System.Data.DataColumn Get Return Me.columnc005 End Get End Property _ Public ReadOnly Property c006Column() As Global.System.Data.DataColumn Get Return Me.columnc006 End Get End Property _ Public ReadOnly Property c007Column() As Global.System.Data.DataColumn Get Return Me.columnc007 End Get End Property _ Public ReadOnly Property c008Column() As Global.System.Data.DataColumn Get Return Me.columnc008 End Get End Property _ Public ReadOnly Property c009Column() As Global.System.Data.DataColumn Get Return Me.columnc009 End Get End Property _ Public ReadOnly Property c010Column() As Global.System.Data.DataColumn Get Return Me.columnc010 End Get End Property _ Public ReadOnly Property c011Column() As Global.System.Data.DataColumn Get Return Me.columnc011 End Get End Property _ Public ReadOnly Property c012Column() As Global.System.Data.DataColumn Get Return Me.columnc012 End Get End Property _ Public ReadOnly Property c013Column() As Global.System.Data.DataColumn Get Return Me.columnc013 End Get End Property _ Public ReadOnly Property c014Column() As Global.System.Data.DataColumn Get Return Me.columnc014 End Get End Property _ Public ReadOnly Property c015Column() As Global.System.Data.DataColumn Get Return Me.columnc015 End Get End Property _ Public ReadOnly Property c016Column() As Global.System.Data.DataColumn Get Return Me.columnc016 End Get End Property _ Public ReadOnly Property c017Column() As Global.System.Data.DataColumn Get Return Me.columnc017 End Get End Property _ Public ReadOnly Property c018Column() As Global.System.Data.DataColumn Get Return Me.columnc018 End Get End Property _ Public ReadOnly Property c019Column() As Global.System.Data.DataColumn Get Return Me.columnc019 End Get End Property _ Public ReadOnly Property c020Column() As Global.System.Data.DataColumn Get Return Me.columnc020 End Get End Property _ Public ReadOnly Property c021Column() As Global.System.Data.DataColumn Get Return Me.columnc021 End Get End Property _ Public ReadOnly Property c022Column() As Global.System.Data.DataColumn Get Return Me.columnc022 End Get End Property _ Public ReadOnly Property c023Column() As Global.System.Data.DataColumn Get Return Me.columnc023 End Get End Property _ Public ReadOnly Property c024Column() As Global.System.Data.DataColumn Get Return Me.columnc024 End Get End Property _ Public ReadOnly Property c025Column() As Global.System.Data.DataColumn Get Return Me.columnc025 End Get End Property _ Public ReadOnly Property c026Column() As Global.System.Data.DataColumn Get Return Me.columnc026 End Get End Property _ Public ReadOnly Property c027Column() As Global.System.Data.DataColumn Get Return Me.columnc027 End Get End Property _ Public ReadOnly Property c028Column() As Global.System.Data.DataColumn Get Return Me.columnc028 End Get End Property _ Public ReadOnly Property c029Column() As Global.System.Data.DataColumn Get Return Me.columnc029 End Get End Property _ Public ReadOnly Property c030Column() As Global.System.Data.DataColumn Get Return Me.columnc030 End Get End Property _ Public ReadOnly Property c031Column() As Global.System.Data.DataColumn Get Return Me.columnc031 End Get End Property _ Public ReadOnly Property c032Column() As Global.System.Data.DataColumn Get Return Me.columnc032 End Get End Property _ Public ReadOnly Property c033Column() As Global.System.Data.DataColumn Get Return Me.columnc033 End Get End Property _ Public ReadOnly Property c034Column() As Global.System.Data.DataColumn Get Return Me.columnc034 End Get End Property _ Public ReadOnly Property c035Column() As Global.System.Data.DataColumn Get Return Me.columnc035 End Get End Property _ Public ReadOnly Property c036Column() As Global.System.Data.DataColumn Get Return Me.columnc036 End Get End Property _ Public ReadOnly Property c037Column() As Global.System.Data.DataColumn Get Return Me.columnc037 End Get End Property _ Public ReadOnly Property c038Column() As Global.System.Data.DataColumn Get Return Me.columnc038 End Get End Property _ Public ReadOnly Property c039Column() As Global.System.Data.DataColumn Get Return Me.columnc039 End Get End Property _ Public ReadOnly Property c040Column() As Global.System.Data.DataColumn Get Return Me.columnc040 End Get End Property _ Public ReadOnly Property c041Column() As Global.System.Data.DataColumn Get Return Me.columnc041 End Get End Property _ Public ReadOnly Property c042Column() As Global.System.Data.DataColumn Get Return Me.columnc042 End Get End Property _ Public ReadOnly Property c043Column() As Global.System.Data.DataColumn Get Return Me.columnc043 End Get End Property _ Public ReadOnly Property c044Column() As Global.System.Data.DataColumn Get Return Me.columnc044 End Get End Property _ Public ReadOnly Property c045Column() As Global.System.Data.DataColumn Get Return Me.columnc045 End Get End Property _ Public ReadOnly Property c046Column() As Global.System.Data.DataColumn Get Return Me.columnc046 End Get End Property _ Public ReadOnly Property c047Column() As Global.System.Data.DataColumn Get Return Me.columnc047 End Get End Property _ Public ReadOnly Property c048Column() As Global.System.Data.DataColumn Get Return Me.columnc048 End Get End Property _ Public ReadOnly Property c049Column() As Global.System.Data.DataColumn Get Return Me.columnc049 End Get End Property _ Public ReadOnly Property c050Column() As Global.System.Data.DataColumn Get Return Me.columnc050 End Get End Property _ Public ReadOnly Property c051Column() As Global.System.Data.DataColumn Get Return Me.columnc051 End Get End Property _ Public ReadOnly Property c052Column() As Global.System.Data.DataColumn Get Return Me.columnc052 End Get End Property _ Public ReadOnly Property c053Column() As Global.System.Data.DataColumn Get Return Me.columnc053 End Get End Property _ Public ReadOnly Property c054Column() As Global.System.Data.DataColumn Get Return Me.columnc054 End Get End Property _ Public ReadOnly Property c055Column() As Global.System.Data.DataColumn Get Return Me.columnc055 End Get End Property _ Public ReadOnly Property c056Column() As Global.System.Data.DataColumn Get Return Me.columnc056 End Get End Property _ Public ReadOnly Property c057Column() As Global.System.Data.DataColumn Get Return Me.columnc057 End Get End Property _ Public ReadOnly Property c058Column() As Global.System.Data.DataColumn Get Return Me.columnc058 End Get End Property _ Public ReadOnly Property c059Column() As Global.System.Data.DataColumn Get Return Me.columnc059 End Get End Property _ Public ReadOnly Property c060Column() As Global.System.Data.DataColumn Get Return Me.columnc060 End Get End Property _ Public ReadOnly Property c061Column() As Global.System.Data.DataColumn Get Return Me.columnc061 End Get End Property _ Public ReadOnly Property c062Column() As Global.System.Data.DataColumn Get Return Me.columnc062 End Get End Property _ Public ReadOnly Property c063Column() As Global.System.Data.DataColumn Get Return Me.columnc063 End Get End Property _ Public ReadOnly Property c064Column() As Global.System.Data.DataColumn Get Return Me.columnc064 End Get End Property _ Public ReadOnly Property c065Column() As Global.System.Data.DataColumn Get Return Me.columnc065 End Get End Property _ Public ReadOnly Property c066Column() As Global.System.Data.DataColumn Get Return Me.columnc066 End Get End Property _ Public ReadOnly Property c067Column() As Global.System.Data.DataColumn Get Return Me.columnc067 End Get End Property _ Public ReadOnly Property c068Column() As Global.System.Data.DataColumn Get Return Me.columnc068 End Get End Property _ Public ReadOnly Property c069Column() As Global.System.Data.DataColumn Get Return Me.columnc069 End Get End Property _ Public ReadOnly Property c070Column() As Global.System.Data.DataColumn Get Return Me.columnc070 End Get End Property _ Public ReadOnly Property c071Column() As Global.System.Data.DataColumn Get Return Me.columnc071 End Get End Property _ Public ReadOnly Property c072Column() As Global.System.Data.DataColumn Get Return Me.columnc072 End Get End Property _ Public ReadOnly Property c073Column() As Global.System.Data.DataColumn Get Return Me.columnc073 End Get End Property _ Public ReadOnly Property c074Column() As Global.System.Data.DataColumn Get Return Me.columnc074 End Get End Property _ Public ReadOnly Property c075Column() As Global.System.Data.DataColumn Get Return Me.columnc075 End Get End Property _ Public ReadOnly Property c076Column() As Global.System.Data.DataColumn Get Return Me.columnc076 End Get End Property _ Public ReadOnly Property c077Column() As Global.System.Data.DataColumn Get Return Me.columnc077 End Get End Property _ Public ReadOnly Property c078Column() As Global.System.Data.DataColumn Get Return Me.columnc078 End Get End Property _ Public ReadOnly Property c079Column() As Global.System.Data.DataColumn Get Return Me.columnc079 End Get End Property _ Public ReadOnly Property c080Column() As Global.System.Data.DataColumn Get Return Me.columnc080 End Get End Property _ Public ReadOnly Property c081Column() As Global.System.Data.DataColumn Get Return Me.columnc081 End Get End Property _ Public ReadOnly Property c082Column() As Global.System.Data.DataColumn Get Return Me.columnc082 End Get End Property _ Public ReadOnly Property c083Column() As Global.System.Data.DataColumn Get Return Me.columnc083 End Get End Property _ Public ReadOnly Property c084Column() As Global.System.Data.DataColumn Get Return Me.columnc084 End Get End Property _ Public ReadOnly Property c085Column() As Global.System.Data.DataColumn Get Return Me.columnc085 End Get End Property _ Public ReadOnly Property c086Column() As Global.System.Data.DataColumn Get Return Me.columnc086 End Get End Property _ Public ReadOnly Property c087Column() As Global.System.Data.DataColumn Get Return Me.columnc087 End Get End Property _ Public ReadOnly Property c088Column() As Global.System.Data.DataColumn Get Return Me.columnc088 End Get End Property _ Public ReadOnly Property c089Column() As Global.System.Data.DataColumn Get Return Me.columnc089 End Get End Property _ Public ReadOnly Property c090Column() As Global.System.Data.DataColumn Get Return Me.columnc090 End Get End Property _ Public ReadOnly Property c091Column() As Global.System.Data.DataColumn Get Return Me.columnc091 End Get End Property _ Public ReadOnly Property c092Column() As Global.System.Data.DataColumn Get Return Me.columnc092 End Get End Property _ Public ReadOnly Property c093Column() As Global.System.Data.DataColumn Get Return Me.columnc093 End Get End Property _ Public ReadOnly Property c094Column() As Global.System.Data.DataColumn Get Return Me.columnc094 End Get End Property _ Public ReadOnly Property c095Column() As Global.System.Data.DataColumn Get Return Me.columnc095 End Get End Property _ Public ReadOnly Property c096Column() As Global.System.Data.DataColumn Get Return Me.columnc096 End Get End Property _ Public ReadOnly Property c097Column() As Global.System.Data.DataColumn Get Return Me.columnc097 End Get End Property _ Public ReadOnly Property c098Column() As Global.System.Data.DataColumn Get Return Me.columnc098 End Get End Property _ Public ReadOnly Property c099Column() As Global.System.Data.DataColumn Get Return Me.columnc099 End Get End Property _ Public ReadOnly Property c100Column() As Global.System.Data.DataColumn Get Return Me.columnc100 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 ExtReportRow Get Return CType(Me.Rows(index),ExtReportRow) End Get End Property _ Public Event ExtReportRowChanging As ExtReportRowChangeEventHandler _ Public Event ExtReportRowChanged As ExtReportRowChangeEventHandler _ Public Event ExtReportRowDeleting As ExtReportRowChangeEventHandler _ Public Event ExtReportRowDeleted As ExtReportRowChangeEventHandler _ Public Overloads Sub AddExtReportRow(ByVal row As ExtReportRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddExtReportRow( _ ByVal c001 As String, _ ByVal c002 As String, _ ByVal c003 As String, _ ByVal c004 As String, _ ByVal c005 As String, _ ByVal c006 As String, _ ByVal c007 As String, _ ByVal c008 As String, _ ByVal c009 As String, _ ByVal c010 As String, _ ByVal c011 As String, _ ByVal c012 As String, _ ByVal c013 As String, _ ByVal c014 As String, _ ByVal c015 As String, _ ByVal c016 As String, _ ByVal c017 As String, _ ByVal c018 As String, _ ByVal c019 As String, _ ByVal c020 As String, _ ByVal c021 As String, _ ByVal c022 As String, _ ByVal c023 As String, _ ByVal c024 As String, _ ByVal c025 As String, _ ByVal c026 As String, _ ByVal c027 As String, _ ByVal c028 As String, _ ByVal c029 As String, _ ByVal c030 As String, _ ByVal c031 As String, _ ByVal c032 As String, _ ByVal c033 As String, _ ByVal c034 As String, _ ByVal c035 As String, _ ByVal c036 As String, _ ByVal c037 As String, _ ByVal c038 As String, _ ByVal c039 As String, _ ByVal c040 As String, _ ByVal c041 As String, _ ByVal c042 As String, _ ByVal c043 As String, _ ByVal c044 As String, _ ByVal c045 As String, _ ByVal c046 As String, _ ByVal c047 As String, _ ByVal c048 As String, _ ByVal c049 As String, _ ByVal c050 As String, _ ByVal c051 As String, _ ByVal c052 As String, _ ByVal c053 As String, _ ByVal c054 As String, _ ByVal c055 As String, _ ByVal c056 As String, _ ByVal c057 As String, _ ByVal c058 As String, _ ByVal c059 As String, _ ByVal c060 As String, _ ByVal c061 As String, _ ByVal c062 As String, _ ByVal c063 As String, _ ByVal c064 As String, _ ByVal c065 As String, _ ByVal c066 As String, _ ByVal c067 As String, _ ByVal c068 As String, _ ByVal c069 As String, _ ByVal c070 As String, _ ByVal c071 As String, _ ByVal c072 As String, _ ByVal c073 As String, _ ByVal c074 As String, _ ByVal c075 As String, _ ByVal c076 As String, _ ByVal c077 As String, _ ByVal c078 As String, _ ByVal c079 As String, _ ByVal c080 As String, _ ByVal c081 As String, _ ByVal c082 As String, _ ByVal c083 As String, _ ByVal c084 As String, _ ByVal c085 As String, _ ByVal c086 As String, _ ByVal c087 As String, _ ByVal c088 As String, _ ByVal c089 As String, _ ByVal c090 As String, _ ByVal c091 As String, _ ByVal c092 As String, _ ByVal c093 As String, _ ByVal c094 As String, _ ByVal c095 As String, _ ByVal c096 As String, _ ByVal c097 As String, _ ByVal c098 As String, _ ByVal c099 As String, _ ByVal c100 As String) As ExtReportRow Dim rowExtReportRow As ExtReportRow = CType(Me.NewRow,ExtReportRow) Dim columnValuesArray() As Object = New Object() {c001, c002, c003, c004, c005, c006, c007, c008, c009, c010, c011, c012, c013, c014, c015, c016, c017, c018, c019, c020, c021, c022, c023, c024, c025, c026, c027, c028, c029, c030, c031, c032, c033, c034, c035, c036, c037, c038, c039, c040, c041, c042, c043, c044, c045, c046, c047, c048, c049, c050, c051, c052, c053, c054, c055, c056, c057, c058, c059, c060, c061, c062, c063, c064, c065, c066, c067, c068, c069, c070, c071, c072, c073, c074, c075, c076, c077, c078, c079, c080, c081, c082, c083, c084, c085, c086, c087, c088, c089, c090, c091, c092, c093, c094, c095, c096, c097, c098, c099, c100} rowExtReportRow.ItemArray = columnValuesArray Me.Rows.Add(rowExtReportRow) Return rowExtReportRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As ExtReportDataTable = CType(MyBase.Clone,ExtReportDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New ExtReportDataTable() End Function _ Friend Sub InitVars() Me.columnc001 = MyBase.Columns("c001") Me.columnc002 = MyBase.Columns("c002") Me.columnc003 = MyBase.Columns("c003") Me.columnc004 = MyBase.Columns("c004") Me.columnc005 = MyBase.Columns("c005") Me.columnc006 = MyBase.Columns("c006") Me.columnc007 = MyBase.Columns("c007") Me.columnc008 = MyBase.Columns("c008") Me.columnc009 = MyBase.Columns("c009") Me.columnc010 = MyBase.Columns("c010") Me.columnc011 = MyBase.Columns("c011") Me.columnc012 = MyBase.Columns("c012") Me.columnc013 = MyBase.Columns("c013") Me.columnc014 = MyBase.Columns("c014") Me.columnc015 = MyBase.Columns("c015") Me.columnc016 = MyBase.Columns("c016") Me.columnc017 = MyBase.Columns("c017") Me.columnc018 = MyBase.Columns("c018") Me.columnc019 = MyBase.Columns("c019") Me.columnc020 = MyBase.Columns("c020") Me.columnc021 = MyBase.Columns("c021") Me.columnc022 = MyBase.Columns("c022") Me.columnc023 = MyBase.Columns("c023") Me.columnc024 = MyBase.Columns("c024") Me.columnc025 = MyBase.Columns("c025") Me.columnc026 = MyBase.Columns("c026") Me.columnc027 = MyBase.Columns("c027") Me.columnc028 = MyBase.Columns("c028") Me.columnc029 = MyBase.Columns("c029") Me.columnc030 = MyBase.Columns("c030") Me.columnc031 = MyBase.Columns("c031") Me.columnc032 = MyBase.Columns("c032") Me.columnc033 = MyBase.Columns("c033") Me.columnc034 = MyBase.Columns("c034") Me.columnc035 = MyBase.Columns("c035") Me.columnc036 = MyBase.Columns("c036") Me.columnc037 = MyBase.Columns("c037") Me.columnc038 = MyBase.Columns("c038") Me.columnc039 = MyBase.Columns("c039") Me.columnc040 = MyBase.Columns("c040") Me.columnc041 = MyBase.Columns("c041") Me.columnc042 = MyBase.Columns("c042") Me.columnc043 = MyBase.Columns("c043") Me.columnc044 = MyBase.Columns("c044") Me.columnc045 = MyBase.Columns("c045") Me.columnc046 = MyBase.Columns("c046") Me.columnc047 = MyBase.Columns("c047") Me.columnc048 = MyBase.Columns("c048") Me.columnc049 = MyBase.Columns("c049") Me.columnc050 = MyBase.Columns("c050") Me.columnc051 = MyBase.Columns("c051") Me.columnc052 = MyBase.Columns("c052") Me.columnc053 = MyBase.Columns("c053") Me.columnc054 = MyBase.Columns("c054") Me.columnc055 = MyBase.Columns("c055") Me.columnc056 = MyBase.Columns("c056") Me.columnc057 = MyBase.Columns("c057") Me.columnc058 = MyBase.Columns("c058") Me.columnc059 = MyBase.Columns("c059") Me.columnc060 = MyBase.Columns("c060") Me.columnc061 = MyBase.Columns("c061") Me.columnc062 = MyBase.Columns("c062") Me.columnc063 = MyBase.Columns("c063") Me.columnc064 = MyBase.Columns("c064") Me.columnc065 = MyBase.Columns("c065") Me.columnc066 = MyBase.Columns("c066") Me.columnc067 = MyBase.Columns("c067") Me.columnc068 = MyBase.Columns("c068") Me.columnc069 = MyBase.Columns("c069") Me.columnc070 = MyBase.Columns("c070") Me.columnc071 = MyBase.Columns("c071") Me.columnc072 = MyBase.Columns("c072") Me.columnc073 = MyBase.Columns("c073") Me.columnc074 = MyBase.Columns("c074") Me.columnc075 = MyBase.Columns("c075") Me.columnc076 = MyBase.Columns("c076") Me.columnc077 = MyBase.Columns("c077") Me.columnc078 = MyBase.Columns("c078") Me.columnc079 = MyBase.Columns("c079") Me.columnc080 = MyBase.Columns("c080") Me.columnc081 = MyBase.Columns("c081") Me.columnc082 = MyBase.Columns("c082") Me.columnc083 = MyBase.Columns("c083") Me.columnc084 = MyBase.Columns("c084") Me.columnc085 = MyBase.Columns("c085") Me.columnc086 = MyBase.Columns("c086") Me.columnc087 = MyBase.Columns("c087") Me.columnc088 = MyBase.Columns("c088") Me.columnc089 = MyBase.Columns("c089") Me.columnc090 = MyBase.Columns("c090") Me.columnc091 = MyBase.Columns("c091") Me.columnc092 = MyBase.Columns("c092") Me.columnc093 = MyBase.Columns("c093") Me.columnc094 = MyBase.Columns("c094") Me.columnc095 = MyBase.Columns("c095") Me.columnc096 = MyBase.Columns("c096") Me.columnc097 = MyBase.Columns("c097") Me.columnc098 = MyBase.Columns("c098") Me.columnc099 = MyBase.Columns("c099") Me.columnc100 = MyBase.Columns("c100") End Sub _ Private Sub InitClass() Me.columnc001 = New Global.System.Data.DataColumn("c001", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc001) Me.columnc002 = New Global.System.Data.DataColumn("c002", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc002) Me.columnc003 = New Global.System.Data.DataColumn("c003", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc003) Me.columnc004 = New Global.System.Data.DataColumn("c004", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc004) Me.columnc005 = New Global.System.Data.DataColumn("c005", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc005) Me.columnc006 = New Global.System.Data.DataColumn("c006", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc006) Me.columnc007 = New Global.System.Data.DataColumn("c007", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc007) Me.columnc008 = New Global.System.Data.DataColumn("c008", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc008) Me.columnc009 = New Global.System.Data.DataColumn("c009", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc009) Me.columnc010 = New Global.System.Data.DataColumn("c010", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc010) Me.columnc011 = New Global.System.Data.DataColumn("c011", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc011) Me.columnc012 = New Global.System.Data.DataColumn("c012", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc012) Me.columnc013 = New Global.System.Data.DataColumn("c013", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc013) Me.columnc014 = New Global.System.Data.DataColumn("c014", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc014) Me.columnc015 = New Global.System.Data.DataColumn("c015", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc015) Me.columnc016 = New Global.System.Data.DataColumn("c016", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc016) Me.columnc017 = New Global.System.Data.DataColumn("c017", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc017) Me.columnc018 = New Global.System.Data.DataColumn("c018", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc018) Me.columnc019 = New Global.System.Data.DataColumn("c019", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc019) Me.columnc020 = New Global.System.Data.DataColumn("c020", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc020) Me.columnc021 = New Global.System.Data.DataColumn("c021", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc021) Me.columnc022 = New Global.System.Data.DataColumn("c022", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc022) Me.columnc023 = New Global.System.Data.DataColumn("c023", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc023) Me.columnc024 = New Global.System.Data.DataColumn("c024", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc024) Me.columnc025 = New Global.System.Data.DataColumn("c025", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc025) Me.columnc026 = New Global.System.Data.DataColumn("c026", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc026) Me.columnc027 = New Global.System.Data.DataColumn("c027", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc027) Me.columnc028 = New Global.System.Data.DataColumn("c028", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc028) Me.columnc029 = New Global.System.Data.DataColumn("c029", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc029) Me.columnc030 = New Global.System.Data.DataColumn("c030", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc030) Me.columnc031 = New Global.System.Data.DataColumn("c031", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc031) Me.columnc032 = New Global.System.Data.DataColumn("c032", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc032) Me.columnc033 = New Global.System.Data.DataColumn("c033", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc033) Me.columnc034 = New Global.System.Data.DataColumn("c034", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc034) Me.columnc035 = New Global.System.Data.DataColumn("c035", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc035) Me.columnc036 = New Global.System.Data.DataColumn("c036", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc036) Me.columnc037 = New Global.System.Data.DataColumn("c037", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc037) Me.columnc038 = New Global.System.Data.DataColumn("c038", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc038) Me.columnc039 = New Global.System.Data.DataColumn("c039", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc039) Me.columnc040 = New Global.System.Data.DataColumn("c040", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc040) Me.columnc041 = New Global.System.Data.DataColumn("c041", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc041) Me.columnc042 = New Global.System.Data.DataColumn("c042", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc042) Me.columnc043 = New Global.System.Data.DataColumn("c043", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc043) Me.columnc044 = New Global.System.Data.DataColumn("c044", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc044) Me.columnc045 = New Global.System.Data.DataColumn("c045", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc045) Me.columnc046 = New Global.System.Data.DataColumn("c046", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc046) Me.columnc047 = New Global.System.Data.DataColumn("c047", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc047) Me.columnc048 = New Global.System.Data.DataColumn("c048", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc048) Me.columnc049 = New Global.System.Data.DataColumn("c049", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc049) Me.columnc050 = New Global.System.Data.DataColumn("c050", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc050) Me.columnc051 = New Global.System.Data.DataColumn("c051", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc051) Me.columnc052 = New Global.System.Data.DataColumn("c052", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc052) Me.columnc053 = New Global.System.Data.DataColumn("c053", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc053) Me.columnc054 = New Global.System.Data.DataColumn("c054", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc054) Me.columnc055 = New Global.System.Data.DataColumn("c055", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc055) Me.columnc056 = New Global.System.Data.DataColumn("c056", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc056) Me.columnc057 = New Global.System.Data.DataColumn("c057", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc057) Me.columnc058 = New Global.System.Data.DataColumn("c058", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc058) Me.columnc059 = New Global.System.Data.DataColumn("c059", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc059) Me.columnc060 = New Global.System.Data.DataColumn("c060", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc060) Me.columnc061 = New Global.System.Data.DataColumn("c061", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc061) Me.columnc062 = New Global.System.Data.DataColumn("c062", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc062) Me.columnc063 = New Global.System.Data.DataColumn("c063", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc063) Me.columnc064 = New Global.System.Data.DataColumn("c064", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc064) Me.columnc065 = New Global.System.Data.DataColumn("c065", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc065) Me.columnc066 = New Global.System.Data.DataColumn("c066", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc066) Me.columnc067 = New Global.System.Data.DataColumn("c067", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc067) Me.columnc068 = New Global.System.Data.DataColumn("c068", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc068) Me.columnc069 = New Global.System.Data.DataColumn("c069", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc069) Me.columnc070 = New Global.System.Data.DataColumn("c070", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc070) Me.columnc071 = New Global.System.Data.DataColumn("c071", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc071) Me.columnc072 = New Global.System.Data.DataColumn("c072", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc072) Me.columnc073 = New Global.System.Data.DataColumn("c073", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc073) Me.columnc074 = New Global.System.Data.DataColumn("c074", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc074) Me.columnc075 = New Global.System.Data.DataColumn("c075", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc075) Me.columnc076 = New Global.System.Data.DataColumn("c076", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc076) Me.columnc077 = New Global.System.Data.DataColumn("c077", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc077) Me.columnc078 = New Global.System.Data.DataColumn("c078", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc078) Me.columnc079 = New Global.System.Data.DataColumn("c079", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc079) Me.columnc080 = New Global.System.Data.DataColumn("c080", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc080) Me.columnc081 = New Global.System.Data.DataColumn("c081", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc081) Me.columnc082 = New Global.System.Data.DataColumn("c082", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc082) Me.columnc083 = New Global.System.Data.DataColumn("c083", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc083) Me.columnc084 = New Global.System.Data.DataColumn("c084", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc084) Me.columnc085 = New Global.System.Data.DataColumn("c085", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc085) Me.columnc086 = New Global.System.Data.DataColumn("c086", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc086) Me.columnc087 = New Global.System.Data.DataColumn("c087", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc087) Me.columnc088 = New Global.System.Data.DataColumn("c088", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc088) Me.columnc089 = New Global.System.Data.DataColumn("c089", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc089) Me.columnc090 = New Global.System.Data.DataColumn("c090", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc090) Me.columnc091 = New Global.System.Data.DataColumn("c091", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc091) Me.columnc092 = New Global.System.Data.DataColumn("c092", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc092) Me.columnc093 = New Global.System.Data.DataColumn("c093", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc093) Me.columnc094 = New Global.System.Data.DataColumn("c094", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc094) Me.columnc095 = New Global.System.Data.DataColumn("c095", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc095) Me.columnc096 = New Global.System.Data.DataColumn("c096", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc096) Me.columnc097 = New Global.System.Data.DataColumn("c097", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc097) Me.columnc098 = New Global.System.Data.DataColumn("c098", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc098) Me.columnc099 = New Global.System.Data.DataColumn("c099", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc099) Me.columnc100 = New Global.System.Data.DataColumn("c100", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnc100) End Sub _ Public Function NewExtReportRow() As ExtReportRow Return CType(Me.NewRow,ExtReportRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New ExtReportRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(ExtReportRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.ExtReportRowChangedEvent) Is Nothing) Then RaiseEvent ExtReportRowChanged(Me, New ExtReportRowChangeEvent(CType(e.Row,ExtReportRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.ExtReportRowChangingEvent) Is Nothing) Then RaiseEvent ExtReportRowChanging(Me, New ExtReportRowChangeEvent(CType(e.Row,ExtReportRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.ExtReportRowDeletedEvent) Is Nothing) Then RaiseEvent ExtReportRowDeleted(Me, New ExtReportRowChangeEvent(CType(e.Row,ExtReportRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.ExtReportRowDeletingEvent) Is Nothing) Then RaiseEvent ExtReportRowDeleting(Me, New ExtReportRowChangeEvent(CType(e.Row,ExtReportRow), e.Action)) End If End Sub _ Public Sub RemoveExtReportRow(ByVal row As ExtReportRow) 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 = "ExtReportDataTable" 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 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 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 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 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 Try Return CType(Me(Me.tablePyonga_YK.벽체값Column),Decimal) 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 Decimal Get Try Return CType(Me(Me.tablePyonga_YK.지붕값Column),Decimal) 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 Decimal Get Try Return CType(Me(Me.tablePyonga_YK.바닥값Column),Decimal) 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 Property 창호값() As Decimal Get Try Return CType(Me(Me.tablePyonga_YK.창호값Column),Decimal) 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 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 ''' '''Represents strongly named DataRow class. ''' Partial Public Class ExtReportRow Inherits Global.System.Data.DataRow Private tableExtReport As ExtReportDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableExtReport = CType(Me.Table,ExtReportDataTable) End Sub _ Public Property c001() As String Get Try Return CType(Me(Me.tableExtReport.c001Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c001' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c001Column) = value End Set End Property _ Public Property c002() As String Get Try Return CType(Me(Me.tableExtReport.c002Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c002' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c002Column) = value End Set End Property _ Public Property c003() As String Get Try Return CType(Me(Me.tableExtReport.c003Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c003' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c003Column) = value End Set End Property _ Public Property c004() As String Get Try Return CType(Me(Me.tableExtReport.c004Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c004' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c004Column) = value End Set End Property _ Public Property c005() As String Get Try Return CType(Me(Me.tableExtReport.c005Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c005' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c005Column) = value End Set End Property _ Public Property c006() As String Get Try Return CType(Me(Me.tableExtReport.c006Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c006' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c006Column) = value End Set End Property _ Public Property c007() As String Get Try Return CType(Me(Me.tableExtReport.c007Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c007' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c007Column) = value End Set End Property _ Public Property c008() As String Get Try Return CType(Me(Me.tableExtReport.c008Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c008' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c008Column) = value End Set End Property _ Public Property c009() As String Get Try Return CType(Me(Me.tableExtReport.c009Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c009' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c009Column) = value End Set End Property _ Public Property c010() As String Get Try Return CType(Me(Me.tableExtReport.c010Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c010' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c010Column) = value End Set End Property _ Public Property c011() As String Get Try Return CType(Me(Me.tableExtReport.c011Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c011' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c011Column) = value End Set End Property _ Public Property c012() As String Get Try Return CType(Me(Me.tableExtReport.c012Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c012' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c012Column) = value End Set End Property _ Public Property c013() As String Get Try Return CType(Me(Me.tableExtReport.c013Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c013' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c013Column) = value End Set End Property _ Public Property c014() As String Get Try Return CType(Me(Me.tableExtReport.c014Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c014' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c014Column) = value End Set End Property _ Public Property c015() As String Get Try Return CType(Me(Me.tableExtReport.c015Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c015' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c015Column) = value End Set End Property _ Public Property c016() As String Get Try Return CType(Me(Me.tableExtReport.c016Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c016' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c016Column) = value End Set End Property _ Public Property c017() As String Get Try Return CType(Me(Me.tableExtReport.c017Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c017' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c017Column) = value End Set End Property _ Public Property c018() As String Get Try Return CType(Me(Me.tableExtReport.c018Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c018' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c018Column) = value End Set End Property _ Public Property c019() As String Get Try Return CType(Me(Me.tableExtReport.c019Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c019' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c019Column) = value End Set End Property _ Public Property c020() As String Get Try Return CType(Me(Me.tableExtReport.c020Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c020' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c020Column) = value End Set End Property _ Public Property c021() As String Get Try Return CType(Me(Me.tableExtReport.c021Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c021' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c021Column) = value End Set End Property _ Public Property c022() As String Get Try Return CType(Me(Me.tableExtReport.c022Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c022' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c022Column) = value End Set End Property _ Public Property c023() As String Get Try Return CType(Me(Me.tableExtReport.c023Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c023' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c023Column) = value End Set End Property _ Public Property c024() As String Get Try Return CType(Me(Me.tableExtReport.c024Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c024' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c024Column) = value End Set End Property _ Public Property c025() As String Get Try Return CType(Me(Me.tableExtReport.c025Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c025' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c025Column) = value End Set End Property _ Public Property c026() As String Get Try Return CType(Me(Me.tableExtReport.c026Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c026' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c026Column) = value End Set End Property _ Public Property c027() As String Get Try Return CType(Me(Me.tableExtReport.c027Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c027' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c027Column) = value End Set End Property _ Public Property c028() As String Get Try Return CType(Me(Me.tableExtReport.c028Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c028' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c028Column) = value End Set End Property _ Public Property c029() As String Get Try Return CType(Me(Me.tableExtReport.c029Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c029' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c029Column) = value End Set End Property _ Public Property c030() As String Get Try Return CType(Me(Me.tableExtReport.c030Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c030' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c030Column) = value End Set End Property _ Public Property c031() As String Get Try Return CType(Me(Me.tableExtReport.c031Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c031' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c031Column) = value End Set End Property _ Public Property c032() As String Get Try Return CType(Me(Me.tableExtReport.c032Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c032' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c032Column) = value End Set End Property _ Public Property c033() As String Get Try Return CType(Me(Me.tableExtReport.c033Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c033' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c033Column) = value End Set End Property _ Public Property c034() As String Get Try Return CType(Me(Me.tableExtReport.c034Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c034' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c034Column) = value End Set End Property _ Public Property c035() As String Get Try Return CType(Me(Me.tableExtReport.c035Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c035' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c035Column) = value End Set End Property _ Public Property c036() As String Get Try Return CType(Me(Me.tableExtReport.c036Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c036' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c036Column) = value End Set End Property _ Public Property c037() As String Get Try Return CType(Me(Me.tableExtReport.c037Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c037' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c037Column) = value End Set End Property _ Public Property c038() As String Get Try Return CType(Me(Me.tableExtReport.c038Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c038' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c038Column) = value End Set End Property _ Public Property c039() As String Get Try Return CType(Me(Me.tableExtReport.c039Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c039' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c039Column) = value End Set End Property _ Public Property c040() As String Get Try Return CType(Me(Me.tableExtReport.c040Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c040' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c040Column) = value End Set End Property _ Public Property c041() As String Get Try Return CType(Me(Me.tableExtReport.c041Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c041' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c041Column) = value End Set End Property _ Public Property c042() As String Get Try Return CType(Me(Me.tableExtReport.c042Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c042' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c042Column) = value End Set End Property _ Public Property c043() As String Get Try Return CType(Me(Me.tableExtReport.c043Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c043' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c043Column) = value End Set End Property _ Public Property c044() As String Get Try Return CType(Me(Me.tableExtReport.c044Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c044' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c044Column) = value End Set End Property _ Public Property c045() As String Get Try Return CType(Me(Me.tableExtReport.c045Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c045' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c045Column) = value End Set End Property _ Public Property c046() As String Get Try Return CType(Me(Me.tableExtReport.c046Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c046' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c046Column) = value End Set End Property _ Public Property c047() As String Get Try Return CType(Me(Me.tableExtReport.c047Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c047' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c047Column) = value End Set End Property _ Public Property c048() As String Get Try Return CType(Me(Me.tableExtReport.c048Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c048' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c048Column) = value End Set End Property _ Public Property c049() As String Get Try Return CType(Me(Me.tableExtReport.c049Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c049' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c049Column) = value End Set End Property _ Public Property c050() As String Get Try Return CType(Me(Me.tableExtReport.c050Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c050' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c050Column) = value End Set End Property _ Public Property c051() As String Get Try Return CType(Me(Me.tableExtReport.c051Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c051' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c051Column) = value End Set End Property _ Public Property c052() As String Get Try Return CType(Me(Me.tableExtReport.c052Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c052' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c052Column) = value End Set End Property _ Public Property c053() As String Get Try Return CType(Me(Me.tableExtReport.c053Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c053' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c053Column) = value End Set End Property _ Public Property c054() As String Get Try Return CType(Me(Me.tableExtReport.c054Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c054' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c054Column) = value End Set End Property _ Public Property c055() As String Get Try Return CType(Me(Me.tableExtReport.c055Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c055' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c055Column) = value End Set End Property _ Public Property c056() As String Get Try Return CType(Me(Me.tableExtReport.c056Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c056' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c056Column) = value End Set End Property _ Public Property c057() As String Get Try Return CType(Me(Me.tableExtReport.c057Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c057' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c057Column) = value End Set End Property _ Public Property c058() As String Get Try Return CType(Me(Me.tableExtReport.c058Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c058' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c058Column) = value End Set End Property _ Public Property c059() As String Get Try Return CType(Me(Me.tableExtReport.c059Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c059' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c059Column) = value End Set End Property _ Public Property c060() As String Get Try Return CType(Me(Me.tableExtReport.c060Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c060' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c060Column) = value End Set End Property _ Public Property c061() As String Get Try Return CType(Me(Me.tableExtReport.c061Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c061' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c061Column) = value End Set End Property _ Public Property c062() As String Get Try Return CType(Me(Me.tableExtReport.c062Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c062' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c062Column) = value End Set End Property _ Public Property c063() As String Get Try Return CType(Me(Me.tableExtReport.c063Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c063' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c063Column) = value End Set End Property _ Public Property c064() As String Get Try Return CType(Me(Me.tableExtReport.c064Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c064' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c064Column) = value End Set End Property _ Public Property c065() As String Get Try Return CType(Me(Me.tableExtReport.c065Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c065' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c065Column) = value End Set End Property _ Public Property c066() As String Get Try Return CType(Me(Me.tableExtReport.c066Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c066' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c066Column) = value End Set End Property _ Public Property c067() As String Get Try Return CType(Me(Me.tableExtReport.c067Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c067' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c067Column) = value End Set End Property _ Public Property c068() As String Get Try Return CType(Me(Me.tableExtReport.c068Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c068' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c068Column) = value End Set End Property _ Public Property c069() As String Get Try Return CType(Me(Me.tableExtReport.c069Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c069' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c069Column) = value End Set End Property _ Public Property c070() As String Get Try Return CType(Me(Me.tableExtReport.c070Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c070' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c070Column) = value End Set End Property _ Public Property c071() As String Get Try Return CType(Me(Me.tableExtReport.c071Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c071' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c071Column) = value End Set End Property _ Public Property c072() As String Get Try Return CType(Me(Me.tableExtReport.c072Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c072' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c072Column) = value End Set End Property _ Public Property c073() As String Get Try Return CType(Me(Me.tableExtReport.c073Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c073' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c073Column) = value End Set End Property _ Public Property c074() As String Get Try Return CType(Me(Me.tableExtReport.c074Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c074' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c074Column) = value End Set End Property _ Public Property c075() As String Get Try Return CType(Me(Me.tableExtReport.c075Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c075' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c075Column) = value End Set End Property _ Public Property c076() As String Get Try Return CType(Me(Me.tableExtReport.c076Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c076' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c076Column) = value End Set End Property _ Public Property c077() As String Get Try Return CType(Me(Me.tableExtReport.c077Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c077' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c077Column) = value End Set End Property _ Public Property c078() As String Get Try Return CType(Me(Me.tableExtReport.c078Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c078' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c078Column) = value End Set End Property _ Public Property c079() As String Get Try Return CType(Me(Me.tableExtReport.c079Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c079' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c079Column) = value End Set End Property _ Public Property c080() As String Get Try Return CType(Me(Me.tableExtReport.c080Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c080' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c080Column) = value End Set End Property _ Public Property c081() As String Get Try Return CType(Me(Me.tableExtReport.c081Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c081' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c081Column) = value End Set End Property _ Public Property c082() As String Get Try Return CType(Me(Me.tableExtReport.c082Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c082' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c082Column) = value End Set End Property _ Public Property c083() As String Get Try Return CType(Me(Me.tableExtReport.c083Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c083' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c083Column) = value End Set End Property _ Public Property c084() As String Get Try Return CType(Me(Me.tableExtReport.c084Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c084' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c084Column) = value End Set End Property _ Public Property c085() As String Get Try Return CType(Me(Me.tableExtReport.c085Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c085' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c085Column) = value End Set End Property _ Public Property c086() As String Get Try Return CType(Me(Me.tableExtReport.c086Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c086' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c086Column) = value End Set End Property _ Public Property c087() As String Get Try Return CType(Me(Me.tableExtReport.c087Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c087' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c087Column) = value End Set End Property _ Public Property c088() As String Get Try Return CType(Me(Me.tableExtReport.c088Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c088' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c088Column) = value End Set End Property _ Public Property c089() As String Get Try Return CType(Me(Me.tableExtReport.c089Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c089' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c089Column) = value End Set End Property _ Public Property c090() As String Get Try Return CType(Me(Me.tableExtReport.c090Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c090' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c090Column) = value End Set End Property _ Public Property c091() As String Get Try Return CType(Me(Me.tableExtReport.c091Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c091' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c091Column) = value End Set End Property _ Public Property c092() As String Get Try Return CType(Me(Me.tableExtReport.c092Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c092' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c092Column) = value End Set End Property _ Public Property c093() As String Get Try Return CType(Me(Me.tableExtReport.c093Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c093' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c093Column) = value End Set End Property _ Public Property c094() As String Get Try Return CType(Me(Me.tableExtReport.c094Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c094' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c094Column) = value End Set End Property _ Public Property c095() As String Get Try Return CType(Me(Me.tableExtReport.c095Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c095' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c095Column) = value End Set End Property _ Public Property c096() As String Get Try Return CType(Me(Me.tableExtReport.c096Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c096' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c096Column) = value End Set End Property _ Public Property c097() As String Get Try Return CType(Me(Me.tableExtReport.c097Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c097' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c097Column) = value End Set End Property _ Public Property c098() As String Get Try Return CType(Me(Me.tableExtReport.c098Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c098' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c098Column) = value End Set End Property _ Public Property c099() As String Get Try Return CType(Me(Me.tableExtReport.c099Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c099' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c099Column) = value End Set End Property _ Public Property c100() As String Get Try Return CType(Me(Me.tableExtReport.c100Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'ExtReport' 테이블의 'c100' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableExtReport.c100Column) = value End Set End Property _ Public Function Isc001Null() As Boolean Return Me.IsNull(Me.tableExtReport.c001Column) End Function _ Public Sub Setc001Null() Me(Me.tableExtReport.c001Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc002Null() As Boolean Return Me.IsNull(Me.tableExtReport.c002Column) End Function _ Public Sub Setc002Null() Me(Me.tableExtReport.c002Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc003Null() As Boolean Return Me.IsNull(Me.tableExtReport.c003Column) End Function _ Public Sub Setc003Null() Me(Me.tableExtReport.c003Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc004Null() As Boolean Return Me.IsNull(Me.tableExtReport.c004Column) End Function _ Public Sub Setc004Null() Me(Me.tableExtReport.c004Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc005Null() As Boolean Return Me.IsNull(Me.tableExtReport.c005Column) End Function _ Public Sub Setc005Null() Me(Me.tableExtReport.c005Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc006Null() As Boolean Return Me.IsNull(Me.tableExtReport.c006Column) End Function _ Public Sub Setc006Null() Me(Me.tableExtReport.c006Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc007Null() As Boolean Return Me.IsNull(Me.tableExtReport.c007Column) End Function _ Public Sub Setc007Null() Me(Me.tableExtReport.c007Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc008Null() As Boolean Return Me.IsNull(Me.tableExtReport.c008Column) End Function _ Public Sub Setc008Null() Me(Me.tableExtReport.c008Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc009Null() As Boolean Return Me.IsNull(Me.tableExtReport.c009Column) End Function _ Public Sub Setc009Null() Me(Me.tableExtReport.c009Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc010Null() As Boolean Return Me.IsNull(Me.tableExtReport.c010Column) End Function _ Public Sub Setc010Null() Me(Me.tableExtReport.c010Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc011Null() As Boolean Return Me.IsNull(Me.tableExtReport.c011Column) End Function _ Public Sub Setc011Null() Me(Me.tableExtReport.c011Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc012Null() As Boolean Return Me.IsNull(Me.tableExtReport.c012Column) End Function _ Public Sub Setc012Null() Me(Me.tableExtReport.c012Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc013Null() As Boolean Return Me.IsNull(Me.tableExtReport.c013Column) End Function _ Public Sub Setc013Null() Me(Me.tableExtReport.c013Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc014Null() As Boolean Return Me.IsNull(Me.tableExtReport.c014Column) End Function _ Public Sub Setc014Null() Me(Me.tableExtReport.c014Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc015Null() As Boolean Return Me.IsNull(Me.tableExtReport.c015Column) End Function _ Public Sub Setc015Null() Me(Me.tableExtReport.c015Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc016Null() As Boolean Return Me.IsNull(Me.tableExtReport.c016Column) End Function _ Public Sub Setc016Null() Me(Me.tableExtReport.c016Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc017Null() As Boolean Return Me.IsNull(Me.tableExtReport.c017Column) End Function _ Public Sub Setc017Null() Me(Me.tableExtReport.c017Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc018Null() As Boolean Return Me.IsNull(Me.tableExtReport.c018Column) End Function _ Public Sub Setc018Null() Me(Me.tableExtReport.c018Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc019Null() As Boolean Return Me.IsNull(Me.tableExtReport.c019Column) End Function _ Public Sub Setc019Null() Me(Me.tableExtReport.c019Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc020Null() As Boolean Return Me.IsNull(Me.tableExtReport.c020Column) End Function _ Public Sub Setc020Null() Me(Me.tableExtReport.c020Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc021Null() As Boolean Return Me.IsNull(Me.tableExtReport.c021Column) End Function _ Public Sub Setc021Null() Me(Me.tableExtReport.c021Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc022Null() As Boolean Return Me.IsNull(Me.tableExtReport.c022Column) End Function _ Public Sub Setc022Null() Me(Me.tableExtReport.c022Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc023Null() As Boolean Return Me.IsNull(Me.tableExtReport.c023Column) End Function _ Public Sub Setc023Null() Me(Me.tableExtReport.c023Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc024Null() As Boolean Return Me.IsNull(Me.tableExtReport.c024Column) End Function _ Public Sub Setc024Null() Me(Me.tableExtReport.c024Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc025Null() As Boolean Return Me.IsNull(Me.tableExtReport.c025Column) End Function _ Public Sub Setc025Null() Me(Me.tableExtReport.c025Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc026Null() As Boolean Return Me.IsNull(Me.tableExtReport.c026Column) End Function _ Public Sub Setc026Null() Me(Me.tableExtReport.c026Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc027Null() As Boolean Return Me.IsNull(Me.tableExtReport.c027Column) End Function _ Public Sub Setc027Null() Me(Me.tableExtReport.c027Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc028Null() As Boolean Return Me.IsNull(Me.tableExtReport.c028Column) End Function _ Public Sub Setc028Null() Me(Me.tableExtReport.c028Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc029Null() As Boolean Return Me.IsNull(Me.tableExtReport.c029Column) End Function _ Public Sub Setc029Null() Me(Me.tableExtReport.c029Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc030Null() As Boolean Return Me.IsNull(Me.tableExtReport.c030Column) End Function _ Public Sub Setc030Null() Me(Me.tableExtReport.c030Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc031Null() As Boolean Return Me.IsNull(Me.tableExtReport.c031Column) End Function _ Public Sub Setc031Null() Me(Me.tableExtReport.c031Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc032Null() As Boolean Return Me.IsNull(Me.tableExtReport.c032Column) End Function _ Public Sub Setc032Null() Me(Me.tableExtReport.c032Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc033Null() As Boolean Return Me.IsNull(Me.tableExtReport.c033Column) End Function _ Public Sub Setc033Null() Me(Me.tableExtReport.c033Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc034Null() As Boolean Return Me.IsNull(Me.tableExtReport.c034Column) End Function _ Public Sub Setc034Null() Me(Me.tableExtReport.c034Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc035Null() As Boolean Return Me.IsNull(Me.tableExtReport.c035Column) End Function _ Public Sub Setc035Null() Me(Me.tableExtReport.c035Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc036Null() As Boolean Return Me.IsNull(Me.tableExtReport.c036Column) End Function _ Public Sub Setc036Null() Me(Me.tableExtReport.c036Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc037Null() As Boolean Return Me.IsNull(Me.tableExtReport.c037Column) End Function _ Public Sub Setc037Null() Me(Me.tableExtReport.c037Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc038Null() As Boolean Return Me.IsNull(Me.tableExtReport.c038Column) End Function _ Public Sub Setc038Null() Me(Me.tableExtReport.c038Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc039Null() As Boolean Return Me.IsNull(Me.tableExtReport.c039Column) End Function _ Public Sub Setc039Null() Me(Me.tableExtReport.c039Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc040Null() As Boolean Return Me.IsNull(Me.tableExtReport.c040Column) End Function _ Public Sub Setc040Null() Me(Me.tableExtReport.c040Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc041Null() As Boolean Return Me.IsNull(Me.tableExtReport.c041Column) End Function _ Public Sub Setc041Null() Me(Me.tableExtReport.c041Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc042Null() As Boolean Return Me.IsNull(Me.tableExtReport.c042Column) End Function _ Public Sub Setc042Null() Me(Me.tableExtReport.c042Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc043Null() As Boolean Return Me.IsNull(Me.tableExtReport.c043Column) End Function _ Public Sub Setc043Null() Me(Me.tableExtReport.c043Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc044Null() As Boolean Return Me.IsNull(Me.tableExtReport.c044Column) End Function _ Public Sub Setc044Null() Me(Me.tableExtReport.c044Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc045Null() As Boolean Return Me.IsNull(Me.tableExtReport.c045Column) End Function _ Public Sub Setc045Null() Me(Me.tableExtReport.c045Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc046Null() As Boolean Return Me.IsNull(Me.tableExtReport.c046Column) End Function _ Public Sub Setc046Null() Me(Me.tableExtReport.c046Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc047Null() As Boolean Return Me.IsNull(Me.tableExtReport.c047Column) End Function _ Public Sub Setc047Null() Me(Me.tableExtReport.c047Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc048Null() As Boolean Return Me.IsNull(Me.tableExtReport.c048Column) End Function _ Public Sub Setc048Null() Me(Me.tableExtReport.c048Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc049Null() As Boolean Return Me.IsNull(Me.tableExtReport.c049Column) End Function _ Public Sub Setc049Null() Me(Me.tableExtReport.c049Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc050Null() As Boolean Return Me.IsNull(Me.tableExtReport.c050Column) End Function _ Public Sub Setc050Null() Me(Me.tableExtReport.c050Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc051Null() As Boolean Return Me.IsNull(Me.tableExtReport.c051Column) End Function _ Public Sub Setc051Null() Me(Me.tableExtReport.c051Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc052Null() As Boolean Return Me.IsNull(Me.tableExtReport.c052Column) End Function _ Public Sub Setc052Null() Me(Me.tableExtReport.c052Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc053Null() As Boolean Return Me.IsNull(Me.tableExtReport.c053Column) End Function _ Public Sub Setc053Null() Me(Me.tableExtReport.c053Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc054Null() As Boolean Return Me.IsNull(Me.tableExtReport.c054Column) End Function _ Public Sub Setc054Null() Me(Me.tableExtReport.c054Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc055Null() As Boolean Return Me.IsNull(Me.tableExtReport.c055Column) End Function _ Public Sub Setc055Null() Me(Me.tableExtReport.c055Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc056Null() As Boolean Return Me.IsNull(Me.tableExtReport.c056Column) End Function _ Public Sub Setc056Null() Me(Me.tableExtReport.c056Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc057Null() As Boolean Return Me.IsNull(Me.tableExtReport.c057Column) End Function _ Public Sub Setc057Null() Me(Me.tableExtReport.c057Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc058Null() As Boolean Return Me.IsNull(Me.tableExtReport.c058Column) End Function _ Public Sub Setc058Null() Me(Me.tableExtReport.c058Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc059Null() As Boolean Return Me.IsNull(Me.tableExtReport.c059Column) End Function _ Public Sub Setc059Null() Me(Me.tableExtReport.c059Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc060Null() As Boolean Return Me.IsNull(Me.tableExtReport.c060Column) End Function _ Public Sub Setc060Null() Me(Me.tableExtReport.c060Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc061Null() As Boolean Return Me.IsNull(Me.tableExtReport.c061Column) End Function _ Public Sub Setc061Null() Me(Me.tableExtReport.c061Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc062Null() As Boolean Return Me.IsNull(Me.tableExtReport.c062Column) End Function _ Public Sub Setc062Null() Me(Me.tableExtReport.c062Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc063Null() As Boolean Return Me.IsNull(Me.tableExtReport.c063Column) End Function _ Public Sub Setc063Null() Me(Me.tableExtReport.c063Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc064Null() As Boolean Return Me.IsNull(Me.tableExtReport.c064Column) End Function _ Public Sub Setc064Null() Me(Me.tableExtReport.c064Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc065Null() As Boolean Return Me.IsNull(Me.tableExtReport.c065Column) End Function _ Public Sub Setc065Null() Me(Me.tableExtReport.c065Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc066Null() As Boolean Return Me.IsNull(Me.tableExtReport.c066Column) End Function _ Public Sub Setc066Null() Me(Me.tableExtReport.c066Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc067Null() As Boolean Return Me.IsNull(Me.tableExtReport.c067Column) End Function _ Public Sub Setc067Null() Me(Me.tableExtReport.c067Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc068Null() As Boolean Return Me.IsNull(Me.tableExtReport.c068Column) End Function _ Public Sub Setc068Null() Me(Me.tableExtReport.c068Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc069Null() As Boolean Return Me.IsNull(Me.tableExtReport.c069Column) End Function _ Public Sub Setc069Null() Me(Me.tableExtReport.c069Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc070Null() As Boolean Return Me.IsNull(Me.tableExtReport.c070Column) End Function _ Public Sub Setc070Null() Me(Me.tableExtReport.c070Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc071Null() As Boolean Return Me.IsNull(Me.tableExtReport.c071Column) End Function _ Public Sub Setc071Null() Me(Me.tableExtReport.c071Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc072Null() As Boolean Return Me.IsNull(Me.tableExtReport.c072Column) End Function _ Public Sub Setc072Null() Me(Me.tableExtReport.c072Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc073Null() As Boolean Return Me.IsNull(Me.tableExtReport.c073Column) End Function _ Public Sub Setc073Null() Me(Me.tableExtReport.c073Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc074Null() As Boolean Return Me.IsNull(Me.tableExtReport.c074Column) End Function _ Public Sub Setc074Null() Me(Me.tableExtReport.c074Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc075Null() As Boolean Return Me.IsNull(Me.tableExtReport.c075Column) End Function _ Public Sub Setc075Null() Me(Me.tableExtReport.c075Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc076Null() As Boolean Return Me.IsNull(Me.tableExtReport.c076Column) End Function _ Public Sub Setc076Null() Me(Me.tableExtReport.c076Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc077Null() As Boolean Return Me.IsNull(Me.tableExtReport.c077Column) End Function _ Public Sub Setc077Null() Me(Me.tableExtReport.c077Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc078Null() As Boolean Return Me.IsNull(Me.tableExtReport.c078Column) End Function _ Public Sub Setc078Null() Me(Me.tableExtReport.c078Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc079Null() As Boolean Return Me.IsNull(Me.tableExtReport.c079Column) End Function _ Public Sub Setc079Null() Me(Me.tableExtReport.c079Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc080Null() As Boolean Return Me.IsNull(Me.tableExtReport.c080Column) End Function _ Public Sub Setc080Null() Me(Me.tableExtReport.c080Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc081Null() As Boolean Return Me.IsNull(Me.tableExtReport.c081Column) End Function _ Public Sub Setc081Null() Me(Me.tableExtReport.c081Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc082Null() As Boolean Return Me.IsNull(Me.tableExtReport.c082Column) End Function _ Public Sub Setc082Null() Me(Me.tableExtReport.c082Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc083Null() As Boolean Return Me.IsNull(Me.tableExtReport.c083Column) End Function _ Public Sub Setc083Null() Me(Me.tableExtReport.c083Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc084Null() As Boolean Return Me.IsNull(Me.tableExtReport.c084Column) End Function _ Public Sub Setc084Null() Me(Me.tableExtReport.c084Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc085Null() As Boolean Return Me.IsNull(Me.tableExtReport.c085Column) End Function _ Public Sub Setc085Null() Me(Me.tableExtReport.c085Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc086Null() As Boolean Return Me.IsNull(Me.tableExtReport.c086Column) End Function _ Public Sub Setc086Null() Me(Me.tableExtReport.c086Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc087Null() As Boolean Return Me.IsNull(Me.tableExtReport.c087Column) End Function _ Public Sub Setc087Null() Me(Me.tableExtReport.c087Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc088Null() As Boolean Return Me.IsNull(Me.tableExtReport.c088Column) End Function _ Public Sub Setc088Null() Me(Me.tableExtReport.c088Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc089Null() As Boolean Return Me.IsNull(Me.tableExtReport.c089Column) End Function _ Public Sub Setc089Null() Me(Me.tableExtReport.c089Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc090Null() As Boolean Return Me.IsNull(Me.tableExtReport.c090Column) End Function _ Public Sub Setc090Null() Me(Me.tableExtReport.c090Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc091Null() As Boolean Return Me.IsNull(Me.tableExtReport.c091Column) End Function _ Public Sub Setc091Null() Me(Me.tableExtReport.c091Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc092Null() As Boolean Return Me.IsNull(Me.tableExtReport.c092Column) End Function _ Public Sub Setc092Null() Me(Me.tableExtReport.c092Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc093Null() As Boolean Return Me.IsNull(Me.tableExtReport.c093Column) End Function _ Public Sub Setc093Null() Me(Me.tableExtReport.c093Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc094Null() As Boolean Return Me.IsNull(Me.tableExtReport.c094Column) End Function _ Public Sub Setc094Null() Me(Me.tableExtReport.c094Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc095Null() As Boolean Return Me.IsNull(Me.tableExtReport.c095Column) End Function _ Public Sub Setc095Null() Me(Me.tableExtReport.c095Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc096Null() As Boolean Return Me.IsNull(Me.tableExtReport.c096Column) End Function _ Public Sub Setc096Null() Me(Me.tableExtReport.c096Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc097Null() As Boolean Return Me.IsNull(Me.tableExtReport.c097Column) End Function _ Public Sub Setc097Null() Me(Me.tableExtReport.c097Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc098Null() As Boolean Return Me.IsNull(Me.tableExtReport.c098Column) End Function _ Public Sub Setc098Null() Me(Me.tableExtReport.c098Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc099Null() As Boolean Return Me.IsNull(Me.tableExtReport.c099Column) End Function _ Public Sub Setc099Null() Me(Me.tableExtReport.c099Column) = Global.System.Convert.DBNull End Sub _ Public Function Isc100Null() As Boolean Return Me.IsNull(Me.tableExtReport.c100Column) End Function _ Public Sub Setc100Null() Me(Me.tableExtReport.c100Column) = 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 ''' '''Row event argument class ''' _ Public Class ExtReportRowChangeEvent Inherits Global.System.EventArgs Private eventRow As ExtReportRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As ExtReportRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As ExtReportRow 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