lib综合查询.vb

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

            End Get
        End Property
        
        Friend ReadOnly Property 主题分类Column As DataColumn
            Get
                Return Me.column主题分类
            End Get
        End Property
        
        Friend ReadOnly Property 二级分类Column As DataColumn
            Get
                Return Me.column二级分类
            End Get
        End Property
        
        Friend ReadOnly Property 馆内借阅分类Column As DataColumn
            Get
                Return Me.column馆内借阅分类
            End Get
        End Property
        
        Friend ReadOnly Property 总册数Column As DataColumn
            Get
                Return Me.column总册数
            End Get
        End Property
        
        Friend ReadOnly Property 库存量Column As DataColumn
            Get
                Return Me.column库存量
            End Get
        End Property
        
        Friend ReadOnly Property 出版社Column As DataColumn
            Get
                Return Me.column出版社
            End Get
        End Property
        
        Friend ReadOnly Property 书名Column As DataColumn
            Get
                Return Me.column书名
            End Get
        End Property
        
        Public Default ReadOnly Property Item(ByVal index As Integer) As 书籍信息Row
            Get
                Return CType(Me.Rows(index),书籍信息Row)
            End Get
        End Property
        
        Public Event 书籍信息RowChanged As 书籍信息RowChangeEventHandler
        
        Public Event 书籍信息RowChanging As 书籍信息RowChangeEventHandler
        
        Public Event 书籍信息RowDeleted As 书籍信息RowChangeEventHandler
        
        Public Event 书籍信息RowDeleting As 书籍信息RowChangeEventHandler
        
        Public Overloads Sub Add书籍信息Row(ByVal row As 书籍信息Row)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function Add书籍信息Row(ByVal 书号 As String, ByVal 丛书系列 As String, ByVal 作者 As String, ByVal 责任编辑 As String, ByVal 字数 As Integer, ByVal 定价 As Decimal, ByVal 出版时间 As Date, ByVal 主题分类 As String, ByVal 二级分类 As String, ByVal 馆内借阅分类 As Integer, ByVal 总册数 As String, ByVal 库存量 As Integer, ByVal 出版社 As String, ByVal 书名 As String) As 书籍信息Row
            Dim row书籍信息Row As 书籍信息Row = CType(Me.NewRow,书籍信息Row)
            row书籍信息Row.ItemArray = New Object() {书号, 丛书系列, 作者, 责任编辑, 字数, 定价, 出版时间, 主题分类, 二级分类, 馆内借阅分类, 总册数, 库存量, 出版社, 书名}
            Me.Rows.Add(row书籍信息Row)
            Return row书籍信息Row
        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 书籍信息DataTable = CType(MyBase.Clone,书籍信息DataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            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("出版时间")
            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.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.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.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.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.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书名)
        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 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
                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 Decimal
            Get
                Try 
                    Return CType(Me(Me.table书籍信息.定价Column),Decimal)
                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 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
                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