Me.edit出版社.TabIndex = 13
        Me.edit出版社.Text = ""
        '
        'edit地址
        '
        Me.edit地址.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objLib出版社信息, "出版社信息.地址"))
        Me.edit地址.Location = New System.Drawing.Point(128, 56)
        Me.edit地址.Name = "edit地址"
        Me.edit地址.TabIndex = 14
        Me.edit地址.Text = ""
        '
        'lbl網(wǎng)址
        '
        Me.lbl網(wǎng)址.Location = New System.Drawing.Point(16, 80)
        Me.lbl網(wǎng)址.Name = "lbl網(wǎng)址"
        Me.lbl網(wǎng)址.TabIndex = 15
        Me.lbl網(wǎng)址.Text = "網(wǎng)址"
        '
        'lblE_mail
        '
        Me.lblE_mail.Location = New System.Drawing.Point(16, 112)
        Me.lblE_mail.Name = "lblE_mail"
        Me.lblE_mail.TabIndex = 16
        Me.lblE_mail.Text = "E-mail"
        '
        'edit網(wǎng)址
        '
        Me.edit網(wǎng)址.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objLib出版社信息, "出版社信息.網(wǎng)址"))
        Me.edit網(wǎng)址.Location = New System.Drawing.Point(128, 80)
        Me.edit網(wǎng)址.Name = "edit網(wǎng)址"
        Me.edit網(wǎng)址.TabIndex = 17
        Me.edit網(wǎng)址.Text = ""
        '
        'editE_mail
        '
        Me.editE_mail.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objLib出版社信息, "出版社信息.E-mail"))
        Me.editE_mail.Location = New System.Drawing.Point(128, 112)
        Me.editE_mail.Name = "editE_mail"
        Me.editE_mail.TabIndex = 18
        Me.editE_mail.Text = ""
        '
        '出版社信息
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(368, 205)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox1, Me.btnUpdate, Me.btnCancelAll, Me.btnNavFirst, Me.btnNavPrev, Me.lblNavLocation, Me.btnNavNext, Me.btnLast, Me.btnAdd, Me.btnDelete, Me.btnCancel})
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "出版社信息"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
        Me.Text = "出版社信息"
        CType(Me.objLib出版社信息, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        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(objLib出版社信息, "出版社信息").CancelCurrentEdit()
        Me.objLib出版社信息_PositionChanged()

    End Sub
    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        If (Me.BindingContext(objLib出版社信息, "出版社信息").Count > 0) Then
            Me.BindingContext(objLib出版社信息, "出版社信息").RemoveAt(Me.BindingContext(objLib出版社信息, "出版社信息").Position)
            Me.objLib出版社信息_PositionChanged()
        End If

    End Sub
    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Try
            '清除當前編輯內(nèi)容
            Me.BindingContext(objLib出版社信息, "出版社信息").EndCurrentEdit()
            Me.BindingContext(objLib出版社信息, "出版社信息").AddNew()
        Catch eEndEdit As System.Exception
            System.Windows.Forms.MessageBox.Show(eEndEdit.Message)
        End Try
        Me.objLib出版社信息_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
            '在此處添加錯誤處理代碼。
            '顯示錯誤信息（如果有）。
            System.Windows.Forms.MessageBox.Show(eUpdate.Message)
        End Try
        Me.objLib出版社信息_PositionChanged()

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

    End Sub
    Private Sub btnNavFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNavFirst.Click
        Me.BindingContext(objLib出版社信息, "出版社信息").Position = 0
        Me.objLib出版社信息_PositionChanged()

    End Sub
    Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click
        Me.BindingContext(objLib出版社信息, "出版社信息").Position = (Me.objLib出版社信息.Tables("出版社信息").Rows.Count - 1)
        Me.objLib出版社信息_PositionChanged()

    End Sub
    Private Sub btnNavPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNavPrev.Click
        Me.BindingContext(objLib出版社信息, "出版社信息").Position = (Me.BindingContext(objLib出版社信息, "出版社信息").Position - 1)
        Me.objLib出版社信息_PositionChanged()

    End Sub
    Private Sub btnNavNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNavNext.Click
        Me.BindingContext(objLib出版社信息, "出版社信息").Position = (Me.BindingContext(objLib出版社信息, "出版社信息").Position + 1)
        Me.objLib出版社信息_PositionChanged()

    End Sub
    Private Sub objLib出版社信息_PositionChanged()
        Me.lblNavLocation.Text = (((Me.BindingContext(objLib出版社信息, "出版社信息").Position + 1).ToString + " 的 ") _
                    + Me.BindingContext(objLib出版社信息, "出版社信息").Count.ToString)

    End Sub
    Private Sub btnCancelAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelAll.Click
        Me.objLib出版社信息.RejectChanges()

    End Sub
    Public Sub UpdateDataSet()
        '創(chuàng)建一個新數(shù)據(jù)集來保存對主數(shù)據(jù)集所做的更改。
        Dim objDataSetChanges As 圖書館管理.Lib出版社信息 = New 圖書館管理.Lib出版社信息()
        '停止當前的任何編輯。
        Me.BindingContext(objLib出版社信息, "出版社信息").EndCurrentEdit()
        '獲取對主數(shù)據(jù)集所做的更改。
        objDataSetChanges = CType(objLib出版社信息.GetChanges, 圖書館管理.Lib出版社信息)
        '檢查是否做了任何更改。
        If (Not (objDataSetChanges) Is Nothing) Then
            Try
                '需要做一些更改，所以嘗試通過調(diào)用 update 方法
                '和傳遞數(shù)據(jù)集以及任何參數(shù)來更新數(shù)據(jù)源。
                Me.UpdateDataSource(objDataSetChanges)
                objLib出版社信息.Merge(objDataSetChanges)
                objLib出版社信息.AcceptChanges()
            Catch eUpdate As System.Exception
                '在此處添加錯誤處理代碼。
                Throw eUpdate
            End Try
            '添加代碼以檢查返回的數(shù)據(jù)集中是否有任何可能已被
            '推入到行對象錯誤中的錯誤。
        End If

    End Sub
    Public Sub LoadDataSet()
        '創(chuàng)建一個新數(shù)據(jù)集以保存從 FillDataSet 調(diào)用返回的記錄。
        '使用了一個臨時數(shù)據(jù)集，這是因為填充現(xiàn)有的數(shù)據(jù)集
        '需要重新綁定數(shù)據(jù)綁定。
        Dim objDataSetTemp As 圖書館管理.Lib出版社信息
        objDataSetTemp = New 圖書館管理.Lib出版社信息()
        Try
            '嘗試填充臨時數(shù)據(jù)集。
            Me.FillDataSet(objDataSetTemp)
        Catch eFillDataSet As System.Exception
            '在此處添加錯誤處理代碼。
            Throw eFillDataSet
        End Try
        Try
            '清空數(shù)據(jù)集中的舊記錄。
            objLib出版社信息.Clear()
            '將記錄合并到主數(shù)據(jù)集中。
            objLib出版社信息.Merge(objDataSetTemp)
        Catch eLoadMerge As System.Exception
            '在此處添加錯誤處理代碼。
            Throw eLoadMerge
        End Try

    End Sub
    Public Sub UpdateDataSource(ByVal ChangedRows As 圖書館管理.Lib出版社信息)
        Try
            '在有掛起的更改時，只需要更新數(shù)據(jù)源即可。
            If (Not (ChangedRows) Is Nothing) Then
                '打開連接。
                Me.OleDbConnection1.Open()
                '嘗試更新數(shù)據(jù)源。
                OleDbDataAdapter1.Update(ChangedRows)
            End If
        Catch updateException As System.Exception
            '在此處添加錯誤處理代碼。
            Throw updateException
        Finally
            '無論是否引發(fā)了異常都關(guān)閉連接。
            Me.OleDbConnection1.Close()
        End Try

    End Sub
    Public Sub FillDataSet(ByVal dataSet As 圖書館管理.Lib出版社信息)
        '在填充數(shù)據(jù)集前關(guān)閉約束檢查。
        '這允許適配器填充數(shù)據(jù)集而不用考慮
        '表之間的依賴項。
        dataSet.EnforceConstraints = False
        Try
            '打開連接。
            Me.OleDbConnection1.Open()
            '嘗試通過 OleDbDataAdapter1 填充數(shù)據(jù)集。
            Me.OleDbDataAdapter1.Fill(dataSet)
        Catch fillException As System.Exception
            '在此處添加錯誤處理代碼。
            Throw fillException
        Finally
            '重新打開約束檢查。
            dataSet.EnforceConstraints = True
            '無論是否引發(fā)了異常都關(guān)閉連接。
            Me.OleDbConnection1.Close()
        End Try

    End Sub

    Private Sub 出版社信息_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.btnLoad_Click(sender, e)
    End Sub
End Class