'------------------------------------------------------------------------------
'
' 이 코드는 도구를 사용하여 생성되었습니다.
' 런타임 버전:4.0.30319.42000
'
' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면
' 이러한 변경 내용이 손실됩니다.
'
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
'''
'''Represents a strongly typed in-memory cache of data.
'''
_
Partial Public Class ireaDataSet
Inherits Global.System.Data.DataSet
Private tableFileList As FileListDataTable
Private tableSrcList As SrcListDataTable
Private tableWorkList As WorkListDataTable
Private tablesubdir As subdirDataTable
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("FileList")) Is Nothing) Then
MyBase.Tables.Add(New FileListDataTable(ds.Tables("FileList")))
End If
If (Not (ds.Tables("SrcList")) Is Nothing) Then
MyBase.Tables.Add(New SrcListDataTable(ds.Tables("SrcList")))
End If
If (Not (ds.Tables("WorkList")) Is Nothing) Then
MyBase.Tables.Add(New WorkListDataTable(ds.Tables("WorkList")))
End If
If (Not (ds.Tables("subdir")) Is Nothing) Then
MyBase.Tables.Add(New subdirDataTable(ds.Tables("subdir")))
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 FileList() As FileListDataTable
Get
Return Me.tableFileList
End Get
End Property
_
Public ReadOnly Property SrcList() As SrcListDataTable
Get
Return Me.tableSrcList
End Get
End Property
_
Public ReadOnly Property WorkList() As WorkListDataTable
Get
Return Me.tableWorkList
End Get
End Property
_
Public ReadOnly Property subdir() As subdirDataTable
Get
Return Me.tablesubdir
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 ireaDataSet = CType(MyBase.Clone,ireaDataSet)
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("FileList")) Is Nothing) Then
MyBase.Tables.Add(New FileListDataTable(ds.Tables("FileList")))
End If
If (Not (ds.Tables("SrcList")) Is Nothing) Then
MyBase.Tables.Add(New SrcListDataTable(ds.Tables("SrcList")))
End If
If (Not (ds.Tables("WorkList")) Is Nothing) Then
MyBase.Tables.Add(New WorkListDataTable(ds.Tables("WorkList")))
End If
If (Not (ds.Tables("subdir")) Is Nothing) Then
MyBase.Tables.Add(New subdirDataTable(ds.Tables("subdir")))
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.tableFileList = CType(MyBase.Tables("FileList"),FileListDataTable)
If (initTable = true) Then
If (Not (Me.tableFileList) Is Nothing) Then
Me.tableFileList.InitVars
End If
End If
Me.tableSrcList = CType(MyBase.Tables("SrcList"),SrcListDataTable)
If (initTable = true) Then
If (Not (Me.tableSrcList) Is Nothing) Then
Me.tableSrcList.InitVars
End If
End If
Me.tableWorkList = CType(MyBase.Tables("WorkList"),WorkListDataTable)
If (initTable = true) Then
If (Not (Me.tableWorkList) Is Nothing) Then
Me.tableWorkList.InitVars
End If
End If
Me.tablesubdir = CType(MyBase.Tables("subdir"),subdirDataTable)
If (initTable = true) Then
If (Not (Me.tablesubdir) Is Nothing) Then
Me.tablesubdir.InitVars
End If
End If
End Sub
_
Private Sub InitClass()
Me.DataSetName = "ireaDataSet"
Me.Prefix = ""
Me.Namespace = "http://tempuri.org/ireaDataSet.xsd"
Me.EnforceConstraints = true
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
Me.tableFileList = New FileListDataTable()
MyBase.Tables.Add(Me.tableFileList)
Me.tableSrcList = New SrcListDataTable()
MyBase.Tables.Add(Me.tableSrcList)
Me.tableWorkList = New WorkListDataTable()
MyBase.Tables.Add(Me.tableWorkList)
Me.tablesubdir = New subdirDataTable()
MyBase.Tables.Add(Me.tablesubdir)
End Sub
_
Private Function ShouldSerializeFileList() As Boolean
Return false
End Function
_
Private Function ShouldSerializeSrcList() As Boolean
Return false
End Function
_
Private Function ShouldSerializeWorkList() As Boolean
Return false
End Function
_
Private Function ShouldSerializesubdir() 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 ireaDataSet = New ireaDataSet()
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 FileListRowChangeEventHandler(ByVal sender As Object, ByVal e As FileListRowChangeEvent)
_
Public Delegate Sub SrcListRowChangeEventHandler(ByVal sender As Object, ByVal e As SrcListRowChangeEvent)
_
Public Delegate Sub WorkListRowChangeEventHandler(ByVal sender As Object, ByVal e As WorkListRowChangeEvent)
_
Public Delegate Sub subdirRowChangeEventHandler(ByVal sender As Object, ByVal e As subdirRowChangeEvent)
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class FileListDataTable
Inherits Global.System.Data.TypedTableBase(Of FileListRow)
Private column경로 As Global.System.Data.DataColumn
Private column파일명 As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "FileList"
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 Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As FileListRow
Get
Return CType(Me.Rows(index),FileListRow)
End Get
End Property
_
Public Event FileListRowChanging As FileListRowChangeEventHandler
_
Public Event FileListRowChanged As FileListRowChangeEventHandler
_
Public Event FileListRowDeleting As FileListRowChangeEventHandler
_
Public Event FileListRowDeleted As FileListRowChangeEventHandler
_
Public Overloads Sub AddFileListRow(ByVal row As FileListRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddFileListRow(ByVal 경로 As String, ByVal 파일명 As String) As FileListRow
Dim rowFileListRow As FileListRow = CType(Me.NewRow,FileListRow)
Dim columnValuesArray() As Object = New Object() {경로, 파일명}
rowFileListRow.ItemArray = columnValuesArray
Me.Rows.Add(rowFileListRow)
Return rowFileListRow
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As FileListDataTable = CType(MyBase.Clone,FileListDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New FileListDataTable()
End Function
_
Friend Sub InitVars()
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파일명)
End Sub
_
Public Function NewFileListRow() As FileListRow
Return CType(Me.NewRow,FileListRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New FileListRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(FileListRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.FileListRowChangedEvent) Is Nothing) Then
RaiseEvent FileListRowChanged(Me, New FileListRowChangeEvent(CType(e.Row,FileListRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.FileListRowChangingEvent) Is Nothing) Then
RaiseEvent FileListRowChanging(Me, New FileListRowChangeEvent(CType(e.Row,FileListRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.FileListRowDeletedEvent) Is Nothing) Then
RaiseEvent FileListRowDeleted(Me, New FileListRowChangeEvent(CType(e.Row,FileListRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.FileListRowDeletingEvent) Is Nothing) Then
RaiseEvent FileListRowDeleting(Me, New FileListRowChangeEvent(CType(e.Row,FileListRow), e.Action))
End If
End Sub
_
Public Sub RemoveFileListRow(ByVal row As FileListRow)
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 ireaDataSet = New ireaDataSet()
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 = "FileListDataTable"
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 SrcListDataTable
Inherits Global.System.Data.TypedTableBase(Of SrcListRow)
Private column목록명 As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "SrcList"
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 Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As SrcListRow
Get
Return CType(Me.Rows(index),SrcListRow)
End Get
End Property
_
Public Event SrcListRowChanging As SrcListRowChangeEventHandler
_
Public Event SrcListRowChanged As SrcListRowChangeEventHandler
_
Public Event SrcListRowDeleting As SrcListRowChangeEventHandler
_
Public Event SrcListRowDeleted As SrcListRowChangeEventHandler
_
Public Overloads Sub AddSrcListRow(ByVal row As SrcListRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddSrcListRow(ByVal 목록명 As String) As SrcListRow
Dim rowSrcListRow As SrcListRow = CType(Me.NewRow,SrcListRow)
Dim columnValuesArray() As Object = New Object() {목록명}
rowSrcListRow.ItemArray = columnValuesArray
Me.Rows.Add(rowSrcListRow)
Return rowSrcListRow
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As SrcListDataTable = CType(MyBase.Clone,SrcListDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New SrcListDataTable()
End Function
_
Friend Sub InitVars()
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목록명)
End Sub
_
Public Function NewSrcListRow() As SrcListRow
Return CType(Me.NewRow,SrcListRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New SrcListRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(SrcListRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.SrcListRowChangedEvent) Is Nothing) Then
RaiseEvent SrcListRowChanged(Me, New SrcListRowChangeEvent(CType(e.Row,SrcListRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.SrcListRowChangingEvent) Is Nothing) Then
RaiseEvent SrcListRowChanging(Me, New SrcListRowChangeEvent(CType(e.Row,SrcListRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.SrcListRowDeletedEvent) Is Nothing) Then
RaiseEvent SrcListRowDeleted(Me, New SrcListRowChangeEvent(CType(e.Row,SrcListRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.SrcListRowDeletingEvent) Is Nothing) Then
RaiseEvent SrcListRowDeleting(Me, New SrcListRowChangeEvent(CType(e.Row,SrcListRow), e.Action))
End If
End Sub
_
Public Sub RemoveSrcListRow(ByVal row As SrcListRow)
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 ireaDataSet = New ireaDataSet()
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 = "SrcListDataTable"
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 WorkListDataTable
Inherits Global.System.Data.TypedTableBase(Of WorkListRow)
Private column원본경로 As Global.System.Data.DataColumn
Private column원본파일명 As Global.System.Data.DataColumn
Private column대상경로 As Global.System.Data.DataColumn
Private column대상파일명 As Global.System.Data.DataColumn
Private column구분 As Global.System.Data.DataColumn
Private column성공 As Global.System.Data.DataColumn
Private column오류 As Global.System.Data.DataColumn
Private columnseq As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "WorkList"
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 성공Column() As Global.System.Data.DataColumn
Get
Return Me.column성공
End Get
End Property
_
Public ReadOnly Property 오류Column() As Global.System.Data.DataColumn
Get
Return Me.column오류
End Get
End Property
_
Public ReadOnly Property seqColumn() As Global.System.Data.DataColumn
Get
Return Me.columnseq
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 WorkListRow
Get
Return CType(Me.Rows(index),WorkListRow)
End Get
End Property
_
Public Event WorkListRowChanging As WorkListRowChangeEventHandler
_
Public Event WorkListRowChanged As WorkListRowChangeEventHandler
_
Public Event WorkListRowDeleting As WorkListRowChangeEventHandler
_
Public Event WorkListRowDeleted As WorkListRowChangeEventHandler
_
Public Overloads Sub AddWorkListRow(ByVal row As WorkListRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddWorkListRow(ByVal 원본경로 As String, ByVal 원본파일명 As String, ByVal 대상경로 As String, ByVal 대상파일명 As String, ByVal 구분 As String, ByVal 성공 As String, ByVal 오류 As String) As WorkListRow
Dim rowWorkListRow As WorkListRow = CType(Me.NewRow,WorkListRow)
Dim columnValuesArray() As Object = New Object() {원본경로, 원본파일명, 대상경로, 대상파일명, 구분, 성공, 오류, Nothing}
rowWorkListRow.ItemArray = columnValuesArray
Me.Rows.Add(rowWorkListRow)
Return rowWorkListRow
End Function
_
Public Function FindBy대상경로대상파일명오류(ByVal 대상경로 As String, ByVal 대상파일명 As String, ByVal 오류 As String) As WorkListRow
Return CType(Me.Rows.Find(New Object() {대상경로, 대상파일명, 오류}),WorkListRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As WorkListDataTable = CType(MyBase.Clone,WorkListDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New WorkListDataTable()
End Function
_
Friend Sub InitVars()
Me.column원본경로 = MyBase.Columns("원본경로")
Me.column원본파일명 = MyBase.Columns("원본파일명")
Me.column대상경로 = MyBase.Columns("대상경로")
Me.column대상파일명 = MyBase.Columns("대상파일명")
Me.column구분 = MyBase.Columns("구분")
Me.column성공 = MyBase.Columns("성공")
Me.column오류 = MyBase.Columns("오류")
Me.columnseq = MyBase.Columns("seq")
End Sub
_
Private Sub InitClass()
Me.column원본경로 = New Global.System.Data.DataColumn("원본경로", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column원본경로)
Me.column원본파일명 = New Global.System.Data.DataColumn("원본파일명", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column원본파일명)
Me.column대상경로 = New Global.System.Data.DataColumn("대상경로", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column대상경로)
Me.column대상파일명 = New Global.System.Data.DataColumn("대상파일명", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column대상파일명)
Me.column구분 = New Global.System.Data.DataColumn("구분", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column구분)
Me.column성공 = New Global.System.Data.DataColumn("성공", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column성공)
Me.column오류 = New Global.System.Data.DataColumn("오류", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column오류)
Me.columnseq = New Global.System.Data.DataColumn("seq", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnseq)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.column대상경로, Me.column대상파일명, Me.column오류}, true))
Me.column원본경로.DefaultValue = CType("",String)
Me.column원본파일명.DefaultValue = CType("",String)
Me.column대상경로.AllowDBNull = false
Me.column대상경로.DefaultValue = CType("",String)
Me.column대상파일명.AllowDBNull = false
Me.column대상파일명.DefaultValue = CType("",String)
Me.column구분.DefaultValue = CType("",String)
Me.column성공.DefaultValue = CType("",String)
Me.column오류.AllowDBNull = false
Me.column오류.DefaultValue = CType("",String)
Me.columnseq.AutoIncrement = true
Me.columnseq.AutoIncrementSeed = 1
End Sub
_
Public Function NewWorkListRow() As WorkListRow
Return CType(Me.NewRow,WorkListRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New WorkListRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(WorkListRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.WorkListRowChangedEvent) Is Nothing) Then
RaiseEvent WorkListRowChanged(Me, New WorkListRowChangeEvent(CType(e.Row,WorkListRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.WorkListRowChangingEvent) Is Nothing) Then
RaiseEvent WorkListRowChanging(Me, New WorkListRowChangeEvent(CType(e.Row,WorkListRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.WorkListRowDeletedEvent) Is Nothing) Then
RaiseEvent WorkListRowDeleted(Me, New WorkListRowChangeEvent(CType(e.Row,WorkListRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.WorkListRowDeletingEvent) Is Nothing) Then
RaiseEvent WorkListRowDeleting(Me, New WorkListRowChangeEvent(CType(e.Row,WorkListRow), e.Action))
End If
End Sub
_
Public Sub RemoveWorkListRow(ByVal row As WorkListRow)
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 ireaDataSet = New ireaDataSet()
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 = "WorkListDataTable"
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 subdirDataTable
Inherits Global.System.Data.TypedTableBase(Of subdirRow)
Private column경로명 As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "subdir"
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 Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As subdirRow
Get
Return CType(Me.Rows(index),subdirRow)
End Get
End Property
_
Public Event subdirRowChanging As subdirRowChangeEventHandler
_
Public Event subdirRowChanged As subdirRowChangeEventHandler
_
Public Event subdirRowDeleting As subdirRowChangeEventHandler
_
Public Event subdirRowDeleted As subdirRowChangeEventHandler
_
Public Overloads Sub AddsubdirRow(ByVal row As subdirRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddsubdirRow(ByVal 경로명 As String) As subdirRow
Dim rowsubdirRow As subdirRow = CType(Me.NewRow,subdirRow)
Dim columnValuesArray() As Object = New Object() {경로명}
rowsubdirRow.ItemArray = columnValuesArray
Me.Rows.Add(rowsubdirRow)
Return rowsubdirRow
End Function
_
Public Function FindBy경로명(ByVal 경로명 As String) As subdirRow
Return CType(Me.Rows.Find(New Object() {경로명}),subdirRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As subdirDataTable = CType(MyBase.Clone,subdirDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New subdirDataTable()
End Function
_
Friend Sub InitVars()
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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.column경로명}, true))
Me.column경로명.AllowDBNull = false
Me.column경로명.Unique = true
Me.column경로명.DefaultValue = CType("",String)
Me.column경로명.MaxLength = 100
End Sub
_
Public Function NewsubdirRow() As subdirRow
Return CType(Me.NewRow,subdirRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New subdirRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(subdirRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.subdirRowChangedEvent) Is Nothing) Then
RaiseEvent subdirRowChanged(Me, New subdirRowChangeEvent(CType(e.Row,subdirRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.subdirRowChangingEvent) Is Nothing) Then
RaiseEvent subdirRowChanging(Me, New subdirRowChangeEvent(CType(e.Row,subdirRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.subdirRowDeletedEvent) Is Nothing) Then
RaiseEvent subdirRowDeleted(Me, New subdirRowChangeEvent(CType(e.Row,subdirRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.subdirRowDeletingEvent) Is Nothing) Then
RaiseEvent subdirRowDeleting(Me, New subdirRowChangeEvent(CType(e.Row,subdirRow), e.Action))
End If
End Sub
_
Public Sub RemovesubdirRow(ByVal row As subdirRow)
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 ireaDataSet = New ireaDataSet()
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 = "subdirDataTable"
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 FileListRow
Inherits Global.System.Data.DataRow
Private tableFileList As FileListDataTable
_
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableFileList = CType(Me.Table,FileListDataTable)
End Sub
_
Public Property 경로() As String
Get
If Me.Is경로Null Then
Return String.Empty
Else
Return CType(Me(Me.tableFileList.경로Column),String)
End If
End Get
Set
Me(Me.tableFileList.경로Column) = value
End Set
End Property
_
Public Property 파일명() As String
Get
If Me.Is파일명Null Then
Return String.Empty
Else
Return CType(Me(Me.tableFileList.파일명Column),String)
End If
End Get
Set
Me(Me.tableFileList.파일명Column) = value
End Set
End Property
_
Public Function Is경로Null() As Boolean
Return Me.IsNull(Me.tableFileList.경로Column)
End Function
_
Public Sub Set경로Null()
Me(Me.tableFileList.경로Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is파일명Null() As Boolean
Return Me.IsNull(Me.tableFileList.파일명Column)
End Function
_
Public Sub Set파일명Null()
Me(Me.tableFileList.파일명Column) = Global.System.Convert.DBNull
End Sub
End Class
'''
'''Represents strongly named DataRow class.
'''
Partial Public Class SrcListRow
Inherits Global.System.Data.DataRow
Private tableSrcList As SrcListDataTable
_
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableSrcList = CType(Me.Table,SrcListDataTable)
End Sub
_
Public Property 목록명() As String
Get
If Me.Is목록명Null Then
Return String.Empty
Else
Return CType(Me(Me.tableSrcList.목록명Column),String)
End If
End Get
Set
Me(Me.tableSrcList.목록명Column) = value
End Set
End Property
_
Public Function Is목록명Null() As Boolean
Return Me.IsNull(Me.tableSrcList.목록명Column)
End Function
_
Public Sub Set목록명Null()
Me(Me.tableSrcList.목록명Column) = Global.System.Convert.DBNull
End Sub
End Class
'''
'''Represents strongly named DataRow class.
'''
Partial Public Class WorkListRow
Inherits Global.System.Data.DataRow
Private tableWorkList As WorkListDataTable
_
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableWorkList = CType(Me.Table,WorkListDataTable)
End Sub
_
Public Property 원본경로() As String
Get
If Me.Is원본경로Null Then
Return String.Empty
Else
Return CType(Me(Me.tableWorkList.원본경로Column),String)
End If
End Get
Set
Me(Me.tableWorkList.원본경로Column) = value
End Set
End Property
_
Public Property 원본파일명() As String
Get
If Me.Is원본파일명Null Then
Return String.Empty
Else
Return CType(Me(Me.tableWorkList.원본파일명Column),String)
End If
End Get
Set
Me(Me.tableWorkList.원본파일명Column) = value
End Set
End Property
_
Public Property 대상경로() As String
Get
Return CType(Me(Me.tableWorkList.대상경로Column),String)
End Get
Set
Me(Me.tableWorkList.대상경로Column) = value
End Set
End Property
_
Public Property 대상파일명() As String
Get
Return CType(Me(Me.tableWorkList.대상파일명Column),String)
End Get
Set
Me(Me.tableWorkList.대상파일명Column) = value
End Set
End Property
_
Public Property 구분() As String
Get
If Me.Is구분Null Then
Return String.Empty
Else
Return CType(Me(Me.tableWorkList.구분Column),String)
End If
End Get
Set
Me(Me.tableWorkList.구분Column) = value
End Set
End Property
_
Public Property 성공() As String
Get
If Me.Is성공Null Then
Return String.Empty
Else
Return CType(Me(Me.tableWorkList.성공Column),String)
End If
End Get
Set
Me(Me.tableWorkList.성공Column) = value
End Set
End Property
_
Public Property 오류() As String
Get
Return CType(Me(Me.tableWorkList.오류Column),String)
End Get
Set
Me(Me.tableWorkList.오류Column) = value
End Set
End Property
_
Public Property seq() As Integer
Get
Try
Return CType(Me(Me.tableWorkList.seqColumn),Integer)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'WorkList' 테이블의 'seq' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set
Me(Me.tableWorkList.seqColumn) = value
End Set
End Property
_
Public Function Is원본경로Null() As Boolean
Return Me.IsNull(Me.tableWorkList.원본경로Column)
End Function
_
Public Sub Set원본경로Null()
Me(Me.tableWorkList.원본경로Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is원본파일명Null() As Boolean
Return Me.IsNull(Me.tableWorkList.원본파일명Column)
End Function
_
Public Sub Set원본파일명Null()
Me(Me.tableWorkList.원본파일명Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is구분Null() As Boolean
Return Me.IsNull(Me.tableWorkList.구분Column)
End Function
_
Public Sub Set구분Null()
Me(Me.tableWorkList.구분Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is성공Null() As Boolean
Return Me.IsNull(Me.tableWorkList.성공Column)
End Function
_
Public Sub Set성공Null()
Me(Me.tableWorkList.성공Column) = Global.System.Convert.DBNull
End Sub
_
Public Function IsseqNull() As Boolean
Return Me.IsNull(Me.tableWorkList.seqColumn)
End Function
_
Public Sub SetseqNull()
Me(Me.tableWorkList.seqColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''
'''Represents strongly named DataRow class.
'''
Partial Public Class subdirRow
Inherits Global.System.Data.DataRow
Private tablesubdir As subdirDataTable
_
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tablesubdir = CType(Me.Table,subdirDataTable)
End Sub
_
Public Property 경로명() As String
Get
Return CType(Me(Me.tablesubdir.경로명Column),String)
End Get
Set
Me(Me.tablesubdir.경로명Column) = value
End Set
End Property
End Class
'''
'''Row event argument class
'''
_
Public Class FileListRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As FileListRow
Private eventAction As Global.System.Data.DataRowAction
_
Public Sub New(ByVal row As FileListRow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
_
Public ReadOnly Property Row() As FileListRow
Get
Return Me.eventRow
End Get
End Property
_
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
'''
'''Row event argument class
'''
_
Public Class SrcListRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As SrcListRow
Private eventAction As Global.System.Data.DataRowAction
_
Public Sub New(ByVal row As SrcListRow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
_
Public ReadOnly Property Row() As SrcListRow
Get
Return Me.eventRow
End Get
End Property
_
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
'''
'''Row event argument class
'''
_
Public Class WorkListRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As WorkListRow
Private eventAction As Global.System.Data.DataRowAction
_
Public Sub New(ByVal row As WorkListRow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
_
Public ReadOnly Property Row() As WorkListRow
Get
Return Me.eventRow
End Get
End Property
_
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
'''
'''Row event argument class
'''
_
Public Class subdirRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As subdirRow
Private eventAction As Global.System.Data.DataRowAction
_
Public Sub New(ByVal row As subdirRow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
_
Public ReadOnly Property Row() As subdirRow
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