'------------------------------------------------------------------------------ ' ' 이 코드는 도구를 사용하여 생성되었습니다. ' 런타임 버전:2.0.50727.3615 ' ' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면 ' 이러한 변경 내용이 손실됩니다. ' '------------------------------------------------------------------------------ Option Strict Off Option Explicit On ''' '''Represents a strongly typed in-memory cache of data. ''' _ 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 _ Public Sub New() MyBase.New Me.BeginInit Me.InitClass Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler Me.EndInit End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context, false) If (Me.IsBinarySerialized(info, context) = true) Then Me.InitVars(false) Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 Return End If Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) If (Not (ds.Tables("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 _ Public ReadOnly Property tbl_profile() As tbl_profileDataTable Get Return Me.tabletbl_profile End Get End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode Get Return Me._schemaSerializationMode End Get Set Me._schemaSerializationMode = value End Set End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get Return MyBase.Tables End Get End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get Return MyBase.Relations End Get End Property _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass Me.EndInit End Sub _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As eco2DataSet = CType(MyBase.Clone,eco2DataSet) cln.InitVars cln.SchemaSerializationMode = Me.SchemaSerializationMode Return cln End Function _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Me.Reset Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet ds.ReadXml(reader) If (Not (ds.Tables("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 _ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) stream.Position = 0 Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) End Function _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) Me.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 _ 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 _ Private Function ShouldSerializetbl_profile() As Boolean Return false End Function _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then Me.InitVars End If End Sub _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As 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) ''' '''Represents the strongly named DataTable class. ''' _ 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 _ Public Sub New() MyBase.New Me.TableName = "tbl_profile" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property codeColumn() As Global.System.Data.DataColumn Get Return Me.columncode End Get End Property _ Public ReadOnly Property 설명Column() As Global.System.Data.DataColumn Get Return Me.column설명 End Get End Property _ Public ReadOnly Property 일일급탕요구량Column() As Global.System.Data.DataColumn Get Return Me.column일일급탕요구량 End Get End Property _ Public ReadOnly Property 사용시작시간Column() As Global.System.Data.DataColumn Get Return Me.column사용시작시간 End Get End Property _ Public ReadOnly Property 사용종료시간Column() As Global.System.Data.DataColumn Get Return Me.column사용종료시간 End Get End Property _ Public ReadOnly Property 일일사용시간Column() As Global.System.Data.DataColumn Get Return Me.column일일사용시간 End Get End Property _ Public ReadOnly Property 운전시작시간Column() As Global.System.Data.DataColumn Get Return Me.column운전시작시간 End Get End Property _ Public ReadOnly Property 운전종료시간Column() As Global.System.Data.DataColumn Get Return Me.column운전종료시간 End Get End Property _ Public ReadOnly Property 운전시간난방Column() As Global.System.Data.DataColumn Get Return Me.column운전시간난방 End Get End Property _ Public ReadOnly Property 연간사용일수Column() As Global.System.Data.DataColumn Get Return Me.column연간사용일수 End Get End Property _ Public ReadOnly Property 연간사용시간주간Column() As Global.System.Data.DataColumn Get Return Me.column연간사용시간주간 End Get End Property _ Public ReadOnly Property 연간사용시간야간Column() As Global.System.Data.DataColumn Get Return Me.column연간사용시간야간 End Get End Property _ Public ReadOnly Property 일일운전시간Column() As Global.System.Data.DataColumn Get Return Me.column일일운전시간 End Get End Property _ Public ReadOnly Property 연간운전일수Column() As Global.System.Data.DataColumn Get Return Me.column연간운전일수 End Get End Property _ Public ReadOnly Property 요구조도Column() As Global.System.Data.DataColumn Get Return Me.column요구조도 End Get End Property _ Public ReadOnly Property 작업면높이Column() As Global.System.Data.DataColumn Get Return Me.column작업면높이 End Get End Property _ Public ReadOnly Property 감소계수Column() As Global.System.Data.DataColumn Get Return Me.column감소계수 End Get End Property _ Public ReadOnly Property 부재율Column() As Global.System.Data.DataColumn Get Return Me.column부재율 End Get End Property _ Public ReadOnly Property 실지수Column() As Global.System.Data.DataColumn Get Return Me.column실지수 End Get End Property _ Public ReadOnly Property 최소도입외기량Column() As Global.System.Data.DataColumn Get Return Me.column최소도입외기량 End Get End Property _ Public ReadOnly Property 축소운전시최소도입외기량Column() As Global.System.Data.DataColumn Get Return Me.column축소운전시최소도입외기량 End Get End Property _ Public ReadOnly Property 사람Column() As Global.System.Data.DataColumn Get Return Me.column사람 End Get End Property _ Public ReadOnly Property 작업보조기기Column() As Global.System.Data.DataColumn Get Return Me.column작업보조기기 End Get End Property _ Public ReadOnly Property 난방설정온도Column() As Global.System.Data.DataColumn Get Return Me.column난방설정온도 End Get End Property _ Public ReadOnly Property 냉방설정온도Column() As Global.System.Data.DataColumn Get Return Me.column냉방설정온도 End Get End Property _ Public ReadOnly Property 야간최저허용온도Column() As Global.System.Data.DataColumn Get Return Me.column야간최저허용온도 End Get End Property _ Public ReadOnly Property 주말최저허용온도Column() As Global.System.Data.DataColumn Get Return Me.column주말최저허용온도 End Get End Property _ Public ReadOnly Property 최소설정온도난방Column() As Global.System.Data.DataColumn Get Return Me.column최소설정온도난방 End Get End Property _ Public ReadOnly Property 최소설정온도냉방Column() As Global.System.Data.DataColumn Get Return Me.column최소설정온도냉방 End Get End Property _ Public ReadOnly Property 외기온도난방Column() As Global.System.Data.DataColumn Get Return Me.column외기온도난방 End Get End Property _ Public ReadOnly Property 외기온도냉방7월Column() As Global.System.Data.DataColumn Get Return Me.column외기온도냉방7월 End Get End Property _ Public ReadOnly Property 외기온도냉방9월Column() As Global.System.Data.DataColumn Get Return Me.column외기온도냉방9월 End Get End Property _ Public ReadOnly Property 차감계수Column() As Global.System.Data.DataColumn Get Return Me.column차감계수 End Get End Property _ Public ReadOnly Property 오염계수Column() As Global.System.Data.DataColumn Get Return Me.column오염계수 End Get End Property _ Public ReadOnly Property 부분운전계수Column() As Global.System.Data.DataColumn Get Return Me.column부분운전계수 End Get End Property _ Public ReadOnly Property day01Column() As Global.System.Data.DataColumn Get Return Me.columnday01 End Get End Property _ Public ReadOnly Property day02Column() As Global.System.Data.DataColumn Get Return Me.columnday02 End Get End Property _ Public ReadOnly Property day03Column() As Global.System.Data.DataColumn Get Return Me.columnday03 End Get End Property _ Public ReadOnly Property day04Column() As Global.System.Data.DataColumn Get Return Me.columnday04 End Get End Property _ Public ReadOnly Property day05Column() As Global.System.Data.DataColumn Get Return Me.columnday05 End Get End Property _ Public ReadOnly Property day06Column() As Global.System.Data.DataColumn Get Return Me.columnday06 End Get End Property _ Public ReadOnly Property day07Column() As Global.System.Data.DataColumn Get Return Me.columnday07 End Get End Property _ Public ReadOnly Property day08Column() As Global.System.Data.DataColumn Get Return Me.columnday08 End Get End Property _ Public ReadOnly Property day09Column() As Global.System.Data.DataColumn Get Return Me.columnday09 End Get End Property _ Public ReadOnly Property day10Column() As Global.System.Data.DataColumn Get Return Me.columnday10 End Get End Property _ Public ReadOnly Property day11Column() As Global.System.Data.DataColumn Get Return Me.columnday11 End Get End Property _ Public ReadOnly Property day12Column() As Global.System.Data.DataColumn Get Return Me.columnday12 End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As 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 _ Public Overloads Sub Addtbl_profileRow(ByVal row As tbl_profileRow) Me.Rows.Add(row) End Sub _ 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 _ Public Function FindBycode(ByVal code As String) As tbl_profileRow Return CType(Me.Rows.Find(New Object() {code}),tbl_profileRow) End Function _ Public Overridable Function GetEnumerator() As Global.System.Collections.IEnumerator Implements Global.System.Collections.IEnumerable.GetEnumerator Return Me.Rows.GetEnumerator End Function _ 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 _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_profileDataTable End Function _ 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 _ 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 _ Public Function Newtbl_profileRow() As tbl_profileRow Return CType(Me.NewRow,tbl_profileRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_profileRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_profileRow) End Function _ 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 _ 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 _ 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 _ 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 _ Public Sub Removetbl_profileRow(ByVal row As tbl_profileRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence Dim ds As 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 ''' '''Represents strongly named DataRow class. ''' _ Partial Public Class tbl_profileRow Inherits Global.System.Data.DataRow Private tabletbl_profile As tbl_profileDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_profile = CType(Me.Table,tbl_profileDataTable) End Sub _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ Public Function Is설명Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.설명Column) End Function _ Public Sub Set설명Null() Me(Me.tabletbl_profile.설명Column) = Global.System.Convert.DBNull End Sub _ Public Function Is일일급탕요구량Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.일일급탕요구량Column) End Function _ Public Sub Set일일급탕요구량Null() Me(Me.tabletbl_profile.일일급탕요구량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is사용시작시간Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.사용시작시간Column) End Function _ Public Sub Set사용시작시간Null() Me(Me.tabletbl_profile.사용시작시간Column) = Global.System.Convert.DBNull End Sub _ Public Function Is사용종료시간Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.사용종료시간Column) End Function _ Public Sub Set사용종료시간Null() Me(Me.tabletbl_profile.사용종료시간Column) = Global.System.Convert.DBNull End Sub _ Public Function Is일일사용시간Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.일일사용시간Column) End Function _ Public Sub Set일일사용시간Null() Me(Me.tabletbl_profile.일일사용시간Column) = Global.System.Convert.DBNull End Sub _ Public Function Is운전시작시간Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.운전시작시간Column) End Function _ Public Sub Set운전시작시간Null() Me(Me.tabletbl_profile.운전시작시간Column) = Global.System.Convert.DBNull End Sub _ Public Function Is운전종료시간Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.운전종료시간Column) End Function _ Public Sub Set운전종료시간Null() Me(Me.tabletbl_profile.운전종료시간Column) = Global.System.Convert.DBNull End Sub _ Public Function Is운전시간난방Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.운전시간난방Column) End Function _ Public Sub Set운전시간난방Null() Me(Me.tabletbl_profile.운전시간난방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is연간사용일수Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.연간사용일수Column) End Function _ Public Sub Set연간사용일수Null() Me(Me.tabletbl_profile.연간사용일수Column) = Global.System.Convert.DBNull End Sub _ Public Function Is연간사용시간주간Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.연간사용시간주간Column) End Function _ Public Sub Set연간사용시간주간Null() Me(Me.tabletbl_profile.연간사용시간주간Column) = Global.System.Convert.DBNull End Sub _ Public Function Is연간사용시간야간Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.연간사용시간야간Column) End Function _ Public Sub Set연간사용시간야간Null() Me(Me.tabletbl_profile.연간사용시간야간Column) = Global.System.Convert.DBNull End Sub _ Public Function Is일일운전시간Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.일일운전시간Column) End Function _ Public Sub Set일일운전시간Null() Me(Me.tabletbl_profile.일일운전시간Column) = Global.System.Convert.DBNull End Sub _ Public Function Is연간운전일수Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.연간운전일수Column) End Function _ Public Sub Set연간운전일수Null() Me(Me.tabletbl_profile.연간운전일수Column) = Global.System.Convert.DBNull End Sub _ Public Function Is요구조도Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.요구조도Column) End Function _ Public Sub Set요구조도Null() Me(Me.tabletbl_profile.요구조도Column) = Global.System.Convert.DBNull End Sub _ Public Function Is작업면높이Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.작업면높이Column) End Function _ Public Sub Set작업면높이Null() Me(Me.tabletbl_profile.작업면높이Column) = Global.System.Convert.DBNull End Sub _ Public Function Is감소계수Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.감소계수Column) End Function _ Public Sub Set감소계수Null() Me(Me.tabletbl_profile.감소계수Column) = Global.System.Convert.DBNull End Sub _ Public Function Is부재율Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.부재율Column) End Function _ Public Sub Set부재율Null() Me(Me.tabletbl_profile.부재율Column) = Global.System.Convert.DBNull End Sub _ Public Function Is실지수Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.실지수Column) End Function _ Public Sub Set실지수Null() Me(Me.tabletbl_profile.실지수Column) = Global.System.Convert.DBNull End Sub _ Public Function Is최소도입외기량Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.최소도입외기량Column) End Function _ Public Sub Set최소도입외기량Null() Me(Me.tabletbl_profile.최소도입외기량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is축소운전시최소도입외기량Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.축소운전시최소도입외기량Column) End Function _ Public Sub Set축소운전시최소도입외기량Null() Me(Me.tabletbl_profile.축소운전시최소도입외기량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is사람Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.사람Column) End Function _ Public Sub Set사람Null() Me(Me.tabletbl_profile.사람Column) = Global.System.Convert.DBNull End Sub _ Public Function Is작업보조기기Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.작업보조기기Column) End Function _ Public Sub Set작업보조기기Null() Me(Me.tabletbl_profile.작업보조기기Column) = Global.System.Convert.DBNull End Sub _ Public Function Is난방설정온도Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.난방설정온도Column) End Function _ Public Sub Set난방설정온도Null() Me(Me.tabletbl_profile.난방설정온도Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉방설정온도Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.냉방설정온도Column) End Function _ Public Sub Set냉방설정온도Null() Me(Me.tabletbl_profile.냉방설정온도Column) = Global.System.Convert.DBNull End Sub _ Public Function Is야간최저허용온도Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.야간최저허용온도Column) End Function _ Public Sub Set야간최저허용온도Null() Me(Me.tabletbl_profile.야간최저허용온도Column) = Global.System.Convert.DBNull End Sub _ Public Function Is주말최저허용온도Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.주말최저허용온도Column) End Function _ Public Sub Set주말최저허용온도Null() Me(Me.tabletbl_profile.주말최저허용온도Column) = Global.System.Convert.DBNull End Sub _ Public Function Is최소설정온도난방Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.최소설정온도난방Column) End Function _ Public Sub Set최소설정온도난방Null() Me(Me.tabletbl_profile.최소설정온도난방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is최소설정온도냉방Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.최소설정온도냉방Column) End Function _ Public Sub Set최소설정온도냉방Null() Me(Me.tabletbl_profile.최소설정온도냉방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is외기온도난방Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.외기온도난방Column) End Function _ Public Sub Set외기온도난방Null() Me(Me.tabletbl_profile.외기온도난방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is외기온도냉방7월Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.외기온도냉방7월Column) End Function _ Public Sub Set외기온도냉방7월Null() Me(Me.tabletbl_profile.외기온도냉방7월Column) = Global.System.Convert.DBNull End Sub _ Public Function Is외기온도냉방9월Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.외기온도냉방9월Column) End Function _ Public Sub Set외기온도냉방9월Null() Me(Me.tabletbl_profile.외기온도냉방9월Column) = Global.System.Convert.DBNull End Sub _ Public Function Is차감계수Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.차감계수Column) End Function _ Public Sub Set차감계수Null() Me(Me.tabletbl_profile.차감계수Column) = Global.System.Convert.DBNull End Sub _ Public Function Is오염계수Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.오염계수Column) End Function _ Public Sub Set오염계수Null() Me(Me.tabletbl_profile.오염계수Column) = Global.System.Convert.DBNull End Sub _ Public Function Is부분운전계수Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.부분운전계수Column) End Function _ Public Sub Set부분운전계수Null() Me(Me.tabletbl_profile.부분운전계수Column) = Global.System.Convert.DBNull End Sub _ Public Function Isday01Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.day01Column) End Function _ Public Sub Setday01Null() Me(Me.tabletbl_profile.day01Column) = Global.System.Convert.DBNull End Sub _ Public Function Isday02Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.day02Column) End Function _ Public Sub Setday02Null() Me(Me.tabletbl_profile.day02Column) = Global.System.Convert.DBNull End Sub _ Public Function Isday03Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.day03Column) End Function _ Public Sub Setday03Null() Me(Me.tabletbl_profile.day03Column) = Global.System.Convert.DBNull End Sub _ Public Function Isday04Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.day04Column) End Function _ Public Sub Setday04Null() Me(Me.tabletbl_profile.day04Column) = Global.System.Convert.DBNull End Sub _ Public Function Isday05Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.day05Column) End Function _ Public Sub Setday05Null() Me(Me.tabletbl_profile.day05Column) = Global.System.Convert.DBNull End Sub _ Public Function Isday06Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.day06Column) End Function _ Public Sub Setday06Null() Me(Me.tabletbl_profile.day06Column) = Global.System.Convert.DBNull End Sub _ Public Function Isday07Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.day07Column) End Function _ Public Sub Setday07Null() Me(Me.tabletbl_profile.day07Column) = Global.System.Convert.DBNull End Sub _ Public Function Isday08Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.day08Column) End Function _ Public Sub Setday08Null() Me(Me.tabletbl_profile.day08Column) = Global.System.Convert.DBNull End Sub _ Public Function Isday09Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.day09Column) End Function _ Public Sub Setday09Null() Me(Me.tabletbl_profile.day09Column) = Global.System.Convert.DBNull End Sub _ Public Function Isday10Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.day10Column) End Function _ Public Sub Setday10Null() Me(Me.tabletbl_profile.day10Column) = Global.System.Convert.DBNull End Sub _ Public Function Isday11Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.day11Column) End Function _ Public Sub Setday11Null() Me(Me.tabletbl_profile.day11Column) = Global.System.Convert.DBNull End Sub _ Public Function Isday12Null() As Boolean Return Me.IsNull(Me.tabletbl_profile.day12Column) End Function _ Public Sub Setday12Null() Me(Me.tabletbl_profile.day12Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Row event argument class ''' _ Public Class tbl_profileRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_profileRow Private eventAction As Global.System.Data.DataRowAction _ 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 _ Public ReadOnly Property Row() As tbl_profileRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class End Class Namespace eco2DataSetTableAdapters ''' '''Represents the connection and commands used to retrieve and save data. ''' _ 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 _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ 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 _ 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 _ 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 _ 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 _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ 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 _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection Me._connection.ConnectionString = Global.Eco2Ar.My.MySettings.Default.cs End Sub _ 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 _ 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 _ 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 _ Public Overloads Overridable Function Update(ByVal dataTable As eco2DataSet.tbl_profileDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As eco2DataSet) As Integer Return Me.Adapter.Update(dataSet, "tbl_profile") End Function _ 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 _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ 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 _ 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 _ 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 _ 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 ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' _ 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 _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder End Get Set Me._updateOrder = value End Set End Property _ Public Property tbl_profileTableAdapter() As tbl_profileTableAdapter Get Return Me._tbl_profileTableAdapter End Get Set Me._tbl_profileTableAdapter = value End Set End Property _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate End Get Set Me._backupDataSetBeforeUpdate = value End Set End Property _ 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 _ 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 ''' '''Update rows in top-down order. ''' _ 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 ''' '''Insert rows in top-down order. ''' _ 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 ''' '''Delete rows in bottom-up order. ''' _ 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 ''' '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' _ 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 ''' '''Update all changes to the dataset. ''' _ 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 _ 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 _ 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 ''' '''Update Order Option ''' _ Public Enum UpdateOrderOption InsertUpdateDelete = 0 UpdateInsertDelete = 1 End Enum ''' '''Used to sort self-referenced table's rows ''' _ 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 _ 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 _ 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 _ 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