Me.editname.Text = ""
        '
        'editpc
        '
        Me.editpc.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objDataSet1, "detail.pc"))
        Me.editpc.Location = New System.Drawing.Point(340, 175)
        Me.editpc.Name = "editpc"
        Me.editpc.TabIndex = 21
        Me.editpc.Text = ""
        '
        'editphone
        '
        Me.editphone.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objDataSet1, "detail.phone"))
        Me.editphone.Location = New System.Drawing.Point(340, 208)
        Me.editphone.Name = "editphone"
        Me.editphone.TabIndex = 22
        Me.editphone.Text = ""
        '
        'btnNavFirst
        '
        Me.btnNavFirst.Location = New System.Drawing.Point(195, 241)
        Me.btnNavFirst.Name = "btnNavFirst"
        Me.btnNavFirst.Size = New System.Drawing.Size(40, 23)
        Me.btnNavFirst.TabIndex = 23
        Me.btnNavFirst.Text = "<<"
        '
        'btnNavPrev
        '
        Me.btnNavPrev.Location = New System.Drawing.Point(235, 241)
        Me.btnNavPrev.Name = "btnNavPrev"
        Me.btnNavPrev.Size = New System.Drawing.Size(35, 23)
        Me.btnNavPrev.TabIndex = 24
        Me.btnNavPrev.Text = "<"
        '
        'lblNavLocation
        '
        Me.lblNavLocation.BackColor = System.Drawing.Color.White
        Me.lblNavLocation.Location = New System.Drawing.Point(270, 241)
        Me.lblNavLocation.Name = "lblNavLocation"
        Me.lblNavLocation.Size = New System.Drawing.Size(95, 23)
        Me.lblNavLocation.TabIndex = 25
        Me.lblNavLocation.Text = "無記錄"
        Me.lblNavLocation.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'btnNavNext
        '
        Me.btnNavNext.Location = New System.Drawing.Point(365, 241)
        Me.btnNavNext.Name = "btnNavNext"
        Me.btnNavNext.Size = New System.Drawing.Size(35, 23)
        Me.btnNavNext.TabIndex = 26
        Me.btnNavNext.Text = ">"
        '
        'btnLast
        '
        Me.btnLast.Location = New System.Drawing.Point(400, 241)
        Me.btnLast.Name = "btnLast"
        Me.btnLast.Size = New System.Drawing.Size(40, 23)
        Me.btnLast.TabIndex = 27
        Me.btnLast.Text = ">>"
        '
        'btnAdd
        '
        Me.btnAdd.Location = New System.Drawing.Point(195, 274)
        Me.btnAdd.Name = "btnAdd"
        Me.btnAdd.TabIndex = 28
        Me.btnAdd.Text = "添加(&A)"
        '
        'btnDelete
        '
        Me.btnDelete.Location = New System.Drawing.Point(280, 274)
        Me.btnDelete.Name = "btnDelete"
        Me.btnDelete.TabIndex = 29
        Me.btnDelete.Text = "刪除(&D)"
        '
        'btnCancel
        '
        Me.btnCancel.Location = New System.Drawing.Point(365, 274)
        Me.btnCancel.Name = "btnCancel"
        Me.btnCancel.TabIndex = 30
        Me.btnCancel.Text = "取消(&C)"
        '
        'DataForm2
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(442, 322)
        Me.Controls.Add(Me.btnLoad)
        Me.Controls.Add(Me.btnUpdate)
        Me.Controls.Add(Me.btnCancelAll)
        Me.Controls.Add(Me.lbladdress)
        Me.Controls.Add(Me.lblbirth)
        Me.Controls.Add(Me.lblbp)
        Me.Controls.Add(Me.lbldemo)
        Me.Controls.Add(Me.lblemail)
        Me.Controls.Add(Me.editaddress)
        Me.Controls.Add(Me.editbirth)
        Me.Controls.Add(Me.editbp)
        Me.Controls.Add(Me.editdemo)
        Me.Controls.Add(Me.editemail)
        Me.Controls.Add(Me.lblid)
        Me.Controls.Add(Me.lblmobile)
        Me.Controls.Add(Me.lblname)
        Me.Controls.Add(Me.lblpc)
        Me.Controls.Add(Me.lblphone)
        Me.Controls.Add(Me.editid)
        Me.Controls.Add(Me.editmobile)
        Me.Controls.Add(Me.editname)
        Me.Controls.Add(Me.editpc)
        Me.Controls.Add(Me.editphone)
        Me.Controls.Add(Me.btnNavFirst)
        Me.Controls.Add(Me.btnNavPrev)
        Me.Controls.Add(Me.lblNavLocation)
        Me.Controls.Add(Me.btnNavNext)
        Me.Controls.Add(Me.btnLast)
        Me.Controls.Add(Me.btnAdd)
        Me.Controls.Add(Me.btnDelete)
        Me.Controls.Add(Me.btnCancel)
        Me.Name = "DataForm2"
        Me.Text = "DataForm2"
        CType(Me.objDataSet1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Me.BindingContext(objDataSet1, "detail").CancelCurrentEdit()
        Me.objDataSet1_PositionChanged()

    End Sub
    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        If (Me.BindingContext(objDataSet1, "detail").Count > 0) Then
            Me.BindingContext(objDataSet1, "detail").RemoveAt(Me.BindingContext(objDataSet1, "detail").Position)
            Me.objDataSet1_PositionChanged()
        End If

    End Sub
    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Try
            '清除當(dāng)前編輯內(nèi)容
            Me.BindingContext(objDataSet1, "detail").EndCurrentEdit()
            Me.BindingContext(objDataSet1, "detail").AddNew()
        Catch eEndEdit As System.Exception
            System.Windows.Forms.MessageBox.Show(eEndEdit.Message)
        End Try
        Me.objDataSet1_PositionChanged()

    End Sub
    Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
        Try
            '嘗試更新數(shù)據(jù)源。
            Me.UpdateDataSet()
        Catch eUpdate As System.Exception
            '在此處添加錯(cuò)誤處理代碼。
            '顯示錯(cuò)誤信息(如果有)。
            System.Windows.Forms.MessageBox.Show(eUpdate.Message)
        End Try
        Me.objDataSet1_PositionChanged()

    End Sub
    Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
        Try
            '嘗試加載數(shù)據(jù)集。
            Me.LoadDataSet()
        Catch eLoad As System.Exception
            '在此處添加錯(cuò)誤處理代碼。
            '顯示錯(cuò)誤信息(如果有)。
            System.Windows.Forms.MessageBox.Show(eLoad.Message)
        End Try
        Me.objDataSet1_PositionChanged()

    End Sub
    Private Sub btnNavFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNavFirst.Click
        Me.BindingContext(objDataSet1, "detail").Position = 0
        Me.objDataSet1_PositionChanged()

    End Sub
    Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click
        Me.BindingContext(objDataSet1, "detail").Position = (Me.objDataSet1.Tables("detail").Rows.Count - 1)
        Me.objDataSet1_PositionChanged()

    End Sub
    Private Sub btnNavPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNavPrev.Click
        Me.BindingContext(objDataSet1, "detail").Position = (Me.BindingContext(objDataSet1, "detail").Position - 1)
        Me.objDataSet1_PositionChanged()

    End Sub
    Private Sub btnNavNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNavNext.Click
        Me.BindingContext(objDataSet1, "detail").Position = (Me.BindingContext(objDataSet1, "detail").Position + 1)
        Me.objDataSet1_PositionChanged()

    End Sub
    Private Sub objDataSet1_PositionChanged()
        Me.lblNavLocation.Text = (((Me.BindingContext(objDataSet1, "detail").Position + 1).ToString + " 的 ") _
                    + Me.BindingContext(objDataSet1, "detail").Count.ToString)

    End Sub
    Private Sub btnCancelAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelAll.Click
        Me.objDataSet1.RejectChanges()

    End Sub
    Public Sub UpdateDataSet()
        '創(chuàng)建一個(gè)新數(shù)據(jù)集來保存對(duì)主數(shù)據(jù)集所做的更改。
        Dim objDataSetChanges As WindowsApplication1.DataSet1 = New WindowsApplication1.DataSet1
        Dim objDataSetUpdated As System.Data.DataSet = New WindowsApplication1.DataSet1
        '停止當(dāng)前的任何編輯。
        Me.BindingContext(objDataSet1, "detail").EndCurrentEdit()
        '獲取對(duì)主數(shù)據(jù)集所做的更改。
        objDataSetChanges = CType(objDataSet1.GetChanges, WindowsApplication1.DataSet1)
        '檢查是否做了任何更改。
        If (Not (objDataSetChanges) Is Nothing) Then
            Try
                '需要做一些更改，所以嘗試通過調(diào)用 update 方法
                '和傳遞數(shù)據(jù)集以及任何參數(shù)來更新數(shù)據(jù)源。
                objDataSetUpdated = Me.objDataSet1.Clone
            Catch eUpdate As System.Exception
                '在此處添加錯(cuò)誤處理代碼。
                Throw eUpdate
            End Try
            '添加代碼以檢查返回的數(shù)據(jù)集中是否有任何可能已被
            '推入到行對(duì)象錯(cuò)誤中的錯(cuò)誤。
            Try
                objDataSet1.Merge(objDataSetUpdated)
            Catch eUpdateMerge As System.Exception
                '在此處添加異常處理代碼
                Throw eUpdateMerge
            End Try
            '提交剛剛合并的更改
            '這將會(huì)改動(dòng)任何標(biāo)記為已更新、已插入或已更改的行，將其標(biāo)記為原始值
            objDataSet1.AcceptChanges()
        End If

    End Sub
    Public Sub LoadDataSet()
        '創(chuàng)建一個(gè)新數(shù)據(jù)集以保存從 FillDataSet 調(diào)用返回的記錄。
        '使用了一個(gè)臨時(shí)數(shù)據(jù)集，這是因?yàn)樘畛洮F(xiàn)有的數(shù)據(jù)集
        '需要重新綁定數(shù)據(jù)綁定。
        Dim objDataSetTemp As WindowsApplication1.DataSet1
        objDataSetTemp = New WindowsApplication1.DataSet1
        Try
            '嘗試填充臨時(shí)數(shù)據(jù)集。
            objDataSetTemp = CType(Me.objDataSet1.Clone, WindowsApplication1.DataSet1)
        Catch eFillDataSet As System.Exception
            '在此處添加錯(cuò)誤處理代碼。
            Throw eFillDataSet
        End Try
        Try
            '清空數(shù)據(jù)集中的舊記錄。
            objDataSet1.Clear()
            '將記錄合并到主數(shù)據(jù)集中。
            objDataSet1.Merge(objDataSetTemp)
        Catch eLoadMerge As System.Exception
            '在此處添加錯(cuò)誤處理代碼。
            Throw eLoadMerge
        End Try

    End Sub
End Class