'------------------------------------------------------------------------------
'
' 이 코드는 도구를 사용하여 생성되었습니다.
' 런타임 버전:4.0.30319.42000
'
' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면
' 이러한 변경 내용이 손실됩니다.
'
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
'''
'''Represents a strongly typed in-memory cache of data.
'''
_
Partial Public Class PicDS
Inherits Global.System.Data.DataSet
Private tablePicfileList As PicfileListDataTable
Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
_
Public Sub New()
MyBase.New
Me.BeginInit
Me.InitClass
Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
Me.EndInit
End Sub
_
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context, false)
If (Me.IsBinarySerialized(info, context) = true) Then
Me.InitVars(false)
Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
Return
End If
Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
If (Not (ds.Tables("PicfileList")) Is Nothing) Then
MyBase.Tables.Add(New PicfileListDataTable(ds.Tables("PicfileList")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
Me.Locale = ds.Locale
Me.CaseSensitive = ds.CaseSensitive
Me.EnforceConstraints = ds.EnforceConstraints
Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
Me.InitVars
Else
Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
End If
Me.GetSerializationData(info, context)
Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
End Sub
_
Public ReadOnly Property PicfileList() As PicfileListDataTable
Get
Return Me.tablePicfileList
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 PicDS = CType(MyBase.Clone,PicDS)
cln.InitVars
cln.SchemaSerializationMode = Me.SchemaSerializationMode
Return cln
End Function
_
Protected Overrides Function ShouldSerializeTables() As Boolean
Return false
End Function
_
Protected Overrides Function ShouldSerializeRelations() As Boolean
Return false
End Function
_
Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
Me.Reset
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
ds.ReadXml(reader)
If (Not (ds.Tables("PicfileList")) Is Nothing) Then
MyBase.Tables.Add(New PicfileListDataTable(ds.Tables("PicfileList")))
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.tablePicfileList = CType(MyBase.Tables("PicfileList"),PicfileListDataTable)
If (initTable = true) Then
If (Not (Me.tablePicfileList) Is Nothing) Then
Me.tablePicfileList.InitVars
End If
End If
End Sub
_
Private Sub InitClass()
Me.DataSetName = "PicDS"
Me.Prefix = ""
Me.Namespace = "http://tempuri.org/PicDS.xsd"
Me.EnforceConstraints = true
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
Me.tablePicfileList = New PicfileListDataTable()
MyBase.Tables.Add(Me.tablePicfileList)
End Sub
_
Private Function ShouldSerializePicfileList() 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 PicDS = New PicDS()
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any.Namespace = ds.Namespace
sequence.Items.Add(any)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (Not (s1) Is Nothing) Then
s1.Close
End If
If (Not (s2) Is Nothing) Then
s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
_
Public Delegate Sub PicfileListRowChangeEventHandler(ByVal sender As Object, ByVal e As PicfileListRowChangeEvent)
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class PicfileListDataTable
Inherits Global.System.Data.TypedTableBase(Of PicfileListRow)
Private column파일명 As Global.System.Data.DataColumn
Private column경로 As Global.System.Data.DataColumn
Private column크기 As Global.System.Data.DataColumn
Private column찾음 As Global.System.Data.DataColumn
Private column메세지 As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "PicfileList"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
End Sub
_
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
_
Public ReadOnly Property 파일명Column() As Global.System.Data.DataColumn
Get
Return Me.column파일명
End Get
End Property
_
Public ReadOnly Property 경로Column() As Global.System.Data.DataColumn
Get
Return Me.column경로
End Get
End Property
_
Public ReadOnly Property 크기Column() As Global.System.Data.DataColumn
Get
Return Me.column크기
End Get
End Property
_
Public ReadOnly Property 찾음Column() As Global.System.Data.DataColumn
Get
Return Me.column찾음
End Get
End Property
_
Public ReadOnly Property 메세지Column() As Global.System.Data.DataColumn
Get
Return Me.column메세지
End Get
End Property
_
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As PicfileListRow
Get
Return CType(Me.Rows(index),PicfileListRow)
End Get
End Property
_
Public Event PicfileListRowChanging As PicfileListRowChangeEventHandler
_
Public Event PicfileListRowChanged As PicfileListRowChangeEventHandler
_
Public Event PicfileListRowDeleting As PicfileListRowChangeEventHandler
_
Public Event PicfileListRowDeleted As PicfileListRowChangeEventHandler
_
Public Overloads Sub AddPicfileListRow(ByVal row As PicfileListRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddPicfileListRow(ByVal 파일명 As String, ByVal 경로 As String, ByVal 크기 As String, ByVal 찾음 As String, ByVal 메세지 As String) As PicfileListRow
Dim rowPicfileListRow As PicfileListRow = CType(Me.NewRow,PicfileListRow)
Dim columnValuesArray() As Object = New Object() {파일명, 경로, 크기, 찾음, 메세지}
rowPicfileListRow.ItemArray = columnValuesArray
Me.Rows.Add(rowPicfileListRow)
Return rowPicfileListRow
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As PicfileListDataTable = CType(MyBase.Clone,PicfileListDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New PicfileListDataTable()
End Function
_
Friend Sub InitVars()
Me.column파일명 = MyBase.Columns("파일명")
Me.column경로 = MyBase.Columns("경로")
Me.column크기 = MyBase.Columns("크기")
Me.column찾음 = MyBase.Columns("찾음")
Me.column메세지 = MyBase.Columns("메세지")
End Sub
_
Private Sub InitClass()
Me.column파일명 = New Global.System.Data.DataColumn("파일명", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column파일명)
Me.column경로 = New Global.System.Data.DataColumn("경로", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column경로)
Me.column크기 = New Global.System.Data.DataColumn("크기", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column크기)
Me.column찾음 = New Global.System.Data.DataColumn("찾음", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column찾음)
Me.column메세지 = New Global.System.Data.DataColumn("메세지", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column메세지)
End Sub
_
Public Function NewPicfileListRow() As PicfileListRow
Return CType(Me.NewRow,PicfileListRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New PicfileListRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(PicfileListRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.PicfileListRowChangedEvent) Is Nothing) Then
RaiseEvent PicfileListRowChanged(Me, New PicfileListRowChangeEvent(CType(e.Row,PicfileListRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.PicfileListRowChangingEvent) Is Nothing) Then
RaiseEvent PicfileListRowChanging(Me, New PicfileListRowChangeEvent(CType(e.Row,PicfileListRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.PicfileListRowDeletedEvent) Is Nothing) Then
RaiseEvent PicfileListRowDeleted(Me, New PicfileListRowChangeEvent(CType(e.Row,PicfileListRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.PicfileListRowDeletingEvent) Is Nothing) Then
RaiseEvent PicfileListRowDeleting(Me, New PicfileListRowChangeEvent(CType(e.Row,PicfileListRow), e.Action))
End If
End Sub
_
Public Sub RemovePicfileListRow(ByVal row As PicfileListRow)
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 PicDS = New PicDS()
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 = "PicfileListDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (Not (s1) Is Nothing) Then
s1.Close
End If
If (Not (s2) Is Nothing) Then
s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
'''
'''Represents strongly named DataRow class.
'''
Partial Public Class PicfileListRow
Inherits Global.System.Data.DataRow
Private tablePicfileList As PicfileListDataTable
_
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tablePicfileList = CType(Me.Table,PicfileListDataTable)
End Sub
_
Public Property 파일명() As String
Get
Try
Return CType(Me(Me.tablePicfileList.파일명Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'PicfileList' 테이블의 '파일명' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set
Me(Me.tablePicfileList.파일명Column) = value
End Set
End Property
_
Public Property 경로() As String
Get
Try
Return CType(Me(Me.tablePicfileList.경로Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'PicfileList' 테이블의 '경로' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set
Me(Me.tablePicfileList.경로Column) = value
End Set
End Property
_
Public Property 크기() As String
Get
Try
Return CType(Me(Me.tablePicfileList.크기Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'PicfileList' 테이블의 '크기' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set
Me(Me.tablePicfileList.크기Column) = value
End Set
End Property
_
Public Property 찾음() As String
Get
Try
Return CType(Me(Me.tablePicfileList.찾음Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'PicfileList' 테이블의 '찾음' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set
Me(Me.tablePicfileList.찾음Column) = value
End Set
End Property
_
Public Property 메세지() As String
Get
If Me.Is메세지Null Then
Return "(Empty)"
Else
Return CType(Me(Me.tablePicfileList.메세지Column),String)
End If
End Get
Set
Me(Me.tablePicfileList.메세지Column) = value
End Set
End Property
_
Public Function Is파일명Null() As Boolean
Return Me.IsNull(Me.tablePicfileList.파일명Column)
End Function
_
Public Sub Set파일명Null()
Me(Me.tablePicfileList.파일명Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is경로Null() As Boolean
Return Me.IsNull(Me.tablePicfileList.경로Column)
End Function
_
Public Sub Set경로Null()
Me(Me.tablePicfileList.경로Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is크기Null() As Boolean
Return Me.IsNull(Me.tablePicfileList.크기Column)
End Function
_
Public Sub Set크기Null()
Me(Me.tablePicfileList.크기Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is찾음Null() As Boolean
Return Me.IsNull(Me.tablePicfileList.찾음Column)
End Function
_
Public Sub Set찾음Null()
Me(Me.tablePicfileList.찾음Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is메세지Null() As Boolean
Return Me.IsNull(Me.tablePicfileList.메세지Column)
End Function
_
Public Sub Set메세지Null()
Me(Me.tablePicfileList.메세지Column) = Global.System.Convert.DBNull
End Sub
End Class
'''
'''Row event argument class
'''
_
Public Class PicfileListRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As PicfileListRow
Private eventAction As Global.System.Data.DataRowAction
_
Public Sub New(ByVal row As PicfileListRow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
_
Public ReadOnly Property Row() As PicfileListRow
Get
Return Me.eventRow
End Get
End Property
_
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
End Class