northwinddataset.designer.vb

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

            
            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 DiscontinuedChangeEventHandler(ByVal sender As ProductsDataTable, ByVal e As DiscontinuedChangeEventArg)
        
        Public Class DiscontinuedChangeEventArg
            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 DiscontinuedColumn() As System.Data.DataColumn
                Get
                    Return Me.evArgs.Column
                End Get
            End Property
            
            Public Property ProposedValue() As Boolean
                Get
                    Return CType(Me.evArgs.ProposedValue,Boolean)
                End Get
                Set
                    Me.evArgs.ProposedValue = CType(value,Boolean)
                End Set
            End Property
        End Class
    End Class
    
    <System.Serializable(),  _
     System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
    Partial Public Class SuppliersDataTable
        Inherits System.Data.DataTable
        Implements System.Collections.IEnumerable
        
        Private columnSupplierID As System.Data.DataColumn
        
        Private columnCompanyName As System.Data.DataColumn
        
        Private columnContactName As System.Data.DataColumn
        
        Private columnContactTitle As System.Data.DataColumn
        
        Private columnAddress As System.Data.DataColumn
        
        Private columnCity As System.Data.DataColumn
        
        Private columnRegion As System.Data.DataColumn
        
        Private columnPostalCode As System.Data.DataColumn
        
        Private columnCountry As System.Data.DataColumn
        
        Private columnPhone As System.Data.DataColumn
        
        Private columnFax As System.Data.DataColumn
        
        Private m_suspendValidation As Boolean = false
        
        Public Sub New()
            MyBase.New
            Me.TableName = "Suppliers"
            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 SupplierIDColumn() As System.Data.DataColumn
            Get
                Return Me.columnSupplierID
            End Get
        End Property
        
        Friend ReadOnly Property CompanyNameColumn() As System.Data.DataColumn
            Get
                Return Me.columnCompanyName
            End Get
        End Property
        
        Friend ReadOnly Property ContactNameColumn() As System.Data.DataColumn
            Get
                Return Me.columnContactName
            End Get
        End Property
        
        Friend ReadOnly Property ContactTitleColumn() As System.Data.DataColumn
            Get
                Return Me.columnContactTitle
            End Get
        End Property
        
        Friend ReadOnly Property AddressColumn() As System.Data.DataColumn
            Get
                Return Me.columnAddress
            End Get
        End Property
        
        Friend ReadOnly Property CityColumn() As System.Data.DataColumn
            Get
                Return Me.columnCity
            End Get
        End Property
        
        Friend ReadOnly Property RegionColumn() As System.Data.DataColumn
            Get
                Return Me.columnRegion
            End Get
        End Property
        
        Friend ReadOnly Property PostalCodeColumn() As System.Data.DataColumn
            Get
                Return Me.columnPostalCode
            End Get
        End Property
        
        Friend ReadOnly Property CountryColumn() As System.Data.DataColumn
            Get
                Return Me.columnCountry
            End Get
        End Property
        
        Friend ReadOnly Property PhoneColumn() As System.Data.DataColumn
            Get
                Return Me.columnPhone
            End Get
        End Property
        
        Friend ReadOnly Property FaxColumn() As System.Data.DataColumn
            Get
                Return Me.columnFax
            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 SuppliersRow
            Get
                Return CType(Me.Rows(index),SuppliersRow)
            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 SupplierIDChanging As SupplierIDChangeEventHandler
        
        Public Event SupplierIDChanged As SupplierIDChangeEventHandler
        
        Public Event CompanyNameChanging As CompanyNameChangeEventHandler
        
        Public Event CompanyNameChanged As CompanyNameChangeEventHandler
        
        Public Event ContactNameChanging As ContactNameChangeEventHandler
        
        Public Event ContactNameChanged As ContactNameChangeEventHandler
        
        Public Event ContactTitleChanging As ContactTitleChangeEventHandler
        
        Public Event ContactTitleChanged As ContactTitleChangeEventHandler
        
        Public Event AddressChanging As AddressChangeEventHandler
        
        Public Event AddressChanged As AddressChangeEventHandler
        
        Public Event CityChanging As CityChangeEventHandler
        
        Public Event CityChanged As CityChangeEventHandler
        
        Public Event RegionChanging As RegionChangeEventHandler
        
        Public Event RegionChanged As RegionChangeEventHandler
        
        Public Event PostalCodeChanging As PostalCodeChangeEventHandler
        
        Public Event PostalCodeChanged As PostalCodeChangeEventHandler
        
        Public Event CountryChanging As CountryChangeEventHandler
        
        Public Event CountryChanged As CountryChangeEventHandler
        
        Public Event PhoneChanging As PhoneChangeEventHandler
        
        Public Event PhoneChanged As PhoneChangeEventHandler
        
        Public Event FaxChanging As FaxChangeEventHandler
        
        Public Event FaxChanged As FaxChangeEventHandler
        
        Public Event SuppliersRowChanged As SuppliersRowChangeEventHandler
        
        Public Event SuppliersRowChanging As SuppliersRowChangeEventHandler
        
        Public Event SuppliersRowDeleted As SuppliersRowChangeEventHandler
        
        Public Event SuppliersRowDeleting As SuppliersRowChangeEventHandler
        
        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 "SupplierID") Then
                If (Not (Me.SupplierIDChangingEvent) Is Nothing) Then
                    RaiseEvent SupplierIDChanging(Me, New SupplierIDChangeEventArg(e))
                End If
            Else
                If (e.Column.ColumnName Is "CompanyName") Then
                    If (Not (Me.CompanyNameChangingEvent) Is Nothing) Then
                        RaiseEvent CompanyNameChanging(Me, New CompanyNameChangeEventArg(e))
                    End If
                Else
                    If (e.Column.ColumnName Is "ContactName") Then
                        If (Not (Me.ContactNameChangingEvent) Is Nothing) Then
                            RaiseEvent ContactNameChanging(Me, New ContactNameChangeEventArg(e))
                        End If
                    Else
                        If (e.Column.ColumnName Is "ContactTitle") Then
                            If (Not (Me.ContactTitleChangingEvent) Is Nothing) Then
                                RaiseEvent ContactTitleChanging(Me, New ContactTitleChangeEventArg(e))
                            End If
                        Else
                            If (e.Column.ColumnName Is "Address") Then
                                If (Not (Me.AddressChangingEvent) Is Nothing) Then