dsmaxdataaulist.vb

The Management Information System of Library using .NET

        
        Public Event SelectMaxDateAuListRowDeleting As SelectMaxDateAuListRowChangeEventHandler
        
        Public Overloads Sub AddSelectMaxDateAuListRow(ByVal row As SelectMaxDateAuListRow)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function AddSelectMaxDateAuListRow(ByVal 借书证号 As String, ByVal 读者姓名 As String, ByVal 图书条码号 As String, ByVal 图书名称 As String, ByVal 借书日期 As Date, ByVal 应归还日期 As Date) As SelectMaxDateAuListRow
            Dim rowSelectMaxDateAuListRow As SelectMaxDateAuListRow = CType(Me.NewRow,SelectMaxDateAuListRow)
            rowSelectMaxDateAuListRow.ItemArray = New Object() {借书证号, 读者姓名, 图书条码号, 图书名称, 借书日期, 应归还日期}
            Me.Rows.Add(rowSelectMaxDateAuListRow)
            Return rowSelectMaxDateAuListRow
        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 SelectMaxDateAuListDataTable = CType(MyBase.Clone,SelectMaxDateAuListDataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New SelectMaxDateAuListDataTable
        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("应归还日期")
        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.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图书名称.AllowDBNull = false
            Me.column借书日期.AllowDBNull = false
            Me.column应归还日期.AllowDBNull = false
        End Sub
        
        Public Function NewSelectMaxDateAuListRow() As SelectMaxDateAuListRow
            Return CType(Me.NewRow,SelectMaxDateAuListRow)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New SelectMaxDateAuListRow(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(SelectMaxDateAuListRow)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.SelectMaxDateAuListRowChangedEvent) Is Nothing) Then
                RaiseEvent SelectMaxDateAuListRowChanged(Me, New SelectMaxDateAuListRowChangeEvent(CType(e.Row,SelectMaxDateAuListRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.SelectMaxDateAuListRowChangingEvent) Is Nothing) Then
                RaiseEvent SelectMaxDateAuListRowChanging(Me, New SelectMaxDateAuListRowChangeEvent(CType(e.Row,SelectMaxDateAuListRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.SelectMaxDateAuListRowDeletedEvent) Is Nothing) Then
                RaiseEvent SelectMaxDateAuListRowDeleted(Me, New SelectMaxDateAuListRowChangeEvent(CType(e.Row,SelectMaxDateAuListRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.SelectMaxDateAuListRowDeletingEvent) Is Nothing) Then
                RaiseEvent SelectMaxDateAuListRowDeleting(Me, New SelectMaxDateAuListRowChangeEvent(CType(e.Row,SelectMaxDateAuListRow), e.Action))
            End If
        End Sub
        
        Public Sub RemoveSelectMaxDateAuListRow(ByVal row As SelectMaxDateAuListRow)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class SelectMaxDateAuListRow
        Inherits DataRow
        
        Private tableSelectMaxDateAuList As SelectMaxDateAuListDataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.tableSelectMaxDateAuList = CType(Me.Table,SelectMaxDateAuListDataTable)
        End Sub
        
        Public Property 借书证号 As String
            Get
                Try 
                    Return CType(Me(Me.tableSelectMaxDateAuList.借书证号Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableSelectMaxDateAuList.借书证号Column) = value
            End Set
        End Property
        
        Public Property 读者姓名 As String
            Get
                Try 
                    Return CType(Me(Me.tableSelectMaxDateAuList.读者姓名Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableSelectMaxDateAuList.读者姓名Column) = value
            End Set
        End Property
        
        Public Property 图书条码号 As String
            Get
                Try 
                    Return CType(Me(Me.tableSelectMaxDateAuList.图书条码号Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableSelectMaxDateAuList.图书条码号Column) = value
            End Set
        End Property
        
        Public Property 图书名称 As String
            Get
                Return CType(Me(Me.tableSelectMaxDateAuList.图书名称Column),String)
            End Get
            Set
                Me(Me.tableSelectMaxDateAuList.图书名称Column) = value
            End Set
        End Property
        
        Public Property 借书日期 As Date
            Get
                Return CType(Me(Me.tableSelectMaxDateAuList.借书日期Column),Date)
            End Get
            Set
                Me(Me.tableSelectMaxDateAuList.借书日期Column) = value
            End Set
        End Property
        
        Public Property 应归还日期 As Date
            Get
                Return CType(Me(Me.tableSelectMaxDateAuList.应归还日期Column),Date)
            End Get
            Set
                Me(Me.tableSelectMaxDateAuList.应归还日期Column) = value
            End Set
        End Property
        
        Public Function Is借书证号Null() As Boolean
            Return Me.IsNull(Me.tableSelectMaxDateAuList.借书证号Column)
        End Function
        
        Public Sub Set借书证号Null()
            Me(Me.tableSelectMaxDateAuList.借书证号Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is读者姓名Null() As Boolean
            Return Me.IsNull(Me.tableSelectMaxDateAuList.读者姓名Column)
        End Function
        
        Public Sub Set读者姓名Null()
            Me(Me.tableSelectMaxDateAuList.读者姓名Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is图书条码号Null() As Boolean
            Return Me.IsNull(Me.tableSelectMaxDateAuList.图书条码号Column)
        End Function
        
        Public Sub Set图书条码号Null()
            Me(Me.tableSelectMaxDateAuList.图书条码号Column) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class SelectMaxDateAuListRowChangeEvent
        Inherits EventArgs
        
        Private eventRow As SelectMaxDateAuListRow
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As SelectMaxDateAuListRow, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As SelectMaxDateAuListRow
            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