editing.vb

东软内部材料（六）ado .net相关

        Me.rbChanged.Name = "rbChanged"
        Me.rbChanged.Size = New System.Drawing.Size(72, 16)
        Me.rbChanged.TabIndex = 0
        Me.rbChanged.Text = "Modified"
        '
        'btnFirst
        '
        Me.btnFirst.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnFirst.Location = New System.Drawing.Point(8, 272)
        Me.btnFirst.Name = "btnFirst"
        Me.btnFirst.Size = New System.Drawing.Size(32, 23)
        Me.btnFirst.TabIndex = 3
        Me.btnFirst.TabStop = False
        Me.btnFirst.Text = "<<"
        '
        'btnAdd
        '
        Me.btnAdd.Location = New System.Drawing.Point(360, 36)
        Me.btnAdd.Name = "btnAdd"
        Me.btnAdd.TabIndex = 4
        Me.btnAdd.Text = "Add"
        '
        'btnNext
        '
        Me.btnNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnNext.Location = New System.Drawing.Point(264, 272)
        Me.btnNext.Name = "btnNext"
        Me.btnNext.Size = New System.Drawing.Size(32, 23)
        Me.btnNext.TabIndex = 9
        Me.btnNext.TabStop = False
        Me.btnNext.Text = ">"
        '
        'Panel1
        '
        Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.gbRowStatus, Me.txtCurrentLastName, Me.txtOriginalLastName, Me.txtCurrentFirstName, Me.txtOriginalFirstName, Me.txtCurrentID, Me.txtOriginalID, Me.Label2, Me.Label1})
        Me.Panel1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Panel1.Location = New System.Drawing.Point(8, 112)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(328, 144)
        Me.Panel1.TabIndex = 0
        Me.Panel1.TabStop = False
        Me.Panel1.Text = "Row Versions"
        '
        'gbRowStatus
        '
        Me.gbRowStatus.Controls.AddRange(New System.Windows.Forms.Control() {Me.rbChanged, Me.rbUnchanged, Me.rbNew})
        Me.gbRowStatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.gbRowStatus.Location = New System.Drawing.Point(16, 80)
        Me.gbRowStatus.Name = "gbRowStatus"
        Me.gbRowStatus.Size = New System.Drawing.Size(280, 48)
        Me.gbRowStatus.TabIndex = 6
        Me.gbRowStatus.TabStop = False
        Me.gbRowStatus.Text = "RowStatus"
        '
        'txtCurrentFirstName
        '
        Me.txtCurrentFirstName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.dsEmployeeList1, "EmployeeList.FirstName"))
        Me.txtCurrentFirstName.Location = New System.Drawing.Point(104, 48)
        Me.txtCurrentFirstName.Name = "txtCurrentFirstName"
        Me.txtCurrentFirstName.ReadOnly = True
        Me.txtCurrentFirstName.TabIndex = 3
        Me.txtCurrentFirstName.TabStop = False
        Me.txtCurrentFirstName.Text = "Current First"
        '
        'txtCurrentID
        '
        Me.txtCurrentID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.dsEmployeeList1, "EmployeeList.EmployeeID"))
        Me.txtCurrentID.Location = New System.Drawing.Point(64, 48)
        Me.txtCurrentID.Name = "txtCurrentID"
        Me.txtCurrentID.ReadOnly = True
        Me.txtCurrentID.Size = New System.Drawing.Size(32, 20)
        Me.txtCurrentID.TabIndex = 1
        Me.txtCurrentID.TabStop = False
        Me.txtCurrentID.Text = "C ID"
        '
        'txtOriginalID
        '
        Me.txtOriginalID.Location = New System.Drawing.Point(64, 24)
        Me.txtOriginalID.Name = "txtOriginalID"
        Me.txtOriginalID.ReadOnly = True
        Me.txtOriginalID.Size = New System.Drawing.Size(32, 20)
        Me.txtOriginalID.TabIndex = 1
        Me.txtOriginalID.TabStop = False
        Me.txtOriginalID.Text = "O ID"
        '
        'btnUpdate
        '
        Me.btnUpdate.Location = New System.Drawing.Point(360, 156)
        Me.btnUpdate.Name = "btnUpdate"
        Me.btnUpdate.TabIndex = 8
        Me.btnUpdate.Text = "Update"
        '
        'Label4
        '
        Me.Label4.AutoSize = True
        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label4.Location = New System.Drawing.Point(8, 52)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(65, 13)
        Me.Label4.TabIndex = 9
        Me.Label4.Text = "First Name:"
        '
        'btnPrevious
        '
        Me.btnPrevious.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnPrevious.Location = New System.Drawing.Point(48, 272)
        Me.btnPrevious.Name = "btnPrevious"
        Me.btnPrevious.Size = New System.Drawing.Size(32, 23)
        Me.btnPrevious.TabIndex = 8
        Me.btnPrevious.TabStop = False
        Me.btnPrevious.Text = "<"
        '
        'txtWorkingID
        '
        Me.txtWorkingID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.dsEmployeeList1, "EmployeeList.EmployeeID"))
        Me.txtWorkingID.Location = New System.Drawing.Point(88, 16)
        Me.txtWorkingID.Name = "txtWorkingID"
        Me.txtWorkingID.ReadOnly = True
        Me.txtWorkingID.Size = New System.Drawing.Size(32, 20)
        Me.txtWorkingID.TabIndex = 1
        Me.txtWorkingID.TabStop = False
        Me.txtWorkingID.Text = "W ID"
        '
        'btnEdit
        '
        Me.btnEdit.Location = New System.Drawing.Point(360, 96)
        Me.btnEdit.Name = "btnEdit"
        Me.btnEdit.TabIndex = 6
        Me.btnEdit.Text = "Edit"
        '
        'btnCmd
        '
        Me.btnCmd.Location = New System.Drawing.Point(360, 186)
        Me.btnCmd.Name = "btnCmd"
        Me.btnCmd.TabIndex = 9
        Me.btnCmd.Text = "Command"
        '
        'btnDefer
        '
        Me.btnDefer.Location = New System.Drawing.Point(360, 126)
        Me.btnDefer.Name = "btnDefer"
        Me.btnDefer.TabIndex = 7
        Me.btnDefer.Text = "Defer"
        '
        'btnSave
        '
        Me.btnSave.Location = New System.Drawing.Point(360, 6)
        Me.btnSave.Name = "btnSave"
        Me.btnSave.TabIndex = 3
        Me.btnSave.Text = "Save"
        '
        'txtWorkingFirstName
        '
        Me.txtWorkingFirstName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.dsEmployeeList1, "EmployeeList.FirstName"))
        Me.txtWorkingFirstName.Location = New System.Drawing.Point(88, 48)
        Me.txtWorkingFirstName.Name = "txtWorkingFirstName"
        Me.txtWorkingFirstName.TabIndex = 0
        Me.txtWorkingFirstName.Text = "Working First"
        '
        'btnReject
        '
        Me.btnReject.Location = New System.Drawing.Point(360, 276)
        Me.btnReject.Name = "btnReject"
        Me.btnReject.TabIndex = 11
        Me.btnReject.Text = "Reject"
        '
        'btnFill
        '
        Me.btnFill.Location = New System.Drawing.Point(360, 216)
        Me.btnFill.Name = "btnFill"
        Me.btnFill.TabIndex = 9
        Me.btnFill.Text = "Fill"
        '
        'frmEditing
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(442, 303)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnFill, Me.btnReject, Me.btnCmd, Me.btnDefer, Me.btnEdit, Me.btnAdd, Me.btnDelete, Me.btnAccept, Me.btnUpdate, Me.Label5, Me.Label4, Me.Label3, Me.btnSave, Me.txtPosition, Me.btnNext, Me.btnLast, Me.btnPrevious, Me.btnFirst, Me.txtWorkingFirstName, Me.txtWorkingID, Me.txtWorkingLastName, Me.Panel1})
        Me.Name = "frmEditing"
        Me.Text = "Editing"
        CType(Me.dsEmployeeList1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel1.ResumeLayout(False)
        Me.gbRowStatus.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

#Region "Navigation Buttons"

    Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click
        Me.BindingContext(Me.dsEmployeeList1, "EmployeeList").Position = 0
        UpdateDisplay()
    End Sub

    Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious.Click
        With Me.BindingContext(Me.dsEmployeeList1, "EmployeeList")
            If .Position = 0 Then
                Beep()
            Else
                .Position -= 1
                UpdateDisplay()
            End If
        End With
    End Sub

    Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
        With Me.BindingContext(Me.dsEmployeeList1, "EmployeeList")
            If .Position = .Count - 1 Then
                Beep()
            Else
                .Position += 1
                UpdateDisplay()
            End If
        End With
    End Sub

    Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click
        With Me.BindingContext(Me.dsEmployeeList1, "EmployeeList")
            .Position = .Count - 1
            UpdateDisplay()
        End With
    End Sub

#End Region

#Region "Utility Functions"

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim bm As BindingManagerBase
        Dim drv As DataRowView

        bm = Me.BindingContext(Me.dsEmployeeList1, "EmployeeList")
        drv = CType(bm.Current, DataRowView)
        drv.EndEdit()
        UpdateDisplay()
    End Sub

    Sub UpdateDisplay()
        'display original values
        With Me.dsEmployeeList1.EmployeeList.Rows(Me.BindingContext(Me.dsEmployeeList1, "EmployeeList").Position)
            Me.txtCurrentID.Text = .Item("EmployeeID")
            Me.txtCurrentFirstName.Text = .Item("FirstName")
            Me.txtCurrentLastName.Text = .Item("LastName")

            If .HasVersion(DataRowVersion.Original) Then
                Me.txtOriginalID.Text = .Item("EmployeeID", DataRowVersion.Original)
                Me.txtOriginalFirstName.Text = .Item("FirstName", DataRowVersion.Original)
                Me.txtOriginalLastName.Text = .Item("LastName", DataRowVersion.Original)
            Else
                Me.txtOriginalID.Text = ""
                Me.txtOriginalFirstName.Text = ""
                Me.txtOriginalLastName.Text = ""
            End If

            'set radio button
            Select Case .RowState
                Case DataRowState.Added
                    Me.rbNew.Checked = True
                Case DataRowState.Deleted
                    Me.rbDeleted.Checked = True
                Case DataRowState.Modified
                    Me.rbChanged.Checked = True
                Case DataRowState.Unchanged
                    Me.rbUnchanged.Checked = True
            End Select
        End With

        'set position text
        Me.txtPosition.Text = "Employee " & _
            (Me.BindingContext(Me.dsEmployeeList1, "EmployeeList").Position + 1).ToString & _
            " of " & Me.BindingContext(Me.dsEmployeeList1, "EmployeeList").Count.ToString
    End Sub

    Function GetRow() As DataRow
        Dim bm As BindingManagerBase
        Dim drv As DataRowView
        Dim dr As DataRow

        bm = Me.BindingContext(Me.dsEmployeeList1, "EmployeeList")
        drv = CType(bm.Current, DataRowView)
        GetRow = drv.Row
    End Function

#End Region


    Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
        Me.daEmployeeList.Fill(Me.dsEmployeeList1.EmployeeList)
    End Sub

    Private Sub btnAccept_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAccept.Click
        Me.dsEmployeeList1.AcceptChanges()
        UpdateDisplay()
    End Sub

End Class