dsbankrecord.vb

人事管理系统（VB.NET2005+SQL Server2005）

            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function Addbank_recordRow(ByVal 姓名 As String, ByVal 账户 As String, ByVal 金额 As Decimal, ByVal 日期 As Date) As bank_recordRow
            Dim rowbank_recordRow As bank_recordRow = CType(Me.NewRow,bank_recordRow)
            rowbank_recordRow.ItemArray = New Object() {Nothing, 姓名, 账户, 金额, 日期}
            Me.Rows.Add(rowbank_recordRow)
            Return rowbank_recordRow
        End Function
        
        Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
            Return Me.Rows.GetEnumerator
        End Function
        
        Public Overrides Function Clone() As DataTable
            Dim cln As bank_recordDataTable = CType(MyBase.Clone,bank_recordDataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New bank_recordDataTable
        End Function
        
        Friend Sub InitVars()
            Me.columnid = Me.Columns("id")
            Me.column姓名 = Me.Columns("姓名")
            Me.column账户 = Me.Columns("账户")
            Me.column金额 = Me.Columns("金额")
            Me.column日期 = Me.Columns("日期")
        End Sub
        
        Private Sub InitClass()
            Me.columnid = New DataColumn("id", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnid)
            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.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column金额)
            Me.column日期 = New DataColumn("日期", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column日期)
            Me.columnid.AutoIncrement = true
            Me.columnid.AllowDBNull = false
            Me.columnid.ReadOnly = true
        End Sub
        
        Public Function Newbank_recordRow() As bank_recordRow
            Return CType(Me.NewRow,bank_recordRow)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New bank_recordRow(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(bank_recordRow)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.bank_recordRowChangedEvent) Is Nothing) Then
                RaiseEvent bank_recordRowChanged(Me, New bank_recordRowChangeEvent(CType(e.Row,bank_recordRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.bank_recordRowChangingEvent) Is Nothing) Then
                RaiseEvent bank_recordRowChanging(Me, New bank_recordRowChangeEvent(CType(e.Row,bank_recordRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.bank_recordRowDeletedEvent) Is Nothing) Then
                RaiseEvent bank_recordRowDeleted(Me, New bank_recordRowChangeEvent(CType(e.Row,bank_recordRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.bank_recordRowDeletingEvent) Is Nothing) Then
                RaiseEvent bank_recordRowDeleting(Me, New bank_recordRowChangeEvent(CType(e.Row,bank_recordRow), e.Action))
            End If
        End Sub
        
        Public Sub Removebank_recordRow(ByVal row As bank_recordRow)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class bank_recordRow
        Inherits DataRow
        
        Private tablebank_record As bank_recordDataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.tablebank_record = CType(Me.Table,bank_recordDataTable)
        End Sub
        
        Public Property id As Integer
            Get
                Return CType(Me(Me.tablebank_record.idColumn),Integer)
            End Get
            Set
                Me(Me.tablebank_record.idColumn) = value
            End Set
        End Property
        
        Public Property 姓名 As String
            Get
                Try 
                    Return CType(Me(Me.tablebank_record.姓名Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablebank_record.姓名Column) = value
            End Set
        End Property
        
        Public Property 账户 As String
            Get
                Try 
                    Return CType(Me(Me.tablebank_record.账户Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablebank_record.账户Column) = value
            End Set
        End Property
        
        Public Property 金额 As Decimal
            Get
                Try 
                    Return CType(Me(Me.tablebank_record.金额Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablebank_record.金额Column) = value
            End Set
        End Property
        
        Public Property 日期 As Date
            Get
                Try 
                    Return CType(Me(Me.tablebank_record.日期Column),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablebank_record.日期Column) = value
            End Set
        End Property
        
        Public Function Is姓名Null() As Boolean
            Return Me.IsNull(Me.tablebank_record.姓名Column)
        End Function
        
        Public Sub Set姓名Null()
            Me(Me.tablebank_record.姓名Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is账户Null() As Boolean
            Return Me.IsNull(Me.tablebank_record.账户Column)
        End Function
        
        Public Sub Set账户Null()
            Me(Me.tablebank_record.账户Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is金额Null() As Boolean
            Return Me.IsNull(Me.tablebank_record.金额Column)
        End Function
        
        Public Sub Set金额Null()
            Me(Me.tablebank_record.金额Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is日期Null() As Boolean
            Return Me.IsNull(Me.tablebank_record.日期Column)
        End Function
        
        Public Sub Set日期Null()
            Me(Me.tablebank_record.日期Column) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class bank_recordRowChangeEvent
        Inherits EventArgs
        
        Private eventRow As bank_recordRow
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As bank_recordRow, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As bank_recordRow
            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