northwinddataset.designer.vb

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

                    Return Me.evArgs.Column
                End Get
            End Property
            
            Public Property ProposedValue() As Integer
                Get
                    Return CType(Me.evArgs.ProposedValue,Integer)
                End Get
                Set
                    Me.evArgs.ProposedValue = CType(value,Integer)
                End Set
            End Property
        End Class
        
        Public Delegate Sub ProductNameChangeEventHandler(ByVal sender As ProductsDataTable, ByVal e As ProductNameChangeEventArg)
        
        Public Class ProductNameChangeEventArg
            Inherits System.EventArgs
            
            Private evArgs As System.Data.DataColumnChangeEventArgs
            
            Public Sub New(ByVal args As System.Data.DataColumnChangeEventArgs)
                MyBase.New
                Me.evArgs = args
            End Sub
            
            Public ReadOnly Property Row() As ProductsRow
                Get
                    Return CType(Me.evArgs.Row,ProductsRow)
                End Get
            End Property
            
            Public ReadOnly Property ProductNameColumn() As System.Data.DataColumn
                Get
                    Return Me.evArgs.Column
                End Get
            End Property
            
            Public Property ProposedValue() As String
                Get
                    Return CType(Me.evArgs.ProposedValue,String)
                End Get
                Set
                    Me.evArgs.ProposedValue = CType(value,String)
                End Set
            End Property
        End Class
        
        Public Delegate Sub SupplierIDChangeEventHandler(ByVal sender As ProductsDataTable, ByVal e As SupplierIDChangeEventArg)
        
        Public Class SupplierIDChangeEventArg
            Inherits System.EventArgs
            
            Private evArgs As System.Data.DataColumnChangeEventArgs
            
            Public Sub New(ByVal args As System.Data.DataColumnChangeEventArgs)
                MyBase.New
                Me.evArgs = args
            End Sub
            
            Public ReadOnly Property Row() As ProductsRow
                Get
                    Return CType(Me.evArgs.Row,ProductsRow)
                End Get
            End Property
            
            Public ReadOnly Property SupplierIDColumn() As System.Data.DataColumn
                Get
                    Return Me.evArgs.Column
                End Get
            End Property
            
            Public Property ProposedValue() As Integer
                Get
                    Return CType(Me.evArgs.ProposedValue,Integer)
                End Get
                Set
                    Me.evArgs.ProposedValue = CType(value,Integer)
                End Set
            End Property
        End Class
        
        Public Delegate Sub CategoryIDChangeEventHandler(ByVal sender As ProductsDataTable, ByVal e As CategoryIDChangeEventArg)
        
        Public Class CategoryIDChangeEventArg
            Inherits System.EventArgs
            
            Private evArgs As System.Data.DataColumnChangeEventArgs
            
            Public Sub New(ByVal args As System.Data.DataColumnChangeEventArgs)
                MyBase.New
                Me.evArgs = args
            End Sub
            
            Public ReadOnly Property Row() As ProductsRow
                Get
                    Return CType(Me.evArgs.Row,ProductsRow)
                End Get
            End Property
            
            Public ReadOnly Property CategoryIDColumn() As System.Data.DataColumn
                Get
                    Return Me.evArgs.Column
                End Get
            End Property
            
            Public Property ProposedValue() As Integer
                Get
                    Return CType(Me.evArgs.ProposedValue,Integer)
                End Get
                Set
                    Me.evArgs.ProposedValue = CType(value,Integer)
                End Set
            End Property
        End Class
        
        Public Delegate Sub QuantityPerUnitChangeEventHandler(ByVal sender As ProductsDataTable, ByVal e As QuantityPerUnitChangeEventArg)
        
        Public Class QuantityPerUnitChangeEventArg
            Inherits System.EventArgs
            
            Private evArgs As System.Data.DataColumnChangeEventArgs
            
            Public Sub New(ByVal args As System.Data.DataColumnChangeEventArgs)
                MyBase.New
                Me.evArgs = args
            End Sub
            
            Public ReadOnly Property Row() As ProductsRow
                Get
                    Return CType(Me.evArgs.Row,ProductsRow)
                End Get
            End Property
            
            Public ReadOnly Property QuantityPerUnitColumn() As System.Data.DataColumn
                Get
                    Return Me.evArgs.Column
                End Get
            End Property
            
            Public Property ProposedValue() As String
                Get
                    Return CType(Me.evArgs.ProposedValue,String)
                End Get
                Set
                    Me.evArgs.ProposedValue = CType(value,String)
                End Set
            End Property
        End Class
        
        Public Delegate Sub UnitPriceChangeEventHandler(ByVal sender As ProductsDataTable, ByVal e As UnitPriceChangeEventArg)
        
        Public Class UnitPriceChangeEventArg
            Inherits System.EventArgs
            
            Private evArgs As System.Data.DataColumnChangeEventArgs
            
            Public Sub New(ByVal args As System.Data.DataColumnChangeEventArgs)
                MyBase.New
                Me.evArgs = args
            End Sub
            
            Public ReadOnly Property Row() As ProductsRow
                Get
                    Return CType(Me.evArgs.Row,ProductsRow)
                End Get
            End Property
            
            Public ReadOnly Property UnitPriceColumn() As System.Data.DataColumn
                Get
                    Return Me.evArgs.Column
                End Get
            End Property
            
            Public Property ProposedValue() As Decimal
                Get
                    Return CType(Me.evArgs.ProposedValue,Decimal)
                End Get
                Set
                    Me.evArgs.ProposedValue = CType(value,Decimal)
                End Set
            End Property
        End Class
        
        Public Delegate Sub UnitsInStockChangeEventHandler(ByVal sender As ProductsDataTable, ByVal e As UnitsInStockChangeEventArg)
        
        Public Class UnitsInStockChangeEventArg
            Inherits System.EventArgs
            
            Private evArgs As System.Data.DataColumnChangeEventArgs
            
            Public Sub New(ByVal args As System.Data.DataColumnChangeEventArgs)
                MyBase.New
                Me.evArgs = args
            End Sub
            
            Public ReadOnly Property Row() As ProductsRow
                Get
                    Return CType(Me.evArgs.Row,ProductsRow)
                End Get
            End Property
            
            Public ReadOnly Property UnitsInStockColumn() As System.Data.DataColumn
                Get
                    Return Me.evArgs.Column
                End Get
            End Property
            
            Public Property ProposedValue() As Short
                Get
                    Return CType(Me.evArgs.ProposedValue,Short)
                End Get
                Set
                    Me.evArgs.ProposedValue = CType(value,Short)
                End Set
            End Property
        End Class
        
        Public Delegate Sub UnitsOnOrderChangeEventHandler(ByVal sender As ProductsDataTable, ByVal e As UnitsOnOrderChangeEventArg)
        
        Public Class UnitsOnOrderChangeEventArg
            Inherits System.EventArgs
            
            Private evArgs As System.Data.DataColumnChangeEventArgs
            
            Public Sub New(ByVal args As System.Data.DataColumnChangeEventArgs)
                MyBase.New
                Me.evArgs = args
            End Sub
            
            Public ReadOnly Property Row() As ProductsRow
                Get
                    Return CType(Me.evArgs.Row,ProductsRow)
                End Get
            End Property
            
            Public ReadOnly Property UnitsOnOrderColumn() As System.Data.DataColumn
                Get
                    Return Me.evArgs.Column
                End Get
            End Property
            
            Public Property ProposedValue() As Short
                Get
                    Return CType(Me.evArgs.ProposedValue,Short)
                End Get
                Set
                    Me.evArgs.ProposedValue = CType(value,Short)
                End Set
            End Property
        End Class
        
        Public Delegate Sub ReorderLevelChangeEventHandler(ByVal sender As ProductsDataTable, ByVal e As ReorderLevelChangeEventArg)
        
        Public Class ReorderLevelChangeEventArg
            Inherits System.EventArgs
            
            Private evArgs As System.Data.DataColumnChangeEventArgs
            
            Public Sub New(ByVal args As System.Data.DataColumnChangeEventArgs)
                MyBase.New
                Me.evArgs = args
            End Sub
            
            Public ReadOnly Property Row() As ProductsRow
                Get
                    Return CType(Me.evArgs.Row,ProductsRow)
                End Get
            End Property
            
            Public ReadOnly Property ReorderLevelColumn() As System.Data.DataColumn
                Get
                    Return Me.evArgs.Column
                End Get
            End Property