preg_filedataset.designer.vb

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

    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _
     System.Serializable(),  _
     System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
    Partial Public Class HospitalDataTable
        Inherits System.Data.DataTable
        Implements System.Collections.IEnumerable
        
        Private columnHos_Name As System.Data.DataColumn
        
        Private columnHos_Addr As System.Data.DataColumn
        
        Private columnHos_Website As System.Data.DataColumn
        
        Private columnHos_Email As System.Data.DataColumn
        
        Private columnHos_Contact As System.Data.DataColumn
        
        Private columnHos_Note As System.Data.DataColumn
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub New()
            MyBase.New
            Me.TableName = "Hospital"
            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 Hos_NameColumn() As System.Data.DataColumn
            Get
                Return Me.columnHos_Name
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property Hos_AddrColumn() As System.Data.DataColumn
            Get
                Return Me.columnHos_Addr
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property Hos_WebsiteColumn() As System.Data.DataColumn
            Get
                Return Me.columnHos_Website
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property Hos_EmailColumn() As System.Data.DataColumn
            Get
                Return Me.columnHos_Email
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property Hos_ContactColumn() As System.Data.DataColumn
            Get
                Return Me.columnHos_Contact
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property Hos_NoteColumn() As System.Data.DataColumn
            Get
                Return Me.columnHos_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 HospitalRow
            Get
                Return CType(Me.Rows(index),HospitalRow)
            End Get
        End Property
        
        Public Event HospitalRowChanging As HospitalRowChangeEventHandler
        
        Public Event HospitalRowChanged As HospitalRowChangeEventHandler
        
        Public Event HospitalRowDeleting As HospitalRowChangeEventHandler
        
        Public Event HospitalRowDeleted As HospitalRowChangeEventHandler
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overloads Sub AddHospitalRow(ByVal row As HospitalRow)
            Me.Rows.Add(row)
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overloads Function AddHospitalRow(ByVal Hos_Name As String, ByVal Hos_Addr As String, ByVal Hos_Website As String, ByVal Hos_Email As String, ByVal Hos_Contact As String, ByVal Hos_Note As String) As HospitalRow
            Dim rowHospitalRow As HospitalRow = CType(Me.NewRow,HospitalRow)
            rowHospitalRow.ItemArray = New Object() {Hos_Name, Hos_Addr, Hos_Website, Hos_Email, Hos_Contact, Hos_Note}
            Me.Rows.Add(rowHospitalRow)
            Return rowHospitalRow
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function FindByHos_Name(ByVal Hos_Name As String) As HospitalRow
            Return CType(Me.Rows.Find(New Object() {Hos_Name}),HospitalRow)
        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 HospitalDataTable = CType(MyBase.Clone,HospitalDataTable)
            cln.InitVars
            Return cln
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function CreateInstance() As System.Data.DataTable
            Return New HospitalDataTable
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub InitVars()
            Me.columnHos_Name = MyBase.Columns("Hos_Name")
            Me.columnHos_Addr = MyBase.Columns("Hos_Addr")
            Me.columnHos_Website = MyBase.Columns("Hos_Website")
            Me.columnHos_Email = MyBase.Columns("Hos_Email")
            Me.columnHos_Contact = MyBase.Columns("Hos_Contact")
            Me.columnHos_Note = MyBase.Columns("Hos_Note")
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Private Sub InitClass()
            Me.columnHos_Name = New System.Data.DataColumn("Hos_Name", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnHos_Name)
            Me.columnHos_Addr = New System.Data.DataColumn("Hos_Addr", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnHos_Addr)
            Me.columnHos_Website = New System.Data.DataColumn("Hos_Website", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnHos_Website)
            Me.columnHos_Email = New System.Data.DataColumn("Hos_Email", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnHos_Email)
            Me.columnHos_Contact = New System.Data.DataColumn("Hos_Contact", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnHos_Contact)
            Me.columnHos_Note = New System.Data.DataColumn("Hos_Note", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnHos_Note)
            Me.Constraints.Add(New System.Data.UniqueConstraint("Constraint1", New System.Data.DataColumn() {Me.columnHos_Name}, true))
            Me.columnHos_Name.AllowDBNull = false
            Me.columnHos_Name.Unique = true
            Me.columnHos_Name.MaxLength = 50
            Me.columnHos_Addr.MaxLength = 50
            Me.columnHos_Website.MaxLength = 50
            Me.columnHos_Email.MaxLength = 50
            Me.columnHos_Contact.MaxLength = 50
            Me.columnHos_Note.MaxLength = 255
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function NewHospitalRow() As HospitalRow
            Return CType(Me.NewRow,HospitalRow)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function NewRowFromBuilder(ByVal builder As System.Data.DataRowBuilder) As System.Data.DataRow
            Return New HospitalRow(builder)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(HospitalRow)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowChanged(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.HospitalRowChangedEvent) Is Nothing) Then
                RaiseEvent HospitalRowChanged(Me, New HospitalRowChangeEvent(CType(e.Row,HospitalRow), 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.HospitalRowChangingEvent) Is Nothing) Then
                RaiseEvent HospitalRowChanging(Me, New HospitalRowChangeEvent(CType(e.Row,HospitalRow), 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.HospitalRowDeletedEvent) Is Nothing) Then
                RaiseEvent HospitalRowDeleted(Me, New HospitalRowChangeEvent(CType(e.Row,HospitalRow), 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.HospitalRowDeletingEvent) Is Nothing) Then
                RaiseEvent HospitalRowDeleting(Me, New HospitalRowChangeEvent(CType(e.Row,HospitalRow), e.Action))
            End If
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub RemoveHospitalRow(ByVal row As HospitalRow)
            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 = "HospitalDataTable"
            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 PregnantDataTable
        Inherits System.Data.DataTable
        Implements System.Collections.IEnumerable
        
        Private columnPreg_ID As System.Data.DataColumn
        
        Private columnPreg_Name As System.Data.DataColumn
        
        Private columnPreg_BedID As System.Data.DataColumn
        
        Private columnPreg_HosID As System.Data.DataColumn
        
        Private columnPreg_Week As System.Data.DataColumn