dataset1.vb

大型数据库系统程序球员转会系统解决方案

            Me.columnweight = New DataColumn("weight", GetType(System.Single), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnweight)
            Me.columngender = New DataColumn("gender", GetType(System.Boolean), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columngender)
            Me.columnposition = New DataColumn("position", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnposition)
            Me.columnbirthday = New DataColumn("birthday", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnbirthday)
            Me.columnExpr2 = New DataColumn("Expr2", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnExpr2)
            Me.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.columncid, Me.columnpid}, true))
            Me.columncid.AllowDBNull = false
            Me.columnsid.AllowDBNull = false
            Me.columnpid.AllowDBNull = false
            Me.columnExpr2.AllowDBNull = false
        End Sub
        
        Public Function NewClubRow() As ClubRow
            Return CType(Me.NewRow,ClubRow)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New ClubRow(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(ClubRow)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.ClubRowChangedEvent) Is Nothing) Then
                RaiseEvent ClubRowChanged(Me, New ClubRowChangeEvent(CType(e.Row,ClubRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.ClubRowChangingEvent) Is Nothing) Then
                RaiseEvent ClubRowChanging(Me, New ClubRowChangeEvent(CType(e.Row,ClubRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.ClubRowDeletedEvent) Is Nothing) Then
                RaiseEvent ClubRowDeleted(Me, New ClubRowChangeEvent(CType(e.Row,ClubRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.ClubRowDeletingEvent) Is Nothing) Then
                RaiseEvent ClubRowDeleting(Me, New ClubRowChangeEvent(CType(e.Row,ClubRow), e.Action))
            End If
        End Sub
        
        Public Sub RemoveClubRow(ByVal row As ClubRow)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class ClubRow
        Inherits DataRow
        
        Private tableClub As ClubDataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.tableClub = CType(Me.Table,ClubDataTable)
        End Sub
        
        Public Property cid As String
            Get
                Return CType(Me(Me.tableClub.cidColumn),String)
            End Get
            Set
                Me(Me.tableClub.cidColumn) = value
            End Set
        End Property
        
        Public Property name As String
            Get
                Try 
                    Return CType(Me(Me.tableClub.nameColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableClub.nameColumn) = value
            End Set
        End Property
        
        Public Property capital As Decimal
            Get
                Try 
                    Return CType(Me(Me.tableClub.capitalColumn),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableClub.capitalColumn) = value
            End Set
        End Property
        
        Public Property rank As Short
            Get
                Try 
                    Return CType(Me(Me.tableClub.rankColumn),Short)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableClub.rankColumn) = value
            End Set
        End Property
        
        Public Property sid As String
            Get
                Return CType(Me(Me.tableClub.sidColumn),String)
            End Get
            Set
                Me(Me.tableClub.sidColumn) = value
            End Set
        End Property
        
        Public Property uid As String
            Get
                Try 
                    Return CType(Me(Me.tableClub.uidColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableClub.uidColumn) = value
            End Set
        End Property
        
        Public Property pid As String
            Get
                Return CType(Me(Me.tableClub.pidColumn),String)
            End Get
            Set
                Me(Me.tableClub.pidColumn) = value
            End Set
        End Property
        
        Public Property Expr1 As String
            Get
                Try 
                    Return CType(Me(Me.tableClub.Expr1Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableClub.Expr1Column) = value
            End Set
        End Property
        
        Public Property salary As Decimal
            Get
                Try 
                    Return CType(Me(Me.tableClub.salaryColumn),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableClub.salaryColumn) = value
            End Set
        End Property
        
        Public Property value As Decimal
            Get
                Try 
                    Return CType(Me(Me.tableClub.valueColumn),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableClub.valueColumn) = value
            End Set
        End Property
        
        Public Property willingtosell As Boolean
            Get
                Try 
                    Return CType(Me(Me.tableClub.willingtosellColumn),Boolean)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableClub.willingtosellColumn) = value
            End Set
        End Property
        
        Public Property height As Single
            Get
                Try 
                    Return CType(Me(Me.tableClub.heightColumn),Single)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableClub.heightColumn) = value
            End Set
        End Property
        
        Public Property weight As Single
            Get
                Try 
                    Return CType(Me(Me.tableClub.weightColumn),Single)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableClub.weightColumn) = value
            End Set
        End Property
        
        Public Property gender As Boolean
            Get
                Try 
                    Return CType(Me(Me.tableClub.genderColumn),Boolean)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableClub.genderColumn) = value
            End Set
        End Property
        
        Public Property position As String
            Get
                Try 
                    Return CType(Me(Me.tableClub.positionColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableClub.positionColumn) = value
            End Set
        End Property
        
        Public Property birthday As Date
            Get
                Try 
                    Return CType(Me(Me.tableClub.birthdayColumn),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableClub.birthdayColumn) = value
            End Set
        End Property
        
        Public Property Expr2 As String
            Get
                Return CType(Me(Me.tableClub.Expr2Column),String)
            End Get
            Set
                Me(Me.tableClub.Expr2Column) = value
            End Set
        End Property
        
        Public Function IsnameNull() As Boolean
            Return Me.IsNull(Me.tableClub.nameColumn)
        End Function
        
        Public Sub SetnameNull()
            Me(Me.tableClub.nameColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IscapitalNull() As Boolean
            Return Me.IsNull(Me.tableClub.capitalColumn)
        End Function
        
        Public Sub SetcapitalNull()
            Me(Me.tableClub.capitalColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsrankNull() As Boolean
            Return Me.IsNull(Me.tableClub.rankColumn)
        End Function
        
        Public Sub SetrankNull()
            Me(Me.tableClub.rankColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsuidNull() As Boolean
            Return Me.IsNull(Me.tableClub.uidColumn)
        End Function
        
        Public Sub SetuidNull()
            Me(Me.tableClub.uidColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsExpr1Null() As Boolean
            Return Me.IsNull(Me.tableClub.Expr1Column)
        End Function
        
        Public Sub SetExpr1Null()
            Me(Me.tableClub.Expr1Column) = System.Convert.DBNull
        End Sub
        
        Public Function IssalaryNull() As Boolean
            Return Me.IsNull(Me.tableClub.salaryColumn)
        End Function
        
        Public Sub SetsalaryNull()
            Me(Me.tableClub.salaryColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsvalueNull() As Boolean
            Return Me.IsNull(Me.tableClub.valueColumn)
        End Function
        
        Public Sub SetvalueNull()
            Me(Me.tableClub.valueColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IswillingtosellNull() As Boolean
            Return Me.IsNull(Me.tableClub.willingtosellColumn)
        End Function
        
        Public Sub SetwillingtosellNull()
            Me(Me.tableClub.willingtosellColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsheightNull() As Boolean
            Return Me.IsNull(Me.tableClub.heightColumn)
        End Function
        
        Public Sub SetheightNull()
            Me(Me.tableClub.heightColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsweightNull() As Boolean
            Return Me.IsNull(Me.tableClub.weightColumn)
        End Function
        
        Public Sub SetweightNull()
            Me(Me.tableClub.weightColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsgenderNull() As Boolean
            Return Me.IsNull(Me.tableClub.genderColumn)
        End Function
        
        Public Sub SetgenderNull()
            Me(Me.tableClub.genderColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IspositionNull() As Boolean
            Return Me.IsNull(Me.tableClub.positionColumn)
        End Function
        
        Public Sub SetpositionNull()
            Me(Me.tableClub.positionColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsbirthdayNull() As Boolean
            Return Me.IsNull(Me.tableClub.birthdayColumn)
        End Function
        
        Public Sub SetbirthdayNull()
            Me(Me.tableClub.birthdayColumn) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class ClubRowChangeEvent
        Inherits EventArgs
        
        Private eventRow As ClubRow
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As ClubRow, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As ClubRow
            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