downdataset.designer.vb

编程环境VB.NET2005 多线程下载

            Me.columnLength = MyBase.Columns("Length")
            Me.columnComplete = MyBase.Columns("Complete")
            Me.columnThreadCount = MyBase.Columns("ThreadCount")
            Me.columnThread = MyBase.Columns("Thread")
            Me.columnNoteTxt = MyBase.Columns("NoteTxt")
            Me.columnUsedTime = MyBase.Columns("UsedTime")
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Private Sub InitClass()
            Me.columnID = New System.Data.DataColumn("ID", GetType(Integer), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnID)
            Me.columnMD5 = New System.Data.DataColumn("MD5", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnMD5)
            Me.columnStatus = New System.Data.DataColumn("Status", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnStatus)
            Me.columnFilename = New System.Data.DataColumn("Filename", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnFilename)
            Me.columnURL = New System.Data.DataColumn("URL", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnURL)
            Me.columnRefUrl = New System.Data.DataColumn("RefUrl", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnRefUrl)
            Me.columnLength = New System.Data.DataColumn("Length", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnLength)
            Me.columnComplete = New System.Data.DataColumn("Complete", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnComplete)
            Me.columnThreadCount = New System.Data.DataColumn("ThreadCount", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnThreadCount)
            Me.columnThread = New System.Data.DataColumn("Thread", GetType(Byte()), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnThread)
            Me.columnNoteTxt = New System.Data.DataColumn("NoteTxt", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnNoteTxt)
            Me.columnUsedTime = New System.Data.DataColumn("UsedTime", GetType(Integer), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnUsedTime)
            Me.Constraints.Add(New System.Data.UniqueConstraint("Constraint1", New System.Data.DataColumn() {Me.columnID}, true))
            Me.columnID.AutoIncrement = true
            Me.columnID.AllowDBNull = false
            Me.columnID.Unique = true
            Me.columnMD5.MaxLength = 255
            Me.columnStatus.MaxLength = 255
            Me.columnFilename.MaxLength = 255
            Me.columnURL.MaxLength = 255
            Me.columnRefUrl.MaxLength = 255
            Me.columnLength.MaxLength = 255
            Me.columnComplete.MaxLength = 255
            Me.columnThreadCount.MaxLength = 255
            Me.columnNoteTxt.MaxLength = 255
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function New下载数据Row() As 下载数据Row
            Return CType(Me.NewRow,下载数据Row)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function NewRowFromBuilder(ByVal builder As System.Data.DataRowBuilder) As System.Data.DataRow
            Return New 下载数据Row(builder)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(下载数据Row)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowChanged(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.下载数据RowChangedEvent) Is Nothing) Then
                RaiseEvent 下载数据RowChanged(Me, New 下载数据RowChangeEvent(CType(e.Row,下载数据Row), e.Action))
            End If
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowChanging(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.下载数据RowChangingEvent) Is Nothing) Then
                RaiseEvent 下载数据RowChanging(Me, New 下载数据RowChangeEvent(CType(e.Row,下载数据Row), e.Action))
            End If
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowDeleted(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.下载数据RowDeletedEvent) Is Nothing) Then
                RaiseEvent 下载数据RowDeleted(Me, New 下载数据RowChangeEvent(CType(e.Row,下载数据Row), e.Action))
            End If
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowDeleting(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.下载数据RowDeletingEvent) Is Nothing) Then
                RaiseEvent 下载数据RowDeleting(Me, New 下载数据RowChangeEvent(CType(e.Row,下载数据Row), e.Action))
            End If
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub Remove下载数据Row(ByVal row As 下载数据Row)
            Me.Rows.Remove(row)
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Shared Function GetTypedTableSchema(ByVal xs As System.Xml.Schema.XmlSchemaSet) As System.Xml.Schema.XmlSchemaComplexType
            Dim type As System.Xml.Schema.XmlSchemaComplexType = New System.Xml.Schema.XmlSchemaComplexType
            Dim sequence As System.Xml.Schema.XmlSchemaSequence = New System.Xml.Schema.XmlSchemaSequence
            Dim ds As downDataSet = New downDataSet
            xs.Add(ds.GetSchemaSerializable)
            Dim any1 As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
            any1.MinOccurs = New Decimal(0)
            any1.MaxOccurs = Decimal.MaxValue
            any1.ProcessContents = System.Xml.Schema.XmlSchemaContentProcessing.Lax
            sequence.Items.Add(any1)
            Dim any2 As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
            any2.MinOccurs = New Decimal(1)
            any2.ProcessContents = System.Xml.Schema.XmlSchemaContentProcessing.Lax
            sequence.Items.Add(any2)
            Dim attribute1 As System.Xml.Schema.XmlSchemaAttribute = New System.Xml.Schema.XmlSchemaAttribute
            attribute1.Name = "namespace"
            attribute1.FixedValue = ds.Namespace
            type.Attributes.Add(attribute1)
            Dim attribute2 As System.Xml.Schema.XmlSchemaAttribute = New System.Xml.Schema.XmlSchemaAttribute
            attribute2.Name = "tableTypeName"
            attribute2.FixedValue = "下载数据DataTable"
            type.Attributes.Add(attribute2)
            type.Particle = sequence
            Return type
        End Function
    End Class
    
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _
    Partial Public Class 下载数据Row
        Inherits System.Data.DataRow
        
        Private table下载数据 As 下载数据DataTable
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub New(ByVal rb As System.Data.DataRowBuilder)
            MyBase.New(rb)
            Me.table下载数据 = CType(Me.Table,下载数据DataTable)
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property ID() As Integer
            Get
                Return CType(Me(Me.table下载数据.IDColumn),Integer)
            End Get
            Set
                Me(Me.table下载数据.IDColumn) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property MD5() As String
            Get
                Try 
                    Return CType(Me(Me.table下载数据.MD5Column),String)
                Catch e As System.InvalidCastException
                    Throw New System.Data.StrongTypingException("表““下载数据””中列““MD5””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table下载数据.MD5Column) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property Status() As String
            Get
                Try 
                    Return CType(Me(Me.table下载数据.StatusColumn),String)
                Catch e As System.InvalidCastException
                    Throw New System.Data.StrongTypingException("表““下载数据””中列““Status””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table下载数据.StatusColumn) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property Filename() As String
            Get
                Try 
                    Return CType(Me(Me.table下载数据.FilenameColumn),String)
                Catch e As System.InvalidCastException
                    Throw New System.Data.StrongTypingException("表““下载数据””中列““Filename””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table下载数据.FilenameColumn) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property URL() As String
            Get
                Try 
                    Return CType(Me(Me.table下载数据.URLColumn),String)
                Catch e As System.InvalidCastException
                    Throw New System.Data.StrongTypingException("表““下载数据””中列““URL””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table下载数据.URLColumn) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property RefUrl() As String
            Get
                Try 
                    Return CType(Me(Me.table下载数据.RefUrlColumn),String)
                Catch e As System.InvalidCastException
                    Throw New System.Data.StrongTypingException("表““下载数据””中列““RefUrl””的值为 DBNull。", e)
                End Try