#End Region    Public Overrides Sub Prepare()
        Me.Text = "讀者檔案管理"
        Me.Label1.Text = "  條形碼"
        Me.Label2.Text = "    編號"
        Me.Label3.Text = "    姓名"
        Dim db As DataBase = New DataBase
        Dim dv As DataView = _
        db.RunSelectSQL("select 類型 from 讀者類型")
        For Each dr As DataRow In dv.Table.Rows
            Me.cbbType.Items.Add(dr(0).ToString.Trim)
        Next
        db.Dispose()
    End Sub    Public Overrides Sub LoadData()
        Dim strFilter As String
        If txbOne.Text.Trim.Length = 0 Then
            If txbTwo.Text.Trim.Length = 0 Then
                If txbThree.Text.Trim.Length = 0 Then
                    strFilter = ""
                Else
                    strFilter = "where 姓名 like '"
                    strFilter += txbThree.Text.Trim + "%'"
                End If
            Else
                strFilter = "where 編號 like '"
                strFilter += txbTwo.Text.Trim + "%'"
                If txbThree.Text.Trim.Length <> 0 Then
                    strFilter += " and 姓名 like '"
                    strFilter += txbThree.Text.Trim + "%'"
                End If
            End If
        Else
            strFilter = "where 條形碼 like '"
            strFilter += txbOne.Text.Trim + "%'"
            If txbTwo.Text.Trim.Length <> 0 Then
                strFilter += " and 編號 like '"
                strFilter += txbTwo.Text.Trim + "%'"
                If txbThree.Text.Trim.Length <> 0 Then
                    strFilter += " and 姓名 like '"
                    strFilter += txbThree.Text.Trim + "%'"
                End If
            Else
                If txbThree.Text.Trim.Length <> 0 Then
                    strFilter += " and 姓名 like '"
                    strFilter += txbThree.Text.Trim + "%'"
                End If
            End If
        End If
        '清空DataSet11
        DataSet11.Clear()
        SqlConnection1.ConnectionString = DataBase.sConn
        Dim strSQL As String
        SqlDataAdapter1.SelectCommand.CommandText _
        = "select * from 讀者信息 " + strFilter
        '根據(jù)查詢條件重新填充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()
        '定義一個(gè)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 13
            aColumnTextColumn = New DataGridTextBoxColumn
            aColumnTextColumn.MappingName = _
            dtData.Columns(i).ColumnName
            aColumnTextColumn.HeaderText = _
            dtData.Columns(i).ColumnName
            aColumnTextColumn.NullText = ""
            aColumnTextColumn.ReadOnly = True
            aColumnTextColumn.Width = 60
            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
        '設(shè)置數(shù)據(jù)源
        dgdList.DataSource = dtData.DefaultView
        bmData = Me.BindingContext(DataSet11, "讀者信息")
        lblCount.Text = "記錄數(shù):" + 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.txbContact.Text = ""
        Me.txbName.Text = ""
        Me.txbNumber.Text = ""
        Me.txbPaperID.Text = ""
        Me.txbRemark.Text = ""
        Me.txbTimes.Text = ""
        Me.txbWorker.Text = ""
        Me.cbbPaper.Text = ""
        Me.cbbSex.Text = ""
        Me.cbbType.Text = ""
        '把時(shí)間設(shè)置成當(dāng)前時(shí)間
        Me.tmBirth.Value = Date.Now
        Me.tmEnd.Value = Date.Now
        Me.tmRegister.Value = Date.Now
    End Sub
    Public Overrides Sub SaveForAdd()
        Dim dr As DataRow = DataSet11.Tables("讀者信息").NewRow()
        Try
            dr("條形碼") = txbCode.Text.Trim
            dr("編號") = txbContact.Text.Trim
            dr("姓名") = txbName.Text.Trim
            dr("性別") = cbbSex.Text.Trim
            dr("類型") = cbbType.Text.ToString
            dr("聯(lián)系方式") = txbContact.Text.Trim
            dr("有效證件") = cbbPaper.Text.Trim
            dr("證件號碼") = txbPaperID.Text.Trim
            dr("出生日期") = tmBirth.Text.Trim
            dr("登記日期") = tmRegister.Text.Trim
            dr("有限期至") = tmEnd.Text.Trim
            dr("圖書借閱次數(shù)") = txbTimes.Text.Trim
            dr("操作員") = txbWorker.Text.Trim
            dr("備注") = txbRemark.Text.Trim
            dr("是否掛失") = cbbGuaShi.Checked.ToString
        Catch ex As Exception
            MessageBox.Show("數(shù)據(jù)格式不正確！")
            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(ex.ToString) '"數(shù)據(jù)添加失敗!")
        End Try
        LoadData()
        dgdList.DataSource = dtData.DefaultView
    End Sub
    Public Overrides Sub DeleteData()
        Try
            '刪除當(dāng)前行的數(shù)據(jù)
            DataSet11.Tables("讀者信息"). _
            Rows(bmData.Position).Delete()
            If Me.DataSet11.HasChanges = True Then
                '更新DataSet11
                SqlDataAdapter1.Update(DataSet11)
            End If
        Catch ex As Exception
            MessageBox.Show("數(shù)據(jù)刪除失敗!")
        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)
            '判斷是否有更新的數(shù)據(jù)
            If Me.DataSet11.HasChanges = True Then
                SqlDataAdapter1.Update(DataSet11)
            End If
        Catch ex As Exception
            MessageBox.Show("數(shù)據(jù)修改失敗!")
        End Try
    End SubEnd Class