'------------------------------------------------------------------------------ ' ' 이 코드는 도구를 사용하여 생성되었습니다. ' 런타임 버전:4.0.30319.42000 ' ' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면 ' 이러한 변경 내용이 손실됩니다. ' '------------------------------------------------------------------------------ Option Strict Off Option Explicit On ''' '''Represents a strongly typed in-memory cache of data. ''' _ Partial Public Class DS Inherits Global.System.Data.DataSet Private tableweather_cha As weather_chaDataTable Private tableweather_temp As weather_tempDataTable Private tabletbl_weather As tbl_weatherDataTable Private tableweather_ilsa As weather_ilsaDataTable Private tableweather_supdo As weather_supdoDataTable Private tabletbl_profile As tbl_profileDataTable Private tabletbl_common As tbl_commonDataTable Private tableweather_group As weather_groupDataTable Private tabletbl_pic As tbl_picDataTable Private tabletbl_nanbangkiki As tbl_nanbangkikiDataTable Private tabletbl_nangbangkiki As tbl_nangbangkikiDataTable Private tabletbl_bunbae As tbl_bunbaeDataTable Private tabletbl_new As tbl_newDataTable Private tabletbl_myoun As tbl_myounDataTable Private tabletbl_buha As tbl_buhaDataTable Private tabletbl_nbunbae As tbl_nbunbaeDataTable Private tabletbl_kongjo As tbl_kongjoDataTable Private tabletbl_kongkub As tbl_kongkubDataTable Private tabletbl_yk As tbl_ykDataTable Private tabletbl_ykdetail As tbl_ykdetailDataTable Private tabletbl_zone As tbl_zoneDataTable Private tabletbl_monuse As tbl_monuseDataTable Private tabletbl_Desc As tbl_DescDataTable 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 Me.InitExpressions 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 If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.ExcludeSchema) Then Me.InitExpressions End If 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("weather_cha")) Is Nothing) Then MyBase.Tables.Add(New weather_chaDataTable(ds.Tables("weather_cha"))) End If If (Not (ds.Tables("weather_temp")) Is Nothing) Then MyBase.Tables.Add(New weather_tempDataTable(ds.Tables("weather_temp"))) End If If (Not (ds.Tables("tbl_weather")) Is Nothing) Then MyBase.Tables.Add(New tbl_weatherDataTable(ds.Tables("tbl_weather"))) End If If (Not (ds.Tables("weather_ilsa")) Is Nothing) Then MyBase.Tables.Add(New weather_ilsaDataTable(ds.Tables("weather_ilsa"))) End If If (Not (ds.Tables("weather_supdo")) Is Nothing) Then MyBase.Tables.Add(New weather_supdoDataTable(ds.Tables("weather_supdo"))) End If If (Not (ds.Tables("tbl_profile")) Is Nothing) Then MyBase.Tables.Add(New tbl_profileDataTable(ds.Tables("tbl_profile"))) End If If (Not (ds.Tables("tbl_common")) Is Nothing) Then MyBase.Tables.Add(New tbl_commonDataTable(ds.Tables("tbl_common"))) End If If (Not (ds.Tables("weather_group")) Is Nothing) Then MyBase.Tables.Add(New weather_groupDataTable(ds.Tables("weather_group"))) End If If (Not (ds.Tables("tbl_pic")) Is Nothing) Then MyBase.Tables.Add(New tbl_picDataTable(ds.Tables("tbl_pic"))) End If If (Not (ds.Tables("tbl_nanbangkiki")) Is Nothing) Then MyBase.Tables.Add(New tbl_nanbangkikiDataTable(ds.Tables("tbl_nanbangkiki"))) End If If (Not (ds.Tables("tbl_nangbangkiki")) Is Nothing) Then MyBase.Tables.Add(New tbl_nangbangkikiDataTable(ds.Tables("tbl_nangbangkiki"))) End If If (Not (ds.Tables("tbl_bunbae")) Is Nothing) Then MyBase.Tables.Add(New tbl_bunbaeDataTable(ds.Tables("tbl_bunbae"))) End If If (Not (ds.Tables("tbl_new")) Is Nothing) Then MyBase.Tables.Add(New tbl_newDataTable(ds.Tables("tbl_new"))) End If If (Not (ds.Tables("tbl_myoun")) Is Nothing) Then MyBase.Tables.Add(New tbl_myounDataTable(ds.Tables("tbl_myoun"))) End If If (Not (ds.Tables("tbl_buha")) Is Nothing) Then MyBase.Tables.Add(New tbl_buhaDataTable(ds.Tables("tbl_buha"))) End If If (Not (ds.Tables("tbl_nbunbae")) Is Nothing) Then MyBase.Tables.Add(New tbl_nbunbaeDataTable(ds.Tables("tbl_nbunbae"))) End If If (Not (ds.Tables("tbl_kongjo")) Is Nothing) Then MyBase.Tables.Add(New tbl_kongjoDataTable(ds.Tables("tbl_kongjo"))) End If If (Not (ds.Tables("tbl_kongkub")) Is Nothing) Then MyBase.Tables.Add(New tbl_kongkubDataTable(ds.Tables("tbl_kongkub"))) End If If (Not (ds.Tables("tbl_yk")) Is Nothing) Then MyBase.Tables.Add(New tbl_ykDataTable(ds.Tables("tbl_yk"))) End If If (Not (ds.Tables("tbl_ykdetail")) Is Nothing) Then MyBase.Tables.Add(New tbl_ykdetailDataTable(ds.Tables("tbl_ykdetail"))) End If If (Not (ds.Tables("tbl_zone")) Is Nothing) Then MyBase.Tables.Add(New tbl_zoneDataTable(ds.Tables("tbl_zone"))) End If If (Not (ds.Tables("tbl_monuse")) Is Nothing) Then MyBase.Tables.Add(New tbl_monuseDataTable(ds.Tables("tbl_monuse"))) End If If (Not (ds.Tables("tbl_Desc")) Is Nothing) Then MyBase.Tables.Add(New tbl_DescDataTable(ds.Tables("tbl_Desc"))) 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))) Me.InitExpressions 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 weather_cha() As weather_chaDataTable Get Return Me.tableweather_cha End Get End Property _ Public ReadOnly Property weather_temp() As weather_tempDataTable Get Return Me.tableweather_temp End Get End Property _ Public ReadOnly Property tbl_weather() As tbl_weatherDataTable Get Return Me.tabletbl_weather End Get End Property _ Public ReadOnly Property weather_ilsa() As weather_ilsaDataTable Get Return Me.tableweather_ilsa End Get End Property _ Public ReadOnly Property weather_supdo() As weather_supdoDataTable Get Return Me.tableweather_supdo End Get End Property _ Public ReadOnly Property tbl_profile() As tbl_profileDataTable Get Return Me.tabletbl_profile End Get End Property _ Public ReadOnly Property tbl_common() As tbl_commonDataTable Get Return Me.tabletbl_common End Get End Property _ Public ReadOnly Property weather_group() As weather_groupDataTable Get Return Me.tableweather_group End Get End Property _ Public ReadOnly Property tbl_pic() As tbl_picDataTable Get Return Me.tabletbl_pic End Get End Property _ Public ReadOnly Property tbl_nanbangkiki() As tbl_nanbangkikiDataTable Get Return Me.tabletbl_nanbangkiki End Get End Property _ Public ReadOnly Property tbl_nangbangkiki() As tbl_nangbangkikiDataTable Get Return Me.tabletbl_nangbangkiki End Get End Property _ Public ReadOnly Property tbl_bunbae() As tbl_bunbaeDataTable Get Return Me.tabletbl_bunbae End Get End Property _ Public ReadOnly Property tbl_new() As tbl_newDataTable Get Return Me.tabletbl_new End Get End Property _ Public ReadOnly Property tbl_myoun() As tbl_myounDataTable Get Return Me.tabletbl_myoun End Get End Property _ Public ReadOnly Property tbl_buha() As tbl_buhaDataTable Get Return Me.tabletbl_buha End Get End Property _ Public ReadOnly Property tbl_nbunbae() As tbl_nbunbaeDataTable Get Return Me.tabletbl_nbunbae End Get End Property _ Public ReadOnly Property tbl_kongjo() As tbl_kongjoDataTable Get Return Me.tabletbl_kongjo End Get End Property _ Public ReadOnly Property tbl_kongkub() As tbl_kongkubDataTable Get Return Me.tabletbl_kongkub End Get End Property _ Public ReadOnly Property tbl_yk() As tbl_ykDataTable Get Return Me.tabletbl_yk End Get End Property _ Public ReadOnly Property tbl_ykdetail() As tbl_ykdetailDataTable Get Return Me.tabletbl_ykdetail End Get End Property _ Public ReadOnly Property tbl_zone() As tbl_zoneDataTable Get Return Me.tabletbl_zone End Get End Property _ Public ReadOnly Property tbl_monuse() As tbl_monuseDataTable Get Return Me.tabletbl_monuse End Get End Property _ Public ReadOnly Property tbl_Desc() As tbl_DescDataTable Get Return Me.tabletbl_Desc 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 DS = CType(MyBase.Clone,DS) cln.InitVars cln.InitExpressions 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("weather_cha")) Is Nothing) Then MyBase.Tables.Add(New weather_chaDataTable(ds.Tables("weather_cha"))) End If If (Not (ds.Tables("weather_temp")) Is Nothing) Then MyBase.Tables.Add(New weather_tempDataTable(ds.Tables("weather_temp"))) End If If (Not (ds.Tables("tbl_weather")) Is Nothing) Then MyBase.Tables.Add(New tbl_weatherDataTable(ds.Tables("tbl_weather"))) End If If (Not (ds.Tables("weather_ilsa")) Is Nothing) Then MyBase.Tables.Add(New weather_ilsaDataTable(ds.Tables("weather_ilsa"))) End If If (Not (ds.Tables("weather_supdo")) Is Nothing) Then MyBase.Tables.Add(New weather_supdoDataTable(ds.Tables("weather_supdo"))) End If If (Not (ds.Tables("tbl_profile")) Is Nothing) Then MyBase.Tables.Add(New tbl_profileDataTable(ds.Tables("tbl_profile"))) End If If (Not (ds.Tables("tbl_common")) Is Nothing) Then MyBase.Tables.Add(New tbl_commonDataTable(ds.Tables("tbl_common"))) End If If (Not (ds.Tables("weather_group")) Is Nothing) Then MyBase.Tables.Add(New weather_groupDataTable(ds.Tables("weather_group"))) End If If (Not (ds.Tables("tbl_pic")) Is Nothing) Then MyBase.Tables.Add(New tbl_picDataTable(ds.Tables("tbl_pic"))) End If If (Not (ds.Tables("tbl_nanbangkiki")) Is Nothing) Then MyBase.Tables.Add(New tbl_nanbangkikiDataTable(ds.Tables("tbl_nanbangkiki"))) End If If (Not (ds.Tables("tbl_nangbangkiki")) Is Nothing) Then MyBase.Tables.Add(New tbl_nangbangkikiDataTable(ds.Tables("tbl_nangbangkiki"))) End If If (Not (ds.Tables("tbl_bunbae")) Is Nothing) Then MyBase.Tables.Add(New tbl_bunbaeDataTable(ds.Tables("tbl_bunbae"))) End If If (Not (ds.Tables("tbl_new")) Is Nothing) Then MyBase.Tables.Add(New tbl_newDataTable(ds.Tables("tbl_new"))) End If If (Not (ds.Tables("tbl_myoun")) Is Nothing) Then MyBase.Tables.Add(New tbl_myounDataTable(ds.Tables("tbl_myoun"))) End If If (Not (ds.Tables("tbl_buha")) Is Nothing) Then MyBase.Tables.Add(New tbl_buhaDataTable(ds.Tables("tbl_buha"))) End If If (Not (ds.Tables("tbl_nbunbae")) Is Nothing) Then MyBase.Tables.Add(New tbl_nbunbaeDataTable(ds.Tables("tbl_nbunbae"))) End If If (Not (ds.Tables("tbl_kongjo")) Is Nothing) Then MyBase.Tables.Add(New tbl_kongjoDataTable(ds.Tables("tbl_kongjo"))) End If If (Not (ds.Tables("tbl_kongkub")) Is Nothing) Then MyBase.Tables.Add(New tbl_kongkubDataTable(ds.Tables("tbl_kongkub"))) End If If (Not (ds.Tables("tbl_yk")) Is Nothing) Then MyBase.Tables.Add(New tbl_ykDataTable(ds.Tables("tbl_yk"))) End If If (Not (ds.Tables("tbl_ykdetail")) Is Nothing) Then MyBase.Tables.Add(New tbl_ykdetailDataTable(ds.Tables("tbl_ykdetail"))) End If If (Not (ds.Tables("tbl_zone")) Is Nothing) Then MyBase.Tables.Add(New tbl_zoneDataTable(ds.Tables("tbl_zone"))) End If If (Not (ds.Tables("tbl_monuse")) Is Nothing) Then MyBase.Tables.Add(New tbl_monuseDataTable(ds.Tables("tbl_monuse"))) End If If (Not (ds.Tables("tbl_Desc")) Is Nothing) Then MyBase.Tables.Add(New tbl_DescDataTable(ds.Tables("tbl_Desc"))) 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.tableweather_cha = CType(MyBase.Tables("weather_cha"),weather_chaDataTable) If (initTable = true) Then If (Not (Me.tableweather_cha) Is Nothing) Then Me.tableweather_cha.InitVars End If End If Me.tableweather_temp = CType(MyBase.Tables("weather_temp"),weather_tempDataTable) If (initTable = true) Then If (Not (Me.tableweather_temp) Is Nothing) Then Me.tableweather_temp.InitVars End If End If Me.tabletbl_weather = CType(MyBase.Tables("tbl_weather"),tbl_weatherDataTable) If (initTable = true) Then If (Not (Me.tabletbl_weather) Is Nothing) Then Me.tabletbl_weather.InitVars End If End If Me.tableweather_ilsa = CType(MyBase.Tables("weather_ilsa"),weather_ilsaDataTable) If (initTable = true) Then If (Not (Me.tableweather_ilsa) Is Nothing) Then Me.tableweather_ilsa.InitVars End If End If Me.tableweather_supdo = CType(MyBase.Tables("weather_supdo"),weather_supdoDataTable) If (initTable = true) Then If (Not (Me.tableweather_supdo) Is Nothing) Then Me.tableweather_supdo.InitVars End If End If 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 Me.tabletbl_common = CType(MyBase.Tables("tbl_common"),tbl_commonDataTable) If (initTable = true) Then If (Not (Me.tabletbl_common) Is Nothing) Then Me.tabletbl_common.InitVars End If End If Me.tableweather_group = CType(MyBase.Tables("weather_group"),weather_groupDataTable) If (initTable = true) Then If (Not (Me.tableweather_group) Is Nothing) Then Me.tableweather_group.InitVars End If End If Me.tabletbl_pic = CType(MyBase.Tables("tbl_pic"),tbl_picDataTable) If (initTable = true) Then If (Not (Me.tabletbl_pic) Is Nothing) Then Me.tabletbl_pic.InitVars End If End If Me.tabletbl_nanbangkiki = CType(MyBase.Tables("tbl_nanbangkiki"),tbl_nanbangkikiDataTable) If (initTable = true) Then If (Not (Me.tabletbl_nanbangkiki) Is Nothing) Then Me.tabletbl_nanbangkiki.InitVars End If End If Me.tabletbl_nangbangkiki = CType(MyBase.Tables("tbl_nangbangkiki"),tbl_nangbangkikiDataTable) If (initTable = true) Then If (Not (Me.tabletbl_nangbangkiki) Is Nothing) Then Me.tabletbl_nangbangkiki.InitVars End If End If Me.tabletbl_bunbae = CType(MyBase.Tables("tbl_bunbae"),tbl_bunbaeDataTable) If (initTable = true) Then If (Not (Me.tabletbl_bunbae) Is Nothing) Then Me.tabletbl_bunbae.InitVars End If End If Me.tabletbl_new = CType(MyBase.Tables("tbl_new"),tbl_newDataTable) If (initTable = true) Then If (Not (Me.tabletbl_new) Is Nothing) Then Me.tabletbl_new.InitVars End If End If Me.tabletbl_myoun = CType(MyBase.Tables("tbl_myoun"),tbl_myounDataTable) If (initTable = true) Then If (Not (Me.tabletbl_myoun) Is Nothing) Then Me.tabletbl_myoun.InitVars End If End If Me.tabletbl_buha = CType(MyBase.Tables("tbl_buha"),tbl_buhaDataTable) If (initTable = true) Then If (Not (Me.tabletbl_buha) Is Nothing) Then Me.tabletbl_buha.InitVars End If End If Me.tabletbl_nbunbae = CType(MyBase.Tables("tbl_nbunbae"),tbl_nbunbaeDataTable) If (initTable = true) Then If (Not (Me.tabletbl_nbunbae) Is Nothing) Then Me.tabletbl_nbunbae.InitVars End If End If Me.tabletbl_kongjo = CType(MyBase.Tables("tbl_kongjo"),tbl_kongjoDataTable) If (initTable = true) Then If (Not (Me.tabletbl_kongjo) Is Nothing) Then Me.tabletbl_kongjo.InitVars End If End If Me.tabletbl_kongkub = CType(MyBase.Tables("tbl_kongkub"),tbl_kongkubDataTable) If (initTable = true) Then If (Not (Me.tabletbl_kongkub) Is Nothing) Then Me.tabletbl_kongkub.InitVars End If End If Me.tabletbl_yk = CType(MyBase.Tables("tbl_yk"),tbl_ykDataTable) If (initTable = true) Then If (Not (Me.tabletbl_yk) Is Nothing) Then Me.tabletbl_yk.InitVars End If End If Me.tabletbl_ykdetail = CType(MyBase.Tables("tbl_ykdetail"),tbl_ykdetailDataTable) If (initTable = true) Then If (Not (Me.tabletbl_ykdetail) Is Nothing) Then Me.tabletbl_ykdetail.InitVars End If End If Me.tabletbl_zone = CType(MyBase.Tables("tbl_zone"),tbl_zoneDataTable) If (initTable = true) Then If (Not (Me.tabletbl_zone) Is Nothing) Then Me.tabletbl_zone.InitVars End If End If Me.tabletbl_monuse = CType(MyBase.Tables("tbl_monuse"),tbl_monuseDataTable) If (initTable = true) Then If (Not (Me.tabletbl_monuse) Is Nothing) Then Me.tabletbl_monuse.InitVars End If End If Me.tabletbl_Desc = CType(MyBase.Tables("tbl_Desc"),tbl_DescDataTable) If (initTable = true) Then If (Not (Me.tabletbl_Desc) Is Nothing) Then Me.tabletbl_Desc.InitVars End If End If End Sub _ Private Sub InitClass() Me.DataSetName = "DS" Me.Prefix = "" Me.Namespace = "http://tempuri.org/DS.xsd" Me.EnforceConstraints = true Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.tableweather_cha = New weather_chaDataTable() MyBase.Tables.Add(Me.tableweather_cha) Me.tableweather_temp = New weather_tempDataTable() MyBase.Tables.Add(Me.tableweather_temp) Me.tabletbl_weather = New tbl_weatherDataTable() MyBase.Tables.Add(Me.tabletbl_weather) Me.tableweather_ilsa = New weather_ilsaDataTable() MyBase.Tables.Add(Me.tableweather_ilsa) Me.tableweather_supdo = New weather_supdoDataTable() MyBase.Tables.Add(Me.tableweather_supdo) Me.tabletbl_profile = New tbl_profileDataTable() MyBase.Tables.Add(Me.tabletbl_profile) Me.tabletbl_common = New tbl_commonDataTable(false) MyBase.Tables.Add(Me.tabletbl_common) Me.tableweather_group = New weather_groupDataTable() MyBase.Tables.Add(Me.tableweather_group) Me.tabletbl_pic = New tbl_picDataTable() MyBase.Tables.Add(Me.tabletbl_pic) Me.tabletbl_nanbangkiki = New tbl_nanbangkikiDataTable() MyBase.Tables.Add(Me.tabletbl_nanbangkiki) Me.tabletbl_nangbangkiki = New tbl_nangbangkikiDataTable() MyBase.Tables.Add(Me.tabletbl_nangbangkiki) Me.tabletbl_bunbae = New tbl_bunbaeDataTable() MyBase.Tables.Add(Me.tabletbl_bunbae) Me.tabletbl_new = New tbl_newDataTable() MyBase.Tables.Add(Me.tabletbl_new) Me.tabletbl_myoun = New tbl_myounDataTable() MyBase.Tables.Add(Me.tabletbl_myoun) Me.tabletbl_buha = New tbl_buhaDataTable() MyBase.Tables.Add(Me.tabletbl_buha) Me.tabletbl_nbunbae = New tbl_nbunbaeDataTable() MyBase.Tables.Add(Me.tabletbl_nbunbae) Me.tabletbl_kongjo = New tbl_kongjoDataTable() MyBase.Tables.Add(Me.tabletbl_kongjo) Me.tabletbl_kongkub = New tbl_kongkubDataTable() MyBase.Tables.Add(Me.tabletbl_kongkub) Me.tabletbl_yk = New tbl_ykDataTable() MyBase.Tables.Add(Me.tabletbl_yk) Me.tabletbl_ykdetail = New tbl_ykdetailDataTable() MyBase.Tables.Add(Me.tabletbl_ykdetail) Me.tabletbl_zone = New tbl_zoneDataTable(false) MyBase.Tables.Add(Me.tabletbl_zone) Me.tabletbl_monuse = New tbl_monuseDataTable() MyBase.Tables.Add(Me.tabletbl_monuse) Me.tabletbl_Desc = New tbl_DescDataTable() MyBase.Tables.Add(Me.tabletbl_Desc) End Sub _ Private Function ShouldSerializeweather_cha() As Boolean Return false End Function _ Private Function ShouldSerializeweather_temp() As Boolean Return false End Function _ Private Function ShouldSerializetbl_weather() As Boolean Return false End Function _ Private Function ShouldSerializeweather_ilsa() As Boolean Return false End Function _ Private Function ShouldSerializeweather_supdo() As Boolean Return false End Function _ Private Function ShouldSerializetbl_profile() As Boolean Return false End Function _ Private Function ShouldSerializetbl_common() As Boolean Return false End Function _ Private Function ShouldSerializeweather_group() As Boolean Return false End Function _ Private Function ShouldSerializetbl_pic() As Boolean Return false End Function _ Private Function ShouldSerializetbl_nanbangkiki() As Boolean Return false End Function _ Private Function ShouldSerializetbl_nangbangkiki() As Boolean Return false End Function _ Private Function ShouldSerializetbl_bunbae() As Boolean Return false End Function _ Private Function ShouldSerializetbl_new() As Boolean Return false End Function _ Private Function ShouldSerializetbl_myoun() As Boolean Return false End Function _ Private Function ShouldSerializetbl_buha() As Boolean Return false End Function _ Private Function ShouldSerializetbl_nbunbae() As Boolean Return false End Function _ Private Function ShouldSerializetbl_kongjo() As Boolean Return false End Function _ Private Function ShouldSerializetbl_kongkub() As Boolean Return false End Function _ Private Function ShouldSerializetbl_yk() As Boolean Return false End Function _ Private Function ShouldSerializetbl_ykdetail() As Boolean Return false End Function _ Private Function ShouldSerializetbl_zone() As Boolean Return false End Function _ Private Function ShouldSerializetbl_monuse() As Boolean Return false End Function _ Private Function ShouldSerializetbl_Desc() 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 DS = New DS() 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 _ Private Sub InitExpressions() Me.tbl_common.codenameColumn.Expression = "'(' + code + ')' +name" Me.tbl_zone.그룹설명Column.Expression = "'[' + 그룹+'] '+설명" End Sub _ Public Delegate Sub weather_chaRowChangeEventHandler(ByVal sender As Object, ByVal e As weather_chaRowChangeEvent) _ Public Delegate Sub weather_tempRowChangeEventHandler(ByVal sender As Object, ByVal e As weather_tempRowChangeEvent) _ Public Delegate Sub tbl_weatherRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_weatherRowChangeEvent) _ Public Delegate Sub weather_ilsaRowChangeEventHandler(ByVal sender As Object, ByVal e As weather_ilsaRowChangeEvent) _ Public Delegate Sub weather_supdoRowChangeEventHandler(ByVal sender As Object, ByVal e As weather_supdoRowChangeEvent) _ Public Delegate Sub tbl_profileRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_profileRowChangeEvent) _ Public Delegate Sub tbl_commonRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_commonRowChangeEvent) _ Public Delegate Sub weather_groupRowChangeEventHandler(ByVal sender As Object, ByVal e As weather_groupRowChangeEvent) _ Public Delegate Sub tbl_picRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_picRowChangeEvent) _ Public Delegate Sub tbl_nanbangkikiRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_nanbangkikiRowChangeEvent) _ Public Delegate Sub tbl_nangbangkikiRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_nangbangkikiRowChangeEvent) _ Public Delegate Sub tbl_bunbaeRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_bunbaeRowChangeEvent) _ Public Delegate Sub tbl_newRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_newRowChangeEvent) _ Public Delegate Sub tbl_myounRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_myounRowChangeEvent) _ Public Delegate Sub tbl_buhaRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_buhaRowChangeEvent) _ Public Delegate Sub tbl_nbunbaeRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_nbunbaeRowChangeEvent) _ Public Delegate Sub tbl_kongjoRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_kongjoRowChangeEvent) _ Public Delegate Sub tbl_kongkubRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_kongkubRowChangeEvent) _ Public Delegate Sub tbl_ykRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_ykRowChangeEvent) _ Public Delegate Sub tbl_ykdetailRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_ykdetailRowChangeEvent) _ Public Delegate Sub tbl_zoneRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_zoneRowChangeEvent) _ Public Delegate Sub tbl_monuseRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_monuseRowChangeEvent) _ Public Delegate Sub tbl_DescRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_DescRowChangeEvent) ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class weather_chaDataTable Inherits Global.System.Data.TypedTableBase(Of weather_chaRow) Private columnpcode As Global.System.Data.DataColumn Private columncode As Global.System.Data.DataColumn Private column설명 As Global.System.Data.DataColumn Private columnm01 As Global.System.Data.DataColumn Private columnm02 As Global.System.Data.DataColumn Private columnm03 As Global.System.Data.DataColumn Private columnm04 As Global.System.Data.DataColumn Private columnm05 As Global.System.Data.DataColumn Private columnm06 As Global.System.Data.DataColumn Private columnm07 As Global.System.Data.DataColumn Private columnm08 As Global.System.Data.DataColumn Private columnm09 As Global.System.Data.DataColumn Private columnm10 As Global.System.Data.DataColumn Private columnm11 As Global.System.Data.DataColumn Private columnm12 As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "weather_cha" 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 pcodeColumn() As Global.System.Data.DataColumn Get Return Me.columnpcode End Get End Property _ 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 m01Column() As Global.System.Data.DataColumn Get Return Me.columnm01 End Get End Property _ Public ReadOnly Property m02Column() As Global.System.Data.DataColumn Get Return Me.columnm02 End Get End Property _ Public ReadOnly Property m03Column() As Global.System.Data.DataColumn Get Return Me.columnm03 End Get End Property _ Public ReadOnly Property m04Column() As Global.System.Data.DataColumn Get Return Me.columnm04 End Get End Property _ Public ReadOnly Property m05Column() As Global.System.Data.DataColumn Get Return Me.columnm05 End Get End Property _ Public ReadOnly Property m06Column() As Global.System.Data.DataColumn Get Return Me.columnm06 End Get End Property _ Public ReadOnly Property m07Column() As Global.System.Data.DataColumn Get Return Me.columnm07 End Get End Property _ Public ReadOnly Property m08Column() As Global.System.Data.DataColumn Get Return Me.columnm08 End Get End Property _ Public ReadOnly Property m09Column() As Global.System.Data.DataColumn Get Return Me.columnm09 End Get End Property _ Public ReadOnly Property m10Column() As Global.System.Data.DataColumn Get Return Me.columnm10 End Get End Property _ Public ReadOnly Property m11Column() As Global.System.Data.DataColumn Get Return Me.columnm11 End Get End Property _ Public ReadOnly Property m12Column() As Global.System.Data.DataColumn Get Return Me.columnm12 End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As weather_chaRow Get Return CType(Me.Rows(index),weather_chaRow) End Get End Property _ Public Event weather_chaRowChanging As weather_chaRowChangeEventHandler _ Public Event weather_chaRowChanged As weather_chaRowChangeEventHandler _ Public Event weather_chaRowDeleting As weather_chaRowChangeEventHandler _ Public Event weather_chaRowDeleted As weather_chaRowChangeEventHandler _ Public Overloads Sub Addweather_chaRow(ByVal row As weather_chaRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addweather_chaRow(ByVal pcode As String, ByVal code As String, ByVal 설명 As String, ByVal m01 As String, ByVal m02 As String, ByVal m03 As String, ByVal m04 As String, ByVal m05 As String, ByVal m06 As String, ByVal m07 As String, ByVal m08 As String, ByVal m09 As String, ByVal m10 As String, ByVal m11 As String, ByVal m12 As String) As weather_chaRow Dim rowweather_chaRow As weather_chaRow = CType(Me.NewRow,weather_chaRow) Dim columnValuesArray() As Object = New Object() {pcode, code, 설명, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12} rowweather_chaRow.ItemArray = columnValuesArray Me.Rows.Add(rowweather_chaRow) Return rowweather_chaRow End Function _ Public Function FindBypcodecode(ByVal pcode As String, ByVal code As String) As weather_chaRow Return CType(Me.Rows.Find(New Object() {pcode, code}),weather_chaRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As weather_chaDataTable = CType(MyBase.Clone,weather_chaDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New weather_chaDataTable() End Function _ Friend Sub InitVars() Me.columnpcode = MyBase.Columns("pcode") Me.columncode = MyBase.Columns("code") Me.column설명 = MyBase.Columns("설명") Me.columnm01 = MyBase.Columns("m01") Me.columnm02 = MyBase.Columns("m02") Me.columnm03 = MyBase.Columns("m03") Me.columnm04 = MyBase.Columns("m04") Me.columnm05 = MyBase.Columns("m05") Me.columnm06 = MyBase.Columns("m06") Me.columnm07 = MyBase.Columns("m07") Me.columnm08 = MyBase.Columns("m08") Me.columnm09 = MyBase.Columns("m09") Me.columnm10 = MyBase.Columns("m10") Me.columnm11 = MyBase.Columns("m11") Me.columnm12 = MyBase.Columns("m12") End Sub _ Private Sub InitClass() Me.columnpcode = New Global.System.Data.DataColumn("pcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpcode) 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.columnm01 = New Global.System.Data.DataColumn("m01", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm01) Me.columnm02 = New Global.System.Data.DataColumn("m02", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm02) Me.columnm03 = New Global.System.Data.DataColumn("m03", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm03) Me.columnm04 = New Global.System.Data.DataColumn("m04", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm04) Me.columnm05 = New Global.System.Data.DataColumn("m05", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm05) Me.columnm06 = New Global.System.Data.DataColumn("m06", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm06) Me.columnm07 = New Global.System.Data.DataColumn("m07", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm07) Me.columnm08 = New Global.System.Data.DataColumn("m08", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm08) Me.columnm09 = New Global.System.Data.DataColumn("m09", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm09) Me.columnm10 = New Global.System.Data.DataColumn("m10", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm10) Me.columnm11 = New Global.System.Data.DataColumn("m11", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm11) Me.columnm12 = New Global.System.Data.DataColumn("m12", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm12) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnpcode, Me.columncode}, true)) Me.columnpcode.AllowDBNull = false Me.columnpcode.DefaultValue = CType("",String) Me.columnpcode.MaxLength = 10 Me.columncode.AllowDBNull = false Me.columncode.DefaultValue = CType("",String) Me.columncode.MaxLength = 10 Me.column설명.DefaultValue = CType("",String) Me.column설명.MaxLength = 255 Me.columnm01.DefaultValue = CType("0",String) Me.columnm01.MaxLength = 50 Me.columnm02.DefaultValue = CType("0",String) Me.columnm02.MaxLength = 50 Me.columnm03.DefaultValue = CType("0",String) Me.columnm03.MaxLength = 50 Me.columnm04.DefaultValue = CType("0",String) Me.columnm04.MaxLength = 50 Me.columnm05.DefaultValue = CType("0",String) Me.columnm05.MaxLength = 50 Me.columnm06.DefaultValue = CType("0",String) Me.columnm06.MaxLength = 50 Me.columnm07.DefaultValue = CType("0",String) Me.columnm07.MaxLength = 50 Me.columnm08.DefaultValue = CType("0",String) Me.columnm08.MaxLength = 50 Me.columnm09.DefaultValue = CType("0",String) Me.columnm09.MaxLength = 50 Me.columnm10.DefaultValue = CType("0",String) Me.columnm10.MaxLength = 50 Me.columnm11.DefaultValue = CType("0",String) Me.columnm11.MaxLength = 50 Me.columnm12.DefaultValue = CType("0",String) Me.columnm12.MaxLength = 50 End Sub _ Public Function Newweather_chaRow() As weather_chaRow Return CType(Me.NewRow,weather_chaRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New weather_chaRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(weather_chaRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.weather_chaRowChangedEvent) Is Nothing) Then RaiseEvent weather_chaRowChanged(Me, New weather_chaRowChangeEvent(CType(e.Row,weather_chaRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.weather_chaRowChangingEvent) Is Nothing) Then RaiseEvent weather_chaRowChanging(Me, New weather_chaRowChangeEvent(CType(e.Row,weather_chaRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.weather_chaRowDeletedEvent) Is Nothing) Then RaiseEvent weather_chaRowDeleted(Me, New weather_chaRowChangeEvent(CType(e.Row,weather_chaRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.weather_chaRowDeletingEvent) Is Nothing) Then RaiseEvent weather_chaRowDeleting(Me, New weather_chaRowChangeEvent(CType(e.Row,weather_chaRow), e.Action)) End If End Sub _ Public Sub Removeweather_chaRow(ByVal row As weather_chaRow) 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 DS = New DS() 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 = "weather_chaDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class weather_tempDataTable Inherits Global.System.Data.TypedTableBase(Of weather_tempRow) Private columnpcode As Global.System.Data.DataColumn Private columncode As Global.System.Data.DataColumn Private column설명 As Global.System.Data.DataColumn Private columnt01 As Global.System.Data.DataColumn Private columnt02 As Global.System.Data.DataColumn Private columnt03 As Global.System.Data.DataColumn Private columnt04 As Global.System.Data.DataColumn Private columnt05 As Global.System.Data.DataColumn Private columnt06 As Global.System.Data.DataColumn Private columnt07 As Global.System.Data.DataColumn Private columnt08 As Global.System.Data.DataColumn Private columnt09 As Global.System.Data.DataColumn Private columnt10 As Global.System.Data.DataColumn Private columnt11 As Global.System.Data.DataColumn Private columnt12 As Global.System.Data.DataColumn Private columnt13 As Global.System.Data.DataColumn Private columnt14 As Global.System.Data.DataColumn Private columnt15 As Global.System.Data.DataColumn Private columnt16 As Global.System.Data.DataColumn Private columnt17 As Global.System.Data.DataColumn Private columnt18 As Global.System.Data.DataColumn Private columnt19 As Global.System.Data.DataColumn Private columnt20 As Global.System.Data.DataColumn Private columnt21 As Global.System.Data.DataColumn Private columnt22 As Global.System.Data.DataColumn Private columnt23 As Global.System.Data.DataColumn Private columnt24 As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "weather_temp" 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 pcodeColumn() As Global.System.Data.DataColumn Get Return Me.columnpcode End Get End Property _ 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 t01Column() As Global.System.Data.DataColumn Get Return Me.columnt01 End Get End Property _ Public ReadOnly Property t02Column() As Global.System.Data.DataColumn Get Return Me.columnt02 End Get End Property _ Public ReadOnly Property t03Column() As Global.System.Data.DataColumn Get Return Me.columnt03 End Get End Property _ Public ReadOnly Property t04Column() As Global.System.Data.DataColumn Get Return Me.columnt04 End Get End Property _ Public ReadOnly Property t05Column() As Global.System.Data.DataColumn Get Return Me.columnt05 End Get End Property _ Public ReadOnly Property t06Column() As Global.System.Data.DataColumn Get Return Me.columnt06 End Get End Property _ Public ReadOnly Property t07Column() As Global.System.Data.DataColumn Get Return Me.columnt07 End Get End Property _ Public ReadOnly Property t08Column() As Global.System.Data.DataColumn Get Return Me.columnt08 End Get End Property _ Public ReadOnly Property t09Column() As Global.System.Data.DataColumn Get Return Me.columnt09 End Get End Property _ Public ReadOnly Property t10Column() As Global.System.Data.DataColumn Get Return Me.columnt10 End Get End Property _ Public ReadOnly Property t11Column() As Global.System.Data.DataColumn Get Return Me.columnt11 End Get End Property _ Public ReadOnly Property t12Column() As Global.System.Data.DataColumn Get Return Me.columnt12 End Get End Property _ Public ReadOnly Property t13Column() As Global.System.Data.DataColumn Get Return Me.columnt13 End Get End Property _ Public ReadOnly Property t14Column() As Global.System.Data.DataColumn Get Return Me.columnt14 End Get End Property _ Public ReadOnly Property t15Column() As Global.System.Data.DataColumn Get Return Me.columnt15 End Get End Property _ Public ReadOnly Property t16Column() As Global.System.Data.DataColumn Get Return Me.columnt16 End Get End Property _ Public ReadOnly Property t17Column() As Global.System.Data.DataColumn Get Return Me.columnt17 End Get End Property _ Public ReadOnly Property t18Column() As Global.System.Data.DataColumn Get Return Me.columnt18 End Get End Property _ Public ReadOnly Property t19Column() As Global.System.Data.DataColumn Get Return Me.columnt19 End Get End Property _ Public ReadOnly Property t20Column() As Global.System.Data.DataColumn Get Return Me.columnt20 End Get End Property _ Public ReadOnly Property t21Column() As Global.System.Data.DataColumn Get Return Me.columnt21 End Get End Property _ Public ReadOnly Property t22Column() As Global.System.Data.DataColumn Get Return Me.columnt22 End Get End Property _ Public ReadOnly Property t23Column() As Global.System.Data.DataColumn Get Return Me.columnt23 End Get End Property _ Public ReadOnly Property t24Column() As Global.System.Data.DataColumn Get Return Me.columnt24 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 weather_tempRow Get Return CType(Me.Rows(index),weather_tempRow) End Get End Property _ Public Event weather_tempRowChanging As weather_tempRowChangeEventHandler _ Public Event weather_tempRowChanged As weather_tempRowChangeEventHandler _ Public Event weather_tempRowDeleting As weather_tempRowChangeEventHandler _ Public Event weather_tempRowDeleted As weather_tempRowChangeEventHandler _ Public Overloads Sub Addweather_tempRow(ByVal row As weather_tempRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addweather_tempRow( _ ByVal pcode As String, _ ByVal code As String, _ ByVal 설명 As String, _ ByVal t01 As String, _ ByVal t02 As String, _ ByVal t03 As String, _ ByVal t04 As String, _ ByVal t05 As String, _ ByVal t06 As String, _ ByVal t07 As String, _ ByVal t08 As String, _ ByVal t09 As String, _ ByVal t10 As String, _ ByVal t11 As String, _ ByVal t12 As String, _ ByVal t13 As String, _ ByVal t14 As String, _ ByVal t15 As String, _ ByVal t16 As String, _ ByVal t17 As String, _ ByVal t18 As String, _ ByVal t19 As String, _ ByVal t20 As String, _ ByVal t21 As String, _ ByVal t22 As String, _ ByVal t23 As String, _ ByVal t24 As String) As weather_tempRow Dim rowweather_tempRow As weather_tempRow = CType(Me.NewRow,weather_tempRow) Dim columnValuesArray() As Object = New Object() {pcode, code, 설명, t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24} rowweather_tempRow.ItemArray = columnValuesArray Me.Rows.Add(rowweather_tempRow) Return rowweather_tempRow End Function _ Public Function FindBypcodecode(ByVal pcode As String, ByVal code As String) As weather_tempRow Return CType(Me.Rows.Find(New Object() {pcode, code}),weather_tempRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As weather_tempDataTable = CType(MyBase.Clone,weather_tempDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New weather_tempDataTable() End Function _ Friend Sub InitVars() Me.columnpcode = MyBase.Columns("pcode") Me.columncode = MyBase.Columns("code") Me.column설명 = MyBase.Columns("설명") Me.columnt01 = MyBase.Columns("t01") Me.columnt02 = MyBase.Columns("t02") Me.columnt03 = MyBase.Columns("t03") Me.columnt04 = MyBase.Columns("t04") Me.columnt05 = MyBase.Columns("t05") Me.columnt06 = MyBase.Columns("t06") Me.columnt07 = MyBase.Columns("t07") Me.columnt08 = MyBase.Columns("t08") Me.columnt09 = MyBase.Columns("t09") Me.columnt10 = MyBase.Columns("t10") Me.columnt11 = MyBase.Columns("t11") Me.columnt12 = MyBase.Columns("t12") Me.columnt13 = MyBase.Columns("t13") Me.columnt14 = MyBase.Columns("t14") Me.columnt15 = MyBase.Columns("t15") Me.columnt16 = MyBase.Columns("t16") Me.columnt17 = MyBase.Columns("t17") Me.columnt18 = MyBase.Columns("t18") Me.columnt19 = MyBase.Columns("t19") Me.columnt20 = MyBase.Columns("t20") Me.columnt21 = MyBase.Columns("t21") Me.columnt22 = MyBase.Columns("t22") Me.columnt23 = MyBase.Columns("t23") Me.columnt24 = MyBase.Columns("t24") End Sub _ Private Sub InitClass() Me.columnpcode = New Global.System.Data.DataColumn("pcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpcode) 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.columnt01 = New Global.System.Data.DataColumn("t01", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt01) Me.columnt02 = New Global.System.Data.DataColumn("t02", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt02) Me.columnt03 = New Global.System.Data.DataColumn("t03", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt03) Me.columnt04 = New Global.System.Data.DataColumn("t04", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt04) Me.columnt05 = New Global.System.Data.DataColumn("t05", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt05) Me.columnt06 = New Global.System.Data.DataColumn("t06", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt06) Me.columnt07 = New Global.System.Data.DataColumn("t07", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt07) Me.columnt08 = New Global.System.Data.DataColumn("t08", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt08) Me.columnt09 = New Global.System.Data.DataColumn("t09", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt09) Me.columnt10 = New Global.System.Data.DataColumn("t10", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt10) Me.columnt11 = New Global.System.Data.DataColumn("t11", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt11) Me.columnt12 = New Global.System.Data.DataColumn("t12", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt12) Me.columnt13 = New Global.System.Data.DataColumn("t13", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt13) Me.columnt14 = New Global.System.Data.DataColumn("t14", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt14) Me.columnt15 = New Global.System.Data.DataColumn("t15", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt15) Me.columnt16 = New Global.System.Data.DataColumn("t16", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt16) Me.columnt17 = New Global.System.Data.DataColumn("t17", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt17) Me.columnt18 = New Global.System.Data.DataColumn("t18", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt18) Me.columnt19 = New Global.System.Data.DataColumn("t19", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt19) Me.columnt20 = New Global.System.Data.DataColumn("t20", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt20) Me.columnt21 = New Global.System.Data.DataColumn("t21", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt21) Me.columnt22 = New Global.System.Data.DataColumn("t22", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt22) Me.columnt23 = New Global.System.Data.DataColumn("t23", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt23) Me.columnt24 = New Global.System.Data.DataColumn("t24", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt24) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnpcode, Me.columncode}, true)) Me.columnpcode.AllowDBNull = false Me.columnpcode.DefaultValue = CType("",String) Me.columnpcode.MaxLength = 10 Me.columncode.AllowDBNull = false Me.columncode.DefaultValue = CType("",String) Me.columncode.MaxLength = 10 Me.column설명.MaxLength = 255 Me.columnt01.DefaultValue = CType("0",String) Me.columnt01.MaxLength = 50 Me.columnt02.DefaultValue = CType("0",String) Me.columnt02.MaxLength = 50 Me.columnt03.DefaultValue = CType("0",String) Me.columnt03.MaxLength = 50 Me.columnt04.DefaultValue = CType("0",String) Me.columnt04.MaxLength = 50 Me.columnt05.DefaultValue = CType("0",String) Me.columnt05.MaxLength = 50 Me.columnt06.DefaultValue = CType("0",String) Me.columnt06.MaxLength = 50 Me.columnt07.DefaultValue = CType("0",String) Me.columnt07.MaxLength = 50 Me.columnt08.DefaultValue = CType("0",String) Me.columnt08.MaxLength = 50 Me.columnt09.DefaultValue = CType("0",String) Me.columnt09.MaxLength = 50 Me.columnt10.DefaultValue = CType("0",String) Me.columnt10.MaxLength = 50 Me.columnt11.DefaultValue = CType("0",String) Me.columnt11.MaxLength = 50 Me.columnt12.DefaultValue = CType("0",String) Me.columnt12.MaxLength = 50 Me.columnt13.DefaultValue = CType("0",String) Me.columnt13.MaxLength = 50 Me.columnt14.DefaultValue = CType("0",String) Me.columnt14.MaxLength = 50 Me.columnt15.DefaultValue = CType("0",String) Me.columnt15.MaxLength = 50 Me.columnt16.DefaultValue = CType("0",String) Me.columnt16.MaxLength = 50 Me.columnt17.DefaultValue = CType("0",String) Me.columnt17.MaxLength = 50 Me.columnt18.DefaultValue = CType("0",String) Me.columnt18.MaxLength = 50 Me.columnt19.DefaultValue = CType("0",String) Me.columnt19.MaxLength = 50 Me.columnt20.DefaultValue = CType("0",String) Me.columnt20.MaxLength = 50 Me.columnt21.DefaultValue = CType("0",String) Me.columnt21.MaxLength = 50 Me.columnt22.DefaultValue = CType("0",String) Me.columnt22.MaxLength = 50 Me.columnt23.DefaultValue = CType("0",String) Me.columnt23.MaxLength = 50 Me.columnt24.DefaultValue = CType("0",String) Me.columnt24.MaxLength = 50 End Sub _ Public Function Newweather_tempRow() As weather_tempRow Return CType(Me.NewRow,weather_tempRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New weather_tempRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(weather_tempRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.weather_tempRowChangedEvent) Is Nothing) Then RaiseEvent weather_tempRowChanged(Me, New weather_tempRowChangeEvent(CType(e.Row,weather_tempRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.weather_tempRowChangingEvent) Is Nothing) Then RaiseEvent weather_tempRowChanging(Me, New weather_tempRowChangeEvent(CType(e.Row,weather_tempRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.weather_tempRowDeletedEvent) Is Nothing) Then RaiseEvent weather_tempRowDeleted(Me, New weather_tempRowChangeEvent(CType(e.Row,weather_tempRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.weather_tempRowDeletingEvent) Is Nothing) Then RaiseEvent weather_tempRowDeleting(Me, New weather_tempRowChangeEvent(CType(e.Row,weather_tempRow), e.Action)) End If End Sub _ Public Sub Removeweather_tempRow(ByVal row As weather_tempRow) 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 DS = New DS() 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 = "weather_tempDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class tbl_weatherDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_weatherRow) 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 columnm01 As Global.System.Data.DataColumn Private columnm02 As Global.System.Data.DataColumn Private columnm03 As Global.System.Data.DataColumn Private columnm04 As Global.System.Data.DataColumn Private columnm05 As Global.System.Data.DataColumn Private columnm06 As Global.System.Data.DataColumn Private columnm07 As Global.System.Data.DataColumn Private columnm08 As Global.System.Data.DataColumn Private columnm09 As Global.System.Data.DataColumn Private columnm10 As Global.System.Data.DataColumn Private columnm11 As Global.System.Data.DataColumn Private columnm12 As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_weather" 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 m01Column() As Global.System.Data.DataColumn Get Return Me.columnm01 End Get End Property _ Public ReadOnly Property m02Column() As Global.System.Data.DataColumn Get Return Me.columnm02 End Get End Property _ Public ReadOnly Property m03Column() As Global.System.Data.DataColumn Get Return Me.columnm03 End Get End Property _ Public ReadOnly Property m04Column() As Global.System.Data.DataColumn Get Return Me.columnm04 End Get End Property _ Public ReadOnly Property m05Column() As Global.System.Data.DataColumn Get Return Me.columnm05 End Get End Property _ Public ReadOnly Property m06Column() As Global.System.Data.DataColumn Get Return Me.columnm06 End Get End Property _ Public ReadOnly Property m07Column() As Global.System.Data.DataColumn Get Return Me.columnm07 End Get End Property _ Public ReadOnly Property m08Column() As Global.System.Data.DataColumn Get Return Me.columnm08 End Get End Property _ Public ReadOnly Property m09Column() As Global.System.Data.DataColumn Get Return Me.columnm09 End Get End Property _ Public ReadOnly Property m10Column() As Global.System.Data.DataColumn Get Return Me.columnm10 End Get End Property _ Public ReadOnly Property m11Column() As Global.System.Data.DataColumn Get Return Me.columnm11 End Get End Property _ Public ReadOnly Property m12Column() As Global.System.Data.DataColumn Get Return Me.columnm12 End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_weatherRow Get Return CType(Me.Rows(index),tbl_weatherRow) End Get End Property _ Public Event tbl_weatherRowChanging As tbl_weatherRowChangeEventHandler _ Public Event tbl_weatherRowChanged As tbl_weatherRowChangeEventHandler _ Public Event tbl_weatherRowDeleting As tbl_weatherRowChangeEventHandler _ Public Event tbl_weatherRowDeleted As tbl_weatherRowChangeEventHandler _ Public Overloads Sub Addtbl_weatherRow(ByVal row As tbl_weatherRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_weatherRow( _ ByVal code As String, _ ByVal 건물위치 As String, _ ByVal 난방기 As String, _ ByVal 냉방기 As String, _ ByVal m01 As String, _ ByVal m02 As String, _ ByVal m03 As String, _ ByVal m04 As String, _ ByVal m05 As String, _ ByVal m06 As String, _ ByVal m07 As String, _ ByVal m08 As String, _ ByVal m09 As String, _ ByVal m10 As String, _ ByVal m11 As String, _ ByVal m12 As String) As tbl_weatherRow Dim rowtbl_weatherRow As tbl_weatherRow = CType(Me.NewRow,tbl_weatherRow) Dim columnValuesArray() As Object = New Object() {code, 건물위치, 난방기, 냉방기, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12} rowtbl_weatherRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_weatherRow) Return rowtbl_weatherRow End Function _ Public Function FindBycode(ByVal code As String) As tbl_weatherRow Return CType(Me.Rows.Find(New Object() {code}),tbl_weatherRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_weatherDataTable = CType(MyBase.Clone,tbl_weatherDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_weatherDataTable() End Function _ Friend Sub InitVars() Me.columncode = MyBase.Columns("code") Me.column건물위치 = MyBase.Columns("건물위치") Me.column난방기 = MyBase.Columns("난방기") Me.column냉방기 = MyBase.Columns("냉방기") Me.columnm01 = MyBase.Columns("m01") Me.columnm02 = MyBase.Columns("m02") Me.columnm03 = MyBase.Columns("m03") Me.columnm04 = MyBase.Columns("m04") Me.columnm05 = MyBase.Columns("m05") Me.columnm06 = MyBase.Columns("m06") Me.columnm07 = MyBase.Columns("m07") Me.columnm08 = MyBase.Columns("m08") Me.columnm09 = MyBase.Columns("m09") Me.columnm10 = MyBase.Columns("m10") Me.columnm11 = MyBase.Columns("m11") Me.columnm12 = MyBase.Columns("m12") 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.columnm01 = New Global.System.Data.DataColumn("m01", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm01) Me.columnm02 = New Global.System.Data.DataColumn("m02", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm02) Me.columnm03 = New Global.System.Data.DataColumn("m03", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm03) Me.columnm04 = New Global.System.Data.DataColumn("m04", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm04) Me.columnm05 = New Global.System.Data.DataColumn("m05", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm05) Me.columnm06 = New Global.System.Data.DataColumn("m06", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm06) Me.columnm07 = New Global.System.Data.DataColumn("m07", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm07) Me.columnm08 = New Global.System.Data.DataColumn("m08", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm08) Me.columnm09 = New Global.System.Data.DataColumn("m09", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm09) Me.columnm10 = New Global.System.Data.DataColumn("m10", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm10) Me.columnm11 = New Global.System.Data.DataColumn("m11", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm11) Me.columnm12 = New Global.System.Data.DataColumn("m12", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm12) 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.DefaultValue = CType("",String) Me.columncode.MaxLength = 10 Me.column건물위치.DefaultValue = CType("",String) Me.column건물위치.MaxLength = 50 Me.column난방기.DefaultValue = CType("0",String) Me.column난방기.MaxLength = 50 Me.column냉방기.DefaultValue = CType("0",String) Me.column냉방기.MaxLength = 50 Me.columnm01.DefaultValue = CType("0",String) Me.columnm01.MaxLength = 50 Me.columnm02.DefaultValue = CType("0",String) Me.columnm02.MaxLength = 50 Me.columnm03.DefaultValue = CType("0",String) Me.columnm03.MaxLength = 50 Me.columnm04.DefaultValue = CType("0",String) Me.columnm04.MaxLength = 50 Me.columnm05.DefaultValue = CType("0",String) Me.columnm05.MaxLength = 50 Me.columnm06.DefaultValue = CType("0",String) Me.columnm06.MaxLength = 50 Me.columnm07.DefaultValue = CType("0",String) Me.columnm07.MaxLength = 50 Me.columnm08.DefaultValue = CType("0",String) Me.columnm08.MaxLength = 50 Me.columnm09.DefaultValue = CType("0",String) Me.columnm09.MaxLength = 50 Me.columnm10.DefaultValue = CType("0",String) Me.columnm10.MaxLength = 50 Me.columnm11.DefaultValue = CType("0",String) Me.columnm11.MaxLength = 50 Me.columnm12.DefaultValue = CType("0",String) Me.columnm12.MaxLength = 50 End Sub _ Public Function Newtbl_weatherRow() As tbl_weatherRow Return CType(Me.NewRow,tbl_weatherRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_weatherRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_weatherRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_weatherRowChangedEvent) Is Nothing) Then RaiseEvent tbl_weatherRowChanged(Me, New tbl_weatherRowChangeEvent(CType(e.Row,tbl_weatherRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_weatherRowChangingEvent) Is Nothing) Then RaiseEvent tbl_weatherRowChanging(Me, New tbl_weatherRowChangeEvent(CType(e.Row,tbl_weatherRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_weatherRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_weatherRowDeleted(Me, New tbl_weatherRowChangeEvent(CType(e.Row,tbl_weatherRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_weatherRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_weatherRowDeleting(Me, New tbl_weatherRowChangeEvent(CType(e.Row,tbl_weatherRow), e.Action)) End If End Sub _ Public Sub Removetbl_weatherRow(ByVal row As tbl_weatherRow) 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 DS = New DS() 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_weatherDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class weather_ilsaDataTable Inherits Global.System.Data.TypedTableBase(Of weather_ilsaRow) Private columnpcode As Global.System.Data.DataColumn Private columncode As Global.System.Data.DataColumn Private column설명 As Global.System.Data.DataColumn Private column최대부하 As Global.System.Data.DataColumn Private columnm01 As Global.System.Data.DataColumn Private columnm02 As Global.System.Data.DataColumn Private columnm03 As Global.System.Data.DataColumn Private columnm04 As Global.System.Data.DataColumn Private columnm05 As Global.System.Data.DataColumn Private columnm06 As Global.System.Data.DataColumn Private columnm07 As Global.System.Data.DataColumn Private columnm08 As Global.System.Data.DataColumn Private columnm09 As Global.System.Data.DataColumn Private columnm10 As Global.System.Data.DataColumn Private columnm11 As Global.System.Data.DataColumn Private columnm12 As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "weather_ilsa" 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 pcodeColumn() As Global.System.Data.DataColumn Get Return Me.columnpcode End Get End Property _ 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 m01Column() As Global.System.Data.DataColumn Get Return Me.columnm01 End Get End Property _ Public ReadOnly Property m02Column() As Global.System.Data.DataColumn Get Return Me.columnm02 End Get End Property _ Public ReadOnly Property m03Column() As Global.System.Data.DataColumn Get Return Me.columnm03 End Get End Property _ Public ReadOnly Property m04Column() As Global.System.Data.DataColumn Get Return Me.columnm04 End Get End Property _ Public ReadOnly Property m05Column() As Global.System.Data.DataColumn Get Return Me.columnm05 End Get End Property _ Public ReadOnly Property m06Column() As Global.System.Data.DataColumn Get Return Me.columnm06 End Get End Property _ Public ReadOnly Property m07Column() As Global.System.Data.DataColumn Get Return Me.columnm07 End Get End Property _ Public ReadOnly Property m08Column() As Global.System.Data.DataColumn Get Return Me.columnm08 End Get End Property _ Public ReadOnly Property m09Column() As Global.System.Data.DataColumn Get Return Me.columnm09 End Get End Property _ Public ReadOnly Property m10Column() As Global.System.Data.DataColumn Get Return Me.columnm10 End Get End Property _ Public ReadOnly Property m11Column() As Global.System.Data.DataColumn Get Return Me.columnm11 End Get End Property _ Public ReadOnly Property m12Column() As Global.System.Data.DataColumn Get Return Me.columnm12 End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As weather_ilsaRow Get Return CType(Me.Rows(index),weather_ilsaRow) End Get End Property _ Public Event weather_ilsaRowChanging As weather_ilsaRowChangeEventHandler _ Public Event weather_ilsaRowChanged As weather_ilsaRowChangeEventHandler _ Public Event weather_ilsaRowDeleting As weather_ilsaRowChangeEventHandler _ Public Event weather_ilsaRowDeleted As weather_ilsaRowChangeEventHandler _ Public Overloads Sub Addweather_ilsaRow(ByVal row As weather_ilsaRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addweather_ilsaRow( _ ByVal pcode As String, _ ByVal code As String, _ ByVal 설명 As String, _ ByVal 최대부하 As String, _ ByVal m01 As String, _ ByVal m02 As String, _ ByVal m03 As String, _ ByVal m04 As String, _ ByVal m05 As String, _ ByVal m06 As String, _ ByVal m07 As String, _ ByVal m08 As String, _ ByVal m09 As String, _ ByVal m10 As String, _ ByVal m11 As String, _ ByVal m12 As String) As weather_ilsaRow Dim rowweather_ilsaRow As weather_ilsaRow = CType(Me.NewRow,weather_ilsaRow) Dim columnValuesArray() As Object = New Object() {pcode, code, 설명, 최대부하, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12} rowweather_ilsaRow.ItemArray = columnValuesArray Me.Rows.Add(rowweather_ilsaRow) Return rowweather_ilsaRow End Function _ Public Function FindBypcodecode(ByVal pcode As String, ByVal code As String) As weather_ilsaRow Return CType(Me.Rows.Find(New Object() {pcode, code}),weather_ilsaRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As weather_ilsaDataTable = CType(MyBase.Clone,weather_ilsaDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New weather_ilsaDataTable() End Function _ Friend Sub InitVars() Me.columnpcode = MyBase.Columns("pcode") Me.columncode = MyBase.Columns("code") Me.column설명 = MyBase.Columns("설명") Me.column최대부하 = MyBase.Columns("최대부하") Me.columnm01 = MyBase.Columns("m01") Me.columnm02 = MyBase.Columns("m02") Me.columnm03 = MyBase.Columns("m03") Me.columnm04 = MyBase.Columns("m04") Me.columnm05 = MyBase.Columns("m05") Me.columnm06 = MyBase.Columns("m06") Me.columnm07 = MyBase.Columns("m07") Me.columnm08 = MyBase.Columns("m08") Me.columnm09 = MyBase.Columns("m09") Me.columnm10 = MyBase.Columns("m10") Me.columnm11 = MyBase.Columns("m11") Me.columnm12 = MyBase.Columns("m12") End Sub _ Private Sub InitClass() Me.columnpcode = New Global.System.Data.DataColumn("pcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpcode) 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.columnm01 = New Global.System.Data.DataColumn("m01", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm01) Me.columnm02 = New Global.System.Data.DataColumn("m02", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm02) Me.columnm03 = New Global.System.Data.DataColumn("m03", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm03) Me.columnm04 = New Global.System.Data.DataColumn("m04", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm04) Me.columnm05 = New Global.System.Data.DataColumn("m05", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm05) Me.columnm06 = New Global.System.Data.DataColumn("m06", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm06) Me.columnm07 = New Global.System.Data.DataColumn("m07", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm07) Me.columnm08 = New Global.System.Data.DataColumn("m08", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm08) Me.columnm09 = New Global.System.Data.DataColumn("m09", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm09) Me.columnm10 = New Global.System.Data.DataColumn("m10", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm10) Me.columnm11 = New Global.System.Data.DataColumn("m11", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm11) Me.columnm12 = New Global.System.Data.DataColumn("m12", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm12) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnpcode, Me.columncode}, true)) Me.columnpcode.AllowDBNull = false Me.columnpcode.DefaultValue = CType("",String) Me.columnpcode.MaxLength = 10 Me.columncode.AllowDBNull = false Me.columncode.DefaultValue = CType("",String) Me.columncode.MaxLength = 10 Me.column설명.DefaultValue = CType("",String) Me.column설명.MaxLength = 50 Me.column최대부하.DefaultValue = CType("0",String) Me.column최대부하.MaxLength = 50 Me.columnm01.DefaultValue = CType("0",String) Me.columnm01.MaxLength = 50 Me.columnm02.DefaultValue = CType("0",String) Me.columnm02.MaxLength = 50 Me.columnm03.DefaultValue = CType("0",String) Me.columnm03.MaxLength = 50 Me.columnm04.DefaultValue = CType("0",String) Me.columnm04.MaxLength = 50 Me.columnm05.DefaultValue = CType("0",String) Me.columnm05.MaxLength = 50 Me.columnm06.DefaultValue = CType("0",String) Me.columnm06.MaxLength = 50 Me.columnm07.DefaultValue = CType("0",String) Me.columnm07.MaxLength = 50 Me.columnm08.DefaultValue = CType("0",String) Me.columnm08.MaxLength = 50 Me.columnm09.DefaultValue = CType("0",String) Me.columnm09.MaxLength = 50 Me.columnm10.DefaultValue = CType("0",String) Me.columnm10.MaxLength = 50 Me.columnm11.DefaultValue = CType("0",String) Me.columnm11.MaxLength = 50 Me.columnm12.DefaultValue = CType("0",String) Me.columnm12.MaxLength = 50 End Sub _ Public Function Newweather_ilsaRow() As weather_ilsaRow Return CType(Me.NewRow,weather_ilsaRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New weather_ilsaRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(weather_ilsaRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.weather_ilsaRowChangedEvent) Is Nothing) Then RaiseEvent weather_ilsaRowChanged(Me, New weather_ilsaRowChangeEvent(CType(e.Row,weather_ilsaRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.weather_ilsaRowChangingEvent) Is Nothing) Then RaiseEvent weather_ilsaRowChanging(Me, New weather_ilsaRowChangeEvent(CType(e.Row,weather_ilsaRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.weather_ilsaRowDeletedEvent) Is Nothing) Then RaiseEvent weather_ilsaRowDeleted(Me, New weather_ilsaRowChangeEvent(CType(e.Row,weather_ilsaRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.weather_ilsaRowDeletingEvent) Is Nothing) Then RaiseEvent weather_ilsaRowDeleting(Me, New weather_ilsaRowChangeEvent(CType(e.Row,weather_ilsaRow), e.Action)) End If End Sub _ Public Sub Removeweather_ilsaRow(ByVal row As weather_ilsaRow) 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 DS = New DS() 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 = "weather_ilsaDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class weather_supdoDataTable Inherits Global.System.Data.TypedTableBase(Of weather_supdoRow) Private columnpcode As Global.System.Data.DataColumn Private columncode As Global.System.Data.DataColumn Private column설명 As Global.System.Data.DataColumn Private columnt01 As Global.System.Data.DataColumn Private columnt02 As Global.System.Data.DataColumn Private columnt03 As Global.System.Data.DataColumn Private columnt04 As Global.System.Data.DataColumn Private columnt05 As Global.System.Data.DataColumn Private columnt06 As Global.System.Data.DataColumn Private columnt07 As Global.System.Data.DataColumn Private columnt08 As Global.System.Data.DataColumn Private columnt09 As Global.System.Data.DataColumn Private columnt10 As Global.System.Data.DataColumn Private columnt11 As Global.System.Data.DataColumn Private columnt12 As Global.System.Data.DataColumn Private columnt13 As Global.System.Data.DataColumn Private columnt14 As Global.System.Data.DataColumn Private columnt15 As Global.System.Data.DataColumn Private columnt16 As Global.System.Data.DataColumn Private columnt17 As Global.System.Data.DataColumn Private columnt18 As Global.System.Data.DataColumn Private columnt19 As Global.System.Data.DataColumn Private columnt20 As Global.System.Data.DataColumn Private columnt21 As Global.System.Data.DataColumn Private columnt22 As Global.System.Data.DataColumn Private columnt23 As Global.System.Data.DataColumn Private columnt24 As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "weather_supdo" 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 pcodeColumn() As Global.System.Data.DataColumn Get Return Me.columnpcode End Get End Property _ 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 t01Column() As Global.System.Data.DataColumn Get Return Me.columnt01 End Get End Property _ Public ReadOnly Property t02Column() As Global.System.Data.DataColumn Get Return Me.columnt02 End Get End Property _ Public ReadOnly Property t03Column() As Global.System.Data.DataColumn Get Return Me.columnt03 End Get End Property _ Public ReadOnly Property t04Column() As Global.System.Data.DataColumn Get Return Me.columnt04 End Get End Property _ Public ReadOnly Property t05Column() As Global.System.Data.DataColumn Get Return Me.columnt05 End Get End Property _ Public ReadOnly Property t06Column() As Global.System.Data.DataColumn Get Return Me.columnt06 End Get End Property _ Public ReadOnly Property t07Column() As Global.System.Data.DataColumn Get Return Me.columnt07 End Get End Property _ Public ReadOnly Property t08Column() As Global.System.Data.DataColumn Get Return Me.columnt08 End Get End Property _ Public ReadOnly Property t09Column() As Global.System.Data.DataColumn Get Return Me.columnt09 End Get End Property _ Public ReadOnly Property t10Column() As Global.System.Data.DataColumn Get Return Me.columnt10 End Get End Property _ Public ReadOnly Property t11Column() As Global.System.Data.DataColumn Get Return Me.columnt11 End Get End Property _ Public ReadOnly Property t12Column() As Global.System.Data.DataColumn Get Return Me.columnt12 End Get End Property _ Public ReadOnly Property t13Column() As Global.System.Data.DataColumn Get Return Me.columnt13 End Get End Property _ Public ReadOnly Property t14Column() As Global.System.Data.DataColumn Get Return Me.columnt14 End Get End Property _ Public ReadOnly Property t15Column() As Global.System.Data.DataColumn Get Return Me.columnt15 End Get End Property _ Public ReadOnly Property t16Column() As Global.System.Data.DataColumn Get Return Me.columnt16 End Get End Property _ Public ReadOnly Property t17Column() As Global.System.Data.DataColumn Get Return Me.columnt17 End Get End Property _ Public ReadOnly Property t18Column() As Global.System.Data.DataColumn Get Return Me.columnt18 End Get End Property _ Public ReadOnly Property t19Column() As Global.System.Data.DataColumn Get Return Me.columnt19 End Get End Property _ Public ReadOnly Property t20Column() As Global.System.Data.DataColumn Get Return Me.columnt20 End Get End Property _ Public ReadOnly Property t21Column() As Global.System.Data.DataColumn Get Return Me.columnt21 End Get End Property _ Public ReadOnly Property t22Column() As Global.System.Data.DataColumn Get Return Me.columnt22 End Get End Property _ Public ReadOnly Property t23Column() As Global.System.Data.DataColumn Get Return Me.columnt23 End Get End Property _ Public ReadOnly Property t24Column() As Global.System.Data.DataColumn Get Return Me.columnt24 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 weather_supdoRow Get Return CType(Me.Rows(index),weather_supdoRow) End Get End Property _ Public Event weather_supdoRowChanging As weather_supdoRowChangeEventHandler _ Public Event weather_supdoRowChanged As weather_supdoRowChangeEventHandler _ Public Event weather_supdoRowDeleting As weather_supdoRowChangeEventHandler _ Public Event weather_supdoRowDeleted As weather_supdoRowChangeEventHandler _ Public Overloads Sub Addweather_supdoRow(ByVal row As weather_supdoRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addweather_supdoRow( _ ByVal pcode As String, _ ByVal code As String, _ ByVal 설명 As String, _ ByVal t01 As String, _ ByVal t02 As String, _ ByVal t03 As String, _ ByVal t04 As String, _ ByVal t05 As String, _ ByVal t06 As String, _ ByVal t07 As String, _ ByVal t08 As String, _ ByVal t09 As String, _ ByVal t10 As String, _ ByVal t11 As String, _ ByVal t12 As String, _ ByVal t13 As String, _ ByVal t14 As String, _ ByVal t15 As String, _ ByVal t16 As String, _ ByVal t17 As String, _ ByVal t18 As String, _ ByVal t19 As String, _ ByVal t20 As String, _ ByVal t21 As String, _ ByVal t22 As String, _ ByVal t23 As String, _ ByVal t24 As String) As weather_supdoRow Dim rowweather_supdoRow As weather_supdoRow = CType(Me.NewRow,weather_supdoRow) Dim columnValuesArray() As Object = New Object() {pcode, code, 설명, t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24} rowweather_supdoRow.ItemArray = columnValuesArray Me.Rows.Add(rowweather_supdoRow) Return rowweather_supdoRow End Function _ Public Function FindBypcodecode(ByVal pcode As String, ByVal code As String) As weather_supdoRow Return CType(Me.Rows.Find(New Object() {pcode, code}),weather_supdoRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As weather_supdoDataTable = CType(MyBase.Clone,weather_supdoDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New weather_supdoDataTable() End Function _ Friend Sub InitVars() Me.columnpcode = MyBase.Columns("pcode") Me.columncode = MyBase.Columns("code") Me.column설명 = MyBase.Columns("설명") Me.columnt01 = MyBase.Columns("t01") Me.columnt02 = MyBase.Columns("t02") Me.columnt03 = MyBase.Columns("t03") Me.columnt04 = MyBase.Columns("t04") Me.columnt05 = MyBase.Columns("t05") Me.columnt06 = MyBase.Columns("t06") Me.columnt07 = MyBase.Columns("t07") Me.columnt08 = MyBase.Columns("t08") Me.columnt09 = MyBase.Columns("t09") Me.columnt10 = MyBase.Columns("t10") Me.columnt11 = MyBase.Columns("t11") Me.columnt12 = MyBase.Columns("t12") Me.columnt13 = MyBase.Columns("t13") Me.columnt14 = MyBase.Columns("t14") Me.columnt15 = MyBase.Columns("t15") Me.columnt16 = MyBase.Columns("t16") Me.columnt17 = MyBase.Columns("t17") Me.columnt18 = MyBase.Columns("t18") Me.columnt19 = MyBase.Columns("t19") Me.columnt20 = MyBase.Columns("t20") Me.columnt21 = MyBase.Columns("t21") Me.columnt22 = MyBase.Columns("t22") Me.columnt23 = MyBase.Columns("t23") Me.columnt24 = MyBase.Columns("t24") End Sub _ Private Sub InitClass() Me.columnpcode = New Global.System.Data.DataColumn("pcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpcode) 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.columnt01 = New Global.System.Data.DataColumn("t01", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt01) Me.columnt02 = New Global.System.Data.DataColumn("t02", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt02) Me.columnt03 = New Global.System.Data.DataColumn("t03", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt03) Me.columnt04 = New Global.System.Data.DataColumn("t04", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt04) Me.columnt05 = New Global.System.Data.DataColumn("t05", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt05) Me.columnt06 = New Global.System.Data.DataColumn("t06", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt06) Me.columnt07 = New Global.System.Data.DataColumn("t07", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt07) Me.columnt08 = New Global.System.Data.DataColumn("t08", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt08) Me.columnt09 = New Global.System.Data.DataColumn("t09", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt09) Me.columnt10 = New Global.System.Data.DataColumn("t10", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt10) Me.columnt11 = New Global.System.Data.DataColumn("t11", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt11) Me.columnt12 = New Global.System.Data.DataColumn("t12", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt12) Me.columnt13 = New Global.System.Data.DataColumn("t13", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt13) Me.columnt14 = New Global.System.Data.DataColumn("t14", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt14) Me.columnt15 = New Global.System.Data.DataColumn("t15", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt15) Me.columnt16 = New Global.System.Data.DataColumn("t16", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt16) Me.columnt17 = New Global.System.Data.DataColumn("t17", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt17) Me.columnt18 = New Global.System.Data.DataColumn("t18", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt18) Me.columnt19 = New Global.System.Data.DataColumn("t19", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt19) Me.columnt20 = New Global.System.Data.DataColumn("t20", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt20) Me.columnt21 = New Global.System.Data.DataColumn("t21", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt21) Me.columnt22 = New Global.System.Data.DataColumn("t22", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt22) Me.columnt23 = New Global.System.Data.DataColumn("t23", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt23) Me.columnt24 = New Global.System.Data.DataColumn("t24", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnt24) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnpcode, Me.columncode}, true)) Me.columnpcode.AllowDBNull = false Me.columnpcode.DefaultValue = CType("",String) Me.columnpcode.MaxLength = 10 Me.columncode.AllowDBNull = false Me.columncode.DefaultValue = CType("",String) Me.columncode.MaxLength = 10 Me.column설명.MaxLength = 50 Me.columnt01.DefaultValue = CType("0",String) Me.columnt01.MaxLength = 50 Me.columnt02.DefaultValue = CType("0",String) Me.columnt02.MaxLength = 50 Me.columnt03.DefaultValue = CType("0",String) Me.columnt03.MaxLength = 50 Me.columnt04.DefaultValue = CType("0",String) Me.columnt04.MaxLength = 50 Me.columnt05.DefaultValue = CType("0",String) Me.columnt05.MaxLength = 50 Me.columnt06.DefaultValue = CType("0",String) Me.columnt06.MaxLength = 50 Me.columnt07.DefaultValue = CType("0",String) Me.columnt07.MaxLength = 50 Me.columnt08.DefaultValue = CType("0",String) Me.columnt08.MaxLength = 50 Me.columnt09.DefaultValue = CType("0",String) Me.columnt09.MaxLength = 50 Me.columnt10.DefaultValue = CType("0",String) Me.columnt10.MaxLength = 50 Me.columnt11.DefaultValue = CType("0",String) Me.columnt11.MaxLength = 50 Me.columnt12.DefaultValue = CType("0",String) Me.columnt12.MaxLength = 50 Me.columnt13.DefaultValue = CType("0",String) Me.columnt13.MaxLength = 50 Me.columnt14.DefaultValue = CType("0",String) Me.columnt14.MaxLength = 50 Me.columnt15.DefaultValue = CType("0",String) Me.columnt15.MaxLength = 50 Me.columnt16.DefaultValue = CType("0",String) Me.columnt16.MaxLength = 50 Me.columnt17.DefaultValue = CType("0",String) Me.columnt17.MaxLength = 50 Me.columnt18.DefaultValue = CType("0",String) Me.columnt18.MaxLength = 50 Me.columnt19.DefaultValue = CType("0",String) Me.columnt19.MaxLength = 50 Me.columnt20.DefaultValue = CType("0",String) Me.columnt20.MaxLength = 50 Me.columnt21.DefaultValue = CType("0",String) Me.columnt21.MaxLength = 50 Me.columnt22.DefaultValue = CType("0",String) Me.columnt22.MaxLength = 50 Me.columnt23.DefaultValue = CType("0",String) Me.columnt23.MaxLength = 50 Me.columnt24.DefaultValue = CType("0",String) Me.columnt24.MaxLength = 50 End Sub _ Public Function Newweather_supdoRow() As weather_supdoRow Return CType(Me.NewRow,weather_supdoRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New weather_supdoRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(weather_supdoRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.weather_supdoRowChangedEvent) Is Nothing) Then RaiseEvent weather_supdoRowChanged(Me, New weather_supdoRowChangeEvent(CType(e.Row,weather_supdoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.weather_supdoRowChangingEvent) Is Nothing) Then RaiseEvent weather_supdoRowChanging(Me, New weather_supdoRowChangeEvent(CType(e.Row,weather_supdoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.weather_supdoRowDeletedEvent) Is Nothing) Then RaiseEvent weather_supdoRowDeleted(Me, New weather_supdoRowChangeEvent(CType(e.Row,weather_supdoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.weather_supdoRowDeletingEvent) Is Nothing) Then RaiseEvent weather_supdoRowDeleting(Me, New weather_supdoRowChangeEvent(CType(e.Row,weather_supdoRow), e.Action)) End If End Sub _ Public Sub Removeweather_supdoRow(ByVal row As weather_supdoRow) 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 DS = New DS() 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 = "weather_supdoDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class tbl_profileDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_profileRow) 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 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 = 255 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 DS = New DS() 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 the strongly named DataTable class. ''' _ Partial Public Class tbl_commonDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_commonRow) Private columngubun As Global.System.Data.DataColumn Private columncode As Global.System.Data.DataColumn Private columnname As Global.System.Data.DataColumn Private columnvaln1 As Global.System.Data.DataColumn Private columncodename As Global.System.Data.DataColumn _ Public Sub New() Me.New(false) End Sub _ Public Sub New(ByVal initExpressions As Boolean) MyBase.New Me.TableName = "tbl_common" Me.BeginInit Me.InitClass If (initExpressions = true) Then Me.InitExpressions End If Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property gubunColumn() As Global.System.Data.DataColumn Get Return Me.columngubun End Get End Property _ Public ReadOnly Property codeColumn() As Global.System.Data.DataColumn Get Return Me.columncode End Get End Property _ Public ReadOnly Property nameColumn() As Global.System.Data.DataColumn Get Return Me.columnname End Get End Property _ Public ReadOnly Property valn1Column() As Global.System.Data.DataColumn Get Return Me.columnvaln1 End Get End Property _ Public ReadOnly Property codenameColumn() As Global.System.Data.DataColumn Get Return Me.columncodename 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_commonRow Get Return CType(Me.Rows(index),tbl_commonRow) End Get End Property _ Public Event tbl_commonRowChanging As tbl_commonRowChangeEventHandler _ Public Event tbl_commonRowChanged As tbl_commonRowChangeEventHandler _ Public Event tbl_commonRowDeleting As tbl_commonRowChangeEventHandler _ Public Event tbl_commonRowDeleted As tbl_commonRowChangeEventHandler _ Public Overloads Sub Addtbl_commonRow(ByVal row As tbl_commonRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_commonRow(ByVal gubun As String, ByVal code As String, ByVal name As String, ByVal valn1 As Double, ByVal codename As String) As tbl_commonRow Dim rowtbl_commonRow As tbl_commonRow = CType(Me.NewRow,tbl_commonRow) Dim columnValuesArray() As Object = New Object() {gubun, code, name, valn1, codename} rowtbl_commonRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_commonRow) Return rowtbl_commonRow End Function _ Public Overloads Function Addtbl_commonRow(ByVal gubun As String, ByVal code As String, ByVal name As String, ByVal valn1 As Double) As tbl_commonRow Dim rowtbl_commonRow As tbl_commonRow = CType(Me.NewRow,tbl_commonRow) Dim columnValuesArray() As Object = New Object() {gubun, code, name, valn1, Nothing} rowtbl_commonRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_commonRow) Return rowtbl_commonRow End Function _ Public Function FindBygubuncode(ByVal gubun As String, ByVal code As String) As tbl_commonRow Return CType(Me.Rows.Find(New Object() {gubun, code}),tbl_commonRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_commonDataTable = CType(MyBase.Clone,tbl_commonDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_commonDataTable() End Function _ Friend Sub InitVars() Me.columngubun = MyBase.Columns("gubun") Me.columncode = MyBase.Columns("code") Me.columnname = MyBase.Columns("name") Me.columnvaln1 = MyBase.Columns("valn1") Me.columncodename = MyBase.Columns("codename") End Sub _ Private Sub InitClass() Me.columngubun = New Global.System.Data.DataColumn("gubun", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngubun) Me.columncode = New Global.System.Data.DataColumn("code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncode) Me.columnname = New Global.System.Data.DataColumn("name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnname) Me.columnvaln1 = New Global.System.Data.DataColumn("valn1", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvaln1) Me.columncodename = New Global.System.Data.DataColumn("codename", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncodename) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columngubun, Me.columncode}, true)) Me.columngubun.AllowDBNull = false Me.columngubun.DefaultValue = CType("",String) Me.columngubun.MaxLength = 10 Me.columncode.AllowDBNull = false Me.columncode.DefaultValue = CType("",String) Me.columncode.MaxLength = 10 Me.columnname.DefaultValue = CType("",String) Me.columnname.MaxLength = 50 Me.columnvaln1.DefaultValue = CType(0R,Double) Me.columncodename.ReadOnly = true Me.columncodename.DefaultValue = CType("",String) End Sub _ Public Function Newtbl_commonRow() As tbl_commonRow Return CType(Me.NewRow,tbl_commonRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_commonRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_commonRow) End Function _ Private Sub InitExpressions() Me.codenameColumn.Expression = "'(' + code + ')' +name" End Sub _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_commonRowChangedEvent) Is Nothing) Then RaiseEvent tbl_commonRowChanged(Me, New tbl_commonRowChangeEvent(CType(e.Row,tbl_commonRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_commonRowChangingEvent) Is Nothing) Then RaiseEvent tbl_commonRowChanging(Me, New tbl_commonRowChangeEvent(CType(e.Row,tbl_commonRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_commonRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_commonRowDeleted(Me, New tbl_commonRowChangeEvent(CType(e.Row,tbl_commonRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_commonRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_commonRowDeleting(Me, New tbl_commonRowChangeEvent(CType(e.Row,tbl_commonRow), e.Action)) End If End Sub _ Public Sub Removetbl_commonRow(ByVal row As tbl_commonRow) 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 DS = New DS() 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_commonDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class weather_groupDataTable Inherits Global.System.Data.TypedTableBase(Of weather_groupRow) Private columncode As Global.System.Data.DataColumn Private columnname As Global.System.Data.DataColumn Private columnarea As Global.System.Data.DataColumn Private columnarea2 As Global.System.Data.DataColumn Private columnarea3 As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "weather_group" 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 nameColumn() As Global.System.Data.DataColumn Get Return Me.columnname End Get End Property _ Public ReadOnly Property areaColumn() As Global.System.Data.DataColumn Get Return Me.columnarea End Get End Property _ Public ReadOnly Property area2Column() As Global.System.Data.DataColumn Get Return Me.columnarea2 End Get End Property _ Public ReadOnly Property area3Column() As Global.System.Data.DataColumn Get Return Me.columnarea3 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 weather_groupRow Get Return CType(Me.Rows(index),weather_groupRow) End Get End Property _ Public Event weather_groupRowChanging As weather_groupRowChangeEventHandler _ Public Event weather_groupRowChanged As weather_groupRowChangeEventHandler _ Public Event weather_groupRowDeleting As weather_groupRowChangeEventHandler _ Public Event weather_groupRowDeleted As weather_groupRowChangeEventHandler _ Public Overloads Sub Addweather_groupRow(ByVal row As weather_groupRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addweather_groupRow(ByVal code As String, ByVal name As String, ByVal area As String, ByVal area2 As String, ByVal area3 As String) As weather_groupRow Dim rowweather_groupRow As weather_groupRow = CType(Me.NewRow,weather_groupRow) Dim columnValuesArray() As Object = New Object() {code, name, area, area2, area3} rowweather_groupRow.ItemArray = columnValuesArray Me.Rows.Add(rowweather_groupRow) Return rowweather_groupRow End Function _ Public Function FindBycode(ByVal code As String) As weather_groupRow Return CType(Me.Rows.Find(New Object() {code}),weather_groupRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As weather_groupDataTable = CType(MyBase.Clone,weather_groupDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New weather_groupDataTable() End Function _ Friend Sub InitVars() Me.columncode = MyBase.Columns("code") Me.columnname = MyBase.Columns("name") Me.columnarea = MyBase.Columns("area") Me.columnarea2 = MyBase.Columns("area2") Me.columnarea3 = MyBase.Columns("area3") 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.columnname = New Global.System.Data.DataColumn("name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnname) Me.columnarea = New Global.System.Data.DataColumn("area", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnarea) Me.columnarea2 = New Global.System.Data.DataColumn("area2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnarea2) Me.columnarea3 = New Global.System.Data.DataColumn("area3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnarea3) 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 = 50 Me.columnname.MaxLength = 50 End Sub _ Public Function Newweather_groupRow() As weather_groupRow Return CType(Me.NewRow,weather_groupRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New weather_groupRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(weather_groupRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.weather_groupRowChangedEvent) Is Nothing) Then RaiseEvent weather_groupRowChanged(Me, New weather_groupRowChangeEvent(CType(e.Row,weather_groupRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.weather_groupRowChangingEvent) Is Nothing) Then RaiseEvent weather_groupRowChanging(Me, New weather_groupRowChangeEvent(CType(e.Row,weather_groupRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.weather_groupRowDeletedEvent) Is Nothing) Then RaiseEvent weather_groupRowDeleted(Me, New weather_groupRowChangeEvent(CType(e.Row,weather_groupRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.weather_groupRowDeletingEvent) Is Nothing) Then RaiseEvent weather_groupRowDeleting(Me, New weather_groupRowChangeEvent(CType(e.Row,weather_groupRow), e.Action)) End If End Sub _ Public Sub Removeweather_groupRow(ByVal row As weather_groupRow) 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 DS = New DS() 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 = "weather_groupDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class tbl_picDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_picRow) Private columncode As Global.System.Data.DataColumn Private columnpic As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_pic" 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 picColumn() As Global.System.Data.DataColumn Get Return Me.columnpic 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_picRow Get Return CType(Me.Rows(index),tbl_picRow) End Get End Property _ Public Event tbl_picRowChanging As tbl_picRowChangeEventHandler _ Public Event tbl_picRowChanged As tbl_picRowChangeEventHandler _ Public Event tbl_picRowDeleting As tbl_picRowChangeEventHandler _ Public Event tbl_picRowDeleted As tbl_picRowChangeEventHandler _ Public Overloads Sub Addtbl_picRow(ByVal row As tbl_picRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_picRow(ByVal code As String, ByVal pic() As Byte) As tbl_picRow Dim rowtbl_picRow As tbl_picRow = CType(Me.NewRow,tbl_picRow) Dim columnValuesArray() As Object = New Object() {code, pic} rowtbl_picRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_picRow) Return rowtbl_picRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_picDataTable = CType(MyBase.Clone,tbl_picDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_picDataTable() End Function _ Friend Sub InitVars() Me.columncode = MyBase.Columns("code") Me.columnpic = MyBase.Columns("pic") 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.columnpic = New Global.System.Data.DataColumn("pic", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpic) End Sub _ Public Function Newtbl_picRow() As tbl_picRow Return CType(Me.NewRow,tbl_picRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_picRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_picRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_picRowChangedEvent) Is Nothing) Then RaiseEvent tbl_picRowChanged(Me, New tbl_picRowChangeEvent(CType(e.Row,tbl_picRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_picRowChangingEvent) Is Nothing) Then RaiseEvent tbl_picRowChanging(Me, New tbl_picRowChangeEvent(CType(e.Row,tbl_picRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_picRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_picRowDeleted(Me, New tbl_picRowChangeEvent(CType(e.Row,tbl_picRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_picRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_picRowDeleting(Me, New tbl_picRowChangeEvent(CType(e.Row,tbl_picRow), e.Action)) End If End Sub _ Public Sub Removetbl_picRow(ByVal row As tbl_picRow) 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 DS = New DS() 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_picDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class tbl_nanbangkikiDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_nanbangkikiRow) 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지역난방방식 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히트난방정격10 As Global.System.Data.DataColumn Private column히트배관길이 As Global.System.Data.DataColumn Private column단열등급 As Global.System.Data.DataColumn Private column히트펌프시스템종류 As Global.System.Data.DataColumn Private column개별기기적용 As Global.System.Data.DataColumn Private column헤더적용 As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_nanbangkiki" 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 지역난방방식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 히트난방정격7Column() As Global.System.Data.DataColumn Get Return Me.column히트난방정격7 End Get End Property _ Public ReadOnly Property 히트난방정격10Column() As Global.System.Data.DataColumn Get Return Me.column히트난방정격10 End Get End Property _ Public ReadOnly Property 히트배관길이Column() As Global.System.Data.DataColumn Get Return Me.column히트배관길이 End Get End Property _ Public ReadOnly Property 단열등급Column() As Global.System.Data.DataColumn Get Return Me.column단열등급 End Get End Property _ Public ReadOnly Property 히트펌프시스템종류Column() As Global.System.Data.DataColumn Get Return Me.column히트펌프시스템종류 End Get End Property _ Public ReadOnly Property 개별기기적용Column() As Global.System.Data.DataColumn Get Return Me.column개별기기적용 End Get End Property _ Public ReadOnly Property 헤더적용Column() As Global.System.Data.DataColumn Get Return Me.column헤더적용 End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_nanbangkikiRow Get Return CType(Me.Rows(index),tbl_nanbangkikiRow) End Get End Property _ Public Event tbl_nanbangkikiRowChanging As tbl_nanbangkikiRowChangeEventHandler _ Public Event tbl_nanbangkikiRowChanged As tbl_nanbangkikiRowChangeEventHandler _ Public Event tbl_nanbangkikiRowDeleting As tbl_nanbangkikiRowChangeEventHandler _ Public Event tbl_nanbangkikiRowDeleted As tbl_nanbangkikiRowChangeEventHandler _ Public Overloads Sub Addtbl_nanbangkikiRow(ByVal row As tbl_nanbangkikiRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_nanbangkikiRow( _ 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 지역난방방식 As String, _ ByVal 히트연료 As String, _ ByVal 히트난방용량 As String, _ ByVal 히트난방정격7 As String, _ ByVal 히트난방정격10 As String, _ ByVal 히트배관길이 As String, _ ByVal 단열등급 As String, _ ByVal 히트펌프시스템종류 As String, _ ByVal 개별기기적용 As Boolean, _ ByVal 헤더적용 As Boolean) As tbl_nanbangkikiRow Dim rowtbl_nanbangkikiRow As tbl_nanbangkikiRow = CType(Me.NewRow,tbl_nanbangkikiRow) Dim columnValuesArray() As Object = New Object() {code, 설명, 축열탱크방식, 축열제척, 펌프정격전력, 배관망유형, 펌프교정계수, 펌프제어유형, 펌프동력, 분배시스템방식, 순환유무, 펌프동력급탕, 건물길이, 건물넓이, 열공급층수, 층고, 배관길이, 신재생연결여부, 연결된시스템, 펌프제어, 열생산기기방식, 사용연료, 급수온도, 환수온도, 보일러정격출력, 열교환기정격출력, 운전방식, 보일러대수, 정격보일러효율, 보일러방식, 지역난방방식, 히트연료, 히트난방용량, 히트난방정격7, 히트난방정격10, 히트배관길이, 단열등급, 히트펌프시스템종류, 개별기기적용, 헤더적용} rowtbl_nanbangkikiRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_nanbangkikiRow) Return rowtbl_nanbangkikiRow End Function _ Public Function FindBycode(ByVal code As String) As tbl_nanbangkikiRow Return CType(Me.Rows.Find(New Object() {code}),tbl_nanbangkikiRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_nanbangkikiDataTable = CType(MyBase.Clone,tbl_nanbangkikiDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_nanbangkikiDataTable() 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지역난방방식 = MyBase.Columns("지역난방방식") Me.column히트연료 = MyBase.Columns("히트연료") Me.column히트난방용량 = MyBase.Columns("히트난방용량") Me.column히트난방정격7 = MyBase.Columns("히트난방정격7") Me.column히트난방정격10 = MyBase.Columns("히트난방정격10") Me.column히트배관길이 = MyBase.Columns("히트배관길이") Me.column단열등급 = MyBase.Columns("단열등급") Me.column히트펌프시스템종류 = MyBase.Columns("히트펌프시스템종류") Me.column개별기기적용 = MyBase.Columns("개별기기적용") Me.column헤더적용 = MyBase.Columns("헤더적용") End Sub _ Private Sub InitClass() Me.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지역난방방식 = 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히트난방정격10 = New Global.System.Data.DataColumn("히트난방정격10", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column히트난방정격10) 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(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column개별기기적용) Me.column헤더적용 = New Global.System.Data.DataColumn("헤더적용", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column헤더적용) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true)) Me.columncode.AllowDBNull = false Me.columncode.Unique = true Me.columncode.MaxLength = 50 Me.column설명.DefaultValue = CType("",String) Me.column설명.MaxLength = 255 Me.column축열탱크방식.DefaultValue = CType("0",String) Me.column축열탱크방식.MaxLength = 50 Me.column축열제척.Caption = "축열체적" Me.column축열제척.DefaultValue = CType("",String) Me.column펌프정격전력.DefaultValue = CType("0",String) Me.column배관망유형.DefaultValue = CType("0",String) Me.column펌프교정계수.DefaultValue = CType("0",String) Me.column펌프제어유형.DefaultValue = CType("0",String) Me.column펌프제어유형.MaxLength = 50 Me.column펌프동력.DefaultValue = CType("0",String) Me.column펌프동력.MaxLength = 50 Me.column분배시스템방식.DefaultValue = CType("0",String) Me.column순환유무.DefaultValue = CType("0",String) Me.column순환유무.MaxLength = 50 Me.column펌프동력급탕.DefaultValue = CType("",String) Me.column건물길이.DefaultValue = CType("0",String) Me.column건물넓이.DefaultValue = CType("0",String) Me.column열공급층수.DefaultValue = CType("",String) Me.column층고.DefaultValue = CType("",String) Me.column배관길이.DefaultValue = CType("",String) Me.column신재생연결여부.DefaultValue = CType("0",String) Me.column연결된시스템.DefaultValue = CType("0",String) Me.column펌프제어.DefaultValue = CType("0",String) Me.column열생산기기방식.DefaultValue = CType("0",String) Me.column사용연료.DefaultValue = CType("0",String) Me.column급수온도.DefaultValue = CType("0",String) Me.column환수온도.DefaultValue = CType("0",String) Me.column보일러정격출력.DefaultValue = CType("0",String) Me.column열교환기정격출력.DefaultValue = CType("0",String) Me.column운전방식.DefaultValue = CType("0",String) Me.column보일러대수.DefaultValue = CType("0",String) Me.column정격보일러효율.DefaultValue = CType("0",String) Me.column보일러방식.DefaultValue = CType("0",String) Me.column지역난방방식.DefaultValue = CType("0",String) Me.column히트연료.DefaultValue = CType("",String) Me.column히트난방용량.DefaultValue = CType("",String) Me.column히트난방정격7.DefaultValue = CType("0",String) Me.column히트난방정격10.DefaultValue = CType("",String) Me.column히트배관길이.DefaultValue = CType("",String) Me.column단열등급.DefaultValue = CType("0",String) Me.column히트펌프시스템종류.DefaultValue = CType("",String) Me.column개별기기적용.DefaultValue = CType(false,Boolean) Me.column헤더적용.DefaultValue = CType(false,Boolean) End Sub _ Public Function Newtbl_nanbangkikiRow() As tbl_nanbangkikiRow Return CType(Me.NewRow,tbl_nanbangkikiRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_nanbangkikiRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_nanbangkikiRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_nanbangkikiRowChangedEvent) Is Nothing) Then RaiseEvent tbl_nanbangkikiRowChanged(Me, New tbl_nanbangkikiRowChangeEvent(CType(e.Row,tbl_nanbangkikiRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_nanbangkikiRowChangingEvent) Is Nothing) Then RaiseEvent tbl_nanbangkikiRowChanging(Me, New tbl_nanbangkikiRowChangeEvent(CType(e.Row,tbl_nanbangkikiRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_nanbangkikiRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_nanbangkikiRowDeleted(Me, New tbl_nanbangkikiRowChangeEvent(CType(e.Row,tbl_nanbangkikiRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_nanbangkikiRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_nanbangkikiRowDeleting(Me, New tbl_nanbangkikiRowChangeEvent(CType(e.Row,tbl_nanbangkikiRow), e.Action)) End If End Sub _ Public Sub Removetbl_nanbangkikiRow(ByVal row As tbl_nanbangkikiRow) 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 DS = New DS() 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_nanbangkikiDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class tbl_nangbangkikiDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_nangbangkikiRow) 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 _ Public Sub New() MyBase.New Me.TableName = "tbl_nangbangkiki" 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 Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_nangbangkikiRow Get Return CType(Me.Rows(index),tbl_nangbangkikiRow) End Get End Property _ Public Event tbl_nangbangkikiRowChanging As tbl_nangbangkikiRowChangeEventHandler _ Public Event tbl_nangbangkikiRowChanged As tbl_nangbangkikiRowChangeEventHandler _ Public Event tbl_nangbangkikiRowDeleting As tbl_nangbangkikiRowChangeEventHandler _ Public Event tbl_nangbangkikiRowDeleted As tbl_nangbangkikiRowChangeEventHandler _ Public Overloads Sub Addtbl_nangbangkikiRow(ByVal row As tbl_nangbangkikiRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_nangbangkikiRow( _ 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 Boolean, _ ByVal 헤더적용 As Boolean, _ ByVal 사용연료 As String) As tbl_nangbangkikiRow Dim rowtbl_nangbangkikiRow As tbl_nangbangkikiRow = CType(Me.NewRow,tbl_nangbangkikiRow) Dim columnValuesArray() As Object = New Object() {code, 설명, 냉동기방식, 냉동기용량, 열성능비, 냉동기종류, 냉동기압축방식, 압축기제어방식, 냉동기설비시스템, 제어방식, 온수열생산기기, 증발식건식냉각기, 증발식냉각기, 보조방음기유무, 냉각탑입구온도, 신재생연결여부, 연결된시스템, 열생산연결방식, 개별기기적용, 헤더적용, 사용연료} rowtbl_nangbangkikiRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_nangbangkikiRow) Return rowtbl_nangbangkikiRow End Function _ Public Function FindBycode(ByVal code As String) As tbl_nangbangkikiRow Return CType(Me.Rows.Find(New Object() {code}),tbl_nangbangkikiRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_nangbangkikiDataTable = CType(MyBase.Clone,tbl_nangbangkikiDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_nangbangkikiDataTable() 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("사용연료") 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(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column개별기기적용) Me.column헤더적용 = New Global.System.Data.DataColumn("헤더적용", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column헤더적용) Me.column사용연료 = New Global.System.Data.DataColumn("사용연료", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column사용연료) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true)) Me.columncode.AllowDBNull = false Me.columncode.Unique = true Me.columncode.MaxLength = 50 Me.column설명.DefaultValue = CType("",String) Me.column설명.MaxLength = 255 Me.column냉동기방식.DefaultValue = CType("0",String) Me.column냉동기방식.MaxLength = 50 Me.column냉동기용량.DefaultValue = CType("",String) Me.column열성능비.DefaultValue = CType("",String) Me.column냉동기종류.DefaultValue = CType("0",String) Me.column냉동기압축방식.DefaultValue = CType("0",String) Me.column냉동기압축방식.MaxLength = 50 Me.column압축기제어방식.DefaultValue = CType("0",String) Me.column압축기제어방식.MaxLength = 50 Me.column냉동기설비시스템.DefaultValue = CType("0",String) Me.column제어방식.DefaultValue = CType("0",String) Me.column제어방식.MaxLength = 50 Me.column온수열생산기기.DefaultValue = CType("0",String) Me.column증발식건식냉각기.DefaultValue = CType("0",String) Me.column증발식냉각기.DefaultValue = CType("0",String) Me.column보조방음기유무.DefaultValue = CType("0",String) Me.column냉각탑입구온도.DefaultValue = CType("",String) Me.column신재생연결여부.DefaultValue = CType("0",String) Me.column연결된시스템.DefaultValue = CType("0",String) Me.column열생산연결방식.DefaultValue = CType("",String) Me.column개별기기적용.DefaultValue = CType(false,Boolean) Me.column헤더적용.DefaultValue = CType(false,Boolean) Me.column사용연료.DefaultValue = CType("",String) End Sub _ Public Function Newtbl_nangbangkikiRow() As tbl_nangbangkikiRow Return CType(Me.NewRow,tbl_nangbangkikiRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_nangbangkikiRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_nangbangkikiRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_nangbangkikiRowChangedEvent) Is Nothing) Then RaiseEvent tbl_nangbangkikiRowChanged(Me, New tbl_nangbangkikiRowChangeEvent(CType(e.Row,tbl_nangbangkikiRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_nangbangkikiRowChangingEvent) Is Nothing) Then RaiseEvent tbl_nangbangkikiRowChanging(Me, New tbl_nangbangkikiRowChangeEvent(CType(e.Row,tbl_nangbangkikiRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_nangbangkikiRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_nangbangkikiRowDeleted(Me, New tbl_nangbangkikiRowChangeEvent(CType(e.Row,tbl_nangbangkikiRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_nangbangkikiRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_nangbangkikiRowDeleting(Me, New tbl_nangbangkikiRowChangeEvent(CType(e.Row,tbl_nangbangkikiRow), e.Action)) End If End Sub _ Public Sub Removetbl_nangbangkikiRow(ByVal row As tbl_nangbangkikiRow) 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 DS = New DS() 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_nangbangkikiDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class tbl_bunbaeDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_bunbaeRow) 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 _ Public Sub New() MyBase.New Me.TableName = "tbl_bunbae" 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 Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_bunbaeRow Get Return CType(Me.Rows(index),tbl_bunbaeRow) End Get End Property _ Public Event tbl_bunbaeRowChanging As tbl_bunbaeRowChangeEventHandler _ Public Event tbl_bunbaeRowChanged As tbl_bunbaeRowChangeEventHandler _ Public Event tbl_bunbaeRowDeleting As tbl_bunbaeRowChangeEventHandler _ Public Event tbl_bunbaeRowDeleted As tbl_bunbaeRowChangeEventHandler _ Public Overloads Sub Addtbl_bunbaeRow(ByVal row As tbl_bunbaeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_bunbaeRow( _ 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) As tbl_bunbaeRow Dim rowtbl_bunbaeRow As tbl_bunbaeRow = CType(Me.NewRow,tbl_bunbaeRow) Dim columnValuesArray() As Object = New Object() {code, 설명, 냉동기, 냉매방식, 펌프운전제어유무, 급수온도, 환수온도, 설정점에서의온도차, 냉매의비열, 냉매의밀도, 냉매의점도, 배관의압력손실, 개별저항비율, 펌프동력, 공급범위의길이, 공급범위의넓이, 열층의수, 층고, 생산기기압력손실, 사용기기압력손실, 제어밸브압력손실} rowtbl_bunbaeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_bunbaeRow) Return rowtbl_bunbaeRow End Function _ Public Function FindBycode(ByVal code As String) As tbl_bunbaeRow Return CType(Me.Rows.Find(New Object() {code}),tbl_bunbaeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_bunbaeDataTable = CType(MyBase.Clone,tbl_bunbaeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_bunbaeDataTable() 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("제어밸브압력손실") 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.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 = 50 Me.column설명.DefaultValue = CType("",String) Me.column설명.MaxLength = 255 Me.column냉동기.DefaultValue = CType("0",String) Me.column냉동기.MaxLength = 50 Me.column냉매방식.DefaultValue = CType("0",String) Me.column펌프운전제어유무.DefaultValue = CType("0",String) Me.column급수온도.DefaultValue = CType("",String) Me.column환수온도.DefaultValue = CType("",String) Me.column설정점에서의온도차.DefaultValue = CType("",String) Me.column냉매의비열.DefaultValue = CType("",String) Me.column냉매의밀도.DefaultValue = CType("",String) Me.column냉매의점도.DefaultValue = CType("",String) Me.column배관의압력손실.DefaultValue = CType("",String) Me.column개별저항비율.DefaultValue = CType("",String) Me.column펌프동력.DefaultValue = CType("",String) Me.column공급범위의길이.DefaultValue = CType("",String) Me.column공급범위의넓이.DefaultValue = CType("",String) Me.column열층의수.DefaultValue = CType("",String) Me.column층고.DefaultValue = CType("",String) Me.column생산기기압력손실.DefaultValue = CType("",String) Me.column사용기기압력손실.DefaultValue = CType("",String) Me.column제어밸브압력손실.DefaultValue = CType("",String) End Sub _ Public Function Newtbl_bunbaeRow() As tbl_bunbaeRow Return CType(Me.NewRow,tbl_bunbaeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_bunbaeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_bunbaeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_bunbaeRowChangedEvent) Is Nothing) Then RaiseEvent tbl_bunbaeRowChanged(Me, New tbl_bunbaeRowChangeEvent(CType(e.Row,tbl_bunbaeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_bunbaeRowChangingEvent) Is Nothing) Then RaiseEvent tbl_bunbaeRowChanging(Me, New tbl_bunbaeRowChangeEvent(CType(e.Row,tbl_bunbaeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_bunbaeRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_bunbaeRowDeleted(Me, New tbl_bunbaeRowChangeEvent(CType(e.Row,tbl_bunbaeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_bunbaeRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_bunbaeRowDeleting(Me, New tbl_bunbaeRowChangeEvent(CType(e.Row,tbl_bunbaeRow), e.Action)) End If End Sub _ Public Sub Removetbl_bunbaeRow(ByVal row As tbl_bunbaeRow) 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 DS = New DS() 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_bunbaeDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class tbl_newDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_newRow) 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열손실계수1차 As Global.System.Data.DataColumn Private column열손실계수2차 As Global.System.Data.DataColumn Private column축열탱크체적급탕 As Global.System.Data.DataColumn Private column축열탱크체적난방 As Global.System.Data.DataColumn Private column축열탱크설치장소 As Global.System.Data.DataColumn Private column태양광모듈면적 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펌프용량1차 As Global.System.Data.DataColumn Private column펌프용량2차 As Global.System.Data.DataColumn Private column열교환기설치여부 As Global.System.Data.DataColumn Private column팽창탱크설치여부 As Global.System.Data.DataColumn Private column팽창탱크체적 As Global.System.Data.DataColumn Private column열생산능력 As Global.System.Data.DataColumn Private column열생산효율 As Global.System.Data.DataColumn Private column발전효율 As Global.System.Data.DataColumn Private column태양광모듈효율 As Global.System.Data.DataColumn Private column지열비고 As Global.System.Data.DataColumn Private column열병합신재생여부 As Global.System.Data.DataColumn Private column태양광용량 As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_new" 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 열손실계수1차Column() As Global.System.Data.DataColumn Get Return Me.column열손실계수1차 End Get End Property _ Public ReadOnly Property 열손실계수2차Column() As Global.System.Data.DataColumn Get Return Me.column열손실계수2차 End Get End Property _ Public ReadOnly Property 축열탱크체적급탕Column() As Global.System.Data.DataColumn Get Return Me.column축열탱크체적급탕 End Get End Property _ Public ReadOnly Property 축열탱크체적난방Column() As Global.System.Data.DataColumn Get Return Me.column축열탱크체적난방 End Get End Property _ Public ReadOnly Property 축열탱크설치장소Column() As Global.System.Data.DataColumn Get Return Me.column축열탱크설치장소 End Get End Property _ Public ReadOnly Property 태양광모듈면적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 펌프용량1차Column() As Global.System.Data.DataColumn Get Return Me.column펌프용량1차 End Get End Property _ Public ReadOnly Property 펌프용량2차Column() As Global.System.Data.DataColumn Get Return Me.column펌프용량2차 End Get End Property _ Public ReadOnly Property 열교환기설치여부Column() As Global.System.Data.DataColumn Get Return Me.column열교환기설치여부 End Get End Property _ Public ReadOnly Property 팽창탱크설치여부Column() As Global.System.Data.DataColumn Get Return Me.column팽창탱크설치여부 End Get End Property _ Public ReadOnly Property 팽창탱크체적Column() As Global.System.Data.DataColumn Get Return Me.column팽창탱크체적 End Get End Property _ Public ReadOnly Property 열생산능력Column() As Global.System.Data.DataColumn Get Return Me.column열생산능력 End Get End Property _ Public ReadOnly Property 열생산효율Column() As Global.System.Data.DataColumn Get Return Me.column열생산효율 End Get End Property _ Public ReadOnly Property 발전효율Column() As Global.System.Data.DataColumn Get Return Me.column발전효율 End Get End Property _ Public ReadOnly Property 태양광모듈효율Column() As Global.System.Data.DataColumn Get Return Me.column태양광모듈효율 End Get End Property _ Public ReadOnly Property 지열비고Column() As Global.System.Data.DataColumn Get Return Me.column지열비고 End Get End Property _ Public ReadOnly Property 열병합신재생여부Column() As Global.System.Data.DataColumn Get Return Me.column열병합신재생여부 End Get End Property _ Public ReadOnly Property 태양광용량Column() As Global.System.Data.DataColumn Get Return Me.column태양광용량 End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_newRow Get Return CType(Me.Rows(index),tbl_newRow) End Get End Property _ Public Event tbl_newRowChanging As tbl_newRowChangeEventHandler _ Public Event tbl_newRowChanged As tbl_newRowChangeEventHandler _ Public Event tbl_newRowDeleting As tbl_newRowChangeEventHandler _ Public Event tbl_newRowDeleted As tbl_newRowChangeEventHandler _ Public Overloads Sub Addtbl_newRow(ByVal row As tbl_newRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_newRow( _ 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 열손실계수1차 As String, _ ByVal 열손실계수2차 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 펌프용량1차 As String, _ ByVal 펌프용량2차 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 Boolean, _ ByVal 태양광용량 As String) As tbl_newRow Dim rowtbl_newRow As tbl_newRow = CType(Me.NewRow,tbl_newRow) Dim columnValuesArray() As Object = New Object() {code, 설명, 기기종류, 가동연료, 태양열종류, 집열기유형, 집열판면적, 집열판방위, 솔라펌프의정격출력, 태양열시스템의성능, 무손실효율계수, 열손실계수1차, 열손실계수2차, 축열탱크체적급탕, 축열탱크체적난방, 축열탱크설치장소, 태양광모듈면적, 태양광모듈기울기, 태양광모듈방위, 태양광모듈종류, 태양광모듈적용타입, 지열히트펌프용량, 열성능비난방, 열성능비냉방, 펌프용량1차, 펌프용량2차, 열교환기설치여부, 팽창탱크설치여부, 팽창탱크체적, 열생산능력, 열생산효율, 발전효율, 태양광모듈효율, 지열비고, 열병합신재생여부, 태양광용량} rowtbl_newRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_newRow) Return rowtbl_newRow End Function _ Public Function FindBycode(ByVal code As String) As tbl_newRow Return CType(Me.Rows.Find(New Object() {code}),tbl_newRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_newDataTable = CType(MyBase.Clone,tbl_newDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_newDataTable() 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열손실계수1차 = MyBase.Columns("열손실계수1차") Me.column열손실계수2차 = MyBase.Columns("열손실계수2차") 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펌프용량1차 = MyBase.Columns("펌프용량1차") Me.column펌프용량2차 = MyBase.Columns("펌프용량2차") Me.column열교환기설치여부 = MyBase.Columns("열교환기설치여부") Me.column팽창탱크설치여부 = MyBase.Columns("팽창탱크설치여부") Me.column팽창탱크체적 = MyBase.Columns("팽창탱크체적") Me.column열생산능력 = MyBase.Columns("열생산능력") Me.column열생산효율 = MyBase.Columns("열생산효율") Me.column발전효율 = MyBase.Columns("발전효율") Me.column태양광모듈효율 = MyBase.Columns("태양광모듈효율") Me.column지열비고 = MyBase.Columns("지열비고") Me.column열병합신재생여부 = MyBase.Columns("열병합신재생여부") Me.column태양광용량 = MyBase.Columns("태양광용량") End Sub _ Private Sub InitClass() Me.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열손실계수1차 = New Global.System.Data.DataColumn("열손실계수1차", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column열손실계수1차) Me.column열손실계수2차 = New Global.System.Data.DataColumn("열손실계수2차", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column열손실계수2차) Me.column축열탱크체적급탕 = New Global.System.Data.DataColumn("축열탱크체적급탕", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column축열탱크체적급탕) Me.column축열탱크체적난방 = New Global.System.Data.DataColumn("축열탱크체적난방", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column축열탱크체적난방) Me.column축열탱크설치장소 = New Global.System.Data.DataColumn("축열탱크설치장소", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column축열탱크설치장소) Me.column태양광모듈면적 = 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펌프용량1차 = New Global.System.Data.DataColumn("펌프용량1차", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column펌프용량1차) Me.column펌프용량2차 = New Global.System.Data.DataColumn("펌프용량2차", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column펌프용량2차) Me.column열교환기설치여부 = New Global.System.Data.DataColumn("열교환기설치여부", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column열교환기설치여부) Me.column팽창탱크설치여부 = New Global.System.Data.DataColumn("팽창탱크설치여부", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column팽창탱크설치여부) Me.column팽창탱크체적 = New Global.System.Data.DataColumn("팽창탱크체적", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column팽창탱크체적) Me.column열생산능력 = 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(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column열병합신재생여부) Me.column태양광용량 = New Global.System.Data.DataColumn("태양광용량", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column태양광용량) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true)) Me.columncode.AllowDBNull = false Me.columncode.Unique = true Me.columncode.MaxLength = 50 Me.column설명.DefaultValue = CType("",String) Me.column설명.MaxLength = 255 Me.column가동연료.DefaultValue = CType("0",String) Me.column태양열종류.DefaultValue = CType("0",String) Me.column집열기유형.DefaultValue = CType("0",String) Me.column집열판면적.DefaultValue = CType("",String) Me.column집열판방위.DefaultValue = CType("0",String) Me.column솔라펌프의정격출력.DefaultValue = CType("",String) Me.column태양열시스템의성능.DefaultValue = CType("0",String) Me.column무손실효율계수.DefaultValue = CType("",String) Me.column열손실계수1차.DefaultValue = CType("",String) Me.column열손실계수2차.DefaultValue = CType("",String) Me.column축열탱크체적급탕.DefaultValue = CType("",String) Me.column축열탱크체적난방.DefaultValue = CType("",String) Me.column축열탱크설치장소.DefaultValue = CType("0",String) Me.column태양광모듈면적.DefaultValue = CType("",String) Me.column태양광모듈기울기.DefaultValue = CType("0",String) Me.column태양광모듈방위.DefaultValue = CType("0",String) Me.column태양광모듈종류.DefaultValue = CType("0",String) Me.column태양광모듈적용타입.DefaultValue = CType("0",String) Me.column지열히트펌프용량.DefaultValue = CType("",String) Me.column열성능비난방.DefaultValue = CType("",String) Me.column열성능비냉방.DefaultValue = CType("",String) Me.column펌프용량1차.DefaultValue = CType("",String) Me.column펌프용량2차.DefaultValue = CType("",String) Me.column열교환기설치여부.DefaultValue = CType("0",String) Me.column팽창탱크설치여부.DefaultValue = CType("0",String) Me.column팽창탱크체적.DefaultValue = CType("",String) Me.column열생산능력.DefaultValue = CType("",String) Me.column열생산효율.DefaultValue = CType("",String) Me.column발전효율.DefaultValue = CType("",String) Me.column태양광모듈효율.DefaultValue = CType("",String) Me.column지열비고.DefaultValue = CType("",String) Me.column열병합신재생여부.DefaultValue = CType(false,Boolean) Me.column태양광용량.DefaultValue = CType("0",String) End Sub _ Public Function Newtbl_newRow() As tbl_newRow Return CType(Me.NewRow,tbl_newRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_newRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_newRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_newRowChangedEvent) Is Nothing) Then RaiseEvent tbl_newRowChanged(Me, New tbl_newRowChangeEvent(CType(e.Row,tbl_newRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_newRowChangingEvent) Is Nothing) Then RaiseEvent tbl_newRowChanging(Me, New tbl_newRowChangeEvent(CType(e.Row,tbl_newRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_newRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_newRowDeleted(Me, New tbl_newRowChangeEvent(CType(e.Row,tbl_newRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_newRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_newRowDeleting(Me, New tbl_newRowChangeEvent(CType(e.Row,tbl_newRow), e.Action)) End If End Sub _ Public Sub Removetbl_newRow(ByVal row As tbl_newRow) 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 DS = New DS() 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_newDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class tbl_myounDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_myounRow) 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열관류율2 As Global.System.Data.DataColumn Private column수평입력각 As Global.System.Data.DataColumn Private column수직입력각 As Global.System.Data.DataColumn Private column수평길이 As Global.System.Data.DataColumn Private column수직길이 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 columnsortkey As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_myoun" 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 열관류율2Column() As Global.System.Data.DataColumn Get Return Me.column열관류율2 End Get End Property _ Public ReadOnly Property 수평입력각Column() As Global.System.Data.DataColumn Get Return Me.column수평입력각 End Get End Property _ Public ReadOnly Property 수직입력각Column() As Global.System.Data.DataColumn Get Return Me.column수직입력각 End Get End Property _ Public ReadOnly Property 수평길이Column() As Global.System.Data.DataColumn Get Return Me.column수평길이 End Get End Property _ Public ReadOnly Property 수직길이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 sortkeyColumn() As Global.System.Data.DataColumn Get Return Me.columnsortkey 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_myounRow Get Return CType(Me.Rows(index),tbl_myounRow) End Get End Property _ Public Event tbl_myounRowChanging As tbl_myounRowChangeEventHandler _ Public Event tbl_myounRowChanged As tbl_myounRowChangeEventHandler _ Public Event tbl_myounRowDeleting As tbl_myounRowChangeEventHandler _ Public Event tbl_myounRowDeleted As tbl_myounRowChangeEventHandler _ Public Overloads Sub Addtbl_myounRow(ByVal row As tbl_myounRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_myounRow( _ 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 열관류율2 As String, _ ByVal 수평입력각 As String, _ ByVal 수직입력각 As String, _ ByVal 수평길이 As String, _ ByVal 수직길이 As String, _ ByVal 수평중심길이 As String, _ ByVal 수직중심길이 As String, _ ByVal 차양각선택 As String, _ ByVal sortkey As UShort) As tbl_myounRow Dim rowtbl_myounRow As tbl_myounRow = CType(Me.NewRow,tbl_myounRow) Dim columnValuesArray() As Object = New Object() {code, 설명, 건축부위방식, 방위, 건축부위면적, 열관류율, 투과율, 수평차양각, 수직차양각, 블라인드유무, 블라인드위치, 블라인드각도, 블라인드빛종류, 블라인드색상, 존분류, 대차대조존, 열관류율2, 수평입력각, 수직입력각, 수평길이, 수직길이, 수평중심길이, 수직중심길이, 차양각선택, sortkey} rowtbl_myounRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_myounRow) Return rowtbl_myounRow End Function _ Public Function FindBycode(ByVal code As String) As tbl_myounRow Return CType(Me.Rows.Find(New Object() {code}),tbl_myounRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_myounDataTable = CType(MyBase.Clone,tbl_myounDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_myounDataTable() 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열관류율2 = MyBase.Columns("열관류율2") 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.columnsortkey = MyBase.Columns("sortkey") 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열관류율2 = New Global.System.Data.DataColumn("열관류율2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column열관류율2) Me.column수평입력각 = New Global.System.Data.DataColumn("수평입력각", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column수평입력각) Me.column수직입력각 = New Global.System.Data.DataColumn("수직입력각", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column수직입력각) Me.column수평길이 = New Global.System.Data.DataColumn("수평길이", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column수평길이) Me.column수직길이 = 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.columnsortkey = New Global.System.Data.DataColumn("sortkey", GetType(UShort), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsortkey) 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.DefaultValue = CType("",String) Me.columncode.MaxLength = 50 Me.column설명.DefaultValue = CType("",String) Me.column설명.MaxLength = 255 Me.column건축부위방식.DefaultValue = CType("0",String) Me.column방위.DefaultValue = CType("0",String) Me.column열관류율.DefaultValue = CType("0",String) Me.column투과율.DefaultValue = CType("0",String) Me.column블라인드유무.DefaultValue = CType("0",String) Me.column블라인드위치.DefaultValue = CType("0",String) Me.column블라인드각도.DefaultValue = CType("0",String) Me.column블라인드빛종류.DefaultValue = CType("0",String) Me.column블라인드색상.DefaultValue = CType("0",String) Me.column존분류.DefaultValue = CType("0",String) Me.column대차대조존.DefaultValue = CType("0",String) Me.column열관류율2.DefaultValue = CType("0",String) Me.column수평입력각.DefaultValue = CType("0",String) Me.column수직입력각.DefaultValue = CType("0",String) Me.column수평길이.DefaultValue = CType("0",String) Me.column수직길이.DefaultValue = CType("0",String) Me.column수평중심길이.DefaultValue = CType("0",String) Me.column수직중심길이.DefaultValue = CType("0",String) Me.column차양각선택.DefaultValue = CType("0",String) Me.columnsortkey.DefaultValue = CType(1US,UShort) End Sub _ Public Function Newtbl_myounRow() As tbl_myounRow Return CType(Me.NewRow,tbl_myounRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_myounRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_myounRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_myounRowChangedEvent) Is Nothing) Then RaiseEvent tbl_myounRowChanged(Me, New tbl_myounRowChangeEvent(CType(e.Row,tbl_myounRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_myounRowChangingEvent) Is Nothing) Then RaiseEvent tbl_myounRowChanging(Me, New tbl_myounRowChangeEvent(CType(e.Row,tbl_myounRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_myounRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_myounRowDeleted(Me, New tbl_myounRowChangeEvent(CType(e.Row,tbl_myounRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_myounRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_myounRowDeleting(Me, New tbl_myounRowChangeEvent(CType(e.Row,tbl_myounRow), e.Action)) End If End Sub _ Public Sub Removetbl_myounRow(ByVal row As tbl_myounRow) 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 DS = New DS() 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_myounDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class tbl_buhaDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_buhaRow) Private columncode As Global.System.Data.DataColumn Private column설명 As Global.System.Data.DataColumn Private columnn01 As Global.System.Data.DataColumn Private columnn02 As Global.System.Data.DataColumn Private columnn03 As Global.System.Data.DataColumn Private columnn04 As Global.System.Data.DataColumn Private columnn05 As Global.System.Data.DataColumn Private columnn06 As Global.System.Data.DataColumn Private columnn07 As Global.System.Data.DataColumn Private columnn08 As Global.System.Data.DataColumn Private columnn09 As Global.System.Data.DataColumn Private columnn10 As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_buha" 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 n01Column() As Global.System.Data.DataColumn Get Return Me.columnn01 End Get End Property _ Public ReadOnly Property n02Column() As Global.System.Data.DataColumn Get Return Me.columnn02 End Get End Property _ Public ReadOnly Property n03Column() As Global.System.Data.DataColumn Get Return Me.columnn03 End Get End Property _ Public ReadOnly Property n04Column() As Global.System.Data.DataColumn Get Return Me.columnn04 End Get End Property _ Public ReadOnly Property n05Column() As Global.System.Data.DataColumn Get Return Me.columnn05 End Get End Property _ Public ReadOnly Property n06Column() As Global.System.Data.DataColumn Get Return Me.columnn06 End Get End Property _ Public ReadOnly Property n07Column() As Global.System.Data.DataColumn Get Return Me.columnn07 End Get End Property _ Public ReadOnly Property n08Column() As Global.System.Data.DataColumn Get Return Me.columnn08 End Get End Property _ Public ReadOnly Property n09Column() As Global.System.Data.DataColumn Get Return Me.columnn09 End Get End Property _ Public ReadOnly Property n10Column() As Global.System.Data.DataColumn Get Return Me.columnn10 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_buhaRow Get Return CType(Me.Rows(index),tbl_buhaRow) End Get End Property _ Public Event tbl_buhaRowChanging As tbl_buhaRowChangeEventHandler _ Public Event tbl_buhaRowChanged As tbl_buhaRowChangeEventHandler _ Public Event tbl_buhaRowDeleting As tbl_buhaRowChangeEventHandler _ Public Event tbl_buhaRowDeleted As tbl_buhaRowChangeEventHandler _ Public Overloads Sub Addtbl_buhaRow(ByVal row As tbl_buhaRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_buhaRow(ByVal code As String, ByVal 설명 As String, ByVal n01 As String, ByVal n02 As String, ByVal n03 As String, ByVal n04 As String, ByVal n05 As String, ByVal n06 As String, ByVal n07 As String, ByVal n08 As String, ByVal n09 As String, ByVal n10 As String) As tbl_buhaRow Dim rowtbl_buhaRow As tbl_buhaRow = CType(Me.NewRow,tbl_buhaRow) Dim columnValuesArray() As Object = New Object() {code, 설명, n01, n02, n03, n04, n05, n06, n07, n08, n09, n10} rowtbl_buhaRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_buhaRow) Return rowtbl_buhaRow End Function _ Public Function FindBycode(ByVal code As String) As tbl_buhaRow Return CType(Me.Rows.Find(New Object() {code}),tbl_buhaRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_buhaDataTable = CType(MyBase.Clone,tbl_buhaDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_buhaDataTable() End Function _ Friend Sub InitVars() Me.columncode = MyBase.Columns("code") Me.column설명 = MyBase.Columns("설명") Me.columnn01 = MyBase.Columns("n01") Me.columnn02 = MyBase.Columns("n02") Me.columnn03 = MyBase.Columns("n03") Me.columnn04 = MyBase.Columns("n04") Me.columnn05 = MyBase.Columns("n05") Me.columnn06 = MyBase.Columns("n06") Me.columnn07 = MyBase.Columns("n07") Me.columnn08 = MyBase.Columns("n08") Me.columnn09 = MyBase.Columns("n09") Me.columnn10 = MyBase.Columns("n10") 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.columnn01 = New Global.System.Data.DataColumn("n01", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnn01) Me.columnn02 = New Global.System.Data.DataColumn("n02", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnn02) Me.columnn03 = New Global.System.Data.DataColumn("n03", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnn03) Me.columnn04 = New Global.System.Data.DataColumn("n04", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnn04) Me.columnn05 = New Global.System.Data.DataColumn("n05", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnn05) Me.columnn06 = New Global.System.Data.DataColumn("n06", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnn06) Me.columnn07 = New Global.System.Data.DataColumn("n07", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnn07) Me.columnn08 = New Global.System.Data.DataColumn("n08", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnn08) Me.columnn09 = New Global.System.Data.DataColumn("n09", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnn09) Me.columnn10 = New Global.System.Data.DataColumn("n10", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnn10) 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.DefaultValue = CType("",String) Me.column설명.DefaultValue = CType("",String) Me.columnn01.DefaultValue = CType("",String) Me.columnn02.DefaultValue = CType("",String) Me.columnn03.DefaultValue = CType("",String) Me.columnn04.DefaultValue = CType("",String) Me.columnn05.DefaultValue = CType("",String) Me.columnn06.DefaultValue = CType("",String) Me.columnn07.DefaultValue = CType("",String) Me.columnn08.DefaultValue = CType("",String) Me.columnn09.DefaultValue = CType("",String) Me.columnn10.DefaultValue = CType("",String) End Sub _ Public Function Newtbl_buhaRow() As tbl_buhaRow Return CType(Me.NewRow,tbl_buhaRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_buhaRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_buhaRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_buhaRowChangedEvent) Is Nothing) Then RaiseEvent tbl_buhaRowChanged(Me, New tbl_buhaRowChangeEvent(CType(e.Row,tbl_buhaRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_buhaRowChangingEvent) Is Nothing) Then RaiseEvent tbl_buhaRowChanging(Me, New tbl_buhaRowChangeEvent(CType(e.Row,tbl_buhaRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_buhaRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_buhaRowDeleted(Me, New tbl_buhaRowChangeEvent(CType(e.Row,tbl_buhaRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_buhaRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_buhaRowDeleting(Me, New tbl_buhaRowChangeEvent(CType(e.Row,tbl_buhaRow), e.Action)) End If End Sub _ Public Sub Removetbl_buhaRow(ByVal row As tbl_buhaRow) 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 DS = New DS() 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_buhaDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class tbl_nbunbaeDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_nbunbaeRow) 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건물길이x As Global.System.Data.DataColumn Private column건물길이y As Global.System.Data.DataColumn Private column층수 As Global.System.Data.DataColumn Private column층고 As Global.System.Data.DataColumn Private column지관장소 As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_nbunbae" 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 건물길이xColumn() As Global.System.Data.DataColumn Get Return Me.column건물길이x End Get End Property _ Public ReadOnly Property 건물길이yColumn() As Global.System.Data.DataColumn Get Return Me.column건물길이y End Get End Property _ Public ReadOnly Property 층수Column() As Global.System.Data.DataColumn Get Return Me.column층수 End Get End Property _ Public ReadOnly Property 층고Column() As Global.System.Data.DataColumn Get Return Me.column층고 End Get End Property _ Public ReadOnly Property 지관장소Column() As Global.System.Data.DataColumn Get Return Me.column지관장소 End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_nbunbaeRow Get Return CType(Me.Rows(index),tbl_nbunbaeRow) End Get End Property _ Public Event tbl_nbunbaeRowChanging As tbl_nbunbaeRowChangeEventHandler _ Public Event tbl_nbunbaeRowChanged As tbl_nbunbaeRowChangeEventHandler _ Public Event tbl_nbunbaeRowDeleting As tbl_nbunbaeRowChangeEventHandler _ Public Event tbl_nbunbaeRowDeleted As tbl_nbunbaeRowChangeEventHandler _ Public Overloads Sub Addtbl_nbunbaeRow(ByVal row As tbl_nbunbaeRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_nbunbaeRow(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 건물길이x As String, ByVal 건물길이y As String, ByVal 층수 As String, ByVal 층고 As String, ByVal 지관장소 As String) As tbl_nbunbaeRow Dim rowtbl_nbunbaeRow As tbl_nbunbaeRow = CType(Me.NewRow,tbl_nbunbaeRow) Dim columnValuesArray() As Object = New Object() {code, 설명, 생산기기구분, 표준치적용, 배관망유형, 배관구간방식, 배관구간길이, 열관류율, 배관설치장소, 건물길이x, 건물길이y, 층수, 층고, 지관장소} rowtbl_nbunbaeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_nbunbaeRow) Return rowtbl_nbunbaeRow End Function _ Public Function FindBycode(ByVal code As String) As tbl_nbunbaeRow Return CType(Me.Rows.Find(New Object() {code}),tbl_nbunbaeRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_nbunbaeDataTable = CType(MyBase.Clone,tbl_nbunbaeDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_nbunbaeDataTable() 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건물길이x = MyBase.Columns("건물길이x") Me.column건물길이y = MyBase.Columns("건물길이y") Me.column층수 = MyBase.Columns("층수") Me.column층고 = MyBase.Columns("층고") Me.column지관장소 = MyBase.Columns("지관장소") 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건물길이x = New Global.System.Data.DataColumn("건물길이x", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column건물길이x) Me.column건물길이y = New Global.System.Data.DataColumn("건물길이y", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column건물길이y) Me.column층수 = New Global.System.Data.DataColumn("층수", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column층수) Me.column층고 = New Global.System.Data.DataColumn("층고", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column층고) Me.column지관장소 = New Global.System.Data.DataColumn("지관장소", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column지관장소) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true)) Me.columncode.AllowDBNull = false Me.columncode.Unique = true Me.columncode.DefaultValue = CType("",String) Me.column설명.DefaultValue = CType("",String) Me.column생산기기구분.DefaultValue = CType("0",String) Me.column표준치적용.DefaultValue = CType("0",String) Me.column배관망유형.DefaultValue = CType("",String) Me.column배관구간방식.DefaultValue = CType("0",String) Me.column배관구간길이.DefaultValue = CType("",String) Me.column열관류율.DefaultValue = CType("",String) Me.column배관설치장소.DefaultValue = CType("0",String) Me.column건물길이x.DefaultValue = CType("",String) Me.column건물길이y.DefaultValue = CType("",String) Me.column층수.DefaultValue = CType("",String) Me.column층고.DefaultValue = CType("",String) Me.column지관장소.DefaultValue = CType("0",String) End Sub _ Public Function Newtbl_nbunbaeRow() As tbl_nbunbaeRow Return CType(Me.NewRow,tbl_nbunbaeRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_nbunbaeRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_nbunbaeRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_nbunbaeRowChangedEvent) Is Nothing) Then RaiseEvent tbl_nbunbaeRowChanged(Me, New tbl_nbunbaeRowChangeEvent(CType(e.Row,tbl_nbunbaeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_nbunbaeRowChangingEvent) Is Nothing) Then RaiseEvent tbl_nbunbaeRowChanging(Me, New tbl_nbunbaeRowChangeEvent(CType(e.Row,tbl_nbunbaeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_nbunbaeRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_nbunbaeRowDeleted(Me, New tbl_nbunbaeRowChangeEvent(CType(e.Row,tbl_nbunbaeRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_nbunbaeRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_nbunbaeRowDeleting(Me, New tbl_nbunbaeRowChangeEvent(CType(e.Row,tbl_nbunbaeRow), e.Action)) End If End Sub _ Public Sub Removetbl_nbunbaeRow(ByVal row As tbl_nbunbaeRow) 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 DS = New DS() 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_nbunbaeDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class tbl_kongjoDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_kongjoRow) 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 _ Public Sub New() MyBase.New Me.TableName = "tbl_kongjo" 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 Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_kongjoRow Get Return CType(Me.Rows(index),tbl_kongjoRow) End Get End Property _ Public Event tbl_kongjoRowChanging As tbl_kongjoRowChangeEventHandler _ Public Event tbl_kongjoRowChanged As tbl_kongjoRowChangeEventHandler _ Public Event tbl_kongjoRowDeleting As tbl_kongjoRowChangeEventHandler _ Public Event tbl_kongjoRowDeleted As tbl_kongjoRowChangeEventHandler _ Public Overloads Sub Addtbl_kongjoRow(ByVal row As tbl_kongjoRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_kongjoRow( _ 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) As tbl_kongjoRow Dim rowtbl_kongjoRow As tbl_kongjoRow = CType(Me.NewRow,tbl_kongjoRow) Dim columnValuesArray() As Object = New Object() {code, 설명, 공조방식, 설정치난방, 설정치냉방, 최대풍량, 리턴공기혼합여부, 가습기유형, 외기냉방제어유무, 열교환기유형, 열회수율, 총압력손실급기팬, 총압력손실배기팬, 총효율급기팬, 총효율배기팬, 열회수율냉, 팬효율산출방식, 급기풍량, 배기풍량, 급기팬동력, 배기팬동력} rowtbl_kongjoRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_kongjoRow) Return rowtbl_kongjoRow End Function _ Public Function FindBycode(ByVal code As String) As tbl_kongjoRow Return CType(Me.Rows.Find(New Object() {code}),tbl_kongjoRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_kongjoDataTable = CType(MyBase.Clone,tbl_kongjoDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_kongjoDataTable() 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("배기팬동력") 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.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 = 50 Me.column설명.DefaultValue = CType("",String) Me.column설명.MaxLength = 255 Me.column공조방식.DefaultValue = CType("0",String) Me.column공조방식.MaxLength = 50 Me.column설정치난방.DefaultValue = CType("",String) Me.column설정치냉방.DefaultValue = CType("",String) Me.column최대풍량.DefaultValue = CType("",String) Me.column리턴공기혼합여부.DefaultValue = CType("0",String) Me.column리턴공기혼합여부.MaxLength = 50 Me.column가습기유형.DefaultValue = CType("",String) Me.column가습기유형.MaxLength = 50 Me.column외기냉방제어유무.DefaultValue = CType("0",String) Me.column열교환기유형.DefaultValue = CType("0",String) Me.column열교환기유형.MaxLength = 50 Me.column열회수율.DefaultValue = CType("",String) Me.column총압력손실급기팬.DefaultValue = CType("",String) Me.column총압력손실배기팬.DefaultValue = CType("",String) Me.column총효율급기팬.DefaultValue = CType("",String) Me.column총효율배기팬.DefaultValue = CType("",String) Me.column열회수율냉.DefaultValue = CType("",String) Me.column팬효율산출방식.DefaultValue = CType("",String) Me.column급기풍량.DefaultValue = CType("",String) Me.column배기풍량.DefaultValue = CType("",String) Me.column급기팬동력.DefaultValue = CType("",String) Me.column배기팬동력.DefaultValue = CType("",String) End Sub _ Public Function Newtbl_kongjoRow() As tbl_kongjoRow Return CType(Me.NewRow,tbl_kongjoRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_kongjoRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_kongjoRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_kongjoRowChangedEvent) Is Nothing) Then RaiseEvent tbl_kongjoRowChanged(Me, New tbl_kongjoRowChangeEvent(CType(e.Row,tbl_kongjoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_kongjoRowChangingEvent) Is Nothing) Then RaiseEvent tbl_kongjoRowChanging(Me, New tbl_kongjoRowChangeEvent(CType(e.Row,tbl_kongjoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_kongjoRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_kongjoRowDeleted(Me, New tbl_kongjoRowChangeEvent(CType(e.Row,tbl_kongjoRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_kongjoRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_kongjoRowDeleting(Me, New tbl_kongjoRowChangeEvent(CType(e.Row,tbl_kongjoRow), e.Action)) End If End Sub _ Public Sub Removetbl_kongjoRow(ByVal row As tbl_kongjoRow) 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 DS = New DS() 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_kongjoDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class tbl_kongkubDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_kongkubRow) 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 _ Public Sub New() MyBase.New Me.TableName = "tbl_kongkub" 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 Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_kongkubRow Get Return CType(Me.Rows(index),tbl_kongkubRow) End Get End Property _ Public Event tbl_kongkubRowChanging As tbl_kongkubRowChangeEventHandler _ Public Event tbl_kongkubRowChanged As tbl_kongkubRowChangeEventHandler _ Public Event tbl_kongkubRowDeleting As tbl_kongkubRowChangeEventHandler _ Public Event tbl_kongkubRowDeleted As tbl_kongkubRowChangeEventHandler _ Public Overloads Sub Addtbl_kongkubRow(ByVal row As tbl_kongkubRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_kongkubRow(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) As tbl_kongkubRow Dim rowtbl_kongkubRow As tbl_kongkubRow = CType(Me.NewRow,tbl_kongkubRow) Dim columnValuesArray() As Object = New Object() {code, 설명, 열공급시스템, 열공급생산기기, 노출형제어, 바닥난방열제어, 바닥난방열건축부위, 바닥난방전기제어, 바닥난방전기건축부위, 전기난방제어, 제어기의정격전력, 팬송풍기정격전력, 펌프정격전력, 팬송풍기수, 추가펌프수} rowtbl_kongkubRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_kongkubRow) Return rowtbl_kongkubRow End Function _ Public Function FindBycode(ByVal code As String) As tbl_kongkubRow Return CType(Me.Rows.Find(New Object() {code}),tbl_kongkubRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_kongkubDataTable = CType(MyBase.Clone,tbl_kongkubDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_kongkubDataTable() 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("추가펌프수") 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.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 = 50 Me.column설명.DefaultValue = CType("",String) Me.column설명.MaxLength = 255 Me.column열공급시스템.DefaultValue = CType("0",String) Me.column열공급시스템.MaxLength = 50 Me.column열공급생산기기.DefaultValue = CType("0",String) Me.column노출형제어.DefaultValue = CType("0",String) Me.column바닥난방열제어.DefaultValue = CType("0",String) Me.column바닥난방열건축부위.DefaultValue = CType("0",String) Me.column바닥난방열건축부위.MaxLength = 50 Me.column바닥난방전기제어.DefaultValue = CType("0",String) Me.column바닥난방전기제어.MaxLength = 50 Me.column바닥난방전기건축부위.DefaultValue = CType("0",String) Me.column전기난방제어.DefaultValue = CType("0",String) Me.column전기난방제어.MaxLength = 50 Me.column제어기의정격전력.DefaultValue = CType("",String) Me.column팬송풍기정격전력.DefaultValue = CType("",String) Me.column펌프정격전력.DefaultValue = CType("",String) Me.column팬송풍기수.DefaultValue = CType("",String) Me.column추가펌프수.DefaultValue = CType("",String) End Sub _ Public Function Newtbl_kongkubRow() As tbl_kongkubRow Return CType(Me.NewRow,tbl_kongkubRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_kongkubRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_kongkubRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_kongkubRowChangedEvent) Is Nothing) Then RaiseEvent tbl_kongkubRowChanged(Me, New tbl_kongkubRowChangeEvent(CType(e.Row,tbl_kongkubRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_kongkubRowChangingEvent) Is Nothing) Then RaiseEvent tbl_kongkubRowChanging(Me, New tbl_kongkubRowChangeEvent(CType(e.Row,tbl_kongkubRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_kongkubRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_kongkubRowDeleted(Me, New tbl_kongkubRowChangeEvent(CType(e.Row,tbl_kongkubRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_kongkubRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_kongkubRowDeleting(Me, New tbl_kongkubRowChangeEvent(CType(e.Row,tbl_kongkubRow), e.Action)) End If End Sub _ Public Sub Removetbl_kongkubRow(ByVal row As tbl_kongkubRow) 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 DS = New DS() 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_kongkubDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class tbl_ykDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_ykRow) 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 _ Public Sub New() MyBase.New Me.TableName = "tbl_yk" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property 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 Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_ykRow Get Return CType(Me.Rows(index),tbl_ykRow) End Get End Property _ Public Event tbl_ykRowChanging As tbl_ykRowChangeEventHandler _ Public Event tbl_ykRowChanged As tbl_ykRowChangeEventHandler _ Public Event tbl_ykRowDeleting As tbl_ykRowChangeEventHandler _ Public Event tbl_ykRowDeleted As tbl_ykRowChangeEventHandler _ Public Overloads Sub Addtbl_ykRow(ByVal row As tbl_ykRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_ykRow(ByVal code As String, ByVal 설명 As String, ByVal 열관류율 As String, ByVal 면형태 As String, ByVal 창호열관류율 As String, ByVal 일사에너지투과율 As String, ByVal 창호세부설명 As String, ByVal 발코니창호여부 As Boolean, ByVal 발코니창호열관류율 As String, ByVal 발코니투과율 As String, ByVal 투과율 As String) As tbl_ykRow Dim rowtbl_ykRow As tbl_ykRow = CType(Me.NewRow,tbl_ykRow) Dim columnValuesArray() As Object = New Object() {code, 설명, 열관류율, 면형태, 창호열관류율, 일사에너지투과율, 창호세부설명, 발코니창호여부, 발코니창호열관류율, 발코니투과율, 투과율} rowtbl_ykRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_ykRow) Return rowtbl_ykRow End Function _ Public Function FindBycode(ByVal code As String) As tbl_ykRow Return CType(Me.Rows.Find(New Object() {code}),tbl_ykRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_ykDataTable = CType(MyBase.Clone,tbl_ykDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_ykDataTable() 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("투과율") 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(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column발코니창호여부) Me.column발코니창호열관류율 = New Global.System.Data.DataColumn("발코니창호열관류율", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column발코니창호열관류율) Me.column발코니투과율 = New Global.System.Data.DataColumn("발코니투과율", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column발코니투과율) Me.column투과율 = New Global.System.Data.DataColumn("투과율", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column투과율) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true)) Me.columncode.AllowDBNull = false Me.columncode.Unique = true Me.columncode.MaxLength = 50 Me.column설명.DefaultValue = CType("열관류율설명",String) Me.column열관류율.DefaultValue = CType("0",String) Me.column면형태.DefaultValue = CType("0",String) Me.column창호열관류율.DefaultValue = CType("0",String) Me.column일사에너지투과율.DefaultValue = CType("0",String) Me.column창호세부설명.DefaultValue = CType("",String) Me.column발코니창호여부.DefaultValue = CType(false,Boolean) Me.column발코니창호열관류율.DefaultValue = CType("0",String) Me.column발코니투과율.DefaultValue = CType("0",String) Me.column투과율.DefaultValue = CType("0",String) End Sub _ Public Function Newtbl_ykRow() As tbl_ykRow Return CType(Me.NewRow,tbl_ykRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_ykRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_ykRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_ykRowChangedEvent) Is Nothing) Then RaiseEvent tbl_ykRowChanged(Me, New tbl_ykRowChangeEvent(CType(e.Row,tbl_ykRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_ykRowChangingEvent) Is Nothing) Then RaiseEvent tbl_ykRowChanging(Me, New tbl_ykRowChangeEvent(CType(e.Row,tbl_ykRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_ykRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_ykRowDeleted(Me, New tbl_ykRowChangeEvent(CType(e.Row,tbl_ykRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_ykRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_ykRowDeleting(Me, New tbl_ykRowChangeEvent(CType(e.Row,tbl_ykRow), e.Action)) End If End Sub _ Public Sub Removetbl_ykRow(ByVal row As tbl_ykRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DS = New DS() 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_ykDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class tbl_ykdetailDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_ykdetailRow) Private columnpcode As Global.System.Data.DataColumn 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 _ Public Sub New() MyBase.New Me.TableName = "tbl_ykdetail" 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 pcodeColumn() As Global.System.Data.DataColumn Get Return Me.columnpcode End Get End Property _ 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 Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_ykdetailRow Get Return CType(Me.Rows(index),tbl_ykdetailRow) End Get End Property _ Public Event tbl_ykdetailRowChanging As tbl_ykdetailRowChangeEventHandler _ Public Event tbl_ykdetailRowChanged As tbl_ykdetailRowChangeEventHandler _ Public Event tbl_ykdetailRowDeleting As tbl_ykdetailRowChangeEventHandler _ Public Event tbl_ykdetailRowDeleted As tbl_ykdetailRowChangeEventHandler _ Public Overloads Sub Addtbl_ykdetailRow(ByVal row As tbl_ykdetailRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_ykdetailRow(ByVal pcode As String, 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) As tbl_ykdetailRow Dim rowtbl_ykdetailRow As tbl_ykdetailRow = CType(Me.NewRow,tbl_ykdetailRow) Dim columnValuesArray() As Object = New Object() {pcode, code, 설명, 열전도율, 두께, 구분, 열저항, 전경색, 후경색, 커스텀} rowtbl_ykdetailRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_ykdetailRow) Return rowtbl_ykdetailRow End Function _ Public Function FindBypcodecode(ByVal pcode As String, ByVal code As String) As tbl_ykdetailRow Return CType(Me.Rows.Find(New Object() {pcode, code}),tbl_ykdetailRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_ykdetailDataTable = CType(MyBase.Clone,tbl_ykdetailDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_ykdetailDataTable() End Function _ Friend Sub InitVars() Me.columnpcode = MyBase.Columns("pcode") 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("커스텀") End Sub _ Private Sub InitClass() Me.columnpcode = New Global.System.Data.DataColumn("pcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpcode) 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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnpcode, Me.columncode}, true)) Me.columnpcode.AllowDBNull = false Me.columnpcode.DefaultValue = CType("",String) Me.columnpcode.MaxLength = 10 Me.columncode.AllowDBNull = false Me.columncode.DefaultValue = CType("",String) Me.columncode.MaxLength = 10 Me.column설명.DefaultValue = CType("0",String) Me.column설명.MaxLength = 255 Me.column열전도율.DefaultValue = CType("1",String) Me.column두께.DefaultValue = CType("10",String) Me.column구분.DefaultValue = CType("5",String) Me.column전경색.DefaultValue = CType("-16776961",String) Me.column후경색.DefaultValue = CType("-1",String) Me.column커스텀.DefaultValue = CType("N",String) End Sub _ Public Function Newtbl_ykdetailRow() As tbl_ykdetailRow Return CType(Me.NewRow,tbl_ykdetailRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_ykdetailRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_ykdetailRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_ykdetailRowChangedEvent) Is Nothing) Then RaiseEvent tbl_ykdetailRowChanged(Me, New tbl_ykdetailRowChangeEvent(CType(e.Row,tbl_ykdetailRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_ykdetailRowChangingEvent) Is Nothing) Then RaiseEvent tbl_ykdetailRowChanging(Me, New tbl_ykdetailRowChangeEvent(CType(e.Row,tbl_ykdetailRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_ykdetailRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_ykdetailRowDeleted(Me, New tbl_ykdetailRowChangeEvent(CType(e.Row,tbl_ykdetailRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_ykdetailRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_ykdetailRowDeleting(Me, New tbl_ykdetailRowChangeEvent(CType(e.Row,tbl_ykdetailRow), e.Action)) End If End Sub _ Public Sub Removetbl_ykdetailRow(ByVal row As tbl_ykdetailRow) 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 DS = New DS() 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_ykdetailDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class tbl_zoneDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_zoneRow) 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천장고p 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인공광원 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 columnsortkey As Global.System.Data.DataColumn Private column그룹설명 As Global.System.Data.DataColumn _ Public Sub New() Me.New(false) End Sub _ Public Sub New(ByVal initExpressions As Boolean) MyBase.New Me.TableName = "tbl_zone" Me.BeginInit Me.InitClass If (initExpressions = true) Then Me.InitExpressions End If 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 천장고pColumn() As Global.System.Data.DataColumn Get Return Me.column천장고p 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 인공광원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 sortkeyColumn() As Global.System.Data.DataColumn Get Return Me.columnsortkey End Get End Property _ Public ReadOnly Property 그룹설명Column() As Global.System.Data.DataColumn Get Return Me.column그룹설명 End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_zoneRow Get Return CType(Me.Rows(index),tbl_zoneRow) End Get End Property _ Public Event tbl_zoneRowChanging As tbl_zoneRowChangeEventHandler _ Public Event tbl_zoneRowChanged As tbl_zoneRowChangeEventHandler _ Public Event tbl_zoneRowDeleting As tbl_zoneRowChangeEventHandler _ Public Event tbl_zoneRowDeleted As tbl_zoneRowChangeEventHandler _ Public Overloads Sub Addtbl_zoneRow(ByVal row As tbl_zoneRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_zoneRow( _ ByVal code As String, _ ByVal 설명 As String, _ ByVal 프로필 As String, _ ByVal 면적 As String, _ ByVal 천장고p 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 인공광원 As String, _ ByVal 보수율 As String, _ ByVal 조명기기효율 As String, _ ByVal 조명률 As String, _ ByVal 조명에너지부하율계산치 As String, _ ByVal 조명에너지부하율입력치 As String, _ ByVal 입력존의수 As String, _ ByVal 그룹 As String, _ ByVal sortkey As UShort, _ ByVal 그룹설명 As String) As tbl_zoneRow Dim rowtbl_zoneRow As tbl_zoneRow = CType(Me.NewRow,tbl_zoneRow) Dim columnValuesArray() As Object = New Object() {code, 설명, 프로필, 면적, 천장고p, 순실체적, 열저장능력, 열교가산치, 침기율, 냉난방방식, 냉난방공조, 외기부하처리여부, 지역, 야간운전방식, 주말운전방식, 냉난방열공급시스템, 냉난방열공급시스템수, 냉난방공조처리시스템, 열생산난방생산기기, 공조냉방생산기기, 공조난방생산기기, 열생산급탕생산기기, 열생산냉방생산기기, 열생산가습생산기기, 냉난방공조분배시스템, 냉난방분배시스템, 조명부하산출방법, 요구조도, 천장고, 작업면높이, 실깊이, 실너비, 실지수, 조명방식, 인공광원, 보수율, 조명기기효율, 조명률, 조명에너지부하율계산치, 조명에너지부하율입력치, 입력존의수, 그룹, sortkey, 그룹설명} rowtbl_zoneRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_zoneRow) Return rowtbl_zoneRow End Function _ Public Overloads Function Addtbl_zoneRow( _ ByVal code As String, _ ByVal 설명 As String, _ ByVal 프로필 As String, _ ByVal 면적 As String, _ ByVal 천장고p 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 인공광원 As String, _ ByVal 보수율 As String, _ ByVal 조명기기효율 As String, _ ByVal 조명률 As String, _ ByVal 조명에너지부하율계산치 As String, _ ByVal 조명에너지부하율입력치 As String, _ ByVal 입력존의수 As String, _ ByVal 그룹 As String, _ ByVal sortkey As UShort) As tbl_zoneRow Dim rowtbl_zoneRow As tbl_zoneRow = CType(Me.NewRow,tbl_zoneRow) Dim columnValuesArray() As Object = New Object() {code, 설명, 프로필, 면적, 천장고p, 순실체적, 열저장능력, 열교가산치, 침기율, 냉난방방식, 냉난방공조, 외기부하처리여부, 지역, 야간운전방식, 주말운전방식, 냉난방열공급시스템, 냉난방열공급시스템수, 냉난방공조처리시스템, 열생산난방생산기기, 공조냉방생산기기, 공조난방생산기기, 열생산급탕생산기기, 열생산냉방생산기기, 열생산가습생산기기, 냉난방공조분배시스템, 냉난방분배시스템, 조명부하산출방법, 요구조도, 천장고, 작업면높이, 실깊이, 실너비, 실지수, 조명방식, 인공광원, 보수율, 조명기기효율, 조명률, 조명에너지부하율계산치, 조명에너지부하율입력치, 입력존의수, 그룹, sortkey, Nothing} rowtbl_zoneRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_zoneRow) Return rowtbl_zoneRow End Function _ Public Function FindBycode(ByVal code As String) As tbl_zoneRow Return CType(Me.Rows.Find(New Object() {code}),tbl_zoneRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_zoneDataTable = CType(MyBase.Clone,tbl_zoneDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_zoneDataTable() End Function _ Friend Sub InitVars() Me.columncode = MyBase.Columns("code") Me.column설명 = MyBase.Columns("설명") Me.column프로필 = MyBase.Columns("프로필") Me.column면적 = MyBase.Columns("면적") Me.column천장고p = MyBase.Columns("천장고p") 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인공광원 = 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.columnsortkey = MyBase.Columns("sortkey") Me.column그룹설명 = MyBase.Columns("그룹설명") 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천장고p = New Global.System.Data.DataColumn("천장고p", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column천장고p) 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인공광원 = 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.columnsortkey = New Global.System.Data.DataColumn("sortkey", GetType(UShort), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnsortkey) Me.column그룹설명 = New Global.System.Data.DataColumn("그룹설명", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column그룹설명) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true)) Me.columncode.AllowDBNull = false Me.columncode.Unique = true Me.columncode.MaxLength = 50 Me.column설명.DefaultValue = CType("",String) Me.column설명.MaxLength = 255 Me.column프로필.DefaultValue = CType("0",String) Me.column프로필.MaxLength = 50 Me.column면적.DefaultValue = CType("",String) Me.column천장고p.DefaultValue = CType("",String) Me.column순실체적.DefaultValue = CType("",String) Me.column열저장능력.DefaultValue = CType("90",String) Me.column열저장능력.MaxLength = 50 Me.column열교가산치.DefaultValue = CType("0",String) Me.column열교가산치.MaxLength = 50 Me.column침기율.DefaultValue = CType("",String) Me.column냉난방방식.DefaultValue = CType("0",String) Me.column냉난방방식.MaxLength = 50 Me.column냉난방공조.DefaultValue = CType("0",String) Me.column냉난방공조.MaxLength = 50 Me.column외기부하처리여부.DefaultValue = CType("0",String) Me.column외기부하처리여부.MaxLength = 50 Me.column지역.DefaultValue = CType("",String) Me.column지역.MaxLength = 50 Me.column야간운전방식.DefaultValue = CType("가동정지",String) Me.column야간운전방식.MaxLength = 50 Me.column주말운전방식.DefaultValue = CType("가동정지",String) Me.column주말운전방식.MaxLength = 50 Me.column냉난방열공급시스템.DefaultValue = CType("0",String) Me.column냉난방열공급시스템.MaxLength = 50 Me.column냉난방열공급시스템수.DefaultValue = CType("",String) Me.column냉난방열공급시스템수.MaxLength = 50 Me.column냉난방공조처리시스템.DefaultValue = CType("0",String) Me.column냉난방공조처리시스템.MaxLength = 50 Me.column열생산난방생산기기.DefaultValue = CType("0",String) Me.column열생산난방생산기기.MaxLength = 50 Me.column열생산급탕생산기기.DefaultValue = CType("0",String) Me.column열생산급탕생산기기.MaxLength = 50 Me.column열생산냉방생산기기.DefaultValue = CType("0",String) Me.column열생산냉방생산기기.MaxLength = 50 Me.column열생산가습생산기기.Caption = "공조가습생산기기" Me.column열생산가습생산기기.DefaultValue = CType("0",String) Me.column열생산가습생산기기.MaxLength = 50 Me.column냉난방공조분배시스템.DefaultValue = CType("0",String) Me.column냉난방공조분배시스템.MaxLength = 50 Me.column냉난방분배시스템.DefaultValue = CType("0",String) Me.column냉난방분배시스템.MaxLength = 50 Me.column조명부하산출방법.DefaultValue = CType("0",String) Me.column요구조도.DefaultValue = CType("",String) Me.column천장고.DefaultValue = CType("",String) Me.column작업면높이.DefaultValue = CType("",String) Me.column실깊이.DefaultValue = CType("",String) Me.column실너비.DefaultValue = CType("",String) Me.column실지수.DefaultValue = CType("",String) Me.column조명방식.DefaultValue = CType("0",String) Me.column인공광원.DefaultValue = CType("0",String) Me.column보수율.DefaultValue = CType("",String) Me.column조명기기효율.DefaultValue = CType("",String) Me.column조명률.DefaultValue = CType("",String) Me.column조명에너지부하율계산치.DefaultValue = CType("",String) Me.column조명에너지부하율입력치.DefaultValue = CType("",String) Me.column입력존의수.DefaultValue = CType("1",String) Me.column그룹.DefaultValue = CType("일반",String) Me.columnsortkey.DefaultValue = CType(1US,UShort) Me.column그룹설명.ReadOnly = true Me.column그룹설명.DefaultValue = CType("",String) End Sub _ Public Function Newtbl_zoneRow() As tbl_zoneRow Return CType(Me.NewRow,tbl_zoneRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_zoneRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_zoneRow) End Function _ Private Sub InitExpressions() Me.그룹설명Column.Expression = "'[' + 그룹+'] '+설명" End Sub _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_zoneRowChangedEvent) Is Nothing) Then RaiseEvent tbl_zoneRowChanged(Me, New tbl_zoneRowChangeEvent(CType(e.Row,tbl_zoneRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_zoneRowChangingEvent) Is Nothing) Then RaiseEvent tbl_zoneRowChanging(Me, New tbl_zoneRowChangeEvent(CType(e.Row,tbl_zoneRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_zoneRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_zoneRowDeleted(Me, New tbl_zoneRowChangeEvent(CType(e.Row,tbl_zoneRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_zoneRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_zoneRowDeleting(Me, New tbl_zoneRowChangeEvent(CType(e.Row,tbl_zoneRow), e.Action)) End If End Sub _ Public Sub Removetbl_zoneRow(ByVal row As tbl_zoneRow) 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 DS = New DS() 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_zoneDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class tbl_monuseDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_monuseRow) Private column년 As Global.System.Data.DataColumn Private column월 As Global.System.Data.DataColumn Private column도시가스 As Global.System.Data.DataColumn Private column전력 As Global.System.Data.DataColumn Private column지역난방 As Global.System.Data.DataColumn Private columncode As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_monuse" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property 년Column() As Global.System.Data.DataColumn Get Return Me.column년 End Get End Property _ Public ReadOnly Property 월Column() As Global.System.Data.DataColumn Get Return Me.column월 End Get End Property _ Public ReadOnly Property 도시가스Column() As Global.System.Data.DataColumn Get Return Me.column도시가스 End Get End Property _ Public ReadOnly Property 전력Column() As Global.System.Data.DataColumn Get Return Me.column전력 End Get End Property _ Public ReadOnly Property 지역난방Column() As Global.System.Data.DataColumn Get Return Me.column지역난방 End Get End Property _ Public ReadOnly Property codeColumn() As Global.System.Data.DataColumn Get Return Me.columncode End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_monuseRow Get Return CType(Me.Rows(index),tbl_monuseRow) End Get End Property _ Public Event tbl_monuseRowChanging As tbl_monuseRowChangeEventHandler _ Public Event tbl_monuseRowChanged As tbl_monuseRowChangeEventHandler _ Public Event tbl_monuseRowDeleting As tbl_monuseRowChangeEventHandler _ Public Event tbl_monuseRowDeleted As tbl_monuseRowChangeEventHandler _ Public Overloads Sub Addtbl_monuseRow(ByVal row As tbl_monuseRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_monuseRow(ByVal 년 As String, ByVal 월 As String, ByVal 도시가스 As String, ByVal 전력 As String, ByVal 지역난방 As String, ByVal code As String) As tbl_monuseRow Dim rowtbl_monuseRow As tbl_monuseRow = CType(Me.NewRow,tbl_monuseRow) Dim columnValuesArray() As Object = New Object() {년, 월, 도시가스, 전력, 지역난방, code} rowtbl_monuseRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_monuseRow) Return rowtbl_monuseRow End Function _ Public Function FindBycode월(ByVal code As String, ByVal 월 As String) As tbl_monuseRow Return CType(Me.Rows.Find(New Object() {code, 월}),tbl_monuseRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_monuseDataTable = CType(MyBase.Clone,tbl_monuseDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_monuseDataTable() End Function _ Friend Sub InitVars() Me.column년 = MyBase.Columns("년") Me.column월 = MyBase.Columns("월") Me.column도시가스 = MyBase.Columns("도시가스") Me.column전력 = MyBase.Columns("전력") Me.column지역난방 = MyBase.Columns("지역난방") Me.columncode = MyBase.Columns("code") End Sub _ Private Sub InitClass() Me.column년 = New Global.System.Data.DataColumn("년", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column년) Me.column월 = New Global.System.Data.DataColumn("월", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column월) Me.column도시가스 = New Global.System.Data.DataColumn("도시가스", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column도시가스) Me.column전력 = New Global.System.Data.DataColumn("전력", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column전력) Me.column지역난방 = New Global.System.Data.DataColumn("지역난방", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column지역난방) Me.columncode = New Global.System.Data.DataColumn("code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncode) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode, Me.column월}, true)) Me.column년.AllowDBNull = false Me.column년.DefaultValue = CType("",String) Me.column월.AllowDBNull = false Me.column월.DefaultValue = CType("",String) Me.column도시가스.DefaultValue = CType("",String) Me.column전력.DefaultValue = CType("",String) Me.column지역난방.DefaultValue = CType("",String) Me.columncode.AllowDBNull = false Me.columncode.DefaultValue = CType("",String) End Sub _ Public Function Newtbl_monuseRow() As tbl_monuseRow Return CType(Me.NewRow,tbl_monuseRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_monuseRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_monuseRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_monuseRowChangedEvent) Is Nothing) Then RaiseEvent tbl_monuseRowChanged(Me, New tbl_monuseRowChangeEvent(CType(e.Row,tbl_monuseRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_monuseRowChangingEvent) Is Nothing) Then RaiseEvent tbl_monuseRowChanging(Me, New tbl_monuseRowChangeEvent(CType(e.Row,tbl_monuseRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_monuseRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_monuseRowDeleted(Me, New tbl_monuseRowChangeEvent(CType(e.Row,tbl_monuseRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_monuseRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_monuseRowDeleting(Me, New tbl_monuseRowChangeEvent(CType(e.Row,tbl_monuseRow), e.Action)) End If End Sub _ Public Sub Removetbl_monuseRow(ByVal row As tbl_monuseRow) 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 DS = New DS() 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_monuseDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class tbl_DescDataTable Inherits Global.System.Data.TypedTableBase(Of tbl_DescRow) Private columncname As Global.System.Data.DataColumn Private columnaddr As Global.System.Data.DataColumn Private columnreqdate As Global.System.Data.DataColumn Private columnbuildname As Global.System.Data.DataColumn Private columnbuildarea As Global.System.Data.DataColumn Private columnbuildaddr As Global.System.Data.DataColumn Private columnbuildm21 As Global.System.Data.DataColumn Private columnbuildm22 As Global.System.Data.DataColumn Private columnbuildm23 As Global.System.Data.DataColumn Private columnbuilds1 As Global.System.Data.DataColumn Private columnbuilds2 As Global.System.Data.DataColumn Private columndungno As Global.System.Data.DataColumn Private columnpname As Global.System.Data.DataColumn Private columnname As Global.System.Data.DataColumn Private columndept As Global.System.Data.DataColumn Private columngrade As Global.System.Data.DataColumn Private columntel As Global.System.Data.DataColumn Private columnfax As Global.System.Data.DataColumn Private columnemail As Global.System.Data.DataColumn Private columnversionc As Global.System.Data.DataColumn Private columnversionw As Global.System.Data.DataColumn Private columnversionp As Global.System.Data.DataColumn Private columnpriod As Global.System.Data.DataColumn Private columnexistdate As Global.System.Data.DataColumn Private columnjubsudate As Global.System.Data.DataColumn Private columngujo As Global.System.Data.DataColumn Private columninjungdate As Global.System.Data.DataColumn Private column용도수수료입금일 As Global.System.Data.DataColumn Private column용도수수료입금액 As Global.System.Data.DataColumn Private columnisjugo As Global.System.Data.DataColumn Private column인증기관 As Global.System.Data.DataColumn Private column주조명 As Global.System.Data.DataColumn Private column공공 As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "tbl_Desc" 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 cnameColumn() As Global.System.Data.DataColumn Get Return Me.columncname End Get End Property _ Public ReadOnly Property addrColumn() As Global.System.Data.DataColumn Get Return Me.columnaddr End Get End Property _ Public ReadOnly Property reqdateColumn() As Global.System.Data.DataColumn Get Return Me.columnreqdate End Get End Property _ Public ReadOnly Property buildnameColumn() As Global.System.Data.DataColumn Get Return Me.columnbuildname End Get End Property _ Public ReadOnly Property buildareaColumn() As Global.System.Data.DataColumn Get Return Me.columnbuildarea End Get End Property _ Public ReadOnly Property buildaddrColumn() As Global.System.Data.DataColumn Get Return Me.columnbuildaddr End Get End Property _ Public ReadOnly Property buildm21Column() As Global.System.Data.DataColumn Get Return Me.columnbuildm21 End Get End Property _ Public ReadOnly Property buildm22Column() As Global.System.Data.DataColumn Get Return Me.columnbuildm22 End Get End Property _ Public ReadOnly Property buildm23Column() As Global.System.Data.DataColumn Get Return Me.columnbuildm23 End Get End Property _ Public ReadOnly Property builds1Column() As Global.System.Data.DataColumn Get Return Me.columnbuilds1 End Get End Property _ Public ReadOnly Property builds2Column() As Global.System.Data.DataColumn Get Return Me.columnbuilds2 End Get End Property _ Public ReadOnly Property dungnoColumn() As Global.System.Data.DataColumn Get Return Me.columndungno End Get End Property _ Public ReadOnly Property pnameColumn() As Global.System.Data.DataColumn Get Return Me.columnpname End Get End Property _ Public ReadOnly Property nameColumn() As Global.System.Data.DataColumn Get Return Me.columnname End Get End Property _ Public ReadOnly Property deptColumn() As Global.System.Data.DataColumn Get Return Me.columndept End Get End Property _ Public ReadOnly Property gradeColumn() As Global.System.Data.DataColumn Get Return Me.columngrade End Get End Property _ Public ReadOnly Property telColumn() As Global.System.Data.DataColumn Get Return Me.columntel End Get End Property _ Public ReadOnly Property faxColumn() As Global.System.Data.DataColumn Get Return Me.columnfax End Get End Property _ Public ReadOnly Property emailColumn() As Global.System.Data.DataColumn Get Return Me.columnemail End Get End Property _ Public ReadOnly Property versioncColumn() As Global.System.Data.DataColumn Get Return Me.columnversionc End Get End Property _ Public ReadOnly Property versionwColumn() As Global.System.Data.DataColumn Get Return Me.columnversionw End Get End Property _ Public ReadOnly Property versionpColumn() As Global.System.Data.DataColumn Get Return Me.columnversionp End Get End Property _ Public ReadOnly Property priodColumn() As Global.System.Data.DataColumn Get Return Me.columnpriod End Get End Property _ Public ReadOnly Property existdateColumn() As Global.System.Data.DataColumn Get Return Me.columnexistdate End Get End Property _ Public ReadOnly Property jubsudateColumn() As Global.System.Data.DataColumn Get Return Me.columnjubsudate End Get End Property _ Public ReadOnly Property gujoColumn() As Global.System.Data.DataColumn Get Return Me.columngujo End Get End Property _ Public ReadOnly Property injungdateColumn() As Global.System.Data.DataColumn Get Return Me.columninjungdate 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 isjugoColumn() As Global.System.Data.DataColumn Get Return Me.columnisjugo End Get End Property _ Public ReadOnly Property 인증기관Column() As Global.System.Data.DataColumn Get Return Me.column인증기관 End Get End Property _ Public ReadOnly Property 주조명Column() As Global.System.Data.DataColumn Get Return Me.column주조명 End Get End Property _ Public ReadOnly Property 공공Column() As Global.System.Data.DataColumn Get Return Me.column공공 End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_DescRow Get Return CType(Me.Rows(index),tbl_DescRow) End Get End Property _ Public Event tbl_DescRowChanging As tbl_DescRowChangeEventHandler _ Public Event tbl_DescRowChanged As tbl_DescRowChangeEventHandler _ Public Event tbl_DescRowDeleting As tbl_DescRowChangeEventHandler _ Public Event tbl_DescRowDeleted As tbl_DescRowChangeEventHandler _ Public Overloads Sub Addtbl_DescRow(ByVal row As tbl_DescRow) Me.Rows.Add(row) End Sub _ Public Overloads Function Addtbl_DescRow( _ ByVal cname As String, _ ByVal addr As String, _ ByVal reqdate As String, _ ByVal buildname As String, _ ByVal buildarea As String, _ ByVal buildaddr As String, _ ByVal buildm21 As String, _ ByVal buildm22 As String, _ ByVal buildm23 As String, _ ByVal builds1 As String, _ ByVal builds2 As String, _ ByVal dungno As String, _ ByVal pname As String, _ ByVal name As String, _ ByVal dept As String, _ ByVal grade As String, _ ByVal tel As String, _ ByVal fax As String, _ ByVal email As String, _ ByVal versionc As String, _ ByVal versionw As String, _ ByVal versionp As String, _ ByVal priod As String, _ ByVal existdate As String, _ ByVal jubsudate As String, _ ByVal gujo As String, _ ByVal injungdate As String, _ ByVal 용도수수료입금일 As String, _ ByVal 용도수수료입금액 As String, _ ByVal isjugo As String, _ ByVal 인증기관 As String, _ ByVal 주조명 As String, _ ByVal 공공 As String) As tbl_DescRow Dim rowtbl_DescRow As tbl_DescRow = CType(Me.NewRow,tbl_DescRow) Dim columnValuesArray() As Object = New Object() {cname, addr, reqdate, buildname, buildarea, buildaddr, buildm21, buildm22, buildm23, builds1, builds2, dungno, pname, name, dept, grade, tel, fax, email, versionc, versionw, versionp, priod, existdate, jubsudate, gujo, injungdate, 용도수수료입금일, 용도수수료입금액, isjugo, 인증기관, 주조명, 공공} rowtbl_DescRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_DescRow) Return rowtbl_DescRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As tbl_DescDataTable = CType(MyBase.Clone,tbl_DescDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New tbl_DescDataTable() End Function _ Friend Sub InitVars() Me.columncname = MyBase.Columns("cname") Me.columnaddr = MyBase.Columns("addr") Me.columnreqdate = MyBase.Columns("reqdate") Me.columnbuildname = MyBase.Columns("buildname") Me.columnbuildarea = MyBase.Columns("buildarea") Me.columnbuildaddr = MyBase.Columns("buildaddr") Me.columnbuildm21 = MyBase.Columns("buildm21") Me.columnbuildm22 = MyBase.Columns("buildm22") Me.columnbuildm23 = MyBase.Columns("buildm23") Me.columnbuilds1 = MyBase.Columns("builds1") Me.columnbuilds2 = MyBase.Columns("builds2") Me.columndungno = MyBase.Columns("dungno") Me.columnpname = MyBase.Columns("pname") Me.columnname = MyBase.Columns("name") Me.columndept = MyBase.Columns("dept") Me.columngrade = MyBase.Columns("grade") Me.columntel = MyBase.Columns("tel") Me.columnfax = MyBase.Columns("fax") Me.columnemail = MyBase.Columns("email") Me.columnversionc = MyBase.Columns("versionc") Me.columnversionw = MyBase.Columns("versionw") Me.columnversionp = MyBase.Columns("versionp") Me.columnpriod = MyBase.Columns("priod") Me.columnexistdate = MyBase.Columns("existdate") Me.columnjubsudate = MyBase.Columns("jubsudate") Me.columngujo = MyBase.Columns("gujo") Me.columninjungdate = MyBase.Columns("injungdate") Me.column용도수수료입금일 = MyBase.Columns("용도수수료입금일") Me.column용도수수료입금액 = MyBase.Columns("용도수수료입금액") Me.columnisjugo = MyBase.Columns("isjugo") Me.column인증기관 = MyBase.Columns("인증기관") Me.column주조명 = MyBase.Columns("주조명") Me.column공공 = MyBase.Columns("공공") End Sub _ Private Sub InitClass() Me.columncname = New Global.System.Data.DataColumn("cname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncname) Me.columnaddr = New Global.System.Data.DataColumn("addr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnaddr) Me.columnreqdate = New Global.System.Data.DataColumn("reqdate", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnreqdate) Me.columnbuildname = New Global.System.Data.DataColumn("buildname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbuildname) Me.columnbuildarea = New Global.System.Data.DataColumn("buildarea", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbuildarea) Me.columnbuildaddr = New Global.System.Data.DataColumn("buildaddr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbuildaddr) Me.columnbuildm21 = New Global.System.Data.DataColumn("buildm21", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbuildm21) Me.columnbuildm22 = New Global.System.Data.DataColumn("buildm22", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbuildm22) Me.columnbuildm23 = New Global.System.Data.DataColumn("buildm23", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbuildm23) Me.columnbuilds1 = New Global.System.Data.DataColumn("builds1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbuilds1) Me.columnbuilds2 = New Global.System.Data.DataColumn("builds2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbuilds2) Me.columndungno = New Global.System.Data.DataColumn("dungno", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndungno) Me.columnpname = New Global.System.Data.DataColumn("pname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpname) Me.columnname = New Global.System.Data.DataColumn("name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnname) Me.columndept = New Global.System.Data.DataColumn("dept", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndept) Me.columngrade = New Global.System.Data.DataColumn("grade", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngrade) Me.columntel = New Global.System.Data.DataColumn("tel", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntel) Me.columnfax = New Global.System.Data.DataColumn("fax", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnfax) Me.columnemail = New Global.System.Data.DataColumn("email", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnemail) Me.columnversionc = New Global.System.Data.DataColumn("versionc", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnversionc) Me.columnversionw = New Global.System.Data.DataColumn("versionw", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnversionw) Me.columnversionp = New Global.System.Data.DataColumn("versionp", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnversionp) Me.columnpriod = New Global.System.Data.DataColumn("priod", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpriod) Me.columnexistdate = New Global.System.Data.DataColumn("existdate", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnexistdate) Me.columnjubsudate = New Global.System.Data.DataColumn("jubsudate", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnjubsudate) Me.columngujo = New Global.System.Data.DataColumn("gujo", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columngujo) Me.columninjungdate = New Global.System.Data.DataColumn("injungdate", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columninjungdate) 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.columnisjugo = New Global.System.Data.DataColumn("isjugo", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnisjugo) 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.columncname.DefaultValue = CType("",String) Me.columnaddr.DefaultValue = CType("",String) Me.columnreqdate.DefaultValue = CType("",String) Me.columnbuildname.DefaultValue = CType("",String) Me.columnbuildarea.DefaultValue = CType("",String) Me.columnbuildaddr.DefaultValue = CType("",String) Me.columnbuildm21.DefaultValue = CType("",String) Me.columnbuildm22.DefaultValue = CType("",String) Me.columnbuildm23.DefaultValue = CType("",String) Me.columnbuilds1.DefaultValue = CType("",String) Me.columnbuilds2.DefaultValue = CType("",String) Me.columndungno.DefaultValue = CType("",String) Me.columnpname.DefaultValue = CType("",String) Me.columnname.DefaultValue = CType("",String) Me.columndept.DefaultValue = CType("",String) Me.columngrade.DefaultValue = CType("",String) Me.columntel.DefaultValue = CType("",String) Me.columnfax.DefaultValue = CType("",String) Me.columnemail.DefaultValue = CType("",String) Me.columnversionc.DefaultValue = CType("20100101",String) Me.columnversionw.DefaultValue = CType("20100101",String) Me.columnexistdate.DefaultValue = CType("",String) Me.columnjubsudate.DefaultValue = CType("",String) Me.columngujo.DefaultValue = CType("",String) Me.columninjungdate.DefaultValue = CType("",String) Me.column용도수수료입금일.DefaultValue = CType("",String) Me.column용도수수료입금액.DefaultValue = CType("",String) Me.columnisjugo.DefaultValue = CType("",String) Me.column인증기관.DefaultValue = CType("",String) Me.column주조명.DefaultValue = CType("",String) Me.column공공.DefaultValue = CType("1",String) End Sub _ Public Function Newtbl_DescRow() As tbl_DescRow Return CType(Me.NewRow,tbl_DescRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New tbl_DescRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(tbl_DescRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.tbl_DescRowChangedEvent) Is Nothing) Then RaiseEvent tbl_DescRowChanged(Me, New tbl_DescRowChangeEvent(CType(e.Row,tbl_DescRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.tbl_DescRowChangingEvent) Is Nothing) Then RaiseEvent tbl_DescRowChanging(Me, New tbl_DescRowChangeEvent(CType(e.Row,tbl_DescRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.tbl_DescRowDeletedEvent) Is Nothing) Then RaiseEvent tbl_DescRowDeleted(Me, New tbl_DescRowChangeEvent(CType(e.Row,tbl_DescRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.tbl_DescRowDeletingEvent) Is Nothing) Then RaiseEvent tbl_DescRowDeleting(Me, New tbl_DescRowChangeEvent(CType(e.Row,tbl_DescRow), e.Action)) End If End Sub _ Public Sub Removetbl_DescRow(ByVal row As tbl_DescRow) 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 DS = New DS() 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_DescDataTable" 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 weather_chaRow Inherits Global.System.Data.DataRow Private tableweather_cha As weather_chaDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableweather_cha = CType(Me.Table,weather_chaDataTable) End Sub _ Public Property pcode() As String Get Return CType(Me(Me.tableweather_cha.pcodeColumn),String) End Get Set Me(Me.tableweather_cha.pcodeColumn) = value End Set End Property _ Public Property code() As String Get Return CType(Me(Me.tableweather_cha.codeColumn),String) End Get Set Me(Me.tableweather_cha.codeColumn) = value End Set End Property _ Public Property 설명() As String Get If Me.Is설명Null Then Return "" Else Return CType(Me(Me.tableweather_cha.설명Column),String) End If End Get Set Me(Me.tableweather_cha.설명Column) = value End Set End Property _ Public Property m01() As String Get If Me.Ism01Null Then Return "0" Else Return CType(Me(Me.tableweather_cha.m01Column),String) End If End Get Set Me(Me.tableweather_cha.m01Column) = value End Set End Property _ Public Property m02() As String Get If Me.Ism02Null Then Return "0" Else Return CType(Me(Me.tableweather_cha.m02Column),String) End If End Get Set Me(Me.tableweather_cha.m02Column) = value End Set End Property _ Public Property m03() As String Get If Me.Ism03Null Then Return "0" Else Return CType(Me(Me.tableweather_cha.m03Column),String) End If End Get Set Me(Me.tableweather_cha.m03Column) = value End Set End Property _ Public Property m04() As String Get If Me.Ism04Null Then Return "0" Else Return CType(Me(Me.tableweather_cha.m04Column),String) End If End Get Set Me(Me.tableweather_cha.m04Column) = value End Set End Property _ Public Property m05() As String Get If Me.Ism05Null Then Return "0" Else Return CType(Me(Me.tableweather_cha.m05Column),String) End If End Get Set Me(Me.tableweather_cha.m05Column) = value End Set End Property _ Public Property m06() As String Get If Me.Ism06Null Then Return "0" Else Return CType(Me(Me.tableweather_cha.m06Column),String) End If End Get Set Me(Me.tableweather_cha.m06Column) = value End Set End Property _ Public Property m07() As String Get If Me.Ism07Null Then Return "0" Else Return CType(Me(Me.tableweather_cha.m07Column),String) End If End Get Set Me(Me.tableweather_cha.m07Column) = value End Set End Property _ Public Property m08() As String Get If Me.Ism08Null Then Return "0" Else Return CType(Me(Me.tableweather_cha.m08Column),String) End If End Get Set Me(Me.tableweather_cha.m08Column) = value End Set End Property _ Public Property m09() As String Get If Me.Ism09Null Then Return "0" Else Return CType(Me(Me.tableweather_cha.m09Column),String) End If End Get Set Me(Me.tableweather_cha.m09Column) = value End Set End Property _ Public Property m10() As String Get If Me.Ism10Null Then Return "0" Else Return CType(Me(Me.tableweather_cha.m10Column),String) End If End Get Set Me(Me.tableweather_cha.m10Column) = value End Set End Property _ Public Property m11() As String Get If Me.Ism11Null Then Return "0" Else Return CType(Me(Me.tableweather_cha.m11Column),String) End If End Get Set Me(Me.tableweather_cha.m11Column) = value End Set End Property _ Public Property m12() As String Get If Me.Ism12Null Then Return "0" Else Return CType(Me(Me.tableweather_cha.m12Column),String) End If End Get Set Me(Me.tableweather_cha.m12Column) = value End Set End Property _ Public Function Is설명Null() As Boolean Return Me.IsNull(Me.tableweather_cha.설명Column) End Function _ Public Sub Set설명Null() Me(Me.tableweather_cha.설명Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism01Null() As Boolean Return Me.IsNull(Me.tableweather_cha.m01Column) End Function _ Public Sub Setm01Null() Me(Me.tableweather_cha.m01Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism02Null() As Boolean Return Me.IsNull(Me.tableweather_cha.m02Column) End Function _ Public Sub Setm02Null() Me(Me.tableweather_cha.m02Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism03Null() As Boolean Return Me.IsNull(Me.tableweather_cha.m03Column) End Function _ Public Sub Setm03Null() Me(Me.tableweather_cha.m03Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism04Null() As Boolean Return Me.IsNull(Me.tableweather_cha.m04Column) End Function _ Public Sub Setm04Null() Me(Me.tableweather_cha.m04Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism05Null() As Boolean Return Me.IsNull(Me.tableweather_cha.m05Column) End Function _ Public Sub Setm05Null() Me(Me.tableweather_cha.m05Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism06Null() As Boolean Return Me.IsNull(Me.tableweather_cha.m06Column) End Function _ Public Sub Setm06Null() Me(Me.tableweather_cha.m06Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism07Null() As Boolean Return Me.IsNull(Me.tableweather_cha.m07Column) End Function _ Public Sub Setm07Null() Me(Me.tableweather_cha.m07Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism08Null() As Boolean Return Me.IsNull(Me.tableweather_cha.m08Column) End Function _ Public Sub Setm08Null() Me(Me.tableweather_cha.m08Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism09Null() As Boolean Return Me.IsNull(Me.tableweather_cha.m09Column) End Function _ Public Sub Setm09Null() Me(Me.tableweather_cha.m09Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism10Null() As Boolean Return Me.IsNull(Me.tableweather_cha.m10Column) End Function _ Public Sub Setm10Null() Me(Me.tableweather_cha.m10Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism11Null() As Boolean Return Me.IsNull(Me.tableweather_cha.m11Column) End Function _ Public Sub Setm11Null() Me(Me.tableweather_cha.m11Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism12Null() As Boolean Return Me.IsNull(Me.tableweather_cha.m12Column) End Function _ Public Sub Setm12Null() Me(Me.tableweather_cha.m12Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class weather_tempRow Inherits Global.System.Data.DataRow Private tableweather_temp As weather_tempDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableweather_temp = CType(Me.Table,weather_tempDataTable) End Sub _ Public Property pcode() As String Get Return CType(Me(Me.tableweather_temp.pcodeColumn),String) End Get Set Me(Me.tableweather_temp.pcodeColumn) = value End Set End Property _ Public Property code() As String Get Return CType(Me(Me.tableweather_temp.codeColumn),String) End Get Set Me(Me.tableweather_temp.codeColumn) = value End Set End Property _ Public Property 설명() As String Get Try Return CType(Me(Me.tableweather_temp.설명Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'weather_temp' 테이블의 '설명' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableweather_temp.설명Column) = value End Set End Property _ Public Property t01() As String Get If Me.Ist01Null Then Return "0" Else Return CType(Me(Me.tableweather_temp.t01Column),String) End If End Get Set Me(Me.tableweather_temp.t01Column) = value End Set End Property _ Public Property t02() As String Get If Me.Ist02Null Then Return "0" Else Return CType(Me(Me.tableweather_temp.t02Column),String) End If End Get Set Me(Me.tableweather_temp.t02Column) = value End Set End Property _ Public Property t03() As String Get If Me.Ist03Null Then Return "0" Else Return CType(Me(Me.tableweather_temp.t03Column),String) End If End Get Set Me(Me.tableweather_temp.t03Column) = value End Set End Property _ Public Property t04() As String Get If Me.Ist04Null Then Return "0" Else Return CType(Me(Me.tableweather_temp.t04Column),String) End If End Get Set Me(Me.tableweather_temp.t04Column) = value End Set End Property _ Public Property t05() As String Get If Me.Ist05Null Then Return "0" Else Return CType(Me(Me.tableweather_temp.t05Column),String) End If End Get Set Me(Me.tableweather_temp.t05Column) = value End Set End Property _ Public Property t06() As String Get If Me.Ist06Null Then Return "0" Else Return CType(Me(Me.tableweather_temp.t06Column),String) End If End Get Set Me(Me.tableweather_temp.t06Column) = value End Set End Property _ Public Property t07() As String Get If Me.Ist07Null Then Return "0" Else Return CType(Me(Me.tableweather_temp.t07Column),String) End If End Get Set Me(Me.tableweather_temp.t07Column) = value End Set End Property _ Public Property t08() As String Get If Me.Ist08Null Then Return "0" Else Return CType(Me(Me.tableweather_temp.t08Column),String) End If End Get Set Me(Me.tableweather_temp.t08Column) = value End Set End Property _ Public Property t09() As String Get If Me.Ist09Null Then Return "0" Else Return CType(Me(Me.tableweather_temp.t09Column),String) End If End Get Set Me(Me.tableweather_temp.t09Column) = value End Set End Property _ Public Property t10() As String Get If Me.Ist10Null Then Return "0" Else Return CType(Me(Me.tableweather_temp.t10Column),String) End If End Get Set Me(Me.tableweather_temp.t10Column) = value End Set End Property _ Public Property t11() As String Get If Me.Ist11Null Then Return "0" Else Return CType(Me(Me.tableweather_temp.t11Column),String) End If End Get Set Me(Me.tableweather_temp.t11Column) = value End Set End Property _ Public Property t12() As String Get If Me.Ist12Null Then Return "0" Else Return CType(Me(Me.tableweather_temp.t12Column),String) End If End Get Set Me(Me.tableweather_temp.t12Column) = value End Set End Property _ Public Property t13() As String Get If Me.Ist13Null Then Return "0" Else Return CType(Me(Me.tableweather_temp.t13Column),String) End If End Get Set Me(Me.tableweather_temp.t13Column) = value End Set End Property _ Public Property t14() As String Get If Me.Ist14Null Then Return "0" Else Return CType(Me(Me.tableweather_temp.t14Column),String) End If End Get Set Me(Me.tableweather_temp.t14Column) = value End Set End Property _ Public Property t15() As String Get If Me.Ist15Null Then Return "0" Else Return CType(Me(Me.tableweather_temp.t15Column),String) End If End Get Set Me(Me.tableweather_temp.t15Column) = value End Set End Property _ Public Property t16() As String Get If Me.Ist16Null Then Return "0" Else Return CType(Me(Me.tableweather_temp.t16Column),String) End If End Get Set Me(Me.tableweather_temp.t16Column) = value End Set End Property _ Public Property t17() As String Get If Me.Ist17Null Then Return "0" Else Return CType(Me(Me.tableweather_temp.t17Column),String) End If End Get Set Me(Me.tableweather_temp.t17Column) = value End Set End Property _ Public Property t18() As String Get If Me.Ist18Null Then Return "0" Else Return CType(Me(Me.tableweather_temp.t18Column),String) End If End Get Set Me(Me.tableweather_temp.t18Column) = value End Set End Property _ Public Property t19() As String Get If Me.Ist19Null Then Return "0" Else Return CType(Me(Me.tableweather_temp.t19Column),String) End If End Get Set Me(Me.tableweather_temp.t19Column) = value End Set End Property _ Public Property t20() As String Get If Me.Ist20Null Then Return "0" Else Return CType(Me(Me.tableweather_temp.t20Column),String) End If End Get Set Me(Me.tableweather_temp.t20Column) = value End Set End Property _ Public Property t21() As String Get If Me.Ist21Null Then Return "0" Else Return CType(Me(Me.tableweather_temp.t21Column),String) End If End Get Set Me(Me.tableweather_temp.t21Column) = value End Set End Property _ Public Property t22() As String Get If Me.Ist22Null Then Return "0" Else Return CType(Me(Me.tableweather_temp.t22Column),String) End If End Get Set Me(Me.tableweather_temp.t22Column) = value End Set End Property _ Public Property t23() As String Get If Me.Ist23Null Then Return "0" Else Return CType(Me(Me.tableweather_temp.t23Column),String) End If End Get Set Me(Me.tableweather_temp.t23Column) = value End Set End Property _ Public Property t24() As String Get If Me.Ist24Null Then Return "0" Else Return CType(Me(Me.tableweather_temp.t24Column),String) End If End Get Set Me(Me.tableweather_temp.t24Column) = value End Set End Property _ Public Function Is설명Null() As Boolean Return Me.IsNull(Me.tableweather_temp.설명Column) End Function _ Public Sub Set설명Null() Me(Me.tableweather_temp.설명Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist01Null() As Boolean Return Me.IsNull(Me.tableweather_temp.t01Column) End Function _ Public Sub Sett01Null() Me(Me.tableweather_temp.t01Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist02Null() As Boolean Return Me.IsNull(Me.tableweather_temp.t02Column) End Function _ Public Sub Sett02Null() Me(Me.tableweather_temp.t02Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist03Null() As Boolean Return Me.IsNull(Me.tableweather_temp.t03Column) End Function _ Public Sub Sett03Null() Me(Me.tableweather_temp.t03Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist04Null() As Boolean Return Me.IsNull(Me.tableweather_temp.t04Column) End Function _ Public Sub Sett04Null() Me(Me.tableweather_temp.t04Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist05Null() As Boolean Return Me.IsNull(Me.tableweather_temp.t05Column) End Function _ Public Sub Sett05Null() Me(Me.tableweather_temp.t05Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist06Null() As Boolean Return Me.IsNull(Me.tableweather_temp.t06Column) End Function _ Public Sub Sett06Null() Me(Me.tableweather_temp.t06Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist07Null() As Boolean Return Me.IsNull(Me.tableweather_temp.t07Column) End Function _ Public Sub Sett07Null() Me(Me.tableweather_temp.t07Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist08Null() As Boolean Return Me.IsNull(Me.tableweather_temp.t08Column) End Function _ Public Sub Sett08Null() Me(Me.tableweather_temp.t08Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist09Null() As Boolean Return Me.IsNull(Me.tableweather_temp.t09Column) End Function _ Public Sub Sett09Null() Me(Me.tableweather_temp.t09Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist10Null() As Boolean Return Me.IsNull(Me.tableweather_temp.t10Column) End Function _ Public Sub Sett10Null() Me(Me.tableweather_temp.t10Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist11Null() As Boolean Return Me.IsNull(Me.tableweather_temp.t11Column) End Function _ Public Sub Sett11Null() Me(Me.tableweather_temp.t11Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist12Null() As Boolean Return Me.IsNull(Me.tableweather_temp.t12Column) End Function _ Public Sub Sett12Null() Me(Me.tableweather_temp.t12Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist13Null() As Boolean Return Me.IsNull(Me.tableweather_temp.t13Column) End Function _ Public Sub Sett13Null() Me(Me.tableweather_temp.t13Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist14Null() As Boolean Return Me.IsNull(Me.tableweather_temp.t14Column) End Function _ Public Sub Sett14Null() Me(Me.tableweather_temp.t14Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist15Null() As Boolean Return Me.IsNull(Me.tableweather_temp.t15Column) End Function _ Public Sub Sett15Null() Me(Me.tableweather_temp.t15Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist16Null() As Boolean Return Me.IsNull(Me.tableweather_temp.t16Column) End Function _ Public Sub Sett16Null() Me(Me.tableweather_temp.t16Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist17Null() As Boolean Return Me.IsNull(Me.tableweather_temp.t17Column) End Function _ Public Sub Sett17Null() Me(Me.tableweather_temp.t17Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist18Null() As Boolean Return Me.IsNull(Me.tableweather_temp.t18Column) End Function _ Public Sub Sett18Null() Me(Me.tableweather_temp.t18Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist19Null() As Boolean Return Me.IsNull(Me.tableweather_temp.t19Column) End Function _ Public Sub Sett19Null() Me(Me.tableweather_temp.t19Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist20Null() As Boolean Return Me.IsNull(Me.tableweather_temp.t20Column) End Function _ Public Sub Sett20Null() Me(Me.tableweather_temp.t20Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist21Null() As Boolean Return Me.IsNull(Me.tableweather_temp.t21Column) End Function _ Public Sub Sett21Null() Me(Me.tableweather_temp.t21Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist22Null() As Boolean Return Me.IsNull(Me.tableweather_temp.t22Column) End Function _ Public Sub Sett22Null() Me(Me.tableweather_temp.t22Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist23Null() As Boolean Return Me.IsNull(Me.tableweather_temp.t23Column) End Function _ Public Sub Sett23Null() Me(Me.tableweather_temp.t23Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist24Null() As Boolean Return Me.IsNull(Me.tableweather_temp.t24Column) End Function _ Public Sub Sett24Null() Me(Me.tableweather_temp.t24Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_weatherRow Inherits Global.System.Data.DataRow Private tabletbl_weather As tbl_weatherDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_weather = CType(Me.Table,tbl_weatherDataTable) End Sub _ Public Property code() As String Get Return CType(Me(Me.tabletbl_weather.codeColumn),String) End Get Set Me(Me.tabletbl_weather.codeColumn) = value End Set End Property _ Public Property 건물위치() As String Get If Me.Is건물위치Null Then Return "" Else Return CType(Me(Me.tabletbl_weather.건물위치Column),String) End If End Get Set Me(Me.tabletbl_weather.건물위치Column) = value End Set End Property _ Public Property 난방기() As String Get If Me.Is난방기Null Then Return "0" Else Return CType(Me(Me.tabletbl_weather.난방기Column),String) End If End Get Set Me(Me.tabletbl_weather.난방기Column) = value End Set End Property _ Public Property 냉방기() As String Get If Me.Is냉방기Null Then Return "0" Else Return CType(Me(Me.tabletbl_weather.냉방기Column),String) End If End Get Set Me(Me.tabletbl_weather.냉방기Column) = value End Set End Property _ Public Property m01() As String Get If Me.Ism01Null Then Return "0" Else Return CType(Me(Me.tabletbl_weather.m01Column),String) End If End Get Set Me(Me.tabletbl_weather.m01Column) = value End Set End Property _ Public Property m02() As String Get If Me.Ism02Null Then Return "0" Else Return CType(Me(Me.tabletbl_weather.m02Column),String) End If End Get Set Me(Me.tabletbl_weather.m02Column) = value End Set End Property _ Public Property m03() As String Get If Me.Ism03Null Then Return "0" Else Return CType(Me(Me.tabletbl_weather.m03Column),String) End If End Get Set Me(Me.tabletbl_weather.m03Column) = value End Set End Property _ Public Property m04() As String Get If Me.Ism04Null Then Return "0" Else Return CType(Me(Me.tabletbl_weather.m04Column),String) End If End Get Set Me(Me.tabletbl_weather.m04Column) = value End Set End Property _ Public Property m05() As String Get If Me.Ism05Null Then Return "0" Else Return CType(Me(Me.tabletbl_weather.m05Column),String) End If End Get Set Me(Me.tabletbl_weather.m05Column) = value End Set End Property _ Public Property m06() As String Get If Me.Ism06Null Then Return "0" Else Return CType(Me(Me.tabletbl_weather.m06Column),String) End If End Get Set Me(Me.tabletbl_weather.m06Column) = value End Set End Property _ Public Property m07() As String Get If Me.Ism07Null Then Return "0" Else Return CType(Me(Me.tabletbl_weather.m07Column),String) End If End Get Set Me(Me.tabletbl_weather.m07Column) = value End Set End Property _ Public Property m08() As String Get If Me.Ism08Null Then Return "0" Else Return CType(Me(Me.tabletbl_weather.m08Column),String) End If End Get Set Me(Me.tabletbl_weather.m08Column) = value End Set End Property _ Public Property m09() As String Get If Me.Ism09Null Then Return "0" Else Return CType(Me(Me.tabletbl_weather.m09Column),String) End If End Get Set Me(Me.tabletbl_weather.m09Column) = value End Set End Property _ Public Property m10() As String Get If Me.Ism10Null Then Return "0" Else Return CType(Me(Me.tabletbl_weather.m10Column),String) End If End Get Set Me(Me.tabletbl_weather.m10Column) = value End Set End Property _ Public Property m11() As String Get If Me.Ism11Null Then Return "0" Else Return CType(Me(Me.tabletbl_weather.m11Column),String) End If End Get Set Me(Me.tabletbl_weather.m11Column) = value End Set End Property _ Public Property m12() As String Get If Me.Ism12Null Then Return "0" Else Return CType(Me(Me.tabletbl_weather.m12Column),String) End If End Get Set Me(Me.tabletbl_weather.m12Column) = value End Set End Property _ Public Function Is건물위치Null() As Boolean Return Me.IsNull(Me.tabletbl_weather.건물위치Column) End Function _ Public Sub Set건물위치Null() Me(Me.tabletbl_weather.건물위치Column) = Global.System.Convert.DBNull End Sub _ Public Function Is난방기Null() As Boolean Return Me.IsNull(Me.tabletbl_weather.난방기Column) End Function _ Public Sub Set난방기Null() Me(Me.tabletbl_weather.난방기Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉방기Null() As Boolean Return Me.IsNull(Me.tabletbl_weather.냉방기Column) End Function _ Public Sub Set냉방기Null() Me(Me.tabletbl_weather.냉방기Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism01Null() As Boolean Return Me.IsNull(Me.tabletbl_weather.m01Column) End Function _ Public Sub Setm01Null() Me(Me.tabletbl_weather.m01Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism02Null() As Boolean Return Me.IsNull(Me.tabletbl_weather.m02Column) End Function _ Public Sub Setm02Null() Me(Me.tabletbl_weather.m02Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism03Null() As Boolean Return Me.IsNull(Me.tabletbl_weather.m03Column) End Function _ Public Sub Setm03Null() Me(Me.tabletbl_weather.m03Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism04Null() As Boolean Return Me.IsNull(Me.tabletbl_weather.m04Column) End Function _ Public Sub Setm04Null() Me(Me.tabletbl_weather.m04Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism05Null() As Boolean Return Me.IsNull(Me.tabletbl_weather.m05Column) End Function _ Public Sub Setm05Null() Me(Me.tabletbl_weather.m05Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism06Null() As Boolean Return Me.IsNull(Me.tabletbl_weather.m06Column) End Function _ Public Sub Setm06Null() Me(Me.tabletbl_weather.m06Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism07Null() As Boolean Return Me.IsNull(Me.tabletbl_weather.m07Column) End Function _ Public Sub Setm07Null() Me(Me.tabletbl_weather.m07Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism08Null() As Boolean Return Me.IsNull(Me.tabletbl_weather.m08Column) End Function _ Public Sub Setm08Null() Me(Me.tabletbl_weather.m08Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism09Null() As Boolean Return Me.IsNull(Me.tabletbl_weather.m09Column) End Function _ Public Sub Setm09Null() Me(Me.tabletbl_weather.m09Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism10Null() As Boolean Return Me.IsNull(Me.tabletbl_weather.m10Column) End Function _ Public Sub Setm10Null() Me(Me.tabletbl_weather.m10Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism11Null() As Boolean Return Me.IsNull(Me.tabletbl_weather.m11Column) End Function _ Public Sub Setm11Null() Me(Me.tabletbl_weather.m11Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism12Null() As Boolean Return Me.IsNull(Me.tabletbl_weather.m12Column) End Function _ Public Sub Setm12Null() Me(Me.tabletbl_weather.m12Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class weather_ilsaRow Inherits Global.System.Data.DataRow Private tableweather_ilsa As weather_ilsaDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableweather_ilsa = CType(Me.Table,weather_ilsaDataTable) End Sub _ Public Property pcode() As String Get Return CType(Me(Me.tableweather_ilsa.pcodeColumn),String) End Get Set Me(Me.tableweather_ilsa.pcodeColumn) = value End Set End Property _ Public Property code() As String Get Return CType(Me(Me.tableweather_ilsa.codeColumn),String) End Get Set Me(Me.tableweather_ilsa.codeColumn) = value End Set End Property _ Public Property 설명() As String Get If Me.Is설명Null Then Return "" Else Return CType(Me(Me.tableweather_ilsa.설명Column),String) End If End Get Set Me(Me.tableweather_ilsa.설명Column) = value End Set End Property _ Public Property 최대부하() As String Get If Me.Is최대부하Null Then Return "0" Else Return CType(Me(Me.tableweather_ilsa.최대부하Column),String) End If End Get Set Me(Me.tableweather_ilsa.최대부하Column) = value End Set End Property _ Public Property m01() As String Get If Me.Ism01Null Then Return "0" Else Return CType(Me(Me.tableweather_ilsa.m01Column),String) End If End Get Set Me(Me.tableweather_ilsa.m01Column) = value End Set End Property _ Public Property m02() As String Get If Me.Ism02Null Then Return "0" Else Return CType(Me(Me.tableweather_ilsa.m02Column),String) End If End Get Set Me(Me.tableweather_ilsa.m02Column) = value End Set End Property _ Public Property m03() As String Get If Me.Ism03Null Then Return "0" Else Return CType(Me(Me.tableweather_ilsa.m03Column),String) End If End Get Set Me(Me.tableweather_ilsa.m03Column) = value End Set End Property _ Public Property m04() As String Get If Me.Ism04Null Then Return "0" Else Return CType(Me(Me.tableweather_ilsa.m04Column),String) End If End Get Set Me(Me.tableweather_ilsa.m04Column) = value End Set End Property _ Public Property m05() As String Get If Me.Ism05Null Then Return "0" Else Return CType(Me(Me.tableweather_ilsa.m05Column),String) End If End Get Set Me(Me.tableweather_ilsa.m05Column) = value End Set End Property _ Public Property m06() As String Get If Me.Ism06Null Then Return "0" Else Return CType(Me(Me.tableweather_ilsa.m06Column),String) End If End Get Set Me(Me.tableweather_ilsa.m06Column) = value End Set End Property _ Public Property m07() As String Get If Me.Ism07Null Then Return "0" Else Return CType(Me(Me.tableweather_ilsa.m07Column),String) End If End Get Set Me(Me.tableweather_ilsa.m07Column) = value End Set End Property _ Public Property m08() As String Get If Me.Ism08Null Then Return "0" Else Return CType(Me(Me.tableweather_ilsa.m08Column),String) End If End Get Set Me(Me.tableweather_ilsa.m08Column) = value End Set End Property _ Public Property m09() As String Get If Me.Ism09Null Then Return "0" Else Return CType(Me(Me.tableweather_ilsa.m09Column),String) End If End Get Set Me(Me.tableweather_ilsa.m09Column) = value End Set End Property _ Public Property m10() As String Get If Me.Ism10Null Then Return "0" Else Return CType(Me(Me.tableweather_ilsa.m10Column),String) End If End Get Set Me(Me.tableweather_ilsa.m10Column) = value End Set End Property _ Public Property m11() As String Get If Me.Ism11Null Then Return "0" Else Return CType(Me(Me.tableweather_ilsa.m11Column),String) End If End Get Set Me(Me.tableweather_ilsa.m11Column) = value End Set End Property _ Public Property m12() As String Get If Me.Ism12Null Then Return "0" Else Return CType(Me(Me.tableweather_ilsa.m12Column),String) End If End Get Set Me(Me.tableweather_ilsa.m12Column) = value End Set End Property _ Public Function Is설명Null() As Boolean Return Me.IsNull(Me.tableweather_ilsa.설명Column) End Function _ Public Sub Set설명Null() Me(Me.tableweather_ilsa.설명Column) = Global.System.Convert.DBNull End Sub _ Public Function Is최대부하Null() As Boolean Return Me.IsNull(Me.tableweather_ilsa.최대부하Column) End Function _ Public Sub Set최대부하Null() Me(Me.tableweather_ilsa.최대부하Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism01Null() As Boolean Return Me.IsNull(Me.tableweather_ilsa.m01Column) End Function _ Public Sub Setm01Null() Me(Me.tableweather_ilsa.m01Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism02Null() As Boolean Return Me.IsNull(Me.tableweather_ilsa.m02Column) End Function _ Public Sub Setm02Null() Me(Me.tableweather_ilsa.m02Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism03Null() As Boolean Return Me.IsNull(Me.tableweather_ilsa.m03Column) End Function _ Public Sub Setm03Null() Me(Me.tableweather_ilsa.m03Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism04Null() As Boolean Return Me.IsNull(Me.tableweather_ilsa.m04Column) End Function _ Public Sub Setm04Null() Me(Me.tableweather_ilsa.m04Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism05Null() As Boolean Return Me.IsNull(Me.tableweather_ilsa.m05Column) End Function _ Public Sub Setm05Null() Me(Me.tableweather_ilsa.m05Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism06Null() As Boolean Return Me.IsNull(Me.tableweather_ilsa.m06Column) End Function _ Public Sub Setm06Null() Me(Me.tableweather_ilsa.m06Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism07Null() As Boolean Return Me.IsNull(Me.tableweather_ilsa.m07Column) End Function _ Public Sub Setm07Null() Me(Me.tableweather_ilsa.m07Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism08Null() As Boolean Return Me.IsNull(Me.tableweather_ilsa.m08Column) End Function _ Public Sub Setm08Null() Me(Me.tableweather_ilsa.m08Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism09Null() As Boolean Return Me.IsNull(Me.tableweather_ilsa.m09Column) End Function _ Public Sub Setm09Null() Me(Me.tableweather_ilsa.m09Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism10Null() As Boolean Return Me.IsNull(Me.tableweather_ilsa.m10Column) End Function _ Public Sub Setm10Null() Me(Me.tableweather_ilsa.m10Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism11Null() As Boolean Return Me.IsNull(Me.tableweather_ilsa.m11Column) End Function _ Public Sub Setm11Null() Me(Me.tableweather_ilsa.m11Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism12Null() As Boolean Return Me.IsNull(Me.tableweather_ilsa.m12Column) End Function _ Public Sub Setm12Null() Me(Me.tableweather_ilsa.m12Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class weather_supdoRow Inherits Global.System.Data.DataRow Private tableweather_supdo As weather_supdoDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableweather_supdo = CType(Me.Table,weather_supdoDataTable) End Sub _ Public Property pcode() As String Get Return CType(Me(Me.tableweather_supdo.pcodeColumn),String) End Get Set Me(Me.tableweather_supdo.pcodeColumn) = value End Set End Property _ Public Property code() As String Get Return CType(Me(Me.tableweather_supdo.codeColumn),String) End Get Set Me(Me.tableweather_supdo.codeColumn) = value End Set End Property _ Public Property 설명() As String Get Try Return CType(Me(Me.tableweather_supdo.설명Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'weather_supdo' 테이블의 '설명' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableweather_supdo.설명Column) = value End Set End Property _ Public Property t01() As String Get If Me.Ist01Null Then Return "0" Else Return CType(Me(Me.tableweather_supdo.t01Column),String) End If End Get Set Me(Me.tableweather_supdo.t01Column) = value End Set End Property _ Public Property t02() As String Get If Me.Ist02Null Then Return "0" Else Return CType(Me(Me.tableweather_supdo.t02Column),String) End If End Get Set Me(Me.tableweather_supdo.t02Column) = value End Set End Property _ Public Property t03() As String Get If Me.Ist03Null Then Return "0" Else Return CType(Me(Me.tableweather_supdo.t03Column),String) End If End Get Set Me(Me.tableweather_supdo.t03Column) = value End Set End Property _ Public Property t04() As String Get If Me.Ist04Null Then Return "0" Else Return CType(Me(Me.tableweather_supdo.t04Column),String) End If End Get Set Me(Me.tableweather_supdo.t04Column) = value End Set End Property _ Public Property t05() As String Get If Me.Ist05Null Then Return "0" Else Return CType(Me(Me.tableweather_supdo.t05Column),String) End If End Get Set Me(Me.tableweather_supdo.t05Column) = value End Set End Property _ Public Property t06() As String Get If Me.Ist06Null Then Return "0" Else Return CType(Me(Me.tableweather_supdo.t06Column),String) End If End Get Set Me(Me.tableweather_supdo.t06Column) = value End Set End Property _ Public Property t07() As String Get If Me.Ist07Null Then Return "0" Else Return CType(Me(Me.tableweather_supdo.t07Column),String) End If End Get Set Me(Me.tableweather_supdo.t07Column) = value End Set End Property _ Public Property t08() As String Get If Me.Ist08Null Then Return "0" Else Return CType(Me(Me.tableweather_supdo.t08Column),String) End If End Get Set Me(Me.tableweather_supdo.t08Column) = value End Set End Property _ Public Property t09() As String Get If Me.Ist09Null Then Return "0" Else Return CType(Me(Me.tableweather_supdo.t09Column),String) End If End Get Set Me(Me.tableweather_supdo.t09Column) = value End Set End Property _ Public Property t10() As String Get If Me.Ist10Null Then Return "0" Else Return CType(Me(Me.tableweather_supdo.t10Column),String) End If End Get Set Me(Me.tableweather_supdo.t10Column) = value End Set End Property _ Public Property t11() As String Get If Me.Ist11Null Then Return "0" Else Return CType(Me(Me.tableweather_supdo.t11Column),String) End If End Get Set Me(Me.tableweather_supdo.t11Column) = value End Set End Property _ Public Property t12() As String Get If Me.Ist12Null Then Return "0" Else Return CType(Me(Me.tableweather_supdo.t12Column),String) End If End Get Set Me(Me.tableweather_supdo.t12Column) = value End Set End Property _ Public Property t13() As String Get If Me.Ist13Null Then Return "0" Else Return CType(Me(Me.tableweather_supdo.t13Column),String) End If End Get Set Me(Me.tableweather_supdo.t13Column) = value End Set End Property _ Public Property t14() As String Get If Me.Ist14Null Then Return "0" Else Return CType(Me(Me.tableweather_supdo.t14Column),String) End If End Get Set Me(Me.tableweather_supdo.t14Column) = value End Set End Property _ Public Property t15() As String Get If Me.Ist15Null Then Return "0" Else Return CType(Me(Me.tableweather_supdo.t15Column),String) End If End Get Set Me(Me.tableweather_supdo.t15Column) = value End Set End Property _ Public Property t16() As String Get If Me.Ist16Null Then Return "0" Else Return CType(Me(Me.tableweather_supdo.t16Column),String) End If End Get Set Me(Me.tableweather_supdo.t16Column) = value End Set End Property _ Public Property t17() As String Get If Me.Ist17Null Then Return "0" Else Return CType(Me(Me.tableweather_supdo.t17Column),String) End If End Get Set Me(Me.tableweather_supdo.t17Column) = value End Set End Property _ Public Property t18() As String Get If Me.Ist18Null Then Return "0" Else Return CType(Me(Me.tableweather_supdo.t18Column),String) End If End Get Set Me(Me.tableweather_supdo.t18Column) = value End Set End Property _ Public Property t19() As String Get If Me.Ist19Null Then Return "0" Else Return CType(Me(Me.tableweather_supdo.t19Column),String) End If End Get Set Me(Me.tableweather_supdo.t19Column) = value End Set End Property _ Public Property t20() As String Get If Me.Ist20Null Then Return "0" Else Return CType(Me(Me.tableweather_supdo.t20Column),String) End If End Get Set Me(Me.tableweather_supdo.t20Column) = value End Set End Property _ Public Property t21() As String Get If Me.Ist21Null Then Return "0" Else Return CType(Me(Me.tableweather_supdo.t21Column),String) End If End Get Set Me(Me.tableweather_supdo.t21Column) = value End Set End Property _ Public Property t22() As String Get If Me.Ist22Null Then Return "0" Else Return CType(Me(Me.tableweather_supdo.t22Column),String) End If End Get Set Me(Me.tableweather_supdo.t22Column) = value End Set End Property _ Public Property t23() As String Get If Me.Ist23Null Then Return "0" Else Return CType(Me(Me.tableweather_supdo.t23Column),String) End If End Get Set Me(Me.tableweather_supdo.t23Column) = value End Set End Property _ Public Property t24() As String Get If Me.Ist24Null Then Return "0" Else Return CType(Me(Me.tableweather_supdo.t24Column),String) End If End Get Set Me(Me.tableweather_supdo.t24Column) = value End Set End Property _ Public Function Is설명Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.설명Column) End Function _ Public Sub Set설명Null() Me(Me.tableweather_supdo.설명Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist01Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.t01Column) End Function _ Public Sub Sett01Null() Me(Me.tableweather_supdo.t01Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist02Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.t02Column) End Function _ Public Sub Sett02Null() Me(Me.tableweather_supdo.t02Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist03Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.t03Column) End Function _ Public Sub Sett03Null() Me(Me.tableweather_supdo.t03Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist04Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.t04Column) End Function _ Public Sub Sett04Null() Me(Me.tableweather_supdo.t04Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist05Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.t05Column) End Function _ Public Sub Sett05Null() Me(Me.tableweather_supdo.t05Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist06Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.t06Column) End Function _ Public Sub Sett06Null() Me(Me.tableweather_supdo.t06Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist07Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.t07Column) End Function _ Public Sub Sett07Null() Me(Me.tableweather_supdo.t07Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist08Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.t08Column) End Function _ Public Sub Sett08Null() Me(Me.tableweather_supdo.t08Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist09Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.t09Column) End Function _ Public Sub Sett09Null() Me(Me.tableweather_supdo.t09Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist10Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.t10Column) End Function _ Public Sub Sett10Null() Me(Me.tableweather_supdo.t10Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist11Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.t11Column) End Function _ Public Sub Sett11Null() Me(Me.tableweather_supdo.t11Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist12Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.t12Column) End Function _ Public Sub Sett12Null() Me(Me.tableweather_supdo.t12Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist13Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.t13Column) End Function _ Public Sub Sett13Null() Me(Me.tableweather_supdo.t13Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist14Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.t14Column) End Function _ Public Sub Sett14Null() Me(Me.tableweather_supdo.t14Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist15Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.t15Column) End Function _ Public Sub Sett15Null() Me(Me.tableweather_supdo.t15Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist16Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.t16Column) End Function _ Public Sub Sett16Null() Me(Me.tableweather_supdo.t16Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist17Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.t17Column) End Function _ Public Sub Sett17Null() Me(Me.tableweather_supdo.t17Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist18Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.t18Column) End Function _ Public Sub Sett18Null() Me(Me.tableweather_supdo.t18Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist19Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.t19Column) End Function _ Public Sub Sett19Null() Me(Me.tableweather_supdo.t19Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist20Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.t20Column) End Function _ Public Sub Sett20Null() Me(Me.tableweather_supdo.t20Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist21Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.t21Column) End Function _ Public Sub Sett21Null() Me(Me.tableweather_supdo.t21Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist22Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.t22Column) End Function _ Public Sub Sett22Null() Me(Me.tableweather_supdo.t22Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist23Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.t23Column) End Function _ Public Sub Sett23Null() Me(Me.tableweather_supdo.t23Column) = Global.System.Convert.DBNull End Sub _ Public Function Ist24Null() As Boolean Return Me.IsNull(Me.tableweather_supdo.t24Column) End Function _ Public Sub Sett24Null() Me(Me.tableweather_supdo.t24Column) = Global.System.Convert.DBNull End Sub 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 ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_commonRow Inherits Global.System.Data.DataRow Private tabletbl_common As tbl_commonDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_common = CType(Me.Table,tbl_commonDataTable) End Sub _ Public Property gubun() As String Get Return CType(Me(Me.tabletbl_common.gubunColumn),String) End Get Set Me(Me.tabletbl_common.gubunColumn) = value End Set End Property _ Public Property code() As String Get Return CType(Me(Me.tabletbl_common.codeColumn),String) End Get Set Me(Me.tabletbl_common.codeColumn) = value End Set End Property _ Public Property name() As String Get If Me.IsnameNull Then Return "" Else Return CType(Me(Me.tabletbl_common.nameColumn),String) End If End Get Set Me(Me.tabletbl_common.nameColumn) = value End Set End Property _ Public Property valn1() As Double Get If Me.Isvaln1Null Then Return 0R Else Return CType(Me(Me.tabletbl_common.valn1Column),Double) End If End Get Set Me(Me.tabletbl_common.valn1Column) = value End Set End Property _ Public Property codename() As String Get If Me.IscodenameNull Then Return "" Else Return CType(Me(Me.tabletbl_common.codenameColumn),String) End If End Get Set Me(Me.tabletbl_common.codenameColumn) = value End Set End Property _ Public Function IsnameNull() As Boolean Return Me.IsNull(Me.tabletbl_common.nameColumn) End Function _ Public Sub SetnameNull() Me(Me.tabletbl_common.nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvaln1Null() As Boolean Return Me.IsNull(Me.tabletbl_common.valn1Column) End Function _ Public Sub Setvaln1Null() Me(Me.tabletbl_common.valn1Column) = Global.System.Convert.DBNull End Sub _ Public Function IscodenameNull() As Boolean Return Me.IsNull(Me.tabletbl_common.codenameColumn) End Function _ Public Sub SetcodenameNull() Me(Me.tabletbl_common.codenameColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class weather_groupRow Inherits Global.System.Data.DataRow Private tableweather_group As weather_groupDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableweather_group = CType(Me.Table,weather_groupDataTable) End Sub _ Public Property code() As String Get Return CType(Me(Me.tableweather_group.codeColumn),String) End Get Set Me(Me.tableweather_group.codeColumn) = value End Set End Property _ Public Property name() As String Get If Me.IsnameNull Then Return String.Empty Else Return CType(Me(Me.tableweather_group.nameColumn),String) End If End Get Set Me(Me.tableweather_group.nameColumn) = value End Set End Property _ Public Property area() As String Get If Me.IsareaNull Then Return String.Empty Else Return CType(Me(Me.tableweather_group.areaColumn),String) End If End Get Set Me(Me.tableweather_group.areaColumn) = value End Set End Property _ Public Property area2() As String Get If Me.Isarea2Null Then Return String.Empty Else Return CType(Me(Me.tableweather_group.area2Column),String) End If End Get Set Me(Me.tableweather_group.area2Column) = value End Set End Property _ Public Property area3() As String Get If Me.Isarea3Null Then Return String.Empty Else Return CType(Me(Me.tableweather_group.area3Column),String) End If End Get Set Me(Me.tableweather_group.area3Column) = value End Set End Property _ Public Function IsnameNull() As Boolean Return Me.IsNull(Me.tableweather_group.nameColumn) End Function _ Public Sub SetnameNull() Me(Me.tableweather_group.nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsareaNull() As Boolean Return Me.IsNull(Me.tableweather_group.areaColumn) End Function _ Public Sub SetareaNull() Me(Me.tableweather_group.areaColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isarea2Null() As Boolean Return Me.IsNull(Me.tableweather_group.area2Column) End Function _ Public Sub Setarea2Null() Me(Me.tableweather_group.area2Column) = Global.System.Convert.DBNull End Sub _ Public Function Isarea3Null() As Boolean Return Me.IsNull(Me.tableweather_group.area3Column) End Function _ Public Sub Setarea3Null() Me(Me.tableweather_group.area3Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_picRow Inherits Global.System.Data.DataRow Private tabletbl_pic As tbl_picDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_pic = CType(Me.Table,tbl_picDataTable) End Sub _ Public Property code() As String Get Try Return CType(Me(Me.tabletbl_pic.codeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'tbl_pic' 테이블의 'code' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tabletbl_pic.codeColumn) = value End Set End Property _ Public Property pic() As Byte() Get Try Return CType(Me(Me.tabletbl_pic.picColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'tbl_pic' 테이블의 'pic' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tabletbl_pic.picColumn) = value End Set End Property _ Public Function IscodeNull() As Boolean Return Me.IsNull(Me.tabletbl_pic.codeColumn) End Function _ Public Sub SetcodeNull() Me(Me.tabletbl_pic.codeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IspicNull() As Boolean Return Me.IsNull(Me.tabletbl_pic.picColumn) End Function _ Public Sub SetpicNull() Me(Me.tabletbl_pic.picColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_nanbangkikiRow Inherits Global.System.Data.DataRow Private tabletbl_nanbangkiki As tbl_nanbangkikiDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_nanbangkiki = CType(Me.Table,tbl_nanbangkikiDataTable) End Sub _ Public Property code() As String Get Return CType(Me(Me.tabletbl_nanbangkiki.codeColumn),String) End Get Set Me(Me.tabletbl_nanbangkiki.codeColumn) = value End Set End Property _ Public Property 설명() As String Get If Me.Is설명Null Then Return "" Else Return CType(Me(Me.tabletbl_nanbangkiki.설명Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.설명Column) = value End Set End Property _ Public Property 축열탱크방식() As String Get If Me.Is축열탱크방식Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.축열탱크방식Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.축열탱크방식Column) = value End Set End Property _ Public Property 축열제척() As String Get If Me.Is축열제척Null Then Return "" Else Return CType(Me(Me.tabletbl_nanbangkiki.축열제척Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.축열제척Column) = value End Set End Property _ Public Property 펌프정격전력() As String Get If Me.Is펌프정격전력Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.펌프정격전력Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.펌프정격전력Column) = value End Set End Property _ Public Property 배관망유형() As String Get If Me.Is배관망유형Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.배관망유형Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.배관망유형Column) = value End Set End Property _ Public Property 펌프교정계수() As String Get If Me.Is펌프교정계수Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.펌프교정계수Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.펌프교정계수Column) = value End Set End Property _ Public Property 펌프제어유형() As String Get If Me.Is펌프제어유형Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.펌프제어유형Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.펌프제어유형Column) = value End Set End Property _ Public Property 펌프동력() As String Get If Me.Is펌프동력Null Then Return "" Else Return CType(Me(Me.tabletbl_nanbangkiki.펌프동력Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.펌프동력Column) = value End Set End Property _ Public Property 분배시스템방식() As String Get If Me.Is분배시스템방식Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.분배시스템방식Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.분배시스템방식Column) = value End Set End Property _ Public Property 순환유무() As String Get If Me.Is순환유무Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.순환유무Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.순환유무Column) = value End Set End Property _ Public Property 펌프동력급탕() As String Get If Me.Is펌프동력급탕Null Then Return "" Else Return CType(Me(Me.tabletbl_nanbangkiki.펌프동력급탕Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.펌프동력급탕Column) = value End Set End Property _ Public Property 건물길이() As String Get If Me.Is건물길이Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.건물길이Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.건물길이Column) = value End Set End Property _ Public Property 건물넓이() As String Get If Me.Is건물넓이Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.건물넓이Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.건물넓이Column) = value End Set End Property _ Public Property 열공급층수() As String Get If Me.Is열공급층수Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.열공급층수Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.열공급층수Column) = value End Set End Property _ Public Property 층고() As String Get If Me.Is층고Null Then Return "" Else Return CType(Me(Me.tabletbl_nanbangkiki.층고Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.층고Column) = value End Set End Property _ Public Property 배관길이() As String Get If Me.Is배관길이Null Then Return "" Else Return CType(Me(Me.tabletbl_nanbangkiki.배관길이Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.배관길이Column) = value End Set End Property _ Public Property 신재생연결여부() As String Get If Me.Is신재생연결여부Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.신재생연결여부Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.신재생연결여부Column) = value End Set End Property _ Public Property 연결된시스템() As String Get If Me.Is연결된시스템Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.연결된시스템Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.연결된시스템Column) = value End Set End Property _ Public Property 펌프제어() As String Get If Me.Is펌프제어Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.펌프제어Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.펌프제어Column) = value End Set End Property _ Public Property 열생산기기방식() As String Get If Me.Is열생산기기방식Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.열생산기기방식Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.열생산기기방식Column) = value End Set End Property _ Public Property 사용연료() As String Get If Me.Is사용연료Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.사용연료Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.사용연료Column) = value End Set End Property _ Public Property 급수온도() As String Get If Me.Is급수온도Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.급수온도Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.급수온도Column) = value End Set End Property _ Public Property 환수온도() As String Get If Me.Is환수온도Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.환수온도Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.환수온도Column) = value End Set End Property _ Public Property 보일러정격출력() As String Get If Me.Is보일러정격출력Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.보일러정격출력Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.보일러정격출력Column) = value End Set End Property _ Public Property 열교환기정격출력() As String Get If Me.Is열교환기정격출력Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.열교환기정격출력Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.열교환기정격출력Column) = value End Set End Property _ Public Property 운전방식() As String Get If Me.Is운전방식Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.운전방식Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.운전방식Column) = value End Set End Property _ Public Property 보일러대수() As String Get If Me.Is보일러대수Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.보일러대수Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.보일러대수Column) = value End Set End Property _ Public Property 정격보일러효율() As String Get If Me.Is정격보일러효율Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.정격보일러효율Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.정격보일러효율Column) = value End Set End Property _ Public Property 보일러방식() As String Get If Me.Is보일러방식Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.보일러방식Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.보일러방식Column) = value End Set End Property _ Public Property 지역난방방식() As String Get If Me.Is지역난방방식Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.지역난방방식Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.지역난방방식Column) = value End Set End Property _ Public Property 히트연료() As String Get If Me.Is히트연료Null Then Return "" Else Return CType(Me(Me.tabletbl_nanbangkiki.히트연료Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.히트연료Column) = value End Set End Property _ Public Property 히트난방용량() As String Get If Me.Is히트난방용량Null Then Return "" Else Return CType(Me(Me.tabletbl_nanbangkiki.히트난방용량Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.히트난방용량Column) = value End Set End Property _ Public Property 히트난방정격7() As String Get If Me.Is히트난방정격7Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.히트난방정격7Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.히트난방정격7Column) = value End Set End Property _ Public Property 히트난방정격10() As String Get If Me.Is히트난방정격10Null Then Return "" Else Return CType(Me(Me.tabletbl_nanbangkiki.히트난방정격10Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.히트난방정격10Column) = value End Set End Property _ Public Property 히트배관길이() As String Get If Me.Is히트배관길이Null Then Return "" Else Return CType(Me(Me.tabletbl_nanbangkiki.히트배관길이Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.히트배관길이Column) = value End Set End Property _ Public Property 단열등급() As String Get If Me.Is단열등급Null Then Return "0" Else Return CType(Me(Me.tabletbl_nanbangkiki.단열등급Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.단열등급Column) = value End Set End Property _ Public Property 히트펌프시스템종류() As String Get If Me.Is히트펌프시스템종류Null Then Return "" Else Return CType(Me(Me.tabletbl_nanbangkiki.히트펌프시스템종류Column),String) End If End Get Set Me(Me.tabletbl_nanbangkiki.히트펌프시스템종류Column) = value End Set End Property _ Public Property 개별기기적용() As Boolean Get If Me.Is개별기기적용Null Then Return false Else Return CType(Me(Me.tabletbl_nanbangkiki.개별기기적용Column),Boolean) End If End Get Set Me(Me.tabletbl_nanbangkiki.개별기기적용Column) = value End Set End Property _ Public Property 헤더적용() As Boolean Get If Me.Is헤더적용Null Then Return false Else Return CType(Me(Me.tabletbl_nanbangkiki.헤더적용Column),Boolean) End If End Get Set Me(Me.tabletbl_nanbangkiki.헤더적용Column) = value End Set End Property _ Public Function Is설명Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.설명Column) End Function _ Public Sub Set설명Null() Me(Me.tabletbl_nanbangkiki.설명Column) = Global.System.Convert.DBNull End Sub _ Public Function Is축열탱크방식Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.축열탱크방식Column) End Function _ Public Sub Set축열탱크방식Null() Me(Me.tabletbl_nanbangkiki.축열탱크방식Column) = Global.System.Convert.DBNull End Sub _ Public Function Is축열제척Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.축열제척Column) End Function _ Public Sub Set축열제척Null() Me(Me.tabletbl_nanbangkiki.축열제척Column) = Global.System.Convert.DBNull End Sub _ Public Function Is펌프정격전력Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.펌프정격전력Column) End Function _ Public Sub Set펌프정격전력Null() Me(Me.tabletbl_nanbangkiki.펌프정격전력Column) = Global.System.Convert.DBNull End Sub _ Public Function Is배관망유형Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.배관망유형Column) End Function _ Public Sub Set배관망유형Null() Me(Me.tabletbl_nanbangkiki.배관망유형Column) = Global.System.Convert.DBNull End Sub _ Public Function Is펌프교정계수Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.펌프교정계수Column) End Function _ Public Sub Set펌프교정계수Null() Me(Me.tabletbl_nanbangkiki.펌프교정계수Column) = Global.System.Convert.DBNull End Sub _ Public Function Is펌프제어유형Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.펌프제어유형Column) End Function _ Public Sub Set펌프제어유형Null() Me(Me.tabletbl_nanbangkiki.펌프제어유형Column) = Global.System.Convert.DBNull End Sub _ Public Function Is펌프동력Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.펌프동력Column) End Function _ Public Sub Set펌프동력Null() Me(Me.tabletbl_nanbangkiki.펌프동력Column) = Global.System.Convert.DBNull End Sub _ Public Function Is분배시스템방식Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.분배시스템방식Column) End Function _ Public Sub Set분배시스템방식Null() Me(Me.tabletbl_nanbangkiki.분배시스템방식Column) = Global.System.Convert.DBNull End Sub _ Public Function Is순환유무Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.순환유무Column) End Function _ Public Sub Set순환유무Null() Me(Me.tabletbl_nanbangkiki.순환유무Column) = Global.System.Convert.DBNull End Sub _ Public Function Is펌프동력급탕Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.펌프동력급탕Column) End Function _ Public Sub Set펌프동력급탕Null() Me(Me.tabletbl_nanbangkiki.펌프동력급탕Column) = Global.System.Convert.DBNull End Sub _ Public Function Is건물길이Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.건물길이Column) End Function _ Public Sub Set건물길이Null() Me(Me.tabletbl_nanbangkiki.건물길이Column) = Global.System.Convert.DBNull End Sub _ Public Function Is건물넓이Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.건물넓이Column) End Function _ Public Sub Set건물넓이Null() Me(Me.tabletbl_nanbangkiki.건물넓이Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열공급층수Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.열공급층수Column) End Function _ Public Sub Set열공급층수Null() Me(Me.tabletbl_nanbangkiki.열공급층수Column) = Global.System.Convert.DBNull End Sub _ Public Function Is층고Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.층고Column) End Function _ Public Sub Set층고Null() Me(Me.tabletbl_nanbangkiki.층고Column) = Global.System.Convert.DBNull End Sub _ Public Function Is배관길이Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.배관길이Column) End Function _ Public Sub Set배관길이Null() Me(Me.tabletbl_nanbangkiki.배관길이Column) = Global.System.Convert.DBNull End Sub _ Public Function Is신재생연결여부Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.신재생연결여부Column) End Function _ Public Sub Set신재생연결여부Null() Me(Me.tabletbl_nanbangkiki.신재생연결여부Column) = Global.System.Convert.DBNull End Sub _ Public Function Is연결된시스템Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.연결된시스템Column) End Function _ Public Sub Set연결된시스템Null() Me(Me.tabletbl_nanbangkiki.연결된시스템Column) = Global.System.Convert.DBNull End Sub _ Public Function Is펌프제어Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.펌프제어Column) End Function _ Public Sub Set펌프제어Null() Me(Me.tabletbl_nanbangkiki.펌프제어Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열생산기기방식Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.열생산기기방식Column) End Function _ Public Sub Set열생산기기방식Null() Me(Me.tabletbl_nanbangkiki.열생산기기방식Column) = Global.System.Convert.DBNull End Sub _ Public Function Is사용연료Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.사용연료Column) End Function _ Public Sub Set사용연료Null() Me(Me.tabletbl_nanbangkiki.사용연료Column) = Global.System.Convert.DBNull End Sub _ Public Function Is급수온도Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.급수온도Column) End Function _ Public Sub Set급수온도Null() Me(Me.tabletbl_nanbangkiki.급수온도Column) = Global.System.Convert.DBNull End Sub _ Public Function Is환수온도Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.환수온도Column) End Function _ Public Sub Set환수온도Null() Me(Me.tabletbl_nanbangkiki.환수온도Column) = Global.System.Convert.DBNull End Sub _ Public Function Is보일러정격출력Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.보일러정격출력Column) End Function _ Public Sub Set보일러정격출력Null() Me(Me.tabletbl_nanbangkiki.보일러정격출력Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열교환기정격출력Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.열교환기정격출력Column) End Function _ Public Sub Set열교환기정격출력Null() Me(Me.tabletbl_nanbangkiki.열교환기정격출력Column) = Global.System.Convert.DBNull End Sub _ Public Function Is운전방식Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.운전방식Column) End Function _ Public Sub Set운전방식Null() Me(Me.tabletbl_nanbangkiki.운전방식Column) = Global.System.Convert.DBNull End Sub _ Public Function Is보일러대수Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.보일러대수Column) End Function _ Public Sub Set보일러대수Null() Me(Me.tabletbl_nanbangkiki.보일러대수Column) = Global.System.Convert.DBNull End Sub _ Public Function Is정격보일러효율Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.정격보일러효율Column) End Function _ Public Sub Set정격보일러효율Null() Me(Me.tabletbl_nanbangkiki.정격보일러효율Column) = Global.System.Convert.DBNull End Sub _ Public Function Is보일러방식Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.보일러방식Column) End Function _ Public Sub Set보일러방식Null() Me(Me.tabletbl_nanbangkiki.보일러방식Column) = Global.System.Convert.DBNull End Sub _ Public Function Is지역난방방식Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.지역난방방식Column) End Function _ Public Sub Set지역난방방식Null() Me(Me.tabletbl_nanbangkiki.지역난방방식Column) = Global.System.Convert.DBNull End Sub _ Public Function Is히트연료Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.히트연료Column) End Function _ Public Sub Set히트연료Null() Me(Me.tabletbl_nanbangkiki.히트연료Column) = Global.System.Convert.DBNull End Sub _ Public Function Is히트난방용량Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.히트난방용량Column) End Function _ Public Sub Set히트난방용량Null() Me(Me.tabletbl_nanbangkiki.히트난방용량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is히트난방정격7Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.히트난방정격7Column) End Function _ Public Sub Set히트난방정격7Null() Me(Me.tabletbl_nanbangkiki.히트난방정격7Column) = Global.System.Convert.DBNull End Sub _ Public Function Is히트난방정격10Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.히트난방정격10Column) End Function _ Public Sub Set히트난방정격10Null() Me(Me.tabletbl_nanbangkiki.히트난방정격10Column) = Global.System.Convert.DBNull End Sub _ Public Function Is히트배관길이Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.히트배관길이Column) End Function _ Public Sub Set히트배관길이Null() Me(Me.tabletbl_nanbangkiki.히트배관길이Column) = Global.System.Convert.DBNull End Sub _ Public Function Is단열등급Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.단열등급Column) End Function _ Public Sub Set단열등급Null() Me(Me.tabletbl_nanbangkiki.단열등급Column) = Global.System.Convert.DBNull End Sub _ Public Function Is히트펌프시스템종류Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.히트펌프시스템종류Column) End Function _ Public Sub Set히트펌프시스템종류Null() Me(Me.tabletbl_nanbangkiki.히트펌프시스템종류Column) = Global.System.Convert.DBNull End Sub _ Public Function Is개별기기적용Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.개별기기적용Column) End Function _ Public Sub Set개별기기적용Null() Me(Me.tabletbl_nanbangkiki.개별기기적용Column) = Global.System.Convert.DBNull End Sub _ Public Function Is헤더적용Null() As Boolean Return Me.IsNull(Me.tabletbl_nanbangkiki.헤더적용Column) End Function _ Public Sub Set헤더적용Null() Me(Me.tabletbl_nanbangkiki.헤더적용Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_nangbangkikiRow Inherits Global.System.Data.DataRow Private tabletbl_nangbangkiki As tbl_nangbangkikiDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_nangbangkiki = CType(Me.Table,tbl_nangbangkikiDataTable) End Sub _ Public Property code() As String Get Return CType(Me(Me.tabletbl_nangbangkiki.codeColumn),String) End Get Set Me(Me.tabletbl_nangbangkiki.codeColumn) = value End Set End Property _ Public Property 설명() As String Get If Me.Is설명Null Then Return "" Else Return CType(Me(Me.tabletbl_nangbangkiki.설명Column),String) End If End Get Set Me(Me.tabletbl_nangbangkiki.설명Column) = value End Set End Property _ Public Property 냉동기방식() As String Get If Me.Is냉동기방식Null Then Return "0" Else Return CType(Me(Me.tabletbl_nangbangkiki.냉동기방식Column),String) End If End Get Set Me(Me.tabletbl_nangbangkiki.냉동기방식Column) = value End Set End Property _ Public Property 냉동기용량() As String Get If Me.Is냉동기용량Null Then Return "" Else Return CType(Me(Me.tabletbl_nangbangkiki.냉동기용량Column),String) End If End Get Set Me(Me.tabletbl_nangbangkiki.냉동기용량Column) = value End Set End Property _ Public Property 열성능비() As String Get If Me.Is열성능비Null Then Return "0" Else Return CType(Me(Me.tabletbl_nangbangkiki.열성능비Column),String) End If End Get Set Me(Me.tabletbl_nangbangkiki.열성능비Column) = value End Set End Property _ Public Property 냉동기종류() As String Get If Me.Is냉동기종류Null Then Return "0" Else Return CType(Me(Me.tabletbl_nangbangkiki.냉동기종류Column),String) End If End Get Set Me(Me.tabletbl_nangbangkiki.냉동기종류Column) = value End Set End Property _ Public Property 냉동기압축방식() As String Get If Me.Is냉동기압축방식Null Then Return "0" Else Return CType(Me(Me.tabletbl_nangbangkiki.냉동기압축방식Column),String) End If End Get Set Me(Me.tabletbl_nangbangkiki.냉동기압축방식Column) = value End Set End Property _ Public Property 압축기제어방식() As String Get If Me.Is압축기제어방식Null Then Return "0" Else Return CType(Me(Me.tabletbl_nangbangkiki.압축기제어방식Column),String) End If End Get Set Me(Me.tabletbl_nangbangkiki.압축기제어방식Column) = value End Set End Property _ Public Property 냉동기설비시스템() As String Get If Me.Is냉동기설비시스템Null Then Return "0" Else Return CType(Me(Me.tabletbl_nangbangkiki.냉동기설비시스템Column),String) End If End Get Set Me(Me.tabletbl_nangbangkiki.냉동기설비시스템Column) = value End Set End Property _ Public Property 제어방식() As String Get If Me.Is제어방식Null Then Return "0" Else Return CType(Me(Me.tabletbl_nangbangkiki.제어방식Column),String) End If End Get Set Me(Me.tabletbl_nangbangkiki.제어방식Column) = value End Set End Property _ Public Property 온수열생산기기() As String Get If Me.Is온수열생산기기Null Then Return "0" Else Return CType(Me(Me.tabletbl_nangbangkiki.온수열생산기기Column),String) End If End Get Set Me(Me.tabletbl_nangbangkiki.온수열생산기기Column) = value End Set End Property _ Public Property 증발식건식냉각기() As String Get If Me.Is증발식건식냉각기Null Then Return "0" Else Return CType(Me(Me.tabletbl_nangbangkiki.증발식건식냉각기Column),String) End If End Get Set Me(Me.tabletbl_nangbangkiki.증발식건식냉각기Column) = value End Set End Property _ Public Property 증발식냉각기() As String Get If Me.Is증발식냉각기Null Then Return "0" Else Return CType(Me(Me.tabletbl_nangbangkiki.증발식냉각기Column),String) End If End Get Set Me(Me.tabletbl_nangbangkiki.증발식냉각기Column) = value End Set End Property _ Public Property 보조방음기유무() As String Get If Me.Is보조방음기유무Null Then Return "0" Else Return CType(Me(Me.tabletbl_nangbangkiki.보조방음기유무Column),String) End If End Get Set Me(Me.tabletbl_nangbangkiki.보조방음기유무Column) = value End Set End Property _ Public Property 냉각탑입구온도() As String Get If Me.Is냉각탑입구온도Null Then Return "0" Else Return CType(Me(Me.tabletbl_nangbangkiki.냉각탑입구온도Column),String) End If End Get Set Me(Me.tabletbl_nangbangkiki.냉각탑입구온도Column) = value End Set End Property _ Public Property 신재생연결여부() As String Get If Me.Is신재생연결여부Null Then Return "0" Else Return CType(Me(Me.tabletbl_nangbangkiki.신재생연결여부Column),String) End If End Get Set Me(Me.tabletbl_nangbangkiki.신재생연결여부Column) = value End Set End Property _ Public Property 연결된시스템() As String Get If Me.Is연결된시스템Null Then Return "0" Else Return CType(Me(Me.tabletbl_nangbangkiki.연결된시스템Column),String) End If End Get Set Me(Me.tabletbl_nangbangkiki.연결된시스템Column) = value End Set End Property _ Public Property 열생산연결방식() As String Get If Me.Is열생산연결방식Null Then Return Nothing Else Return CType(Me(Me.tabletbl_nangbangkiki.열생산연결방식Column),String) End If End Get Set Me(Me.tabletbl_nangbangkiki.열생산연결방식Column) = value End Set End Property _ Public Property 개별기기적용() As Boolean Get If Me.Is개별기기적용Null Then Return false Else Return CType(Me(Me.tabletbl_nangbangkiki.개별기기적용Column),Boolean) End If End Get Set Me(Me.tabletbl_nangbangkiki.개별기기적용Column) = value End Set End Property _ Public Property 헤더적용() As Boolean Get If Me.Is헤더적용Null Then Return false Else Return CType(Me(Me.tabletbl_nangbangkiki.헤더적용Column),Boolean) End If End Get Set Me(Me.tabletbl_nangbangkiki.헤더적용Column) = value End Set End Property _ Public Property 사용연료() As String Get If Me.Is사용연료Null Then Return Nothing Else Return CType(Me(Me.tabletbl_nangbangkiki.사용연료Column),String) End If End Get Set Me(Me.tabletbl_nangbangkiki.사용연료Column) = value End Set End Property _ Public Function Is설명Null() As Boolean Return Me.IsNull(Me.tabletbl_nangbangkiki.설명Column) End Function _ Public Sub Set설명Null() Me(Me.tabletbl_nangbangkiki.설명Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉동기방식Null() As Boolean Return Me.IsNull(Me.tabletbl_nangbangkiki.냉동기방식Column) End Function _ Public Sub Set냉동기방식Null() Me(Me.tabletbl_nangbangkiki.냉동기방식Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉동기용량Null() As Boolean Return Me.IsNull(Me.tabletbl_nangbangkiki.냉동기용량Column) End Function _ Public Sub Set냉동기용량Null() Me(Me.tabletbl_nangbangkiki.냉동기용량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열성능비Null() As Boolean Return Me.IsNull(Me.tabletbl_nangbangkiki.열성능비Column) End Function _ Public Sub Set열성능비Null() Me(Me.tabletbl_nangbangkiki.열성능비Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉동기종류Null() As Boolean Return Me.IsNull(Me.tabletbl_nangbangkiki.냉동기종류Column) End Function _ Public Sub Set냉동기종류Null() Me(Me.tabletbl_nangbangkiki.냉동기종류Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉동기압축방식Null() As Boolean Return Me.IsNull(Me.tabletbl_nangbangkiki.냉동기압축방식Column) End Function _ Public Sub Set냉동기압축방식Null() Me(Me.tabletbl_nangbangkiki.냉동기압축방식Column) = Global.System.Convert.DBNull End Sub _ Public Function Is압축기제어방식Null() As Boolean Return Me.IsNull(Me.tabletbl_nangbangkiki.압축기제어방식Column) End Function _ Public Sub Set압축기제어방식Null() Me(Me.tabletbl_nangbangkiki.압축기제어방식Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉동기설비시스템Null() As Boolean Return Me.IsNull(Me.tabletbl_nangbangkiki.냉동기설비시스템Column) End Function _ Public Sub Set냉동기설비시스템Null() Me(Me.tabletbl_nangbangkiki.냉동기설비시스템Column) = Global.System.Convert.DBNull End Sub _ Public Function Is제어방식Null() As Boolean Return Me.IsNull(Me.tabletbl_nangbangkiki.제어방식Column) End Function _ Public Sub Set제어방식Null() Me(Me.tabletbl_nangbangkiki.제어방식Column) = Global.System.Convert.DBNull End Sub _ Public Function Is온수열생산기기Null() As Boolean Return Me.IsNull(Me.tabletbl_nangbangkiki.온수열생산기기Column) End Function _ Public Sub Set온수열생산기기Null() Me(Me.tabletbl_nangbangkiki.온수열생산기기Column) = Global.System.Convert.DBNull End Sub _ Public Function Is증발식건식냉각기Null() As Boolean Return Me.IsNull(Me.tabletbl_nangbangkiki.증발식건식냉각기Column) End Function _ Public Sub Set증발식건식냉각기Null() Me(Me.tabletbl_nangbangkiki.증발식건식냉각기Column) = Global.System.Convert.DBNull End Sub _ Public Function Is증발식냉각기Null() As Boolean Return Me.IsNull(Me.tabletbl_nangbangkiki.증발식냉각기Column) End Function _ Public Sub Set증발식냉각기Null() Me(Me.tabletbl_nangbangkiki.증발식냉각기Column) = Global.System.Convert.DBNull End Sub _ Public Function Is보조방음기유무Null() As Boolean Return Me.IsNull(Me.tabletbl_nangbangkiki.보조방음기유무Column) End Function _ Public Sub Set보조방음기유무Null() Me(Me.tabletbl_nangbangkiki.보조방음기유무Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉각탑입구온도Null() As Boolean Return Me.IsNull(Me.tabletbl_nangbangkiki.냉각탑입구온도Column) End Function _ Public Sub Set냉각탑입구온도Null() Me(Me.tabletbl_nangbangkiki.냉각탑입구온도Column) = Global.System.Convert.DBNull End Sub _ Public Function Is신재생연결여부Null() As Boolean Return Me.IsNull(Me.tabletbl_nangbangkiki.신재생연결여부Column) End Function _ Public Sub Set신재생연결여부Null() Me(Me.tabletbl_nangbangkiki.신재생연결여부Column) = Global.System.Convert.DBNull End Sub _ Public Function Is연결된시스템Null() As Boolean Return Me.IsNull(Me.tabletbl_nangbangkiki.연결된시스템Column) End Function _ Public Sub Set연결된시스템Null() Me(Me.tabletbl_nangbangkiki.연결된시스템Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열생산연결방식Null() As Boolean Return Me.IsNull(Me.tabletbl_nangbangkiki.열생산연결방식Column) End Function _ Public Sub Set열생산연결방식Null() Me(Me.tabletbl_nangbangkiki.열생산연결방식Column) = Global.System.Convert.DBNull End Sub _ Public Function Is개별기기적용Null() As Boolean Return Me.IsNull(Me.tabletbl_nangbangkiki.개별기기적용Column) End Function _ Public Sub Set개별기기적용Null() Me(Me.tabletbl_nangbangkiki.개별기기적용Column) = Global.System.Convert.DBNull End Sub _ Public Function Is헤더적용Null() As Boolean Return Me.IsNull(Me.tabletbl_nangbangkiki.헤더적용Column) End Function _ Public Sub Set헤더적용Null() Me(Me.tabletbl_nangbangkiki.헤더적용Column) = Global.System.Convert.DBNull End Sub _ Public Function Is사용연료Null() As Boolean Return Me.IsNull(Me.tabletbl_nangbangkiki.사용연료Column) End Function _ Public Sub Set사용연료Null() Me(Me.tabletbl_nangbangkiki.사용연료Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_bunbaeRow Inherits Global.System.Data.DataRow Private tabletbl_bunbae As tbl_bunbaeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_bunbae = CType(Me.Table,tbl_bunbaeDataTable) End Sub _ Public Property code() As String Get Return CType(Me(Me.tabletbl_bunbae.codeColumn),String) End Get Set Me(Me.tabletbl_bunbae.codeColumn) = value End Set End Property _ Public Property 설명() As String Get If Me.Is설명Null Then Return "" Else Return CType(Me(Me.tabletbl_bunbae.설명Column),String) End If End Get Set Me(Me.tabletbl_bunbae.설명Column) = value End Set End Property _ Public Property 냉동기() As String Get If Me.Is냉동기Null Then Return "0" Else Return CType(Me(Me.tabletbl_bunbae.냉동기Column),String) End If End Get Set Me(Me.tabletbl_bunbae.냉동기Column) = value End Set End Property _ Public Property 냉매방식() As String Get If Me.Is냉매방식Null Then Return "0" Else Return CType(Me(Me.tabletbl_bunbae.냉매방식Column),String) End If End Get Set Me(Me.tabletbl_bunbae.냉매방식Column) = value End Set End Property _ Public Property 펌프운전제어유무() As String Get If Me.Is펌프운전제어유무Null Then Return "0" Else Return CType(Me(Me.tabletbl_bunbae.펌프운전제어유무Column),String) End If End Get Set Me(Me.tabletbl_bunbae.펌프운전제어유무Column) = value End Set End Property _ Public Property 급수온도() As String Get If Me.Is급수온도Null Then Return "0" Else Return CType(Me(Me.tabletbl_bunbae.급수온도Column),String) End If End Get Set Me(Me.tabletbl_bunbae.급수온도Column) = value End Set End Property _ Public Property 환수온도() As String Get If Me.Is환수온도Null Then Return "0" Else Return CType(Me(Me.tabletbl_bunbae.환수온도Column),String) End If End Get Set Me(Me.tabletbl_bunbae.환수온도Column) = value End Set End Property _ Public Property 설정점에서의온도차() As String Get If Me.Is설정점에서의온도차Null Then Return "" Else Return CType(Me(Me.tabletbl_bunbae.설정점에서의온도차Column),String) End If End Get Set Me(Me.tabletbl_bunbae.설정점에서의온도차Column) = value End Set End Property _ Public Property 냉매의비열() As String Get If Me.Is냉매의비열Null Then Return "0" Else Return CType(Me(Me.tabletbl_bunbae.냉매의비열Column),String) End If End Get Set Me(Me.tabletbl_bunbae.냉매의비열Column) = value End Set End Property _ Public Property 냉매의밀도() As String Get If Me.Is냉매의밀도Null Then Return "0" Else Return CType(Me(Me.tabletbl_bunbae.냉매의밀도Column),String) End If End Get Set Me(Me.tabletbl_bunbae.냉매의밀도Column) = value End Set End Property _ Public Property 냉매의점도() As String Get If Me.Is냉매의점도Null Then Return "0" Else Return CType(Me(Me.tabletbl_bunbae.냉매의점도Column),String) End If End Get Set Me(Me.tabletbl_bunbae.냉매의점도Column) = value End Set End Property _ Public Property 배관의압력손실() As String Get If Me.Is배관의압력손실Null Then Return "" Else Return CType(Me(Me.tabletbl_bunbae.배관의압력손실Column),String) End If End Get Set Me(Me.tabletbl_bunbae.배관의압력손실Column) = value End Set End Property _ Public Property 개별저항비율() As String Get If Me.Is개별저항비율Null Then Return "0" Else Return CType(Me(Me.tabletbl_bunbae.개별저항비율Column),String) End If End Get Set Me(Me.tabletbl_bunbae.개별저항비율Column) = value End Set End Property _ Public Property 펌프동력() As String Get If Me.Is펌프동력Null Then Return "" Else Return CType(Me(Me.tabletbl_bunbae.펌프동력Column),String) End If End Get Set Me(Me.tabletbl_bunbae.펌프동력Column) = value End Set End Property _ Public Property 공급범위의길이() As String Get If Me.Is공급범위의길이Null Then Return "0" Else Return CType(Me(Me.tabletbl_bunbae.공급범위의길이Column),String) End If End Get Set Me(Me.tabletbl_bunbae.공급범위의길이Column) = value End Set End Property _ Public Property 공급범위의넓이() As String Get If Me.Is공급범위의넓이Null Then Return "0" Else Return CType(Me(Me.tabletbl_bunbae.공급범위의넓이Column),String) End If End Get Set Me(Me.tabletbl_bunbae.공급범위의넓이Column) = value End Set End Property _ Public Property 열층의수() As String Get If Me.Is열층의수Null Then Return "0" Else Return CType(Me(Me.tabletbl_bunbae.열층의수Column),String) End If End Get Set Me(Me.tabletbl_bunbae.열층의수Column) = value End Set End Property _ Public Property 층고() As String Get If Me.Is층고Null Then Return "" Else Return CType(Me(Me.tabletbl_bunbae.층고Column),String) End If End Get Set Me(Me.tabletbl_bunbae.층고Column) = value End Set End Property _ Public Property 생산기기압력손실() As String Get If Me.Is생산기기압력손실Null Then Return "0" Else Return CType(Me(Me.tabletbl_bunbae.생산기기압력손실Column),String) End If End Get Set Me(Me.tabletbl_bunbae.생산기기압력손실Column) = value End Set End Property _ Public Property 사용기기압력손실() As String Get If Me.Is사용기기압력손실Null Then Return "0" Else Return CType(Me(Me.tabletbl_bunbae.사용기기압력손실Column),String) End If End Get Set Me(Me.tabletbl_bunbae.사용기기압력손실Column) = value End Set End Property _ Public Property 제어밸브압력손실() As String Get If Me.Is제어밸브압력손실Null Then Return "0" Else Return CType(Me(Me.tabletbl_bunbae.제어밸브압력손실Column),String) End If End Get Set Me(Me.tabletbl_bunbae.제어밸브압력손실Column) = value End Set End Property _ Public Function Is설명Null() As Boolean Return Me.IsNull(Me.tabletbl_bunbae.설명Column) End Function _ Public Sub Set설명Null() Me(Me.tabletbl_bunbae.설명Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉동기Null() As Boolean Return Me.IsNull(Me.tabletbl_bunbae.냉동기Column) End Function _ Public Sub Set냉동기Null() Me(Me.tabletbl_bunbae.냉동기Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉매방식Null() As Boolean Return Me.IsNull(Me.tabletbl_bunbae.냉매방식Column) End Function _ Public Sub Set냉매방식Null() Me(Me.tabletbl_bunbae.냉매방식Column) = Global.System.Convert.DBNull End Sub _ Public Function Is펌프운전제어유무Null() As Boolean Return Me.IsNull(Me.tabletbl_bunbae.펌프운전제어유무Column) End Function _ Public Sub Set펌프운전제어유무Null() Me(Me.tabletbl_bunbae.펌프운전제어유무Column) = Global.System.Convert.DBNull End Sub _ Public Function Is급수온도Null() As Boolean Return Me.IsNull(Me.tabletbl_bunbae.급수온도Column) End Function _ Public Sub Set급수온도Null() Me(Me.tabletbl_bunbae.급수온도Column) = Global.System.Convert.DBNull End Sub _ Public Function Is환수온도Null() As Boolean Return Me.IsNull(Me.tabletbl_bunbae.환수온도Column) End Function _ Public Sub Set환수온도Null() Me(Me.tabletbl_bunbae.환수온도Column) = Global.System.Convert.DBNull End Sub _ Public Function Is설정점에서의온도차Null() As Boolean Return Me.IsNull(Me.tabletbl_bunbae.설정점에서의온도차Column) End Function _ Public Sub Set설정점에서의온도차Null() Me(Me.tabletbl_bunbae.설정점에서의온도차Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉매의비열Null() As Boolean Return Me.IsNull(Me.tabletbl_bunbae.냉매의비열Column) End Function _ Public Sub Set냉매의비열Null() Me(Me.tabletbl_bunbae.냉매의비열Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉매의밀도Null() As Boolean Return Me.IsNull(Me.tabletbl_bunbae.냉매의밀도Column) End Function _ Public Sub Set냉매의밀도Null() Me(Me.tabletbl_bunbae.냉매의밀도Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉매의점도Null() As Boolean Return Me.IsNull(Me.tabletbl_bunbae.냉매의점도Column) End Function _ Public Sub Set냉매의점도Null() Me(Me.tabletbl_bunbae.냉매의점도Column) = Global.System.Convert.DBNull End Sub _ Public Function Is배관의압력손실Null() As Boolean Return Me.IsNull(Me.tabletbl_bunbae.배관의압력손실Column) End Function _ Public Sub Set배관의압력손실Null() Me(Me.tabletbl_bunbae.배관의압력손실Column) = Global.System.Convert.DBNull End Sub _ Public Function Is개별저항비율Null() As Boolean Return Me.IsNull(Me.tabletbl_bunbae.개별저항비율Column) End Function _ Public Sub Set개별저항비율Null() Me(Me.tabletbl_bunbae.개별저항비율Column) = Global.System.Convert.DBNull End Sub _ Public Function Is펌프동력Null() As Boolean Return Me.IsNull(Me.tabletbl_bunbae.펌프동력Column) End Function _ Public Sub Set펌프동력Null() Me(Me.tabletbl_bunbae.펌프동력Column) = Global.System.Convert.DBNull End Sub _ Public Function Is공급범위의길이Null() As Boolean Return Me.IsNull(Me.tabletbl_bunbae.공급범위의길이Column) End Function _ Public Sub Set공급범위의길이Null() Me(Me.tabletbl_bunbae.공급범위의길이Column) = Global.System.Convert.DBNull End Sub _ Public Function Is공급범위의넓이Null() As Boolean Return Me.IsNull(Me.tabletbl_bunbae.공급범위의넓이Column) End Function _ Public Sub Set공급범위의넓이Null() Me(Me.tabletbl_bunbae.공급범위의넓이Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열층의수Null() As Boolean Return Me.IsNull(Me.tabletbl_bunbae.열층의수Column) End Function _ Public Sub Set열층의수Null() Me(Me.tabletbl_bunbae.열층의수Column) = Global.System.Convert.DBNull End Sub _ Public Function Is층고Null() As Boolean Return Me.IsNull(Me.tabletbl_bunbae.층고Column) End Function _ Public Sub Set층고Null() Me(Me.tabletbl_bunbae.층고Column) = Global.System.Convert.DBNull End Sub _ Public Function Is생산기기압력손실Null() As Boolean Return Me.IsNull(Me.tabletbl_bunbae.생산기기압력손실Column) End Function _ Public Sub Set생산기기압력손실Null() Me(Me.tabletbl_bunbae.생산기기압력손실Column) = Global.System.Convert.DBNull End Sub _ Public Function Is사용기기압력손실Null() As Boolean Return Me.IsNull(Me.tabletbl_bunbae.사용기기압력손실Column) End Function _ Public Sub Set사용기기압력손실Null() Me(Me.tabletbl_bunbae.사용기기압력손실Column) = Global.System.Convert.DBNull End Sub _ Public Function Is제어밸브압력손실Null() As Boolean Return Me.IsNull(Me.tabletbl_bunbae.제어밸브압력손실Column) End Function _ Public Sub Set제어밸브압력손실Null() Me(Me.tabletbl_bunbae.제어밸브압력손실Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_newRow Inherits Global.System.Data.DataRow Private tabletbl_new As tbl_newDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_new = CType(Me.Table,tbl_newDataTable) End Sub _ Public Property code() As String Get Return CType(Me(Me.tabletbl_new.codeColumn),String) End Get Set Me(Me.tabletbl_new.codeColumn) = value End Set End Property _ Public Property 설명() As String Get If Me.Is설명Null Then Return "" Else Return CType(Me(Me.tabletbl_new.설명Column),String) End If End Get Set Me(Me.tabletbl_new.설명Column) = value End Set End Property _ Public Property 기기종류() As String Get If Me.Is기기종류Null Then Return "" Else Return CType(Me(Me.tabletbl_new.기기종류Column),String) End If End Get Set Me(Me.tabletbl_new.기기종류Column) = value End Set End Property _ Public Property 가동연료() As String Get If Me.Is가동연료Null Then Return "0" Else Return CType(Me(Me.tabletbl_new.가동연료Column),String) End If End Get Set Me(Me.tabletbl_new.가동연료Column) = value End Set End Property _ Public Property 태양열종류() As String Get If Me.Is태양열종류Null Then Return "0" Else Return CType(Me(Me.tabletbl_new.태양열종류Column),String) End If End Get Set Me(Me.tabletbl_new.태양열종류Column) = value End Set End Property _ Public Property 집열기유형() As String Get If Me.Is집열기유형Null Then Return "0" Else Return CType(Me(Me.tabletbl_new.집열기유형Column),String) End If End Get Set Me(Me.tabletbl_new.집열기유형Column) = value End Set End Property _ Public Property 집열판면적() As String Get If Me.Is집열판면적Null Then Return "0" Else Return CType(Me(Me.tabletbl_new.집열판면적Column),String) End If End Get Set Me(Me.tabletbl_new.집열판면적Column) = value End Set End Property _ Public Property 집열판방위() As String Get If Me.Is집열판방위Null Then Return "0" Else Return CType(Me(Me.tabletbl_new.집열판방위Column),String) End If End Get Set Me(Me.tabletbl_new.집열판방위Column) = value End Set End Property _ Public Property 솔라펌프의정격출력() As String Get If Me.Is솔라펌프의정격출력Null Then Return "0" Else Return CType(Me(Me.tabletbl_new.솔라펌프의정격출력Column),String) End If End Get Set Me(Me.tabletbl_new.솔라펌프의정격출력Column) = value End Set End Property _ Public Property 태양열시스템의성능() As String Get If Me.Is태양열시스템의성능Null Then Return "0" Else Return CType(Me(Me.tabletbl_new.태양열시스템의성능Column),String) End If End Get Set Me(Me.tabletbl_new.태양열시스템의성능Column) = value End Set End Property _ Public Property 무손실효율계수() As String Get If Me.Is무손실효율계수Null Then Return "" Else Return CType(Me(Me.tabletbl_new.무손실효율계수Column),String) End If End Get Set Me(Me.tabletbl_new.무손실효율계수Column) = value End Set End Property _ Public Property 열손실계수1차() As String Get If Me.Is열손실계수1차Null Then Return "0" Else Return CType(Me(Me.tabletbl_new.열손실계수1차Column),String) End If End Get Set Me(Me.tabletbl_new.열손실계수1차Column) = value End Set End Property _ Public Property 열손실계수2차() As String Get If Me.Is열손실계수2차Null Then Return "0" Else Return CType(Me(Me.tabletbl_new.열손실계수2차Column),String) End If End Get Set Me(Me.tabletbl_new.열손실계수2차Column) = value End Set End Property _ Public Property 축열탱크체적급탕() As String Get If Me.Is축열탱크체적급탕Null Then Return "" Else Return CType(Me(Me.tabletbl_new.축열탱크체적급탕Column),String) End If End Get Set Me(Me.tabletbl_new.축열탱크체적급탕Column) = value End Set End Property _ Public Property 축열탱크체적난방() As String Get If Me.Is축열탱크체적난방Null Then Return "" Else Return CType(Me(Me.tabletbl_new.축열탱크체적난방Column),String) End If End Get Set Me(Me.tabletbl_new.축열탱크체적난방Column) = value End Set End Property _ Public Property 축열탱크설치장소() As String Get If Me.Is축열탱크설치장소Null Then Return "0" Else Return CType(Me(Me.tabletbl_new.축열탱크설치장소Column),String) End If End Get Set Me(Me.tabletbl_new.축열탱크설치장소Column) = value End Set End Property _ Public Property 태양광모듈면적() As String Get If Me.Is태양광모듈면적Null Then Return "" Else Return CType(Me(Me.tabletbl_new.태양광모듈면적Column),String) End If End Get Set Me(Me.tabletbl_new.태양광모듈면적Column) = value End Set End Property _ Public Property 태양광모듈기울기() As String Get If Me.Is태양광모듈기울기Null Then Return "0" Else Return CType(Me(Me.tabletbl_new.태양광모듈기울기Column),String) End If End Get Set Me(Me.tabletbl_new.태양광모듈기울기Column) = value End Set End Property _ Public Property 태양광모듈방위() As String Get If Me.Is태양광모듈방위Null Then Return "0" Else Return CType(Me(Me.tabletbl_new.태양광모듈방위Column),String) End If End Get Set Me(Me.tabletbl_new.태양광모듈방위Column) = value End Set End Property _ Public Property 태양광모듈종류() As String Get If Me.Is태양광모듈종류Null Then Return "0" Else Return CType(Me(Me.tabletbl_new.태양광모듈종류Column),String) End If End Get Set Me(Me.tabletbl_new.태양광모듈종류Column) = value End Set End Property _ Public Property 태양광모듈적용타입() As String Get If Me.Is태양광모듈적용타입Null Then Return "0" Else Return CType(Me(Me.tabletbl_new.태양광모듈적용타입Column),String) End If End Get Set Me(Me.tabletbl_new.태양광모듈적용타입Column) = value End Set End Property _ Public Property 지열히트펌프용량() As String Get If Me.Is지열히트펌프용량Null Then Return "0" Else Return CType(Me(Me.tabletbl_new.지열히트펌프용량Column),String) End If End Get Set Me(Me.tabletbl_new.지열히트펌프용량Column) = value End Set End Property _ Public Property 열성능비난방() As String Get If Me.Is열성능비난방Null Then Return "" Else Return CType(Me(Me.tabletbl_new.열성능비난방Column),String) End If End Get Set Me(Me.tabletbl_new.열성능비난방Column) = value End Set End Property _ Public Property 열성능비냉방() As String Get If Me.Is열성능비냉방Null Then Return "" Else Return CType(Me(Me.tabletbl_new.열성능비냉방Column),String) End If End Get Set Me(Me.tabletbl_new.열성능비냉방Column) = value End Set End Property _ Public Property 펌프용량1차() As String Get If Me.Is펌프용량1차Null Then Return "" Else Return CType(Me(Me.tabletbl_new.펌프용량1차Column),String) End If End Get Set Me(Me.tabletbl_new.펌프용량1차Column) = value End Set End Property _ Public Property 펌프용량2차() As String Get If Me.Is펌프용량2차Null Then Return "" Else Return CType(Me(Me.tabletbl_new.펌프용량2차Column),String) End If End Get Set Me(Me.tabletbl_new.펌프용량2차Column) = value End Set End Property _ Public Property 열교환기설치여부() As String Get If Me.Is열교환기설치여부Null Then Return "0" Else Return CType(Me(Me.tabletbl_new.열교환기설치여부Column),String) End If End Get Set Me(Me.tabletbl_new.열교환기설치여부Column) = value End Set End Property _ Public Property 팽창탱크설치여부() As String Get If Me.Is팽창탱크설치여부Null Then Return "0" Else Return CType(Me(Me.tabletbl_new.팽창탱크설치여부Column),String) End If End Get Set Me(Me.tabletbl_new.팽창탱크설치여부Column) = value End Set End Property _ Public Property 팽창탱크체적() As String Get If Me.Is팽창탱크체적Null Then Return "" Else Return CType(Me(Me.tabletbl_new.팽창탱크체적Column),String) End If End Get Set Me(Me.tabletbl_new.팽창탱크체적Column) = value End Set End Property _ Public Property 열생산능력() As String Get If Me.Is열생산능력Null Then Return "" Else Return CType(Me(Me.tabletbl_new.열생산능력Column),String) End If End Get Set Me(Me.tabletbl_new.열생산능력Column) = value End Set End Property _ Public Property 열생산효율() As String Get If Me.Is열생산효율Null Then Return "0" Else Return CType(Me(Me.tabletbl_new.열생산효율Column),String) End If End Get Set Me(Me.tabletbl_new.열생산효율Column) = value End Set End Property _ Public Property 발전효율() As String Get If Me.Is발전효율Null Then Return "0" Else Return CType(Me(Me.tabletbl_new.발전효율Column),String) End If End Get Set Me(Me.tabletbl_new.발전효율Column) = value End Set End Property _ Public Property 태양광모듈효율() As String Get If Me.Is태양광모듈효율Null Then Return "" Else Return CType(Me(Me.tabletbl_new.태양광모듈효율Column),String) End If End Get Set Me(Me.tabletbl_new.태양광모듈효율Column) = value End Set End Property _ Public Property 지열비고() As String Get If Me.Is지열비고Null Then Return "" Else Return CType(Me(Me.tabletbl_new.지열비고Column),String) End If End Get Set Me(Me.tabletbl_new.지열비고Column) = value End Set End Property _ Public Property 열병합신재생여부() As Boolean Get If Me.Is열병합신재생여부Null Then Return false Else Return CType(Me(Me.tabletbl_new.열병합신재생여부Column),Boolean) End If End Get Set Me(Me.tabletbl_new.열병합신재생여부Column) = value End Set End Property _ Public Property 태양광용량() As String Get If Me.Is태양광용량Null Then Return "0" Else Return CType(Me(Me.tabletbl_new.태양광용량Column),String) End If End Get Set Me(Me.tabletbl_new.태양광용량Column) = value End Set End Property _ Public Function Is설명Null() As Boolean Return Me.IsNull(Me.tabletbl_new.설명Column) End Function _ Public Sub Set설명Null() Me(Me.tabletbl_new.설명Column) = Global.System.Convert.DBNull End Sub _ Public Function Is기기종류Null() As Boolean Return Me.IsNull(Me.tabletbl_new.기기종류Column) End Function _ Public Sub Set기기종류Null() Me(Me.tabletbl_new.기기종류Column) = Global.System.Convert.DBNull End Sub _ Public Function Is가동연료Null() As Boolean Return Me.IsNull(Me.tabletbl_new.가동연료Column) End Function _ Public Sub Set가동연료Null() Me(Me.tabletbl_new.가동연료Column) = Global.System.Convert.DBNull End Sub _ Public Function Is태양열종류Null() As Boolean Return Me.IsNull(Me.tabletbl_new.태양열종류Column) End Function _ Public Sub Set태양열종류Null() Me(Me.tabletbl_new.태양열종류Column) = Global.System.Convert.DBNull End Sub _ Public Function Is집열기유형Null() As Boolean Return Me.IsNull(Me.tabletbl_new.집열기유형Column) End Function _ Public Sub Set집열기유형Null() Me(Me.tabletbl_new.집열기유형Column) = Global.System.Convert.DBNull End Sub _ Public Function Is집열판면적Null() As Boolean Return Me.IsNull(Me.tabletbl_new.집열판면적Column) End Function _ Public Sub Set집열판면적Null() Me(Me.tabletbl_new.집열판면적Column) = Global.System.Convert.DBNull End Sub _ Public Function Is집열판방위Null() As Boolean Return Me.IsNull(Me.tabletbl_new.집열판방위Column) End Function _ Public Sub Set집열판방위Null() Me(Me.tabletbl_new.집열판방위Column) = Global.System.Convert.DBNull End Sub _ Public Function Is솔라펌프의정격출력Null() As Boolean Return Me.IsNull(Me.tabletbl_new.솔라펌프의정격출력Column) End Function _ Public Sub Set솔라펌프의정격출력Null() Me(Me.tabletbl_new.솔라펌프의정격출력Column) = Global.System.Convert.DBNull End Sub _ Public Function Is태양열시스템의성능Null() As Boolean Return Me.IsNull(Me.tabletbl_new.태양열시스템의성능Column) End Function _ Public Sub Set태양열시스템의성능Null() Me(Me.tabletbl_new.태양열시스템의성능Column) = Global.System.Convert.DBNull End Sub _ Public Function Is무손실효율계수Null() As Boolean Return Me.IsNull(Me.tabletbl_new.무손실효율계수Column) End Function _ Public Sub Set무손실효율계수Null() Me(Me.tabletbl_new.무손실효율계수Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열손실계수1차Null() As Boolean Return Me.IsNull(Me.tabletbl_new.열손실계수1차Column) End Function _ Public Sub Set열손실계수1차Null() Me(Me.tabletbl_new.열손실계수1차Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열손실계수2차Null() As Boolean Return Me.IsNull(Me.tabletbl_new.열손실계수2차Column) End Function _ Public Sub Set열손실계수2차Null() Me(Me.tabletbl_new.열손실계수2차Column) = Global.System.Convert.DBNull End Sub _ Public Function Is축열탱크체적급탕Null() As Boolean Return Me.IsNull(Me.tabletbl_new.축열탱크체적급탕Column) End Function _ Public Sub Set축열탱크체적급탕Null() Me(Me.tabletbl_new.축열탱크체적급탕Column) = Global.System.Convert.DBNull End Sub _ Public Function Is축열탱크체적난방Null() As Boolean Return Me.IsNull(Me.tabletbl_new.축열탱크체적난방Column) End Function _ Public Sub Set축열탱크체적난방Null() Me(Me.tabletbl_new.축열탱크체적난방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is축열탱크설치장소Null() As Boolean Return Me.IsNull(Me.tabletbl_new.축열탱크설치장소Column) End Function _ Public Sub Set축열탱크설치장소Null() Me(Me.tabletbl_new.축열탱크설치장소Column) = Global.System.Convert.DBNull End Sub _ Public Function Is태양광모듈면적Null() As Boolean Return Me.IsNull(Me.tabletbl_new.태양광모듈면적Column) End Function _ Public Sub Set태양광모듈면적Null() Me(Me.tabletbl_new.태양광모듈면적Column) = Global.System.Convert.DBNull End Sub _ Public Function Is태양광모듈기울기Null() As Boolean Return Me.IsNull(Me.tabletbl_new.태양광모듈기울기Column) End Function _ Public Sub Set태양광모듈기울기Null() Me(Me.tabletbl_new.태양광모듈기울기Column) = Global.System.Convert.DBNull End Sub _ Public Function Is태양광모듈방위Null() As Boolean Return Me.IsNull(Me.tabletbl_new.태양광모듈방위Column) End Function _ Public Sub Set태양광모듈방위Null() Me(Me.tabletbl_new.태양광모듈방위Column) = Global.System.Convert.DBNull End Sub _ Public Function Is태양광모듈종류Null() As Boolean Return Me.IsNull(Me.tabletbl_new.태양광모듈종류Column) End Function _ Public Sub Set태양광모듈종류Null() Me(Me.tabletbl_new.태양광모듈종류Column) = Global.System.Convert.DBNull End Sub _ Public Function Is태양광모듈적용타입Null() As Boolean Return Me.IsNull(Me.tabletbl_new.태양광모듈적용타입Column) End Function _ Public Sub Set태양광모듈적용타입Null() Me(Me.tabletbl_new.태양광모듈적용타입Column) = Global.System.Convert.DBNull End Sub _ Public Function Is지열히트펌프용량Null() As Boolean Return Me.IsNull(Me.tabletbl_new.지열히트펌프용량Column) End Function _ Public Sub Set지열히트펌프용량Null() Me(Me.tabletbl_new.지열히트펌프용량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열성능비난방Null() As Boolean Return Me.IsNull(Me.tabletbl_new.열성능비난방Column) End Function _ Public Sub Set열성능비난방Null() Me(Me.tabletbl_new.열성능비난방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열성능비냉방Null() As Boolean Return Me.IsNull(Me.tabletbl_new.열성능비냉방Column) End Function _ Public Sub Set열성능비냉방Null() Me(Me.tabletbl_new.열성능비냉방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is펌프용량1차Null() As Boolean Return Me.IsNull(Me.tabletbl_new.펌프용량1차Column) End Function _ Public Sub Set펌프용량1차Null() Me(Me.tabletbl_new.펌프용량1차Column) = Global.System.Convert.DBNull End Sub _ Public Function Is펌프용량2차Null() As Boolean Return Me.IsNull(Me.tabletbl_new.펌프용량2차Column) End Function _ Public Sub Set펌프용량2차Null() Me(Me.tabletbl_new.펌프용량2차Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열교환기설치여부Null() As Boolean Return Me.IsNull(Me.tabletbl_new.열교환기설치여부Column) End Function _ Public Sub Set열교환기설치여부Null() Me(Me.tabletbl_new.열교환기설치여부Column) = Global.System.Convert.DBNull End Sub _ Public Function Is팽창탱크설치여부Null() As Boolean Return Me.IsNull(Me.tabletbl_new.팽창탱크설치여부Column) End Function _ Public Sub Set팽창탱크설치여부Null() Me(Me.tabletbl_new.팽창탱크설치여부Column) = Global.System.Convert.DBNull End Sub _ Public Function Is팽창탱크체적Null() As Boolean Return Me.IsNull(Me.tabletbl_new.팽창탱크체적Column) End Function _ Public Sub Set팽창탱크체적Null() Me(Me.tabletbl_new.팽창탱크체적Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열생산능력Null() As Boolean Return Me.IsNull(Me.tabletbl_new.열생산능력Column) End Function _ Public Sub Set열생산능력Null() Me(Me.tabletbl_new.열생산능력Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열생산효율Null() As Boolean Return Me.IsNull(Me.tabletbl_new.열생산효율Column) End Function _ Public Sub Set열생산효율Null() Me(Me.tabletbl_new.열생산효율Column) = Global.System.Convert.DBNull End Sub _ Public Function Is발전효율Null() As Boolean Return Me.IsNull(Me.tabletbl_new.발전효율Column) End Function _ Public Sub Set발전효율Null() Me(Me.tabletbl_new.발전효율Column) = Global.System.Convert.DBNull End Sub _ Public Function Is태양광모듈효율Null() As Boolean Return Me.IsNull(Me.tabletbl_new.태양광모듈효율Column) End Function _ Public Sub Set태양광모듈효율Null() Me(Me.tabletbl_new.태양광모듈효율Column) = Global.System.Convert.DBNull End Sub _ Public Function Is지열비고Null() As Boolean Return Me.IsNull(Me.tabletbl_new.지열비고Column) End Function _ Public Sub Set지열비고Null() Me(Me.tabletbl_new.지열비고Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열병합신재생여부Null() As Boolean Return Me.IsNull(Me.tabletbl_new.열병합신재생여부Column) End Function _ Public Sub Set열병합신재생여부Null() Me(Me.tabletbl_new.열병합신재생여부Column) = Global.System.Convert.DBNull End Sub _ Public Function Is태양광용량Null() As Boolean Return Me.IsNull(Me.tabletbl_new.태양광용량Column) End Function _ Public Sub Set태양광용량Null() Me(Me.tabletbl_new.태양광용량Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_myounRow Inherits Global.System.Data.DataRow Private tabletbl_myoun As tbl_myounDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_myoun = CType(Me.Table,tbl_myounDataTable) End Sub _ Public Property code() As String Get Return CType(Me(Me.tabletbl_myoun.codeColumn),String) End Get Set Me(Me.tabletbl_myoun.codeColumn) = value End Set End Property _ Public Property 설명() As String Get If Me.Is설명Null Then Return "" Else Return CType(Me(Me.tabletbl_myoun.설명Column),String) End If End Get Set Me(Me.tabletbl_myoun.설명Column) = value End Set End Property _ Public Property 건축부위방식() As String Get If Me.Is건축부위방식Null Then Return "0" Else Return CType(Me(Me.tabletbl_myoun.건축부위방식Column),String) End If End Get Set Me(Me.tabletbl_myoun.건축부위방식Column) = value End Set End Property _ Public Property 방위() As String Get If Me.Is방위Null Then Return "0" Else Return CType(Me(Me.tabletbl_myoun.방위Column),String) End If End Get Set Me(Me.tabletbl_myoun.방위Column) = value End Set End Property _ Public Property 건축부위면적() As String Get If Me.Is건축부위면적Null Then Return "" Else Return CType(Me(Me.tabletbl_myoun.건축부위면적Column),String) End If End Get Set Me(Me.tabletbl_myoun.건축부위면적Column) = value End Set End Property _ Public Property 열관류율() As String Get If Me.Is열관류율Null Then Return "0" Else Return CType(Me(Me.tabletbl_myoun.열관류율Column),String) End If End Get Set Me(Me.tabletbl_myoun.열관류율Column) = value End Set End Property _ Public Property 투과율() As String Get If Me.Is투과율Null Then Return "0" Else Return CType(Me(Me.tabletbl_myoun.투과율Column),String) End If End Get Set Me(Me.tabletbl_myoun.투과율Column) = value End Set End Property _ Public Property 수평차양각() As String Get If Me.Is수평차양각Null Then Return "" Else Return CType(Me(Me.tabletbl_myoun.수평차양각Column),String) End If End Get Set Me(Me.tabletbl_myoun.수평차양각Column) = value End Set End Property _ Public Property 수직차양각() As String Get If Me.Is수직차양각Null Then Return "" Else Return CType(Me(Me.tabletbl_myoun.수직차양각Column),String) End If End Get Set Me(Me.tabletbl_myoun.수직차양각Column) = value End Set End Property _ Public Property 블라인드유무() As String Get If Me.Is블라인드유무Null Then Return "0" Else Return CType(Me(Me.tabletbl_myoun.블라인드유무Column),String) End If End Get Set Me(Me.tabletbl_myoun.블라인드유무Column) = value End Set End Property _ Public Property 블라인드위치() As String Get If Me.Is블라인드위치Null Then Return "0" Else Return CType(Me(Me.tabletbl_myoun.블라인드위치Column),String) End If End Get Set Me(Me.tabletbl_myoun.블라인드위치Column) = value End Set End Property _ Public Property 블라인드각도() As String Get If Me.Is블라인드각도Null Then Return "0" Else Return CType(Me(Me.tabletbl_myoun.블라인드각도Column),String) End If End Get Set Me(Me.tabletbl_myoun.블라인드각도Column) = value End Set End Property _ Public Property 블라인드빛종류() As String Get If Me.Is블라인드빛종류Null Then Return "0" Else Return CType(Me(Me.tabletbl_myoun.블라인드빛종류Column),String) End If End Get Set Me(Me.tabletbl_myoun.블라인드빛종류Column) = value End Set End Property _ Public Property 블라인드색상() As String Get If Me.Is블라인드색상Null Then Return "0" Else Return CType(Me(Me.tabletbl_myoun.블라인드색상Column),String) End If End Get Set Me(Me.tabletbl_myoun.블라인드색상Column) = value End Set End Property _ Public Property 존분류() As String Get If Me.Is존분류Null Then Return "0" Else Return CType(Me(Me.tabletbl_myoun.존분류Column),String) End If End Get Set Me(Me.tabletbl_myoun.존분류Column) = value End Set End Property _ Public Property 대차대조존() As String Get If Me.Is대차대조존Null Then Return "0" Else Return CType(Me(Me.tabletbl_myoun.대차대조존Column),String) End If End Get Set Me(Me.tabletbl_myoun.대차대조존Column) = value End Set End Property _ Public Property 열관류율2() As String Get If Me.Is열관류율2Null Then Return "0" Else Return CType(Me(Me.tabletbl_myoun.열관류율2Column),String) End If End Get Set Me(Me.tabletbl_myoun.열관류율2Column) = value End Set End Property _ Public Property 수평입력각() As String Get If Me.Is수평입력각Null Then Return "0" Else Return CType(Me(Me.tabletbl_myoun.수평입력각Column),String) End If End Get Set Me(Me.tabletbl_myoun.수평입력각Column) = value End Set End Property _ Public Property 수직입력각() As String Get If Me.Is수직입력각Null Then Return "0" Else Return CType(Me(Me.tabletbl_myoun.수직입력각Column),String) End If End Get Set Me(Me.tabletbl_myoun.수직입력각Column) = value End Set End Property _ Public Property 수평길이() As String Get If Me.Is수평길이Null Then Return "0" Else Return CType(Me(Me.tabletbl_myoun.수평길이Column),String) End If End Get Set Me(Me.tabletbl_myoun.수평길이Column) = value End Set End Property _ Public Property 수직길이() As String Get If Me.Is수직길이Null Then Return "0" Else Return CType(Me(Me.tabletbl_myoun.수직길이Column),String) End If End Get Set Me(Me.tabletbl_myoun.수직길이Column) = value End Set End Property _ Public Property 수평중심길이() As String Get If Me.Is수평중심길이Null Then Return "0" Else Return CType(Me(Me.tabletbl_myoun.수평중심길이Column),String) End If End Get Set Me(Me.tabletbl_myoun.수평중심길이Column) = value End Set End Property _ Public Property 수직중심길이() As String Get If Me.Is수직중심길이Null Then Return "0" Else Return CType(Me(Me.tabletbl_myoun.수직중심길이Column),String) End If End Get Set Me(Me.tabletbl_myoun.수직중심길이Column) = value End Set End Property _ Public Property 차양각선택() As String Get If Me.Is차양각선택Null Then Return "0" Else Return CType(Me(Me.tabletbl_myoun.차양각선택Column),String) End If End Get Set Me(Me.tabletbl_myoun.차양각선택Column) = value End Set End Property _ Public Property sortkey() As UShort Get If Me.IssortkeyNull Then Return 1US Else Return CType(Me(Me.tabletbl_myoun.sortkeyColumn),UShort) End If End Get Set Me(Me.tabletbl_myoun.sortkeyColumn) = value End Set End Property _ Public Function Is설명Null() As Boolean Return Me.IsNull(Me.tabletbl_myoun.설명Column) End Function _ Public Sub Set설명Null() Me(Me.tabletbl_myoun.설명Column) = Global.System.Convert.DBNull End Sub _ Public Function Is건축부위방식Null() As Boolean Return Me.IsNull(Me.tabletbl_myoun.건축부위방식Column) End Function _ Public Sub Set건축부위방식Null() Me(Me.tabletbl_myoun.건축부위방식Column) = Global.System.Convert.DBNull End Sub _ Public Function Is방위Null() As Boolean Return Me.IsNull(Me.tabletbl_myoun.방위Column) End Function _ Public Sub Set방위Null() Me(Me.tabletbl_myoun.방위Column) = Global.System.Convert.DBNull End Sub _ Public Function Is건축부위면적Null() As Boolean Return Me.IsNull(Me.tabletbl_myoun.건축부위면적Column) End Function _ Public Sub Set건축부위면적Null() Me(Me.tabletbl_myoun.건축부위면적Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열관류율Null() As Boolean Return Me.IsNull(Me.tabletbl_myoun.열관류율Column) End Function _ Public Sub Set열관류율Null() Me(Me.tabletbl_myoun.열관류율Column) = Global.System.Convert.DBNull End Sub _ Public Function Is투과율Null() As Boolean Return Me.IsNull(Me.tabletbl_myoun.투과율Column) End Function _ Public Sub Set투과율Null() Me(Me.tabletbl_myoun.투과율Column) = Global.System.Convert.DBNull End Sub _ Public Function Is수평차양각Null() As Boolean Return Me.IsNull(Me.tabletbl_myoun.수평차양각Column) End Function _ Public Sub Set수평차양각Null() Me(Me.tabletbl_myoun.수평차양각Column) = Global.System.Convert.DBNull End Sub _ Public Function Is수직차양각Null() As Boolean Return Me.IsNull(Me.tabletbl_myoun.수직차양각Column) End Function _ Public Sub Set수직차양각Null() Me(Me.tabletbl_myoun.수직차양각Column) = Global.System.Convert.DBNull End Sub _ Public Function Is블라인드유무Null() As Boolean Return Me.IsNull(Me.tabletbl_myoun.블라인드유무Column) End Function _ Public Sub Set블라인드유무Null() Me(Me.tabletbl_myoun.블라인드유무Column) = Global.System.Convert.DBNull End Sub _ Public Function Is블라인드위치Null() As Boolean Return Me.IsNull(Me.tabletbl_myoun.블라인드위치Column) End Function _ Public Sub Set블라인드위치Null() Me(Me.tabletbl_myoun.블라인드위치Column) = Global.System.Convert.DBNull End Sub _ Public Function Is블라인드각도Null() As Boolean Return Me.IsNull(Me.tabletbl_myoun.블라인드각도Column) End Function _ Public Sub Set블라인드각도Null() Me(Me.tabletbl_myoun.블라인드각도Column) = Global.System.Convert.DBNull End Sub _ Public Function Is블라인드빛종류Null() As Boolean Return Me.IsNull(Me.tabletbl_myoun.블라인드빛종류Column) End Function _ Public Sub Set블라인드빛종류Null() Me(Me.tabletbl_myoun.블라인드빛종류Column) = Global.System.Convert.DBNull End Sub _ Public Function Is블라인드색상Null() As Boolean Return Me.IsNull(Me.tabletbl_myoun.블라인드색상Column) End Function _ Public Sub Set블라인드색상Null() Me(Me.tabletbl_myoun.블라인드색상Column) = Global.System.Convert.DBNull End Sub _ Public Function Is존분류Null() As Boolean Return Me.IsNull(Me.tabletbl_myoun.존분류Column) End Function _ Public Sub Set존분류Null() Me(Me.tabletbl_myoun.존분류Column) = Global.System.Convert.DBNull End Sub _ Public Function Is대차대조존Null() As Boolean Return Me.IsNull(Me.tabletbl_myoun.대차대조존Column) End Function _ Public Sub Set대차대조존Null() Me(Me.tabletbl_myoun.대차대조존Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열관류율2Null() As Boolean Return Me.IsNull(Me.tabletbl_myoun.열관류율2Column) End Function _ Public Sub Set열관류율2Null() Me(Me.tabletbl_myoun.열관류율2Column) = Global.System.Convert.DBNull End Sub _ Public Function Is수평입력각Null() As Boolean Return Me.IsNull(Me.tabletbl_myoun.수평입력각Column) End Function _ Public Sub Set수평입력각Null() Me(Me.tabletbl_myoun.수평입력각Column) = Global.System.Convert.DBNull End Sub _ Public Function Is수직입력각Null() As Boolean Return Me.IsNull(Me.tabletbl_myoun.수직입력각Column) End Function _ Public Sub Set수직입력각Null() Me(Me.tabletbl_myoun.수직입력각Column) = Global.System.Convert.DBNull End Sub _ Public Function Is수평길이Null() As Boolean Return Me.IsNull(Me.tabletbl_myoun.수평길이Column) End Function _ Public Sub Set수평길이Null() Me(Me.tabletbl_myoun.수평길이Column) = Global.System.Convert.DBNull End Sub _ Public Function Is수직길이Null() As Boolean Return Me.IsNull(Me.tabletbl_myoun.수직길이Column) End Function _ Public Sub Set수직길이Null() Me(Me.tabletbl_myoun.수직길이Column) = Global.System.Convert.DBNull End Sub _ Public Function Is수평중심길이Null() As Boolean Return Me.IsNull(Me.tabletbl_myoun.수평중심길이Column) End Function _ Public Sub Set수평중심길이Null() Me(Me.tabletbl_myoun.수평중심길이Column) = Global.System.Convert.DBNull End Sub _ Public Function Is수직중심길이Null() As Boolean Return Me.IsNull(Me.tabletbl_myoun.수직중심길이Column) End Function _ Public Sub Set수직중심길이Null() Me(Me.tabletbl_myoun.수직중심길이Column) = Global.System.Convert.DBNull End Sub _ Public Function Is차양각선택Null() As Boolean Return Me.IsNull(Me.tabletbl_myoun.차양각선택Column) End Function _ Public Sub Set차양각선택Null() Me(Me.tabletbl_myoun.차양각선택Column) = Global.System.Convert.DBNull End Sub _ Public Function IssortkeyNull() As Boolean Return Me.IsNull(Me.tabletbl_myoun.sortkeyColumn) End Function _ Public Sub SetsortkeyNull() Me(Me.tabletbl_myoun.sortkeyColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_buhaRow Inherits Global.System.Data.DataRow Private tabletbl_buha As tbl_buhaDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_buha = CType(Me.Table,tbl_buhaDataTable) End Sub _ Public Property code() As String Get Return CType(Me(Me.tabletbl_buha.codeColumn),String) End Get Set Me(Me.tabletbl_buha.codeColumn) = value End Set End Property _ Public Property 설명() As String Get If Me.Is설명Null Then Return "" Else Return CType(Me(Me.tabletbl_buha.설명Column),String) End If End Get Set Me(Me.tabletbl_buha.설명Column) = value End Set End Property _ Public Property n01() As String Get If Me.Isn01Null Then Return "0" Else Return CType(Me(Me.tabletbl_buha.n01Column),String) End If End Get Set Me(Me.tabletbl_buha.n01Column) = value End Set End Property _ Public Property n02() As String Get If Me.Isn02Null Then Return "0" Else Return CType(Me(Me.tabletbl_buha.n02Column),String) End If End Get Set Me(Me.tabletbl_buha.n02Column) = value End Set End Property _ Public Property n03() As String Get If Me.Isn03Null Then Return "0" Else Return CType(Me(Me.tabletbl_buha.n03Column),String) End If End Get Set Me(Me.tabletbl_buha.n03Column) = value End Set End Property _ Public Property n04() As String Get If Me.Isn04Null Then Return "0" Else Return CType(Me(Me.tabletbl_buha.n04Column),String) End If End Get Set Me(Me.tabletbl_buha.n04Column) = value End Set End Property _ Public Property n05() As String Get If Me.Isn05Null Then Return "0" Else Return CType(Me(Me.tabletbl_buha.n05Column),String) End If End Get Set Me(Me.tabletbl_buha.n05Column) = value End Set End Property _ Public Property n06() As String Get If Me.Isn06Null Then Return "0" Else Return CType(Me(Me.tabletbl_buha.n06Column),String) End If End Get Set Me(Me.tabletbl_buha.n06Column) = value End Set End Property _ Public Property n07() As String Get If Me.Isn07Null Then Return "0" Else Return CType(Me(Me.tabletbl_buha.n07Column),String) End If End Get Set Me(Me.tabletbl_buha.n07Column) = value End Set End Property _ Public Property n08() As String Get If Me.Isn08Null Then Return "0" Else Return CType(Me(Me.tabletbl_buha.n08Column),String) End If End Get Set Me(Me.tabletbl_buha.n08Column) = value End Set End Property _ Public Property n09() As String Get If Me.Isn09Null Then Return "0" Else Return CType(Me(Me.tabletbl_buha.n09Column),String) End If End Get Set Me(Me.tabletbl_buha.n09Column) = value End Set End Property _ Public Property n10() As String Get If Me.Isn10Null Then Return "0" Else Return CType(Me(Me.tabletbl_buha.n10Column),String) End If End Get Set Me(Me.tabletbl_buha.n10Column) = value End Set End Property _ Public Function Is설명Null() As Boolean Return Me.IsNull(Me.tabletbl_buha.설명Column) End Function _ Public Sub Set설명Null() Me(Me.tabletbl_buha.설명Column) = Global.System.Convert.DBNull End Sub _ Public Function Isn01Null() As Boolean Return Me.IsNull(Me.tabletbl_buha.n01Column) End Function _ Public Sub Setn01Null() Me(Me.tabletbl_buha.n01Column) = Global.System.Convert.DBNull End Sub _ Public Function Isn02Null() As Boolean Return Me.IsNull(Me.tabletbl_buha.n02Column) End Function _ Public Sub Setn02Null() Me(Me.tabletbl_buha.n02Column) = Global.System.Convert.DBNull End Sub _ Public Function Isn03Null() As Boolean Return Me.IsNull(Me.tabletbl_buha.n03Column) End Function _ Public Sub Setn03Null() Me(Me.tabletbl_buha.n03Column) = Global.System.Convert.DBNull End Sub _ Public Function Isn04Null() As Boolean Return Me.IsNull(Me.tabletbl_buha.n04Column) End Function _ Public Sub Setn04Null() Me(Me.tabletbl_buha.n04Column) = Global.System.Convert.DBNull End Sub _ Public Function Isn05Null() As Boolean Return Me.IsNull(Me.tabletbl_buha.n05Column) End Function _ Public Sub Setn05Null() Me(Me.tabletbl_buha.n05Column) = Global.System.Convert.DBNull End Sub _ Public Function Isn06Null() As Boolean Return Me.IsNull(Me.tabletbl_buha.n06Column) End Function _ Public Sub Setn06Null() Me(Me.tabletbl_buha.n06Column) = Global.System.Convert.DBNull End Sub _ Public Function Isn07Null() As Boolean Return Me.IsNull(Me.tabletbl_buha.n07Column) End Function _ Public Sub Setn07Null() Me(Me.tabletbl_buha.n07Column) = Global.System.Convert.DBNull End Sub _ Public Function Isn08Null() As Boolean Return Me.IsNull(Me.tabletbl_buha.n08Column) End Function _ Public Sub Setn08Null() Me(Me.tabletbl_buha.n08Column) = Global.System.Convert.DBNull End Sub _ Public Function Isn09Null() As Boolean Return Me.IsNull(Me.tabletbl_buha.n09Column) End Function _ Public Sub Setn09Null() Me(Me.tabletbl_buha.n09Column) = Global.System.Convert.DBNull End Sub _ Public Function Isn10Null() As Boolean Return Me.IsNull(Me.tabletbl_buha.n10Column) End Function _ Public Sub Setn10Null() Me(Me.tabletbl_buha.n10Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_nbunbaeRow Inherits Global.System.Data.DataRow Private tabletbl_nbunbae As tbl_nbunbaeDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_nbunbae = CType(Me.Table,tbl_nbunbaeDataTable) End Sub _ Public Property code() As String Get Return CType(Me(Me.tabletbl_nbunbae.codeColumn),String) End Get Set Me(Me.tabletbl_nbunbae.codeColumn) = value End Set End Property _ Public Property 설명() As String Get If Me.Is설명Null Then Return "" Else Return CType(Me(Me.tabletbl_nbunbae.설명Column),String) End If End Get Set Me(Me.tabletbl_nbunbae.설명Column) = value End Set End Property _ Public Property 생산기기구분() As String Get If Me.Is생산기기구분Null Then Return "0" Else Return CType(Me(Me.tabletbl_nbunbae.생산기기구분Column),String) End If End Get Set Me(Me.tabletbl_nbunbae.생산기기구분Column) = value End Set End Property _ Public Property 표준치적용() As String Get If Me.Is표준치적용Null Then Return "0" Else Return CType(Me(Me.tabletbl_nbunbae.표준치적용Column),String) End If End Get Set Me(Me.tabletbl_nbunbae.표준치적용Column) = value End Set End Property _ Public Property 배관망유형() As String Get If Me.Is배관망유형Null Then Return "" Else Return CType(Me(Me.tabletbl_nbunbae.배관망유형Column),String) End If End Get Set Me(Me.tabletbl_nbunbae.배관망유형Column) = value End Set End Property _ Public Property 배관구간방식() As String Get If Me.Is배관구간방식Null Then Return "0" Else Return CType(Me(Me.tabletbl_nbunbae.배관구간방식Column),String) End If End Get Set Me(Me.tabletbl_nbunbae.배관구간방식Column) = value End Set End Property _ Public Property 배관구간길이() As String Get If Me.Is배관구간길이Null Then Return "" Else Return CType(Me(Me.tabletbl_nbunbae.배관구간길이Column),String) End If End Get Set Me(Me.tabletbl_nbunbae.배관구간길이Column) = value End Set End Property _ Public Property 열관류율() As String Get If Me.Is열관류율Null Then Return "0" Else Return CType(Me(Me.tabletbl_nbunbae.열관류율Column),String) End If End Get Set Me(Me.tabletbl_nbunbae.열관류율Column) = value End Set End Property _ Public Property 배관설치장소() As String Get If Me.Is배관설치장소Null Then Return "0" Else Return CType(Me(Me.tabletbl_nbunbae.배관설치장소Column),String) End If End Get Set Me(Me.tabletbl_nbunbae.배관설치장소Column) = value End Set End Property _ Public Property 건물길이x() As String Get If Me.Is건물길이xNull Then Return "0" Else Return CType(Me(Me.tabletbl_nbunbae.건물길이xColumn),String) End If End Get Set Me(Me.tabletbl_nbunbae.건물길이xColumn) = value End Set End Property _ Public Property 건물길이y() As String Get If Me.Is건물길이yNull Then Return "0" Else Return CType(Me(Me.tabletbl_nbunbae.건물길이yColumn),String) End If End Get Set Me(Me.tabletbl_nbunbae.건물길이yColumn) = value End Set End Property _ Public Property 층수() As String Get If Me.Is층수Null Then Return "0" Else Return CType(Me(Me.tabletbl_nbunbae.층수Column),String) End If End Get Set Me(Me.tabletbl_nbunbae.층수Column) = value End Set End Property _ Public Property 층고() As String Get If Me.Is층고Null Then Return "" Else Return CType(Me(Me.tabletbl_nbunbae.층고Column),String) End If End Get Set Me(Me.tabletbl_nbunbae.층고Column) = value End Set End Property _ Public Property 지관장소() As String Get If Me.Is지관장소Null Then Return "0" Else Return CType(Me(Me.tabletbl_nbunbae.지관장소Column),String) End If End Get Set Me(Me.tabletbl_nbunbae.지관장소Column) = value End Set End Property _ Public Function Is설명Null() As Boolean Return Me.IsNull(Me.tabletbl_nbunbae.설명Column) End Function _ Public Sub Set설명Null() Me(Me.tabletbl_nbunbae.설명Column) = Global.System.Convert.DBNull End Sub _ Public Function Is생산기기구분Null() As Boolean Return Me.IsNull(Me.tabletbl_nbunbae.생산기기구분Column) End Function _ Public Sub Set생산기기구분Null() Me(Me.tabletbl_nbunbae.생산기기구분Column) = Global.System.Convert.DBNull End Sub _ Public Function Is표준치적용Null() As Boolean Return Me.IsNull(Me.tabletbl_nbunbae.표준치적용Column) End Function _ Public Sub Set표준치적용Null() Me(Me.tabletbl_nbunbae.표준치적용Column) = Global.System.Convert.DBNull End Sub _ Public Function Is배관망유형Null() As Boolean Return Me.IsNull(Me.tabletbl_nbunbae.배관망유형Column) End Function _ Public Sub Set배관망유형Null() Me(Me.tabletbl_nbunbae.배관망유형Column) = Global.System.Convert.DBNull End Sub _ Public Function Is배관구간방식Null() As Boolean Return Me.IsNull(Me.tabletbl_nbunbae.배관구간방식Column) End Function _ Public Sub Set배관구간방식Null() Me(Me.tabletbl_nbunbae.배관구간방식Column) = Global.System.Convert.DBNull End Sub _ Public Function Is배관구간길이Null() As Boolean Return Me.IsNull(Me.tabletbl_nbunbae.배관구간길이Column) End Function _ Public Sub Set배관구간길이Null() Me(Me.tabletbl_nbunbae.배관구간길이Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열관류율Null() As Boolean Return Me.IsNull(Me.tabletbl_nbunbae.열관류율Column) End Function _ Public Sub Set열관류율Null() Me(Me.tabletbl_nbunbae.열관류율Column) = Global.System.Convert.DBNull End Sub _ Public Function Is배관설치장소Null() As Boolean Return Me.IsNull(Me.tabletbl_nbunbae.배관설치장소Column) End Function _ Public Sub Set배관설치장소Null() Me(Me.tabletbl_nbunbae.배관설치장소Column) = Global.System.Convert.DBNull End Sub _ Public Function Is건물길이xNull() As Boolean Return Me.IsNull(Me.tabletbl_nbunbae.건물길이xColumn) End Function _ Public Sub Set건물길이xNull() Me(Me.tabletbl_nbunbae.건물길이xColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is건물길이yNull() As Boolean Return Me.IsNull(Me.tabletbl_nbunbae.건물길이yColumn) End Function _ Public Sub Set건물길이yNull() Me(Me.tabletbl_nbunbae.건물길이yColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is층수Null() As Boolean Return Me.IsNull(Me.tabletbl_nbunbae.층수Column) End Function _ Public Sub Set층수Null() Me(Me.tabletbl_nbunbae.층수Column) = Global.System.Convert.DBNull End Sub _ Public Function Is층고Null() As Boolean Return Me.IsNull(Me.tabletbl_nbunbae.층고Column) End Function _ Public Sub Set층고Null() Me(Me.tabletbl_nbunbae.층고Column) = Global.System.Convert.DBNull End Sub _ Public Function Is지관장소Null() As Boolean Return Me.IsNull(Me.tabletbl_nbunbae.지관장소Column) End Function _ Public Sub Set지관장소Null() Me(Me.tabletbl_nbunbae.지관장소Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_kongjoRow Inherits Global.System.Data.DataRow Private tabletbl_kongjo As tbl_kongjoDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_kongjo = CType(Me.Table,tbl_kongjoDataTable) End Sub _ Public Property code() As String Get Return CType(Me(Me.tabletbl_kongjo.codeColumn),String) End Get Set Me(Me.tabletbl_kongjo.codeColumn) = value End Set End Property _ Public Property 설명() As String Get If Me.Is설명Null Then Return "" Else Return CType(Me(Me.tabletbl_kongjo.설명Column),String) End If End Get Set Me(Me.tabletbl_kongjo.설명Column) = value End Set End Property _ Public Property 공조방식() As String Get If Me.Is공조방식Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongjo.공조방식Column),String) End If End Get Set Me(Me.tabletbl_kongjo.공조방식Column) = value End Set End Property _ Public Property 설정치난방() As String Get If Me.Is설정치난방Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongjo.설정치난방Column),String) End If End Get Set Me(Me.tabletbl_kongjo.설정치난방Column) = value End Set End Property _ Public Property 설정치냉방() As String Get If Me.Is설정치냉방Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongjo.설정치냉방Column),String) End If End Get Set Me(Me.tabletbl_kongjo.설정치냉방Column) = value End Set End Property _ Public Property 최대풍량() As String Get If Me.Is최대풍량Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongjo.최대풍량Column),String) End If End Get Set Me(Me.tabletbl_kongjo.최대풍량Column) = value End Set End Property _ Public Property 리턴공기혼합여부() As String Get If Me.Is리턴공기혼합여부Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongjo.리턴공기혼합여부Column),String) End If End Get Set Me(Me.tabletbl_kongjo.리턴공기혼합여부Column) = value End Set End Property _ Public Property 가습기유형() As String Get If Me.Is가습기유형Null Then Return "" Else Return CType(Me(Me.tabletbl_kongjo.가습기유형Column),String) End If End Get Set Me(Me.tabletbl_kongjo.가습기유형Column) = value End Set End Property _ Public Property 외기냉방제어유무() As String Get If Me.Is외기냉방제어유무Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongjo.외기냉방제어유무Column),String) End If End Get Set Me(Me.tabletbl_kongjo.외기냉방제어유무Column) = value End Set End Property _ Public Property 열교환기유형() As String Get If Me.Is열교환기유형Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongjo.열교환기유형Column),String) End If End Get Set Me(Me.tabletbl_kongjo.열교환기유형Column) = value End Set End Property _ Public Property 열회수율() As String Get If Me.Is열회수율Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongjo.열회수율Column),String) End If End Get Set Me(Me.tabletbl_kongjo.열회수율Column) = value End Set End Property _ Public Property 총압력손실급기팬() As String Get If Me.Is총압력손실급기팬Null Then Return "" Else Return CType(Me(Me.tabletbl_kongjo.총압력손실급기팬Column),String) End If End Get Set Me(Me.tabletbl_kongjo.총압력손실급기팬Column) = value End Set End Property _ Public Property 총압력손실배기팬() As String Get If Me.Is총압력손실배기팬Null Then Return "" Else Return CType(Me(Me.tabletbl_kongjo.총압력손실배기팬Column),String) End If End Get Set Me(Me.tabletbl_kongjo.총압력손실배기팬Column) = value End Set End Property _ Public Property 총효율급기팬() As String Get If Me.Is총효율급기팬Null Then Return "" Else Return CType(Me(Me.tabletbl_kongjo.총효율급기팬Column),String) End If End Get Set Me(Me.tabletbl_kongjo.총효율급기팬Column) = value End Set End Property _ Public Property 총효율배기팬() As String Get If Me.Is총효율배기팬Null Then Return "" Else Return CType(Me(Me.tabletbl_kongjo.총효율배기팬Column),String) End If End Get Set Me(Me.tabletbl_kongjo.총효율배기팬Column) = value End Set End Property _ Public Property 열회수율냉() As String Get If Me.Is열회수율냉Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongjo.열회수율냉Column),String) End If End Get Set Me(Me.tabletbl_kongjo.열회수율냉Column) = value End Set End Property _ Public Property 팬효율산출방식() As String Get If Me.Is팬효율산출방식Null Then Return "입력치" Else Return CType(Me(Me.tabletbl_kongjo.팬효율산출방식Column),String) End If End Get Set Me(Me.tabletbl_kongjo.팬효율산출방식Column) = value End Set End Property _ Public Property 급기풍량() As String Get If Me.Is급기풍량Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongjo.급기풍량Column),String) End If End Get Set Me(Me.tabletbl_kongjo.급기풍량Column) = value End Set End Property _ Public Property 배기풍량() As String Get If Me.Is배기풍량Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongjo.배기풍량Column),String) End If End Get Set Me(Me.tabletbl_kongjo.배기풍량Column) = value End Set End Property _ Public Property 급기팬동력() As String Get If Me.Is급기팬동력Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongjo.급기팬동력Column),String) End If End Get Set Me(Me.tabletbl_kongjo.급기팬동력Column) = value End Set End Property _ Public Property 배기팬동력() As String Get If Me.Is배기팬동력Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongjo.배기팬동력Column),String) End If End Get Set Me(Me.tabletbl_kongjo.배기팬동력Column) = value End Set End Property _ Public Function Is설명Null() As Boolean Return Me.IsNull(Me.tabletbl_kongjo.설명Column) End Function _ Public Sub Set설명Null() Me(Me.tabletbl_kongjo.설명Column) = Global.System.Convert.DBNull End Sub _ Public Function Is공조방식Null() As Boolean Return Me.IsNull(Me.tabletbl_kongjo.공조방식Column) End Function _ Public Sub Set공조방식Null() Me(Me.tabletbl_kongjo.공조방식Column) = Global.System.Convert.DBNull End Sub _ Public Function Is설정치난방Null() As Boolean Return Me.IsNull(Me.tabletbl_kongjo.설정치난방Column) End Function _ Public Sub Set설정치난방Null() Me(Me.tabletbl_kongjo.설정치난방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is설정치냉방Null() As Boolean Return Me.IsNull(Me.tabletbl_kongjo.설정치냉방Column) End Function _ Public Sub Set설정치냉방Null() Me(Me.tabletbl_kongjo.설정치냉방Column) = Global.System.Convert.DBNull End Sub _ Public Function Is최대풍량Null() As Boolean Return Me.IsNull(Me.tabletbl_kongjo.최대풍량Column) End Function _ Public Sub Set최대풍량Null() Me(Me.tabletbl_kongjo.최대풍량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is리턴공기혼합여부Null() As Boolean Return Me.IsNull(Me.tabletbl_kongjo.리턴공기혼합여부Column) End Function _ Public Sub Set리턴공기혼합여부Null() Me(Me.tabletbl_kongjo.리턴공기혼합여부Column) = Global.System.Convert.DBNull End Sub _ Public Function Is가습기유형Null() As Boolean Return Me.IsNull(Me.tabletbl_kongjo.가습기유형Column) End Function _ Public Sub Set가습기유형Null() Me(Me.tabletbl_kongjo.가습기유형Column) = Global.System.Convert.DBNull End Sub _ Public Function Is외기냉방제어유무Null() As Boolean Return Me.IsNull(Me.tabletbl_kongjo.외기냉방제어유무Column) End Function _ Public Sub Set외기냉방제어유무Null() Me(Me.tabletbl_kongjo.외기냉방제어유무Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열교환기유형Null() As Boolean Return Me.IsNull(Me.tabletbl_kongjo.열교환기유형Column) End Function _ Public Sub Set열교환기유형Null() Me(Me.tabletbl_kongjo.열교환기유형Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열회수율Null() As Boolean Return Me.IsNull(Me.tabletbl_kongjo.열회수율Column) End Function _ Public Sub Set열회수율Null() Me(Me.tabletbl_kongjo.열회수율Column) = Global.System.Convert.DBNull End Sub _ Public Function Is총압력손실급기팬Null() As Boolean Return Me.IsNull(Me.tabletbl_kongjo.총압력손실급기팬Column) End Function _ Public Sub Set총압력손실급기팬Null() Me(Me.tabletbl_kongjo.총압력손실급기팬Column) = Global.System.Convert.DBNull End Sub _ Public Function Is총압력손실배기팬Null() As Boolean Return Me.IsNull(Me.tabletbl_kongjo.총압력손실배기팬Column) End Function _ Public Sub Set총압력손실배기팬Null() Me(Me.tabletbl_kongjo.총압력손실배기팬Column) = Global.System.Convert.DBNull End Sub _ Public Function Is총효율급기팬Null() As Boolean Return Me.IsNull(Me.tabletbl_kongjo.총효율급기팬Column) End Function _ Public Sub Set총효율급기팬Null() Me(Me.tabletbl_kongjo.총효율급기팬Column) = Global.System.Convert.DBNull End Sub _ Public Function Is총효율배기팬Null() As Boolean Return Me.IsNull(Me.tabletbl_kongjo.총효율배기팬Column) End Function _ Public Sub Set총효율배기팬Null() Me(Me.tabletbl_kongjo.총효율배기팬Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열회수율냉Null() As Boolean Return Me.IsNull(Me.tabletbl_kongjo.열회수율냉Column) End Function _ Public Sub Set열회수율냉Null() Me(Me.tabletbl_kongjo.열회수율냉Column) = Global.System.Convert.DBNull End Sub _ Public Function Is팬효율산출방식Null() As Boolean Return Me.IsNull(Me.tabletbl_kongjo.팬효율산출방식Column) End Function _ Public Sub Set팬효율산출방식Null() Me(Me.tabletbl_kongjo.팬효율산출방식Column) = Global.System.Convert.DBNull End Sub _ Public Function Is급기풍량Null() As Boolean Return Me.IsNull(Me.tabletbl_kongjo.급기풍량Column) End Function _ Public Sub Set급기풍량Null() Me(Me.tabletbl_kongjo.급기풍량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is배기풍량Null() As Boolean Return Me.IsNull(Me.tabletbl_kongjo.배기풍량Column) End Function _ Public Sub Set배기풍량Null() Me(Me.tabletbl_kongjo.배기풍량Column) = Global.System.Convert.DBNull End Sub _ Public Function Is급기팬동력Null() As Boolean Return Me.IsNull(Me.tabletbl_kongjo.급기팬동력Column) End Function _ Public Sub Set급기팬동력Null() Me(Me.tabletbl_kongjo.급기팬동력Column) = Global.System.Convert.DBNull End Sub _ Public Function Is배기팬동력Null() As Boolean Return Me.IsNull(Me.tabletbl_kongjo.배기팬동력Column) End Function _ Public Sub Set배기팬동력Null() Me(Me.tabletbl_kongjo.배기팬동력Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_kongkubRow Inherits Global.System.Data.DataRow Private tabletbl_kongkub As tbl_kongkubDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_kongkub = CType(Me.Table,tbl_kongkubDataTable) End Sub _ Public Property code() As String Get Return CType(Me(Me.tabletbl_kongkub.codeColumn),String) End Get Set Me(Me.tabletbl_kongkub.codeColumn) = value End Set End Property _ Public Property 설명() As String Get If Me.Is설명Null Then Return "" Else Return CType(Me(Me.tabletbl_kongkub.설명Column),String) End If End Get Set Me(Me.tabletbl_kongkub.설명Column) = value End Set End Property _ Public Property 열공급시스템() As String Get If Me.Is열공급시스템Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongkub.열공급시스템Column),String) End If End Get Set Me(Me.tabletbl_kongkub.열공급시스템Column) = value End Set End Property _ Public Property 열공급생산기기() As String Get If Me.Is열공급생산기기Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongkub.열공급생산기기Column),String) End If End Get Set Me(Me.tabletbl_kongkub.열공급생산기기Column) = value End Set End Property _ Public Property 노출형제어() As String Get If Me.Is노출형제어Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongkub.노출형제어Column),String) End If End Get Set Me(Me.tabletbl_kongkub.노출형제어Column) = value End Set End Property _ Public Property 바닥난방열제어() As String Get If Me.Is바닥난방열제어Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongkub.바닥난방열제어Column),String) End If End Get Set Me(Me.tabletbl_kongkub.바닥난방열제어Column) = value End Set End Property _ Public Property 바닥난방열건축부위() As String Get If Me.Is바닥난방열건축부위Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongkub.바닥난방열건축부위Column),String) End If End Get Set Me(Me.tabletbl_kongkub.바닥난방열건축부위Column) = value End Set End Property _ Public Property 바닥난방전기제어() As String Get If Me.Is바닥난방전기제어Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongkub.바닥난방전기제어Column),String) End If End Get Set Me(Me.tabletbl_kongkub.바닥난방전기제어Column) = value End Set End Property _ Public Property 바닥난방전기건축부위() As String Get If Me.Is바닥난방전기건축부위Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongkub.바닥난방전기건축부위Column),String) End If End Get Set Me(Me.tabletbl_kongkub.바닥난방전기건축부위Column) = value End Set End Property _ Public Property 전기난방제어() As String Get If Me.Is전기난방제어Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongkub.전기난방제어Column),String) End If End Get Set Me(Me.tabletbl_kongkub.전기난방제어Column) = value End Set End Property _ Public Property 제어기의정격전력() As String Get If Me.Is제어기의정격전력Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongkub.제어기의정격전력Column),String) End If End Get Set Me(Me.tabletbl_kongkub.제어기의정격전력Column) = value End Set End Property _ Public Property 팬송풍기정격전력() As String Get If Me.Is팬송풍기정격전력Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongkub.팬송풍기정격전력Column),String) End If End Get Set Me(Me.tabletbl_kongkub.팬송풍기정격전력Column) = value End Set End Property _ Public Property 펌프정격전력() As String Get If Me.Is펌프정격전력Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongkub.펌프정격전력Column),String) End If End Get Set Me(Me.tabletbl_kongkub.펌프정격전력Column) = value End Set End Property _ Public Property 팬송풍기수() As String Get If Me.Is팬송풍기수Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongkub.팬송풍기수Column),String) End If End Get Set Me(Me.tabletbl_kongkub.팬송풍기수Column) = value End Set End Property _ Public Property 추가펌프수() As String Get If Me.Is추가펌프수Null Then Return "0" Else Return CType(Me(Me.tabletbl_kongkub.추가펌프수Column),String) End If End Get Set Me(Me.tabletbl_kongkub.추가펌프수Column) = value End Set End Property _ Public Function Is설명Null() As Boolean Return Me.IsNull(Me.tabletbl_kongkub.설명Column) End Function _ Public Sub Set설명Null() Me(Me.tabletbl_kongkub.설명Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열공급시스템Null() As Boolean Return Me.IsNull(Me.tabletbl_kongkub.열공급시스템Column) End Function _ Public Sub Set열공급시스템Null() Me(Me.tabletbl_kongkub.열공급시스템Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열공급생산기기Null() As Boolean Return Me.IsNull(Me.tabletbl_kongkub.열공급생산기기Column) End Function _ Public Sub Set열공급생산기기Null() Me(Me.tabletbl_kongkub.열공급생산기기Column) = Global.System.Convert.DBNull End Sub _ Public Function Is노출형제어Null() As Boolean Return Me.IsNull(Me.tabletbl_kongkub.노출형제어Column) End Function _ Public Sub Set노출형제어Null() Me(Me.tabletbl_kongkub.노출형제어Column) = Global.System.Convert.DBNull End Sub _ Public Function Is바닥난방열제어Null() As Boolean Return Me.IsNull(Me.tabletbl_kongkub.바닥난방열제어Column) End Function _ Public Sub Set바닥난방열제어Null() Me(Me.tabletbl_kongkub.바닥난방열제어Column) = Global.System.Convert.DBNull End Sub _ Public Function Is바닥난방열건축부위Null() As Boolean Return Me.IsNull(Me.tabletbl_kongkub.바닥난방열건축부위Column) End Function _ Public Sub Set바닥난방열건축부위Null() Me(Me.tabletbl_kongkub.바닥난방열건축부위Column) = Global.System.Convert.DBNull End Sub _ Public Function Is바닥난방전기제어Null() As Boolean Return Me.IsNull(Me.tabletbl_kongkub.바닥난방전기제어Column) End Function _ Public Sub Set바닥난방전기제어Null() Me(Me.tabletbl_kongkub.바닥난방전기제어Column) = Global.System.Convert.DBNull End Sub _ Public Function Is바닥난방전기건축부위Null() As Boolean Return Me.IsNull(Me.tabletbl_kongkub.바닥난방전기건축부위Column) End Function _ Public Sub Set바닥난방전기건축부위Null() Me(Me.tabletbl_kongkub.바닥난방전기건축부위Column) = Global.System.Convert.DBNull End Sub _ Public Function Is전기난방제어Null() As Boolean Return Me.IsNull(Me.tabletbl_kongkub.전기난방제어Column) End Function _ Public Sub Set전기난방제어Null() Me(Me.tabletbl_kongkub.전기난방제어Column) = Global.System.Convert.DBNull End Sub _ Public Function Is제어기의정격전력Null() As Boolean Return Me.IsNull(Me.tabletbl_kongkub.제어기의정격전력Column) End Function _ Public Sub Set제어기의정격전력Null() Me(Me.tabletbl_kongkub.제어기의정격전력Column) = Global.System.Convert.DBNull End Sub _ Public Function Is팬송풍기정격전력Null() As Boolean Return Me.IsNull(Me.tabletbl_kongkub.팬송풍기정격전력Column) End Function _ Public Sub Set팬송풍기정격전력Null() Me(Me.tabletbl_kongkub.팬송풍기정격전력Column) = Global.System.Convert.DBNull End Sub _ Public Function Is펌프정격전력Null() As Boolean Return Me.IsNull(Me.tabletbl_kongkub.펌프정격전력Column) End Function _ Public Sub Set펌프정격전력Null() Me(Me.tabletbl_kongkub.펌프정격전력Column) = Global.System.Convert.DBNull End Sub _ Public Function Is팬송풍기수Null() As Boolean Return Me.IsNull(Me.tabletbl_kongkub.팬송풍기수Column) End Function _ Public Sub Set팬송풍기수Null() Me(Me.tabletbl_kongkub.팬송풍기수Column) = Global.System.Convert.DBNull End Sub _ Public Function Is추가펌프수Null() As Boolean Return Me.IsNull(Me.tabletbl_kongkub.추가펌프수Column) End Function _ Public Sub Set추가펌프수Null() Me(Me.tabletbl_kongkub.추가펌프수Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_ykRow Inherits Global.System.Data.DataRow Private tabletbl_yk As tbl_ykDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_yk = CType(Me.Table,tbl_ykDataTable) End Sub _ Public Property code() As String Get Return CType(Me(Me.tabletbl_yk.codeColumn),String) End Get Set Me(Me.tabletbl_yk.codeColumn) = value End Set End Property _ Public Property 설명() As String Get If Me.Is설명Null Then Return "" Else Return CType(Me(Me.tabletbl_yk.설명Column),String) End If End Get Set Me(Me.tabletbl_yk.설명Column) = value End Set End Property _ Public Property 열관류율() As String Get If Me.Is열관류율Null Then Return "0" Else Return CType(Me(Me.tabletbl_yk.열관류율Column),String) End If End Get Set Me(Me.tabletbl_yk.열관류율Column) = value End Set End Property _ Public Property 면형태() As String Get If Me.Is면형태Null Then Return "0" Else Return CType(Me(Me.tabletbl_yk.면형태Column),String) End If End Get Set Me(Me.tabletbl_yk.면형태Column) = value End Set End Property _ Public Property 창호열관류율() As String Get If Me.Is창호열관류율Null Then Return "0" Else Return CType(Me(Me.tabletbl_yk.창호열관류율Column),String) End If End Get Set Me(Me.tabletbl_yk.창호열관류율Column) = value End Set End Property _ Public Property 일사에너지투과율() As String Get If Me.Is일사에너지투과율Null Then Return "0" Else Return CType(Me(Me.tabletbl_yk.일사에너지투과율Column),String) End If End Get Set Me(Me.tabletbl_yk.일사에너지투과율Column) = value End Set End Property _ Public Property 창호세부설명() As String Get If Me.Is창호세부설명Null Then Return "" Else Return CType(Me(Me.tabletbl_yk.창호세부설명Column),String) End If End Get Set Me(Me.tabletbl_yk.창호세부설명Column) = value End Set End Property _ Public Property 발코니창호여부() As Boolean Get If Me.Is발코니창호여부Null Then Return false Else Return CType(Me(Me.tabletbl_yk.발코니창호여부Column),Boolean) End If End Get Set Me(Me.tabletbl_yk.발코니창호여부Column) = value End Set End Property _ Public Property 발코니창호열관류율() As String Get If Me.Is발코니창호열관류율Null Then Return "0" Else Return CType(Me(Me.tabletbl_yk.발코니창호열관류율Column),String) End If End Get Set Me(Me.tabletbl_yk.발코니창호열관류율Column) = value End Set End Property _ Public Property 발코니투과율() As String Get If Me.Is발코니투과율Null Then Return "0" Else Return CType(Me(Me.tabletbl_yk.발코니투과율Column),String) End If End Get Set Me(Me.tabletbl_yk.발코니투과율Column) = value End Set End Property _ Public Property 투과율() As String Get If Me.Is투과율Null Then Return "0" Else Return CType(Me(Me.tabletbl_yk.투과율Column),String) End If End Get Set Me(Me.tabletbl_yk.투과율Column) = value End Set End Property _ Public Function Is설명Null() As Boolean Return Me.IsNull(Me.tabletbl_yk.설명Column) End Function _ Public Sub Set설명Null() Me(Me.tabletbl_yk.설명Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열관류율Null() As Boolean Return Me.IsNull(Me.tabletbl_yk.열관류율Column) End Function _ Public Sub Set열관류율Null() Me(Me.tabletbl_yk.열관류율Column) = Global.System.Convert.DBNull End Sub _ Public Function Is면형태Null() As Boolean Return Me.IsNull(Me.tabletbl_yk.면형태Column) End Function _ Public Sub Set면형태Null() Me(Me.tabletbl_yk.면형태Column) = Global.System.Convert.DBNull End Sub _ Public Function Is창호열관류율Null() As Boolean Return Me.IsNull(Me.tabletbl_yk.창호열관류율Column) End Function _ Public Sub Set창호열관류율Null() Me(Me.tabletbl_yk.창호열관류율Column) = Global.System.Convert.DBNull End Sub _ Public Function Is일사에너지투과율Null() As Boolean Return Me.IsNull(Me.tabletbl_yk.일사에너지투과율Column) End Function _ Public Sub Set일사에너지투과율Null() Me(Me.tabletbl_yk.일사에너지투과율Column) = Global.System.Convert.DBNull End Sub _ Public Function Is창호세부설명Null() As Boolean Return Me.IsNull(Me.tabletbl_yk.창호세부설명Column) End Function _ Public Sub Set창호세부설명Null() Me(Me.tabletbl_yk.창호세부설명Column) = Global.System.Convert.DBNull End Sub _ Public Function Is발코니창호여부Null() As Boolean Return Me.IsNull(Me.tabletbl_yk.발코니창호여부Column) End Function _ Public Sub Set발코니창호여부Null() Me(Me.tabletbl_yk.발코니창호여부Column) = Global.System.Convert.DBNull End Sub _ Public Function Is발코니창호열관류율Null() As Boolean Return Me.IsNull(Me.tabletbl_yk.발코니창호열관류율Column) End Function _ Public Sub Set발코니창호열관류율Null() Me(Me.tabletbl_yk.발코니창호열관류율Column) = Global.System.Convert.DBNull End Sub _ Public Function Is발코니투과율Null() As Boolean Return Me.IsNull(Me.tabletbl_yk.발코니투과율Column) End Function _ Public Sub Set발코니투과율Null() Me(Me.tabletbl_yk.발코니투과율Column) = Global.System.Convert.DBNull End Sub _ Public Function Is투과율Null() As Boolean Return Me.IsNull(Me.tabletbl_yk.투과율Column) End Function _ Public Sub Set투과율Null() Me(Me.tabletbl_yk.투과율Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_ykdetailRow Inherits Global.System.Data.DataRow Private tabletbl_ykdetail As tbl_ykdetailDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_ykdetail = CType(Me.Table,tbl_ykdetailDataTable) End Sub _ Public Property pcode() As String Get Return CType(Me(Me.tabletbl_ykdetail.pcodeColumn),String) End Get Set Me(Me.tabletbl_ykdetail.pcodeColumn) = value End Set End Property _ Public Property code() As String Get Return CType(Me(Me.tabletbl_ykdetail.codeColumn),String) End Get Set Me(Me.tabletbl_ykdetail.codeColumn) = value End Set End Property _ Public Property 설명() As String Get If Me.Is설명Null Then Return "0" Else Return CType(Me(Me.tabletbl_ykdetail.설명Column),String) End If End Get Set Me(Me.tabletbl_ykdetail.설명Column) = value End Set End Property _ Public Property 열전도율() As String Get If Me.Is열전도율Null Then Return "1" Else Return CType(Me(Me.tabletbl_ykdetail.열전도율Column),String) End If End Get Set Me(Me.tabletbl_ykdetail.열전도율Column) = value End Set End Property _ Public Property 두께() As String Get If Me.Is두께Null Then Return "10" Else Return CType(Me(Me.tabletbl_ykdetail.두께Column),String) End If End Get Set Me(Me.tabletbl_ykdetail.두께Column) = value End Set End Property _ Public Property 구분() As String Get If Me.Is구분Null Then Return "5" Else Return CType(Me(Me.tabletbl_ykdetail.구분Column),String) End If End Get Set Me(Me.tabletbl_ykdetail.구분Column) = value End Set End Property _ Public Property 열저항() As String Get Try Return CType(Me(Me.tabletbl_ykdetail.열저항Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'tbl_ykdetail' 테이블의 '열저항' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tabletbl_ykdetail.열저항Column) = value End Set End Property _ Public Property 전경색() As String Get If Me.Is전경색Null Then Return "-16776961" Else Return CType(Me(Me.tabletbl_ykdetail.전경색Column),String) End If End Get Set Me(Me.tabletbl_ykdetail.전경색Column) = value End Set End Property _ Public Property 후경색() As String Get If Me.Is후경색Null Then Return "-1" Else Return CType(Me(Me.tabletbl_ykdetail.후경색Column),String) End If End Get Set Me(Me.tabletbl_ykdetail.후경색Column) = value End Set End Property _ Public Property 커스텀() As String Get If Me.Is커스텀Null Then Return "N" Else Return CType(Me(Me.tabletbl_ykdetail.커스텀Column),String) End If End Get Set Me(Me.tabletbl_ykdetail.커스텀Column) = value End Set End Property _ Public Function Is설명Null() As Boolean Return Me.IsNull(Me.tabletbl_ykdetail.설명Column) End Function _ Public Sub Set설명Null() Me(Me.tabletbl_ykdetail.설명Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열전도율Null() As Boolean Return Me.IsNull(Me.tabletbl_ykdetail.열전도율Column) End Function _ Public Sub Set열전도율Null() Me(Me.tabletbl_ykdetail.열전도율Column) = Global.System.Convert.DBNull End Sub _ Public Function Is두께Null() As Boolean Return Me.IsNull(Me.tabletbl_ykdetail.두께Column) End Function _ Public Sub Set두께Null() Me(Me.tabletbl_ykdetail.두께Column) = Global.System.Convert.DBNull End Sub _ Public Function Is구분Null() As Boolean Return Me.IsNull(Me.tabletbl_ykdetail.구분Column) End Function _ Public Sub Set구분Null() Me(Me.tabletbl_ykdetail.구분Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열저항Null() As Boolean Return Me.IsNull(Me.tabletbl_ykdetail.열저항Column) End Function _ Public Sub Set열저항Null() Me(Me.tabletbl_ykdetail.열저항Column) = Global.System.Convert.DBNull End Sub _ Public Function Is전경색Null() As Boolean Return Me.IsNull(Me.tabletbl_ykdetail.전경색Column) End Function _ Public Sub Set전경색Null() Me(Me.tabletbl_ykdetail.전경색Column) = Global.System.Convert.DBNull End Sub _ Public Function Is후경색Null() As Boolean Return Me.IsNull(Me.tabletbl_ykdetail.후경색Column) End Function _ Public Sub Set후경색Null() Me(Me.tabletbl_ykdetail.후경색Column) = Global.System.Convert.DBNull End Sub _ Public Function Is커스텀Null() As Boolean Return Me.IsNull(Me.tabletbl_ykdetail.커스텀Column) End Function _ Public Sub Set커스텀Null() Me(Me.tabletbl_ykdetail.커스텀Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_zoneRow Inherits Global.System.Data.DataRow Private tabletbl_zone As tbl_zoneDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_zone = CType(Me.Table,tbl_zoneDataTable) End Sub _ Public Property code() As String Get Return CType(Me(Me.tabletbl_zone.codeColumn),String) End Get Set Me(Me.tabletbl_zone.codeColumn) = value End Set End Property _ Public Property 설명() As String Get If Me.Is설명Null Then Return "" Else Return CType(Me(Me.tabletbl_zone.설명Column),String) End If End Get Set Me(Me.tabletbl_zone.설명Column) = value End Set End Property _ Public Property 프로필() As String Get If Me.Is프로필Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.프로필Column),String) End If End Get Set Me(Me.tabletbl_zone.프로필Column) = value End Set End Property _ Public Property 면적() As String Get If Me.Is면적Null Then Return "" Else Return CType(Me(Me.tabletbl_zone.면적Column),String) End If End Get Set Me(Me.tabletbl_zone.면적Column) = value End Set End Property _ Public Property 천장고p() As String Get If Me.Is천장고pNull Then Return "" Else Return CType(Me(Me.tabletbl_zone.천장고pColumn),String) End If End Get Set Me(Me.tabletbl_zone.천장고pColumn) = value End Set End Property _ Public Property 순실체적() As String Get If Me.Is순실체적Null Then Return "" Else Return CType(Me(Me.tabletbl_zone.순실체적Column),String) End If End Get Set Me(Me.tabletbl_zone.순실체적Column) = value End Set End Property _ Public Property 열저장능력() As String Get If Me.Is열저장능력Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.열저장능력Column),String) End If End Get Set Me(Me.tabletbl_zone.열저장능력Column) = value End Set End Property _ Public Property 열교가산치() As String Get If Me.Is열교가산치Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.열교가산치Column),String) End If End Get Set Me(Me.tabletbl_zone.열교가산치Column) = value End Set End Property _ Public Property 침기율() As String Get If Me.Is침기율Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.침기율Column),String) End If End Get Set Me(Me.tabletbl_zone.침기율Column) = value End Set End Property _ Public Property 냉난방방식() As String Get If Me.Is냉난방방식Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.냉난방방식Column),String) End If End Get Set Me(Me.tabletbl_zone.냉난방방식Column) = value End Set End Property _ Public Property 냉난방공조() As String Get If Me.Is냉난방공조Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.냉난방공조Column),String) End If End Get Set Me(Me.tabletbl_zone.냉난방공조Column) = value End Set End Property _ Public Property 외기부하처리여부() As String Get If Me.Is외기부하처리여부Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.외기부하처리여부Column),String) End If End Get Set Me(Me.tabletbl_zone.외기부하처리여부Column) = value End Set End Property _ Public Property 지역() As String Get If Me.Is지역Null Then Return "" Else Return CType(Me(Me.tabletbl_zone.지역Column),String) End If End Get Set Me(Me.tabletbl_zone.지역Column) = value End Set End Property _ Public Property 야간운전방식() As String Get If Me.Is야간운전방식Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.야간운전방식Column),String) End If End Get Set Me(Me.tabletbl_zone.야간운전방식Column) = value End Set End Property _ Public Property 주말운전방식() As String Get If Me.Is주말운전방식Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.주말운전방식Column),String) End If End Get Set Me(Me.tabletbl_zone.주말운전방식Column) = value End Set End Property _ Public Property 냉난방열공급시스템() As String Get If Me.Is냉난방열공급시스템Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.냉난방열공급시스템Column),String) End If End Get Set Me(Me.tabletbl_zone.냉난방열공급시스템Column) = value End Set End Property _ Public Property 냉난방열공급시스템수() As String Get If Me.Is냉난방열공급시스템수Null Then Return "" Else Return CType(Me(Me.tabletbl_zone.냉난방열공급시스템수Column),String) End If End Get Set Me(Me.tabletbl_zone.냉난방열공급시스템수Column) = value End Set End Property _ Public Property 냉난방공조처리시스템() As String Get If Me.Is냉난방공조처리시스템Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.냉난방공조처리시스템Column),String) End If End Get Set Me(Me.tabletbl_zone.냉난방공조처리시스템Column) = value End Set End Property _ Public Property 열생산난방생산기기() As String Get If Me.Is열생산난방생산기기Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.열생산난방생산기기Column),String) End If End Get Set Me(Me.tabletbl_zone.열생산난방생산기기Column) = value End Set End Property _ Public Property 공조냉방생산기기() As String Get Try Return CType(Me(Me.tabletbl_zone.공조냉방생산기기Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'tbl_zone' 테이블의 '공조냉방생산기기' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tabletbl_zone.공조냉방생산기기Column) = value End Set End Property _ Public Property 공조난방생산기기() As String Get Try Return CType(Me(Me.tabletbl_zone.공조난방생산기기Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'tbl_zone' 테이블의 '공조난방생산기기' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tabletbl_zone.공조난방생산기기Column) = value End Set End Property _ Public Property 열생산급탕생산기기() As String Get If Me.Is열생산급탕생산기기Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.열생산급탕생산기기Column),String) End If End Get Set Me(Me.tabletbl_zone.열생산급탕생산기기Column) = value End Set End Property _ Public Property 열생산냉방생산기기() As String Get If Me.Is열생산냉방생산기기Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.열생산냉방생산기기Column),String) End If End Get Set Me(Me.tabletbl_zone.열생산냉방생산기기Column) = value End Set End Property _ Public Property 열생산가습생산기기() As String Get If Me.Is열생산가습생산기기Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.열생산가습생산기기Column),String) End If End Get Set Me(Me.tabletbl_zone.열생산가습생산기기Column) = value End Set End Property _ Public Property 냉난방공조분배시스템() As String Get If Me.Is냉난방공조분배시스템Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.냉난방공조분배시스템Column),String) End If End Get Set Me(Me.tabletbl_zone.냉난방공조분배시스템Column) = value End Set End Property _ Public Property 냉난방분배시스템() As String Get If Me.Is냉난방분배시스템Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.냉난방분배시스템Column),String) End If End Get Set Me(Me.tabletbl_zone.냉난방분배시스템Column) = value End Set End Property _ Public Property 조명부하산출방법() As String Get If Me.Is조명부하산출방법Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.조명부하산출방법Column),String) End If End Get Set Me(Me.tabletbl_zone.조명부하산출방법Column) = value End Set End Property _ Public Property 요구조도() As String Get If Me.Is요구조도Null Then Return "" Else Return CType(Me(Me.tabletbl_zone.요구조도Column),String) End If End Get Set Me(Me.tabletbl_zone.요구조도Column) = value End Set End Property _ Public Property 천장고() As String Get If Me.Is천장고Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.천장고Column),String) End If End Get Set Me(Me.tabletbl_zone.천장고Column) = value End Set End Property _ Public Property 작업면높이() As String Get If Me.Is작업면높이Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.작업면높이Column),String) End If End Get Set Me(Me.tabletbl_zone.작업면높이Column) = value End Set End Property _ Public Property 실깊이() As String Get If Me.Is실깊이Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.실깊이Column),String) End If End Get Set Me(Me.tabletbl_zone.실깊이Column) = value End Set End Property _ Public Property 실너비() As String Get If Me.Is실너비Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.실너비Column),String) End If End Get Set Me(Me.tabletbl_zone.실너비Column) = value End Set End Property _ Public Property 실지수() As String Get If Me.Is실지수Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.실지수Column),String) End If End Get Set Me(Me.tabletbl_zone.실지수Column) = value End Set End Property _ Public Property 조명방식() As String Get If Me.Is조명방식Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.조명방식Column),String) End If End Get Set Me(Me.tabletbl_zone.조명방식Column) = value End Set End Property _ Public Property 인공광원() As String Get If Me.Is인공광원Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.인공광원Column),String) End If End Get Set Me(Me.tabletbl_zone.인공광원Column) = value End Set End Property _ Public Property 보수율() As String Get If Me.Is보수율Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.보수율Column),String) End If End Get Set Me(Me.tabletbl_zone.보수율Column) = value End Set End Property _ Public Property 조명기기효율() As String Get If Me.Is조명기기효율Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.조명기기효율Column),String) End If End Get Set Me(Me.tabletbl_zone.조명기기효율Column) = value End Set End Property _ Public Property 조명률() As String Get If Me.Is조명률Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.조명률Column),String) End If End Get Set Me(Me.tabletbl_zone.조명률Column) = value End Set End Property _ Public Property 조명에너지부하율계산치() As String Get If Me.Is조명에너지부하율계산치Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.조명에너지부하율계산치Column),String) End If End Get Set Me(Me.tabletbl_zone.조명에너지부하율계산치Column) = value End Set End Property _ Public Property 조명에너지부하율입력치() As String Get If Me.Is조명에너지부하율입력치Null Then Return "0" Else Return CType(Me(Me.tabletbl_zone.조명에너지부하율입력치Column),String) End If End Get Set Me(Me.tabletbl_zone.조명에너지부하율입력치Column) = value End Set End Property _ Public Property 입력존의수() As String Get If Me.Is입력존의수Null Then Return "1" Else Return CType(Me(Me.tabletbl_zone.입력존의수Column),String) End If End Get Set Me(Me.tabletbl_zone.입력존의수Column) = value End Set End Property _ Public Property 그룹() As String Get If Me.Is그룹Null Then Return "일반" Else Return CType(Me(Me.tabletbl_zone.그룹Column),String) End If End Get Set Me(Me.tabletbl_zone.그룹Column) = value End Set End Property _ Public Property sortkey() As UShort Get If Me.IssortkeyNull Then Return 1US Else Return CType(Me(Me.tabletbl_zone.sortkeyColumn),UShort) End If End Get Set Me(Me.tabletbl_zone.sortkeyColumn) = value End Set End Property _ Public Property 그룹설명() As String Get If Me.Is그룹설명Null Then Return "" Else Return CType(Me(Me.tabletbl_zone.그룹설명Column),String) End If End Get Set Me(Me.tabletbl_zone.그룹설명Column) = value End Set End Property _ Public Function Is설명Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.설명Column) End Function _ Public Sub Set설명Null() Me(Me.tabletbl_zone.설명Column) = Global.System.Convert.DBNull End Sub _ Public Function Is프로필Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.프로필Column) End Function _ Public Sub Set프로필Null() Me(Me.tabletbl_zone.프로필Column) = Global.System.Convert.DBNull End Sub _ Public Function Is면적Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.면적Column) End Function _ Public Sub Set면적Null() Me(Me.tabletbl_zone.면적Column) = Global.System.Convert.DBNull End Sub _ Public Function Is천장고pNull() As Boolean Return Me.IsNull(Me.tabletbl_zone.천장고pColumn) End Function _ Public Sub Set천장고pNull() Me(Me.tabletbl_zone.천장고pColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is순실체적Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.순실체적Column) End Function _ Public Sub Set순실체적Null() Me(Me.tabletbl_zone.순실체적Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열저장능력Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.열저장능력Column) End Function _ Public Sub Set열저장능력Null() Me(Me.tabletbl_zone.열저장능력Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열교가산치Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.열교가산치Column) End Function _ Public Sub Set열교가산치Null() Me(Me.tabletbl_zone.열교가산치Column) = Global.System.Convert.DBNull End Sub _ Public Function Is침기율Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.침기율Column) End Function _ Public Sub Set침기율Null() Me(Me.tabletbl_zone.침기율Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉난방방식Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.냉난방방식Column) End Function _ Public Sub Set냉난방방식Null() Me(Me.tabletbl_zone.냉난방방식Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉난방공조Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.냉난방공조Column) End Function _ Public Sub Set냉난방공조Null() Me(Me.tabletbl_zone.냉난방공조Column) = Global.System.Convert.DBNull End Sub _ Public Function Is외기부하처리여부Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.외기부하처리여부Column) End Function _ Public Sub Set외기부하처리여부Null() Me(Me.tabletbl_zone.외기부하처리여부Column) = Global.System.Convert.DBNull End Sub _ Public Function Is지역Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.지역Column) End Function _ Public Sub Set지역Null() Me(Me.tabletbl_zone.지역Column) = Global.System.Convert.DBNull End Sub _ Public Function Is야간운전방식Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.야간운전방식Column) End Function _ Public Sub Set야간운전방식Null() Me(Me.tabletbl_zone.야간운전방식Column) = Global.System.Convert.DBNull End Sub _ Public Function Is주말운전방식Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.주말운전방식Column) End Function _ Public Sub Set주말운전방식Null() Me(Me.tabletbl_zone.주말운전방식Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉난방열공급시스템Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.냉난방열공급시스템Column) End Function _ Public Sub Set냉난방열공급시스템Null() Me(Me.tabletbl_zone.냉난방열공급시스템Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉난방열공급시스템수Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.냉난방열공급시스템수Column) End Function _ Public Sub Set냉난방열공급시스템수Null() Me(Me.tabletbl_zone.냉난방열공급시스템수Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉난방공조처리시스템Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.냉난방공조처리시스템Column) End Function _ Public Sub Set냉난방공조처리시스템Null() Me(Me.tabletbl_zone.냉난방공조처리시스템Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열생산난방생산기기Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.열생산난방생산기기Column) End Function _ Public Sub Set열생산난방생산기기Null() Me(Me.tabletbl_zone.열생산난방생산기기Column) = Global.System.Convert.DBNull End Sub _ Public Function Is공조냉방생산기기Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.공조냉방생산기기Column) End Function _ Public Sub Set공조냉방생산기기Null() Me(Me.tabletbl_zone.공조냉방생산기기Column) = Global.System.Convert.DBNull End Sub _ Public Function Is공조난방생산기기Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.공조난방생산기기Column) End Function _ Public Sub Set공조난방생산기기Null() Me(Me.tabletbl_zone.공조난방생산기기Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열생산급탕생산기기Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.열생산급탕생산기기Column) End Function _ Public Sub Set열생산급탕생산기기Null() Me(Me.tabletbl_zone.열생산급탕생산기기Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열생산냉방생산기기Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.열생산냉방생산기기Column) End Function _ Public Sub Set열생산냉방생산기기Null() Me(Me.tabletbl_zone.열생산냉방생산기기Column) = Global.System.Convert.DBNull End Sub _ Public Function Is열생산가습생산기기Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.열생산가습생산기기Column) End Function _ Public Sub Set열생산가습생산기기Null() Me(Me.tabletbl_zone.열생산가습생산기기Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉난방공조분배시스템Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.냉난방공조분배시스템Column) End Function _ Public Sub Set냉난방공조분배시스템Null() Me(Me.tabletbl_zone.냉난방공조분배시스템Column) = Global.System.Convert.DBNull End Sub _ Public Function Is냉난방분배시스템Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.냉난방분배시스템Column) End Function _ Public Sub Set냉난방분배시스템Null() Me(Me.tabletbl_zone.냉난방분배시스템Column) = Global.System.Convert.DBNull End Sub _ Public Function Is조명부하산출방법Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.조명부하산출방법Column) End Function _ Public Sub Set조명부하산출방법Null() Me(Me.tabletbl_zone.조명부하산출방법Column) = Global.System.Convert.DBNull End Sub _ Public Function Is요구조도Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.요구조도Column) End Function _ Public Sub Set요구조도Null() Me(Me.tabletbl_zone.요구조도Column) = Global.System.Convert.DBNull End Sub _ Public Function Is천장고Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.천장고Column) End Function _ Public Sub Set천장고Null() Me(Me.tabletbl_zone.천장고Column) = Global.System.Convert.DBNull End Sub _ Public Function Is작업면높이Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.작업면높이Column) End Function _ Public Sub Set작업면높이Null() Me(Me.tabletbl_zone.작업면높이Column) = Global.System.Convert.DBNull End Sub _ Public Function Is실깊이Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.실깊이Column) End Function _ Public Sub Set실깊이Null() Me(Me.tabletbl_zone.실깊이Column) = Global.System.Convert.DBNull End Sub _ Public Function Is실너비Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.실너비Column) End Function _ Public Sub Set실너비Null() Me(Me.tabletbl_zone.실너비Column) = Global.System.Convert.DBNull End Sub _ Public Function Is실지수Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.실지수Column) End Function _ Public Sub Set실지수Null() Me(Me.tabletbl_zone.실지수Column) = Global.System.Convert.DBNull End Sub _ Public Function Is조명방식Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.조명방식Column) End Function _ Public Sub Set조명방식Null() Me(Me.tabletbl_zone.조명방식Column) = Global.System.Convert.DBNull End Sub _ Public Function Is인공광원Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.인공광원Column) End Function _ Public Sub Set인공광원Null() Me(Me.tabletbl_zone.인공광원Column) = Global.System.Convert.DBNull End Sub _ Public Function Is보수율Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.보수율Column) End Function _ Public Sub Set보수율Null() Me(Me.tabletbl_zone.보수율Column) = Global.System.Convert.DBNull End Sub _ Public Function Is조명기기효율Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.조명기기효율Column) End Function _ Public Sub Set조명기기효율Null() Me(Me.tabletbl_zone.조명기기효율Column) = Global.System.Convert.DBNull End Sub _ Public Function Is조명률Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.조명률Column) End Function _ Public Sub Set조명률Null() Me(Me.tabletbl_zone.조명률Column) = Global.System.Convert.DBNull End Sub _ Public Function Is조명에너지부하율계산치Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.조명에너지부하율계산치Column) End Function _ Public Sub Set조명에너지부하율계산치Null() Me(Me.tabletbl_zone.조명에너지부하율계산치Column) = Global.System.Convert.DBNull End Sub _ Public Function Is조명에너지부하율입력치Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.조명에너지부하율입력치Column) End Function _ Public Sub Set조명에너지부하율입력치Null() Me(Me.tabletbl_zone.조명에너지부하율입력치Column) = Global.System.Convert.DBNull End Sub _ Public Function Is입력존의수Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.입력존의수Column) End Function _ Public Sub Set입력존의수Null() Me(Me.tabletbl_zone.입력존의수Column) = Global.System.Convert.DBNull End Sub _ Public Function Is그룹Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.그룹Column) End Function _ Public Sub Set그룹Null() Me(Me.tabletbl_zone.그룹Column) = Global.System.Convert.DBNull End Sub _ Public Function IssortkeyNull() As Boolean Return Me.IsNull(Me.tabletbl_zone.sortkeyColumn) End Function _ Public Sub SetsortkeyNull() Me(Me.tabletbl_zone.sortkeyColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is그룹설명Null() As Boolean Return Me.IsNull(Me.tabletbl_zone.그룹설명Column) End Function _ Public Sub Set그룹설명Null() Me(Me.tabletbl_zone.그룹설명Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_monuseRow Inherits Global.System.Data.DataRow Private tabletbl_monuse As tbl_monuseDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_monuse = CType(Me.Table,tbl_monuseDataTable) End Sub _ Public Property 년() As String Get Return CType(Me(Me.tabletbl_monuse.년Column),String) End Get Set Me(Me.tabletbl_monuse.년Column) = value End Set End Property _ Public Property 월() As String Get Return CType(Me(Me.tabletbl_monuse.월Column),String) End Get Set Me(Me.tabletbl_monuse.월Column) = value End Set End Property _ Public Property 도시가스() As String Get If Me.Is도시가스Null Then Return "" Else Return CType(Me(Me.tabletbl_monuse.도시가스Column),String) End If End Get Set Me(Me.tabletbl_monuse.도시가스Column) = value End Set End Property _ Public Property 전력() As String Get If Me.Is전력Null Then Return "" Else Return CType(Me(Me.tabletbl_monuse.전력Column),String) End If End Get Set Me(Me.tabletbl_monuse.전력Column) = value End Set End Property _ Public Property 지역난방() As String Get If Me.Is지역난방Null Then Return "" Else Return CType(Me(Me.tabletbl_monuse.지역난방Column),String) End If End Get Set Me(Me.tabletbl_monuse.지역난방Column) = value End Set End Property _ Public Property code() As String Get Return CType(Me(Me.tabletbl_monuse.codeColumn),String) End Get Set Me(Me.tabletbl_monuse.codeColumn) = value End Set End Property _ Public Function Is도시가스Null() As Boolean Return Me.IsNull(Me.tabletbl_monuse.도시가스Column) End Function _ Public Sub Set도시가스Null() Me(Me.tabletbl_monuse.도시가스Column) = Global.System.Convert.DBNull End Sub _ Public Function Is전력Null() As Boolean Return Me.IsNull(Me.tabletbl_monuse.전력Column) End Function _ Public Sub Set전력Null() Me(Me.tabletbl_monuse.전력Column) = Global.System.Convert.DBNull End Sub _ Public Function Is지역난방Null() As Boolean Return Me.IsNull(Me.tabletbl_monuse.지역난방Column) End Function _ Public Sub Set지역난방Null() Me(Me.tabletbl_monuse.지역난방Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class tbl_DescRow Inherits Global.System.Data.DataRow Private tabletbl_Desc As tbl_DescDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabletbl_Desc = CType(Me.Table,tbl_DescDataTable) End Sub _ Public Property cname() As String Get If Me.IscnameNull Then Return "" Else Return CType(Me(Me.tabletbl_Desc.cnameColumn),String) End If End Get Set Me(Me.tabletbl_Desc.cnameColumn) = value End Set End Property _ Public Property addr() As String Get If Me.IsaddrNull Then Return "" Else Return CType(Me(Me.tabletbl_Desc.addrColumn),String) End If End Get Set Me(Me.tabletbl_Desc.addrColumn) = value End Set End Property _ Public Property reqdate() As String Get If Me.IsreqdateNull Then Return "" Else Return CType(Me(Me.tabletbl_Desc.reqdateColumn),String) End If End Get Set Me(Me.tabletbl_Desc.reqdateColumn) = value End Set End Property _ Public Property buildname() As String Get If Me.IsbuildnameNull Then Return "" Else Return CType(Me(Me.tabletbl_Desc.buildnameColumn),String) End If End Get Set Me(Me.tabletbl_Desc.buildnameColumn) = value End Set End Property _ Public Property buildarea() As String Get If Me.IsbuildareaNull Then Return "" Else Return CType(Me(Me.tabletbl_Desc.buildareaColumn),String) End If End Get Set Me(Me.tabletbl_Desc.buildareaColumn) = value End Set End Property _ Public Property buildaddr() As String Get If Me.IsbuildaddrNull Then Return "" Else Return CType(Me(Me.tabletbl_Desc.buildaddrColumn),String) End If End Get Set Me(Me.tabletbl_Desc.buildaddrColumn) = value End Set End Property _ Public Property buildm21() As String Get If Me.Isbuildm21Null Then Return "" Else Return CType(Me(Me.tabletbl_Desc.buildm21Column),String) End If End Get Set Me(Me.tabletbl_Desc.buildm21Column) = value End Set End Property _ Public Property buildm22() As String Get If Me.Isbuildm22Null Then Return "" Else Return CType(Me(Me.tabletbl_Desc.buildm22Column),String) End If End Get Set Me(Me.tabletbl_Desc.buildm22Column) = value End Set End Property _ Public Property buildm23() As String Get If Me.Isbuildm23Null Then Return "" Else Return CType(Me(Me.tabletbl_Desc.buildm23Column),String) End If End Get Set Me(Me.tabletbl_Desc.buildm23Column) = value End Set End Property _ Public Property builds1() As String Get If Me.Isbuilds1Null Then Return "" Else Return CType(Me(Me.tabletbl_Desc.builds1Column),String) End If End Get Set Me(Me.tabletbl_Desc.builds1Column) = value End Set End Property _ Public Property builds2() As String Get If Me.Isbuilds2Null Then Return "" Else Return CType(Me(Me.tabletbl_Desc.builds2Column),String) End If End Get Set Me(Me.tabletbl_Desc.builds2Column) = value End Set End Property _ Public Property dungno() As String Get If Me.IsdungnoNull Then Return "" Else Return CType(Me(Me.tabletbl_Desc.dungnoColumn),String) End If End Get Set Me(Me.tabletbl_Desc.dungnoColumn) = value End Set End Property _ Public Property pname() As String Get If Me.IspnameNull Then Return "" Else Return CType(Me(Me.tabletbl_Desc.pnameColumn),String) End If End Get Set Me(Me.tabletbl_Desc.pnameColumn) = value End Set End Property _ Public Property name() As String Get If Me.IsnameNull Then Return "" Else Return CType(Me(Me.tabletbl_Desc.nameColumn),String) End If End Get Set Me(Me.tabletbl_Desc.nameColumn) = value End Set End Property _ Public Property dept() As String Get If Me.IsdeptNull Then Return "" Else Return CType(Me(Me.tabletbl_Desc.deptColumn),String) End If End Get Set Me(Me.tabletbl_Desc.deptColumn) = value End Set End Property _ Public Property grade() As String Get If Me.IsgradeNull Then Return "" Else Return CType(Me(Me.tabletbl_Desc.gradeColumn),String) End If End Get Set Me(Me.tabletbl_Desc.gradeColumn) = value End Set End Property _ Public Property tel() As String Get If Me.IstelNull Then Return "" Else Return CType(Me(Me.tabletbl_Desc.telColumn),String) End If End Get Set Me(Me.tabletbl_Desc.telColumn) = value End Set End Property _ Public Property fax() As String Get If Me.IsfaxNull Then Return "" Else Return CType(Me(Me.tabletbl_Desc.faxColumn),String) End If End Get Set Me(Me.tabletbl_Desc.faxColumn) = value End Set End Property _ Public Property email() As String Get If Me.IsemailNull Then Return "" Else Return CType(Me(Me.tabletbl_Desc.emailColumn),String) End If End Get Set Me(Me.tabletbl_Desc.emailColumn) = value End Set End Property _ Public Property versionc() As String Get If Me.IsversioncNull Then Return "20100101" Else Return CType(Me(Me.tabletbl_Desc.versioncColumn),String) End If End Get Set Me(Me.tabletbl_Desc.versioncColumn) = value End Set End Property _ Public Property versionw() As String Get If Me.IsversionwNull Then Return "20100101" Else Return CType(Me(Me.tabletbl_Desc.versionwColumn),String) End If End Get Set Me(Me.tabletbl_Desc.versionwColumn) = value End Set End Property _ Public Property versionp() As String Get Try Return CType(Me(Me.tabletbl_Desc.versionpColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'tbl_Desc' 테이블의 'versionp' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tabletbl_Desc.versionpColumn) = value End Set End Property _ Public Property priod() As String Get If Me.IspriodNull Then Return "" Else Return CType(Me(Me.tabletbl_Desc.priodColumn),String) End If End Get Set Me(Me.tabletbl_Desc.priodColumn) = value End Set End Property _ Public Property existdate() As String Get If Me.IsexistdateNull Then Return "" Else Return CType(Me(Me.tabletbl_Desc.existdateColumn),String) End If End Get Set Me(Me.tabletbl_Desc.existdateColumn) = value End Set End Property _ Public Property jubsudate() As String Get If Me.IsjubsudateNull Then Return "" Else Return CType(Me(Me.tabletbl_Desc.jubsudateColumn),String) End If End Get Set Me(Me.tabletbl_Desc.jubsudateColumn) = value End Set End Property _ Public Property gujo() As String Get If Me.IsgujoNull Then Return "" Else Return CType(Me(Me.tabletbl_Desc.gujoColumn),String) End If End Get Set Me(Me.tabletbl_Desc.gujoColumn) = value End Set End Property _ Public Property injungdate() As String Get If Me.IsinjungdateNull Then Return "" Else Return CType(Me(Me.tabletbl_Desc.injungdateColumn),String) End If End Get Set Me(Me.tabletbl_Desc.injungdateColumn) = value End Set End Property _ Public Property 용도수수료입금일() As String Get If Me.Is용도수수료입금일Null Then Return "" Else Return CType(Me(Me.tabletbl_Desc.용도수수료입금일Column),String) End If End Get Set Me(Me.tabletbl_Desc.용도수수료입금일Column) = value End Set End Property _ Public Property 용도수수료입금액() As String Get If Me.Is용도수수료입금액Null Then Return "" Else Return CType(Me(Me.tabletbl_Desc.용도수수료입금액Column),String) End If End Get Set Me(Me.tabletbl_Desc.용도수수료입금액Column) = value End Set End Property _ Public Property isjugo() As String Get If Me.IsisjugoNull Then Return "" Else Return CType(Me(Me.tabletbl_Desc.isjugoColumn),String) End If End Get Set Me(Me.tabletbl_Desc.isjugoColumn) = value End Set End Property _ Public Property 인증기관() As String Get If Me.Is인증기관Null Then Return "" Else Return CType(Me(Me.tabletbl_Desc.인증기관Column),String) End If End Get Set Me(Me.tabletbl_Desc.인증기관Column) = value End Set End Property _ Public Property 주조명() As String Get If Me.Is주조명Null Then Return "" Else Return CType(Me(Me.tabletbl_Desc.주조명Column),String) End If End Get Set Me(Me.tabletbl_Desc.주조명Column) = value End Set End Property _ Public Property 공공() As String Get If Me.Is공공Null Then Return "1" Else Return CType(Me(Me.tabletbl_Desc.공공Column),String) End If End Get Set Me(Me.tabletbl_Desc.공공Column) = value End Set End Property _ Public Function IscnameNull() As Boolean Return Me.IsNull(Me.tabletbl_Desc.cnameColumn) End Function _ Public Sub SetcnameNull() Me(Me.tabletbl_Desc.cnameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsaddrNull() As Boolean Return Me.IsNull(Me.tabletbl_Desc.addrColumn) End Function _ Public Sub SetaddrNull() Me(Me.tabletbl_Desc.addrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsreqdateNull() As Boolean Return Me.IsNull(Me.tabletbl_Desc.reqdateColumn) End Function _ Public Sub SetreqdateNull() Me(Me.tabletbl_Desc.reqdateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsbuildnameNull() As Boolean Return Me.IsNull(Me.tabletbl_Desc.buildnameColumn) End Function _ Public Sub SetbuildnameNull() Me(Me.tabletbl_Desc.buildnameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsbuildareaNull() As Boolean Return Me.IsNull(Me.tabletbl_Desc.buildareaColumn) End Function _ Public Sub SetbuildareaNull() Me(Me.tabletbl_Desc.buildareaColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsbuildaddrNull() As Boolean Return Me.IsNull(Me.tabletbl_Desc.buildaddrColumn) End Function _ Public Sub SetbuildaddrNull() Me(Me.tabletbl_Desc.buildaddrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isbuildm21Null() As Boolean Return Me.IsNull(Me.tabletbl_Desc.buildm21Column) End Function _ Public Sub Setbuildm21Null() Me(Me.tabletbl_Desc.buildm21Column) = Global.System.Convert.DBNull End Sub _ Public Function Isbuildm22Null() As Boolean Return Me.IsNull(Me.tabletbl_Desc.buildm22Column) End Function _ Public Sub Setbuildm22Null() Me(Me.tabletbl_Desc.buildm22Column) = Global.System.Convert.DBNull End Sub _ Public Function Isbuildm23Null() As Boolean Return Me.IsNull(Me.tabletbl_Desc.buildm23Column) End Function _ Public Sub Setbuildm23Null() Me(Me.tabletbl_Desc.buildm23Column) = Global.System.Convert.DBNull End Sub _ Public Function Isbuilds1Null() As Boolean Return Me.IsNull(Me.tabletbl_Desc.builds1Column) End Function _ Public Sub Setbuilds1Null() Me(Me.tabletbl_Desc.builds1Column) = Global.System.Convert.DBNull End Sub _ Public Function Isbuilds2Null() As Boolean Return Me.IsNull(Me.tabletbl_Desc.builds2Column) End Function _ Public Sub Setbuilds2Null() Me(Me.tabletbl_Desc.builds2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsdungnoNull() As Boolean Return Me.IsNull(Me.tabletbl_Desc.dungnoColumn) End Function _ Public Sub SetdungnoNull() Me(Me.tabletbl_Desc.dungnoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IspnameNull() As Boolean Return Me.IsNull(Me.tabletbl_Desc.pnameColumn) End Function _ Public Sub SetpnameNull() Me(Me.tabletbl_Desc.pnameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnameNull() As Boolean Return Me.IsNull(Me.tabletbl_Desc.nameColumn) End Function _ Public Sub SetnameNull() Me(Me.tabletbl_Desc.nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsdeptNull() As Boolean Return Me.IsNull(Me.tabletbl_Desc.deptColumn) End Function _ Public Sub SetdeptNull() Me(Me.tabletbl_Desc.deptColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsgradeNull() As Boolean Return Me.IsNull(Me.tabletbl_Desc.gradeColumn) End Function _ Public Sub SetgradeNull() Me(Me.tabletbl_Desc.gradeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IstelNull() As Boolean Return Me.IsNull(Me.tabletbl_Desc.telColumn) End Function _ Public Sub SettelNull() Me(Me.tabletbl_Desc.telColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsfaxNull() As Boolean Return Me.IsNull(Me.tabletbl_Desc.faxColumn) End Function _ Public Sub SetfaxNull() Me(Me.tabletbl_Desc.faxColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsemailNull() As Boolean Return Me.IsNull(Me.tabletbl_Desc.emailColumn) End Function _ Public Sub SetemailNull() Me(Me.tabletbl_Desc.emailColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsversioncNull() As Boolean Return Me.IsNull(Me.tabletbl_Desc.versioncColumn) End Function _ Public Sub SetversioncNull() Me(Me.tabletbl_Desc.versioncColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsversionwNull() As Boolean Return Me.IsNull(Me.tabletbl_Desc.versionwColumn) End Function _ Public Sub SetversionwNull() Me(Me.tabletbl_Desc.versionwColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsversionpNull() As Boolean Return Me.IsNull(Me.tabletbl_Desc.versionpColumn) End Function _ Public Sub SetversionpNull() Me(Me.tabletbl_Desc.versionpColumn) = Global.System.Convert.DBNull End Sub _ Public Function IspriodNull() As Boolean Return Me.IsNull(Me.tabletbl_Desc.priodColumn) End Function _ Public Sub SetpriodNull() Me(Me.tabletbl_Desc.priodColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsexistdateNull() As Boolean Return Me.IsNull(Me.tabletbl_Desc.existdateColumn) End Function _ Public Sub SetexistdateNull() Me(Me.tabletbl_Desc.existdateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsjubsudateNull() As Boolean Return Me.IsNull(Me.tabletbl_Desc.jubsudateColumn) End Function _ Public Sub SetjubsudateNull() Me(Me.tabletbl_Desc.jubsudateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsgujoNull() As Boolean Return Me.IsNull(Me.tabletbl_Desc.gujoColumn) End Function _ Public Sub SetgujoNull() Me(Me.tabletbl_Desc.gujoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsinjungdateNull() As Boolean Return Me.IsNull(Me.tabletbl_Desc.injungdateColumn) End Function _ Public Sub SetinjungdateNull() Me(Me.tabletbl_Desc.injungdateColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is용도수수료입금일Null() As Boolean Return Me.IsNull(Me.tabletbl_Desc.용도수수료입금일Column) End Function _ Public Sub Set용도수수료입금일Null() Me(Me.tabletbl_Desc.용도수수료입금일Column) = Global.System.Convert.DBNull End Sub _ Public Function Is용도수수료입금액Null() As Boolean Return Me.IsNull(Me.tabletbl_Desc.용도수수료입금액Column) End Function _ Public Sub Set용도수수료입금액Null() Me(Me.tabletbl_Desc.용도수수료입금액Column) = Global.System.Convert.DBNull End Sub _ Public Function IsisjugoNull() As Boolean Return Me.IsNull(Me.tabletbl_Desc.isjugoColumn) End Function _ Public Sub SetisjugoNull() Me(Me.tabletbl_Desc.isjugoColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is인증기관Null() As Boolean Return Me.IsNull(Me.tabletbl_Desc.인증기관Column) End Function _ Public Sub Set인증기관Null() Me(Me.tabletbl_Desc.인증기관Column) = Global.System.Convert.DBNull End Sub _ Public Function Is주조명Null() As Boolean Return Me.IsNull(Me.tabletbl_Desc.주조명Column) End Function _ Public Sub Set주조명Null() Me(Me.tabletbl_Desc.주조명Column) = Global.System.Convert.DBNull End Sub _ Public Function Is공공Null() As Boolean Return Me.IsNull(Me.tabletbl_Desc.공공Column) End Function _ Public Sub Set공공Null() Me(Me.tabletbl_Desc.공공Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Row event argument class ''' _ Public Class weather_chaRowChangeEvent Inherits Global.System.EventArgs Private eventRow As weather_chaRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As weather_chaRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As weather_chaRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class weather_tempRowChangeEvent Inherits Global.System.EventArgs Private eventRow As weather_tempRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As weather_tempRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As weather_tempRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class tbl_weatherRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_weatherRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_weatherRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_weatherRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class weather_ilsaRowChangeEvent Inherits Global.System.EventArgs Private eventRow As weather_ilsaRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As weather_ilsaRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As weather_ilsaRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class weather_supdoRowChangeEvent Inherits Global.System.EventArgs Private eventRow As weather_supdoRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As weather_supdoRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As weather_supdoRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class 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 ''' '''Row event argument class ''' _ Public Class tbl_commonRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_commonRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_commonRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_commonRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class weather_groupRowChangeEvent Inherits Global.System.EventArgs Private eventRow As weather_groupRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As weather_groupRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As weather_groupRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class tbl_picRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_picRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_picRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_picRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class tbl_nanbangkikiRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_nanbangkikiRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_nanbangkikiRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_nanbangkikiRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class tbl_nangbangkikiRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_nangbangkikiRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_nangbangkikiRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_nangbangkikiRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class tbl_bunbaeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_bunbaeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_bunbaeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_bunbaeRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class tbl_newRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_newRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_newRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_newRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class tbl_myounRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_myounRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_myounRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_myounRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class tbl_buhaRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_buhaRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_buhaRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_buhaRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class tbl_nbunbaeRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_nbunbaeRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_nbunbaeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_nbunbaeRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class tbl_kongjoRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_kongjoRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_kongjoRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_kongjoRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class tbl_kongkubRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_kongkubRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_kongkubRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_kongkubRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class tbl_ykRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_ykRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_ykRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_ykRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class tbl_ykdetailRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_ykdetailRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_ykdetailRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_ykdetailRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class tbl_zoneRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_zoneRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_zoneRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_zoneRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class tbl_monuseRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_monuseRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_monuseRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_monuseRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class tbl_DescRowChangeEvent Inherits Global.System.EventArgs Private eventRow As tbl_DescRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As tbl_DescRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As tbl_DescRow 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 DSTableAdapters ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class weather_chaTableAdapter 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 = "weather_cha" tableMapping.ColumnMappings.Add("pcode", "pcode") tableMapping.ColumnMappings.Add("code", "code") tableMapping.ColumnMappings.Add("설명", "설명") tableMapping.ColumnMappings.Add("m01", "m01") tableMapping.ColumnMappings.Add("m02", "m02") tableMapping.ColumnMappings.Add("m03", "m03") tableMapping.ColumnMappings.Add("m04", "m04") tableMapping.ColumnMappings.Add("m05", "m05") tableMapping.ColumnMappings.Add("m06", "m06") tableMapping.ColumnMappings.Add("m07", "m07") tableMapping.ColumnMappings.Add("m08", "m08") tableMapping.ColumnMappings.Add("m09", "m09") tableMapping.ColumnMappings.Add("m10", "m10") tableMapping.ColumnMappings.Add("m11", "m11") tableMapping.ColumnMappings.Add("m12", "m12") 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 [weather_cha2] WHERE (([pcode] = @Original_pcode) AND ([code] = @Orig"& _ "inal_code) AND ((@IsNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND "& _ "((@IsNull_m01 = 1 AND [m01] IS NULL) OR ([m01] = @Original_m01)) AND ((@IsNull_m"& _ "02 = 1 AND [m02] IS NULL) OR ([m02] = @Original_m02)) AND ((@IsNull_m03 = 1 AND "& _ "[m03] IS NULL) OR ([m03] = @Original_m03)) AND ((@IsNull_m04 = 1 AND [m04] IS NU"& _ "LL) OR ([m04] = @Original_m04)) AND ((@IsNull_m05 = 1 AND [m05] IS NULL) OR ([m0"& _ "5] = @Original_m05)) AND ((@IsNull_m06 = 1 AND [m06] IS NULL) OR ([m06] = @Origi"& _ "nal_m06)) AND ((@IsNull_m07 = 1 AND [m07] IS NULL) OR ([m07] = @Original_m07)) A"& _ "ND ((@IsNull_m08 = 1 AND [m08] IS NULL) OR ([m08] = @Original_m08)) AND ((@IsNul"& _ "l_m09 = 1 AND [m09] IS NULL) OR ([m09] = @Original_m09)) AND ((@IsNull_m10 = 1 A"& _ "ND [m10] IS NULL) OR ([m10] = @Original_m10)) AND ((@IsNull_m11 = 1 AND [m11] IS"& _ " NULL) OR ([m11] = @Original_m11)) AND ((@IsNull_m12 = 1 AND [m12] IS NULL) OR ("& _ "[m12] = @Original_m12)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) 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_m01", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m02", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m03", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m04", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m05", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m06", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m07", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m08", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m09", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", 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 [weather_cha2] ([pcode], [code], [설명], [m01], [m02], [m03], [m04], [m"& _ "05], [m06], [m07], [m08], [m09], [m10], [m11], [m12]) VALUES (@pcode, @code, @설명"& _ ", @m01, @m02, @m03, @m04, @m05, @m06, @m07, @m08, @m09, @m10, @m11, @m12);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELE"& _ "CT pcode, code, 설명, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12 F"& _ "ROM weather_cha2 WHERE (code = @code) AND (pcode = @pcode)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@m01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", 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 [weather_cha2] SET [pcode] = @pcode, [code] = @code, [설명] = @설명, [m01] = @"& _ "m01, [m02] = @m02, [m03] = @m03, [m04] = @m04, [m05] = @m05, [m06] = @m06, [m07]"& _ " = @m07, [m08] = @m08, [m09] = @m09, [m10] = @m10, [m11] = @m11, [m12] = @m12 WH"& _ "ERE (([pcode] = @Original_pcode) AND ([code] = @Original_code) AND ((@IsNull_설명 "& _ "= 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND ((@IsNull_m01 = 1 AND [m01] "& _ "IS NULL) OR ([m01] = @Original_m01)) AND ((@IsNull_m02 = 1 AND [m02] IS NULL) OR"& _ " ([m02] = @Original_m02)) AND ((@IsNull_m03 = 1 AND [m03] IS NULL) OR ([m03] = @"& _ "Original_m03)) AND ((@IsNull_m04 = 1 AND [m04] IS NULL) OR ([m04] = @Original_m0"& _ "4)) AND ((@IsNull_m05 = 1 AND [m05] IS NULL) OR ([m05] = @Original_m05)) AND ((@"& _ "IsNull_m06 = 1 AND [m06] IS NULL) OR ([m06] = @Original_m06)) AND ((@IsNull_m07 "& _ "= 1 AND [m07] IS NULL) OR ([m07] = @Original_m07)) AND ((@IsNull_m08 = 1 AND [m0"& _ "8] IS NULL) OR ([m08] = @Original_m08)) AND ((@IsNull_m09 = 1 AND [m09] IS NULL)"& _ " OR ([m09] = @Original_m09)) AND ((@IsNull_m10 = 1 AND [m10] IS NULL) OR ([m10] "& _ "= @Original_m10)) AND ((@IsNull_m11 = 1 AND [m11] IS NULL) OR ([m11] = @Original"& _ "_m11)) AND ((@IsNull_m12 = 1 AND [m12] IS NULL) OR ([m12] = @Original_m12)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _ "ELECT pcode, code, 설명, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m1"& _ "2 FROM weather_cha2 WHERE (code = @code) AND (pcode = @pcode)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@m01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Original, 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_m01", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m02", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m03", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m04", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m05", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m06", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m07", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m08", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m09", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", 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 pcode, code, 설명, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m"& _ "12"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM weather_cha2" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DS.weather_chaDataTable) 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 DS.weather_chaDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DS.weather_chaDataTable = New DS.weather_chaDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DS.weather_chaDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DS) As Integer Return Me.Adapter.Update(dataSet, "weather_cha") 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_pcode As String, ByVal Original_code As String, ByVal Original_설명 As String, ByVal Original_m01 As String, ByVal Original_m02 As String, ByVal Original_m03 As String, ByVal Original_m04 As String, ByVal Original_m05 As String, ByVal Original_m06 As String, ByVal Original_m07 As String, ByVal Original_m08 As String, ByVal Original_m09 As String, ByVal Original_m10 As String, ByVal Original_m11 As String, ByVal Original_m12 As String) As Integer If (Original_pcode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_pcode") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_pcode,String) End If If (Original_code Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_code") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_code,String) End If If (Original_설명 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_설명,String) End If If (Original_m01 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_m01,String) End If If (Original_m02 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_m02,String) End If If (Original_m03 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_m03,String) End If If (Original_m04 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_m04,String) End If If (Original_m05 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_m05,String) End If If (Original_m06 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_m06,String) End If If (Original_m07 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_m07,String) End If If (Original_m08 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_m08,String) End If If (Original_m09 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_m09,String) End If If (Original_m10 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_m10,String) End If If (Original_m11 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_m11,String) End If If (Original_m12 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_m12,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 pcode As String, ByVal code As String, ByVal 설명 As String, ByVal m01 As String, ByVal m02 As String, ByVal m03 As String, ByVal m04 As String, ByVal m05 As String, ByVal m06 As String, ByVal m07 As String, ByVal m08 As String, ByVal m09 As String, ByVal m10 As String, ByVal m11 As String, ByVal m12 As String) As Integer If (pcode Is Nothing) Then Throw New Global.System.ArgumentNullException("pcode") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(pcode,String) End If If (code Is Nothing) Then Throw New Global.System.ArgumentNullException("code") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(code,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 (m01 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(m01,String) End If If (m02 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(m02,String) End If If (m03 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(m03,String) End If If (m04 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(m04,String) End If If (m05 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(m05,String) End If If (m06 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(m06,String) End If If (m07 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(m07,String) End If If (m08 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(m08,String) End If If (m09 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(m09,String) End If If (m10 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(m10,String) End If If (m11 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(m11,String) End If If (m12 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(m12,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 pcode As String, _ ByVal code As String, _ ByVal 설명 As String, _ ByVal m01 As String, _ ByVal m02 As String, _ ByVal m03 As String, _ ByVal m04 As String, _ ByVal m05 As String, _ ByVal m06 As String, _ ByVal m07 As String, _ ByVal m08 As String, _ ByVal m09 As String, _ ByVal m10 As String, _ ByVal m11 As String, _ ByVal m12 As String, _ ByVal Original_pcode As String, _ ByVal Original_code As String, _ ByVal Original_설명 As String, _ ByVal Original_m01 As String, _ ByVal Original_m02 As String, _ ByVal Original_m03 As String, _ ByVal Original_m04 As String, _ ByVal Original_m05 As String, _ ByVal Original_m06 As String, _ ByVal Original_m07 As String, _ ByVal Original_m08 As String, _ ByVal Original_m09 As String, _ ByVal Original_m10 As String, _ ByVal Original_m11 As String, _ ByVal Original_m12 As String) As Integer If (pcode Is Nothing) Then Throw New Global.System.ArgumentNullException("pcode") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(pcode,String) End If If (code Is Nothing) Then Throw New Global.System.ArgumentNullException("code") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(code,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 (m01 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(m01,String) End If If (m02 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(m02,String) End If If (m03 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(m03,String) End If If (m04 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(m04,String) End If If (m05 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(m05,String) End If If (m06 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(m06,String) End If If (m07 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(m07,String) End If If (m08 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(m08,String) End If If (m09 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(m09,String) End If If (m10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(m10,String) End If If (m11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(m11,String) End If If (m12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(m12,String) End If If (Original_pcode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_pcode") Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_pcode,String) End If If (Original_code Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_code") Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_code,String) End If If (Original_설명 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_설명,String) End If If (Original_m01 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_m01,String) End If If (Original_m02 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_m02,String) End If If (Original_m03 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_m03,String) End If If (Original_m04 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_m04,String) End If If (Original_m05 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_m05,String) End If If (Original_m06 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_m06,String) End If If (Original_m07 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_m07,String) End If If (Original_m08 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_m08,String) End If If (Original_m09 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_m09,String) End If If (Original_m10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_m10,String) End If If (Original_m11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_m11,String) End If If (Original_m12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(41).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_m12,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 m01 As String, _ ByVal m02 As String, _ ByVal m03 As String, _ ByVal m04 As String, _ ByVal m05 As String, _ ByVal m06 As String, _ ByVal m07 As String, _ ByVal m08 As String, _ ByVal m09 As String, _ ByVal m10 As String, _ ByVal m11 As String, _ ByVal m12 As String, _ ByVal Original_pcode As String, _ ByVal Original_code As String, _ ByVal Original_설명 As String, _ ByVal Original_m01 As String, _ ByVal Original_m02 As String, _ ByVal Original_m03 As String, _ ByVal Original_m04 As String, _ ByVal Original_m05 As String, _ ByVal Original_m06 As String, _ ByVal Original_m07 As String, _ ByVal Original_m08 As String, _ ByVal Original_m09 As String, _ ByVal Original_m10 As String, _ ByVal Original_m11 As String, _ ByVal Original_m12 As String) As Integer Return Me.Update(Original_pcode, Original_code, 설명, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12, Original_pcode, Original_code, Original_설명, Original_m01, Original_m02, Original_m03, Original_m04, Original_m05, Original_m06, Original_m07, Original_m08, Original_m09, Original_m10, Original_m11, Original_m12) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class weather_tempTableAdapter 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 = "weather_temp" tableMapping.ColumnMappings.Add("pcode", "pcode") tableMapping.ColumnMappings.Add("code", "code") tableMapping.ColumnMappings.Add("설명", "설명") tableMapping.ColumnMappings.Add("t01", "t01") tableMapping.ColumnMappings.Add("t02", "t02") tableMapping.ColumnMappings.Add("t03", "t03") tableMapping.ColumnMappings.Add("t04", "t04") tableMapping.ColumnMappings.Add("t05", "t05") tableMapping.ColumnMappings.Add("t06", "t06") tableMapping.ColumnMappings.Add("t07", "t07") tableMapping.ColumnMappings.Add("t08", "t08") tableMapping.ColumnMappings.Add("t09", "t09") tableMapping.ColumnMappings.Add("t10", "t10") tableMapping.ColumnMappings.Add("t11", "t11") tableMapping.ColumnMappings.Add("t12", "t12") tableMapping.ColumnMappings.Add("t13", "t13") tableMapping.ColumnMappings.Add("t14", "t14") tableMapping.ColumnMappings.Add("t15", "t15") tableMapping.ColumnMappings.Add("t16", "t16") tableMapping.ColumnMappings.Add("t17", "t17") tableMapping.ColumnMappings.Add("t18", "t18") tableMapping.ColumnMappings.Add("t19", "t19") tableMapping.ColumnMappings.Add("t20", "t20") tableMapping.ColumnMappings.Add("t21", "t21") tableMapping.ColumnMappings.Add("t22", "t22") tableMapping.ColumnMappings.Add("t23", "t23") tableMapping.ColumnMappings.Add("t24", "t24") 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 [weather_temp2] WHERE (([pcode] = @Original_pcode) AND ([code] = @Ori"& _ "ginal_code) AND ((@IsNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND"& _ " ((@IsNull_t01 = 1 AND [t01] IS NULL) OR ([t01] = @Original_t01)) AND ((@IsNull_"& _ "t02 = 1 AND [t02] IS NULL) OR ([t02] = @Original_t02)) AND ((@IsNull_t03 = 1 AND"& _ " [t03] IS NULL) OR ([t03] = @Original_t03)) AND ((@IsNull_t04 = 1 AND [t04] IS N"& _ "ULL) OR ([t04] = @Original_t04)) AND ((@IsNull_t05 = 1 AND [t05] IS NULL) OR ([t"& _ "05] = @Original_t05)) AND ((@IsNull_t06 = 1 AND [t06] IS NULL) OR ([t06] = @Orig"& _ "inal_t06)) AND ((@IsNull_t07 = 1 AND [t07] IS NULL) OR ([t07] = @Original_t07)) "& _ "AND ((@IsNull_t08 = 1 AND [t08] IS NULL) OR ([t08] = @Original_t08)) AND ((@IsNu"& _ "ll_t09 = 1 AND [t09] IS NULL) OR ([t09] = @Original_t09)) AND ((@IsNull_t10 = 1 "& _ "AND [t10] IS NULL) OR ([t10] = @Original_t10)) AND ((@IsNull_t11 = 1 AND [t11] I"& _ "S NULL) OR ([t11] = @Original_t11)) AND ((@IsNull_t12 = 1 AND [t12] IS NULL) OR "& _ "([t12] = @Original_t12)) AND ((@IsNull_t13 = 1 AND [t13] IS NULL) OR ([t13] = @O"& _ "riginal_t13)) AND ((@IsNull_t14 = 1 AND [t14] IS NULL) OR ([t14] = @Original_t14"& _ ")) AND ((@IsNull_t15 = 1 AND [t15] IS NULL) OR ([t15] = @Original_t15)) AND ((@I"& _ "sNull_t16 = 1 AND [t16] IS NULL) OR ([t16] = @Original_t16)) AND ((@IsNull_t17 ="& _ " 1 AND [t17] IS NULL) OR ([t17] = @Original_t17)) AND ((@IsNull_t18 = 1 AND [t18"& _ "] IS NULL) OR ([t18] = @Original_t18)) AND ((@IsNull_t19 = 1 AND [t19] IS NULL) "& _ "OR ([t19] = @Original_t19)) AND ((@IsNull_t20 = 1 AND [t20] IS NULL) OR ([t20] ="& _ " @Original_t20)) AND ((@IsNull_t21 = 1 AND [t21] IS NULL) OR ([t21] = @Original_"& _ "t21)) AND ((@IsNull_t22 = 1 AND [t22] IS NULL) OR ([t22] = @Original_t22)) AND ("& _ "(@IsNull_t23 = 1 AND [t23] IS NULL) OR ([t23] = @Original_t23)) AND ((@IsNull_t2"& _ "4 = 1 AND [t24] IS NULL) OR ([t24] = @Original_t24)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) 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_t01", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t01", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t01", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t02", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t02", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t02", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t03", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t03", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t03", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t04", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t04", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t04", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t05", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t05", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t05", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t06", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t06", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t06", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t07", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t07", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t07", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t08", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t08", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t08", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t09", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t09", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t09", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t13", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t13", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t13", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t14", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t14", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t14", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t15", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t15", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t15", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t16", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t16", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t16", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t16", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t17", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t17", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t17", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t17", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t18", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t18", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t18", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t18", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t19", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t19", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t19", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t19", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t20", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t20", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t20", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t20", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t21", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t21", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t21", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t21", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t22", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t22", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t22", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t22", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t23", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t23", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t23", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t23", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t24", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t24", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t24", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t24", 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 [weather_temp2] ([pcode], [code], [설명], [t01], [t02], [t03], [t04], ["& _ "t05], [t06], [t07], [t08], [t09], [t10], [t11], [t12], [t13], [t14], [t15], [t16"& _ "], [t17], [t18], [t19], [t20], [t21], [t22], [t23], [t24]) VALUES (@pcode, @code"& _ ", @설명, @t01, @t02, @t03, @t04, @t05, @t06, @t07, @t08, @t09, @t10, @t11, @t12, @"& _ "t13, @t14, @t15, @t16, @t17, @t18, @t19, @t20, @t21, @t22, @t23, @t24);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ "pcode, code, 설명, t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t12, t13"& _ ", t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24 FROM weather_temp2 WHERE"& _ " (code = @code) AND (pcode = @pcode)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@t01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t01", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t02", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t03", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t04", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t05", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t06", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t07", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t08", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t09", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t13", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t14", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t15", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t16", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t16", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t17", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t17", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t18", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t18", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t19", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t19", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t20", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t20", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t21", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t21", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t22", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t22", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t23", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t23", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t24", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t24", 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 [weather_temp2] SET [pcode] = @pcode, [code] = @code, [설명] = @설명, [t01] = "& _ "@t01, [t02] = @t02, [t03] = @t03, [t04] = @t04, [t05] = @t05, [t06] = @t06, [t07"& _ "] = @t07, [t08] = @t08, [t09] = @t09, [t10] = @t10, [t11] = @t11, [t12] = @t12, "& _ "[t13] = @t13, [t14] = @t14, [t15] = @t15, [t16] = @t16, [t17] = @t17, [t18] = @t"& _ "18, [t19] = @t19, [t20] = @t20, [t21] = @t21, [t22] = @t22, [t23] = @t23, [t24] "& _ "= @t24 WHERE (([pcode] = @Original_pcode) AND ([code] = @Original_code) AND ((@I"& _ "sNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND ((@IsNull_t01 = 1 A"& _ "ND [t01] IS NULL) OR ([t01] = @Original_t01)) AND ((@IsNull_t02 = 1 AND [t02] IS"& _ " NULL) OR ([t02] = @Original_t02)) AND ((@IsNull_t03 = 1 AND [t03] IS NULL) OR ("& _ "[t03] = @Original_t03)) AND ((@IsNull_t04 = 1 AND [t04] IS NULL) OR ([t04] = @Or"& _ "iginal_t04)) AND ((@IsNull_t05 = 1 AND [t05] IS NULL) OR ([t05] = @Original_t05)"& _ ") AND ((@IsNull_t06 = 1 AND [t06] IS NULL) OR ([t06] = @Original_t06)) AND ((@Is"& _ "Null_t07 = 1 AND [t07] IS NULL) OR ([t07] = @Original_t07)) AND ((@IsNull_t08 = "& _ "1 AND [t08] IS NULL) OR ([t08] = @Original_t08)) AND ((@IsNull_t09 = 1 AND [t09]"& _ " IS NULL) OR ([t09] = @Original_t09)) AND ((@IsNull_t10 = 1 AND [t10] IS NULL) O"& _ "R ([t10] = @Original_t10)) AND ((@IsNull_t11 = 1 AND [t11] IS NULL) OR ([t11] = "& _ "@Original_t11)) AND ((@IsNull_t12 = 1 AND [t12] IS NULL) OR ([t12] = @Original_t"& _ "12)) AND ((@IsNull_t13 = 1 AND [t13] IS NULL) OR ([t13] = @Original_t13)) AND (("& _ "@IsNull_t14 = 1 AND [t14] IS NULL) OR ([t14] = @Original_t14)) AND ((@IsNull_t15"& _ " = 1 AND [t15] IS NULL) OR ([t15] = @Original_t15)) AND ((@IsNull_t16 = 1 AND [t"& _ "16] IS NULL) OR ([t16] = @Original_t16)) AND ((@IsNull_t17 = 1 AND [t17] IS NULL"& _ ") OR ([t17] = @Original_t17)) AND ((@IsNull_t18 = 1 AND [t18] IS NULL) OR ([t18]"& _ " = @Original_t18)) AND ((@IsNull_t19 = 1 AND [t19] IS NULL) OR ([t19] = @Origina"& _ "l_t19)) AND ((@IsNull_t20 = 1 AND [t20] IS NULL) OR ([t20] = @Original_t20)) AND"& _ " ((@IsNull_t21 = 1 AND [t21] IS NULL) OR ([t21] = @Original_t21)) AND ((@IsNull_"& _ "t22 = 1 AND [t22] IS NULL) OR ([t22] = @Original_t22)) AND ((@IsNull_t23 = 1 AND"& _ " [t23] IS NULL) OR ([t23] = @Original_t23)) AND ((@IsNull_t24 = 1 AND [t24] IS N"& _ "ULL) OR ([t24] = @Original_t24)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT pcode, code, 설명, t01, t02, t03, t04, "& _ "t05, t06, t07, t08, t09, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, "& _ "t21, t22, t23, t24 FROM weather_temp2 WHERE (code = @code) AND (pcode = @pcode)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@t01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t01", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t02", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t03", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t04", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t05", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t06", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t07", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t08", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t09", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t13", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t14", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t15", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t16", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t16", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t17", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t17", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t18", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t18", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t19", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t19", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t20", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t20", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t21", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t21", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t22", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t22", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t23", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t23", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t24", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t24", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Original, 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_t01", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t01", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t01", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t02", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t02", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t02", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t03", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t03", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t03", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t04", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t04", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t04", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t05", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t05", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t05", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t06", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t06", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t06", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t07", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t07", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t07", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t08", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t08", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t08", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t09", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t09", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t09", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t13", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t13", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t13", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t14", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t14", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t14", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t15", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t15", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t15", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t16", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t16", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t16", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t16", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t17", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t17", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t17", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t17", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t18", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t18", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t18", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t18", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t19", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t19", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t19", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t19", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t20", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t20", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t20", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t20", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t21", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t21", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t21", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t21", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t22", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t22", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t22", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t22", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t23", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t23", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t23", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t23", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t24", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t24", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t24", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t24", 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 pcode, code, 설명, t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t"& _ "12, t13, t14, t15, t16, t17, t18, t19, t20, t21, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" t22, t23, t24"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM weather_temp2" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DS.weather_tempDataTable) 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 DS.weather_tempDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DS.weather_tempDataTable = New DS.weather_tempDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DS.weather_tempDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DS) As Integer Return Me.Adapter.Update(dataSet, "weather_temp") 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_pcode As String, _ ByVal Original_code As String, _ ByVal Original_설명 As String, _ ByVal Original_t01 As String, _ ByVal Original_t02 As String, _ ByVal Original_t03 As String, _ ByVal Original_t04 As String, _ ByVal Original_t05 As String, _ ByVal Original_t06 As String, _ ByVal Original_t07 As String, _ ByVal Original_t08 As String, _ ByVal Original_t09 As String, _ ByVal Original_t10 As String, _ ByVal Original_t11 As String, _ ByVal Original_t12 As String, _ ByVal Original_t13 As String, _ ByVal Original_t14 As String, _ ByVal Original_t15 As String, _ ByVal Original_t16 As String, _ ByVal Original_t17 As String, _ ByVal Original_t18 As String, _ ByVal Original_t19 As String, _ ByVal Original_t20 As String, _ ByVal Original_t21 As String, _ ByVal Original_t22 As String, _ ByVal Original_t23 As String, _ ByVal Original_t24 As String) As Integer If (Original_pcode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_pcode") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_pcode,String) End If If (Original_code Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_code") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_code,String) End If If (Original_설명 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_설명,String) End If If (Original_t01 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_t01,String) End If If (Original_t02 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_t02,String) End If If (Original_t03 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_t03,String) End If If (Original_t04 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_t04,String) End If If (Original_t05 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_t05,String) End If If (Original_t06 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_t06,String) End If If (Original_t07 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_t07,String) End If If (Original_t08 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_t08,String) End If If (Original_t09 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_t09,String) End If If (Original_t10 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_t10,String) End If If (Original_t11 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_t11,String) End If If (Original_t12 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_t12,String) End If If (Original_t13 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(28).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(28).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(29).Value = CType(Original_t13,String) End If If (Original_t14 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_t14,String) End If If (Original_t15 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_t15,String) End If If (Original_t16 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_t16,String) End If If (Original_t17 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_t17,String) End If If (Original_t18 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_t18,String) End If If (Original_t19 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_t19,String) End If If (Original_t20 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = CType(Original_t20,String) End If If (Original_t21 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = CType(Original_t21,String) End If If (Original_t22 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(47).Value = CType(Original_t22,String) End If If (Original_t23 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(49).Value = CType(Original_t23,String) End If If (Original_t24 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(51).Value = CType(Original_t24,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 pcode As String, _ ByVal code As String, _ ByVal 설명 As String, _ ByVal t01 As String, _ ByVal t02 As String, _ ByVal t03 As String, _ ByVal t04 As String, _ ByVal t05 As String, _ ByVal t06 As String, _ ByVal t07 As String, _ ByVal t08 As String, _ ByVal t09 As String, _ ByVal t10 As String, _ ByVal t11 As String, _ ByVal t12 As String, _ ByVal t13 As String, _ ByVal t14 As String, _ ByVal t15 As String, _ ByVal t16 As String, _ ByVal t17 As String, _ ByVal t18 As String, _ ByVal t19 As String, _ ByVal t20 As String, _ ByVal t21 As String, _ ByVal t22 As String, _ ByVal t23 As String, _ ByVal t24 As String) As Integer If (pcode Is Nothing) Then Throw New Global.System.ArgumentNullException("pcode") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(pcode,String) End If If (code Is Nothing) Then Throw New Global.System.ArgumentNullException("code") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(code,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 (t01 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(t01,String) End If If (t02 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(t02,String) End If If (t03 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(t03,String) End If If (t04 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(t04,String) End If If (t05 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(t05,String) End If If (t06 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(t06,String) End If If (t07 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(t07,String) End If If (t08 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(t08,String) End If If (t09 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(t09,String) End If If (t10 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(t10,String) End If If (t11 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(t11,String) End If If (t12 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(t12,String) End If If (t13 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(t13,String) End If If (t14 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(t14,String) End If If (t15 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(t15,String) End If If (t16 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(t16,String) End If If (t17 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(t17,String) End If If (t18 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(t18,String) End If If (t19 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(t19,String) End If If (t20 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(t20,String) End If If (t21 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(t21,String) End If If (t22 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(t22,String) End If If (t23 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(t23,String) End If If (t24 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(t24,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 pcode As String, _ ByVal code As String, _ ByVal 설명 As String, _ ByVal t01 As String, _ ByVal t02 As String, _ ByVal t03 As String, _ ByVal t04 As String, _ ByVal t05 As String, _ ByVal t06 As String, _ ByVal t07 As String, _ ByVal t08 As String, _ ByVal t09 As String, _ ByVal t10 As String, _ ByVal t11 As String, _ ByVal t12 As String, _ ByVal t13 As String, _ ByVal t14 As String, _ ByVal t15 As String, _ ByVal t16 As String, _ ByVal t17 As String, _ ByVal t18 As String, _ ByVal t19 As String, _ ByVal t20 As String, _ ByVal t21 As String, _ ByVal t22 As String, _ ByVal t23 As String, _ ByVal t24 As String, _ ByVal Original_pcode As String, _ ByVal Original_code As String, _ ByVal Original_설명 As String, _ ByVal Original_t01 As String, _ ByVal Original_t02 As String, _ ByVal Original_t03 As String, _ ByVal Original_t04 As String, _ ByVal Original_t05 As String, _ ByVal Original_t06 As String, _ ByVal Original_t07 As String, _ ByVal Original_t08 As String, _ ByVal Original_t09 As String, _ ByVal Original_t10 As String, _ ByVal Original_t11 As String, _ ByVal Original_t12 As String, _ ByVal Original_t13 As String, _ ByVal Original_t14 As String, _ ByVal Original_t15 As String, _ ByVal Original_t16 As String, _ ByVal Original_t17 As String, _ ByVal Original_t18 As String, _ ByVal Original_t19 As String, _ ByVal Original_t20 As String, _ ByVal Original_t21 As String, _ ByVal Original_t22 As String, _ ByVal Original_t23 As String, _ ByVal Original_t24 As String) As Integer If (pcode Is Nothing) Then Throw New Global.System.ArgumentNullException("pcode") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(pcode,String) End If If (code Is Nothing) Then Throw New Global.System.ArgumentNullException("code") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(code,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 (t01 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(t01,String) End If If (t02 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(t02,String) End If If (t03 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(t03,String) End If If (t04 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(t04,String) End If If (t05 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(t05,String) End If If (t06 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(t06,String) End If If (t07 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(t07,String) End If If (t08 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(t08,String) End If If (t09 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(t09,String) End If If (t10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(t10,String) End If If (t11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(t11,String) End If If (t12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(t12,String) End If If (t13 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(t13,String) End If If (t14 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(t14,String) End If If (t15 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(t15,String) End If If (t16 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(t16,String) End If If (t17 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(t17,String) End If If (t18 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(t18,String) End If If (t19 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(t19,String) End If If (t20 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(t20,String) End If If (t21 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(t21,String) End If If (t22 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(t22,String) End If If (t23 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(t23,String) End If If (t24 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(t24,String) End If If (Original_pcode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_pcode") Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_pcode,String) End If If (Original_code Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_code") Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_code,String) End If If (Original_설명 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_설명,String) End If If (Original_t01 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_t01,String) End If If (Original_t02 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_t02,String) End If If (Original_t03 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_t03,String) End If If (Original_t04 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_t04,String) End If If (Original_t05 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_t05,String) End If If (Original_t06 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(41).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_t06,String) End If If (Original_t07 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(43).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_t07,String) End If If (Original_t08 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_t08,String) End If If (Original_t09 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(47).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_t09,String) End If If (Original_t10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_t10,String) End If If (Original_t11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_t11,String) End If If (Original_t12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_t12,String) End If If (Original_t13 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Original_t13,String) End If If (Original_t14 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(58).Value = CType(Original_t14,String) End If If (Original_t15 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(59).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(59).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(60).Value = CType(Original_t15,String) End If If (Original_t16 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(61).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(62).Value = CType(Original_t16,String) End If If (Original_t17 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(63).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(64).Value = CType(Original_t17,String) End If If (Original_t18 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(66).Value = CType(Original_t18,String) End If If (Original_t19 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(67).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(67).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(68).Value = CType(Original_t19,String) End If If (Original_t20 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(69).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(69).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(70).Value = CType(Original_t20,String) End If If (Original_t21 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(71).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(71).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(72).Value = CType(Original_t21,String) End If If (Original_t22 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(73).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(73).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(74).Value = CType(Original_t22,String) End If If (Original_t23 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(75).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(75).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(76).Value = CType(Original_t23,String) End If If (Original_t24 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(77).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(77).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Original_t24,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 t01 As String, _ ByVal t02 As String, _ ByVal t03 As String, _ ByVal t04 As String, _ ByVal t05 As String, _ ByVal t06 As String, _ ByVal t07 As String, _ ByVal t08 As String, _ ByVal t09 As String, _ ByVal t10 As String, _ ByVal t11 As String, _ ByVal t12 As String, _ ByVal t13 As String, _ ByVal t14 As String, _ ByVal t15 As String, _ ByVal t16 As String, _ ByVal t17 As String, _ ByVal t18 As String, _ ByVal t19 As String, _ ByVal t20 As String, _ ByVal t21 As String, _ ByVal t22 As String, _ ByVal t23 As String, _ ByVal t24 As String, _ ByVal Original_pcode As String, _ ByVal Original_code As String, _ ByVal Original_설명 As String, _ ByVal Original_t01 As String, _ ByVal Original_t02 As String, _ ByVal Original_t03 As String, _ ByVal Original_t04 As String, _ ByVal Original_t05 As String, _ ByVal Original_t06 As String, _ ByVal Original_t07 As String, _ ByVal Original_t08 As String, _ ByVal Original_t09 As String, _ ByVal Original_t10 As String, _ ByVal Original_t11 As String, _ ByVal Original_t12 As String, _ ByVal Original_t13 As String, _ ByVal Original_t14 As String, _ ByVal Original_t15 As String, _ ByVal Original_t16 As String, _ ByVal Original_t17 As String, _ ByVal Original_t18 As String, _ ByVal Original_t19 As String, _ ByVal Original_t20 As String, _ ByVal Original_t21 As String, _ ByVal Original_t22 As String, _ ByVal Original_t23 As String, _ ByVal Original_t24 As String) As Integer Return Me.Update(Original_pcode, Original_code, 설명, t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, Original_pcode, Original_code, Original_설명, Original_t01, Original_t02, Original_t03, Original_t04, Original_t05, Original_t06, Original_t07, Original_t08, Original_t09, Original_t10, Original_t11, Original_t12, Original_t13, Original_t14, Original_t15, Original_t16, Original_t17, Original_t18, Original_t19, Original_t20, Original_t21, Original_t22, Original_t23, Original_t24) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_weatherTableAdapter 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_weather" tableMapping.ColumnMappings.Add("code", "code") tableMapping.ColumnMappings.Add("건물위치", "건물위치") tableMapping.ColumnMappings.Add("난방기", "난방기") tableMapping.ColumnMappings.Add("냉방기", "냉방기") tableMapping.ColumnMappings.Add("m01", "m01") tableMapping.ColumnMappings.Add("m02", "m02") tableMapping.ColumnMappings.Add("m03", "m03") tableMapping.ColumnMappings.Add("m04", "m04") tableMapping.ColumnMappings.Add("m05", "m05") tableMapping.ColumnMappings.Add("m06", "m06") tableMapping.ColumnMappings.Add("m07", "m07") tableMapping.ColumnMappings.Add("m08", "m08") tableMapping.ColumnMappings.Add("m09", "m09") tableMapping.ColumnMappings.Add("m10", "m10") tableMapping.ColumnMappings.Add("m11", "m11") tableMapping.ColumnMappings.Add("m12", "m12") 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 [tbl_weather2] 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_m01 = 1 AND [m01] IS NULL) OR ([m01]"& _ " = @Original_m01)) AND ((@IsNull_m02 = 1 AND [m02] IS NULL) OR ([m02] = @Origina"& _ "l_m02)) AND ((@IsNull_m03 = 1 AND [m03] IS NULL) OR ([m03] = @Original_m03)) AND"& _ " ((@IsNull_m04 = 1 AND [m04] IS NULL) OR ([m04] = @Original_m04)) AND ((@IsNull_"& _ "m05 = 1 AND [m05] IS NULL) OR ([m05] = @Original_m05)) AND ((@IsNull_m06 = 1 AND"& _ " [m06] IS NULL) OR ([m06] = @Original_m06)) AND ((@IsNull_m07 = 1 AND [m07] IS N"& _ "ULL) OR ([m07] = @Original_m07)) AND ((@IsNull_m08 = 1 AND [m08] IS NULL) OR ([m"& _ "08] = @Original_m08)) AND ((@IsNull_m09 = 1 AND [m09] IS NULL) OR ([m09] = @Orig"& _ "inal_m09)) AND ((@IsNull_m10 = 1 AND [m10] IS NULL) OR ([m10] = @Original_m10)) "& _ "AND ((@IsNull_m11 = 1 AND [m11] IS NULL) OR ([m11] = @Original_m11)) AND ((@IsNu"& _ "ll_m12 = 1 AND [m12] IS NULL) OR ([m12] = @Original_m12)))" 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_m01", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m02", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m03", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m04", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m05", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m06", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m07", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m08", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m09", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", 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 [tbl_weather2] ([code], [건물위치], [난방기], [냉방기], [m01], [m02], [m03], [m"& _ "04], [m05], [m06], [m07], [m08], [m09], [m10], [m11], [m12]) VALUES (@code, @건물위"& _ "치, @난방기, @냉방기, @m01, @m02, @m03, @m04, @m05, @m06, @m07, @m08, @m09, @m10, @m11,"& _ " @m12);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT code, 건물위치, 난방기, 냉방기, m01, m02, m03, m04, m05, m06, m07, m08, m0"& _ "9, m10, m11, m12 FROM tbl_weather2 WHERE (code = @code) ORDER BY 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("@m01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", 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 [tbl_weather2] SET [code] = @code, [건물위치] = @건물위치, [난방기] = @난방기, [냉방기] = @"& _ "냉방기, [m01] = @m01, [m02] = @m02, [m03] = @m03, [m04] = @m04, [m05] = @m05, [m06]"& _ " = @m06, [m07] = @m07, [m08] = @m08, [m09] = @m09, [m10] = @m10, [m11] = @m11, ["& _ "m12] = @m12 WHERE (([code] = @Original_code) AND ((@IsNull_건물위치 = 1 AND [건물위치] I"& _ "S NULL) OR ([건물위치] = @Original_건물위치)) AND ((@IsNull_난방기 = 1 AND [난방기] IS NULL) O"& _ "R ([난방기] = @Original_난방기)) AND ((@IsNull_냉방기 = 1 AND [냉방기] IS NULL) OR ([냉방기] = "& _ "@Original_냉방기)) AND ((@IsNull_m01 = 1 AND [m01] IS NULL) OR ([m01] = @Original_m"& _ "01)) AND ((@IsNull_m02 = 1 AND [m02] IS NULL) OR ([m02] = @Original_m02)) AND (("& _ "@IsNull_m03 = 1 AND [m03] IS NULL) OR ([m03] = @Original_m03)) AND ((@IsNull_m04"& _ " = 1 AND [m04] IS NULL) OR ([m04] = @Original_m04)) AND ((@IsNull_m05 = 1 AND [m"& _ "05] IS NULL) OR ([m05] = @Original_m05)) AND ((@IsNull_m06 = 1 AND [m06] IS NULL"& _ ") OR ([m06] = @Original_m06)) AND ((@IsNull_m07 = 1 AND [m07] IS NULL) OR ([m07]"& _ " = @Original_m07)) AND ((@IsNull_m08 = 1 AND [m08] IS NULL) OR ([m08] = @Origina"& _ "l_m08)) AND ((@IsNull_m09 = 1 AND [m09] IS NULL) OR ([m09] = @Original_m09)) AND"& _ " ((@IsNull_m10 = 1 AND [m10] IS NULL) OR ([m10] = @Original_m10)) AND ((@IsNull_"& _ "m11 = 1 AND [m11] IS NULL) OR ([m11] = @Original_m11)) AND ((@IsNull_m12 = 1 AND"& _ " [m12] IS NULL) OR ([m12] = @Original_m12)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT code, 건물위치, 난방기, 냉방기, m01,"& _ " m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12 FROM tbl_weather2 WHERE ("& _ "code = @code) ORDER BY 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("@m01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", 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_m01", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m02", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m03", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m04", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m05", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m06", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m07", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m08", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m09", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", 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, 건물위치, 난방기, 냉방기, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m"& _ "11, m12"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM tbl_weather2"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY code" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DS.tbl_weatherDataTable) 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 DS.tbl_weatherDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DS.tbl_weatherDataTable = New DS.tbl_weatherDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DS.tbl_weatherDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DS) As Integer Return Me.Adapter.Update(dataSet, "tbl_weather") 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_m01 As String, _ ByVal Original_m02 As String, _ ByVal Original_m03 As String, _ ByVal Original_m04 As String, _ ByVal Original_m05 As String, _ ByVal Original_m06 As String, _ ByVal Original_m07 As String, _ ByVal Original_m08 As String, _ ByVal Original_m09 As String, _ ByVal Original_m10 As String, _ ByVal Original_m11 As String, _ ByVal Original_m12 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_m01 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_m01,String) End If If (Original_m02 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_m02,String) End If If (Original_m03 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_m03,String) End If If (Original_m04 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_m04,String) End If If (Original_m05 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_m05,String) End If If (Original_m06 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_m06,String) End If If (Original_m07 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_m07,String) End If If (Original_m08 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_m08,String) End If If (Original_m09 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_m09,String) End If If (Original_m10 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_m10,String) End If If (Original_m11 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_m11,String) End If If (Original_m12 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_m12,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 m01 As String, _ ByVal m02 As String, _ ByVal m03 As String, _ ByVal m04 As String, _ ByVal m05 As String, _ ByVal m06 As String, _ ByVal m07 As String, _ ByVal m08 As String, _ ByVal m09 As String, _ ByVal m10 As String, _ ByVal m11 As String, _ ByVal m12 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 (m01 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(m01,String) End If If (m02 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(m02,String) End If If (m03 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(m03,String) End If If (m04 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(m04,String) End If If (m05 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(m05,String) End If If (m06 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(m06,String) End If If (m07 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(m07,String) End If If (m08 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(m08,String) End If If (m09 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(m09,String) End If If (m10 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(m10,String) End If If (m11 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(m11,String) End If If (m12 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(m12,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 m01 As String, _ ByVal m02 As String, _ ByVal m03 As String, _ ByVal m04 As String, _ ByVal m05 As String, _ ByVal m06 As String, _ ByVal m07 As String, _ ByVal m08 As String, _ ByVal m09 As String, _ ByVal m10 As String, _ ByVal m11 As String, _ ByVal m12 As String, _ ByVal Original_code As String, _ ByVal Original_건물위치 As String, _ ByVal Original_난방기 As String, _ ByVal Original_냉방기 As String, _ ByVal Original_m01 As String, _ ByVal Original_m02 As String, _ ByVal Original_m03 As String, _ ByVal Original_m04 As String, _ ByVal Original_m05 As String, _ ByVal Original_m06 As String, _ ByVal Original_m07 As String, _ ByVal Original_m08 As String, _ ByVal Original_m09 As String, _ ByVal Original_m10 As String, _ ByVal Original_m11 As String, _ ByVal Original_m12 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 (m01 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(m01,String) End If If (m02 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(m02,String) End If If (m03 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(m03,String) End If If (m04 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(m04,String) End If If (m05 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(m05,String) End If If (m06 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(m06,String) End If If (m07 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(m07,String) End If If (m08 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(m08,String) End If If (m09 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(m09,String) End If If (m10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(m10,String) End If If (m11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(m11,String) End If If (m12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(m12,String) End If If (Original_code Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_code") Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_code,String) End If If (Original_건물위치 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_건물위치,String) End If If (Original_난방기 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_난방기,String) End If If (Original_냉방기 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_냉방기,String) End If If (Original_m01 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_m01,String) End If If (Original_m02 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_m02,String) End If If (Original_m03 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_m03,String) End If If (Original_m04 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_m04,String) End If If (Original_m05 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_m05,String) End If If (Original_m06 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_m06,String) End If If (Original_m07 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_m07,String) End If If (Original_m08 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_m08,String) End If If (Original_m09 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_m09,String) End If If (Original_m10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(41).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_m10,String) End If If (Original_m11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(43).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_m11,String) End If If (Original_m12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_m12,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 m01 As String, _ ByVal m02 As String, _ ByVal m03 As String, _ ByVal m04 As String, _ ByVal m05 As String, _ ByVal m06 As String, _ ByVal m07 As String, _ ByVal m08 As String, _ ByVal m09 As String, _ ByVal m10 As String, _ ByVal m11 As String, _ ByVal m12 As String, _ ByVal Original_code As String, _ ByVal Original_건물위치 As String, _ ByVal Original_난방기 As String, _ ByVal Original_냉방기 As String, _ ByVal Original_m01 As String, _ ByVal Original_m02 As String, _ ByVal Original_m03 As String, _ ByVal Original_m04 As String, _ ByVal Original_m05 As String, _ ByVal Original_m06 As String, _ ByVal Original_m07 As String, _ ByVal Original_m08 As String, _ ByVal Original_m09 As String, _ ByVal Original_m10 As String, _ ByVal Original_m11 As String, _ ByVal Original_m12 As String) As Integer Return Me.Update(Original_code, 건물위치, 난방기, 냉방기, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12, Original_code, Original_건물위치, Original_난방기, Original_냉방기, Original_m01, Original_m02, Original_m03, Original_m04, Original_m05, Original_m06, Original_m07, Original_m08, Original_m09, Original_m10, Original_m11, Original_m12) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class weather_ilsaTableAdapter 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 = "weather_ilsa" tableMapping.ColumnMappings.Add("pcode", "pcode") tableMapping.ColumnMappings.Add("code", "code") tableMapping.ColumnMappings.Add("설명", "설명") tableMapping.ColumnMappings.Add("최대부하", "최대부하") tableMapping.ColumnMappings.Add("m01", "m01") tableMapping.ColumnMappings.Add("m02", "m02") tableMapping.ColumnMappings.Add("m03", "m03") tableMapping.ColumnMappings.Add("m04", "m04") tableMapping.ColumnMappings.Add("m05", "m05") tableMapping.ColumnMappings.Add("m06", "m06") tableMapping.ColumnMappings.Add("m07", "m07") tableMapping.ColumnMappings.Add("m08", "m08") tableMapping.ColumnMappings.Add("m09", "m09") tableMapping.ColumnMappings.Add("m10", "m10") tableMapping.ColumnMappings.Add("m11", "m11") tableMapping.ColumnMappings.Add("m12", "m12") 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 [weather_ilsa2] WHERE (([pcode] = @Original_pcode) AND ([code] = @Ori"& _ "ginal_code) AND ((@IsNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND"& _ " ((@IsNull_최대부하 = 1 AND [최대부하] IS NULL) OR ([최대부하] = @Original_최대부하)) AND ((@IsN"& _ "ull_m01 = 1 AND [m01] IS NULL) OR ([m01] = @Original_m01)) AND ((@IsNull_m02 = 1"& _ " AND [m02] IS NULL) OR ([m02] = @Original_m02)) AND ((@IsNull_m03 = 1 AND [m03] "& _ "IS NULL) OR ([m03] = @Original_m03)) AND ((@IsNull_m04 = 1 AND [m04] IS NULL) OR"& _ " ([m04] = @Original_m04)) AND ((@IsNull_m05 = 1 AND [m05] IS NULL) OR ([m05] = @"& _ "Original_m05)) AND ((@IsNull_m06 = 1 AND [m06] IS NULL) OR ([m06] = @Original_m0"& _ "6)) AND ((@IsNull_m07 = 1 AND [m07] IS NULL) OR ([m07] = @Original_m07)) AND ((@"& _ "IsNull_m08 = 1 AND [m08] IS NULL) OR ([m08] = @Original_m08)) AND ((@IsNull_m09 "& _ "= 1 AND [m09] IS NULL) OR ([m09] = @Original_m09)) AND ((@IsNull_m10 = 1 AND [m1"& _ "0] IS NULL) OR ([m10] = @Original_m10)) AND ((@IsNull_m11 = 1 AND [m11] IS NULL)"& _ " OR ([m11] = @Original_m11)) AND ((@IsNull_m12 = 1 AND [m12] IS NULL) OR ([m12] "& _ "= @Original_m12)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) 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_m01", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m02", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m03", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m04", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m05", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m06", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m07", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m08", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m09", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", 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 [weather_ilsa2] ([pcode], [code], [설명], [최대부하], [m01], [m02], [m03], "& _ "[m04], [m05], [m06], [m07], [m08], [m09], [m10], [m11], [m12]) VALUES (@pcode, @"& _ "code, @설명, @최대부하, @m01, @m02, @m03, @m04, @m05, @m06, @m07, @m08, @m09, @m10, @m"& _ "11, @m12);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT pcode, code, 설명, 최대부하, m01, m02, m03, m04, m05, m06, m07, m08"& _ ", m09, m10, m11, m12 FROM weather_ilsa2 WHERE (code = @code) AND (pcode = @pcode"& _ ")" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@m01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", 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 [weather_ilsa2] SET [pcode] = @pcode, [code] = @code, [설명] = @설명, [최대부하] ="& _ " @최대부하, [m01] = @m01, [m02] = @m02, [m03] = @m03, [m04] = @m04, [m05] = @m05, [m"& _ "06] = @m06, [m07] = @m07, [m08] = @m08, [m09] = @m09, [m10] = @m10, [m11] = @m11"& _ ", [m12] = @m12 WHERE (([pcode] = @Original_pcode) AND ([code] = @Original_code) "& _ "AND ((@IsNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND ((@IsNull_최"& _ "대부하 = 1 AND [최대부하] IS NULL) OR ([최대부하] = @Original_최대부하)) AND ((@IsNull_m01 = 1 "& _ "AND [m01] IS NULL) OR ([m01] = @Original_m01)) AND ((@IsNull_m02 = 1 AND [m02] I"& _ "S NULL) OR ([m02] = @Original_m02)) AND ((@IsNull_m03 = 1 AND [m03] IS NULL) OR "& _ "([m03] = @Original_m03)) AND ((@IsNull_m04 = 1 AND [m04] IS NULL) OR ([m04] = @O"& _ "riginal_m04)) AND ((@IsNull_m05 = 1 AND [m05] IS NULL) OR ([m05] = @Original_m05"& _ ")) AND ((@IsNull_m06 = 1 AND [m06] IS NULL) OR ([m06] = @Original_m06)) AND ((@I"& _ "sNull_m07 = 1 AND [m07] IS NULL) OR ([m07] = @Original_m07)) AND ((@IsNull_m08 ="& _ " 1 AND [m08] IS NULL) OR ([m08] = @Original_m08)) AND ((@IsNull_m09 = 1 AND [m09"& _ "] IS NULL) OR ([m09] = @Original_m09)) AND ((@IsNull_m10 = 1 AND [m10] IS NULL) "& _ "OR ([m10] = @Original_m10)) AND ((@IsNull_m11 = 1 AND [m11] IS NULL) OR ([m11] ="& _ " @Original_m11)) AND ((@IsNull_m12 = 1 AND [m12] IS NULL) OR ([m12] = @Original_"& _ "m12)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT pcode, code, 설명, 최대부하, m01, m02, m03, m04, m05, m06, m07, m08, m"& _ "09, m10, m11, m12 FROM weather_ilsa2 WHERE (code = @code) AND (pcode = @pcode)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@m01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Original, 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_m01", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m02", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m03", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m04", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m05", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m06", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m07", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m08", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m09", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", 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 pcode, code, 설명, 최대부하, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, "& _ "m11, m12"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM weather_ilsa2" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DS.weather_ilsaDataTable) 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 DS.weather_ilsaDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DS.weather_ilsaDataTable = New DS.weather_ilsaDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DS.weather_ilsaDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DS) As Integer Return Me.Adapter.Update(dataSet, "weather_ilsa") 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_pcode As String, _ ByVal Original_code As String, _ ByVal Original_설명 As String, _ ByVal Original_최대부하 As String, _ ByVal Original_m01 As String, _ ByVal Original_m02 As String, _ ByVal Original_m03 As String, _ ByVal Original_m04 As String, _ ByVal Original_m05 As String, _ ByVal Original_m06 As String, _ ByVal Original_m07 As String, _ ByVal Original_m08 As String, _ ByVal Original_m09 As String, _ ByVal Original_m10 As String, _ ByVal Original_m11 As String, _ ByVal Original_m12 As String) As Integer If (Original_pcode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_pcode") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_pcode,String) End If If (Original_code Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_code") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_code,String) End If If (Original_설명 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_설명,String) End If If (Original_최대부하 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_최대부하,String) End If If (Original_m01 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_m01,String) End If If (Original_m02 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_m02,String) End If If (Original_m03 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_m03,String) End If If (Original_m04 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_m04,String) End If If (Original_m05 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_m05,String) End If If (Original_m06 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_m06,String) End If If (Original_m07 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_m07,String) End If If (Original_m08 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_m08,String) End If If (Original_m09 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_m09,String) End If If (Original_m10 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_m10,String) End If If (Original_m11 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_m11,String) End If If (Original_m12 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(28).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(28).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(29).Value = CType(Original_m12,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 pcode As String, _ ByVal code As String, _ ByVal 설명 As String, _ ByVal 최대부하 As String, _ ByVal m01 As String, _ ByVal m02 As String, _ ByVal m03 As String, _ ByVal m04 As String, _ ByVal m05 As String, _ ByVal m06 As String, _ ByVal m07 As String, _ ByVal m08 As String, _ ByVal m09 As String, _ ByVal m10 As String, _ ByVal m11 As String, _ ByVal m12 As String) As Integer If (pcode Is Nothing) Then Throw New Global.System.ArgumentNullException("pcode") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(pcode,String) End If If (code Is Nothing) Then Throw New Global.System.ArgumentNullException("code") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(code,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 (m01 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(m01,String) End If If (m02 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(m02,String) End If If (m03 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(m03,String) End If If (m04 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(m04,String) End If If (m05 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(m05,String) End If If (m06 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(m06,String) End If If (m07 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(m07,String) End If If (m08 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(m08,String) End If If (m09 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(m09,String) End If If (m10 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(m10,String) End If If (m11 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(m11,String) End If If (m12 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(m12,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 pcode As String, _ ByVal code As String, _ ByVal 설명 As String, _ ByVal 최대부하 As String, _ ByVal m01 As String, _ ByVal m02 As String, _ ByVal m03 As String, _ ByVal m04 As String, _ ByVal m05 As String, _ ByVal m06 As String, _ ByVal m07 As String, _ ByVal m08 As String, _ ByVal m09 As String, _ ByVal m10 As String, _ ByVal m11 As String, _ ByVal m12 As String, _ ByVal Original_pcode As String, _ ByVal Original_code As String, _ ByVal Original_설명 As String, _ ByVal Original_최대부하 As String, _ ByVal Original_m01 As String, _ ByVal Original_m02 As String, _ ByVal Original_m03 As String, _ ByVal Original_m04 As String, _ ByVal Original_m05 As String, _ ByVal Original_m06 As String, _ ByVal Original_m07 As String, _ ByVal Original_m08 As String, _ ByVal Original_m09 As String, _ ByVal Original_m10 As String, _ ByVal Original_m11 As String, _ ByVal Original_m12 As String) As Integer If (pcode Is Nothing) Then Throw New Global.System.ArgumentNullException("pcode") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(pcode,String) End If If (code Is Nothing) Then Throw New Global.System.ArgumentNullException("code") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(code,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 (m01 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(m01,String) End If If (m02 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(m02,String) End If If (m03 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(m03,String) End If If (m04 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(m04,String) End If If (m05 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(m05,String) End If If (m06 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(m06,String) End If If (m07 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(m07,String) End If If (m08 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(m08,String) End If If (m09 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(m09,String) End If If (m10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(m10,String) End If If (m11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(m11,String) End If If (m12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(m12,String) End If If (Original_pcode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_pcode") Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_pcode,String) End If If (Original_code Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_code") Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_code,String) End If If (Original_설명 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_설명,String) End If If (Original_최대부하 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_최대부하,String) End If If (Original_m01 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_m01,String) End If If (Original_m02 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_m02,String) End If If (Original_m03 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_m03,String) End If If (Original_m04 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_m04,String) End If If (Original_m05 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_m05,String) End If If (Original_m06 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_m06,String) End If If (Original_m07 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_m07,String) End If If (Original_m08 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_m08,String) End If If (Original_m09 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_m09,String) End If If (Original_m10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_m10,String) End If If (Original_m11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_m11,String) End If If (Original_m12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_m12,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 m01 As String, _ ByVal m02 As String, _ ByVal m03 As String, _ ByVal m04 As String, _ ByVal m05 As String, _ ByVal m06 As String, _ ByVal m07 As String, _ ByVal m08 As String, _ ByVal m09 As String, _ ByVal m10 As String, _ ByVal m11 As String, _ ByVal m12 As String, _ ByVal Original_pcode As String, _ ByVal Original_code As String, _ ByVal Original_설명 As String, _ ByVal Original_최대부하 As String, _ ByVal Original_m01 As String, _ ByVal Original_m02 As String, _ ByVal Original_m03 As String, _ ByVal Original_m04 As String, _ ByVal Original_m05 As String, _ ByVal Original_m06 As String, _ ByVal Original_m07 As String, _ ByVal Original_m08 As String, _ ByVal Original_m09 As String, _ ByVal Original_m10 As String, _ ByVal Original_m11 As String, _ ByVal Original_m12 As String) As Integer Return Me.Update(Original_pcode, Original_code, 설명, 최대부하, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12, Original_pcode, Original_code, Original_설명, Original_최대부하, Original_m01, Original_m02, Original_m03, Original_m04, Original_m05, Original_m06, Original_m07, Original_m08, Original_m09, Original_m10, Original_m11, Original_m12) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class weather_supdoTableAdapter 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 = "weather_supdo" tableMapping.ColumnMappings.Add("pcode", "pcode") tableMapping.ColumnMappings.Add("code", "code") tableMapping.ColumnMappings.Add("설명", "설명") tableMapping.ColumnMappings.Add("t01", "t01") tableMapping.ColumnMappings.Add("t02", "t02") tableMapping.ColumnMappings.Add("t03", "t03") tableMapping.ColumnMappings.Add("t04", "t04") tableMapping.ColumnMappings.Add("t05", "t05") tableMapping.ColumnMappings.Add("t06", "t06") tableMapping.ColumnMappings.Add("t07", "t07") tableMapping.ColumnMappings.Add("t08", "t08") tableMapping.ColumnMappings.Add("t09", "t09") tableMapping.ColumnMappings.Add("t10", "t10") tableMapping.ColumnMappings.Add("t11", "t11") tableMapping.ColumnMappings.Add("t12", "t12") tableMapping.ColumnMappings.Add("t13", "t13") tableMapping.ColumnMappings.Add("t14", "t14") tableMapping.ColumnMappings.Add("t15", "t15") tableMapping.ColumnMappings.Add("t16", "t16") tableMapping.ColumnMappings.Add("t17", "t17") tableMapping.ColumnMappings.Add("t18", "t18") tableMapping.ColumnMappings.Add("t19", "t19") tableMapping.ColumnMappings.Add("t20", "t20") tableMapping.ColumnMappings.Add("t21", "t21") tableMapping.ColumnMappings.Add("t22", "t22") tableMapping.ColumnMappings.Add("t23", "t23") tableMapping.ColumnMappings.Add("t24", "t24") 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 [weather_supdo2] WHERE (([pcode] = @Original_pcode) AND ([code] = @Or"& _ "iginal_code) AND ((@IsNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AN"& _ "D ((@IsNull_t01 = 1 AND [t01] IS NULL) OR ([t01] = @Original_t01)) AND ((@IsNull"& _ "_t02 = 1 AND [t02] IS NULL) OR ([t02] = @Original_t02)) AND ((@IsNull_t03 = 1 AN"& _ "D [t03] IS NULL) OR ([t03] = @Original_t03)) AND ((@IsNull_t04 = 1 AND [t04] IS "& _ "NULL) OR ([t04] = @Original_t04)) AND ((@IsNull_t05 = 1 AND [t05] IS NULL) OR (["& _ "t05] = @Original_t05)) AND ((@IsNull_t06 = 1 AND [t06] IS NULL) OR ([t06] = @Ori"& _ "ginal_t06)) AND ((@IsNull_t07 = 1 AND [t07] IS NULL) OR ([t07] = @Original_t07))"& _ " AND ((@IsNull_t08 = 1 AND [t08] IS NULL) OR ([t08] = @Original_t08)) AND ((@IsN"& _ "ull_t09 = 1 AND [t09] IS NULL) OR ([t09] = @Original_t09)) AND ((@IsNull_t10 = 1"& _ " AND [t10] IS NULL) OR ([t10] = @Original_t10)) AND ((@IsNull_t11 = 1 AND [t11] "& _ "IS NULL) OR ([t11] = @Original_t11)) AND ((@IsNull_t12 = 1 AND [t12] IS NULL) OR"& _ " ([t12] = @Original_t12)) AND ((@IsNull_t13 = 1 AND [t13] IS NULL) OR ([t13] = @"& _ "Original_t13)) AND ((@IsNull_t14 = 1 AND [t14] IS NULL) OR ([t14] = @Original_t1"& _ "4)) AND ((@IsNull_t15 = 1 AND [t15] IS NULL) OR ([t15] = @Original_t15)) AND ((@"& _ "IsNull_t16 = 1 AND [t16] IS NULL) OR ([t16] = @Original_t16)) AND ((@IsNull_t17 "& _ "= 1 AND [t17] IS NULL) OR ([t17] = @Original_t17)) AND ((@IsNull_t18 = 1 AND [t1"& _ "8] IS NULL) OR ([t18] = @Original_t18)) AND ((@IsNull_t19 = 1 AND [t19] IS NULL)"& _ " OR ([t19] = @Original_t19)) AND ((@IsNull_t20 = 1 AND [t20] IS NULL) OR ([t20] "& _ "= @Original_t20)) AND ((@IsNull_t21 = 1 AND [t21] IS NULL) OR ([t21] = @Original"& _ "_t21)) AND ((@IsNull_t22 = 1 AND [t22] IS NULL) OR ([t22] = @Original_t22)) AND "& _ "((@IsNull_t23 = 1 AND [t23] IS NULL) OR ([t23] = @Original_t23)) AND ((@IsNull_t"& _ "24 = 1 AND [t24] IS NULL) OR ([t24] = @Original_t24)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) 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_t01", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t01", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t01", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t02", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t02", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t02", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t03", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t03", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t03", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t04", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t04", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t04", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t05", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t05", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t05", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t06", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t06", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t06", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t07", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t07", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t07", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t08", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t08", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t08", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t09", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t09", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t09", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t13", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t13", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t13", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t14", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t14", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t14", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t15", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t15", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t15", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t16", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t16", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t16", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t16", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t17", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t17", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t17", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t17", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t18", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t18", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t18", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t18", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t19", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t19", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t19", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t19", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t20", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t20", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t20", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t20", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t21", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t21", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t21", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t21", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t22", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t22", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t22", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t22", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t23", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t23", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t23", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t23", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t24", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t24", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t24", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t24", 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 [weather_supdo2] ([pcode], [code], [설명], [t01], [t02], [t03], [t04], "& _ "[t05], [t06], [t07], [t08], [t09], [t10], [t11], [t12], [t13], [t14], [t15], [t1"& _ "6], [t17], [t18], [t19], [t20], [t21], [t22], [t23], [t24]) VALUES (@pcode, @cod"& _ "e, @설명, @t01, @t02, @t03, @t04, @t05, @t06, @t07, @t08, @t09, @t10, @t11, @t12, "& _ "@t13, @t14, @t15, @t16, @t17, @t18, @t19, @t20, @t21, @t22, @t23, @t24);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _ " pcode, code, 설명, t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t12, t1"& _ "3, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24 FROM weather_supdo2 WHE"& _ "RE (code = @code) AND (pcode = @pcode)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@t01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t01", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t02", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t03", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t04", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t05", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t06", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t07", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t08", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t09", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t13", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t14", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t15", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t16", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t16", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t17", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t17", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t18", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t18", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t19", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t19", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t20", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t20", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t21", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t21", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t22", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t22", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t23", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t23", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t24", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t24", 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 [weather_supdo2] SET [pcode] = @pcode, [code] = @code, [설명] = @설명, [t01] ="& _ " @t01, [t02] = @t02, [t03] = @t03, [t04] = @t04, [t05] = @t05, [t06] = @t06, [t0"& _ "7] = @t07, [t08] = @t08, [t09] = @t09, [t10] = @t10, [t11] = @t11, [t12] = @t12,"& _ " [t13] = @t13, [t14] = @t14, [t15] = @t15, [t16] = @t16, [t17] = @t17, [t18] = @"& _ "t18, [t19] = @t19, [t20] = @t20, [t21] = @t21, [t22] = @t22, [t23] = @t23, [t24]"& _ " = @t24 WHERE (([pcode] = @Original_pcode) AND ([code] = @Original_code) AND ((@"& _ "IsNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND ((@IsNull_t01 = 1 "& _ "AND [t01] IS NULL) OR ([t01] = @Original_t01)) AND ((@IsNull_t02 = 1 AND [t02] I"& _ "S NULL) OR ([t02] = @Original_t02)) AND ((@IsNull_t03 = 1 AND [t03] IS NULL) OR "& _ "([t03] = @Original_t03)) AND ((@IsNull_t04 = 1 AND [t04] IS NULL) OR ([t04] = @O"& _ "riginal_t04)) AND ((@IsNull_t05 = 1 AND [t05] IS NULL) OR ([t05] = @Original_t05"& _ ")) AND ((@IsNull_t06 = 1 AND [t06] IS NULL) OR ([t06] = @Original_t06)) AND ((@I"& _ "sNull_t07 = 1 AND [t07] IS NULL) OR ([t07] = @Original_t07)) AND ((@IsNull_t08 ="& _ " 1 AND [t08] IS NULL) OR ([t08] = @Original_t08)) AND ((@IsNull_t09 = 1 AND [t09"& _ "] IS NULL) OR ([t09] = @Original_t09)) AND ((@IsNull_t10 = 1 AND [t10] IS NULL) "& _ "OR ([t10] = @Original_t10)) AND ((@IsNull_t11 = 1 AND [t11] IS NULL) OR ([t11] ="& _ " @Original_t11)) AND ((@IsNull_t12 = 1 AND [t12] IS NULL) OR ([t12] = @Original_"& _ "t12)) AND ((@IsNull_t13 = 1 AND [t13] IS NULL) OR ([t13] = @Original_t13)) AND ("& _ "(@IsNull_t14 = 1 AND [t14] IS NULL) OR ([t14] = @Original_t14)) AND ((@IsNull_t1"& _ "5 = 1 AND [t15] IS NULL) OR ([t15] = @Original_t15)) AND ((@IsNull_t16 = 1 AND ["& _ "t16] IS NULL) OR ([t16] = @Original_t16)) AND ((@IsNull_t17 = 1 AND [t17] IS NUL"& _ "L) OR ([t17] = @Original_t17)) AND ((@IsNull_t18 = 1 AND [t18] IS NULL) OR ([t18"& _ "] = @Original_t18)) AND ((@IsNull_t19 = 1 AND [t19] IS NULL) OR ([t19] = @Origin"& _ "al_t19)) AND ((@IsNull_t20 = 1 AND [t20] IS NULL) OR ([t20] = @Original_t20)) AN"& _ "D ((@IsNull_t21 = 1 AND [t21] IS NULL) OR ([t21] = @Original_t21)) AND ((@IsNull"& _ "_t22 = 1 AND [t22] IS NULL) OR ([t22] = @Original_t22)) AND ((@IsNull_t23 = 1 AN"& _ "D [t23] IS NULL) OR ([t23] = @Original_t23)) AND ((@IsNull_t24 = 1 AND [t24] IS "& _ "NULL) OR ([t24] = @Original_t24)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT pcode, code, 설명, t01, t02, t03, t04,"& _ " t05, t06, t07, t08, t09, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20,"& _ " t21, t22, t23, t24 FROM weather_supdo2 WHERE (code = @code) AND (pcode = @pcode"& _ ")" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@t01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t01", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t02", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t03", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t04", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t05", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t06", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t07", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t08", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t09", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t13", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t14", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t15", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t16", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t16", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t17", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t17", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t18", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t18", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t19", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t19", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t20", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t20", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t21", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t21", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t22", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t22", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t23", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t23", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t24", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t24", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Original, 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_t01", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t01", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t01", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t02", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t02", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t02", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t03", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t03", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t03", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t04", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t04", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t04", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t05", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t05", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t05", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t06", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t06", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t06", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t07", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t07", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t07", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t08", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t08", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t08", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t09", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t09", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t09", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t13", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t13", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t13", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t14", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t14", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t14", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t15", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t15", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t15", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t16", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t16", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t16", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t16", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t17", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t17", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t17", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t17", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t18", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t18", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t18", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t18", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t19", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t19", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t19", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t19", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t20", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t20", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t20", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t20", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t21", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t21", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t21", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t21", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t22", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t22", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t22", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t22", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t23", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t23", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t23", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t23", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t24", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t24", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t24", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t24", 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 pcode, code, 설명, t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t"& _ "12, t13, t14, t15, t16, t17, t18, t19, t20, t21, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" t22, t23, t24"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM weather_supdo2" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DS.weather_supdoDataTable) 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 DS.weather_supdoDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DS.weather_supdoDataTable = New DS.weather_supdoDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DS.weather_supdoDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DS) As Integer Return Me.Adapter.Update(dataSet, "weather_supdo") 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_pcode As String, _ ByVal Original_code As String, _ ByVal Original_설명 As String, _ ByVal Original_t01 As String, _ ByVal Original_t02 As String, _ ByVal Original_t03 As String, _ ByVal Original_t04 As String, _ ByVal Original_t05 As String, _ ByVal Original_t06 As String, _ ByVal Original_t07 As String, _ ByVal Original_t08 As String, _ ByVal Original_t09 As String, _ ByVal Original_t10 As String, _ ByVal Original_t11 As String, _ ByVal Original_t12 As String, _ ByVal Original_t13 As String, _ ByVal Original_t14 As String, _ ByVal Original_t15 As String, _ ByVal Original_t16 As String, _ ByVal Original_t17 As String, _ ByVal Original_t18 As String, _ ByVal Original_t19 As String, _ ByVal Original_t20 As String, _ ByVal Original_t21 As String, _ ByVal Original_t22 As String, _ ByVal Original_t23 As String, _ ByVal Original_t24 As String) As Integer If (Original_pcode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_pcode") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_pcode,String) End If If (Original_code Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_code") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_code,String) End If If (Original_설명 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_설명,String) End If If (Original_t01 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_t01,String) End If If (Original_t02 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_t02,String) End If If (Original_t03 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_t03,String) End If If (Original_t04 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_t04,String) End If If (Original_t05 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_t05,String) End If If (Original_t06 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_t06,String) End If If (Original_t07 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_t07,String) End If If (Original_t08 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_t08,String) End If If (Original_t09 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_t09,String) End If If (Original_t10 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_t10,String) End If If (Original_t11 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_t11,String) End If If (Original_t12 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_t12,String) End If If (Original_t13 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(28).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(28).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(29).Value = CType(Original_t13,String) End If If (Original_t14 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_t14,String) End If If (Original_t15 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_t15,String) End If If (Original_t16 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_t16,String) End If If (Original_t17 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_t17,String) End If If (Original_t18 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_t18,String) End If If (Original_t19 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_t19,String) End If If (Original_t20 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(43).Value = CType(Original_t20,String) End If If (Original_t21 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(45).Value = CType(Original_t21,String) End If If (Original_t22 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(47).Value = CType(Original_t22,String) End If If (Original_t23 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(49).Value = CType(Original_t23,String) End If If (Original_t24 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(51).Value = CType(Original_t24,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 pcode As String, _ ByVal code As String, _ ByVal 설명 As String, _ ByVal t01 As String, _ ByVal t02 As String, _ ByVal t03 As String, _ ByVal t04 As String, _ ByVal t05 As String, _ ByVal t06 As String, _ ByVal t07 As String, _ ByVal t08 As String, _ ByVal t09 As String, _ ByVal t10 As String, _ ByVal t11 As String, _ ByVal t12 As String, _ ByVal t13 As String, _ ByVal t14 As String, _ ByVal t15 As String, _ ByVal t16 As String, _ ByVal t17 As String, _ ByVal t18 As String, _ ByVal t19 As String, _ ByVal t20 As String, _ ByVal t21 As String, _ ByVal t22 As String, _ ByVal t23 As String, _ ByVal t24 As String) As Integer If (pcode Is Nothing) Then Throw New Global.System.ArgumentNullException("pcode") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(pcode,String) End If If (code Is Nothing) Then Throw New Global.System.ArgumentNullException("code") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(code,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 (t01 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(t01,String) End If If (t02 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(t02,String) End If If (t03 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(t03,String) End If If (t04 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(t04,String) End If If (t05 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(t05,String) End If If (t06 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(t06,String) End If If (t07 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(t07,String) End If If (t08 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(t08,String) End If If (t09 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(t09,String) End If If (t10 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(t10,String) End If If (t11 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(t11,String) End If If (t12 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(t12,String) End If If (t13 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(t13,String) End If If (t14 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(t14,String) End If If (t15 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(t15,String) End If If (t16 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(t16,String) End If If (t17 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(t17,String) End If If (t18 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(t18,String) End If If (t19 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(t19,String) End If If (t20 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(t20,String) End If If (t21 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(t21,String) End If If (t22 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(t22,String) End If If (t23 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(t23,String) End If If (t24 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(26).Value = CType(t24,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 pcode As String, _ ByVal code As String, _ ByVal 설명 As String, _ ByVal t01 As String, _ ByVal t02 As String, _ ByVal t03 As String, _ ByVal t04 As String, _ ByVal t05 As String, _ ByVal t06 As String, _ ByVal t07 As String, _ ByVal t08 As String, _ ByVal t09 As String, _ ByVal t10 As String, _ ByVal t11 As String, _ ByVal t12 As String, _ ByVal t13 As String, _ ByVal t14 As String, _ ByVal t15 As String, _ ByVal t16 As String, _ ByVal t17 As String, _ ByVal t18 As String, _ ByVal t19 As String, _ ByVal t20 As String, _ ByVal t21 As String, _ ByVal t22 As String, _ ByVal t23 As String, _ ByVal t24 As String, _ ByVal Original_pcode As String, _ ByVal Original_code As String, _ ByVal Original_설명 As String, _ ByVal Original_t01 As String, _ ByVal Original_t02 As String, _ ByVal Original_t03 As String, _ ByVal Original_t04 As String, _ ByVal Original_t05 As String, _ ByVal Original_t06 As String, _ ByVal Original_t07 As String, _ ByVal Original_t08 As String, _ ByVal Original_t09 As String, _ ByVal Original_t10 As String, _ ByVal Original_t11 As String, _ ByVal Original_t12 As String, _ ByVal Original_t13 As String, _ ByVal Original_t14 As String, _ ByVal Original_t15 As String, _ ByVal Original_t16 As String, _ ByVal Original_t17 As String, _ ByVal Original_t18 As String, _ ByVal Original_t19 As String, _ ByVal Original_t20 As String, _ ByVal Original_t21 As String, _ ByVal Original_t22 As String, _ ByVal Original_t23 As String, _ ByVal Original_t24 As String) As Integer If (pcode Is Nothing) Then Throw New Global.System.ArgumentNullException("pcode") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(pcode,String) End If If (code Is Nothing) Then Throw New Global.System.ArgumentNullException("code") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(code,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 (t01 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(t01,String) End If If (t02 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(t02,String) End If If (t03 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(t03,String) End If If (t04 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(t04,String) End If If (t05 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(t05,String) End If If (t06 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(t06,String) End If If (t07 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(t07,String) End If If (t08 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(t08,String) End If If (t09 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(t09,String) End If If (t10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(t10,String) End If If (t11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(t11,String) End If If (t12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(t12,String) End If If (t13 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(t13,String) End If If (t14 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(t14,String) End If If (t15 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(t15,String) End If If (t16 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(t16,String) End If If (t17 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(t17,String) End If If (t18 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(t18,String) End If If (t19 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(t19,String) End If If (t20 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(t20,String) End If If (t21 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(t21,String) End If If (t22 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(t22,String) End If If (t23 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(t23,String) End If If (t24 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(t24,String) End If If (Original_pcode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_pcode") Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_pcode,String) End If If (Original_code Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_code") Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_code,String) End If If (Original_설명 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_설명,String) End If If (Original_t01 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_t01,String) End If If (Original_t02 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_t02,String) End If If (Original_t03 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_t03,String) End If If (Original_t04 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_t04,String) End If If (Original_t05 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_t05,String) End If If (Original_t06 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(41).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_t06,String) End If If (Original_t07 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(43).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_t07,String) End If If (Original_t08 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_t08,String) End If If (Original_t09 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(47).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_t09,String) End If If (Original_t10 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_t10,String) End If If (Original_t11 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_t11,String) End If If (Original_t12 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_t12,String) End If If (Original_t13 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Original_t13,String) End If If (Original_t14 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(57).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(57).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(58).Value = CType(Original_t14,String) End If If (Original_t15 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(59).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(59).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(60).Value = CType(Original_t15,String) End If If (Original_t16 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(61).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(61).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(62).Value = CType(Original_t16,String) End If If (Original_t17 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(63).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(63).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(64).Value = CType(Original_t17,String) End If If (Original_t18 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(65).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(65).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(66).Value = CType(Original_t18,String) End If If (Original_t19 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(67).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(67).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(68).Value = CType(Original_t19,String) End If If (Original_t20 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(69).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(69).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(70).Value = CType(Original_t20,String) End If If (Original_t21 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(71).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(71).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(72).Value = CType(Original_t21,String) End If If (Original_t22 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(73).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(73).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(74).Value = CType(Original_t22,String) End If If (Original_t23 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(75).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(75).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(76).Value = CType(Original_t23,String) End If If (Original_t24 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(77).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(77).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Original_t24,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 t01 As String, _ ByVal t02 As String, _ ByVal t03 As String, _ ByVal t04 As String, _ ByVal t05 As String, _ ByVal t06 As String, _ ByVal t07 As String, _ ByVal t08 As String, _ ByVal t09 As String, _ ByVal t10 As String, _ ByVal t11 As String, _ ByVal t12 As String, _ ByVal t13 As String, _ ByVal t14 As String, _ ByVal t15 As String, _ ByVal t16 As String, _ ByVal t17 As String, _ ByVal t18 As String, _ ByVal t19 As String, _ ByVal t20 As String, _ ByVal t21 As String, _ ByVal t22 As String, _ ByVal t23 As String, _ ByVal t24 As String, _ ByVal Original_pcode As String, _ ByVal Original_code As String, _ ByVal Original_설명 As String, _ ByVal Original_t01 As String, _ ByVal Original_t02 As String, _ ByVal Original_t03 As String, _ ByVal Original_t04 As String, _ ByVal Original_t05 As String, _ ByVal Original_t06 As String, _ ByVal Original_t07 As String, _ ByVal Original_t08 As String, _ ByVal Original_t09 As String, _ ByVal Original_t10 As String, _ ByVal Original_t11 As String, _ ByVal Original_t12 As String, _ ByVal Original_t13 As String, _ ByVal Original_t14 As String, _ ByVal Original_t15 As String, _ ByVal Original_t16 As String, _ ByVal Original_t17 As String, _ ByVal Original_t18 As String, _ ByVal Original_t19 As String, _ ByVal Original_t20 As String, _ ByVal Original_t21 As String, _ ByVal Original_t22 As String, _ ByVal Original_t23 As String, _ ByVal Original_t24 As String) As Integer Return Me.Update(Original_pcode, Original_code, 설명, t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, Original_pcode, Original_code, Original_설명, Original_t01, Original_t02, Original_t03, Original_t04, Original_t05, Original_t06, Original_t07, Original_t08, Original_t09, Original_t10, Original_t11, Original_t12, Original_t13, Original_t14, Original_t15, Original_t16, Original_t17, Original_t18, Original_t19, Original_t20, Original_t21, Original_t22, Original_t23, Original_t24) End Function End Class ''' '''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 [tbl_profile_2016] WHERE (([code] = @Original_code) 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_사용종료시간 = 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 ((@IsNu"& _ "ll_연간사용시간야간 = 1 AND [연간사용시간야간] IS NULL) OR ([연간사용시간야간] = @Original_연간사용시간야간)) AN"& _ "D ((@IsNull_일일운전시간 = 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 ((@IsN"& _ "ull_감소계수 = 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 ((@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 AND [야간최저허용온도] IS NULL) OR ([야간최저허용온도] = @Original_야간최저허용온도)) AND ((@IsNul"& _ "l_주말최저허용온도 = 1 AND [주말최저허용온도] IS NULL) OR ([주말최저허용온도] = @Original_주말최저허용온도)) AND"& _ " ((@IsNull_최소설정온도난방 = 1 AND [최소설정온도난방] IS NULL) OR ([최소설정온도난방] = @Original_최소설정온"& _ "도난방)) AND ((@IsNull_최소설정온도냉방 = 1 AND [최소설정온도냉방] IS NULL) OR ([최소설정온도냉방] = @Origi"& _ "nal_최소설정온도냉방)) AND ((@IsNull_외기온도난방 = 1 AND [외기온도난방] IS NULL) OR ([외기온도난방] = @Or"& _ "iginal_외기온도난방)) 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] = @Or"& _ "iginal_day02)) AND ((@IsNull_day03 = 1 AND [day03] IS NULL) OR ([day03] = @Origi"& _ "nal_day03)) AND ((@IsNull_day04 = 1 AND [day04] IS NULL) OR ([day04] = @Original"& _ "_day04)) AND ((@IsNull_day05 = 1 AND [day05] IS NULL) OR ([day05] = @Original_da"& _ "y05)) AND ((@IsNull_day06 = 1 AND [day06] IS NULL) 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 ([day10] = @Original_day10)) AND ((@Is"& _ "Null_day11 = 1 AND [day11] IS NULL) OR ([day11] = @Original_day11)) AND ((@IsNul"& _ "l_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 [tbl_profile_2016] ([code], [설명], [일일급탕요구량], [사용시작시간], [사용종료시간], [일일사"& _ "용시간], [운전시작시간], [운전종료시간], [운전시간난방], [연간사용일수], [연간사용시간주간], [연간사용시간야간], [일일운전시간], "& _ "[연간운전일수], [요구조도], [작업면높이], [감소계수], [부재율], [실지수], [최소도입외기량], [축소운전시최소도입외기량], [사람]"& _ ", [작업보조기기], [난방설정온도], [냉방설정온도], [야간최저허용온도], [주말최저허용온도], [최소설정온도난방], [최소설정온도냉방], "& _ "[외기온도난방], [외기온도냉방7월], [외기온도냉방9월], [차감계수], [오염계수], [부분운전계수], [day01], [day02], [d"& _ "ay03], [day04], [day05], [day06], [day07], [day08], [day09], [day10], [day11], ["& _ "day12]) VALUES (@code, @설명, @일일급탕요구량, @사용시작시간, @사용종료시간, @일일사용시간, @운전시작시간, @운전종료시"& _ "간, @운전시간난방, @연간사용일수, @연간사용시간주간, @연간사용시간야간, @일일운전시간, @연간운전일수, @요구조도, @작업면높이, @감소계"& _ "수, @부재율, @실지수, @최소도입외기량, @축소운전시최소도입외기량, @사람, @작업보조기기, @난방설정온도, @냉방설정온도, @야간최저허용온"& _ "도, @주말최저허용온도, @최소설정온도난방, @최소설정온도냉방, @외기온도난방, @외기온도냉방7월, @외기온도냉방9월, @차감계수, @오염계수,"& _ " @부분운전계수, @day01, @day02, @day03, @day04, @day05, @day06, @day07, @day08, @day09"& _ ", @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 FRO"& _ "M tbl_profile_2016 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 [tbl_profile_2016] 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 ([운전종료시간] = @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_작업면높이 = 1 AND [작업면높이] IS NULL) OR ([작업면높이"& _ "] = @Original_작업면높이)) AND ((@IsNull_감소계수 = 1 AND [감소계수] IS NULL) OR ([감소계수] = @O"& _ "riginal_감소계수)) AND ((@IsNull_부재율 = 1 AND [부재율] IS NULL) OR ([부재율] = @Original_부재"& _ "율)) AND ((@IsNull_실지수 = 1 AND [실지수] IS NULL) OR ([실지수] = @Original_실지수)) AND ((@"& _ "IsNull_최소도입외기량 = 1 AND [최소도입외기량] IS NULL) OR ([최소도입외기량] = @Original_최소도입외기량)) AN"& _ "D ((@IsNull_축소운전시최소도입외기량 = 1 AND [축소운전시최소도입외기량] IS NULL) OR ([축소운전시최소도입외기량] = @O"& _ "riginal_축소운전시최소도입외기량)) 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 ([냉방설정온도] = @Origina"& _ "l_냉방설정온도)) 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 AND"& _ " [부분운전계수] IS NULL) OR ([부분운전계수] = @Original_부분운전계수)) AND ((@IsNull_day01 = 1 AND"& _ " [day01] IS NULL) OR ([day01] = @Original_day01)) AND ((@IsNull_day02 = 1 AND [d"& _ "ay02] IS NULL) OR ([day02] = @Original_day02)) AND ((@IsNull_day03 = 1 AND [day0"& _ "3] 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 NUL"& _ "L) 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 ([d"& _ "ay09] = @Original_day09)) AND ((@IsNull_day10 = 1 AND [day10] IS NULL) OR ([day1"& _ "0] = @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_pr"& _ "ofile_2016 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, 설명, 일일급탕요구량, 사용시작시간, 사용종료시간, 일일사용시간, 운전시작시간, 운전종료시간, 운전시간난방, 연간사용일수"& _ ", 연간사용시간주간, 연간사용시간야간, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 일일운전시간, 연간운전일수, 요구조도, 작업면높이, 감소계수, 부재율, 실"& _ "지수, 최소도입외기량, 축소운전시최소도입외기량, 사람, 작업보조기기, 난방설정온도, 냉방설정온도, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 야간최저허용온도"& _ ", 주말최저허용온도, 최소설정온도난방, 최소설정온도냉방, 외기온도난방, 외기온도냉방7월, 외기온도냉방9월, 차감계수, 오염계수, 부분운전계수, "& _ "day01, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" day02, day03, day04, day05, day06, day07, day08, day09, "& _ "day10, day11, day12"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM tbl_profile_2016" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DS.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 DS.tbl_profileDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DS.tbl_profileDataTable = New DS.tbl_profileDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DS.tbl_profileDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DS) 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 ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class tbl_commonTableAdapter 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_common" tableMapping.ColumnMappings.Add("gubun", "gubun") tableMapping.ColumnMappings.Add("code", "code") tableMapping.ColumnMappings.Add("name", "name") tableMapping.ColumnMappings.Add("valn1", "valn1") 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 [tbl_common2] WHERE (([gubun] = @Original_gubun) AND ([code] = @Origi"& _ "nal_code) AND ((@IsNull_name = 1 AND [name] IS NULL) OR ([name] = @Original_name"& _ ")) AND ((@IsNull_valn1 = 1 AND [valn1] IS NULL) OR ([valn1] = @Original_valn1)))"& _ "" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gubun", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gubun", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) 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_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_valn1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valn1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_valn1", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valn1", 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 [tbl_common2] ([gubun], [code], [name], [valn1]) VALUES (@gubun, @cod"& _ "e, @name, @valn1);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT gubun, code, name, valn1 FROM tbl_common2 WHERE (code"& _ " = @code) AND (gubun = @gubun)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gubun", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gubun", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@valn1", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valn1", 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 [tbl_common2] SET [gubun] = @gubun, [code] = @code, [name] = @name, [valn1"& _ "] = @valn1 WHERE (([gubun] = @Original_gubun) AND ([code] = @Original_code) AND "& _ "((@IsNull_name = 1 AND [name] IS NULL) OR ([name] = @Original_name)) AND ((@IsNu"& _ "ll_valn1 = 1 AND [valn1] IS NULL) OR ([valn1] = @Original_valn1)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT gubu"& _ "n, code, name, valn1 FROM tbl_common2 WHERE (code = @code) AND (gubun = @gubun)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gubun", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gubun", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@valn1", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valn1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gubun", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gubun", Global.System.Data.DataRowVersion.Original, 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_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_valn1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valn1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_valn1", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valn1", 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 gubun, code, name, valn1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM tbl_common2" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DS.tbl_commonDataTable) 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 DS.tbl_commonDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DS.tbl_commonDataTable = New DS.tbl_commonDataTable(true) Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DS.tbl_commonDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DS) As Integer Return Me.Adapter.Update(dataSet, "tbl_common") 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_gubun As String, ByVal Original_code As String, ByVal Original_name As String, ByVal Original_valn1 As Global.System.Nullable(Of Double)) As Integer If (Original_gubun Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gubun") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_gubun,String) End If If (Original_code Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_code") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_code,String) End If If (Original_name Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_name,String) End If If (Original_valn1.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_valn1.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value 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 gubun As String, ByVal code As String, ByVal name As String, ByVal valn1 As Global.System.Nullable(Of Double)) As Integer If (gubun Is Nothing) Then Throw New Global.System.ArgumentNullException("gubun") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(gubun,String) End If If (code Is Nothing) Then Throw New Global.System.ArgumentNullException("code") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(code,String) End If If (name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(name,String) End If If (valn1.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(valn1.Value,Double) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value 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 gubun As String, ByVal code As String, ByVal name As String, ByVal valn1 As Global.System.Nullable(Of Double), ByVal Original_gubun As String, ByVal Original_code As String, ByVal Original_name As String, ByVal Original_valn1 As Global.System.Nullable(Of Double)) As Integer If (gubun Is Nothing) Then Throw New Global.System.ArgumentNullException("gubun") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(gubun,String) End If If (code Is Nothing) Then Throw New Global.System.ArgumentNullException("code") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(code,String) End If If (name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(name,String) End If If (valn1.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(valn1.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Original_gubun Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_gubun") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_gubun,String) End If If (Original_code Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_code") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_code,String) End If If (Original_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_name,String) End If If (Original_valn1.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_valn1.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value 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 name As String, ByVal valn1 As Global.System.Nullable(Of Double), ByVal Original_gubun As String, ByVal Original_code As String, ByVal Original_name As String, ByVal Original_valn1 As Global.System.Nullable(Of Double)) As Integer Return Me.Update(Original_gubun, Original_code, name, valn1, Original_gubun, Original_code, Original_name, Original_valn1) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class weather_groupTableAdapter 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 = "weather_group" tableMapping.ColumnMappings.Add("code", "code") tableMapping.ColumnMappings.Add("name", "name") 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 [weather_group] WHERE (([code] = @Original_code) AND ((@IsNull_name ="& _ " 1 AND [name] IS NULL) OR ([name] = @Original_name)))" 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_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "name", 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 [weather_group] ([code], [name]) VALUES (@code, @name);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT code,"& _ " name FROM weather_group WHERE (code = @code) ORDER BY 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("@name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "name", 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 [weather_group] SET [code] = @code, [name] = @name WHERE (([code] = @Origi"& _ "nal_code) AND ((@IsNull_name = 1 AND [name] IS NULL) OR ([name] = @Original_name"& _ ")));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY 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("@name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "name", 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_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "name", 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, name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM weather_group"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY code" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DS.weather_groupDataTable) 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 DS.weather_groupDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DS.weather_groupDataTable = New DS.weather_groupDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DS.weather_groupDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DS) As Integer Return Me.Adapter.Update(dataSet, "weather_group") 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_name 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_name 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_name,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 name 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 (name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(name,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 name As String, ByVal Original_code As String, ByVal Original_name 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 (name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(name,String) End If If (Original_code Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_code") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_code,String) End If If (Original_name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_name,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 name As String, ByVal Original_code As String, ByVal Original_name As String) As Integer Return Me.Update(Original_code, name, Original_code, Original_name) 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 _weather_chaTableAdapter As weather_chaTableAdapter Private _weather_tempTableAdapter As weather_tempTableAdapter Private _tbl_weatherTableAdapter As tbl_weatherTableAdapter Private _weather_ilsaTableAdapter As weather_ilsaTableAdapter Private _weather_supdoTableAdapter As weather_supdoTableAdapter Private _tbl_profileTableAdapter As tbl_profileTableAdapter Private _tbl_commonTableAdapter As tbl_commonTableAdapter Private _weather_groupTableAdapter As weather_groupTableAdapter 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 weather_chaTableAdapter() As weather_chaTableAdapter Get Return Me._weather_chaTableAdapter End Get Set Me._weather_chaTableAdapter = value End Set End Property _ Public Property weather_tempTableAdapter() As weather_tempTableAdapter Get Return Me._weather_tempTableAdapter End Get Set Me._weather_tempTableAdapter = value End Set End Property _ Public Property tbl_weatherTableAdapter() As tbl_weatherTableAdapter Get Return Me._tbl_weatherTableAdapter End Get Set Me._tbl_weatherTableAdapter = value End Set End Property _ Public Property weather_ilsaTableAdapter() As weather_ilsaTableAdapter Get Return Me._weather_ilsaTableAdapter End Get Set Me._weather_ilsaTableAdapter = value End Set End Property _ Public Property weather_supdoTableAdapter() As weather_supdoTableAdapter Get Return Me._weather_supdoTableAdapter End Get Set Me._weather_supdoTableAdapter = 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 tbl_commonTableAdapter() As tbl_commonTableAdapter Get Return Me._tbl_commonTableAdapter End Get Set Me._tbl_commonTableAdapter = value End Set End Property _ Public Property weather_groupTableAdapter() As weather_groupTableAdapter Get Return Me._weather_groupTableAdapter End Get Set Me._weather_groupTableAdapter = 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._weather_chaTableAdapter) Is Nothing) _ AndAlso (Not (Me._weather_chaTableAdapter.Connection) Is Nothing)) Then Return Me._weather_chaTableAdapter.Connection End If If ((Not (Me._weather_tempTableAdapter) Is Nothing) _ AndAlso (Not (Me._weather_tempTableAdapter.Connection) Is Nothing)) Then Return Me._weather_tempTableAdapter.Connection End If If ((Not (Me._tbl_weatherTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_weatherTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_weatherTableAdapter.Connection End If If ((Not (Me._weather_ilsaTableAdapter) Is Nothing) _ AndAlso (Not (Me._weather_ilsaTableAdapter.Connection) Is Nothing)) Then Return Me._weather_ilsaTableAdapter.Connection End If If ((Not (Me._weather_supdoTableAdapter) Is Nothing) _ AndAlso (Not (Me._weather_supdoTableAdapter.Connection) Is Nothing)) Then Return Me._weather_supdoTableAdapter.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 If ((Not (Me._tbl_commonTableAdapter) Is Nothing) _ AndAlso (Not (Me._tbl_commonTableAdapter.Connection) Is Nothing)) Then Return Me._tbl_commonTableAdapter.Connection End If If ((Not (Me._weather_groupTableAdapter) Is Nothing) _ AndAlso (Not (Me._weather_groupTableAdapter.Connection) Is Nothing)) Then Return Me._weather_groupTableAdapter.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._weather_chaTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._weather_tempTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_weatherTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._weather_ilsaTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._weather_supdoTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_profileTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tbl_commonTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._weather_groupTableAdapter) 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 DS, 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_commonTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_common.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_commonTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If 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 If (Not (Me._weather_supdoTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.weather_supdo.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._weather_supdoTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._weather_ilsaTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.weather_ilsa.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._weather_ilsaTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tbl_weatherTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_weather.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_weatherTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._weather_tempTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.weather_temp.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._weather_tempTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._weather_chaTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.weather_cha.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._weather_chaTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._weather_groupTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.weather_group.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._weather_groupTableAdapter.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 DS, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tbl_commonTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_common.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_commonTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If 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 If (Not (Me._weather_supdoTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.weather_supdo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._weather_supdoTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._weather_ilsaTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.weather_ilsa.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._weather_ilsaTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tbl_weatherTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_weather.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tbl_weatherTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._weather_tempTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.weather_temp.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._weather_tempTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._weather_chaTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.weather_cha.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._weather_chaTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._weather_groupTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.weather_group.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._weather_groupTableAdapter.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 DS, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._weather_groupTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.weather_group.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._weather_groupTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._weather_chaTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.weather_cha.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._weather_chaTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._weather_tempTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.weather_temp.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._weather_tempTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tbl_weatherTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_weather.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_weatherTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._weather_ilsaTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.weather_ilsa.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._weather_ilsaTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._weather_supdoTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.weather_supdo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._weather_supdoTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If 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 If (Not (Me._tbl_commonTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_common.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tbl_commonTableAdapter.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 DS) 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._weather_chaTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._weather_chaTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("TableAdapterManager에서 관리하는 모든 TableAdapter에는 동일한 연결 문자열을 사용해야 합니다.") End If If ((Not (Me._weather_tempTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._weather_tempTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("TableAdapterManager에서 관리하는 모든 TableAdapter에는 동일한 연결 문자열을 사용해야 합니다.") End If If ((Not (Me._tbl_weatherTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_weatherTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("TableAdapterManager에서 관리하는 모든 TableAdapter에는 동일한 연결 문자열을 사용해야 합니다.") End If If ((Not (Me._weather_ilsaTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._weather_ilsaTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("TableAdapterManager에서 관리하는 모든 TableAdapter에는 동일한 연결 문자열을 사용해야 합니다.") End If If ((Not (Me._weather_supdoTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._weather_supdoTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("TableAdapterManager에서 관리하는 모든 TableAdapter에는 동일한 연결 문자열을 사용해야 합니다.") 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 If ((Not (Me._tbl_commonTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tbl_commonTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("TableAdapterManager에서 관리하는 모든 TableAdapter에는 동일한 연결 문자열을 사용해야 합니다.") End If If ((Not (Me._weather_groupTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._weather_groupTableAdapter.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._weather_chaTableAdapter) Is Nothing) Then revertConnections.Add(Me._weather_chaTableAdapter, Me._weather_chaTableAdapter.Connection) Me._weather_chaTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._weather_chaTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._weather_chaTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._weather_chaTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._weather_chaTableAdapter.Adapter) End If End If If (Not (Me._weather_tempTableAdapter) Is Nothing) Then revertConnections.Add(Me._weather_tempTableAdapter, Me._weather_tempTableAdapter.Connection) Me._weather_tempTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._weather_tempTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._weather_tempTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._weather_tempTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._weather_tempTableAdapter.Adapter) End If End If If (Not (Me._tbl_weatherTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_weatherTableAdapter, Me._tbl_weatherTableAdapter.Connection) Me._tbl_weatherTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_weatherTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_weatherTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_weatherTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_weatherTableAdapter.Adapter) End If End If If (Not (Me._weather_ilsaTableAdapter) Is Nothing) Then revertConnections.Add(Me._weather_ilsaTableAdapter, Me._weather_ilsaTableAdapter.Connection) Me._weather_ilsaTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._weather_ilsaTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._weather_ilsaTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._weather_ilsaTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._weather_ilsaTableAdapter.Adapter) End If End If If (Not (Me._weather_supdoTableAdapter) Is Nothing) Then revertConnections.Add(Me._weather_supdoTableAdapter, Me._weather_supdoTableAdapter.Connection) Me._weather_supdoTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._weather_supdoTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._weather_supdoTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._weather_supdoTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._weather_supdoTableAdapter.Adapter) End If End If 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 If (Not (Me._tbl_commonTableAdapter) Is Nothing) Then revertConnections.Add(Me._tbl_commonTableAdapter, Me._tbl_commonTableAdapter.Connection) Me._tbl_commonTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tbl_commonTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tbl_commonTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tbl_commonTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_commonTableAdapter.Adapter) End If End If If (Not (Me._weather_groupTableAdapter) Is Nothing) Then revertConnections.Add(Me._weather_groupTableAdapter, Me._weather_groupTableAdapter.Connection) Me._weather_groupTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._weather_groupTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._weather_groupTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._weather_groupTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._weather_groupTableAdapter.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._weather_chaTableAdapter) Is Nothing) Then Me._weather_chaTableAdapter.Connection = CType(revertConnections(Me._weather_chaTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._weather_chaTableAdapter.Transaction = Nothing End If If (Not (Me._weather_tempTableAdapter) Is Nothing) Then Me._weather_tempTableAdapter.Connection = CType(revertConnections(Me._weather_tempTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._weather_tempTableAdapter.Transaction = Nothing End If If (Not (Me._tbl_weatherTableAdapter) Is Nothing) Then Me._tbl_weatherTableAdapter.Connection = CType(revertConnections(Me._tbl_weatherTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_weatherTableAdapter.Transaction = Nothing End If If (Not (Me._weather_ilsaTableAdapter) Is Nothing) Then Me._weather_ilsaTableAdapter.Connection = CType(revertConnections(Me._weather_ilsaTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._weather_ilsaTableAdapter.Transaction = Nothing End If If (Not (Me._weather_supdoTableAdapter) Is Nothing) Then Me._weather_supdoTableAdapter.Connection = CType(revertConnections(Me._weather_supdoTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._weather_supdoTableAdapter.Transaction = Nothing 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 (Not (Me._tbl_commonTableAdapter) Is Nothing) Then Me._tbl_commonTableAdapter.Connection = CType(revertConnections(Me._tbl_commonTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tbl_commonTableAdapter.Transaction = Nothing End If If (Not (Me._weather_groupTableAdapter) Is Nothing) Then Me._weather_groupTableAdapter.Connection = CType(revertConnections(Me._weather_groupTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._weather_groupTableAdapter.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 GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) Dim root As Global.System.Data.DataRow = row distance = 0 Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() traversedRows(row) = row Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) Do While ((Not (parent) Is Nothing) _ AndAlso (traversedRows.ContainsKey(parent) = false)) distance = (distance + 1) root = parent traversedRows(parent) = parent parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) Loop If (distance = 0) Then traversedRows.Clear traversedRows(row) = row parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) Do While ((Not (parent) Is Nothing) _ AndAlso (traversedRows.ContainsKey(parent) = false)) distance = (distance + 1) root = parent traversedRows(parent) = parent parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) Loop End If Return root 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 Dim distance1 As Integer = 0 Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) Dim distance2 As Integer = 0 Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) If Object.ReferenceEquals(root1, root2) Then Return (Me._childFirst * distance1.CompareTo(distance2)) Else Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ AndAlso (Not (root2.Table) Is Nothing))) If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then Return -1 Else Return 1 End If End If End Function End Class End Class End Namespace