preg_filedataset.designer.vb

这是我自己用VB.NET编写的一款监护仪的电脑软件

        Private columnPreg_GP As System.Data.DataColumn
        
        Private columnPreg_Age As System.Data.DataColumn
        
        Private columnPreg_Note As System.Data.DataColumn
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub New()
            MyBase.New
            Me.TableName = "Pregnant"
            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 Preg_IDColumn() As System.Data.DataColumn
            Get
                Return Me.columnPreg_ID
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property Preg_NameColumn() As System.Data.DataColumn
            Get
                Return Me.columnPreg_Name
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property Preg_BedIDColumn() As System.Data.DataColumn
            Get
                Return Me.columnPreg_BedID
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property Preg_HosIDColumn() As System.Data.DataColumn
            Get
                Return Me.columnPreg_HosID
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property Preg_WeekColumn() As System.Data.DataColumn
            Get
                Return Me.columnPreg_Week
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property Preg_GPColumn() As System.Data.DataColumn
            Get
                Return Me.columnPreg_GP
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property Preg_AgeColumn() As System.Data.DataColumn
            Get
                Return Me.columnPreg_Age
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property Preg_NoteColumn() As System.Data.DataColumn
            Get
                Return Me.columnPreg_Note
            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 PregnantRow
            Get
                Return CType(Me.Rows(index),PregnantRow)
            End Get
        End Property
        
        Public Event PregnantRowChanging As PregnantRowChangeEventHandler
        
        Public Event PregnantRowChanged As PregnantRowChangeEventHandler
        
        Public Event PregnantRowDeleting As PregnantRowChangeEventHandler
        
        Public Event PregnantRowDeleted As PregnantRowChangeEventHandler
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overloads Sub AddPregnantRow(ByVal row As PregnantRow)
            Me.Rows.Add(row)
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overloads Function AddPregnantRow(ByVal Preg_ID As Integer, ByVal Preg_Name As String, ByVal Preg_BedID As String, ByVal Preg_HosID As String, ByVal Preg_Week As String, ByVal Preg_GP As String, ByVal Preg_Age As String, ByVal Preg_Note As String) As PregnantRow
            Dim rowPregnantRow As PregnantRow = CType(Me.NewRow,PregnantRow)
            rowPregnantRow.ItemArray = New Object() {Preg_ID, Preg_Name, Preg_BedID, Preg_HosID, Preg_Week, Preg_GP, Preg_Age, Preg_Note}
            Me.Rows.Add(rowPregnantRow)
            Return rowPregnantRow
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function FindByPreg_ID(ByVal Preg_ID As Integer) As PregnantRow
            Return CType(Me.Rows.Find(New Object() {Preg_ID}),PregnantRow)
        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 PregnantDataTable = CType(MyBase.Clone,PregnantDataTable)
            cln.InitVars
            Return cln
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function CreateInstance() As System.Data.DataTable
            Return New PregnantDataTable
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub InitVars()
            Me.columnPreg_ID = MyBase.Columns("Preg_ID")
            Me.columnPreg_Name = MyBase.Columns("Preg_Name")
            Me.columnPreg_BedID = MyBase.Columns("Preg_BedID")
            Me.columnPreg_HosID = MyBase.Columns("Preg_HosID")
            Me.columnPreg_Week = MyBase.Columns("Preg_Week")
            Me.columnPreg_GP = MyBase.Columns("Preg_GP")
            Me.columnPreg_Age = MyBase.Columns("Preg_Age")
            Me.columnPreg_Note = MyBase.Columns("Preg_Note")
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Private Sub InitClass()
            Me.columnPreg_ID = New System.Data.DataColumn("Preg_ID", GetType(Integer), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnPreg_ID)
            Me.columnPreg_Name = New System.Data.DataColumn("Preg_Name", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnPreg_Name)
            Me.columnPreg_BedID = New System.Data.DataColumn("Preg_BedID", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnPreg_BedID)
            Me.columnPreg_HosID = New System.Data.DataColumn("Preg_HosID", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnPreg_HosID)
            Me.columnPreg_Week = New System.Data.DataColumn("Preg_Week", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnPreg_Week)
            Me.columnPreg_GP = New System.Data.DataColumn("Preg_GP", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnPreg_GP)
            Me.columnPreg_Age = New System.Data.DataColumn("Preg_Age", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnPreg_Age)
            Me.columnPreg_Note = New System.Data.DataColumn("Preg_Note", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnPreg_Note)
            Me.Constraints.Add(New System.Data.UniqueConstraint("Constraint1", New System.Data.DataColumn() {Me.columnPreg_ID}, true))
            Me.columnPreg_ID.AllowDBNull = false
            Me.columnPreg_ID.Unique = true
            Me.columnPreg_Name.MaxLength = 50
            Me.columnPreg_BedID.MaxLength = 50
            Me.columnPreg_HosID.MaxLength = 50
            Me.columnPreg_Week.MaxLength = 50
            Me.columnPreg_GP.MaxLength = 50
            Me.columnPreg_Age.MaxLength = 50
            Me.columnPreg_Note.MaxLength = 50
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function NewPregnantRow() As PregnantRow
            Return CType(Me.NewRow,PregnantRow)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function NewRowFromBuilder(ByVal builder As System.Data.DataRowBuilder) As System.Data.DataRow
            Return New PregnantRow(builder)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(PregnantRow)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowChanged(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.PregnantRowChangedEvent) Is Nothing) Then
                RaiseEvent PregnantRowChanged(Me, New PregnantRowChangeEvent(CType(e.Row,PregnantRow), 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.PregnantRowChangingEvent) Is Nothing) Then
                RaiseEvent PregnantRowChanging(Me, New PregnantRowChangeEvent(CType(e.Row,PregnantRow), 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.PregnantRowDeletedEvent) Is Nothing) Then
                RaiseEvent PregnantRowDeleted(Me, New PregnantRowChangeEvent(CType(e.Row,PregnantRow), 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.PregnantRowDeletingEvent) Is Nothing) Then
                RaiseEvent PregnantRowDeleting(Me, New PregnantRowChangeEvent(CType(e.Row,PregnantRow), e.Action))
            End If
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub RemovePregnantRow(ByVal row As PregnantRow)
            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 Preg_FileDataSet = New Preg_FileDataSet
            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 = "PregnantDataTable"
            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"),  _
     System.Serializable(),  _
     System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
    Partial Public Class UserDataTable
        Inherits System.Data.DataTable
        Implements System.Collections.IEnumerable
        
        Private columnUser_ID As System.Data.DataColumn