reference.vb

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

        Private shipAddressField As String
        
        Private shipCityField As String
        
        Private shipRegionField As String
        
        Private shipPostalCodeField As String
        
        Private shipCountryField As String
        
        Private orderDetailsField() As OrderDetail
        
        '''<remarks/>
        Public Property OrderID() As Integer
            Get
                Return Me.orderIDField
            End Get
            Set
                Me.orderIDField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property CustomerID() As String
            Get
                Return Me.customerIDField
            End Get
            Set
                Me.customerIDField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property EmployeeID() As Integer
            Get
                Return Me.employeeIDField
            End Get
            Set
                Me.employeeIDField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property OrderDate() As Date
            Get
                Return Me.orderDateField
            End Get
            Set
                Me.orderDateField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property RequiredDate() As Date
            Get
                Return Me.requiredDateField
            End Get
            Set
                Me.requiredDateField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property ShippedDate() As Date
            Get
                Return Me.shippedDateField
            End Get
            Set
                Me.shippedDateField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property ShipVia() As Integer
            Get
                Return Me.shipViaField
            End Get
            Set
                Me.shipViaField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property Freight() As Decimal
            Get
                Return Me.freightField
            End Get
            Set
                Me.freightField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property ShipName() As String
            Get
                Return Me.shipNameField
            End Get
            Set
                Me.shipNameField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property ShipAddress() As String
            Get
                Return Me.shipAddressField
            End Get
            Set
                Me.shipAddressField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property ShipCity() As String
            Get
                Return Me.shipCityField
            End Get
            Set
                Me.shipCityField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property ShipRegion() As String
            Get
                Return Me.shipRegionField
            End Get
            Set
                Me.shipRegionField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property ShipPostalCode() As String
            Get
                Return Me.shipPostalCodeField
            End Get
            Set
                Me.shipPostalCodeField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property ShipCountry() As String
            Get
                Return Me.shipCountryField
            End Get
            Set
                Me.shipCountryField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property OrderDetails() As OrderDetail()
            Get
                Return Me.orderDetailsField
            End Get
            Set
                Me.orderDetailsField = value
            End Set
        End Property
    End Class
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "2.0.50727.42"),  _
     System.SerializableAttribute(),  _
     System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://oakleaf.ws/webservices/nwordersws")>  _
    Partial Public Class OrderDetail
        
        Private orderIDField As Integer
        
        Private productIDField As Integer
        
        Private unitPriceField As Decimal
        
        Private quantityField As Short
        
        Private discountField As Decimal
        
        '''<remarks/>
        Public Property OrderID() As Integer
            Get
                Return Me.orderIDField
            End Get
            Set
                Me.orderIDField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property ProductID() As Integer
            Get
                Return Me.productIDField
            End Get
            Set
                Me.productIDField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property UnitPrice() As Decimal
            Get
                Return Me.unitPriceField
            End Get
            Set
                Me.unitPriceField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property Quantity() As Short
            Get
                Return Me.quantityField
            End Get
            Set
                Me.quantityField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property Discount() As Decimal
            Get
                Return Me.discountField
            End Get
            Set
                Me.discountField = value
            End Set
        End Property
    End Class
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "2.0.50727.42"),  _
     System.SerializableAttribute(),  _
     System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://oakleaf.ws/webservices/nwordersws")>  _
    Partial Public Class customer
        
        Private custIDField As String
        
        Private custNameField As String
        
        '''<remarks/>
        Public Property custID() As String
            Get
                Return Me.custIDField
            End Get
            Set
                Me.custIDField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property custName() As String
            Get
                Return Me.custNameField
            End Get
            Set
                Me.custNameField = value
            End Set
        End Property
    End Class
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "2.0.50727.42"),  _
     System.SerializableAttribute(),  _
     System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://oakleaf.ws/webservices/nwordersws")>  _
    Partial Public Class custLookup
        
        Private customersField() As customer
        
        '''<remarks/>
        Public Property customers() As customer()
            Get
                Return Me.customersField
            End Get
            Set
                Me.customersField = value
            End Set
        End Property
    End Class
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "2.0.50727.42"),  _
     System.SerializableAttribute(),  _
     System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://oakleaf.ws/webservices/nwordersws")>  _
    Partial Public Class productDtl
        
        Private prodIDField As Integer
        
        Private prodNameField As String
        
        Private prodSKUField As String
        
        Private prodPriceField As Double
        
        '''<remarks/>
        Public Property prodID() As Integer
            Get
                Return Me.prodIDField
            End Get
            Set
                Me.prodIDField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property prodName() As String
            Get
                Return Me.prodNameField
            End Get
            Set
                Me.prodNameField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property prodSKU() As String
            Get
                Return Me.prodSKUField
            End Get
            Set
                Me.prodSKUField = value
            End Set
        End Property
        
        '''<remarks/>
        Public Property prodPrice() As Double
            Get
                Return Me.prodPriceField
            End Get
            Set
                Me.prodPriceField = value
            End Set
        End Property
    End Class
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "2.0.50727.42"),  _
     System.SerializableAttribute(),  _
     System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://oakleaf.ws/webservices/nwordersws")>  _
    Partial Public Class prodLookupDtl
        
        Private productsDtlField() As productDtl
        
        '''<remarks/>
        Public Property productsDtl() As productDtl()
            Get
                Return Me.productsDtlField
            End Get
            Set
                Me.productsDtlField = value
            End Set
        End Property
    End Class
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "2.0.50727.42"),  _
     System.SerializableAttribute(),  _
     System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://oakleaf.ws/webservices/nwordersws")>  _
    Partial Public Class product