Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@類型名稱", System.Data.SqlDbType.VarChar, 100, "類型名稱"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@可借天數", System.Data.SqlDbType.Int, 4, "可借天數"))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT 類型編號, 類型名稱, 可借天數 FROM 圖書類型"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "UPDATE 圖書類型 SET 類型編號 = @類型編號, 類型名稱 = @類型名稱, 可借天數 = @可借天數 WHERE (類型編號 = @Original_" & _
        "類型編號) AND (可借天數 = @Original_可借天數 OR @Original_可借天數 IS NULL AND 可借天數 IS NULL) AND" & _
        " (類型名稱 = @Original_類型名稱 OR @Original_類型名稱 IS NULL AND 類型名稱 IS NULL); SELECT 類型編號" & _
        ", 類型名稱, 可借天數 FROM 圖書類型 WHERE (類型編號 = @類型編號)"
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@類型編號", System.Data.SqlDbType.VarChar, 50, "類型編號"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@類型名稱", System.Data.SqlDbType.VarChar, 100, "類型名稱"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@可借天數", System.Data.SqlDbType.Int, 4, "可借天數"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_類型編號", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "類型編號", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_可借天數", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "可借天數", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_類型名稱", System.Data.SqlDbType.VarChar, 100, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "類型名稱", System.Data.DataRowVersion.Original, Nothing))
        '
        'frmBookType
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(568, 245)
        Me.Controls.Add(Me.GroupBox1)
        Me.Name = "frmBookType"
        Me.Controls.SetChildIndex(Me.GroupBox1, 0)
        Me.GroupBox1.ResumeLayout(False)
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub#End Region    Public Overrides Sub Prepare()
        Me.Text = "圖書類別設置"
        Me.Label1.Text = "  類型編號"
        Me.Label2.Text = "  類型名稱"
        Me.Label3.Visible = False
        Me.txbThree.Visible = False
    End Sub    Public Overrides Sub LoadData()
        Dim strFilter As String
        If txbOne.Text.Trim.Length = 0 Then
            If txbTwo.Text.Trim.Length <> 0 Then
                strFilter = "where 類型名稱 like '"
                strFilter += txbTwo.Text.Trim + "%'"   

            End If
        Else
            strFilter = "where 類型編號 like '"
            strFilter += txbOne.Text.Trim + "%'"
            If txbTwo.Text.Trim.Length <> 0 Then
                strFilter += " and 類型名稱 like '"
                strFilter += txbTwo.Text.Trim + "%'"
            End If
        End If
        '清空DataSet11
        DataSet11.Clear()
        SqlConnection1.ConnectionString = DataBase.sConn
        Dim strSQL As String
        SqlDataAdapter1.SelectCommand.CommandText _
        = "select * from 圖書類型 " + strFilter
        '根據查詢條件重新填充DataSet11
        SqlDataAdapter1.Fill(DataSet11)
        dtData = DataSet11.Tables("圖書類型")
        bmData = Me.BindingContext(DataSet11, "圖書類型")
        If bmData.Count <> 0 Then
            bmData.Position = 0
        End If
    End Sub
    Public Overrides Sub SetDataGrid()
        LoadData()
        '定義一個DataGrid表樣式
        Dim ts As New DataGridTableStyle
        Dim aColumnTextColumn As DataGridTextBoxColumn
        Dim numCols As Integer = dtData.Columns.Count
        Dim i As Integer
        For i = 0 To numCols - 1
            aColumnTextColumn = New DataGridTextBoxColumn
            aColumnTextColumn.MappingName = _
            dtData.Columns(i).ColumnName
            aColumnTextColumn.HeaderText = _
            dtData.Columns(i).ColumnName
            aColumnTextColumn.NullText = ""
            aColumnTextColumn.ReadOnly = True
            ts.GridColumnStyles.Add(aColumnTextColumn)
        Next
        ts.AlternatingBackColor = Color.LightGray
        ts.AllowSorting = False
        ts.MappingName = dtData.TableName
        dgdList.TableStyles.Clear()
        dgdList.TableStyles.Add(ts)
        Dim dv As DataView = dtData.DefaultView
        dv.AllowNew = False
        dv.AllowDelete = False
        'dv.AllowEdit = False
        '設置數據源
        dgdList.DataSource = dtData.DefaultView
        bmData = Me.BindingContext(DataSet11, "圖書類型")
        lblCount.Text = "記錄數:" + dtData.Rows.Count.ToString()
    End Sub
    Public Overrides Sub SetTextBoxState(ByVal bState As Boolean)
        Me.GroupBox1.Enabled = Not bState
    End Sub
    Public Overrides Sub Clear()        Me.txbCode.Text = ""
        Me.txbDays.Text = ""
        Me.txbName.Text = ""
    End Sub
    Public Overrides Sub SaveForAdd()
        Dim dr As DataRow = DataSet11.Tables("圖書類型").NewRow()
        Try
            dr("類型編號") = txbCode.Text.Trim
            dr("類型名稱") = txbName.Text.Trim
            MessageBox.Show(txbDays.Text.Trim)
            Dim iDays As Integer = CInt(txbDays.Text.Trim)
            dr("可借天數") = iDays.ToString
        Catch ex As Exception
            MessageBox.Show("數據格式不正確！")
            Exit Sub
        End Try
        Try
            DataSet11.Tables("圖書類型").Rows.Add(dr)
            If Me.DataSet11.HasChanges = True Then
                SqlDataAdapter1.Update(DataSet11)
            End If
        Catch ex As Exception
            MessageBox.Show("數據添加失敗!")
        End Try
        LoadData()
        dgdList.DataSource = dtData.DefaultView
    End Sub
    Public Overrides Sub DeleteData()
        Try
            '刪除當前行的數據
            DataSet11.Tables("圖書類型"). _
            Rows(bmData.Position).Delete()
            If Me.DataSet11.HasChanges = True Then
                '更新DataSet11
                SqlDataAdapter1.Update(DataSet11)
            End If
        Catch ex As Exception
            MessageBox.Show("數據刪除失敗!")
        End Try
    End Sub
    Public Overrides Sub SaveForUpdate()
        Try
            Dim row As Integer
            row = dgdList.CurrentCell.RowNumber
            dgdList.CurrentCell = _
            New DataGridCell((row + 1) Mod bmData.Count, 0)
            '判斷是否有更新的數據
            If Me.DataSet11.HasChanges = True Then
                SqlDataAdapter1.Update(DataSet11)
            End If
        Catch ex As Exception
            MessageBox.Show("數據修改失敗!")
        End Try
    End Sub
End Class