'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:2.0.50727.42
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports System
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), _
Serializable(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.ComponentModel.ToolboxItem(true), _
System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
System.Xml.Serialization.XmlRootAttribute("ProteinList"), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
Partial Public Class ProteinList
Inherits System.Data.DataSet
Private tableProteins As ProteinsDataTable
Private _schemaSerializationMode As System.Data.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
MyBase.New
Me.BeginInit
Me.InitClass
Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
Me.EndInit
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Sub New(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal context As System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context, false)
If (Me.IsBinarySerialized(info, context) = true) Then
Me.InitVars(false)
Dim schemaChangedHandler1 As 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) = System.Data.SchemaSerializationMode.IncludeSchema) Then
Dim ds As System.Data.DataSet = New System.Data.DataSet
ds.ReadXmlSchema(New System.Xml.XmlTextReader(New System.IO.StringReader(strSchema)))
If (Not (ds.Tables("Proteins")) Is Nothing) Then
MyBase.Tables.Add(New ProteinsDataTable(ds.Tables("Proteins")))
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, System.Data.MissingSchemaAction.Add)
Me.InitVars
Else
Me.ReadXmlSchema(New System.Xml.XmlTextReader(New System.IO.StringReader(strSchema)))
End If
Me.GetSerializationData(info, context)
Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Browsable(false), _
System.ComponentModel.DesignerSerializationVisibility(System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property Proteins() As ProteinsDataTable
Get
Return Me.tableProteins
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.BrowsableAttribute(true), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Visible)> _
Public Overrides Property SchemaSerializationMode() As System.Data.SchemaSerializationMode
Get
Return Me._schemaSerializationMode
End Get
Set
Me._schemaSerializationMode = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
Public Shadows ReadOnly Property Tables() As System.Data.DataTableCollection
Get
Return MyBase.Tables
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
Public Shadows ReadOnly Property Relations() As System.Data.DataRelationCollection
Get
Return MyBase.Relations
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub InitializeDerivedDataSet()
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overrides Function Clone() As System.Data.DataSet
Dim cln As ProteinList = CType(MyBase.Clone,ProteinList)
cln.InitVars
cln.SchemaSerializationMode = Me.SchemaSerializationMode
Return cln
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function ShouldSerializeTables() As Boolean
Return false
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function ShouldSerializeRelations() As Boolean
Return false
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub ReadXmlSerializable(ByVal reader As System.Xml.XmlReader)
If (Me.DetermineSchemaSerializationMode(reader) = System.Data.SchemaSerializationMode.IncludeSchema) Then
Me.Reset
Dim ds As System.Data.DataSet = New System.Data.DataSet
ds.ReadXml(reader)
If (Not (ds.Tables("Proteins")) Is Nothing) Then
MyBase.Tables.Add(New ProteinsDataTable(ds.Tables("Proteins")))
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, System.Data.MissingSchemaAction.Add)
Me.InitVars
Else
Me.ReadXml(reader)
Me.InitVars
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function GetSchemaSerializable() As System.Xml.Schema.XmlSchema
Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream
Me.WriteXmlSchema(New System.Xml.XmlTextWriter(stream, Nothing))
stream.Position = 0
Return System.Xml.Schema.XmlSchema.Read(New System.Xml.XmlTextReader(stream), Nothing)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Overloads Sub InitVars()
Me.InitVars(true)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Overloads Sub InitVars(ByVal initTable As Boolean)
Me.tableProteins = CType(MyBase.Tables("Proteins"),ProteinsDataTable)
If (initTable = true) Then
If (Not (Me.tableProteins) Is Nothing) Then
Me.tableProteins.InitVars
End If
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitClass()
Me.DataSetName = "ProteinList"
Me.Prefix = ""
Me.Namespace = "http://www.tempuri.org/ProteinList.xsd"
Me.EnforceConstraints = true
Me.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
Me.tableProteins = New ProteinsDataTable
MyBase.Tables.Add(Me.tableProteins)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Function ShouldSerializeProteins() As Boolean
Return false
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As System.ComponentModel.CollectionChangeEventArgs)
If (e.Action = System.ComponentModel.CollectionChangeAction.Remove) Then
Me.InitVars
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Shared Function GetTypedDataSetSchema(ByVal xs As System.Xml.Schema.XmlSchemaSet) As System.Xml.Schema.XmlSchemaComplexType
Dim ds As ProteinList = New ProteinList
Dim type As System.Xml.Schema.XmlSchemaComplexType = New System.Xml.Schema.XmlSchemaComplexType
Dim sequence As System.Xml.Schema.XmlSchemaSequence = New System.Xml.Schema.XmlSchemaSequence
xs.Add(ds.GetSchemaSerializable)
Dim any As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
any.Namespace = ds.Namespace
sequence.Items.Add(any)
type.Particle = sequence
Return type
End Function
Public Delegate Sub ProteinsRowChangeEventHandler(ByVal sender As Object, ByVal e As ProteinsRowChangeEvent)
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), _
System.Serializable(), _
System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class ProteinsDataTable
Inherits System.Data.DataTable
Implements System.Collections.IEnumerable
Private columnUniqID As System.Data.DataColumn
Private columnSearchID As System.Data.DataColumn
Private columnHitNumber As System.Data.DataColumn
Private columnProteinDescriptor As System.Data.DataColumn
Private columnDatabaseSearched As System.Data.DataColumn
Private columnDatabaseID As System.Data.DataColumn
Private columnSpecies As System.Data.DataColumn
Private columnRatio1 As System.Data.DataColumn
Private columnStErr1 As System.Data.DataColumn
Private columnRatio2 As System.Data.DataColumn
Private columnStErr2 As System.Data.DataColumn
Private columnMascotScore As System.Data.DataColumn
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
MyBase.New
Me.TableName = "Proteins"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal table As 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
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Sub New(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal context As System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property UniqIDColumn() As System.Data.DataColumn
Get
Return Me.columnUniqID
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property SearchIDColumn() As System.Data.DataColumn
Get
Return Me.columnSearchID
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property HitNumberColumn() As System.Data.DataColumn
Get
Return Me.columnHitNumber
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ProteinDescriptorColumn() As System.Data.DataColumn
Get
Return Me.columnProteinDescriptor
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property DatabaseSearchedColumn() As System.Data.DataColumn
Get
Return Me.columnDatabaseSearched
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property DatabaseIDColumn() As System.Data.DataColumn
Get
Return Me.columnDatabaseID
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property SpeciesColumn() As System.Data.DataColumn
Get
Return Me.columnSpecies
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Ratio1Column() As System.Data.DataColumn
Get
Return Me.columnRatio1
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property StErr1Column() As System.Data.DataColumn
Get
Return Me.columnStErr1
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Ratio2Column() As System.Data.DataColumn
Get
Return Me.columnRatio2
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property StErr2Column() As System.Data.DataColumn
Get
Return Me.columnStErr2
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property MascotScoreColumn() As System.Data.DataColumn
Get
Return Me.columnMascotScore
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Default ReadOnly Property Item(ByVal index As Integer) As ProteinsRow
Get
Return CType(Me.Rows(index),ProteinsRow)
End Get
End Property
Public Event ProteinsRowChanging As ProteinsRowChangeEventHandler
Public Event ProteinsRowChanged As ProteinsRowChangeEventHandler
Public Event ProteinsRowDeleting As ProteinsRowChangeEventHandler
Public Event ProteinsRowDeleted As ProteinsRowChangeEventHandler
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overloads Sub AddProteinsRow(ByVal row As ProteinsRow)
Me.Rows.Add(row)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overloads Function AddProteinsRow(ByVal UniqID As Long, ByVal SearchID As Long, ByVal HitNumber As Integer, ByVal ProteinDescriptor As String, ByVal DatabaseSearched As String, ByVal DatabaseID As String, ByVal Species As String, ByVal Ratio1 As Decimal, ByVal StErr1 As Decimal, ByVal Ratio2 As Decimal, ByVal StErr2 As Decimal, ByVal MascotScore As Integer) As ProteinsRow
Dim rowProteinsRow As ProteinsRow = CType(Me.NewRow,ProteinsRow)
rowProteinsRow.ItemArray = New Object() {UniqID, SearchID, HitNumber, ProteinDescriptor, DatabaseSearched, DatabaseID, Species, Ratio1, StErr1, Ratio2, StErr2, MascotScore}
Me.Rows.Add(rowProteinsRow)
Return rowProteinsRow
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function FindByUniqID(ByVal UniqID As Long) As ProteinsRow
Return CType(Me.Rows.Find(New Object() {UniqID}),ProteinsRow)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overridable Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
Return Me.Rows.GetEnumerator
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overrides Function Clone() As System.Data.DataTable
Dim cln As ProteinsDataTable = CType(MyBase.Clone,ProteinsDataTable)
cln.InitVars
Return cln
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function CreateInstance() As System.Data.DataTable
Return New ProteinsDataTable
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub InitVars()
Me.columnUniqID = MyBase.Columns("UniqID")
Me.columnSearchID = MyBase.Columns("SearchID")
Me.columnHitNumber = MyBase.Columns("HitNumber")
Me.columnProteinDescriptor = MyBase.Columns("ProteinDescriptor")
Me.columnDatabaseSearched = MyBase.Columns("DatabaseSearched")
Me.columnDatabaseID = MyBase.Columns("DatabaseID")
Me.columnSpecies = MyBase.Columns("Species")
Me.columnRatio1 = MyBase.Columns("Ratio1")
Me.columnStErr1 = MyBase.Columns("StErr1")
Me.columnRatio2 = MyBase.Columns("Ratio2")
Me.columnStErr2 = MyBase.Columns("StErr2")
Me.columnMascotScore = MyBase.Columns("MascotScore")
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitClass()
Me.columnUniqID = New System.Data.DataColumn("UniqID", GetType(Long), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnUniqID)
Me.columnSearchID = New System.Data.DataColumn("SearchID", GetType(Long), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSearchID)
Me.columnHitNumber = New System.Data.DataColumn("HitNumber", GetType(Integer), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnHitNumber)
Me.columnProteinDescriptor = New System.Data.DataColumn("ProteinDescriptor", GetType(String), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnProteinDescriptor)
Me.columnDatabaseSearched = New System.Data.DataColumn("DatabaseSearched", GetType(String), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDatabaseSearched)
Me.columnDatabaseID = New System.Data.DataColumn("DatabaseID", GetType(String), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDatabaseID)
Me.columnSpecies = New System.Data.DataColumn("Species", GetType(String), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSpecies)
Me.columnRatio1 = New System.Data.DataColumn("Ratio1", GetType(Decimal), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnRatio1)
Me.columnStErr1 = New System.Data.DataColumn("StErr1", GetType(Decimal), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnStErr1)
Me.columnRatio2 = New System.Data.DataColumn("Ratio2", GetType(Decimal), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnRatio2)
Me.columnStErr2 = New System.Data.DataColumn("StErr2", GetType(Decimal), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnStErr2)
Me.columnMascotScore = New System.Data.DataColumn("MascotScore", GetType(Integer), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnMascotScore)
Me.Constraints.Add(New System.Data.UniqueConstraint("Constraint1", New System.Data.DataColumn() {Me.columnUniqID}, true))
Me.columnUniqID.AllowDBNull = false
Me.columnUniqID.Unique = true
Me.columnSearchID.AllowDBNull = false
Me.columnHitNumber.AllowDBNull = false
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function NewProteinsRow() As ProteinsRow
Return CType(Me.NewRow,ProteinsRow)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As System.Data.DataRowBuilder) As System.Data.DataRow
Return New ProteinsRow(builder)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function GetRowType() As System.Type
Return GetType(ProteinsRow)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanged(ByVal e As System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.ProteinsRowChangedEvent) Is Nothing) Then
RaiseEvent ProteinsRowChanged(Me, New ProteinsRowChangeEvent(CType(e.Row,ProteinsRow), 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.ProteinsRowChangingEvent) Is Nothing) Then
RaiseEvent ProteinsRowChanging(Me, New ProteinsRowChangeEvent(CType(e.Row,ProteinsRow), 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.ProteinsRowDeletedEvent) Is Nothing) Then
RaiseEvent ProteinsRowDeleted(Me, New ProteinsRowChangeEvent(CType(e.Row,ProteinsRow), 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.ProteinsRowDeletingEvent) Is Nothing) Then
RaiseEvent ProteinsRowDeleting(Me, New ProteinsRowChangeEvent(CType(e.Row,ProteinsRow), e.Action))
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub RemoveProteinsRow(ByVal row As ProteinsRow)
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 ProteinList = New ProteinList
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 = "ProteinsDataTable"
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 ProteinsRow
Inherits System.Data.DataRow
Private tableProteins As ProteinsDataTable
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal rb As System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableProteins = CType(Me.Table,ProteinsDataTable)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property UniqID() As Long
Get
Return CType(Me(Me.tableProteins.UniqIDColumn),Long)
End Get
Set
Me(Me.tableProteins.UniqIDColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property SearchID() As Long
Get
Return CType(Me(Me.tableProteins.SearchIDColumn),Long)
End Get
Set
Me(Me.tableProteins.SearchIDColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property HitNumber() As Integer
Get
Return CType(Me(Me.tableProteins.HitNumberColumn),Integer)
End Get
Set
Me(Me.tableProteins.HitNumberColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ProteinDescriptor() As String
Get
Try
Return CType(Me(Me.tableProteins.ProteinDescriptorColumn),String)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'ProteinDescriptor' in table 'Proteins' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableProteins.ProteinDescriptorColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property DatabaseSearched() As String
Get
Try
Return CType(Me(Me.tableProteins.DatabaseSearchedColumn),String)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'DatabaseSearched' in table 'Proteins' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableProteins.DatabaseSearchedColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property DatabaseID() As String
Get
Try
Return CType(Me(Me.tableProteins.DatabaseIDColumn),String)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'DatabaseID' in table 'Proteins' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableProteins.DatabaseIDColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Species() As String
Get
Try
Return CType(Me(Me.tableProteins.SpeciesColumn),String)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'Species' in table 'Proteins' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableProteins.SpeciesColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Ratio1() As Decimal
Get
Try
Return CType(Me(Me.tableProteins.Ratio1Column),Decimal)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'Ratio1' in table 'Proteins' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableProteins.Ratio1Column) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property StErr1() As Decimal
Get
Try
Return CType(Me(Me.tableProteins.StErr1Column),Decimal)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'StErr1' in table 'Proteins' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableProteins.StErr1Column) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Ratio2() As Decimal
Get
Try
Return CType(Me(Me.tableProteins.Ratio2Column),Decimal)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'Ratio2' in table 'Proteins' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableProteins.Ratio2Column) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property StErr2() As Decimal
Get
Try
Return CType(Me(Me.tableProteins.StErr2Column),Decimal)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'StErr2' in table 'Proteins' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableProteins.StErr2Column) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property MascotScore() As Integer
Get
Try
Return CType(Me(Me.tableProteins.MascotScoreColumn),Integer)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'MascotScore' in table 'Proteins' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableProteins.MascotScoreColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsProteinDescriptorNull() As Boolean
Return Me.IsNull(Me.tableProteins.ProteinDescriptorColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetProteinDescriptorNull()
Me(Me.tableProteins.ProteinDescriptorColumn) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsDatabaseSearchedNull() As Boolean
Return Me.IsNull(Me.tableProteins.DatabaseSearchedColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetDatabaseSearchedNull()
Me(Me.tableProteins.DatabaseSearchedColumn) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsDatabaseIDNull() As Boolean
Return Me.IsNull(Me.tableProteins.DatabaseIDColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetDatabaseIDNull()
Me(Me.tableProteins.DatabaseIDColumn) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsSpeciesNull() As Boolean
Return Me.IsNull(Me.tableProteins.SpeciesColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetSpeciesNull()
Me(Me.tableProteins.SpeciesColumn) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsRatio1Null() As Boolean
Return Me.IsNull(Me.tableProteins.Ratio1Column)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetRatio1Null()
Me(Me.tableProteins.Ratio1Column) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsStErr1Null() As Boolean
Return Me.IsNull(Me.tableProteins.StErr1Column)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetStErr1Null()
Me(Me.tableProteins.StErr1Column) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsRatio2Null() As Boolean
Return Me.IsNull(Me.tableProteins.Ratio2Column)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetRatio2Null()
Me(Me.tableProteins.Ratio2Column) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsStErr2Null() As Boolean
Return Me.IsNull(Me.tableProteins.StErr2Column)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetStErr2Null()
Me(Me.tableProteins.StErr2Column) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsMascotScoreNull() As Boolean
Return Me.IsNull(Me.tableProteins.MascotScoreColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetMascotScoreNull()
Me(Me.tableProteins.MascotScoreColumn) = System.Convert.DBNull
End Sub
End Class
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Public Class ProteinsRowChangeEvent
Inherits System.EventArgs
Private eventRow As ProteinsRow
Private eventAction As System.Data.DataRowAction
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New(ByVal row As ProteinsRow, ByVal action As System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Row() As ProteinsRow
Get
Return Me.eventRow
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Action() As System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
End Class
Generated by script codePublish.pl at 2009-01-05T15:20:59.