buymanage.vb

这是一个商务管理体系

            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 id As Integer, ByVal 用户id As String, ByVal 商品id As Integer, ByVal 商品名称 As String, ByVal 购买时间 As String, ByVal 已处理 As Boolean, ByVal 已配送 As Boolean, ByVal 备注 As String) As 购买信息Row
            Dim row购买信息Row As 购买信息Row = CType(Me.NewRow,购买信息Row)
            row购买信息Row.ItemArray = New Object() {id, 用户id, 商品id, 商品名称, 购买时间, 已处理, 已配送, 备注}
            Me.Rows.Add(row购买信息Row)
            Return row购买信息Row
        End Function
        
        Public Function FindByid(ByVal id As Integer) As 购买信息Row
            Return CType(Me.Rows.Find(New Object() {id}),购买信息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.columnid = Me.Columns("id")
            Me.column用户id = Me.Columns("用户id")
            Me.column商品id = Me.Columns("商品id")
            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.columnid = New DataColumn("id", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnid)
            Me.column用户id = New DataColumn("用户id", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column用户id)
            Me.column商品id = New DataColumn("商品id", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column商品id)
            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.Boolean), 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已配送)
            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.columnid}, true))
            Me.columnid.AllowDBNull = false
            Me.columnid.Unique = true
            Me.column商品名称.ReadOnly = true
        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 id As Integer
            Get
                Return CType(Me(Me.table购买信息.idColumn),Integer)
            End Get
            Set
                Me(Me.table购买信息.idColumn) = value
            End Set
        End Property
        
        Public Property 用户id As String
            Get
                Try 
                    Return CType(Me(Me.table购买信息.用户idColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table购买信息.用户idColumn) = value
            End Set
        End Property
        
        Public Property 商品id As Integer
            Get
                Try 
                    Return CType(Me(Me.table购买信息.商品idColumn),Integer)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table购买信息.商品idColumn) = 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 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 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 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 Function Is用户idNull() As Boolean
            Return Me.IsNull(Me.table购买信息.用户idColumn)
        End Function
        
        Public Sub Set用户idNull()
            Me(Me.table购买信息.用户idColumn) = System.Convert.DBNull
        End Sub
        
        Public Function Is商品idNull() As Boolean
            Return Me.IsNull(Me.table购买信息.商品idColumn)
        End Function
        
        Public Sub Set商品idNull()
            Me(Me.table购买信息.商品idColumn) = 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