dataset1.vb

小小通讯录程序 用Access作为数据库

            Me.columnemail = New DataColumn("email", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnemail)
            Me.columnQQ = New DataColumn("QQ", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnQQ)
            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.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 NewAd_bookRow() As Ad_bookRow
            Return CType(Me.NewRow,Ad_bookRow)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New Ad_bookRow(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(Ad_bookRow)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.Ad_bookRowChangedEvent) Is Nothing) Then
                RaiseEvent Ad_bookRowChanged(Me, New Ad_bookRowChangeEvent(CType(e.Row,Ad_bookRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.Ad_bookRowChangingEvent) Is Nothing) Then
                RaiseEvent Ad_bookRowChanging(Me, New Ad_bookRowChangeEvent(CType(e.Row,Ad_bookRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.Ad_bookRowDeletedEvent) Is Nothing) Then
                RaiseEvent Ad_bookRowDeleted(Me, New Ad_bookRowChangeEvent(CType(e.Row,Ad_bookRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.Ad_bookRowDeletingEvent) Is Nothing) Then
                RaiseEvent Ad_bookRowDeleting(Me, New Ad_bookRowChangeEvent(CType(e.Row,Ad_bookRow), e.Action))
            End If
        End Sub
        
        Public Sub RemoveAd_bookRow(ByVal row As Ad_bookRow)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class Ad_bookRow
        Inherits DataRow
        
        Private tableAd_book As Ad_bookDataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.tableAd_book = CType(Me.Table,Ad_bookDataTable)
        End Sub
        
        Public Property email As String
            Get
                Try 
                    Return CType(Me(Me.tableAd_book.emailColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableAd_book.emailColumn) = value
            End Set
        End Property
        
        Public Property QQ As String
            Get
                Try 
                    Return CType(Me(Me.tableAd_book.QQColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableAd_book.QQColumn) = value
            End Set
        End Property
        
        Public Property 地址 As String
            Get
                Try 
                    Return CType(Me(Me.tableAd_book.地址Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableAd_book.地址Column) = value
            End Set
        End Property
        
        Public Property 工作单位 As String
            Get
                Try 
                    Return CType(Me(Me.tableAd_book.工作单位Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableAd_book.工作单位Column) = value
            End Set
        End Property
        
        Public Property 联系电话 As String
            Get
                Try 
                    Return CType(Me(Me.tableAd_book.联系电话Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableAd_book.联系电话Column) = value
            End Set
        End Property
        
        Public Property 年龄 As String
            Get
                Try 
                    Return CType(Me(Me.tableAd_book.年龄Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableAd_book.年龄Column) = value
            End Set
        End Property
        
        Public Property 生日 As String
            Get
                Try 
                    Return CType(Me(Me.tableAd_book.生日Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableAd_book.生日Column) = value
            End Set
        End Property
        
        Public Property 手机 As String
            Get
                Try 
                    Return CType(Me(Me.tableAd_book.手机Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableAd_book.手机Column) = value
            End Set
        End Property
        
        Public Property 姓名 As String
            Get
                Return CType(Me(Me.tableAd_book.姓名Column),String)
            End Get
            Set
                Me(Me.tableAd_book.姓名Column) = value
            End Set
        End Property
        
        Public Property 性别 As String
            Get
                Try 
                    Return CType(Me(Me.tableAd_book.性别Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableAd_book.性别Column) = value
            End Set
        End Property
        
        Public Function IsemailNull() As Boolean
            Return Me.IsNull(Me.tableAd_book.emailColumn)
        End Function
        
        Public Sub SetemailNull()
            Me(Me.tableAd_book.emailColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsQQNull() As Boolean
            Return Me.IsNull(Me.tableAd_book.QQColumn)
        End Function
        
        Public Sub SetQQNull()
            Me(Me.tableAd_book.QQColumn) = System.Convert.DBNull
        End Sub
        
        Public Function Is地址Null() As Boolean
            Return Me.IsNull(Me.tableAd_book.地址Column)
        End Function
        
        Public Sub Set地址Null()
            Me(Me.tableAd_book.地址Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is工作单位Null() As Boolean
            Return Me.IsNull(Me.tableAd_book.工作单位Column)
        End Function
        
        Public Sub Set工作单位Null()
            Me(Me.tableAd_book.工作单位Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is联系电话Null() As Boolean
            Return Me.IsNull(Me.tableAd_book.联系电话Column)
        End Function
        
        Public Sub Set联系电话Null()
            Me(Me.tableAd_book.联系电话Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is年龄Null() As Boolean
            Return Me.IsNull(Me.tableAd_book.年龄Column)
        End Function
        
        Public Sub Set年龄Null()
            Me(Me.tableAd_book.年龄Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is生日Null() As Boolean
            Return Me.IsNull(Me.tableAd_book.生日Column)
        End Function
        
        Public Sub Set生日Null()
            Me(Me.tableAd_book.生日Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is手机Null() As Boolean
            Return Me.IsNull(Me.tableAd_book.手机Column)
        End Function
        
        Public Sub Set手机Null()
            Me(Me.tableAd_book.手机Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is性别Null() As Boolean
            Return Me.IsNull(Me.tableAd_book.性别Column)
        End Function
        
        Public Sub Set性别Null()
            Me(Me.tableAd_book.性别Column) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class Ad_bookRowChangeEvent
        Inherits EventArgs
        
        Private eventRow As Ad_bookRow
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As Ad_bookRow, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As Ad_bookRow
            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