dataset1.vb

一个DQLSERVER设计的社团管理系统

        Public Overrides Function Clone() As DataTable
            Dim cln As dhl_hyDataTable = CType(MyBase.Clone,dhl_hyDataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New dhl_hyDataTable
        End Function
        
        Friend Sub InitVars()
            Me.column姓名 = Me.Columns("姓名")
            Me.column学号 = Me.Columns("学号")
            Me.column性别 = Me.Columns("性别")
            Me.column系科 = Me.Columns("系科")
            Me.column班级 = Me.Columns("班级")
            Me.column联系电话 = Me.Columns("联系电话")
            Me.column注册社团 = Me.Columns("注册社团")
        End Sub
        
        Private Sub InitClass()
            Me.column姓名 = New DataColumn("姓名", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column姓名)
            Me.column学号 = New DataColumn("学号", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column学号)
            Me.column性别 = New DataColumn("性别", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column性别)
            Me.column系科 = New DataColumn("系科", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column系科)
            Me.column班级 = New DataColumn("班级", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column班级)
            Me.column联系电话 = New DataColumn("联系电话", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column联系电话)
            Me.column注册社团 = New DataColumn("注册社团", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column注册社团)
            Me.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.column学号}, true))
            Me.column学号.AllowDBNull = false
            Me.column学号.Unique = true
        End Sub
        
        Public Function Newdhl_hyRow() As dhl_hyRow
            Return CType(Me.NewRow,dhl_hyRow)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New dhl_hyRow(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(dhl_hyRow)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.dhl_hyRowChangedEvent) Is Nothing) Then
                RaiseEvent dhl_hyRowChanged(Me, New dhl_hyRowChangeEvent(CType(e.Row,dhl_hyRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.dhl_hyRowChangingEvent) Is Nothing) Then
                RaiseEvent dhl_hyRowChanging(Me, New dhl_hyRowChangeEvent(CType(e.Row,dhl_hyRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.dhl_hyRowDeletedEvent) Is Nothing) Then
                RaiseEvent dhl_hyRowDeleted(Me, New dhl_hyRowChangeEvent(CType(e.Row,dhl_hyRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.dhl_hyRowDeletingEvent) Is Nothing) Then
                RaiseEvent dhl_hyRowDeleting(Me, New dhl_hyRowChangeEvent(CType(e.Row,dhl_hyRow), e.Action))
            End If
        End Sub
        
        Public Sub Removedhl_hyRow(ByVal row As dhl_hyRow)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class dhl_hyRow
        Inherits DataRow
        
        Private tabledhl_hy As dhl_hyDataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.tabledhl_hy = CType(Me.Table,dhl_hyDataTable)
        End Sub
        
        Public Property 姓名 As String
            Get
                Try 
                    Return CType(Me(Me.tabledhl_hy.姓名Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledhl_hy.姓名Column) = value
            End Set
        End Property
        
        Public Property 学号 As String
            Get
                Return CType(Me(Me.tabledhl_hy.学号Column),String)
            End Get
            Set
                Me(Me.tabledhl_hy.学号Column) = value
            End Set
        End Property
        
        Public Property 性别 As String
            Get
                Try 
                    Return CType(Me(Me.tabledhl_hy.性别Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledhl_hy.性别Column) = value
            End Set
        End Property
        
        Public Property 系科 As String
            Get
                Try 
                    Return CType(Me(Me.tabledhl_hy.系科Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledhl_hy.系科Column) = value
            End Set
        End Property
        
        Public Property 班级 As String
            Get
                Try 
                    Return CType(Me(Me.tabledhl_hy.班级Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledhl_hy.班级Column) = value
            End Set
        End Property
        
        Public Property 联系电话 As String
            Get
                Try 
                    Return CType(Me(Me.tabledhl_hy.联系电话Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledhl_hy.联系电话Column) = value
            End Set
        End Property
        
        Public Property 注册社团 As String
            Get
                Try 
                    Return CType(Me(Me.tabledhl_hy.注册社团Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledhl_hy.注册社团Column) = value
            End Set
        End Property
        
        Public Function Is姓名Null() As Boolean
            Return Me.IsNull(Me.tabledhl_hy.姓名Column)
        End Function
        
        Public Sub Set姓名Null()
            Me(Me.tabledhl_hy.姓名Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is性别Null() As Boolean
            Return Me.IsNull(Me.tabledhl_hy.性别Column)
        End Function
        
        Public Sub Set性别Null()
            Me(Me.tabledhl_hy.性别Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is系科Null() As Boolean
            Return Me.IsNull(Me.tabledhl_hy.系科Column)
        End Function
        
        Public Sub Set系科Null()
            Me(Me.tabledhl_hy.系科Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is班级Null() As Boolean
            Return Me.IsNull(Me.tabledhl_hy.班级Column)
        End Function
        
        Public Sub Set班级Null()
            Me(Me.tabledhl_hy.班级Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is联系电话Null() As Boolean
            Return Me.IsNull(Me.tabledhl_hy.联系电话Column)
        End Function
        
        Public Sub Set联系电话Null()
            Me(Me.tabledhl_hy.联系电话Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is注册社团Null() As Boolean
            Return Me.IsNull(Me.tabledhl_hy.注册社团Column)
        End Function
        
        Public Sub Set注册社团Null()
            Me(Me.tabledhl_hy.注册社团Column) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class dhl_hyRowChangeEvent
        Inherits EventArgs
        
        Private eventRow As dhl_hyRow
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As dhl_hyRow, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As dhl_hyRow
            Get
                Return Me.eventRow
            End Get
        End Property
        
        Public ReadOnly Property Action As DataRowAction
            Get
                Return Me.eventAction
            End Get
        End Property
    End Class
End Class