Me.edit書號.Location = New System.Drawing.Point(112, 56)
        Me.edit書號.Name = "edit書號"
        Me.edit書號.Size = New System.Drawing.Size(120, 21)
        Me.edit書號.TabIndex = 19
        Me.edit書號.Text = ""
        '
        'edit借閱日期
        '
        Me.edit借閱日期.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objLib借閱信息, "借閱信息.借閱日期"))
        Me.edit借閱日期.Location = New System.Drawing.Point(112, 88)
        Me.edit借閱日期.Name = "edit借閱日期"
        Me.edit借閱日期.Size = New System.Drawing.Size(120, 21)
        Me.edit借閱日期.TabIndex = 20
        Me.edit借閱日期.Text = ""
        '
        'lbl應歸還日期
        '
        Me.lbl應歸還日期.AutoSize = True
        Me.lbl應歸還日期.Location = New System.Drawing.Point(16, 120)
        Me.lbl應歸還日期.Name = "lbl應歸還日期"
        Me.lbl應歸還日期.Size = New System.Drawing.Size(66, 14)
        Me.lbl應歸還日期.TabIndex = 21
        Me.lbl應歸還日期.Text = "應歸還日期"
        '
        'lbl實際歸還日期
        '
        Me.lbl實際歸還日期.AutoSize = True
        Me.lbl實際歸還日期.Location = New System.Drawing.Point(16, 152)
        Me.lbl實際歸還日期.Name = "lbl實際歸還日期"
        Me.lbl實際歸還日期.Size = New System.Drawing.Size(79, 14)
        Me.lbl實際歸還日期.TabIndex = 22
        Me.lbl實際歸還日期.Text = "實際歸還日期"
        '
        'lbl續借
        '
        Me.lbl續借.AutoSize = True
        Me.lbl續借.Location = New System.Drawing.Point(16, 184)
        Me.lbl續借.Name = "lbl續借"
        Me.lbl續借.Size = New System.Drawing.Size(29, 14)
        Me.lbl續借.TabIndex = 23
        Me.lbl續借.Text = "續借"
        '
        'edit應歸還日期
        '
        Me.edit應歸還日期.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objLib借閱信息, "借閱信息.應歸還日期"))
        Me.edit應歸還日期.Location = New System.Drawing.Point(112, 120)
        Me.edit應歸還日期.Name = "edit應歸還日期"
        Me.edit應歸還日期.Size = New System.Drawing.Size(120, 21)
        Me.edit應歸還日期.TabIndex = 24
        Me.edit應歸還日期.Text = ""
        '
        'edit實際歸還日期
        '
        Me.edit實際歸還日期.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objLib借閱信息, "借閱信息.實際歸還日期"))
        Me.edit實際歸還日期.Location = New System.Drawing.Point(112, 152)
        Me.edit實際歸還日期.Name = "edit實際歸還日期"
        Me.edit實際歸還日期.Size = New System.Drawing.Size(120, 21)
        Me.edit實際歸還日期.TabIndex = 25
        Me.edit實際歸還日期.Text = ""
        '
        'edit續借
        '
        Me.edit續借.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objLib借閱信息, "借閱信息.續借"))
        Me.edit續借.Location = New System.Drawing.Point(112, 184)
        Me.edit續借.Name = "edit續借"
        Me.edit續借.Size = New System.Drawing.Size(120, 21)
        Me.edit續借.TabIndex = 26
        Me.edit續借.Text = ""
        '
        '借閱信息
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(376, 285)
        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.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
            '清除當前編輯內容
            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
            '嘗試更新數據源。
            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
            '嘗試加載數據集。
            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()
        '創建一個新數據集來保存對主數據集所做的更改。
        Dim objDataSetChanges As 圖書館管理.Lib借閱信息 = New 圖書館管理.Lib借閱信息()
        '停止當前的任何編輯。
        Me.BindingContext(objLib借閱信息, "借閱信息").EndCurrentEdit()
        '獲取對主數據集所做的更改。
        objDataSetChanges = CType(objLib借閱信息.GetChanges, 圖書館管理.Lib借閱信息)
        '檢查是否做了任何更改。
        If (Not (objDataSetChanges) Is Nothing) Then
            Try
                '需要做一些更改，所以嘗試通過調用 update 方法
                '和傳遞數據集以及任何參數來更新數據源。
                Me.UpdateDataSource(objDataSetChanges)
                objLib借閱信息.Merge(objDataSetChanges)
                objLib借閱信息.AcceptChanges()
            Catch eUpdate As System.Exception
                '在此處添加錯誤處理代碼。
                Throw eUpdate
            End Try
            '添加代碼以檢查返回的數據集中是否有任何可能已被
            '推入到行對象錯誤中的錯誤。
        End If

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

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

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