reference.vb

Microsoft Mobile Development Handbook的代码,有C#,VB,C++的

            
            Private columnPostalCode As System.Data.DataColumn
            
            Private columnCountry As System.Data.DataColumn
            
            Private columnPhone As System.Data.DataColumn
            
            Private columnFax As System.Data.DataColumn
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Sub New()
                MyBase.New
                Me.TableName = "Customers"
                Me.BeginInit
                Me.InitClass
                Me.EndInit
            End Sub
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            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
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public ReadOnly Property CustomerIDColumn() As System.Data.DataColumn
                Get
                    Return Me.columnCustomerID
                End Get
            End Property
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public ReadOnly Property CompanyNameColumn() As System.Data.DataColumn
                Get
                    Return Me.columnCompanyName
                End Get
            End Property
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public ReadOnly Property ContactNameColumn() As System.Data.DataColumn
                Get
                    Return Me.columnContactName
                End Get
            End Property
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public ReadOnly Property ContactTitleColumn() As System.Data.DataColumn
                Get
                    Return Me.columnContactTitle
                End Get
            End Property
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public ReadOnly Property AddressColumn() As System.Data.DataColumn
                Get
                    Return Me.columnAddress
                End Get
            End Property
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public ReadOnly Property CityColumn() As System.Data.DataColumn
                Get
                    Return Me.columnCity
                End Get
            End Property
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public ReadOnly Property _RegionColumn() As System.Data.DataColumn
                Get
                    Return Me.column_Region
                End Get
            End Property
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public ReadOnly Property PostalCodeColumn() As System.Data.DataColumn
                Get
                    Return Me.columnPostalCode
                End Get
            End Property
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public ReadOnly Property CountryColumn() As System.Data.DataColumn
                Get
                    Return Me.columnCountry
                End Get
            End Property
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public ReadOnly Property PhoneColumn() As System.Data.DataColumn
                Get
                    Return Me.columnPhone
                End Get
            End Property
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public ReadOnly Property FaxColumn() As System.Data.DataColumn
                Get
                    Return Me.columnFax
                End Get
            End Property
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public ReadOnly Property Count() As Integer
                Get
                    Return Me.Rows.Count
                End Get
            End Property
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Default ReadOnly Property Item(ByVal index As Integer) As CustomersRow
                Get
                    Return CType(Me.Rows(index),CustomersRow)
                End Get
            End Property
            
            Public Event CustomersRowChanging As CustomersRowChangeEventHandler
            
            Public Event CustomersRowChanged As CustomersRowChangeEventHandler
            
            Public Event CustomersRowDeleting As CustomersRowChangeEventHandler
            
            Public Event CustomersRowDeleted As CustomersRowChangeEventHandler
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Overloads Sub AddCustomersRow(ByVal row As CustomersRow)
                Me.Rows.Add(row)
            End Sub
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Overloads Function AddCustomersRow(ByVal CustomerID As String, ByVal CompanyName As String, ByVal ContactName As String, ByVal ContactTitle As String, ByVal Address As String, ByVal City As String, ByVal _Region As String, ByVal PostalCode As String, ByVal Country As String, ByVal Phone As String, ByVal Fax As String) As CustomersRow
                Dim rowCustomersRow As CustomersRow = CType(Me.NewRow,CustomersRow)
                rowCustomersRow.ItemArray = New Object() {CustomerID, CompanyName, ContactName, ContactTitle, Address, City, _Region, PostalCode, Country, Phone, Fax}
                Me.Rows.Add(rowCustomersRow)
                Return rowCustomersRow
            End Function
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Function FindByCustomerID(ByVal CustomerID As String) As CustomersRow
                Return CType(Me.Rows.Find(New Object() {CustomerID}),CustomersRow)
            End Function
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Overridable Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
                Return Me.Rows.GetEnumerator
            End Function
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Overrides Function Clone() As System.Data.DataTable
                Dim cln As CustomersDataTable = CType(MyBase.Clone,CustomersDataTable)
                cln.InitVars
                Return cln
            End Function
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Protected Overrides Function CreateInstance() As System.Data.DataTable
                Return New CustomersDataTable
            End Function
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Friend Sub InitVars()
                Me.columnCustomerID = MyBase.Columns("CustomerID")
                Me.columnCompanyName = MyBase.Columns("CompanyName")
                Me.columnContactName = MyBase.Columns("ContactName")
                Me.columnContactTitle = MyBase.Columns("ContactTitle")
                Me.columnAddress = MyBase.Columns("Address")
                Me.columnCity = MyBase.Columns("City")
                Me.column_Region = MyBase.Columns("Region")
                Me.columnPostalCode = MyBase.Columns("PostalCode")
                Me.columnCountry = MyBase.Columns("Country")
                Me.columnPhone = MyBase.Columns("Phone")
                Me.columnFax = MyBase.Columns("Fax")
            End Sub
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Private Sub InitClass()
                Me.columnCustomerID = New System.Data.DataColumn("CustomerID", GetType(String), Nothing, System.Data.MappingType.Element)
                MyBase.Columns.Add(Me.columnCustomerID)
                Me.columnCompanyName = New System.Data.DataColumn("CompanyName", GetType(String), Nothing, System.Data.MappingType.Element)
                MyBase.Columns.Add(Me.columnCompanyName)
                Me.columnContactName = New System.Data.DataColumn("ContactName", GetType(String), Nothing, System.Data.MappingType.Element)
                MyBase.Columns.Add(Me.columnContactName)
                Me.columnContactTitle = New System.Data.DataColumn("ContactTitle", GetType(String), Nothing, System.Data.MappingType.Element)
                MyBase.Columns.Add(Me.columnContactTitle)
                Me.columnAddress = New System.Data.DataColumn("Address", GetType(String), Nothing, System.Data.MappingType.Element)
                MyBase.Columns.Add(Me.columnAddress)
                Me.columnCity = New System.Data.DataColumn("City", GetType(String), Nothing, System.Data.MappingType.Element)
                MyBase.Columns.Add(Me.columnCity)
                Me.column_Region = New System.Data.DataColumn("Region", GetType(String), Nothing, System.Data.MappingType.Element)
                Me.column_Region.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "_Region")
                Me.column_Region.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "_RegionColumn")
                Me.column_Region.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column_Region")
                Me.column_Region.ExtendedProperties.Add("Generator_UserColumnName", "Region")
                MyBase.Columns.Add(Me.column_Region)
                Me.columnPostalCode = New System.Data.DataColumn("PostalCode", GetType(String), Nothing, System.Data.MappingType.Element)
                MyBase.Columns.Add(Me.columnPostalCode)
                Me.columnCountry = New System.Data.DataColumn("Country", GetType(String), Nothing, System.Data.MappingType.Element)
                MyBase.Columns.Add(Me.columnCountry)
                Me.columnPhone = New System.Data.DataColumn("Phone", GetType(String), Nothing, System.Data.MappingType.Element)
                MyBase.Columns.Add(Me.columnPhone)
                Me.columnFax = New System.Data.DataColumn("Fax", GetType(String), Nothing, System.Data.MappingType.Element)
                MyBase.Columns.Add(Me.columnFax)
                Me.Constraints.Add(New System.Data.UniqueConstraint("Constraint1", New System.Data.DataColumn() {Me.columnCustomerID}, true))
                Me.columnCustomerID.AllowDBNull = false
                Me.columnCustomerID.Unique = true
                Me.columnCustomerID.MaxLength = 5
                Me.columnCompanyName.AllowDBNull = false
                Me.columnCompanyName.MaxLength = 40
                Me.columnContactName.MaxLength = 30
                Me.columnContactTitle.MaxLength = 30
                Me.columnAddress.MaxLength = 60
                Me.columnCity.MaxLength = 15
                Me.column_Region.MaxLength = 15
                Me.columnPostalCode.MaxLength = 10
                Me.columnCountry.MaxLength = 15
                Me.columnPhone.MaxLength = 24
                Me.columnFax.MaxLength = 24
            End Sub
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Function NewCustomersRow() As CustomersRow
                Return CType(Me.NewRow,CustomersRow)
            End Function
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Protected Overrides Function NewRowFromBuilder(ByVal builder As System.Data.DataRowBuilder) As System.Data.DataRow
                Return New CustomersRow(builder)
            End Function
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Protected Overrides Function GetRowType() As System.Type
                Return GetType(CustomersRow)
            End Function
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Protected Overrides Sub OnRowChanged(ByVal e As System.Data.DataRowChangeEventArgs)
                MyBase.OnRowChanged(e)
                If (Not (Me.CustomersRowChangedEvent) Is Nothing) Then
                    RaiseEvent CustomersRowChanged(Me, New CustomersRowChangeEvent(CType(e.Row,CustomersRow), e.Action))
                End If
            End Sub
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Protected Overrides Sub OnRowChanging(ByVal e As System.Data.DataRowChangeEventArgs)
                MyBase.OnRowChanging(e)
                If (Not (Me.CustomersRowChangingEvent) Is Nothing) Then
                    RaiseEvent CustomersRowChanging(Me, New CustomersRowChangeEvent(CType(e.Row,CustomersRow), e.Action))
                End If
            End Sub
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Protected Overrides Sub OnRowDeleted(ByVal e As System.Data.DataRowChangeEventArgs)
                MyBase.OnRowDeleted(e)
                If (Not (Me.CustomersRowDeletedEvent) Is Nothing) Then
                    RaiseEvent CustomersRowDeleted(Me, New CustomersRowChangeEvent(CType(e.Row,CustomersRow), e.Action))
                End If
            End Sub
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Protected Overrides Sub OnRowDeleting(ByVal e As System.Data.DataRowChangeEventArgs)
                MyBase.OnRowDeleting(e)
                If (Not (Me.CustomersRowDeletingEvent) Is Nothing) Then
                    RaiseEvent CustomersRowDeleting(Me, New CustomersRowChangeEvent(CType(e.Row,CustomersRow), e.Action))
                End If
            End Sub
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Sub RemoveCustomersRow(ByVal row As CustomersRow)
                Me.Rows.Remove(row)
            End Sub
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Shared Function GetTypedTableSchema(ByVal xs As System.Xml.Schema.XmlSchemaSet) As System.Xml.Schema.XmlSchemaComplexType
                Dim type As System.Xml.Schema.XmlSchemaComplexType = New System.Xml.Schema.XmlSchemaComplexType
                Dim sequence As System.Xml.Schema.XmlSchemaSequence = New System.Xml.Schema.XmlSchemaSequence
                Dim ds As CustomersDataSet = New CustomersDataSet
                xs.Add(ds.GetSchemaSerializable)
                Dim any1 As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
                any1.Namespace = "http://www.w3.org/2001/XMLSchema"
                any1.MinOccurs = New Decimal(0)
                any1.MaxOccurs = Decimal.MaxValue
                any1.ProcessContents = System.Xml.Schema.XmlSchemaContentProcessing.Lax
                sequence.Items.Add(any1)
                Dim any2 As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
                any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"