frmkemu.vb

vb.net+SQL开发工具 是一个很好的管理系统的源码

        Me.txbName.TabIndex = 5
        Me.txbName.Text = ""
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(120, 25)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(56, 16)
        Me.Label6.TabIndex = 4
        Me.Label6.Text = "科目名称"
        '
        'txbHelpCode
        '
        Me.txbHelpCode.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "科目表.助记码"))
        Me.txbHelpCode.Location = New System.Drawing.Point(224, 40)
        Me.txbHelpCode.Name = "txbHelpCode"
        Me.txbHelpCode.Size = New System.Drawing.Size(88, 21)
        Me.txbHelpCode.TabIndex = 3
        Me.txbHelpCode.Text = ""
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(223, 24)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(56, 16)
        Me.Label5.TabIndex = 2
        Me.Label5.Text = "助记码"
        '
        'txbCode
        '
        Me.txbCode.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "科目表.科目代码"))
        Me.txbCode.Location = New System.Drawing.Point(16, 40)
        Me.txbCode.Name = "txbCode"
        Me.txbCode.Size = New System.Drawing.Size(88, 21)
        Me.txbCode.TabIndex = 1
        Me.txbCode.Text = ""
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(14, 25)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(56, 16)
        Me.Label4.TabIndex = 0
        Me.Label4.Text = "科目代码"
        '
        'frmKeMu
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(536, 301)
        Me.Controls.Add(Me.grbRight)
        Me.Name = "frmKeMu"
        Me.Controls.SetChildIndex(Me.grbRight, 0)
        Me.grbRight.ResumeLayout(False)
        Me.grbDirection.ResumeLayout(False)
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        Me.grbKind.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Public Overrides Sub Prepare()
        Me.Text = "会计科目设置"
    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
        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 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.txbCode.ReadOnly = bState
        Me.txbHelpCode.ReadOnly = bState
        Me.txbName.ReadOnly = bState
        Me.cbbDirection.Enabled = Not bState
        Me.cbbKind.Enabled = Not bState
    End Sub
    Public Overrides Sub Clear()
        Me.txbCode.Text = ""
        Me.txbHelpCode.Text = ""
        Me.txbName.Text = ""
    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
    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 SaveForAdd()
        Dim drData As DataRow = DataSet11.Tables("科目表").NewRow()
        Try
            drData("科目代码") = txbCode.Text.Trim
            drData("科目名称") = txbName.Text.Trim
            drData("助记码") = txbHelpCode.Text.Trim
            drData("科目类别") = cbbKind.Text.Trim
            drData("余额方向") = cbbDirection.Text.Trim
        Catch ex As Exception
            MessageBox.Show("数据格式不正确！")
            Exit Sub
        End Try
        Try
            DataSet11.Tables("科目表").Rows.Add(drData)
            If Me.DataSet11.HasChanges = True Then
                SqlDataAdapter1.Update(DataSet11)
            End If
        Catch ex As Exception
            MessageBox.Show("数据添加失败!")
        End Try
    End Sub
End Class