'------------------------------------------------------------------------------
'
' 이 코드는 도구를 사용하여 생성되었습니다.
' 런타임 버전: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 tabletbl_profile_od As tbl_profile_odDataTable
Private tableweather_group As weather_groupDataTable
Private tabletbl_weather_od As tbl_weather_odDataTable
Private tableweather_cha_od As weather_cha_odDataTable
Private tableweather_supdo_od As weather_supdo_odDataTable
Private tabletbl_common_od As tbl_common_odDataTable
Private tableweather_ilsa_od As weather_ilsa_odDataTable
Private tableweather_temp_od As weather_temp_odDataTable
Private tableweather_ilsa As weather_ilsaDataTable
Private tabletbl_nanbangkiki As tbl_nanbangkikiDataTable
Private tabletbl_nangbangkiki As tbl_nangbangkikiDataTable
Private tabletbl_bunbae As tbl_bunbaeDataTable
Private tabletbl_pic As tbl_picDataTable
Private tabletbl_myoun As tbl_myounDataTable
Private tabletbl_buha As tbl_buhaDataTable
Private tabletbl_nbunbae As tbl_nbunbaeDataTable
Private tabletbl_yk As tbl_ykDataTable
Private tabletbl_new As tbl_newDataTable
Private tabletbl_kongjo As tbl_kongjoDataTable
Private tabletbl_monuse As tbl_monuseDataTable
Private tabletbl_mach As tbl_machDataTable
Private tabletbl_ykdetail As tbl_ykdetailDataTable
Private tabletbl_zone As tbl_zoneDataTable
Private tabletbl_Desc As tbl_DescDataTable
Private tabletbl_elect As tbl_electDataTable
Private tabletbl_new_energy As tbl_new_energyDataTable
Private tabletbl_new_ground As tbl_new_groundDataTable
Private tabletbl_new_light As tbl_new_lightDataTable
Private tabletbl_light As tbl_lightDataTable
Private tabletbl_danmal As tbl_danmalDataTable
Private tabletbl_type As tbl_typeDataTable
Private tabletbl_new_열병합 As tbl_new_열병합DataTable
Private tabletbl_ReqInfo As tbl_ReqInfoDataTable
Private tabletbl_common As tbl_commonDataTable
Private tabletbl_profile As tbl_profileDataTable
Private tabletbl_weather As tbl_weatherDataTable
Private tableweather_cha As weather_chaDataTable
Private tableweather_temp As weather_tempDataTable
Private tableweather_supdo As weather_supdoDataTable
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("tbl_profile_od")) Is Nothing) Then
MyBase.Tables.Add(New tbl_profile_odDataTable(ds.Tables("tbl_profile_od")))
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_weather_od")) Is Nothing) Then
MyBase.Tables.Add(New tbl_weather_odDataTable(ds.Tables("tbl_weather_od")))
End If
If (Not (ds.Tables("weather_cha_od")) Is Nothing) Then
MyBase.Tables.Add(New weather_cha_odDataTable(ds.Tables("weather_cha_od")))
End If
If (Not (ds.Tables("weather_supdo_od")) Is Nothing) Then
MyBase.Tables.Add(New weather_supdo_odDataTable(ds.Tables("weather_supdo_od")))
End If
If (Not (ds.Tables("tbl_common_od")) Is Nothing) Then
MyBase.Tables.Add(New tbl_common_odDataTable(ds.Tables("tbl_common_od")))
End If
If (Not (ds.Tables("weather_ilsa_od")) Is Nothing) Then
MyBase.Tables.Add(New weather_ilsa_odDataTable(ds.Tables("weather_ilsa_od")))
End If
If (Not (ds.Tables("weather_temp_od")) Is Nothing) Then
MyBase.Tables.Add(New weather_temp_odDataTable(ds.Tables("weather_temp_od")))
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("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_pic")) Is Nothing) Then
MyBase.Tables.Add(New tbl_picDataTable(ds.Tables("tbl_pic")))
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_yk")) Is Nothing) Then
MyBase.Tables.Add(New tbl_ykDataTable(ds.Tables("tbl_yk")))
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_kongjo")) Is Nothing) Then
MyBase.Tables.Add(New tbl_kongjoDataTable(ds.Tables("tbl_kongjo")))
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_mach")) Is Nothing) Then
MyBase.Tables.Add(New tbl_machDataTable(ds.Tables("tbl_mach")))
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_Desc")) Is Nothing) Then
MyBase.Tables.Add(New tbl_DescDataTable(ds.Tables("tbl_Desc")))
End If
If (Not (ds.Tables("tbl_elect")) Is Nothing) Then
MyBase.Tables.Add(New tbl_electDataTable(ds.Tables("tbl_elect")))
End If
If (Not (ds.Tables("tbl_new_energy")) Is Nothing) Then
MyBase.Tables.Add(New tbl_new_energyDataTable(ds.Tables("tbl_new_energy")))
End If
If (Not (ds.Tables("tbl_new_ground")) Is Nothing) Then
MyBase.Tables.Add(New tbl_new_groundDataTable(ds.Tables("tbl_new_ground")))
End If
If (Not (ds.Tables("tbl_new_light")) Is Nothing) Then
MyBase.Tables.Add(New tbl_new_lightDataTable(ds.Tables("tbl_new_light")))
End If
If (Not (ds.Tables("tbl_light")) Is Nothing) Then
MyBase.Tables.Add(New tbl_lightDataTable(ds.Tables("tbl_light")))
End If
If (Not (ds.Tables("tbl_danmal")) Is Nothing) Then
MyBase.Tables.Add(New tbl_danmalDataTable(ds.Tables("tbl_danmal")))
End If
If (Not (ds.Tables("tbl_type")) Is Nothing) Then
MyBase.Tables.Add(New tbl_typeDataTable(ds.Tables("tbl_type")))
End If
If (Not (ds.Tables("tbl_new_열병합")) Is Nothing) Then
MyBase.Tables.Add(New tbl_new_열병합DataTable(ds.Tables("tbl_new_열병합")))
End If
If (Not (ds.Tables("tbl_ReqInfo")) Is Nothing) Then
MyBase.Tables.Add(New tbl_ReqInfoDataTable(ds.Tables("tbl_ReqInfo")))
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("tbl_profile")) Is Nothing) Then
MyBase.Tables.Add(New tbl_profileDataTable(ds.Tables("tbl_profile")))
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_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("weather_supdo")) Is Nothing) Then
MyBase.Tables.Add(New weather_supdoDataTable(ds.Tables("weather_supdo")))
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 tbl_profile_od() As tbl_profile_odDataTable
Get
Return Me.tabletbl_profile_od
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_weather_od() As tbl_weather_odDataTable
Get
Return Me.tabletbl_weather_od
End Get
End Property
_
Public ReadOnly Property weather_cha_od() As weather_cha_odDataTable
Get
Return Me.tableweather_cha_od
End Get
End Property
_
Public ReadOnly Property weather_supdo_od() As weather_supdo_odDataTable
Get
Return Me.tableweather_supdo_od
End Get
End Property
_
Public ReadOnly Property tbl_common_od() As tbl_common_odDataTable
Get
Return Me.tabletbl_common_od
End Get
End Property
_
Public ReadOnly Property weather_ilsa_od() As weather_ilsa_odDataTable
Get
Return Me.tableweather_ilsa_od
End Get
End Property
_
Public ReadOnly Property weather_temp_od() As weather_temp_odDataTable
Get
Return Me.tableweather_temp_od
End Get
End Property
_
Public ReadOnly Property weather_ilsa() As weather_ilsaDataTable
Get
Return Me.tableweather_ilsa
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_pic() As tbl_picDataTable
Get
Return Me.tabletbl_pic
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_yk() As tbl_ykDataTable
Get
Return Me.tabletbl_yk
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_kongjo() As tbl_kongjoDataTable
Get
Return Me.tabletbl_kongjo
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_mach() As tbl_machDataTable
Get
Return Me.tabletbl_mach
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_Desc() As tbl_DescDataTable
Get
Return Me.tabletbl_Desc
End Get
End Property
_
Public ReadOnly Property tbl_elect() As tbl_electDataTable
Get
Return Me.tabletbl_elect
End Get
End Property
_
Public ReadOnly Property tbl_new_energy() As tbl_new_energyDataTable
Get
Return Me.tabletbl_new_energy
End Get
End Property
_
Public ReadOnly Property tbl_new_ground() As tbl_new_groundDataTable
Get
Return Me.tabletbl_new_ground
End Get
End Property
_
Public ReadOnly Property tbl_new_light() As tbl_new_lightDataTable
Get
Return Me.tabletbl_new_light
End Get
End Property
_
Public ReadOnly Property tbl_light() As tbl_lightDataTable
Get
Return Me.tabletbl_light
End Get
End Property
_
Public ReadOnly Property tbl_danmal() As tbl_danmalDataTable
Get
Return Me.tabletbl_danmal
End Get
End Property
_
Public ReadOnly Property tbl_type() As tbl_typeDataTable
Get
Return Me.tabletbl_type
End Get
End Property
_
Public ReadOnly Property tbl_new_열병합() As tbl_new_열병합DataTable
Get
Return Me.tabletbl_new_열병합
End Get
End Property
_
Public ReadOnly Property tbl_ReqInfo() As tbl_ReqInfoDataTable
Get
Return Me.tabletbl_ReqInfo
End Get
End Property
_
Public ReadOnly Property tbl_common() As tbl_commonDataTable
Get
Return Me.tabletbl_common
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_weather() As tbl_weatherDataTable
Get
Return Me.tabletbl_weather
End Get
End Property
_
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 weather_supdo() As weather_supdoDataTable
Get
Return Me.tableweather_supdo
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("tbl_profile_od")) Is Nothing) Then
MyBase.Tables.Add(New tbl_profile_odDataTable(ds.Tables("tbl_profile_od")))
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_weather_od")) Is Nothing) Then
MyBase.Tables.Add(New tbl_weather_odDataTable(ds.Tables("tbl_weather_od")))
End If
If (Not (ds.Tables("weather_cha_od")) Is Nothing) Then
MyBase.Tables.Add(New weather_cha_odDataTable(ds.Tables("weather_cha_od")))
End If
If (Not (ds.Tables("weather_supdo_od")) Is Nothing) Then
MyBase.Tables.Add(New weather_supdo_odDataTable(ds.Tables("weather_supdo_od")))
End If
If (Not (ds.Tables("tbl_common_od")) Is Nothing) Then
MyBase.Tables.Add(New tbl_common_odDataTable(ds.Tables("tbl_common_od")))
End If
If (Not (ds.Tables("weather_ilsa_od")) Is Nothing) Then
MyBase.Tables.Add(New weather_ilsa_odDataTable(ds.Tables("weather_ilsa_od")))
End If
If (Not (ds.Tables("weather_temp_od")) Is Nothing) Then
MyBase.Tables.Add(New weather_temp_odDataTable(ds.Tables("weather_temp_od")))
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("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_pic")) Is Nothing) Then
MyBase.Tables.Add(New tbl_picDataTable(ds.Tables("tbl_pic")))
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_yk")) Is Nothing) Then
MyBase.Tables.Add(New tbl_ykDataTable(ds.Tables("tbl_yk")))
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_kongjo")) Is Nothing) Then
MyBase.Tables.Add(New tbl_kongjoDataTable(ds.Tables("tbl_kongjo")))
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_mach")) Is Nothing) Then
MyBase.Tables.Add(New tbl_machDataTable(ds.Tables("tbl_mach")))
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_Desc")) Is Nothing) Then
MyBase.Tables.Add(New tbl_DescDataTable(ds.Tables("tbl_Desc")))
End If
If (Not (ds.Tables("tbl_elect")) Is Nothing) Then
MyBase.Tables.Add(New tbl_electDataTable(ds.Tables("tbl_elect")))
End If
If (Not (ds.Tables("tbl_new_energy")) Is Nothing) Then
MyBase.Tables.Add(New tbl_new_energyDataTable(ds.Tables("tbl_new_energy")))
End If
If (Not (ds.Tables("tbl_new_ground")) Is Nothing) Then
MyBase.Tables.Add(New tbl_new_groundDataTable(ds.Tables("tbl_new_ground")))
End If
If (Not (ds.Tables("tbl_new_light")) Is Nothing) Then
MyBase.Tables.Add(New tbl_new_lightDataTable(ds.Tables("tbl_new_light")))
End If
If (Not (ds.Tables("tbl_light")) Is Nothing) Then
MyBase.Tables.Add(New tbl_lightDataTable(ds.Tables("tbl_light")))
End If
If (Not (ds.Tables("tbl_danmal")) Is Nothing) Then
MyBase.Tables.Add(New tbl_danmalDataTable(ds.Tables("tbl_danmal")))
End If
If (Not (ds.Tables("tbl_type")) Is Nothing) Then
MyBase.Tables.Add(New tbl_typeDataTable(ds.Tables("tbl_type")))
End If
If (Not (ds.Tables("tbl_new_열병합")) Is Nothing) Then
MyBase.Tables.Add(New tbl_new_열병합DataTable(ds.Tables("tbl_new_열병합")))
End If
If (Not (ds.Tables("tbl_ReqInfo")) Is Nothing) Then
MyBase.Tables.Add(New tbl_ReqInfoDataTable(ds.Tables("tbl_ReqInfo")))
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("tbl_profile")) Is Nothing) Then
MyBase.Tables.Add(New tbl_profileDataTable(ds.Tables("tbl_profile")))
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_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("weather_supdo")) Is Nothing) Then
MyBase.Tables.Add(New weather_supdoDataTable(ds.Tables("weather_supdo")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
Me.Locale = ds.Locale
Me.CaseSensitive = ds.CaseSensitive
Me.EnforceConstraints = ds.EnforceConstraints
Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
Me.InitVars
Else
Me.ReadXml(reader)
Me.InitVars
End If
End Sub
_
Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
stream.Position = 0
Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
End Function
_
Friend Overloads Sub InitVars()
Me.InitVars(true)
End Sub
_
Friend Overloads Sub InitVars(ByVal initTable As Boolean)
Me.tabletbl_profile_od = CType(MyBase.Tables("tbl_profile_od"),tbl_profile_odDataTable)
If (initTable = true) Then
If (Not (Me.tabletbl_profile_od) Is Nothing) Then
Me.tabletbl_profile_od.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_weather_od = CType(MyBase.Tables("tbl_weather_od"),tbl_weather_odDataTable)
If (initTable = true) Then
If (Not (Me.tabletbl_weather_od) Is Nothing) Then
Me.tabletbl_weather_od.InitVars
End If
End If
Me.tableweather_cha_od = CType(MyBase.Tables("weather_cha_od"),weather_cha_odDataTable)
If (initTable = true) Then
If (Not (Me.tableweather_cha_od) Is Nothing) Then
Me.tableweather_cha_od.InitVars
End If
End If
Me.tableweather_supdo_od = CType(MyBase.Tables("weather_supdo_od"),weather_supdo_odDataTable)
If (initTable = true) Then
If (Not (Me.tableweather_supdo_od) Is Nothing) Then
Me.tableweather_supdo_od.InitVars
End If
End If
Me.tabletbl_common_od = CType(MyBase.Tables("tbl_common_od"),tbl_common_odDataTable)
If (initTable = true) Then
If (Not (Me.tabletbl_common_od) Is Nothing) Then
Me.tabletbl_common_od.InitVars
End If
End If
Me.tableweather_ilsa_od = CType(MyBase.Tables("weather_ilsa_od"),weather_ilsa_odDataTable)
If (initTable = true) Then
If (Not (Me.tableweather_ilsa_od) Is Nothing) Then
Me.tableweather_ilsa_od.InitVars
End If
End If
Me.tableweather_temp_od = CType(MyBase.Tables("weather_temp_od"),weather_temp_odDataTable)
If (initTable = true) Then
If (Not (Me.tableweather_temp_od) Is Nothing) Then
Me.tableweather_temp_od.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.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_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_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_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_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_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_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_mach = CType(MyBase.Tables("tbl_mach"),tbl_machDataTable)
If (initTable = true) Then
If (Not (Me.tabletbl_mach) Is Nothing) Then
Me.tabletbl_mach.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_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
Me.tabletbl_elect = CType(MyBase.Tables("tbl_elect"),tbl_electDataTable)
If (initTable = true) Then
If (Not (Me.tabletbl_elect) Is Nothing) Then
Me.tabletbl_elect.InitVars
End If
End If
Me.tabletbl_new_energy = CType(MyBase.Tables("tbl_new_energy"),tbl_new_energyDataTable)
If (initTable = true) Then
If (Not (Me.tabletbl_new_energy) Is Nothing) Then
Me.tabletbl_new_energy.InitVars
End If
End If
Me.tabletbl_new_ground = CType(MyBase.Tables("tbl_new_ground"),tbl_new_groundDataTable)
If (initTable = true) Then
If (Not (Me.tabletbl_new_ground) Is Nothing) Then
Me.tabletbl_new_ground.InitVars
End If
End If
Me.tabletbl_new_light = CType(MyBase.Tables("tbl_new_light"),tbl_new_lightDataTable)
If (initTable = true) Then
If (Not (Me.tabletbl_new_light) Is Nothing) Then
Me.tabletbl_new_light.InitVars
End If
End If
Me.tabletbl_light = CType(MyBase.Tables("tbl_light"),tbl_lightDataTable)
If (initTable = true) Then
If (Not (Me.tabletbl_light) Is Nothing) Then
Me.tabletbl_light.InitVars
End If
End If
Me.tabletbl_danmal = CType(MyBase.Tables("tbl_danmal"),tbl_danmalDataTable)
If (initTable = true) Then
If (Not (Me.tabletbl_danmal) Is Nothing) Then
Me.tabletbl_danmal.InitVars
End If
End If
Me.tabletbl_type = CType(MyBase.Tables("tbl_type"),tbl_typeDataTable)
If (initTable = true) Then
If (Not (Me.tabletbl_type) Is Nothing) Then
Me.tabletbl_type.InitVars
End If
End If
Me.tabletbl_new_열병합 = CType(MyBase.Tables("tbl_new_열병합"),tbl_new_열병합DataTable)
If (initTable = true) Then
If (Not (Me.tabletbl_new_열병합) Is Nothing) Then
Me.tabletbl_new_열병합.InitVars
End If
End If
Me.tabletbl_ReqInfo = CType(MyBase.Tables("tbl_ReqInfo"),tbl_ReqInfoDataTable)
If (initTable = true) Then
If (Not (Me.tabletbl_ReqInfo) Is Nothing) Then
Me.tabletbl_ReqInfo.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.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_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_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.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
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.tabletbl_profile_od = New tbl_profile_odDataTable()
MyBase.Tables.Add(Me.tabletbl_profile_od)
Me.tableweather_group = New weather_groupDataTable()
MyBase.Tables.Add(Me.tableweather_group)
Me.tabletbl_weather_od = New tbl_weather_odDataTable()
MyBase.Tables.Add(Me.tabletbl_weather_od)
Me.tableweather_cha_od = New weather_cha_odDataTable()
MyBase.Tables.Add(Me.tableweather_cha_od)
Me.tableweather_supdo_od = New weather_supdo_odDataTable()
MyBase.Tables.Add(Me.tableweather_supdo_od)
Me.tabletbl_common_od = New tbl_common_odDataTable(false)
MyBase.Tables.Add(Me.tabletbl_common_od)
Me.tableweather_ilsa_od = New weather_ilsa_odDataTable()
MyBase.Tables.Add(Me.tableweather_ilsa_od)
Me.tableweather_temp_od = New weather_temp_odDataTable()
MyBase.Tables.Add(Me.tableweather_temp_od)
Me.tableweather_ilsa = New weather_ilsaDataTable()
MyBase.Tables.Add(Me.tableweather_ilsa)
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_pic = New tbl_picDataTable()
MyBase.Tables.Add(Me.tabletbl_pic)
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_yk = New tbl_ykDataTable()
MyBase.Tables.Add(Me.tabletbl_yk)
Me.tabletbl_new = New tbl_newDataTable()
MyBase.Tables.Add(Me.tabletbl_new)
Me.tabletbl_kongjo = New tbl_kongjoDataTable()
MyBase.Tables.Add(Me.tabletbl_kongjo)
Me.tabletbl_monuse = New tbl_monuseDataTable()
MyBase.Tables.Add(Me.tabletbl_monuse)
Me.tabletbl_mach = New tbl_machDataTable()
MyBase.Tables.Add(Me.tabletbl_mach)
Me.tabletbl_ykdetail = New tbl_ykdetailDataTable()
MyBase.Tables.Add(Me.tabletbl_ykdetail)
Me.tabletbl_zone = New tbl_zoneDataTable()
MyBase.Tables.Add(Me.tabletbl_zone)
Me.tabletbl_Desc = New tbl_DescDataTable()
MyBase.Tables.Add(Me.tabletbl_Desc)
Me.tabletbl_elect = New tbl_electDataTable()
MyBase.Tables.Add(Me.tabletbl_elect)
Me.tabletbl_new_energy = New tbl_new_energyDataTable()
MyBase.Tables.Add(Me.tabletbl_new_energy)
Me.tabletbl_new_ground = New tbl_new_groundDataTable()
MyBase.Tables.Add(Me.tabletbl_new_ground)
Me.tabletbl_new_light = New tbl_new_lightDataTable()
MyBase.Tables.Add(Me.tabletbl_new_light)
Me.tabletbl_light = New tbl_lightDataTable()
MyBase.Tables.Add(Me.tabletbl_light)
Me.tabletbl_danmal = New tbl_danmalDataTable()
MyBase.Tables.Add(Me.tabletbl_danmal)
Me.tabletbl_type = New tbl_typeDataTable()
MyBase.Tables.Add(Me.tabletbl_type)
Me.tabletbl_new_열병합 = New tbl_new_열병합DataTable()
MyBase.Tables.Add(Me.tabletbl_new_열병합)
Me.tabletbl_ReqInfo = New tbl_ReqInfoDataTable()
MyBase.Tables.Add(Me.tabletbl_ReqInfo)
Me.tabletbl_common = New tbl_commonDataTable(false)
MyBase.Tables.Add(Me.tabletbl_common)
Me.tabletbl_profile = New tbl_profileDataTable()
MyBase.Tables.Add(Me.tabletbl_profile)
Me.tabletbl_weather = New tbl_weatherDataTable()
MyBase.Tables.Add(Me.tabletbl_weather)
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.tableweather_supdo = New weather_supdoDataTable()
MyBase.Tables.Add(Me.tableweather_supdo)
End Sub
_
Private Function ShouldSerializetbl_profile_od() As Boolean
Return false
End Function
_
Private Function ShouldSerializeweather_group() As Boolean
Return false
End Function
_
Private Function ShouldSerializetbl_weather_od() As Boolean
Return false
End Function
_
Private Function ShouldSerializeweather_cha_od() As Boolean
Return false
End Function
_
Private Function ShouldSerializeweather_supdo_od() As Boolean
Return false
End Function
_
Private Function ShouldSerializetbl_common_od() As Boolean
Return false
End Function
_
Private Function ShouldSerializeweather_ilsa_od() As Boolean
Return false
End Function
_
Private Function ShouldSerializeweather_temp_od() As Boolean
Return false
End Function
_
Private Function ShouldSerializeweather_ilsa() 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_pic() 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_yk() As Boolean
Return false
End Function
_
Private Function ShouldSerializetbl_new() As Boolean
Return false
End Function
_
Private Function ShouldSerializetbl_kongjo() As Boolean
Return false
End Function
_
Private Function ShouldSerializetbl_monuse() As Boolean
Return false
End Function
_
Private Function ShouldSerializetbl_mach() 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_Desc() As Boolean
Return false
End Function
_
Private Function ShouldSerializetbl_elect() As Boolean
Return false
End Function
_
Private Function ShouldSerializetbl_new_energy() As Boolean
Return false
End Function
_
Private Function ShouldSerializetbl_new_ground() As Boolean
Return false
End Function
_
Private Function ShouldSerializetbl_new_light() As Boolean
Return false
End Function
_
Private Function ShouldSerializetbl_light() As Boolean
Return false
End Function
_
Private Function ShouldSerializetbl_danmal() As Boolean
Return false
End Function
_
Private Function ShouldSerializetbl_type() As Boolean
Return false
End Function
_
Private Function ShouldSerializetbl_new_열병합() As Boolean
Return false
End Function
_
Private Function ShouldSerializetbl_ReqInfo() As Boolean
Return false
End Function
_
Private Function ShouldSerializetbl_common() As Boolean
Return false
End Function
_
Private Function ShouldSerializetbl_profile() As Boolean
Return false
End Function
_
Private Function ShouldSerializetbl_weather() As Boolean
Return false
End Function
_
Private Function ShouldSerializeweather_cha() As Boolean
Return false
End Function
_
Private Function ShouldSerializeweather_temp() As Boolean
Return false
End Function
_
Private Function ShouldSerializeweather_supdo() 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_od.codenameColumn.Expression = "'(' + code + ')' +name"
Me.tbl_common.codenameColumn.Expression = "'(' + code + ')' +name"
End Sub
_
Public Delegate Sub tbl_profile_odRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_profile_odRowChangeEvent)
_
Public Delegate Sub weather_groupRowChangeEventHandler(ByVal sender As Object, ByVal e As weather_groupRowChangeEvent)
_
Public Delegate Sub tbl_weather_odRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_weather_odRowChangeEvent)
_
Public Delegate Sub weather_cha_odRowChangeEventHandler(ByVal sender As Object, ByVal e As weather_cha_odRowChangeEvent)
_
Public Delegate Sub weather_supdo_odRowChangeEventHandler(ByVal sender As Object, ByVal e As weather_supdo_odRowChangeEvent)
_
Public Delegate Sub tbl_common_odRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_common_odRowChangeEvent)
_
Public Delegate Sub weather_ilsa_odRowChangeEventHandler(ByVal sender As Object, ByVal e As weather_ilsa_odRowChangeEvent)
_
Public Delegate Sub weather_temp_odRowChangeEventHandler(ByVal sender As Object, ByVal e As weather_temp_odRowChangeEvent)
_
Public Delegate Sub weather_ilsaRowChangeEventHandler(ByVal sender As Object, ByVal e As weather_ilsaRowChangeEvent)
_
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_picRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_picRowChangeEvent)
_
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_ykRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_ykRowChangeEvent)
_
Public Delegate Sub tbl_newRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_newRowChangeEvent)
_
Public Delegate Sub tbl_kongjoRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_kongjoRowChangeEvent)
_
Public Delegate Sub tbl_monuseRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_monuseRowChangeEvent)
_
Public Delegate Sub tbl_machRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_machRowChangeEvent)
_
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_DescRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_DescRowChangeEvent)
_
Public Delegate Sub tbl_electRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_electRowChangeEvent)
_
Public Delegate Sub tbl_new_energyRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_new_energyRowChangeEvent)
_
Public Delegate Sub tbl_new_groundRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_new_groundRowChangeEvent)
_
Public Delegate Sub tbl_new_lightRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_new_lightRowChangeEvent)
_
Public Delegate Sub tbl_lightRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_lightRowChangeEvent)
_
Public Delegate Sub tbl_danmalRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_danmalRowChangeEvent)
_
Public Delegate Sub tbl_typeRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_typeRowChangeEvent)
_
Public Delegate Sub tbl_new_열병합RowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_new_열병합RowChangeEvent)
_
Public Delegate Sub tbl_ReqInfoRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_ReqInfoRowChangeEvent)
_
Public Delegate Sub tbl_commonRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_commonRowChangeEvent)
_
Public Delegate Sub tbl_profileRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_profileRowChangeEvent)
_
Public Delegate Sub tbl_weatherRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_weatherRowChangeEvent)
_
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 weather_supdoRowChangeEventHandler(ByVal sender As Object, ByVal e As weather_supdoRowChangeEvent)
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class tbl_profile_odDataTable
Inherits Global.System.Data.TypedTableBase(Of tbl_profile_odRow)
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
Private column바닥면적 As Global.System.Data.DataColumn
Private column층 As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "tbl_profile_od"
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 바닥면적Column() As Global.System.Data.DataColumn
Get
Return Me.column바닥면적
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_profile_odRow
Get
Return CType(Me.Rows(index),tbl_profile_odRow)
End Get
End Property
_
Public Event tbl_profile_odRowChanging As tbl_profile_odRowChangeEventHandler
_
Public Event tbl_profile_odRowChanged As tbl_profile_odRowChangeEventHandler
_
Public Event tbl_profile_odRowDeleting As tbl_profile_odRowChangeEventHandler
_
Public Event tbl_profile_odRowDeleted As tbl_profile_odRowChangeEventHandler
_
Public Overloads Sub Addtbl_profile_odRow(ByVal row As tbl_profile_odRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function Addtbl_profile_odRow( _
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 바닥면적 As String, _
ByVal 층 As String) As tbl_profile_odRow
Dim rowtbl_profile_odRow As tbl_profile_odRow = CType(Me.NewRow,tbl_profile_odRow)
Dim columnValuesArray() As Object = New Object() {code, 설명, 일일급탕요구량, 사용시작시간, 사용종료시간, 일일사용시간, 운전시작시간, 운전종료시간, 운전시간난방, 연간사용일수, 연간사용시간주간, 연간사용시간야간, 일일운전시간, 연간운전일수, 요구조도, 작업면높이, 감소계수, 부재율, 실지수, 최소도입외기량, 축소운전시최소도입외기량, 사람, 작업보조기기, 난방설정온도, 냉방설정온도, 야간최저허용온도, 주말최저허용온도, 최소설정온도난방, 최소설정온도냉방, 외기온도난방, 외기온도냉방7월, 외기온도냉방9월, 차감계수, 오염계수, 부분운전계수, day01, day02, day03, day04, day05, day06, day07, day08, day09, day10, day11, day12, 바닥면적, 층}
rowtbl_profile_odRow.ItemArray = columnValuesArray
Me.Rows.Add(rowtbl_profile_odRow)
Return rowtbl_profile_odRow
End Function
_
Public Function FindBycode(ByVal code As String) As tbl_profile_odRow
Return CType(Me.Rows.Find(New Object() {code}),tbl_profile_odRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As tbl_profile_odDataTable = CType(MyBase.Clone,tbl_profile_odDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New tbl_profile_odDataTable()
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")
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외기온도냉방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.column바닥면적 = New Global.System.Data.DataColumn("바닥면적", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.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 = 10
Me.column설명.MaxLength = 60
Me.column일일급탕요구량.MaxLength = 20
Me.column사용시작시간.MaxLength = 20
Me.column사용종료시간.MaxLength = 20
Me.column일일사용시간.MaxLength = 20
Me.column운전시작시간.MaxLength = 20
Me.column운전종료시간.MaxLength = 20
Me.column운전시간난방.MaxLength = 20
Me.column연간사용일수.MaxLength = 20
Me.column연간사용시간주간.MaxLength = 20
Me.column연간사용시간야간.MaxLength = 20
Me.column일일운전시간.MaxLength = 20
Me.column연간운전일수.MaxLength = 20
Me.column요구조도.MaxLength = 20
Me.column작업면높이.MaxLength = 20
Me.column감소계수.MaxLength = 20
Me.column부재율.MaxLength = 20
Me.column실지수.MaxLength = 20
Me.column최소도입외기량.MaxLength = 20
Me.column축소운전시최소도입외기량.MaxLength = 20
Me.column사람.MaxLength = 20
Me.column작업보조기기.MaxLength = 20
Me.column난방설정온도.MaxLength = 20
Me.column냉방설정온도.MaxLength = 20
Me.column야간최저허용온도.MaxLength = 20
Me.column주말최저허용온도.MaxLength = 20
Me.column최소설정온도난방.MaxLength = 20
Me.column최소설정온도냉방.MaxLength = 20
Me.column외기온도난방.MaxLength = 20
Me.column외기온도냉방7월.MaxLength = 20
Me.column외기온도냉방9월.MaxLength = 20
Me.column차감계수.MaxLength = 20
Me.column오염계수.MaxLength = 20
Me.column부분운전계수.MaxLength = 20
Me.columnday01.MaxLength = 20
Me.columnday02.MaxLength = 20
Me.columnday03.MaxLength = 20
Me.columnday04.MaxLength = 20
Me.columnday05.MaxLength = 20
Me.columnday06.MaxLength = 20
Me.columnday07.MaxLength = 20
Me.columnday08.MaxLength = 20
Me.columnday09.MaxLength = 20
Me.columnday10.MaxLength = 20
Me.columnday11.MaxLength = 20
Me.columnday12.MaxLength = 20
Me.column바닥면적.MaxLength = 20
End Sub
_
Public Function Newtbl_profile_odRow() As tbl_profile_odRow
Return CType(Me.NewRow,tbl_profile_odRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New tbl_profile_odRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(tbl_profile_odRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.tbl_profile_odRowChangedEvent) Is Nothing) Then
RaiseEvent tbl_profile_odRowChanged(Me, New tbl_profile_odRowChangeEvent(CType(e.Row,tbl_profile_odRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.tbl_profile_odRowChangingEvent) Is Nothing) Then
RaiseEvent tbl_profile_odRowChanging(Me, New tbl_profile_odRowChangeEvent(CType(e.Row,tbl_profile_odRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.tbl_profile_odRowDeletedEvent) Is Nothing) Then
RaiseEvent tbl_profile_odRowDeleted(Me, New tbl_profile_odRowChangeEvent(CType(e.Row,tbl_profile_odRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.tbl_profile_odRowDeletingEvent) Is Nothing) Then
RaiseEvent tbl_profile_odRowDeleting(Me, New tbl_profile_odRowChangeEvent(CType(e.Row,tbl_profile_odRow), e.Action))
End If
End Sub
_
Public Sub Removetbl_profile_odRow(ByVal row As tbl_profile_odRow)
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_profile_odDataTable"
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_weather_odDataTable
Inherits Global.System.Data.TypedTableBase(Of tbl_weather_odRow)
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_od"
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