lib借阅信息.vb

本页只为图象处理爱好者交流之用, 未经本人同意, 请勿下载. 另,本书及所附source已于1999年由清华大学出版社出版,请支持正版书籍及软件,谢谢.

            Return New 借阅信息DataTable
        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.Int32), 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.DateTime), 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.column实际归还日期 = New DataColumn("实际归还日期", GetType(System.DateTime), 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续借)
        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 Integer
            Get
                Try 
                    Return CType(Me(Me.table借阅信息.证号Column),Integer)
                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 Date
            Get
                Try 
                    Return CType(Me(Me.table借阅信息.借阅日期Column),Date)
                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 Date
            Get
                Try 
                    Return CType(Me(Me.table借阅信息.应归还日期Column),Date)
                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 Date
            Get
                Try 
                    Return CType(Me(Me.table借阅信息.实际归还日期Column),Date)
                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 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