northwinddataset.designer.vb

来自「wrox出版社的另一套经典的VB2005数据库编程学习书籍,收集了书中源码,郑重」· VB 代码 · 共 1,373 行 · 第 1/5 页

        Private columnDiscontinued As System.Data.DataColumn
        
        Private m_suspendValidation As Boolean = false
        
        Public Sub New()
            MyBase.New
            Me.TableName = "Products"
            Me.BeginInit
            Me.InitClass
            Me.EndInit
        End Sub
        
        Friend Sub New(ByVal table As System.Data.DataTable)
            MyBase.New
            Me.TableName = table.TableName
            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
                Me.CaseSensitive = table.CaseSensitive
            End If
            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
                Me.Locale = table.Locale
            End If
            If (table.Namespace <> table.DataSet.Namespace) Then
                Me.Namespace = table.Namespace
            End If
            Me.Prefix = table.Prefix
            Me.MinimumCapacity = table.MinimumCapacity
        End Sub
        
        Protected Sub New(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal context As System.Runtime.Serialization.StreamingContext)
            MyBase.New(info, context)
            Me.InitVars
        End Sub
        
        Friend ReadOnly Property ProductIDColumn() As System.Data.DataColumn
            Get
                Return Me.columnProductID
            End Get
        End Property
        
        Friend ReadOnly Property ProductNameColumn() As System.Data.DataColumn
            Get
                Return Me.columnProductName
            End Get
        End Property
        
        Friend ReadOnly Property SupplierIDColumn() As System.Data.DataColumn
            Get
                Return Me.columnSupplierID
            End Get
        End Property
        
        Friend ReadOnly Property CategoryIDColumn() As System.Data.DataColumn
            Get
                Return Me.columnCategoryID
            End Get
        End Property
        
        Friend ReadOnly Property QuantityPerUnitColumn() As System.Data.DataColumn
            Get
                Return Me.columnQuantityPerUnit
            End Get
        End Property
        
        Friend ReadOnly Property UnitPriceColumn() As System.Data.DataColumn
            Get
                Return Me.columnUnitPrice
            End Get
        End Property
        
        Friend ReadOnly Property UnitsInStockColumn() As System.Data.DataColumn
            Get
                Return Me.columnUnitsInStock
            End Get
        End Property
        
        Friend ReadOnly Property UnitsOnOrderColumn() As System.Data.DataColumn
            Get
                Return Me.columnUnitsOnOrder
            End Get
        End Property
        
        Friend ReadOnly Property ReorderLevelColumn() As System.Data.DataColumn
            Get
                Return Me.columnReorderLevel
            End Get
        End Property
        
        Friend ReadOnly Property DiscontinuedColumn() As System.Data.DataColumn
            Get
                Return Me.columnDiscontinued
            End Get
        End Property
        
        <System.ComponentModel.Browsable(false)>  _
        Public ReadOnly Property Count() As Integer
            Get
                Return Me.Rows.Count
            End Get
        End Property
        
        Public Default ReadOnly Property Item(ByVal index As Integer) As ProductsRow
            Get
                Return CType(Me.Rows(index),ProductsRow)
            End Get
        End Property
        
        Public Property SuspendValidation() As Boolean
            Get
                Return Me.m_suspendValidation
            End Get
            Set
                Me.m_suspendValidation = value
            End Set
        End Property
        
        Public Event ProductIDChanging As ProductIDChangeEventHandler
        
        Public Event ProductIDChanged As ProductIDChangeEventHandler
        
        Public Event ProductNameChanging As ProductNameChangeEventHandler
        
        Public Event ProductNameChanged As ProductNameChangeEventHandler
        
        Public Event SupplierIDChanging As SupplierIDChangeEventHandler
        
        Public Event SupplierIDChanged As SupplierIDChangeEventHandler
        
        Public Event CategoryIDChanging As CategoryIDChangeEventHandler
        
        Public Event CategoryIDChanged As CategoryIDChangeEventHandler
        
        Public Event QuantityPerUnitChanging As QuantityPerUnitChangeEventHandler
        
        Public Event QuantityPerUnitChanged As QuantityPerUnitChangeEventHandler
        
        Public Event UnitPriceChanging As UnitPriceChangeEventHandler
        
        Public Event UnitPriceChanged As UnitPriceChangeEventHandler
        
        Public Event UnitsInStockChanging As UnitsInStockChangeEventHandler
        
        Public Event UnitsInStockChanged As UnitsInStockChangeEventHandler
        
        Public Event UnitsOnOrderChanging As UnitsOnOrderChangeEventHandler
        
        Public Event UnitsOnOrderChanged As UnitsOnOrderChangeEventHandler
        
        Public Event ReorderLevelChanging As ReorderLevelChangeEventHandler
        
        Public Event ReorderLevelChanged As ReorderLevelChangeEventHandler
        
        Public Event DiscontinuedChanging As DiscontinuedChangeEventHandler
        
        Public Event DiscontinuedChanged As DiscontinuedChangeEventHandler
        
        Public Event ProductsRowChanged As ProductsRowChangeEventHandler
        
        Public Event ProductsRowChanging As ProductsRowChangeEventHandler
        
        Public Event ProductsRowDeleted As ProductsRowChangeEventHandler
        
        Public Event ProductsRowDeleting As ProductsRowChangeEventHandler
        
        Protected Overrides Sub OnColumnChanging(ByVal e As System.Data.DataColumnChangeEventArgs)
            MyBase.OnColumnChanging(e)
            If (Me.SuspendValidation = true) Then
                Return
            End If
            If (e.Column.ColumnName Is "ProductID") Then
                If (Not (Me.ProductIDChangingEvent) Is Nothing) Then
                    RaiseEvent ProductIDChanging(Me, New ProductIDChangeEventArg(e))
                End If
            Else
                If (e.Column.ColumnName Is "ProductName") Then
                    If (Not (Me.ProductNameChangingEvent) Is Nothing) Then
                        RaiseEvent ProductNameChanging(Me, New ProductNameChangeEventArg(e))
                    End If
                Else
                    If (e.Column.ColumnName Is "SupplierID") Then
                        If (Not (Me.SupplierIDChangingEvent) Is Nothing) Then
                            RaiseEvent SupplierIDChanging(Me, New SupplierIDChangeEventArg(e))
                        End If
                    Else
                        If (e.Column.ColumnName Is "CategoryID") Then
                            If (Not (Me.CategoryIDChangingEvent) Is Nothing) Then
                                RaiseEvent CategoryIDChanging(Me, New CategoryIDChangeEventArg(e))
                            End If
                        Else
                            If (e.Column.ColumnName Is "QuantityPerUnit") Then
                                If (Not (Me.QuantityPerUnitChangingEvent) Is Nothing) Then
                                    RaiseEvent QuantityPerUnitChanging(Me, New QuantityPerUnitChangeEventArg(e))
                                End If
                            Else
                                If (e.Column.ColumnName Is "UnitPrice") Then
                                    If (Not (Me.UnitPriceChangingEvent) Is Nothing) Then
                                        RaiseEvent UnitPriceChanging(Me, New UnitPriceChangeEventArg(e))
                                    End If
                                Else
                                    If (e.Column.ColumnName Is "UnitsInStock") Then
                                        If (Not (Me.UnitsInStockChangingEvent) Is Nothing) Then
                                            RaiseEvent UnitsInStockChanging(Me, New UnitsInStockChangeEventArg(e))
                                        End If
                                    Else
                                        If (e.Column.ColumnName Is "UnitsOnOrder") Then
                                            If (Not (Me.UnitsOnOrderChangingEvent) Is Nothing) Then
                                                RaiseEvent UnitsOnOrderChanging(Me, New UnitsOnOrderChangeEventArg(e))
                                            End If
                                        Else
                                            If (e.Column.ColumnName Is "ReorderLevel") Then
                                                If (Not (Me.ReorderLevelChangingEvent) Is Nothing) Then
                                                    RaiseEvent ReorderLevelChanging(Me, New ReorderLevelChangeEventArg(e))
                                                End If
                                            Else
                                                If (e.Column.ColumnName Is "Discontinued") Then
                                                    If (Not (Me.DiscontinuedChangingEvent) Is Nothing) Then
                                                        RaiseEvent DiscontinuedChanging(Me, New DiscontinuedChangeEventArg(e))
                                                    End If
                                                End If
                                            End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End Sub
        
        Protected Overrides Sub OnColumnChanged(ByVal e As System.Data.DataColumnChangeEventArgs)
            MyBase.OnColumnChanged(e)
            If (Me.SuspendValidation = true) Then
                Return
            End If
            If (e.Column.ColumnName Is "ProductID") Then
                If (Not (Me.ProductIDChangedEvent) Is Nothing) Then
                    RaiseEvent ProductIDChanged(Me, New ProductIDChangeEventArg(e))
                End If
            Else
                If (e.Column.ColumnName Is "ProductName") Then
                    If (Not (Me.ProductNameChangedEvent) Is Nothing) Then
                        RaiseEvent ProductNameChanged(Me, New ProductNameChangeEventArg(e))
                    End If
                Else
                    If (e.Column.ColumnName Is "SupplierID") Then
                        If (Not (Me.SupplierIDChangedEvent) Is Nothing) Then
                            RaiseEvent SupplierIDChanged(Me, New SupplierIDChangeEventArg(e))
                        End If
                    Else
                        If (e.Column.ColumnName Is "CategoryID") Then
                            If (Not (Me.CategoryIDChangedEvent) Is Nothing) Then
                                RaiseEvent CategoryIDChanged(Me, New CategoryIDChangeEventArg(e))
                            End If
                        Else
                            If (e.Column.ColumnName Is "QuantityPerUnit") Then
                                If (Not (Me.QuantityPerUnitChangedEvent) Is Nothing) Then
                                    RaiseEvent QuantityPerUnitChanged(Me, New QuantityPerUnitChangeEventArg(e))
                                End If
                            Else
                                If (e.Column.ColumnName Is "UnitPrice") Then
                                    If (Not (Me.UnitPriceChangedEvent) Is Nothing) Then
                                        RaiseEvent UnitPriceChanged(Me, New UnitPriceChangeEventArg(e))
                                    End If
                                Else
                                    If (e.Column.ColumnName Is "UnitsInStock") Then
                                        If (Not (Me.UnitsInStockChangedEvent) Is Nothing) Then
                                            RaiseEvent UnitsInStockChanged(Me, New UnitsInStockChangeEventArg(e))
                                        End If
                                    Else
                                        If (e.Column.ColumnName Is "UnitsOnOrder") Then
                                            If (Not (Me.UnitsOnOrderChangedEvent) Is Nothing) Then
                                                RaiseEvent UnitsOnOrderChanged(Me, New UnitsOnOrderChangeEventArg(e))
                                            End If
                                        Else
                                            If (e.Column.ColumnName Is "ReorderLevel") Then