'------------------------------------------------------------------------------
'
' 이 코드는 도구를 사용하여 생성되었습니다.
' 런타임 버전: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 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("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 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("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.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.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 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 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