transactions.designer.vb

wrox出版社的另一套经典的VB2005数据库编程学习书籍,收集了书中源码,郑重推荐,电子书,电子书下载

        Me.Order_DetailsDataGridView.Columns.Add(Me.DataGridViewTextBoxColumn18)
        Me.Order_DetailsDataGridView.Columns.Add(Me.DataGridViewTextBoxColumn19)
        Me.Order_DetailsDataGridView.DataSource = Me.Order_DetailsBindingSource
        Me.Order_DetailsDataGridView.Location = New System.Drawing.Point(12, 273)
        Me.Order_DetailsDataGridView.Name = "Order_DetailsDataGridView"
        Me.Order_DetailsDataGridView.Size = New System.Drawing.Size(408, 162)
        Me.Order_DetailsDataGridView.TabIndex = 2
        '
        'DataGridViewTextBoxColumn15
        '
        Me.DataGridViewTextBoxColumn15.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
        Me.DataGridViewTextBoxColumn15.DataPropertyName = "OrderID"
        Me.DataGridViewTextBoxColumn15.HeaderText = "OrderID"
        Me.DataGridViewTextBoxColumn15.Name = "tbc15OrderID"
        Me.DataGridViewTextBoxColumn15.Width = 64
        '
        'DataGridViewTextBoxColumn16
        '
        Me.DataGridViewTextBoxColumn16.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
        Me.DataGridViewTextBoxColumn16.DataPropertyName = "ProductID"
        Me.DataGridViewTextBoxColumn16.HeaderText = "ProductID"
        Me.DataGridViewTextBoxColumn16.Name = "ProductID"
        Me.DataGridViewTextBoxColumn16.Width = 75
        '
        'DataGridViewTextBoxColumn17
        '
        Me.DataGridViewTextBoxColumn17.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
        Me.DataGridViewTextBoxColumn17.DataPropertyName = "UnitPrice"
        DataGridViewCellStyle2.Format = "C2"
        DataGridViewCellStyle2.FormatProvider = New System.Globalization.CultureInfo("en-US")
        Me.DataGridViewTextBoxColumn17.DefaultCellStyle = DataGridViewCellStyle2
        Me.DataGridViewTextBoxColumn17.HeaderText = "UnitPrice"
        Me.DataGridViewTextBoxColumn17.Name = "UnitPrice"
        Me.DataGridViewTextBoxColumn17.Width = 70
        '
        'DataGridViewTextBoxColumn18
        '
        Me.DataGridViewTextBoxColumn18.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
        Me.DataGridViewTextBoxColumn18.DataPropertyName = "Quantity"
        Me.DataGridViewTextBoxColumn18.HeaderText = "Quantity"
        Me.DataGridViewTextBoxColumn18.Name = "Quantity"
        Me.DataGridViewTextBoxColumn18.Width = 66
        '
        'DataGridViewTextBoxColumn19
        '
        Me.DataGridViewTextBoxColumn19.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
        Me.DataGridViewTextBoxColumn19.DataPropertyName = "Discount"
        DataGridViewCellStyle3.Format = "P1"
        DataGridViewCellStyle3.FormatProvider = New System.Globalization.CultureInfo("en-US")
        Me.DataGridViewTextBoxColumn19.DefaultCellStyle = DataGridViewCellStyle3
        Me.DataGridViewTextBoxColumn19.HeaderText = "Discount"
        Me.DataGridViewTextBoxColumn19.Name = "Discount"
        Me.DataGridViewTextBoxColumn19.Width = 69
        '
        'gbTransType
        '
        Me.gbTransType.Controls.Add(Me.btnSave)
        Me.gbTransType.Controls.Add(Me.chkTranOptions)
        Me.gbTransType.Controls.Add(Me.rbExplicit)
        Me.gbTransType.Controls.Add(Me.rbImplicit)
        Me.gbTransType.Location = New System.Drawing.Point(437, 270)
        Me.gbTransType.Name = "gbTransType"
        Me.gbTransType.Size = New System.Drawing.Size(182, 58)
        Me.gbTransType.TabIndex = 4
        Me.gbTransType.TabStop = False
        Me.gbTransType.Text = "ADO.NET 2.0 System.Transactions"
        '
        'chkTranOptions
        '
        Me.chkTranOptions.AutoSize = True
        Me.chkTranOptions.Location = New System.Drawing.Point(6, 35)
        Me.chkTranOptions.Name = "chkTranOptions"
        Me.chkTranOptions.Size = New System.Drawing.Size(96, 17)
        Me.chkTranOptions.TabIndex = 6
        Me.chkTranOptions.Text = "Custom Options"
        Me.ttTransactions.SetToolTip(Me.chkTranOptions, "Change timeout to 15 seconds, require a new transaction, and change from serializ" & _
                "able to read committed")
        '
        'rbExplicit
        '
        Me.rbExplicit.AutoSize = True
        Me.rbExplicit.Location = New System.Drawing.Point(118, 13)
        Me.rbExplicit.Name = "rbExplicit"
        Me.rbExplicit.Size = New System.Drawing.Size(54, 17)
        Me.rbExplicit.TabIndex = 1
        Me.rbExplicit.TabStop = False
        Me.rbExplicit.Text = "Explicit"
        Me.ttTransactions.SetToolTip(Me.rbExplicit, "Create and promote a CommittableTransaction")
        '
        'rbImplicit
        '
        Me.rbImplicit.AutoSize = True
        Me.rbImplicit.Checked = True
        Me.rbImplicit.Location = New System.Drawing.Point(7, 13)
        Me.rbImplicit.Name = "rbImplicit"
        Me.rbImplicit.Size = New System.Drawing.Size(96, 17)
        Me.rbImplicit.TabIndex = 0
        Me.rbImplicit.Text = "Implicit (Default)"
        Me.ttTransactions.SetToolTip(Me.rbImplicit, "Autoenlist in local TransactionScope")
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.chkViolateConstraint)
        Me.GroupBox1.Controls.Add(Me.chkUpdatesInGrid)
        Me.GroupBox1.Controls.Add(Me.btnAdapterReset)
        Me.GroupBox1.Controls.Add(Me.btnAdapterUpdate)
        Me.GroupBox1.Location = New System.Drawing.Point(437, 331)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(182, 80)
        Me.GroupBox1.TabIndex = 6
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "ADO.NET 1.x SqlDataAdapters"
        '
        'chkViolateConstraint
        '
        Me.chkViolateConstraint.AutoSize = True
        Me.chkViolateConstraint.Location = New System.Drawing.Point(6, 63)
        Me.chkViolateConstraint.Name = "chkViolateConstraint"
        Me.chkViolateConstraint.Size = New System.Drawing.Size(155, 17)
        Me.chkViolateConstraint.TabIndex = 3
        Me.chkViolateConstraint.Text = "Violate Constraint (Rollback)"
        Me.ttTransactions.SetToolTip(Me.chkViolateConstraint, "Mark to throw a foreign-key constraint and roll back the transaction")
        '
        'chkUpdatesInGrid
        '
        Me.chkUpdatesInGrid.AutoSize = True
        Me.chkUpdatesInGrid.Checked = True
        Me.chkUpdatesInGrid.CheckState = System.Windows.Forms.CheckState.Checked
        Me.chkUpdatesInGrid.Location = New System.Drawing.Point(6, 44)
        Me.chkUpdatesInGrid.Name = "chkUpdatesInGrid"
        Me.chkUpdatesInGrid.Size = New System.Drawing.Size(125, 17)
        Me.chkUpdatesInGrid.TabIndex = 2
        Me.chkUpdatesInGrid.Text = "Show Updates in Grid"
        Me.ttTransactions.SetToolTip(Me.chkUpdatesInGrid, "Clear to use update to generate concurrency errors")
        '
        'btnAdapterReset
        '
        Me.btnAdapterReset.Location = New System.Drawing.Point(97, 17)
        Me.btnAdapterReset.Name = "btnAdapterReset"
        Me.btnAdapterReset.Size = New System.Drawing.Size(75, 23)
        Me.btnAdapterReset.TabIndex = 1
        Me.btnAdapterReset.Text = "&Reset"
        Me.ttTransactions.SetToolTip(Me.btnAdapterReset, "Set ShipDate to Null and reset Quantity values")
        '
        'btnAdapterUpdate
        '
        Me.btnAdapterUpdate.Location = New System.Drawing.Point(7, 17)
        Me.btnAdapterUpdate.Name = "btnAdapterUpdate"
        Me.btnAdapterUpdate.Size = New System.Drawing.Size(75, 23)
        Me.btnAdapterUpdate.TabIndex = 0
        Me.btnAdapterUpdate.Text = "&Update"
        Me.ttTransactions.SetToolTip(Me.btnAdapterUpdate, "Set Null ShipDates to Today and add 1 to Quantity")
        '
        'btnSave
        '
        Me.btnSave.Location = New System.Drawing.Point(109, 32)
        Me.btnSave.Name = "btnSave"
        Me.btnSave.Size = New System.Drawing.Size(67, 23)
        Me.btnSave.TabIndex = 7
        Me.btnSave.Text = "&Save"
        Me.ttTransactions.SetToolTip(Me.btnSave, "Save manual edits to grid data (duplicates toolbar button)")
        '
        'lblTime
        '
        Me.lblTime.AutoSize = True
        Me.lblTime.Location = New System.Drawing.Point(437, 418)
        Me.lblTime.Name = "lblTime"
        Me.lblTime.Size = New System.Drawing.Size(138, 13)
        Me.lblTime.TabIndex = 7
        Me.lblTime.Text = "Transaction Execution Time:"
        '
        'txtTime
        '
        Me.txtTime.Location = New System.Drawing.Point(577, 415)
        Me.txtTime.Name = "txtTime"
        Me.txtTime.Size = New System.Drawing.Size(43, 20)
        Me.txtTime.TabIndex = 8
        Me.txtTime.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'OrdersBindingSource
        '
        Me.OrdersBindingSource.DataMember = "Orders"
        Me.OrdersBindingSource.DataSource = Me.NorthwindDataSet
        '
        'NorthwindDataSet
        '
        Me.NorthwindDataSet.DataSetName = "NorthwindDataSet"
        '
        'DataGridViewTextBoxColumn1
        '
        Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
        Me.DataGridViewTextBoxColumn1.DataPropertyName = "OrderID"
        Me.DataGridViewTextBoxColumn1.HeaderText = "OrderID"
        Me.DataGridViewTextBoxColumn1.Name = "tbc1OrderID"
        Me.DataGridViewTextBoxColumn1.ReadOnly = True
        Me.DataGridViewTextBoxColumn1.Width = 64
        '
        'DataGridViewTextBoxColumn2
        '
        Me.DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
        Me.DataGridViewTextBoxColumn2.DataPropertyName = "CustomerID"