4837 lines
333 KiB
VB.net
4837 lines
333 KiB
VB.net
'------------------------------------------------------------------------------
|
|
' <auto-generated>
|
|
' 이 코드는 도구를 사용하여 생성되었습니다.
|
|
' 런타임 버전:2.0.50727.3615
|
|
'
|
|
' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면
|
|
' 이러한 변경 내용이 손실됩니다.
|
|
' </auto-generated>
|
|
'------------------------------------------------------------------------------
|
|
|
|
Option Strict Off
|
|
Option Explicit On
|
|
|
|
|
|
|
|
'''<summary>
|
|
'''Represents a strongly typed in-memory cache of data.
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), _
|
|
Global.System.Serializable(), _
|
|
Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
|
|
Global.System.Xml.Serialization.XmlRootAttribute("eco2DataSet"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
|
|
Partial Public Class eco2DataSet
|
|
Inherits Global.System.Data.DataSet
|
|
|
|
Private tabletbl_profile As tbl_profileDataTable
|
|
|
|
Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
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("tbl_profile")) Is Nothing) Then
|
|
MyBase.Tables.Add(New tbl_profileDataTable(ds.Tables("tbl_profile")))
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property tbl_profile() As tbl_profileDataTable
|
|
Get
|
|
Return Me.tabletbl_profile
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.BrowsableAttribute(true), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
|
|
Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
|
|
Get
|
|
Return Me._schemaSerializationMode
|
|
End Get
|
|
Set
|
|
Me._schemaSerializationMode = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
|
|
Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
|
|
Get
|
|
Return MyBase.Tables
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
|
|
Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
|
|
Get
|
|
Return MyBase.Relations
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Protected Overrides Sub InitializeDerivedDataSet()
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataSet
|
|
Dim cln As eco2DataSet = CType(MyBase.Clone,eco2DataSet)
|
|
cln.InitVars
|
|
cln.SchemaSerializationMode = Me.SchemaSerializationMode
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Protected Overrides Function ShouldSerializeTables() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Protected Overrides Function ShouldSerializeRelations() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
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("tbl_profile")) Is Nothing) Then
|
|
MyBase.Tables.Add(New tbl_profileDataTable(ds.Tables("tbl_profile")))
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Friend Overloads Sub InitVars()
|
|
Me.InitVars(true)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Friend Overloads Sub InitVars(ByVal initTable As Boolean)
|
|
Me.tabletbl_profile = CType(MyBase.Tables("tbl_profile"),tbl_profileDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tabletbl_profile) Is Nothing) Then
|
|
Me.tabletbl_profile.InitVars
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Private Sub InitClass()
|
|
Me.DataSetName = "eco2DataSet"
|
|
Me.Prefix = ""
|
|
Me.Namespace = "http://tempuri.org/eco2DataSet.xsd"
|
|
Me.EnforceConstraints = true
|
|
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
|
|
Me.tabletbl_profile = New tbl_profileDataTable
|
|
MyBase.Tables.Add(Me.tabletbl_profile)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Private Function ShouldSerializetbl_profile() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim ds As eco2DataSet = New eco2DataSet
|
|
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 tbl_profileRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_profileRowChangeEvent)
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), _
|
|
Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class tbl_profileDataTable
|
|
Inherits Global.System.Data.DataTable
|
|
Implements Global.System.Collections.IEnumerable
|
|
|
|
Private columncode 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
|
|
|
|
Private column최소설정온도난방 As Global.System.Data.DataColumn
|
|
|
|
Private column최소설정온도냉방 As Global.System.Data.DataColumn
|
|
|
|
Private column외기온도난방 As Global.System.Data.DataColumn
|
|
|
|
Private column외기온도냉방7월 As Global.System.Data.DataColumn
|
|
|
|
Private column외기온도냉방9월 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 columnday01 As Global.System.Data.DataColumn
|
|
|
|
Private columnday02 As Global.System.Data.DataColumn
|
|
|
|
Private columnday03 As Global.System.Data.DataColumn
|
|
|
|
Private columnday04 As Global.System.Data.DataColumn
|
|
|
|
Private columnday05 As Global.System.Data.DataColumn
|
|
|
|
Private columnday06 As Global.System.Data.DataColumn
|
|
|
|
Private columnday07 As Global.System.Data.DataColumn
|
|
|
|
Private columnday08 As Global.System.Data.DataColumn
|
|
|
|
Private columnday09 As Global.System.Data.DataColumn
|
|
|
|
Private columnday10 As Global.System.Data.DataColumn
|
|
|
|
Private columnday11 As Global.System.Data.DataColumn
|
|
|
|
Private columnday12 As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "tbl_profile"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property codeColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columncode
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 설명Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column설명
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 일일급탕요구량Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column일일급탕요구량
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 사용시작시간Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column사용시작시간
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 사용종료시간Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column사용종료시간
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 일일사용시간Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column일일사용시간
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 운전시작시간Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column운전시작시간
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 운전종료시간Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column운전종료시간
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 운전시간난방Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column운전시간난방
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 연간사용일수Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column연간사용일수
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 연간사용시간주간Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column연간사용시간주간
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 연간사용시간야간Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column연간사용시간야간
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 일일운전시간Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column일일운전시간
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 연간운전일수Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column연간운전일수
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 요구조도Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column요구조도
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 작업면높이Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column작업면높이
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 감소계수Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column감소계수
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 부재율Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column부재율
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 실지수Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column실지수
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 최소도입외기량Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column최소도입외기량
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 축소운전시최소도입외기량Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column축소운전시최소도입외기량
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 사람Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column사람
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 작업보조기기Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column작업보조기기
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 난방설정온도Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column난방설정온도
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 냉방설정온도Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column냉방설정온도
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 야간최저허용온도Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column야간최저허용온도
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 주말최저허용온도Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column주말최저허용온도
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 최소설정온도난방Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column최소설정온도난방
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 최소설정온도냉방Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column최소설정온도냉방
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 외기온도난방Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column외기온도난방
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 외기온도냉방7월Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column외기온도냉방7월
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 외기온도냉방9월Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column외기온도냉방9월
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 차감계수Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column차감계수
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 오염계수Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column오염계수
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property 부분운전계수Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.column부분운전계수
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property day01Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnday01
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property day02Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnday02
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property day03Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnday03
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property day04Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnday04
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property day05Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnday05
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property day06Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnday06
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property day07Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnday07
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property day08Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnday08
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property day09Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnday09
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property day10Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnday10
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property day11Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnday11
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property day12Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnday12
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_profileRow
|
|
Get
|
|
Return CType(Me.Rows(index),tbl_profileRow)
|
|
End Get
|
|
End Property
|
|
|
|
Public Event tbl_profileRowChanging As tbl_profileRowChangeEventHandler
|
|
|
|
Public Event tbl_profileRowChanged As tbl_profileRowChangeEventHandler
|
|
|
|
Public Event tbl_profileRowDeleting As tbl_profileRowChangeEventHandler
|
|
|
|
Public Event tbl_profileRowDeleted As tbl_profileRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Overloads Sub Addtbl_profileRow(ByVal row As tbl_profileRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Overloads Function Addtbl_profileRow( _
|
|
ByVal code 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, _
|
|
ByVal 최소설정온도난방 As String, _
|
|
ByVal 최소설정온도냉방 As String, _
|
|
ByVal 외기온도난방 As String, _
|
|
ByVal 외기온도냉방7월 As String, _
|
|
ByVal 외기온도냉방9월 As String, _
|
|
ByVal 차감계수 As String, _
|
|
ByVal 오염계수 As String, _
|
|
ByVal 부분운전계수 As String, _
|
|
ByVal day01 As String, _
|
|
ByVal day02 As String, _
|
|
ByVal day03 As String, _
|
|
ByVal day04 As String, _
|
|
ByVal day05 As String, _
|
|
ByVal day06 As String, _
|
|
ByVal day07 As String, _
|
|
ByVal day08 As String, _
|
|
ByVal day09 As String, _
|
|
ByVal day10 As String, _
|
|
ByVal day11 As String, _
|
|
ByVal day12 As String) As tbl_profileRow
|
|
Dim rowtbl_profileRow As tbl_profileRow = CType(Me.NewRow,tbl_profileRow)
|
|
Dim columnValuesArray() As Object = New Object() {code, 설명, 일일급탕요구량, 사용시작시간, 사용종료시간, 일일사용시간, 운전시작시간, 운전종료시간, 운전시간난방, 연간사용일수, 연간사용시간주간, 연간사용시간야간, 일일운전시간, 연간운전일수, 요구조도, 작업면높이, 감소계수, 부재율, 실지수, 최소도입외기량, 축소운전시최소도입외기량, 사람, 작업보조기기, 난방설정온도, 냉방설정온도, 야간최저허용온도, 주말최저허용온도, 최소설정온도난방, 최소설정온도냉방, 외기온도난방, 외기온도냉방7월, 외기온도냉방9월, 차감계수, 오염계수, 부분운전계수, day01, day02, day03, day04, day05, day06, day07, day08, day09, day10, day11, day12}
|
|
rowtbl_profileRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowtbl_profileRow)
|
|
Return rowtbl_profileRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function FindBycode(ByVal code As String) As tbl_profileRow
|
|
Return CType(Me.Rows.Find(New Object() {code}),tbl_profileRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Overridable Function GetEnumerator() As Global.System.Collections.IEnumerator Implements Global.System.Collections.IEnumerable.GetEnumerator
|
|
Return Me.Rows.GetEnumerator
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As tbl_profileDataTable = CType(MyBase.Clone,tbl_profileDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New tbl_profileDataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Friend Sub InitVars()
|
|
Me.columncode = MyBase.Columns("code")
|
|
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("주말최저허용온도")
|
|
Me.column최소설정온도난방 = MyBase.Columns("최소설정온도난방")
|
|
Me.column최소설정온도냉방 = MyBase.Columns("최소설정온도냉방")
|
|
Me.column외기온도난방 = MyBase.Columns("외기온도난방")
|
|
Me.column외기온도냉방7월 = MyBase.Columns("외기온도냉방7월")
|
|
Me.column외기온도냉방9월 = MyBase.Columns("외기온도냉방9월")
|
|
Me.column차감계수 = MyBase.Columns("차감계수")
|
|
Me.column오염계수 = MyBase.Columns("오염계수")
|
|
Me.column부분운전계수 = MyBase.Columns("부분운전계수")
|
|
Me.columnday01 = MyBase.Columns("day01")
|
|
Me.columnday02 = MyBase.Columns("day02")
|
|
Me.columnday03 = MyBase.Columns("day03")
|
|
Me.columnday04 = MyBase.Columns("day04")
|
|
Me.columnday05 = MyBase.Columns("day05")
|
|
Me.columnday06 = MyBase.Columns("day06")
|
|
Me.columnday07 = MyBase.Columns("day07")
|
|
Me.columnday08 = MyBase.Columns("day08")
|
|
Me.columnday09 = MyBase.Columns("day09")
|
|
Me.columnday10 = MyBase.Columns("day10")
|
|
Me.columnday11 = MyBase.Columns("day11")
|
|
Me.columnday12 = MyBase.Columns("day12")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
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.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최소설정온도난방 = 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외기온도냉방7월 = New Global.System.Data.DataColumn("외기온도냉방7월", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.column외기온도냉방7월)
|
|
Me.column외기온도냉방9월 = New Global.System.Data.DataColumn("외기온도냉방9월", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.column외기온도냉방9월)
|
|
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.columnday01 = New Global.System.Data.DataColumn("day01", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnday01)
|
|
Me.columnday02 = New Global.System.Data.DataColumn("day02", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnday02)
|
|
Me.columnday03 = New Global.System.Data.DataColumn("day03", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnday03)
|
|
Me.columnday04 = New Global.System.Data.DataColumn("day04", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnday04)
|
|
Me.columnday05 = New Global.System.Data.DataColumn("day05", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnday05)
|
|
Me.columnday06 = New Global.System.Data.DataColumn("day06", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnday06)
|
|
Me.columnday07 = New Global.System.Data.DataColumn("day07", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnday07)
|
|
Me.columnday08 = New Global.System.Data.DataColumn("day08", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnday08)
|
|
Me.columnday09 = New Global.System.Data.DataColumn("day09", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnday09)
|
|
Me.columnday10 = New Global.System.Data.DataColumn("day10", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnday10)
|
|
Me.columnday11 = New Global.System.Data.DataColumn("day11", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnday11)
|
|
Me.columnday12 = New Global.System.Data.DataColumn("day12", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnday12)
|
|
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.columncode.MaxLength = 10
|
|
Me.column설명.MaxLength = 60
|
|
Me.column일일급탕요구량.MaxLength = 20
|
|
Me.column사용시작시간.MaxLength = 20
|
|
Me.column사용종료시간.MaxLength = 20
|
|
Me.column일일사용시간.MaxLength = 20
|
|
Me.column운전시작시간.MaxLength = 20
|
|
Me.column운전종료시간.MaxLength = 20
|
|
Me.column운전시간난방.MaxLength = 20
|
|
Me.column연간사용일수.MaxLength = 20
|
|
Me.column연간사용시간주간.MaxLength = 20
|
|
Me.column연간사용시간야간.MaxLength = 20
|
|
Me.column일일운전시간.MaxLength = 20
|
|
Me.column연간운전일수.MaxLength = 20
|
|
Me.column요구조도.MaxLength = 20
|
|
Me.column작업면높이.MaxLength = 20
|
|
Me.column감소계수.MaxLength = 20
|
|
Me.column부재율.MaxLength = 20
|
|
Me.column실지수.MaxLength = 20
|
|
Me.column최소도입외기량.MaxLength = 20
|
|
Me.column축소운전시최소도입외기량.MaxLength = 20
|
|
Me.column사람.MaxLength = 20
|
|
Me.column작업보조기기.MaxLength = 20
|
|
Me.column난방설정온도.MaxLength = 20
|
|
Me.column냉방설정온도.MaxLength = 20
|
|
Me.column야간최저허용온도.MaxLength = 20
|
|
Me.column주말최저허용온도.MaxLength = 20
|
|
Me.column최소설정온도난방.MaxLength = 20
|
|
Me.column최소설정온도냉방.MaxLength = 20
|
|
Me.column외기온도난방.MaxLength = 20
|
|
Me.column외기온도냉방7월.MaxLength = 20
|
|
Me.column외기온도냉방9월.MaxLength = 20
|
|
Me.column차감계수.MaxLength = 20
|
|
Me.column오염계수.MaxLength = 20
|
|
Me.column부분운전계수.MaxLength = 20
|
|
Me.columnday01.MaxLength = 20
|
|
Me.columnday02.MaxLength = 20
|
|
Me.columnday03.MaxLength = 20
|
|
Me.columnday04.MaxLength = 20
|
|
Me.columnday05.MaxLength = 20
|
|
Me.columnday06.MaxLength = 20
|
|
Me.columnday07.MaxLength = 20
|
|
Me.columnday08.MaxLength = 20
|
|
Me.columnday09.MaxLength = 20
|
|
Me.columnday10.MaxLength = 20
|
|
Me.columnday11.MaxLength = 20
|
|
Me.columnday12.MaxLength = 20
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Newtbl_profileRow() As tbl_profileRow
|
|
Return CType(Me.NewRow,tbl_profileRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New tbl_profileRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(tbl_profileRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.tbl_profileRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent tbl_profileRowChanged(Me, New tbl_profileRowChangeEvent(CType(e.Row,tbl_profileRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.tbl_profileRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent tbl_profileRowChanging(Me, New tbl_profileRowChangeEvent(CType(e.Row,tbl_profileRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.tbl_profileRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent tbl_profileRowDeleted(Me, New tbl_profileRowChangeEvent(CType(e.Row,tbl_profileRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.tbl_profileRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent tbl_profileRowDeleting(Me, New tbl_profileRowChangeEvent(CType(e.Row,tbl_profileRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Removetbl_profileRow(ByVal row As tbl_profileRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
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 eco2DataSet = New eco2DataSet
|
|
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 = "tbl_profileDataTable"
|
|
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
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
|
|
Partial Public Class tbl_profileRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tabletbl_profile As tbl_profileDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tabletbl_profile = CType(Me.Table,tbl_profileDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property code() As String
|
|
Get
|
|
Return CType(Me(Me.tabletbl_profile.codeColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.codeColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 설명() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.설명Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '설명' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.설명Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 일일급탕요구량() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.일일급탕요구량Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '일일급탕요구량' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.일일급탕요구량Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 사용시작시간() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.사용시작시간Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '사용시작시간' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.사용시작시간Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 사용종료시간() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.사용종료시간Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '사용종료시간' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.사용종료시간Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 일일사용시간() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.일일사용시간Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '일일사용시간' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.일일사용시간Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 운전시작시간() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.운전시작시간Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '운전시작시간' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.운전시작시간Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 운전종료시간() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.운전종료시간Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '운전종료시간' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.운전종료시간Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 운전시간난방() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.운전시간난방Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '운전시간난방' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.운전시간난방Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 연간사용일수() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.연간사용일수Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '연간사용일수' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.연간사용일수Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 연간사용시간주간() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.연간사용시간주간Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '연간사용시간주간' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.연간사용시간주간Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 연간사용시간야간() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.연간사용시간야간Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '연간사용시간야간' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.연간사용시간야간Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 일일운전시간() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.일일운전시간Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '일일운전시간' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.일일운전시간Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 연간운전일수() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.연간운전일수Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '연간운전일수' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.연간운전일수Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 요구조도() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.요구조도Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '요구조도' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.요구조도Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 작업면높이() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.작업면높이Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '작업면높이' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.작업면높이Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 감소계수() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.감소계수Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '감소계수' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.감소계수Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 부재율() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.부재율Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '부재율' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.부재율Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 실지수() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.실지수Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '실지수' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.실지수Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 최소도입외기량() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.최소도입외기량Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '최소도입외기량' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.최소도입외기량Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 축소운전시최소도입외기량() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.축소운전시최소도입외기량Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '축소운전시최소도입외기량' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.축소운전시최소도입외기량Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 사람() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.사람Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '사람' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.사람Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 작업보조기기() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.작업보조기기Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '작업보조기기' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.작업보조기기Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 난방설정온도() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.난방설정온도Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '난방설정온도' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.난방설정온도Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 냉방설정온도() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.냉방설정온도Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '냉방설정온도' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.냉방설정온도Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 야간최저허용온도() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.야간최저허용온도Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '야간최저허용온도' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.야간최저허용온도Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 주말최저허용온도() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.주말최저허용온도Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '주말최저허용온도' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.주말최저허용온도Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 최소설정온도난방() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.최소설정온도난방Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '최소설정온도난방' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.최소설정온도난방Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 최소설정온도냉방() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.최소설정온도냉방Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '최소설정온도냉방' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.최소설정온도냉방Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 외기온도난방() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.외기온도난방Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '외기온도난방' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.외기온도난방Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 외기온도냉방7월() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.외기온도냉방7월Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '외기온도냉방7월' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.외기온도냉방7월Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 외기온도냉방9월() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.외기온도냉방9월Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '외기온도냉방9월' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.외기온도냉방9월Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 차감계수() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.차감계수Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '차감계수' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.차감계수Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 오염계수() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.오염계수Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '오염계수' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.오염계수Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property 부분운전계수() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.부분운전계수Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '부분운전계수' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.부분운전계수Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property day01() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.day01Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 'day01' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.day01Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property day02() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.day02Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 'day02' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.day02Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property day03() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.day03Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 'day03' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.day03Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property day04() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.day04Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 'day04' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.day04Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property day05() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.day05Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 'day05' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.day05Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property day06() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.day06Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 'day06' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.day06Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property day07() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.day07Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 'day07' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.day07Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property day08() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.day08Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 'day08' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.day08Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property day09() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.day09Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 'day09' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.day09Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property day10() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.day10Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 'day10' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.day10Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property day11() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.day11Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 'day11' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.day11Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property day12() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tabletbl_profile.day12Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 'day12' 열의 값이 DBNull입니다.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tabletbl_profile.day12Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is설명Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.설명Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set설명Null()
|
|
Me(Me.tabletbl_profile.설명Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is일일급탕요구량Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.일일급탕요구량Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set일일급탕요구량Null()
|
|
Me(Me.tabletbl_profile.일일급탕요구량Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is사용시작시간Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.사용시작시간Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set사용시작시간Null()
|
|
Me(Me.tabletbl_profile.사용시작시간Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is사용종료시간Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.사용종료시간Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set사용종료시간Null()
|
|
Me(Me.tabletbl_profile.사용종료시간Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is일일사용시간Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.일일사용시간Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set일일사용시간Null()
|
|
Me(Me.tabletbl_profile.일일사용시간Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is운전시작시간Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.운전시작시간Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set운전시작시간Null()
|
|
Me(Me.tabletbl_profile.운전시작시간Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is운전종료시간Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.운전종료시간Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set운전종료시간Null()
|
|
Me(Me.tabletbl_profile.운전종료시간Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is운전시간난방Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.운전시간난방Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set운전시간난방Null()
|
|
Me(Me.tabletbl_profile.운전시간난방Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is연간사용일수Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.연간사용일수Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set연간사용일수Null()
|
|
Me(Me.tabletbl_profile.연간사용일수Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is연간사용시간주간Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.연간사용시간주간Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set연간사용시간주간Null()
|
|
Me(Me.tabletbl_profile.연간사용시간주간Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is연간사용시간야간Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.연간사용시간야간Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set연간사용시간야간Null()
|
|
Me(Me.tabletbl_profile.연간사용시간야간Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is일일운전시간Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.일일운전시간Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set일일운전시간Null()
|
|
Me(Me.tabletbl_profile.일일운전시간Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is연간운전일수Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.연간운전일수Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set연간운전일수Null()
|
|
Me(Me.tabletbl_profile.연간운전일수Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is요구조도Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.요구조도Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set요구조도Null()
|
|
Me(Me.tabletbl_profile.요구조도Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is작업면높이Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.작업면높이Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set작업면높이Null()
|
|
Me(Me.tabletbl_profile.작업면높이Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is감소계수Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.감소계수Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set감소계수Null()
|
|
Me(Me.tabletbl_profile.감소계수Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is부재율Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.부재율Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set부재율Null()
|
|
Me(Me.tabletbl_profile.부재율Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is실지수Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.실지수Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set실지수Null()
|
|
Me(Me.tabletbl_profile.실지수Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is최소도입외기량Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.최소도입외기량Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set최소도입외기량Null()
|
|
Me(Me.tabletbl_profile.최소도입외기량Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is축소운전시최소도입외기량Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.축소운전시최소도입외기량Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set축소운전시최소도입외기량Null()
|
|
Me(Me.tabletbl_profile.축소운전시최소도입외기량Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is사람Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.사람Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set사람Null()
|
|
Me(Me.tabletbl_profile.사람Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is작업보조기기Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.작업보조기기Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set작업보조기기Null()
|
|
Me(Me.tabletbl_profile.작업보조기기Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is난방설정온도Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.난방설정온도Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set난방설정온도Null()
|
|
Me(Me.tabletbl_profile.난방설정온도Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is냉방설정온도Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.냉방설정온도Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set냉방설정온도Null()
|
|
Me(Me.tabletbl_profile.냉방설정온도Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is야간최저허용온도Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.야간최저허용온도Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set야간최저허용온도Null()
|
|
Me(Me.tabletbl_profile.야간최저허용온도Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is주말최저허용온도Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.주말최저허용온도Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set주말최저허용온도Null()
|
|
Me(Me.tabletbl_profile.주말최저허용온도Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is최소설정온도난방Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.최소설정온도난방Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set최소설정온도난방Null()
|
|
Me(Me.tabletbl_profile.최소설정온도난방Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is최소설정온도냉방Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.최소설정온도냉방Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set최소설정온도냉방Null()
|
|
Me(Me.tabletbl_profile.최소설정온도냉방Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is외기온도난방Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.외기온도난방Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set외기온도난방Null()
|
|
Me(Me.tabletbl_profile.외기온도난방Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is외기온도냉방7월Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.외기온도냉방7월Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set외기온도냉방7월Null()
|
|
Me(Me.tabletbl_profile.외기온도냉방7월Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is외기온도냉방9월Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.외기온도냉방9월Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set외기온도냉방9월Null()
|
|
Me(Me.tabletbl_profile.외기온도냉방9월Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is차감계수Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.차감계수Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set차감계수Null()
|
|
Me(Me.tabletbl_profile.차감계수Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is오염계수Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.오염계수Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set오염계수Null()
|
|
Me(Me.tabletbl_profile.오염계수Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Is부분운전계수Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.부분운전계수Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Set부분운전계수Null()
|
|
Me(Me.tabletbl_profile.부분운전계수Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Isday01Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.day01Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Setday01Null()
|
|
Me(Me.tabletbl_profile.day01Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Isday02Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.day02Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Setday02Null()
|
|
Me(Me.tabletbl_profile.day02Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Isday03Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.day03Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Setday03Null()
|
|
Me(Me.tabletbl_profile.day03Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Isday04Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.day04Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Setday04Null()
|
|
Me(Me.tabletbl_profile.day04Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Isday05Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.day05Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Setday05Null()
|
|
Me(Me.tabletbl_profile.day05Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Isday06Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.day06Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Setday06Null()
|
|
Me(Me.tabletbl_profile.day06Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Isday07Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.day07Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Setday07Null()
|
|
Me(Me.tabletbl_profile.day07Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Isday08Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.day08Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Setday08Null()
|
|
Me(Me.tabletbl_profile.day08Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Isday09Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.day09Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Setday09Null()
|
|
Me(Me.tabletbl_profile.day09Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Isday10Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.day10Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Setday10Null()
|
|
Me(Me.tabletbl_profile.day10Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Isday11Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.day11Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Setday11Null()
|
|
Me(Me.tabletbl_profile.day11Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Isday12Null() As Boolean
|
|
Return Me.IsNull(Me.tabletbl_profile.day12Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub Setday12Null()
|
|
Me(Me.tabletbl_profile.day12Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
|
|
Public Class tbl_profileRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As tbl_profileRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub New(ByVal row As tbl_profileRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property Row() As tbl_profileRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
End Class
|
|
|
|
Namespace eco2DataSetTableAdapters
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), _
|
|
Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class tbl_profileTableAdapter
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
|
|
|
|
Private _connection As Global.System.Data.SqlClient.SqlConnection
|
|
|
|
Private _transaction As Global.System.Data.SqlClient.SqlTransaction
|
|
|
|
Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
|
|
|
|
Private _clearBeforeFill As Boolean
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.ClearBeforeFill = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
|
|
Get
|
|
If (Me._adapter Is Nothing) Then
|
|
Me.InitAdapter
|
|
End If
|
|
Return Me._adapter
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
|
|
Get
|
|
If (Me._connection Is Nothing) Then
|
|
Me.InitConnection
|
|
End If
|
|
Return Me._connection
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Connection = value
|
|
End If
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
If (Not (Me.CommandCollection(i)) Is Nothing) Then
|
|
CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
|
|
Get
|
|
Return Me._transaction
|
|
End Get
|
|
Set
|
|
Me._transaction = value
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
Me.CommandCollection(i).Transaction = Me._transaction
|
|
i = (i + 1)
|
|
Loop
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
|
|
Me.Adapter.DeleteCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
|
|
Me.Adapter.InsertCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
|
|
Me.Adapter.UpdateCommand.Transaction = Me._transaction
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
|
|
Get
|
|
If (Me._commandCollection Is Nothing) Then
|
|
Me.InitCommandCollection
|
|
End If
|
|
Return Me._commandCollection
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property ClearBeforeFill() As Boolean
|
|
Get
|
|
Return Me._clearBeforeFill
|
|
End Get
|
|
Set
|
|
Me._clearBeforeFill = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Private Sub InitAdapter()
|
|
Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter
|
|
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping
|
|
tableMapping.SourceTable = "Table"
|
|
tableMapping.DataSetTable = "tbl_profile"
|
|
tableMapping.ColumnMappings.Add("code", "code")
|
|
tableMapping.ColumnMappings.Add("설명", "설명")
|
|
tableMapping.ColumnMappings.Add("일일급탕요구량", "일일급탕요구량")
|
|
tableMapping.ColumnMappings.Add("사용시작시간", "사용시작시간")
|
|
tableMapping.ColumnMappings.Add("사용종료시간", "사용종료시간")
|
|
tableMapping.ColumnMappings.Add("일일사용시간", "일일사용시간")
|
|
tableMapping.ColumnMappings.Add("운전시작시간", "운전시작시간")
|
|
tableMapping.ColumnMappings.Add("운전종료시간", "운전종료시간")
|
|
tableMapping.ColumnMappings.Add("운전시간난방", "운전시간난방")
|
|
tableMapping.ColumnMappings.Add("연간사용일수", "연간사용일수")
|
|
tableMapping.ColumnMappings.Add("연간사용시간주간", "연간사용시간주간")
|
|
tableMapping.ColumnMappings.Add("연간사용시간야간", "연간사용시간야간")
|
|
tableMapping.ColumnMappings.Add("일일운전시간", "일일운전시간")
|
|
tableMapping.ColumnMappings.Add("연간운전일수", "연간운전일수")
|
|
tableMapping.ColumnMappings.Add("요구조도", "요구조도")
|
|
tableMapping.ColumnMappings.Add("작업면높이", "작업면높이")
|
|
tableMapping.ColumnMappings.Add("감소계수", "감소계수")
|
|
tableMapping.ColumnMappings.Add("부재율", "부재율")
|
|
tableMapping.ColumnMappings.Add("실지수", "실지수")
|
|
tableMapping.ColumnMappings.Add("최소도입외기량", "최소도입외기량")
|
|
tableMapping.ColumnMappings.Add("축소운전시최소도입외기량", "축소운전시최소도입외기량")
|
|
tableMapping.ColumnMappings.Add("사람", "사람")
|
|
tableMapping.ColumnMappings.Add("작업보조기기", "작업보조기기")
|
|
tableMapping.ColumnMappings.Add("난방설정온도", "난방설정온도")
|
|
tableMapping.ColumnMappings.Add("냉방설정온도", "냉방설정온도")
|
|
tableMapping.ColumnMappings.Add("야간최저허용온도", "야간최저허용온도")
|
|
tableMapping.ColumnMappings.Add("주말최저허용온도", "주말최저허용온도")
|
|
tableMapping.ColumnMappings.Add("최소설정온도난방", "최소설정온도난방")
|
|
tableMapping.ColumnMappings.Add("최소설정온도냉방", "최소설정온도냉방")
|
|
tableMapping.ColumnMappings.Add("외기온도난방", "외기온도난방")
|
|
tableMapping.ColumnMappings.Add("외기온도냉방7월", "외기온도냉방7월")
|
|
tableMapping.ColumnMappings.Add("외기온도냉방9월", "외기온도냉방9월")
|
|
tableMapping.ColumnMappings.Add("차감계수", "차감계수")
|
|
tableMapping.ColumnMappings.Add("오염계수", "오염계수")
|
|
tableMapping.ColumnMappings.Add("부분운전계수", "부분운전계수")
|
|
tableMapping.ColumnMappings.Add("day01", "day01")
|
|
tableMapping.ColumnMappings.Add("day02", "day02")
|
|
tableMapping.ColumnMappings.Add("day03", "day03")
|
|
tableMapping.ColumnMappings.Add("day04", "day04")
|
|
tableMapping.ColumnMappings.Add("day05", "day05")
|
|
tableMapping.ColumnMappings.Add("day06", "day06")
|
|
tableMapping.ColumnMappings.Add("day07", "day07")
|
|
tableMapping.ColumnMappings.Add("day08", "day08")
|
|
tableMapping.ColumnMappings.Add("day09", "day09")
|
|
tableMapping.ColumnMappings.Add("day10", "day10")
|
|
tableMapping.ColumnMappings.Add("day11", "day11")
|
|
tableMapping.ColumnMappings.Add("day12", "day12")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[tbl_profile] WHERE (([code] = @Original_code) AND ((@IsNull_설명"& _
|
|
" = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND ((@IsNull_일일급탕요구량 = 1 AND ["& _
|
|
"일일급탕요구량] IS NULL) OR ([일일급탕요구량] = @Original_일일급탕요구량)) AND ((@IsNull_사용시작시간 = 1 A"& _
|
|
"ND [사용시작시간] IS NULL) OR ([사용시작시간] = @Original_사용시작시간)) AND ((@IsNull_사용종료시간 = 1 "& _
|
|
"AND [사용종료시간] IS NULL) OR ([사용종료시간] = @Original_사용종료시간)) AND ((@IsNull_일일사용시간 = 1"& _
|
|
" AND [일일사용시간] IS NULL) OR ([일일사용시간] = @Original_일일사용시간)) AND ((@IsNull_운전시작시간 = "& _
|
|
"1 AND [운전시작시간] IS NULL) OR ([운전시작시간] = @Original_운전시작시간)) AND ((@IsNull_운전종료시간 ="& _
|
|
" 1 AND [운전종료시간] IS NULL) OR ([운전종료시간] = @Original_운전종료시간)) AND ((@IsNull_운전시간난방 "& _
|
|
"= 1 AND [운전시간난방] IS NULL) OR ([운전시간난방] = @Original_운전시간난방)) AND ((@IsNull_연간사용일수"& _
|
|
" = 1 AND [연간사용일수] IS NULL) OR ([연간사용일수] = @Original_연간사용일수)) AND ((@IsNull_연간사용시"& _
|
|
"간주간 = 1 AND [연간사용시간주간] IS NULL) OR ([연간사용시간주간] = @Original_연간사용시간주간)) AND ((@IsN"& _
|
|
"ull_연간사용시간야간 = 1 AND [연간사용시간야간] IS NULL) OR ([연간사용시간야간] = @Original_연간사용시간야간)) A"& _
|
|
"ND ((@IsNull_일일운전시간 = 1 AND [일일운전시간] IS NULL) OR ([일일운전시간] = @Original_일일운전시간)) "& _
|
|
"AND ((@IsNull_연간운전일수 = 1 AND [연간운전일수] IS NULL) OR ([연간운전일수] = @Original_연간운전일수))"& _
|
|
" AND ((@IsNull_요구조도 = 1 AND [요구조도] IS NULL) OR ([요구조도] = @Original_요구조도)) AND (("& _
|
|
"@IsNull_작업면높이 = 1 AND [작업면높이] IS NULL) OR ([작업면높이] = @Original_작업면높이)) AND ((@Is"& _
|
|
"Null_감소계수 = 1 AND [감소계수] IS NULL) OR ([감소계수] = @Original_감소계수)) AND ((@IsNull_부재"& _
|
|
"율 = 1 AND [부재율] IS NULL) OR ([부재율] = @Original_부재율)) AND ((@IsNull_실지수 = 1 AND ["& _
|
|
"실지수] IS NULL) OR ([실지수] = @Original_실지수)) AND ((@IsNull_최소도입외기량 = 1 AND [최소도입외기량"& _
|
|
"] IS NULL) OR ([최소도입외기량] = @Original_최소도입외기량)) AND ((@IsNull_축소운전시최소도입외기량 = 1 AN"& _
|
|
"D [축소운전시최소도입외기량] IS NULL) OR ([축소운전시최소도입외기량] = @Original_축소운전시최소도입외기량)) AND ((@I"& _
|
|
"sNull_사람 = 1 AND [사람] IS NULL) OR ([사람] = @Original_사람)) AND ((@IsNull_작업보조기기 = "& _
|
|
"1 AND [작업보조기기] IS NULL) OR ([작업보조기기] = @Original_작업보조기기)) AND ((@IsNull_난방설정온도 ="& _
|
|
" 1 AND [난방설정온도] IS NULL) OR ([난방설정온도] = @Original_난방설정온도)) AND ((@IsNull_냉방설정온도 "& _
|
|
"= 1 AND [냉방설정온도] IS NULL) OR ([냉방설정온도] = @Original_냉방설정온도)) AND ((@IsNull_야간최저허용"& _
|
|
"온도 = 1 AND [야간최저허용온도] IS NULL) OR ([야간최저허용온도] = @Original_야간최저허용온도)) AND ((@IsNu"& _
|
|
"ll_주말최저허용온도 = 1 AND [주말최저허용온도] IS NULL) OR ([주말최저허용온도] = @Original_주말최저허용온도)) AN"& _
|
|
"D ((@IsNull_최소설정온도난방 = 1 AND [최소설정온도난방] IS NULL) OR ([최소설정온도난방] = @Original_최소설정"& _
|
|
"온도난방)) AND ((@IsNull_최소설정온도냉방 = 1 AND [최소설정온도냉방] IS NULL) OR ([최소설정온도냉방] = @Orig"& _
|
|
"inal_최소설정온도냉방)) AND ((@IsNull_외기온도난방 = 1 AND [외기온도난방] IS NULL) OR ([외기온도난방] = @O"& _
|
|
"riginal_외기온도난방)) AND ((@IsNull_외기온도냉방7월 = 1 AND [외기온도냉방7월] IS NULL) OR ([외기온도냉방7"& _
|
|
"월] = @Original_외기온도냉방7월)) AND ((@IsNull_외기온도냉방9월 = 1 AND [외기온도냉방9월] IS NULL) OR "& _
|
|
"([외기온도냉방9월] = @Original_외기온도냉방9월)) AND ((@IsNull_차감계수 = 1 AND [차감계수] IS NULL) OR"& _
|
|
" ([차감계수] = @Original_차감계수)) AND ((@IsNull_오염계수 = 1 AND [오염계수] IS NULL) OR ([오염계수"& _
|
|
"] = @Original_오염계수)) AND ((@IsNull_부분운전계수 = 1 AND [부분운전계수] IS NULL) OR ([부분운전계수]"& _
|
|
" = @Original_부분운전계수)) AND ((@IsNull_day01 = 1 AND [day01] IS NULL) OR ([day01] ="& _
|
|
" @Original_day01)) AND ((@IsNull_day02 = 1 AND [day02] IS NULL) OR ([day02] = @O"& _
|
|
"riginal_day02)) AND ((@IsNull_day03 = 1 AND [day03] IS NULL) OR ([day03] = @Orig"& _
|
|
"inal_day03)) AND ((@IsNull_day04 = 1 AND [day04] IS NULL) OR ([day04] = @Origina"& _
|
|
"l_day04)) AND ((@IsNull_day05 = 1 AND [day05] IS NULL) OR ([day05] = @Original_d"& _
|
|
"ay05)) AND ((@IsNull_day06 = 1 AND [day06] IS NULL) OR ([day06] = @Original_day0"& _
|
|
"6)) AND ((@IsNull_day07 = 1 AND [day07] IS NULL) OR ([day07] = @Original_day07))"& _
|
|
" AND ((@IsNull_day08 = 1 AND [day08] IS NULL) OR ([day08] = @Original_day08)) AN"& _
|
|
"D ((@IsNull_day09 = 1 AND [day09] IS NULL) OR ([day09] = @Original_day09)) AND ("& _
|
|
"(@IsNull_day10 = 1 AND [day10] IS NULL) OR ([day10] = @Original_day10)) AND ((@I"& _
|
|
"sNull_day11 = 1 AND [day11] IS NULL) OR ([day11] = @Original_day11)) AND ((@IsNu"& _
|
|
"ll_day12 = 1 AND [day12] IS NULL) OR ([day12] = @Original_day12)))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_설명", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_설명", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_일일급탕요구량", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일급탕요구량", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_일일급탕요구량", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일급탕요구량", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_사용시작시간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사용시작시간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_사용시작시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사용시작시간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_사용종료시간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사용종료시간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_사용종료시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사용종료시간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_일일사용시간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일사용시간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_일일사용시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일사용시간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_운전시작시간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전시작시간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_운전시작시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전시작시간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_운전종료시간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전종료시간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_운전종료시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전종료시간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_운전시간난방", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전시간난방", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_운전시간난방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전시간난방", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_연간사용일수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용일수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_연간사용일수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용일수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_연간사용시간주간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용시간주간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_연간사용시간주간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용시간주간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_연간사용시간야간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용시간야간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_연간사용시간야간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용시간야간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_일일운전시간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일운전시간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_일일운전시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일운전시간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_연간운전일수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간운전일수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_연간운전일수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간운전일수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_요구조도", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "요구조도", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_요구조도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "요구조도", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_작업면높이", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "작업면높이", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_작업면높이", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "작업면높이", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_감소계수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "감소계수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_감소계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "감소계수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_부재율", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "부재율", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_부재율", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "부재율", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_실지수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "실지수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_실지수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "실지수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_최소도입외기량", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소도입외기량", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_최소도입외기량", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소도입외기량", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_축소운전시최소도입외기량", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "축소운전시최소도입외기량", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_축소운전시최소도입외기량", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "축소운전시최소도입외기량", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_사람", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사람", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_사람", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사람", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_작업보조기기", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "작업보조기기", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_작업보조기기", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "작업보조기기", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_난방설정온도", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "난방설정온도", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_난방설정온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "난방설정온도", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_냉방설정온도", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "냉방설정온도", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_냉방설정온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "냉방설정온도", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_야간최저허용온도", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "야간최저허용온도", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_야간최저허용온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "야간최저허용온도", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_주말최저허용온도", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "주말최저허용온도", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_주말최저허용온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "주말최저허용온도", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_최소설정온도난방", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소설정온도난방", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_최소설정온도난방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소설정온도난방", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_최소설정온도냉방", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소설정온도냉방", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_최소설정온도냉방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소설정온도냉방", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_외기온도난방", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도난방", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_외기온도난방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도난방", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_외기온도냉방7월", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도냉방7월", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_외기온도냉방7월", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도냉방7월", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_외기온도냉방9월", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도냉방9월", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_외기온도냉방9월", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도냉방9월", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_차감계수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "차감계수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_차감계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "차감계수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_오염계수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "오염계수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_오염계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "오염계수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_부분운전계수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "부분운전계수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_부분운전계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "부분운전계수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day01", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day01", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day01", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day02", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day02", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day02", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day03", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day03", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day03", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day04", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day04", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day04", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day05", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day05", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day05", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day06", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day06", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day06", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day07", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day07", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day07", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day08", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day08", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day08", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day09", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day09", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day09", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[tbl_profile] ([code], [설명], [일일급탕요구량], [사용시작시간], [사용종료시간], [일일"& _
|
|
"사용시간], [운전시작시간], [운전종료시간], [운전시간난방], [연간사용일수], [연간사용시간주간], [연간사용시간야간], [일일운전시간],"& _
|
|
" [연간운전일수], [요구조도], [작업면높이], [감소계수], [부재율], [실지수], [최소도입외기량], [축소운전시최소도입외기량], [사람"& _
|
|
"], [작업보조기기], [난방설정온도], [냉방설정온도], [야간최저허용온도], [주말최저허용온도], [최소설정온도난방], [최소설정온도냉방],"& _
|
|
" [외기온도난방], [외기온도냉방7월], [외기온도냉방9월], [차감계수], [오염계수], [부분운전계수], [day01], [day02], ["& _
|
|
"day03], [day04], [day05], [day06], [day07], [day08], [day09], [day10], [day11], "& _
|
|
"[day12]) VALUES (@code, @설명, @일일급탕요구량, @사용시작시간, @사용종료시간, @일일사용시간, @운전시작시간, @운전종료"& _
|
|
"시간, @운전시간난방, @연간사용일수, @연간사용시간주간, @연간사용시간야간, @일일운전시간, @연간운전일수, @요구조도, @작업면높이, @감소"& _
|
|
"계수, @부재율, @실지수, @최소도입외기량, @축소운전시최소도입외기량, @사람, @작업보조기기, @난방설정온도, @냉방설정온도, @야간최저허용"& _
|
|
"온도, @주말최저허용온도, @최소설정온도난방, @최소설정온도냉방, @외기온도난방, @외기온도냉방7월, @외기온도냉방9월, @차감계수, @오염계수"& _
|
|
", @부분운전계수, @day01, @day02, @day03, @day04, @day05, @day06, @day07, @day08, @day0"& _
|
|
"9, @day10, @day11, @day12);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT code, 설명, 일일급탕요구량, 사용시작시간, 사용종료시간, 일일사용시간, 운"& _
|
|
"전시작시간, 운전종료시간, 운전시간난방, 연간사용일수, 연간사용시간주간, 연간사용시간야간, 일일운전시간, 연간운전일수, 요구조도, 작업면높이, "& _
|
|
"감소계수, 부재율, 실지수, 최소도입외기량, 축소운전시최소도입외기량, 사람, 작업보조기기, 난방설정온도, 냉방설정온도, 야간최저허용온도, 주말최"& _
|
|
"저허용온도, 최소설정온도난방, 최소설정온도냉방, 외기온도난방, 외기온도냉방7월, 외기온도냉방9월, 차감계수, 오염계수, 부분운전계수, day01"& _
|
|
", day02, day03, day04, day05, day06, day07, day08, day09, day10, day11, day12 FR"& _
|
|
"OM tbl_profile WHERE (code = @code)"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@설명", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@일일급탕요구량", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일급탕요구량", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@사용시작시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사용시작시간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@사용종료시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사용종료시간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@일일사용시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일사용시간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@운전시작시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전시작시간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@운전종료시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전종료시간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@운전시간난방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전시간난방", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@연간사용일수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용일수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@연간사용시간주간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용시간주간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@연간사용시간야간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용시간야간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@일일운전시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일운전시간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@연간운전일수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간운전일수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@요구조도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "요구조도", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@작업면높이", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "작업면높이", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@감소계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "감소계수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@부재율", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "부재율", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@실지수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "실지수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@최소도입외기량", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소도입외기량", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@축소운전시최소도입외기량", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "축소운전시최소도입외기량", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@사람", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사람", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@작업보조기기", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "작업보조기기", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@난방설정온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "난방설정온도", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@냉방설정온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "냉방설정온도", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@야간최저허용온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "야간최저허용온도", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@주말최저허용온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "주말최저허용온도", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@최소설정온도난방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소설정온도난방", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@최소설정온도냉방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소설정온도냉방", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@외기온도난방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도난방", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@외기온도냉방7월", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도냉방7월", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@외기온도냉방9월", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도냉방9월", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@차감계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "차감계수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@오염계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "오염계수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@부분운전계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "부분운전계수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day01", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day02", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day03", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day04", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day05", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day06", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day07", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day08", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day09", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand
|
|
Me._adapter.UpdateCommand.Connection = Me.Connection
|
|
Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[tbl_profile] SET [code] = @code, [설명] = @설명, [일일급탕요구량] = @일일급탕요구량, "& _
|
|
"[사용시작시간] = @사용시작시간, [사용종료시간] = @사용종료시간, [일일사용시간] = @일일사용시간, [운전시작시간] = @운전시작시간, "& _
|
|
"[운전종료시간] = @운전종료시간, [운전시간난방] = @운전시간난방, [연간사용일수] = @연간사용일수, [연간사용시간주간] = @연간사용시간"& _
|
|
"주간, [연간사용시간야간] = @연간사용시간야간, [일일운전시간] = @일일운전시간, [연간운전일수] = @연간운전일수, [요구조도] = @요구"& _
|
|
"조도, [작업면높이] = @작업면높이, [감소계수] = @감소계수, [부재율] = @부재율, [실지수] = @실지수, [최소도입외기량] = @최"& _
|
|
"소도입외기량, [축소운전시최소도입외기량] = @축소운전시최소도입외기량, [사람] = @사람, [작업보조기기] = @작업보조기기, [난방설정온도]"& _
|
|
" = @난방설정온도, [냉방설정온도] = @냉방설정온도, [야간최저허용온도] = @야간최저허용온도, [주말최저허용온도] = @주말최저허용온도, "& _
|
|
"[최소설정온도난방] = @최소설정온도난방, [최소설정온도냉방] = @최소설정온도냉방, [외기온도난방] = @외기온도난방, [외기온도냉방7월] ="& _
|
|
" @외기온도냉방7월, [외기온도냉방9월] = @외기온도냉방9월, [차감계수] = @차감계수, [오염계수] = @오염계수, [부분운전계수] = @"& _
|
|
"부분운전계수, [day01] = @day01, [day02] = @day02, [day03] = @day03, [day04] = @day04, "& _
|
|
"[day05] = @day05, [day06] = @day06, [day07] = @day07, [day08] = @day08, [day09] "& _
|
|
"= @day09, [day10] = @day10, [day11] = @day11, [day12] = @day12 WHERE (([code] = "& _
|
|
"@Original_code) AND ((@IsNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명))"& _
|
|
" AND ((@IsNull_일일급탕요구량 = 1 AND [일일급탕요구량] IS NULL) OR ([일일급탕요구량] = @Original_일일급탕"& _
|
|
"요구량)) AND ((@IsNull_사용시작시간 = 1 AND [사용시작시간] IS NULL) OR ([사용시작시간] = @Original_사용"& _
|
|
"시작시간)) AND ((@IsNull_사용종료시간 = 1 AND [사용종료시간] IS NULL) OR ([사용종료시간] = @Original_사"& _
|
|
"용종료시간)) AND ((@IsNull_일일사용시간 = 1 AND [일일사용시간] IS NULL) OR ([일일사용시간] = @Original_"& _
|
|
"일일사용시간)) AND ((@IsNull_운전시작시간 = 1 AND [운전시작시간] IS NULL) OR ([운전시작시간] = @Original"& _
|
|
"_운전시작시간)) AND ((@IsNull_운전종료시간 = 1 AND [운전종료시간] IS NULL) OR ([운전종료시간] = @Origina"& _
|
|
"l_운전종료시간)) AND ((@IsNull_운전시간난방 = 1 AND [운전시간난방] IS NULL) OR ([운전시간난방] = @Origin"& _
|
|
"al_운전시간난방)) AND ((@IsNull_연간사용일수 = 1 AND [연간사용일수] IS NULL) OR ([연간사용일수] = @Origi"& _
|
|
"nal_연간사용일수)) AND ((@IsNull_연간사용시간주간 = 1 AND [연간사용시간주간] IS NULL) OR ([연간사용시간주간] ="& _
|
|
" @Original_연간사용시간주간)) AND ((@IsNull_연간사용시간야간 = 1 AND [연간사용시간야간] IS NULL) OR ([연간"& _
|
|
"사용시간야간] = @Original_연간사용시간야간)) AND ((@IsNull_일일운전시간 = 1 AND [일일운전시간] IS NULL) OR"& _
|
|
" ([일일운전시간] = @Original_일일운전시간)) AND ((@IsNull_연간운전일수 = 1 AND [연간운전일수] IS NULL) O"& _
|
|
"R ([연간운전일수] = @Original_연간운전일수)) AND ((@IsNull_요구조도 = 1 AND [요구조도] IS NULL) OR ("& _
|
|
"[요구조도] = @Original_요구조도)) AND ((@IsNull_작업면높이 = 1 AND [작업면높이] IS NULL) OR ([작업면높"& _
|
|
"이] = @Original_작업면높이)) AND ((@IsNull_감소계수 = 1 AND [감소계수] IS NULL) OR ([감소계수] = @"& _
|
|
"Original_감소계수)) AND ((@IsNull_부재율 = 1 AND [부재율] IS NULL) OR ([부재율] = @Original_부"& _
|
|
"재율)) AND ((@IsNull_실지수 = 1 AND [실지수] IS NULL) OR ([실지수] = @Original_실지수)) AND (("& _
|
|
"@IsNull_최소도입외기량 = 1 AND [최소도입외기량] IS NULL) OR ([최소도입외기량] = @Original_최소도입외기량)) A"& _
|
|
"ND ((@IsNull_축소운전시최소도입외기량 = 1 AND [축소운전시최소도입외기량] IS NULL) OR ([축소운전시최소도입외기량] = @"& _
|
|
"Original_축소운전시최소도입외기량)) AND ((@IsNull_사람 = 1 AND [사람] IS NULL) OR ([사람] = @Origi"& _
|
|
"nal_사람)) AND ((@IsNull_작업보조기기 = 1 AND [작업보조기기] IS NULL) OR ([작업보조기기] = @Original"& _
|
|
"_작업보조기기)) AND ((@IsNull_난방설정온도 = 1 AND [난방설정온도] IS NULL) OR ([난방설정온도] = @Origina"& _
|
|
"l_난방설정온도)) AND ((@IsNull_냉방설정온도 = 1 AND [냉방설정온도] IS NULL) OR ([냉방설정온도] = @Origin"& _
|
|
"al_냉방설정온도)) AND ((@IsNull_야간최저허용온도 = 1 AND [야간최저허용온도] IS NULL) OR ([야간최저허용온도] = "& _
|
|
"@Original_야간최저허용온도)) AND ((@IsNull_주말최저허용온도 = 1 AND [주말최저허용온도] IS NULL) OR ([주말최"& _
|
|
"저허용온도] = @Original_주말최저허용온도)) AND ((@IsNull_최소설정온도난방 = 1 AND [최소설정온도난방] IS NULL)"& _
|
|
" OR ([최소설정온도난방] = @Original_최소설정온도난방)) AND ((@IsNull_최소설정온도냉방 = 1 AND [최소설정온도냉방]"& _
|
|
" IS NULL) OR ([최소설정온도냉방] = @Original_최소설정온도냉방)) AND ((@IsNull_외기온도난방 = 1 AND [외기"& _
|
|
"온도난방] IS NULL) OR ([외기온도난방] = @Original_외기온도난방)) AND ((@IsNull_외기온도냉방7월 = 1 AND "& _
|
|
"[외기온도냉방7월] IS NULL) OR ([외기온도냉방7월] = @Original_외기온도냉방7월)) AND ((@IsNull_외기온도냉방9월"& _
|
|
" = 1 AND [외기온도냉방9월] IS NULL) OR ([외기온도냉방9월] = @Original_외기온도냉방9월)) AND ((@IsNull"& _
|
|
"_차감계수 = 1 AND [차감계수] IS NULL) OR ([차감계수] = @Original_차감계수)) AND ((@IsNull_오염계수 ="& _
|
|
" 1 AND [오염계수] IS NULL) OR ([오염계수] = @Original_오염계수)) AND ((@IsNull_부분운전계수 = 1 AN"& _
|
|
"D [부분운전계수] IS NULL) OR ([부분운전계수] = @Original_부분운전계수)) AND ((@IsNull_day01 = 1 AN"& _
|
|
"D [day01] IS NULL) OR ([day01] = @Original_day01)) AND ((@IsNull_day02 = 1 AND ["& _
|
|
"day02] IS NULL) OR ([day02] = @Original_day02)) AND ((@IsNull_day03 = 1 AND [day"& _
|
|
"03] IS NULL) OR ([day03] = @Original_day03)) AND ((@IsNull_day04 = 1 AND [day04]"& _
|
|
" IS NULL) OR ([day04] = @Original_day04)) AND ((@IsNull_day05 = 1 AND [day05] IS"& _
|
|
" NULL) OR ([day05] = @Original_day05)) AND ((@IsNull_day06 = 1 AND [day06] IS NU"& _
|
|
"LL) OR ([day06] = @Original_day06)) AND ((@IsNull_day07 = 1 AND [day07] IS NULL)"& _
|
|
" OR ([day07] = @Original_day07)) AND ((@IsNull_day08 = 1 AND [day08] IS NULL) OR"& _
|
|
" ([day08] = @Original_day08)) AND ((@IsNull_day09 = 1 AND [day09] IS NULL) OR (["& _
|
|
"day09] = @Original_day09)) AND ((@IsNull_day10 = 1 AND [day10] IS NULL) OR ([day"& _
|
|
"10] = @Original_day10)) AND ((@IsNull_day11 = 1 AND [day11] IS NULL) OR ([day11]"& _
|
|
" = @Original_day11)) AND ((@IsNull_day12 = 1 AND [day12] IS NULL) OR ([day12] = "& _
|
|
"@Original_day12)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT code, 설명, 일일급탕요구량, 사용시작시간, 사용종료시간, 일일사용시간, 운전시작시간, 운"& _
|
|
"전종료시간, 운전시간난방, 연간사용일수, 연간사용시간주간, 연간사용시간야간, 일일운전시간, 연간운전일수, 요구조도, 작업면높이, 감소계수, 부재"& _
|
|
"율, 실지수, 최소도입외기량, 축소운전시최소도입외기량, 사람, 작업보조기기, 난방설정온도, 냉방설정온도, 야간최저허용온도, 주말최저허용온도, 최"& _
|
|
"소설정온도난방, 최소설정온도냉방, 외기온도난방, 외기온도냉방7월, 외기온도냉방9월, 차감계수, 오염계수, 부분운전계수, day01, day02,"& _
|
|
" day03, day04, day05, day06, day07, day08, day09, day10, day11, day12 FROM tbl_p"& _
|
|
"rofile WHERE (code = @code)"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@설명", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@일일급탕요구량", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일급탕요구량", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@사용시작시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사용시작시간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@사용종료시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사용종료시간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@일일사용시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일사용시간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@운전시작시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전시작시간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@운전종료시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전종료시간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@운전시간난방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전시간난방", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@연간사용일수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용일수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@연간사용시간주간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용시간주간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@연간사용시간야간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용시간야간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@일일운전시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일운전시간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@연간운전일수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간운전일수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@요구조도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "요구조도", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@작업면높이", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "작업면높이", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@감소계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "감소계수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@부재율", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "부재율", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@실지수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "실지수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@최소도입외기량", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소도입외기량", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@축소운전시최소도입외기량", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "축소운전시최소도입외기량", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@사람", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사람", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@작업보조기기", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "작업보조기기", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@난방설정온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "난방설정온도", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@냉방설정온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "냉방설정온도", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@야간최저허용온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "야간최저허용온도", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@주말최저허용온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "주말최저허용온도", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@최소설정온도난방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소설정온도난방", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@최소설정온도냉방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소설정온도냉방", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@외기온도난방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도난방", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@외기온도냉방7월", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도냉방7월", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@외기온도냉방9월", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도냉방9월", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@차감계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "차감계수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@오염계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "오염계수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@부분운전계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "부분운전계수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day01", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day02", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day03", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day04", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day05", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day06", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day07", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day08", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day09", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_설명", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_설명", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_일일급탕요구량", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일급탕요구량", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_일일급탕요구량", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일급탕요구량", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_사용시작시간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사용시작시간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_사용시작시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사용시작시간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_사용종료시간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사용종료시간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_사용종료시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사용종료시간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_일일사용시간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일사용시간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_일일사용시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일사용시간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_운전시작시간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전시작시간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_운전시작시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전시작시간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_운전종료시간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전종료시간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_운전종료시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전종료시간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_운전시간난방", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전시간난방", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_운전시간난방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전시간난방", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_연간사용일수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용일수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_연간사용일수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용일수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_연간사용시간주간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용시간주간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_연간사용시간주간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용시간주간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_연간사용시간야간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용시간야간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_연간사용시간야간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용시간야간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_일일운전시간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일운전시간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_일일운전시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일운전시간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_연간운전일수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간운전일수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_연간운전일수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간운전일수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_요구조도", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "요구조도", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_요구조도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "요구조도", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_작업면높이", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "작업면높이", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_작업면높이", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "작업면높이", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_감소계수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "감소계수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_감소계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "감소계수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_부재율", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "부재율", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_부재율", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "부재율", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_실지수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "실지수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_실지수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "실지수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_최소도입외기량", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소도입외기량", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_최소도입외기량", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소도입외기량", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_축소운전시최소도입외기량", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "축소운전시최소도입외기량", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_축소운전시최소도입외기량", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "축소운전시최소도입외기량", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_사람", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사람", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_사람", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사람", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_작업보조기기", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "작업보조기기", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_작업보조기기", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "작업보조기기", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_난방설정온도", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "난방설정온도", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_난방설정온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "난방설정온도", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_냉방설정온도", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "냉방설정온도", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_냉방설정온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "냉방설정온도", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_야간최저허용온도", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "야간최저허용온도", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_야간최저허용온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "야간최저허용온도", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_주말최저허용온도", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "주말최저허용온도", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_주말최저허용온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "주말최저허용온도", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_최소설정온도난방", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소설정온도난방", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_최소설정온도난방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소설정온도난방", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_최소설정온도냉방", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소설정온도냉방", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_최소설정온도냉방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소설정온도냉방", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_외기온도난방", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도난방", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_외기온도난방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도난방", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_외기온도냉방7월", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도냉방7월", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_외기온도냉방7월", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도냉방7월", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_외기온도냉방9월", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도냉방9월", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_외기온도냉방9월", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도냉방9월", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_차감계수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "차감계수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_차감계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "차감계수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_오염계수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "오염계수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_오염계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "오염계수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_부분운전계수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "부분운전계수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_부분운전계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "부분운전계수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day01", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day01", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day01", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day02", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day02", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day02", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day03", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day03", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day03", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day04", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day04", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day04", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day05", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day05", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day05", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day06", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day06", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day06", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day07", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day07", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day07", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day08", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day08", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day08", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day09", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day09", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day09", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection
|
|
Me._connection.ConnectionString = Global.Eco2Ar.My.MySettings.Default.cs
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT code, 설명, 일일급탕요구량, 사용시작시간, 사용종료시간, 일일사용시간, 운전시작시간, 운전종료시간, 운전시간난방, 연간사용일수,"& _
|
|
" 연간사용시간주간, 연간사용시간야간, 일일운전시간, 연간운전일수, 요구조도, 작업면높이, 감소계수, 부재율, 실지수, 최소도입외기량, 축소운전시"& _
|
|
"최소도입외기량, 사람, 작업보조기기, 난방설정온도, 냉방설정온도, 야간최저허용온도, 주말최저허용온도, 최소설정온도난방, 최소설정온도냉방, 외기온"& _
|
|
"도난방, 외기온도냉방7월, 외기온도냉방9월, 차감계수, 오염계수, 부분운전계수, day01, day02, day03, day04, day05, "& _
|
|
"day06, day07, day08, day09, day10, day11, day12 FROM dbo.tbl_profile"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
|
|
Public Overloads Overridable Function Fill(ByVal dataTable As eco2DataSet.tbl_profileDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
|
|
Public Overloads Overridable Function GetData() As eco2DataSet.tbl_profileDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As eco2DataSet.tbl_profileDataTable = New eco2DataSet.tbl_profileDataTable
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As eco2DataSet.tbl_profileDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As eco2DataSet) As Integer
|
|
Return Me.Adapter.Update(dataSet, "tbl_profile")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
|
|
Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
|
|
Return Me.Adapter.Update(dataRows)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
|
|
Public Overloads Overridable Function Delete( _
|
|
ByVal Original_code As String, _
|
|
ByVal Original_설명 As String, _
|
|
ByVal Original_일일급탕요구량 As String, _
|
|
ByVal Original_사용시작시간 As String, _
|
|
ByVal Original_사용종료시간 As String, _
|
|
ByVal Original_일일사용시간 As String, _
|
|
ByVal Original_운전시작시간 As String, _
|
|
ByVal Original_운전종료시간 As String, _
|
|
ByVal Original_운전시간난방 As String, _
|
|
ByVal Original_연간사용일수 As String, _
|
|
ByVal Original_연간사용시간주간 As String, _
|
|
ByVal Original_연간사용시간야간 As String, _
|
|
ByVal Original_일일운전시간 As String, _
|
|
ByVal Original_연간운전일수 As String, _
|
|
ByVal Original_요구조도 As String, _
|
|
ByVal Original_작업면높이 As String, _
|
|
ByVal Original_감소계수 As String, _
|
|
ByVal Original_부재율 As String, _
|
|
ByVal Original_실지수 As String, _
|
|
ByVal Original_최소도입외기량 As String, _
|
|
ByVal Original_축소운전시최소도입외기량 As String, _
|
|
ByVal Original_사람 As String, _
|
|
ByVal Original_작업보조기기 As String, _
|
|
ByVal Original_난방설정온도 As String, _
|
|
ByVal Original_냉방설정온도 As String, _
|
|
ByVal Original_야간최저허용온도 As String, _
|
|
ByVal Original_주말최저허용온도 As String, _
|
|
ByVal Original_최소설정온도난방 As String, _
|
|
ByVal Original_최소설정온도냉방 As String, _
|
|
ByVal Original_외기온도난방 As String, _
|
|
ByVal Original_외기온도냉방7월 As String, _
|
|
ByVal Original_외기온도냉방9월 As String, _
|
|
ByVal Original_차감계수 As String, _
|
|
ByVal Original_오염계수 As String, _
|
|
ByVal Original_부분운전계수 As String, _
|
|
ByVal Original_day01 As String, _
|
|
ByVal Original_day02 As String, _
|
|
ByVal Original_day03 As String, _
|
|
ByVal Original_day04 As String, _
|
|
ByVal Original_day05 As String, _
|
|
ByVal Original_day06 As String, _
|
|
ByVal Original_day07 As String, _
|
|
ByVal Original_day08 As String, _
|
|
ByVal Original_day09 As String, _
|
|
ByVal Original_day10 As String, _
|
|
ByVal Original_day11 As String, _
|
|
ByVal Original_day12 As String) As Integer
|
|
If (Original_code Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_code")
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_code,String)
|
|
End If
|
|
If (Original_설명 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_설명,String)
|
|
End If
|
|
If (Original_일일급탕요구량 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_일일급탕요구량,String)
|
|
End If
|
|
If (Original_사용시작시간 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_사용시작시간,String)
|
|
End If
|
|
If (Original_사용종료시간 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_사용종료시간,String)
|
|
End If
|
|
If (Original_일일사용시간 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_일일사용시간,String)
|
|
End If
|
|
If (Original_운전시작시간 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_운전시작시간,String)
|
|
End If
|
|
If (Original_운전종료시간 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_운전종료시간,String)
|
|
End If
|
|
If (Original_운전시간난방 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_운전시간난방,String)
|
|
End If
|
|
If (Original_연간사용일수 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_연간사용일수,String)
|
|
End If
|
|
If (Original_연간사용시간주간 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_연간사용시간주간,String)
|
|
End If
|
|
If (Original_연간사용시간야간 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_연간사용시간야간,String)
|
|
End If
|
|
If (Original_일일운전시간 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_일일운전시간,String)
|
|
End If
|
|
If (Original_연간운전일수 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_연간운전일수,String)
|
|
End If
|
|
If (Original_요구조도 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_요구조도,String)
|
|
End If
|
|
If (Original_작업면높이 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_작업면높이,String)
|
|
End If
|
|
If (Original_감소계수 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_감소계수,String)
|
|
End If
|
|
If (Original_부재율 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_부재율,String)
|
|
End If
|
|
If (Original_실지수 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_실지수,String)
|
|
End If
|
|
If (Original_최소도입외기량 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_최소도입외기량,String)
|
|
End If
|
|
If (Original_축소운전시최소도입외기량 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_축소운전시최소도입외기량,String)
|
|
End If
|
|
If (Original_사람 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_사람,String)
|
|
End If
|
|
If (Original_작업보조기기 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_작업보조기기,String)
|
|
End If
|
|
If (Original_난방설정온도 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_난방설정온도,String)
|
|
End If
|
|
If (Original_냉방설정온도 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_냉방설정온도,String)
|
|
End If
|
|
If (Original_야간최저허용온도 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_야간최저허용온도,String)
|
|
End If
|
|
If (Original_주말최저허용온도 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(51).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(52).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(51).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_주말최저허용온도,String)
|
|
End If
|
|
If (Original_최소설정온도난방 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(53).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(54).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(53).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(54).Value = CType(Original_최소설정온도난방,String)
|
|
End If
|
|
If (Original_최소설정온도냉방 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(55).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(56).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(55).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(56).Value = CType(Original_최소설정온도냉방,String)
|
|
End If
|
|
If (Original_외기온도난방 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(57).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(58).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(57).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(58).Value = CType(Original_외기온도난방,String)
|
|
End If
|
|
If (Original_외기온도냉방7월 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(59).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(60).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(59).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(60).Value = CType(Original_외기온도냉방7월,String)
|
|
End If
|
|
If (Original_외기온도냉방9월 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(61).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(62).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(61).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(62).Value = CType(Original_외기온도냉방9월,String)
|
|
End If
|
|
If (Original_차감계수 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(63).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(64).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(63).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(64).Value = CType(Original_차감계수,String)
|
|
End If
|
|
If (Original_오염계수 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(65).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(66).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(65).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(66).Value = CType(Original_오염계수,String)
|
|
End If
|
|
If (Original_부분운전계수 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(67).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(68).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(67).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(68).Value = CType(Original_부분운전계수,String)
|
|
End If
|
|
If (Original_day01 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(69).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(70).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(69).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(70).Value = CType(Original_day01,String)
|
|
End If
|
|
If (Original_day02 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(71).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(72).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(71).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(72).Value = CType(Original_day02,String)
|
|
End If
|
|
If (Original_day03 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(73).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(74).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(73).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(74).Value = CType(Original_day03,String)
|
|
End If
|
|
If (Original_day04 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(75).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(76).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(75).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(76).Value = CType(Original_day04,String)
|
|
End If
|
|
If (Original_day05 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(77).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(78).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(77).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(78).Value = CType(Original_day05,String)
|
|
End If
|
|
If (Original_day06 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(79).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(80).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(79).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(80).Value = CType(Original_day06,String)
|
|
End If
|
|
If (Original_day07 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(81).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(82).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(81).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(82).Value = CType(Original_day07,String)
|
|
End If
|
|
If (Original_day08 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(83).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(84).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(83).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(84).Value = CType(Original_day08,String)
|
|
End If
|
|
If (Original_day09 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(85).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(86).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(85).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(86).Value = CType(Original_day09,String)
|
|
End If
|
|
If (Original_day10 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(87).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(88).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(87).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(88).Value = CType(Original_day10,String)
|
|
End If
|
|
If (Original_day11 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(89).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(90).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(89).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(90).Value = CType(Original_day11,String)
|
|
End If
|
|
If (Original_day12 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(91).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(92).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(91).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(92).Value = CType(Original_day12,String)
|
|
End If
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
|
|
If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
Me.Adapter.DeleteCommand.Connection.Open
|
|
End If
|
|
Try
|
|
Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
|
|
Return returnValue
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
Me.Adapter.DeleteCommand.Connection.Close
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
|
|
Public Overloads Overridable Function Insert( _
|
|
ByVal code 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, _
|
|
ByVal 최소설정온도난방 As String, _
|
|
ByVal 최소설정온도냉방 As String, _
|
|
ByVal 외기온도난방 As String, _
|
|
ByVal 외기온도냉방7월 As String, _
|
|
ByVal 외기온도냉방9월 As String, _
|
|
ByVal 차감계수 As String, _
|
|
ByVal 오염계수 As String, _
|
|
ByVal 부분운전계수 As String, _
|
|
ByVal day01 As String, _
|
|
ByVal day02 As String, _
|
|
ByVal day03 As String, _
|
|
ByVal day04 As String, _
|
|
ByVal day05 As String, _
|
|
ByVal day06 As String, _
|
|
ByVal day07 As String, _
|
|
ByVal day08 As String, _
|
|
ByVal day09 As String, _
|
|
ByVal day10 As String, _
|
|
ByVal day11 As String, _
|
|
ByVal day12 As String) As Integer
|
|
If (code Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("code")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(code,String)
|
|
End If
|
|
If (설명 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(설명,String)
|
|
End If
|
|
If (일일급탕요구량 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(일일급탕요구량,String)
|
|
End If
|
|
If (사용시작시간 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(사용시작시간,String)
|
|
End If
|
|
If (사용종료시간 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(사용종료시간,String)
|
|
End If
|
|
If (일일사용시간 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(일일사용시간,String)
|
|
End If
|
|
If (운전시작시간 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = CType(운전시작시간,String)
|
|
End If
|
|
If (운전종료시간 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = CType(운전종료시간,String)
|
|
End If
|
|
If (운전시간난방 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = CType(운전시간난방,String)
|
|
End If
|
|
If (연간사용일수 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(9).Value = CType(연간사용일수,String)
|
|
End If
|
|
If (연간사용시간주간 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(10).Value = CType(연간사용시간주간,String)
|
|
End If
|
|
If (연간사용시간야간 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(11).Value = CType(연간사용시간야간,String)
|
|
End If
|
|
If (일일운전시간 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(12).Value = CType(일일운전시간,String)
|
|
End If
|
|
If (연간운전일수 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(13).Value = CType(연간운전일수,String)
|
|
End If
|
|
If (요구조도 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(14).Value = CType(요구조도,String)
|
|
End If
|
|
If (작업면높이 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(15).Value = CType(작업면높이,String)
|
|
End If
|
|
If (감소계수 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(16).Value = CType(감소계수,String)
|
|
End If
|
|
If (부재율 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(17).Value = CType(부재율,String)
|
|
End If
|
|
If (실지수 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(18).Value = CType(실지수,String)
|
|
End If
|
|
If (최소도입외기량 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(19).Value = CType(최소도입외기량,String)
|
|
End If
|
|
If (축소운전시최소도입외기량 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(20).Value = CType(축소운전시최소도입외기량,String)
|
|
End If
|
|
If (사람 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(21).Value = CType(사람,String)
|
|
End If
|
|
If (작업보조기기 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(22).Value = CType(작업보조기기,String)
|
|
End If
|
|
If (난방설정온도 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(23).Value = CType(난방설정온도,String)
|
|
End If
|
|
If (냉방설정온도 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(24).Value = CType(냉방설정온도,String)
|
|
End If
|
|
If (야간최저허용온도 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(25).Value = CType(야간최저허용온도,String)
|
|
End If
|
|
If (주말최저허용온도 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(26).Value = CType(주말최저허용온도,String)
|
|
End If
|
|
If (최소설정온도난방 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(27).Value = CType(최소설정온도난방,String)
|
|
End If
|
|
If (최소설정온도냉방 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(28).Value = CType(최소설정온도냉방,String)
|
|
End If
|
|
If (외기온도난방 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(29).Value = CType(외기온도난방,String)
|
|
End If
|
|
If (외기온도냉방7월 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(30).Value = CType(외기온도냉방7월,String)
|
|
End If
|
|
If (외기온도냉방9월 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(31).Value = CType(외기온도냉방9월,String)
|
|
End If
|
|
If (차감계수 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(32).Value = CType(차감계수,String)
|
|
End If
|
|
If (오염계수 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(33).Value = CType(오염계수,String)
|
|
End If
|
|
If (부분운전계수 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(34).Value = CType(부분운전계수,String)
|
|
End If
|
|
If (day01 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(35).Value = CType(day01,String)
|
|
End If
|
|
If (day02 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(36).Value = CType(day02,String)
|
|
End If
|
|
If (day03 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(37).Value = CType(day03,String)
|
|
End If
|
|
If (day04 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(38).Value = CType(day04,String)
|
|
End If
|
|
If (day05 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(39).Value = CType(day05,String)
|
|
End If
|
|
If (day06 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(40).Value = CType(day06,String)
|
|
End If
|
|
If (day07 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(41).Value = CType(day07,String)
|
|
End If
|
|
If (day08 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(42).Value = CType(day08,String)
|
|
End If
|
|
If (day09 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(43).Value = CType(day09,String)
|
|
End If
|
|
If (day10 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(44).Value = CType(day10,String)
|
|
End If
|
|
If (day11 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(45).Value = CType(day11,String)
|
|
End If
|
|
If (day12 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(46).Value = CType(day12,String)
|
|
End If
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
|
|
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
Me.Adapter.InsertCommand.Connection.Open
|
|
End If
|
|
Try
|
|
Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
|
|
Return returnValue
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
Me.Adapter.InsertCommand.Connection.Close
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
|
|
Public Overloads Overridable Function Update( _
|
|
ByVal code 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, _
|
|
ByVal 최소설정온도난방 As String, _
|
|
ByVal 최소설정온도냉방 As String, _
|
|
ByVal 외기온도난방 As String, _
|
|
ByVal 외기온도냉방7월 As String, _
|
|
ByVal 외기온도냉방9월 As String, _
|
|
ByVal 차감계수 As String, _
|
|
ByVal 오염계수 As String, _
|
|
ByVal 부분운전계수 As String, _
|
|
ByVal day01 As String, _
|
|
ByVal day02 As String, _
|
|
ByVal day03 As String, _
|
|
ByVal day04 As String, _
|
|
ByVal day05 As String, _
|
|
ByVal day06 As String, _
|
|
ByVal day07 As String, _
|
|
ByVal day08 As String, _
|
|
ByVal day09 As String, _
|
|
ByVal day10 As String, _
|
|
ByVal day11 As String, _
|
|
ByVal day12 As String, _
|
|
ByVal Original_code As String, _
|
|
ByVal Original_설명 As String, _
|
|
ByVal Original_일일급탕요구량 As String, _
|
|
ByVal Original_사용시작시간 As String, _
|
|
ByVal Original_사용종료시간 As String, _
|
|
ByVal Original_일일사용시간 As String, _
|
|
ByVal Original_운전시작시간 As String, _
|
|
ByVal Original_운전종료시간 As String, _
|
|
ByVal Original_운전시간난방 As String, _
|
|
ByVal Original_연간사용일수 As String, _
|
|
ByVal Original_연간사용시간주간 As String, _
|
|
ByVal Original_연간사용시간야간 As String, _
|
|
ByVal Original_일일운전시간 As String, _
|
|
ByVal Original_연간운전일수 As String, _
|
|
ByVal Original_요구조도 As String, _
|
|
ByVal Original_작업면높이 As String, _
|
|
ByVal Original_감소계수 As String, _
|
|
ByVal Original_부재율 As String, _
|
|
ByVal Original_실지수 As String, _
|
|
ByVal Original_최소도입외기량 As String, _
|
|
ByVal Original_축소운전시최소도입외기량 As String, _
|
|
ByVal Original_사람 As String, _
|
|
ByVal Original_작업보조기기 As String, _
|
|
ByVal Original_난방설정온도 As String, _
|
|
ByVal Original_냉방설정온도 As String, _
|
|
ByVal Original_야간최저허용온도 As String, _
|
|
ByVal Original_주말최저허용온도 As String, _
|
|
ByVal Original_최소설정온도난방 As String, _
|
|
ByVal Original_최소설정온도냉방 As String, _
|
|
ByVal Original_외기온도난방 As String, _
|
|
ByVal Original_외기온도냉방7월 As String, _
|
|
ByVal Original_외기온도냉방9월 As String, _
|
|
ByVal Original_차감계수 As String, _
|
|
ByVal Original_오염계수 As String, _
|
|
ByVal Original_부분운전계수 As String, _
|
|
ByVal Original_day01 As String, _
|
|
ByVal Original_day02 As String, _
|
|
ByVal Original_day03 As String, _
|
|
ByVal Original_day04 As String, _
|
|
ByVal Original_day05 As String, _
|
|
ByVal Original_day06 As String, _
|
|
ByVal Original_day07 As String, _
|
|
ByVal Original_day08 As String, _
|
|
ByVal Original_day09 As String, _
|
|
ByVal Original_day10 As String, _
|
|
ByVal Original_day11 As String, _
|
|
ByVal Original_day12 As String) As Integer
|
|
If (code Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("code")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(code,String)
|
|
End If
|
|
If (설명 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(설명,String)
|
|
End If
|
|
If (일일급탕요구량 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(일일급탕요구량,String)
|
|
End If
|
|
If (사용시작시간 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(사용시작시간,String)
|
|
End If
|
|
If (사용종료시간 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(사용종료시간,String)
|
|
End If
|
|
If (일일사용시간 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(일일사용시간,String)
|
|
End If
|
|
If (운전시작시간 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(운전시작시간,String)
|
|
End If
|
|
If (운전종료시간 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(운전종료시간,String)
|
|
End If
|
|
If (운전시간난방 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(운전시간난방,String)
|
|
End If
|
|
If (연간사용일수 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(연간사용일수,String)
|
|
End If
|
|
If (연간사용시간주간 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(연간사용시간주간,String)
|
|
End If
|
|
If (연간사용시간야간 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(연간사용시간야간,String)
|
|
End If
|
|
If (일일운전시간 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(일일운전시간,String)
|
|
End If
|
|
If (연간운전일수 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(연간운전일수,String)
|
|
End If
|
|
If (요구조도 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(요구조도,String)
|
|
End If
|
|
If (작업면높이 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(작업면높이,String)
|
|
End If
|
|
If (감소계수 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(감소계수,String)
|
|
End If
|
|
If (부재율 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(부재율,String)
|
|
End If
|
|
If (실지수 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(실지수,String)
|
|
End If
|
|
If (최소도입외기량 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(최소도입외기량,String)
|
|
End If
|
|
If (축소운전시최소도입외기량 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(축소운전시최소도입외기량,String)
|
|
End If
|
|
If (사람 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = CType(사람,String)
|
|
End If
|
|
If (작업보조기기 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(작업보조기기,String)
|
|
End If
|
|
If (난방설정온도 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = CType(난방설정온도,String)
|
|
End If
|
|
If (냉방설정온도 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(냉방설정온도,String)
|
|
End If
|
|
If (야간최저허용온도 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = CType(야간최저허용온도,String)
|
|
End If
|
|
If (주말최저허용온도 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(26).Value = CType(주말최저허용온도,String)
|
|
End If
|
|
If (최소설정온도난방 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(27).Value = CType(최소설정온도난방,String)
|
|
End If
|
|
If (최소설정온도냉방 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(28).Value = CType(최소설정온도냉방,String)
|
|
End If
|
|
If (외기온도난방 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(29).Value = CType(외기온도난방,String)
|
|
End If
|
|
If (외기온도냉방7월 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(30).Value = CType(외기온도냉방7월,String)
|
|
End If
|
|
If (외기온도냉방9월 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(31).Value = CType(외기온도냉방9월,String)
|
|
End If
|
|
If (차감계수 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(32).Value = CType(차감계수,String)
|
|
End If
|
|
If (오염계수 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(33).Value = CType(오염계수,String)
|
|
End If
|
|
If (부분운전계수 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(34).Value = CType(부분운전계수,String)
|
|
End If
|
|
If (day01 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(35).Value = CType(day01,String)
|
|
End If
|
|
If (day02 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(36).Value = CType(day02,String)
|
|
End If
|
|
If (day03 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(37).Value = CType(day03,String)
|
|
End If
|
|
If (day04 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(38).Value = CType(day04,String)
|
|
End If
|
|
If (day05 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(39).Value = CType(day05,String)
|
|
End If
|
|
If (day06 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(40).Value = CType(day06,String)
|
|
End If
|
|
If (day07 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(41).Value = CType(day07,String)
|
|
End If
|
|
If (day08 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(42).Value = CType(day08,String)
|
|
End If
|
|
If (day09 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(43).Value = CType(day09,String)
|
|
End If
|
|
If (day10 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(44).Value = CType(day10,String)
|
|
End If
|
|
If (day11 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(45).Value = CType(day11,String)
|
|
End If
|
|
If (day12 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(46).Value = CType(day12,String)
|
|
End If
|
|
If (Original_code Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_code")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_code,String)
|
|
End If
|
|
If (Original_설명 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_설명,String)
|
|
End If
|
|
If (Original_일일급탕요구량 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_일일급탕요구량,String)
|
|
End If
|
|
If (Original_사용시작시간 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_사용시작시간,String)
|
|
End If
|
|
If (Original_사용종료시간 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_사용종료시간,String)
|
|
End If
|
|
If (Original_일일사용시간 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_일일사용시간,String)
|
|
End If
|
|
If (Original_운전시작시간 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_운전시작시간,String)
|
|
End If
|
|
If (Original_운전종료시간 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_운전종료시간,String)
|
|
End If
|
|
If (Original_운전시간난방 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(62).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(62).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Original_운전시간난방,String)
|
|
End If
|
|
If (Original_연간사용일수 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(64).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(64).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Original_연간사용일수,String)
|
|
End If
|
|
If (Original_연간사용시간주간 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(66).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(66).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Original_연간사용시간주간,String)
|
|
End If
|
|
If (Original_연간사용시간야간 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(68).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(68).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(69).Value = CType(Original_연간사용시간야간,String)
|
|
End If
|
|
If (Original_일일운전시간 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(70).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(70).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(71).Value = CType(Original_일일운전시간,String)
|
|
End If
|
|
If (Original_연간운전일수 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(72).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(72).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(73).Value = CType(Original_연간운전일수,String)
|
|
End If
|
|
If (Original_요구조도 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(74).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(74).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(75).Value = CType(Original_요구조도,String)
|
|
End If
|
|
If (Original_작업면높이 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(76).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(76).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(77).Value = CType(Original_작업면높이,String)
|
|
End If
|
|
If (Original_감소계수 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(78).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(78).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(79).Value = CType(Original_감소계수,String)
|
|
End If
|
|
If (Original_부재율 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(80).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(80).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(81).Value = CType(Original_부재율,String)
|
|
End If
|
|
If (Original_실지수 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(82).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(82).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(83).Value = CType(Original_실지수,String)
|
|
End If
|
|
If (Original_최소도입외기량 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(84).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(84).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(85).Value = CType(Original_최소도입외기량,String)
|
|
End If
|
|
If (Original_축소운전시최소도입외기량 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(86).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(86).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(87).Value = CType(Original_축소운전시최소도입외기량,String)
|
|
End If
|
|
If (Original_사람 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(88).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(88).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(89).Value = CType(Original_사람,String)
|
|
End If
|
|
If (Original_작업보조기기 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(90).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(90).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(91).Value = CType(Original_작업보조기기,String)
|
|
End If
|
|
If (Original_난방설정온도 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(92).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(93).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(92).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(93).Value = CType(Original_난방설정온도,String)
|
|
End If
|
|
If (Original_냉방설정온도 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(94).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(95).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(94).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(95).Value = CType(Original_냉방설정온도,String)
|
|
End If
|
|
If (Original_야간최저허용온도 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(96).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(97).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(96).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(97).Value = CType(Original_야간최저허용온도,String)
|
|
End If
|
|
If (Original_주말최저허용온도 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(98).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(99).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(98).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(99).Value = CType(Original_주말최저허용온도,String)
|
|
End If
|
|
If (Original_최소설정온도난방 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(100).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(101).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(100).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(101).Value = CType(Original_최소설정온도난방,String)
|
|
End If
|
|
If (Original_최소설정온도냉방 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(102).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(103).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(102).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(103).Value = CType(Original_최소설정온도냉방,String)
|
|
End If
|
|
If (Original_외기온도난방 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(104).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(105).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(104).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(105).Value = CType(Original_외기온도난방,String)
|
|
End If
|
|
If (Original_외기온도냉방7월 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(106).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(107).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(106).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(107).Value = CType(Original_외기온도냉방7월,String)
|
|
End If
|
|
If (Original_외기온도냉방9월 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(108).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(109).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(108).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(109).Value = CType(Original_외기온도냉방9월,String)
|
|
End If
|
|
If (Original_차감계수 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(110).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(111).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(110).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(111).Value = CType(Original_차감계수,String)
|
|
End If
|
|
If (Original_오염계수 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(112).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(113).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(112).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(113).Value = CType(Original_오염계수,String)
|
|
End If
|
|
If (Original_부분운전계수 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(114).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(115).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(114).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(115).Value = CType(Original_부분운전계수,String)
|
|
End If
|
|
If (Original_day01 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(116).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(117).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(116).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(117).Value = CType(Original_day01,String)
|
|
End If
|
|
If (Original_day02 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(118).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(119).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(118).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(119).Value = CType(Original_day02,String)
|
|
End If
|
|
If (Original_day03 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(120).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(121).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(120).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(121).Value = CType(Original_day03,String)
|
|
End If
|
|
If (Original_day04 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(122).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(123).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(122).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(123).Value = CType(Original_day04,String)
|
|
End If
|
|
If (Original_day05 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(124).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(125).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(124).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(125).Value = CType(Original_day05,String)
|
|
End If
|
|
If (Original_day06 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(126).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(127).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(126).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(127).Value = CType(Original_day06,String)
|
|
End If
|
|
If (Original_day07 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(128).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(129).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(128).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(129).Value = CType(Original_day07,String)
|
|
End If
|
|
If (Original_day08 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(130).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(131).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(130).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(131).Value = CType(Original_day08,String)
|
|
End If
|
|
If (Original_day09 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(132).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(133).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(132).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(133).Value = CType(Original_day09,String)
|
|
End If
|
|
If (Original_day10 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(134).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(135).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(134).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(135).Value = CType(Original_day10,String)
|
|
End If
|
|
If (Original_day11 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(136).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(137).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(136).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(137).Value = CType(Original_day11,String)
|
|
End If
|
|
If (Original_day12 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(138).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(139).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(138).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(139).Value = CType(Original_day12,String)
|
|
End If
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
|
|
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
Me.Adapter.UpdateCommand.Connection.Open
|
|
End If
|
|
Try
|
|
Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
|
|
Return returnValue
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
Me.Adapter.UpdateCommand.Connection.Close
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
|
|
Public Overloads Overridable Function Update( _
|
|
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, _
|
|
ByVal 최소설정온도난방 As String, _
|
|
ByVal 최소설정온도냉방 As String, _
|
|
ByVal 외기온도난방 As String, _
|
|
ByVal 외기온도냉방7월 As String, _
|
|
ByVal 외기온도냉방9월 As String, _
|
|
ByVal 차감계수 As String, _
|
|
ByVal 오염계수 As String, _
|
|
ByVal 부분운전계수 As String, _
|
|
ByVal day01 As String, _
|
|
ByVal day02 As String, _
|
|
ByVal day03 As String, _
|
|
ByVal day04 As String, _
|
|
ByVal day05 As String, _
|
|
ByVal day06 As String, _
|
|
ByVal day07 As String, _
|
|
ByVal day08 As String, _
|
|
ByVal day09 As String, _
|
|
ByVal day10 As String, _
|
|
ByVal day11 As String, _
|
|
ByVal day12 As String, _
|
|
ByVal Original_code As String, _
|
|
ByVal Original_설명 As String, _
|
|
ByVal Original_일일급탕요구량 As String, _
|
|
ByVal Original_사용시작시간 As String, _
|
|
ByVal Original_사용종료시간 As String, _
|
|
ByVal Original_일일사용시간 As String, _
|
|
ByVal Original_운전시작시간 As String, _
|
|
ByVal Original_운전종료시간 As String, _
|
|
ByVal Original_운전시간난방 As String, _
|
|
ByVal Original_연간사용일수 As String, _
|
|
ByVal Original_연간사용시간주간 As String, _
|
|
ByVal Original_연간사용시간야간 As String, _
|
|
ByVal Original_일일운전시간 As String, _
|
|
ByVal Original_연간운전일수 As String, _
|
|
ByVal Original_요구조도 As String, _
|
|
ByVal Original_작업면높이 As String, _
|
|
ByVal Original_감소계수 As String, _
|
|
ByVal Original_부재율 As String, _
|
|
ByVal Original_실지수 As String, _
|
|
ByVal Original_최소도입외기량 As String, _
|
|
ByVal Original_축소운전시최소도입외기량 As String, _
|
|
ByVal Original_사람 As String, _
|
|
ByVal Original_작업보조기기 As String, _
|
|
ByVal Original_난방설정온도 As String, _
|
|
ByVal Original_냉방설정온도 As String, _
|
|
ByVal Original_야간최저허용온도 As String, _
|
|
ByVal Original_주말최저허용온도 As String, _
|
|
ByVal Original_최소설정온도난방 As String, _
|
|
ByVal Original_최소설정온도냉방 As String, _
|
|
ByVal Original_외기온도난방 As String, _
|
|
ByVal Original_외기온도냉방7월 As String, _
|
|
ByVal Original_외기온도냉방9월 As String, _
|
|
ByVal Original_차감계수 As String, _
|
|
ByVal Original_오염계수 As String, _
|
|
ByVal Original_부분운전계수 As String, _
|
|
ByVal Original_day01 As String, _
|
|
ByVal Original_day02 As String, _
|
|
ByVal Original_day03 As String, _
|
|
ByVal Original_day04 As String, _
|
|
ByVal Original_day05 As String, _
|
|
ByVal Original_day06 As String, _
|
|
ByVal Original_day07 As String, _
|
|
ByVal Original_day08 As String, _
|
|
ByVal Original_day09 As String, _
|
|
ByVal Original_day10 As String, _
|
|
ByVal Original_day11 As String, _
|
|
ByVal Original_day12 As String) As Integer
|
|
Return Me.Update(Original_code, 설명, 일일급탕요구량, 사용시작시간, 사용종료시간, 일일사용시간, 운전시작시간, 운전종료시간, 운전시간난방, 연간사용일수, 연간사용시간주간, 연간사용시간야간, 일일운전시간, 연간운전일수, 요구조도, 작업면높이, 감소계수, 부재율, 실지수, 최소도입외기량, 축소운전시최소도입외기량, 사람, 작업보조기기, 난방설정온도, 냉방설정온도, 야간최저허용온도, 주말최저허용온도, 최소설정온도난방, 최소설정온도냉방, 외기온도난방, 외기온도냉방7월, 외기온도냉방9월, 차감계수, 오염계수, 부분운전계수, day01, day02, day03, day04, day05, day06, day07, day08, day09, day10, day11, day12, Original_code, Original_설명, Original_일일급탕요구량, Original_사용시작시간, Original_사용종료시간, Original_일일사용시간, Original_운전시작시간, Original_운전종료시간, Original_운전시간난방, Original_연간사용일수, Original_연간사용시간주간, Original_연간사용시간야간, Original_일일운전시간, Original_연간운전일수, Original_요구조도, Original_작업면높이, Original_감소계수, Original_부재율, Original_실지수, Original_최소도입외기량, Original_축소운전시최소도입외기량, Original_사람, Original_작업보조기기, Original_난방설정온도, Original_냉방설정온도, Original_야간최저허용온도, Original_주말최저허용온도, Original_최소설정온도난방, Original_최소설정온도냉방, Original_외기온도난방, Original_외기온도냉방7월, Original_외기온도냉방9월, Original_차감계수, Original_오염계수, Original_부분운전계수, Original_day01, Original_day02, Original_day03, Original_day04, Original_day05, Original_day06, Original_day07, Original_day08, Original_day09, Original_day10, Original_day11, Original_day12)
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), _
|
|
Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD"& _
|
|
"esigner, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapterManager")> _
|
|
Partial Public Class TableAdapterManager
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private _updateOrder As UpdateOrderOption
|
|
|
|
Private _tbl_profileTableAdapter As tbl_profileTableAdapter
|
|
|
|
Private _backupDataSetBeforeUpdate As Boolean
|
|
|
|
Private _connection As Global.System.Data.IDbConnection
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property UpdateOrder() As UpdateOrderOption
|
|
Get
|
|
Return Me._updateOrder
|
|
End Get
|
|
Set
|
|
Me._updateOrder = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
|
|
"ft.VSDesigner, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"& _
|
|
"", "System.Drawing.Design.UITypeEditor")> _
|
|
Public Property tbl_profileTableAdapter() As tbl_profileTableAdapter
|
|
Get
|
|
Return Me._tbl_profileTableAdapter
|
|
End Get
|
|
Set
|
|
Me._tbl_profileTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Property BackupDataSetBeforeUpdate() As Boolean
|
|
Get
|
|
Return Me._backupDataSetBeforeUpdate
|
|
End Get
|
|
Set
|
|
Me._backupDataSetBeforeUpdate = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public Property Connection() As Global.System.Data.IDbConnection
|
|
Get
|
|
If (Not (Me._connection) Is Nothing) Then
|
|
Return Me._connection
|
|
End If
|
|
If ((Not (Me._tbl_profileTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._tbl_profileTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._tbl_profileTableAdapter.Connection
|
|
End If
|
|
Return Nothing
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property TableAdapterInstanceCount() As Integer
|
|
Get
|
|
Dim count As Integer = 0
|
|
If (Not (Me._tbl_profileTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
Return count
|
|
End Get
|
|
End Property
|
|
|
|
'''<summary>
|
|
'''Update rows in top-down order.
|
|
'''</summary>
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Private Function UpdateUpdatedRows(ByVal dataSet As eco2DataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
|
|
Dim result As Integer = 0
|
|
If (Not (Me._tbl_profileTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_profile.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
|
|
updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
|
|
If ((Not (updatedRows) Is Nothing) _
|
|
AndAlso (0 < updatedRows.Length)) Then
|
|
result = (result + Me._tbl_profileTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
Return result
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Insert rows in top-down order.
|
|
'''</summary>
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Private Function UpdateInsertedRows(ByVal dataSet As eco2DataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
|
|
Dim result As Integer = 0
|
|
If (Not (Me._tbl_profileTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_profile.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._tbl_profileTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
Return result
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Delete rows in bottom-up order.
|
|
'''</summary>
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Private Function UpdateDeletedRows(ByVal dataSet As eco2DataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
|
|
Dim result As Integer = 0
|
|
If (Not (Me._tbl_profileTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_profile.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._tbl_profileTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
Return result
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
|
|
'''</summary>
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow()
|
|
If ((updatedRows Is Nothing) _
|
|
OrElse (updatedRows.Length < 1)) Then
|
|
Return updatedRows
|
|
End If
|
|
If ((allAddedRows Is Nothing) _
|
|
OrElse (allAddedRows.Count < 1)) Then
|
|
Return updatedRows
|
|
End If
|
|
Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)
|
|
Dim i As Integer = 0
|
|
Do While (i < updatedRows.Length)
|
|
Dim row As Global.System.Data.DataRow = updatedRows(i)
|
|
If (allAddedRows.Contains(row) = false) Then
|
|
realUpdatedRows.Add(row)
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
Return realUpdatedRows.ToArray
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Update all changes to the dataset.
|
|
'''</summary>
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Overridable Function UpdateAll(ByVal dataSet As eco2DataSet) As Integer
|
|
If (dataSet Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("dataSet")
|
|
End If
|
|
If (dataSet.HasChanges = false) Then
|
|
Return 0
|
|
End If
|
|
If ((Not (Me._tbl_profileTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._tbl_profileTableAdapter.Connection) = false)) Then
|
|
Throw New Global.System.ArgumentException("TableAdapterManager에서 관리하는 모든 TableAdapter에는 동일한 연결 문자열을 사용해야 합니다.")
|
|
End If
|
|
Dim workConnection As Global.System.Data.IDbConnection = Me.Connection
|
|
If (workConnection Is Nothing) Then
|
|
Throw New Global.System.ApplicationException("TableAdapterManager에 연결 정보가 없습니다. 각 TableAdapterManager TableAdapter 속성을 올바른 Tabl"& _
|
|
"eAdapter 인스턴스로 설정하십시오.")
|
|
End If
|
|
Dim workConnOpened As Boolean = false
|
|
If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _
|
|
= Global.System.Data.ConnectionState.Broken) Then
|
|
workConnection.Close
|
|
End If
|
|
If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then
|
|
workConnection.Open
|
|
workConnOpened = true
|
|
End If
|
|
Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction
|
|
If (workTransaction Is Nothing) Then
|
|
Throw New Global.System.ApplicationException("트랜잭션을 시작할 수 없습니다. 현재 데이터 연결에서 트랜잭션이 지원되지 않거나 현재 상태에서 트랜잭션을 시작할 수 없습니다.")
|
|
End If
|
|
Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)
|
|
Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)
|
|
Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)
|
|
Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)
|
|
Dim result As Integer = 0
|
|
Dim backupDataSet As Global.System.Data.DataSet = Nothing
|
|
If Me.BackupDataSetBeforeUpdate Then
|
|
backupDataSet = New Global.System.Data.DataSet
|
|
backupDataSet.Merge(dataSet)
|
|
End If
|
|
Try
|
|
'---- Prepare for update -----------
|
|
'
|
|
If (Not (Me._tbl_profileTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._tbl_profileTableAdapter, Me._tbl_profileTableAdapter.Connection)
|
|
Me._tbl_profileTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tbl_profileTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
|
|
If Me._tbl_profileTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._tbl_profileTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_profileTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
'
|
|
'---- Perform updates -----------
|
|
'
|
|
If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then
|
|
result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
|
|
result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
|
|
Else
|
|
result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
|
|
result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
|
|
End If
|
|
result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows))
|
|
'
|
|
'---- Commit updates -----------
|
|
'
|
|
workTransaction.Commit
|
|
If (0 < allAddedRows.Count) Then
|
|
Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
|
|
allAddedRows.CopyTo(rows)
|
|
Dim i As Integer = 0
|
|
Do While (i < rows.Length)
|
|
Dim row As Global.System.Data.DataRow = rows(i)
|
|
row.AcceptChanges
|
|
i = (i + 1)
|
|
Loop
|
|
End If
|
|
If (0 < allChangedRows.Count) Then
|
|
Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow
|
|
allChangedRows.CopyTo(rows)
|
|
Dim i As Integer = 0
|
|
Do While (i < rows.Length)
|
|
Dim row As Global.System.Data.DataRow = rows(i)
|
|
row.AcceptChanges
|
|
i = (i + 1)
|
|
Loop
|
|
End If
|
|
Catch ex As Global.System.Exception
|
|
workTransaction.Rollback
|
|
'---- Restore the dataset -----------
|
|
If Me.BackupDataSetBeforeUpdate Then
|
|
Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing))
|
|
dataSet.Clear
|
|
dataSet.Merge(backupDataSet)
|
|
Else
|
|
If (0 < allAddedRows.Count) Then
|
|
Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
|
|
allAddedRows.CopyTo(rows)
|
|
Dim i As Integer = 0
|
|
Do While (i < rows.Length)
|
|
Dim row As Global.System.Data.DataRow = rows(i)
|
|
row.AcceptChanges
|
|
row.SetAdded
|
|
i = (i + 1)
|
|
Loop
|
|
End If
|
|
End If
|
|
Throw ex
|
|
Finally
|
|
If workConnOpened Then
|
|
workConnection.Close
|
|
End If
|
|
If (Not (Me._tbl_profileTableAdapter) Is Nothing) Then
|
|
Me._tbl_profileTableAdapter.Connection = CType(revertConnections(Me._tbl_profileTableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tbl_profileTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then
|
|
Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter
|
|
adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters)
|
|
Dim i As Integer = 0
|
|
Do While (i < adapters.Length)
|
|
Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i)
|
|
adapter.AcceptChangesDuringUpdate = true
|
|
i = (i + 1)
|
|
Loop
|
|
End If
|
|
End Try
|
|
Return result
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
|
|
Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean
|
|
If (Not (Me._connection) Is Nothing) Then
|
|
Return true
|
|
End If
|
|
If ((Me.Connection Is Nothing) _
|
|
OrElse (inputConnection Is Nothing)) Then
|
|
Return true
|
|
End If
|
|
If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then
|
|
Return true
|
|
End If
|
|
Return false
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Update Order Option
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
|
|
Public Enum UpdateOrderOption
|
|
|
|
InsertUpdateDelete = 0
|
|
|
|
UpdateInsertDelete = 1
|
|
End Enum
|
|
|
|
'''<summary>
|
|
'''Used to sort self-referenced table's rows
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
|
|
Private Class SelfReferenceComparer
|
|
Inherits Object
|
|
Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow)
|
|
|
|
Private _relation As Global.System.Data.DataRelation
|
|
|
|
Private _childFirst As Integer
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
|
|
MyBase.New
|
|
Me._relation = relation
|
|
If childFirst Then
|
|
Me._childFirst = -1
|
|
Else
|
|
Me._childFirst = 1
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Private Function IsChildAndParent(ByVal child As Global.System.Data.DataRow, ByVal parent As Global.System.Data.DataRow) As Boolean
|
|
Global.System.Diagnostics.Debug.Assert((Not (child) Is Nothing))
|
|
Global.System.Diagnostics.Debug.Assert((Not (parent) Is Nothing))
|
|
Dim newParent As Global.System.Data.DataRow = child.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
|
|
|
|
Do While ((Not (newParent) Is Nothing) _
|
|
AndAlso ((Object.ReferenceEquals(newParent, child) = false) _
|
|
AndAlso (Object.ReferenceEquals(newParent, parent) = false)))
|
|
newParent = newParent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
|
|
|
|
Loop
|
|
If (newParent Is Nothing) Then
|
|
newParent = child.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
|
|
Do While ((Not (newParent) Is Nothing) _
|
|
AndAlso ((Object.ReferenceEquals(newParent, child) = false) _
|
|
AndAlso (Object.ReferenceEquals(newParent, parent) = false)))
|
|
newParent = newParent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
|
|
|
|
Loop
|
|
End If
|
|
If Object.ReferenceEquals(newParent, parent) Then
|
|
Return true
|
|
End If
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
|
|
Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare
|
|
If Object.ReferenceEquals(row1, row2) Then
|
|
Return 0
|
|
End If
|
|
If (row1 Is Nothing) Then
|
|
Return -1
|
|
End If
|
|
If (row2 Is Nothing) Then
|
|
Return 1
|
|
End If
|
|
|
|
'Is row1 the child or grandchild of row2
|
|
If Me.IsChildAndParent(row1, row2) Then
|
|
Return Me._childFirst
|
|
End If
|
|
|
|
'Is row2 the child or grandchild of row1
|
|
If Me.IsChildAndParent(row2, row1) Then
|
|
Return (-1 * Me._childFirst)
|
|
End If
|
|
Return 0
|
|
End Function
|
|
End Class
|
|
End Class
|
|
End Namespace
|