frmmoney.vb

visual Basic 数据库开发实例导航

        Me.GroupBox1.Size = New System.Drawing.Size(608, 96)
        Me.GroupBox1.TabIndex = 4
        Me.GroupBox1.TabStop = False
        '
        'txbMoney
        '
        Me.txbMoney.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "图书罚款.应罚金额"))
        Me.txbMoney.Location = New System.Drawing.Point(192, 39)
        Me.txbMoney.Name = "txbMoney"
        Me.txbMoney.TabIndex = 2
        Me.txbMoney.Text = ""
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(136, 44)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(56, 16)
        Me.Label4.TabIndex = 1
        Me.Label4.Text = "实收金额"
        '
        'btnSubmit
        '
        Me.btnSubmit.Location = New System.Drawing.Point(32, 40)
        Me.btnSubmit.Name = "btnSubmit"
        Me.btnSubmit.Size = New System.Drawing.Size(88, 23)
        Me.btnSubmit.TabIndex = 0
        Me.btnSubmit.Text = "收回罚款金额"
        '
        'frmMoney
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(608, 269)
        Me.Controls.Add(Me.GroupBox1)
        Me.Name = "frmMoney"
        Me.Controls.SetChildIndex(Me.GroupBox1, 0)
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Public Overrides Sub Prepare()
        Me.Text = "图书罚款"
        Me.Label1.Text = "读者编号"
        Me.Label2.Text = "读者条码"
        Me.Label3.Text = "图书编号"
        Me.ToolBar1.Visible = False
        Me.dgdList.Dock = DockStyle.Fill
    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
        If strFilter.Length = 0 Then
            strFilter = " where 是否交款=0 "
        Else
            strFilter = " and 是否交款=0 "
        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

    Private Sub btnSubmit_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnSubmit.Click
        Dim db As DataBase = New DataBase
        '更新图书罚款表
        Dim strSQL As String = ""
        strSQL = "update 图书罚款 set 是否交款=1 where 罚款编号="
        strSQL += dtData.Rows(bmData.Position)("罚款编号").ToString.Trim
        db.RunDelOrInsSQL(strSQL)
        db.Dispose()
        LoadData()
        dgdList.DataSource = dtData.DefaultView
    End Sub
End Class