dataset1.designer.vb

VB与ACCESS数据库制作的的注册登陆查询系统

            Me.ExtendedProperties.Add("Generator_RowClassName", "_123Row")
            Me.ExtendedProperties.Add("Generator_RowEvArgName", "_123RowChangeEvent")
            Me.ExtendedProperties.Add("Generator_RowEvHandlerName", "_123RowChangeEventHandler")
            Me.ExtendedProperties.Add("Generator_TableClassName", "_123DataTable")
            Me.ExtendedProperties.Add("Generator_TablePropName", "_123")
            Me.ExtendedProperties.Add("Generator_TableVarName", "table_123")
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function New_123Row() As _123Row
            Return CType(Me.NewRow,_123Row)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function NewRowFromBuilder(ByVal builder As System.Data.DataRowBuilder) As System.Data.DataRow
            Return New _123Row(builder)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(_123Row)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowChanged(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me._123RowChangedEvent) Is Nothing) Then
                RaiseEvent _123RowChanged(Me, New _123RowChangeEvent(CType(e.Row,_123Row), 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._123RowChangingEvent) Is Nothing) Then
                RaiseEvent _123RowChanging(Me, New _123RowChangeEvent(CType(e.Row,_123Row), 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._123RowDeletedEvent) Is Nothing) Then
                RaiseEvent _123RowDeleted(Me, New _123RowChangeEvent(CType(e.Row,_123Row), 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._123RowDeletingEvent) Is Nothing) Then
                RaiseEvent _123RowDeleting(Me, New _123RowChangeEvent(CType(e.Row,_123Row), e.Action))
            End If
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub Remove_123Row(ByVal row As _123Row)
            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 DataSet1 = New DataSet1
            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 = "_123DataTable"
            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 yonghuRow
        Inherits System.Data.DataRow
        
        Private tableyonghu As yonghuDataTable
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub New(ByVal rb As System.Data.DataRowBuilder)
            MyBase.New(rb)
            Me.tableyonghu = CType(Me.Table,yonghuDataTable)
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property name() As String
            Get
                Return CType(Me(Me.tableyonghu.nameColumn),String)
            End Get
            Set
                Me(Me.tableyonghu.nameColumn) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property pass() As String
            Get
                Try 
                    Return CType(Me(Me.tableyonghu.passColumn),String)
                Catch e As System.InvalidCastException
                    Throw New System.Data.StrongTypingException("表““yonghu””中列““pass””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableyonghu.passColumn) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function IspassNull() As Boolean
            Return Me.IsNull(Me.tableyonghu.passColumn)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub SetpassNull()
            Me(Me.tableyonghu.passColumn) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _
    Partial Public Class _123Row
        Inherits System.Data.DataRow
        
        Private table_123 As _123DataTable
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub New(ByVal rb As System.Data.DataRowBuilder)
            MyBase.New(rb)
            Me.table_123 = CType(Me.Table,_123DataTable)
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property 班级() As String
            Get
                Try 
                    Return CType(Me(Me.table_123.班级Column),String)
                Catch e As System.InvalidCastException
                    Throw New System.Data.StrongTypingException("表““123””中列““班级””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table_123.班级Column) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property 年龄() As String
            Get
                Try 
                    Return CType(Me(Me.table_123.年龄Column),String)
                Catch e As System.InvalidCastException
                    Throw New System.Data.StrongTypingException("表““123””中列““年龄””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table_123.年龄Column) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property 姓名() As String
            Get
                Try 
                    Return CType(Me(Me.table_123.姓名Column),String)
                Catch e As System.InvalidCastException
                    Throw New System.Data.StrongTypingException("表““123””中列““姓名””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table_123.姓名Column) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property 学号() As String
            Get
                Return CType(Me(Me.table_123.学号Column),String)
            End Get
            Set
                Me(Me.table_123.学号Column) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property 职务() As String
            Get
                Try 
                    Return CType(Me(Me.table_123.职务Column),String)
                Catch e As System.InvalidCastException
                    Throw New System.Data.StrongTypingException("表““123””中列““职务””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table_123.职务Column) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function Is班级Null() As Boolean
            Return Me.IsNull(Me.table_123.班级Column)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub Set班级Null()
            Me(Me.table_123.班级Column) = System.Convert.DBNull
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function Is年龄Null() As Boolean
            Return Me.IsNull(Me.table_123.年龄Column)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub Set年龄Null()
            Me(Me.table_123.年龄Column) = System.Convert.DBNull
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function Is姓名Null() As Boolean
            Return Me.IsNull(Me.table_123.姓名Column)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub Set姓名Null()
            Me(Me.table_123.姓名Column) = System.Convert.DBNull
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function Is职务Null() As Boolean
            Return Me.IsNull(Me.table_123.职务Column)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub Set职务Null()
            Me(Me.table_123.职务Column) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _
    Public Class yonghuRowChangeEvent
        Inherits System.EventArgs
        
        Private eventRow As yonghuRow
        
        Private eventAction As System.Data.DataRowAction
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub New(ByVal row As yonghuRow, ByVal action As System.Data.DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property Row() As yonghuRow
            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
    
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _
    Public Class _123RowChangeEvent
        Inherits System.EventArgs
        
        Private eventRow As _123Row
        
        Private eventAction As System.Data.DataRowAction
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub New(ByVal row As _123Row, ByVal action As System.Data.DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property Row() As _123Row
            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