dataset2.vb

1.使用源程序前系统必须安装Microsoft SQL Server 2000 3.将程序中数据库连接字符串中的Data Source项改成与安装后的SQL Server服务器的名称一致

        
        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