dsfamilymembers.vb

Visual Basic.NET应用编程150例

        
        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("业余爱好")
            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.Boolean), 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.Int32), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column成员编号)
            Me.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.column成员编号}, true))
            Me.column成员编号.AutoIncrement = true
            Me.column成员编号.AllowDBNull = false
            Me.column成员编号.Unique = true
        End Sub
        
        Public Function New家庭成员Row() As 家庭成员Row
            Return CType(Me.NewRow,家庭成员Row)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New 家庭成员Row(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(家庭成员Row)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.家庭成员RowChangedEvent) Is Nothing) Then
                RaiseEvent 家庭成员RowChanged(Me, New 家庭成员RowChangeEvent(CType(e.Row,家庭成员Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.家庭成员RowChangingEvent) Is Nothing) Then
                RaiseEvent 家庭成员RowChanging(Me, New 家庭成员RowChangeEvent(CType(e.Row,家庭成员Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.家庭成员RowDeletedEvent) Is Nothing) Then
                RaiseEvent 家庭成员RowDeleted(Me, New 家庭成员RowChangeEvent(CType(e.Row,家庭成员Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.家庭成员RowDeletingEvent) Is Nothing) Then
                RaiseEvent 家庭成员RowDeleting(Me, New 家庭成员RowChangeEvent(CType(e.Row,家庭成员Row), e.Action))
            End If
        End Sub
        
        Public Sub Remove家庭成员Row(ByVal row As 家庭成员Row)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 家庭成员Row
        Inherits DataRow
        
        Private table家庭成员 As 家庭成员DataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.table家庭成员 = CType(Me.Table,家庭成员DataTable)
        End Sub
        
        Public Property 电子邮件地址 As String
            Get
                Try 
                    Return CType(Me(Me.table家庭成员.电子邮件地址Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table家庭成员.电子邮件地址Column) = value
            End Set
        End Property
        
        Public Property 发送贺卡 As Boolean
            Get
                Try 
                    Return CType(Me(Me.table家庭成员.发送贺卡Column),Boolean)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table家庭成员.发送贺卡Column) = value
            End Set
        End Property
        
        Public Property 健康状况 As String
            Get
                Try 
                    Return CType(Me(Me.table家庭成员.健康状况Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table家庭成员.健康状况Column) = value
            End Set
        End Property
        
        Public Property 角色 As String
            Get
                Try 
                    Return CType(Me(Me.table家庭成员.角色Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table家庭成员.角色Column) = value
            End Set
        End Property
        
        Public Property 名字 As String
            Get
                Try 
                    Return CType(Me(Me.table家庭成员.名字Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table家庭成员.名字Column) = value
            End Set
        End Property
        
        Public Property 姓氏 As String
            Get
                Try 
                    Return CType(Me(Me.table家庭成员.姓氏Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table家庭成员.姓氏Column) = value
            End Set
        End Property
        
        Public Property 业余爱好 As String
            Get
                Try 
                    Return CType(Me(Me.table家庭成员.业余爱好Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table家庭成员.业余爱好Column) = value
            End Set
        End Property
        
        Public Property 成员编号 As Integer
            Get
                Return CType(Me(Me.table家庭成员.成员编号Column),Integer)
            End Get
            Set
                Me(Me.table家庭成员.成员编号Column) = value
            End Set
        End Property
        
        Public Function Is电子邮件地址Null() As Boolean
            Return Me.IsNull(Me.table家庭成员.电子邮件地址Column)
        End Function
        
        Public Sub Set电子邮件地址Null()
            Me(Me.table家庭成员.电子邮件地址Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is发送贺卡Null() As Boolean
            Return Me.IsNull(Me.table家庭成员.发送贺卡Column)
        End Function
        
        Public Sub Set发送贺卡Null()
            Me(Me.table家庭成员.发送贺卡Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is健康状况Null() As Boolean
            Return Me.IsNull(Me.table家庭成员.健康状况Column)
        End Function
        
        Public Sub Set健康状况Null()
            Me(Me.table家庭成员.健康状况Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is角色Null() As Boolean
            Return Me.IsNull(Me.table家庭成员.角色Column)
        End Function
        
        Public Sub Set角色Null()
            Me(Me.table家庭成员.角色Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is名字Null() As Boolean
            Return Me.IsNull(Me.table家庭成员.名字Column)
        End Function
        
        Public Sub Set名字Null()
            Me(Me.table家庭成员.名字Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is姓氏Null() As Boolean
            Return Me.IsNull(Me.table家庭成员.姓氏Column)
        End Function
        
        Public Sub Set姓氏Null()
            Me(Me.table家庭成员.姓氏Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is业余爱好Null() As Boolean
            Return Me.IsNull(Me.table家庭成员.业余爱好Column)
        End Function
        
        Public Sub Set业余爱好Null()
            Me(Me.table家庭成员.业余爱好Column) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 家庭成员RowChangeEvent
        Inherits EventArgs
        
        Private eventRow As 家庭成员Row
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As 家庭成员Row, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As 家庭成员Row
            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