datatables.vb

来自「东软内部材料（六）ado .net相关」· VB 代码 · 共 342 行 · 第 1/2 页

        Me.daEmployees.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "EmployeeList", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("EmployeeID", "EmployeeID"), New System.Data.Common.DataColumnMapping("FirstName", "FirstName"), New System.Data.Common.DataColumnMapping("LastName", "LastName")})})
        '
        'cmdSelectEmployees
        '
        Me.cmdSelectEmployees.CommandText = "SELECT EmployeeID, FirstName, LastName FROM EmployeeList"
        Me.cmdSelectEmployees.Connection = Me.cnNorthwind
        '
        'cnNorthwind
        '
        Me.cnNorthwind.ConnectionString = "data source=localhost;initial catalog=nwind;integrated security=SSPI;persist " & _
        "security info=False;packet size=4096"
        '
        'btnForeign
        '
        Me.btnForeign.Location = New System.Drawing.Point(416, 216)
        Me.btnForeign.Name = "btnForeign"
        Me.btnForeign.Size = New System.Drawing.Size(96, 23)
        Me.btnForeign.TabIndex = 4
        Me.btnForeign.Text = "Foreign Key"
        '
        'lbClients
        '
        Me.lbClients.DataSource = Me.dsMaster1
        Me.lbClients.DisplayMember = "CustomerList.CompanyName"
        Me.lbClients.Location = New System.Drawing.Point(200, 24)
        Me.lbClients.Name = "lbClients"
        Me.lbClients.Size = New System.Drawing.Size(200, 95)
        Me.lbClients.TabIndex = 2
        Me.lbClients.ValueMember = "CustomerID"
        '
        'cmdSelectCustomers
        '
        Me.cmdSelectCustomers.CommandText = "SELECT CustomerID, CompanyName, City, Country, PostalCode, Region FROM CustomerLi" & _
        "st"
        Me.cmdSelectCustomers.Connection = Me.cnNorthwind
        '
        'daCustomers
        '
        Me.daCustomers.SelectCommand = Me.cmdSelectCustomers
        Me.daCustomers.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "CustomerList", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("CustomerID", "CustomerID"), New System.Data.Common.DataColumnMapping("CompanyName", "CompanyName"), New System.Data.Common.DataColumnMapping("City", "City"), New System.Data.Common.DataColumnMapping("Country", "Country"), New System.Data.Common.DataColumnMapping("PostalCode", "PostalCode"), New System.Data.Common.DataColumnMapping("Region", "Region")})})
        '
        'daOrders
        '
        Me.daOrders.SelectCommand = Me.cmdSelectOrders
        Me.daOrders.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "OrderTotals", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("CustomerID", "CustomerID"), New System.Data.Common.DataColumnMapping("OrderID", "OrderID"), New System.Data.Common.DataColumnMapping("OrderDate", "OrderDate"), New System.Data.Common.DataColumnMapping("Subtotal", "Subtotal")})})
        '
        'cmdSelectOrders
        '
        Me.cmdSelectOrders.CommandText = "SELECT EmployeeID, CustomerID, OrderID, OrderDate, Subtotal FROM OrderTotals"
        Me.cmdSelectOrders.Connection = Me.cnNorthwind
        '
        'lblOrders
        '
        Me.lblOrders.AutoSize = True
        Me.lblOrders.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblOrders.Location = New System.Drawing.Point(8, 136)
        Me.lblOrders.Name = "lblOrders"
        Me.lblOrders.Size = New System.Drawing.Size(43, 13)
        Me.lblOrders.TabIndex = 0
        Me.lblOrders.Text = "Orders:"
        '
        'btnSelect
        '
        Me.btnSelect.Location = New System.Drawing.Point(416, 280)
        Me.btnSelect.Name = "btnSelect"
        Me.btnSelect.Size = New System.Drawing.Size(96, 23)
        Me.btnSelect.TabIndex = 4
        Me.btnSelect.Text = "Select"
        '
        'MasterID
        '
        Me.MasterID.AllowDBNull = False
        Me.MasterID.AutoIncrement = True
        Me.MasterID.Caption = "MasterID"
        Me.MasterID.ColumnName = "MasterID"
        Me.MasterID.DataType = GetType(System.Int32)
        '
        'dsUntyped
        '
        Me.dsUntyped.DataSetName = "dsUntyped"
        Me.dsUntyped.Locale = New System.Globalization.CultureInfo("en-US")
        Me.dsUntyped.Tables.AddRange(New System.Data.DataTable() {Me.dtMaster, Me.dtChild})
        '
        'dtMaster
        '
        Me.dtMaster.Columns.AddRange(New System.Data.DataColumn() {Me.MasterID, Me.MasterValue})
        Me.dtMaster.TableName = "dtMaster"
        '
        'MasterValue
        '
        Me.MasterValue.Caption = "MasterValue"
        Me.MasterValue.ColumnName = "MasterValue"
        '
        'btnDataSet
        '
        Me.btnDataSet.Location = New System.Drawing.Point(416, 56)
        Me.btnDataSet.Name = "btnDataSet"
        Me.btnDataSet.Size = New System.Drawing.Size(96, 24)
        Me.btnDataSet.TabIndex = 4
        Me.btnDataSet.Text = "Dataset Table "
        '
        'lbEmployees
        '
        Me.lbEmployees.Location = New System.Drawing.Point(8, 24)
        Me.lbEmployees.Name = "lbEmployees"
        Me.lbEmployees.Size = New System.Drawing.Size(184, 95)
        Me.lbEmployees.TabIndex = 1
        '
        'dgOrders
        '
        Me.dgOrders.DataMember = ""
        Me.dgOrders.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dgOrders.Location = New System.Drawing.Point(8, 152)
        Me.dgOrders.Name = "dgOrders"
        Me.dgOrders.Size = New System.Drawing.Size(392, 208)
        Me.dgOrders.TabIndex = 3
        '
        'lblEmployees
        '
        Me.lblEmployees.AutoSize = True
        Me.lblEmployees.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblEmployees.Location = New System.Drawing.Point(8, 8)
        Me.lblEmployees.Name = "lblEmployees"
        Me.lblEmployees.Size = New System.Drawing.Size(66, 13)
        Me.lblEmployees.TabIndex = 0
        Me.lblEmployees.Text = "Employees:"
        '
        'lblClients
        '
        Me.lblClients.AutoSize = True
        Me.lblClients.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblClients.Location = New System.Drawing.Point(200, 8)
        Me.lblClients.Name = "lblClients"
        Me.lblClients.Size = New System.Drawing.Size(44, 13)
        Me.lblClients.TabIndex = 0
        Me.lblClients.Text = "Clients:"
        '
        'dsMaster1
        '
        Me.dsMaster1.DataSetName = "dsMaster"
        Me.dsMaster1.Locale = New System.Globalization.CultureInfo("en-US")
        Me.dsMaster1.Namespace = "http://www.tempuri.org/dsMaster.xsd"
        '
        'btnTable
        '
        Me.btnTable.Location = New System.Drawing.Point(416, 24)
        Me.btnTable.Name = "btnTable"
        Me.btnTable.Size = New System.Drawing.Size(96, 24)
        Me.btnTable.TabIndex = 5
        Me.btnTable.Text = "Add Table"
        '
        'frmDataSets
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(520, 373)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnTable, Me.btnSelect, Me.btnUnique, Me.btnForeign, Me.btnSchema, Me.btnVersion, Me.btnAddRow, Me.btnCalculate, Me.btnDataSet, Me.dgOrders, Me.lbClients, Me.lbEmployees, Me.lblOrders, Me.lblClients, Me.lblEmployees})
        Me.Name = "frmDataSets"
        Me.Text = "DataTables"
        CType(Me.dtChild, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.dsUntyped, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.dtMaster, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.dgOrders, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.dsMaster1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

End Class