This commit is contained in:
raytrace
2021-10-24 00:11:34 +09:00
parent 4fd77f0bb5
commit e530774e0b
18 changed files with 3916 additions and 3247 deletions

View File

@@ -4541,6 +4541,8 @@ Partial Public Class DSR
Private column전력태양광 As Global.System.Data.DataColumn
Private column전력태양광offsite As Global.System.Data.DataColumn
Private column전력열병합 As Global.System.Data.DataColumn
Private column생산량태양열 As Global.System.Data.DataColumn
@@ -4606,6 +4608,14 @@ Partial Public Class DSR
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public ReadOnly Property 전력태양광offsiteColumn() As Global.System.Data.DataColumn
Get
Return Me.column전력태양광offsite
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public ReadOnly Property 전력열병합Column() As Global.System.Data.DataColumn
@@ -4699,9 +4709,9 @@ Partial Public Class DSR
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
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
Public Overloads Function Add생산에너지Row(ByVal mon As String, ByVal 전력태양광 As String, ByVal 전력태양광offsite As String, ByVal 전력열병합 As String, ByVal 생산량태양열 As String, ByVal 생산량지열 As String, ByVal 면적당생산량태양열 As Decimal, ByVal 면적당생산량지열 As Decimal, ByVal 신재생열병합전력생산량 As String, ByVal 신재생면적당열생산량 As String) As 생산에너지Row
Dim row생산에너지Row As 생산에너지Row = CType(Me.NewRow,생산에너지Row)
Dim columnValuesArray() As Object = New Object() {mon, 전력태양광, 전력열병합, 생산량태양열, 생산량지열, 면적당생산량태양열, 면적당생산량지열, 신재생열병합전력생산량, 신재생면적당열생산량}
Dim columnValuesArray() As Object = New Object() {mon, 전력태양광, 전력태양광offsite, 전력열병합, 생산량태양열, 생산량지열, 면적당생산량태양열, 면적당생산량지열, 신재생열병합전력생산량, 신재생면적당열생산량}
row생산에너지Row.ItemArray = columnValuesArray
Me.Rows.Add(row생산에너지Row)
Return row생산에너지Row
@@ -4726,6 +4736,7 @@ Partial Public Class DSR
Friend Sub InitVars()
Me.columnmon = MyBase.Columns("mon")
Me.column전력태양광 = MyBase.Columns("전력태양광")
Me.column전력태양광offsite = MyBase.Columns("전력태양광offsite")
Me.column전력열병합 = MyBase.Columns("전력열병합")
Me.column생산량태양열 = MyBase.Columns("생산량태양열")
Me.column생산량지열 = MyBase.Columns("생산량지열")
@@ -4742,6 +4753,8 @@ Partial Public Class DSR
MyBase.Columns.Add(Me.columnmon)
Me.column전력태양광 = New Global.System.Data.DataColumn("전력태양광", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column전력태양광)
Me.column전력태양광offsite = New Global.System.Data.DataColumn("전력태양광offsite", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column전력태양광offsite)
Me.column전력열병합 = New Global.System.Data.DataColumn("전력열병합", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column전력열병합)
Me.column생산량태양열 = New Global.System.Data.DataColumn("생산량태양열", GetType(String), Nothing, Global.System.Data.MappingType.Element)
@@ -4758,6 +4771,7 @@ Partial Public Class DSR
MyBase.Columns.Add(Me.column신재생면적당열생산량)
Me.column전력태양광.Caption = "에너지요구량"
Me.column전력태양광.DefaultValue = CType("0",String)
Me.column전력태양광offsite.DefaultValue = CType("0",String)
Me.column전력열병합.Caption = "단위면적당요구량"
Me.column전력열병합.DefaultValue = CType("0",String)
Me.column생산량태양열.Caption = "난방에너지요구량열"
@@ -10902,17 +10916,32 @@ Partial Public Class DSR
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property 전력태양광() As String
Get
Try
If Me.Is전력태양광Null Then
Return "0"
Else
Return CType(Me(Me.table생산에너지.전력태양광Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'생산에너지' 테이블의 '전력태양광' 열의 값이 DBNull입니다.", e)
End Try
End If
End Get
Set
Me(Me.table생산에너지.전력태양광Column) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property 전력태양광offsite() As String
Get
If Me.Is전력태양광offsiteNull Then
Return "0"
Else
Return CType(Me(Me.table생산에너지.전력태양광offsiteColumn),String)
End If
End Get
Set
Me(Me.table생산에너지.전력태양광offsiteColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property 전력열병합() As String
@@ -11042,6 +11071,18 @@ Partial Public Class DSR
Me(Me.table생산에너지.전력태양광Column) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Function Is전력태양광offsiteNull() As Boolean
Return Me.IsNull(Me.table생산에너지.전력태양광offsiteColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Sub Set전력태양광offsiteNull()
Me(Me.table생산에너지.전력태양광offsiteColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Function Is전력열병합Null() As Boolean