frmmingxi.vb

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

        Me.Label1.Location = New System.Drawing.Point(88, 16)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(56, 15)
        Me.Label1.TabIndex = 2
        Me.Label1.Text = "科目代码"
        '
        'txbOne
        '
        Me.txbOne.Location = New System.Drawing.Point(144, 11)
        Me.txbOne.Name = "txbOne"
        Me.txbOne.Size = New System.Drawing.Size(56, 21)
        Me.txbOne.TabIndex = 1
        Me.txbOne.Text = ""
        '
        'btnSearch
        '
        Me.btnSearch.Image = CType(resources.GetObject("btnSearch.Image"), System.Drawing.Image)
        Me.btnSearch.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnSearch.Location = New System.Drawing.Point(224, 11)
        Me.btnSearch.Name = "btnSearch"
        Me.btnSearch.Size = New System.Drawing.Size(64, 22)
        Me.btnSearch.TabIndex = 0
        Me.btnSearch.Text = "   搜索"
        '
        'lblCount
        '
        Me.lblCount.Location = New System.Drawing.Point(8, 16)
        Me.lblCount.Name = "lblCount"
        Me.lblCount.Size = New System.Drawing.Size(80, 15)
        Me.lblCount.TabIndex = 4
        '
        'SqlDataAdapter1
        '
        Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
        Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "本期明细账簿", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("凭证编号", "凭证编号"), New System.Data.Common.DataColumnMapping("会计期间", "会计期间"), New System.Data.Common.DataColumnMapping("摘要", "摘要"), New System.Data.Common.DataColumnMapping("借方", "借方"), New System.Data.Common.DataColumnMapping("贷方", "贷方"), New System.Data.Common.DataColumnMapping("余额", "余额"), New System.Data.Common.DataColumnMapping("余额方向", "余额方向")})})
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "INSERT INTO 本期明细账簿(凭证编号, 会计期间, 摘要, 借方, 贷方, 余额, 余额方向) VALUES (@凭证编号, @会计期间, @摘要, @" & _
        "借方, @贷方, @余额, @余额方向); SELECT 凭证编号, 会计期间, 摘要, 借方, 贷方, 余额, 余额方向 FROM 本期明细账簿"
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@凭证编号", System.Data.SqlDbType.VarChar, 10, "凭证编号"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@会计期间", System.Data.SqlDbType.Int, 4, "会计期间"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@摘要", System.Data.SqlDbType.VarChar, 40, "摘要"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@借方", System.Data.SqlDbType.Money, 8, "借方"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@贷方", System.Data.SqlDbType.Money, 8, "贷方"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@余额", System.Data.SqlDbType.Money, 8, "余额"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@余额方向", System.Data.SqlDbType.VarChar, 4, "余额方向"))
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "workstation id=CS;packet size=4096;integrated security=SSPI;data source=CS;persis" & _
        "t security info=False;initial catalog=caiwubook"
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT 凭证编号, 会计期间, 摘要, 借方, 贷方, 余额, 余额方向 FROM 本期明细账簿"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'DataSet11
        '
        Me.DataSet11.DataSetName = "DataSet1"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'frmMingXi
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(512, 273)
        Me.Controls.Add(Me.grbSearch)
        Me.Controls.Add(Me.dgdList)
        Me.Controls.Add(Me.ToolBar1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "frmMingXi"
        Me.Text = "明细账查询"
        CType(Me.dgdList, System.ComponentModel.ISupportInitialize).EndInit()
        Me.grbSearch.ResumeLayout(False)
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        Select Case e.Button.Text
            Case "首记录"
                '返回首记录
                bmData.Position = 0
            Case "上记录"
                If bmData.Position <> 0 Then
                    bmData.Position -= 1
                End If
            Case "下记录"
                If bmData.Position <> bmData.Count Then
                    bmData.Position += 1
                End If
            Case "尾记录"
                '返回尾记录
                bmData.Position = bmData.Count
            Case "退出"
                '关闭本窗体
                Me.Close()
        End Select
        Try
            Me.dgdList.CurrentRowIndex = bmData.Position
        Catch ex As Exception
        End Try
    End Sub
    Private Sub dgdList_CurrentCellChanged(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles dgdList.CurrentCellChanged
        '判断bmData是否为Nothing
        If bmData Is Nothing Then
            Exit Sub
        End If
        If bmData.Position <> dgdList.CurrentCell.RowNumber Then
            bmData.Position = dgdList.CurrentCell.RowNumber
        End If
    End Sub

    Private Sub frmMingXi_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SetDataGrid()
    End Sub

    Private 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.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, "本期明细账簿")

    End Sub


    Private Sub LoadData()
        Dim strFilter As String
        Dim strCode As String = "101"
        If Me.txbOne.Text.Trim.Length = 0 Then
            strFilter = "where 科目代码=" + strCode
        Else
            strCode = Me.txbOne.Text.Trim
            strFilter = "where 科目代码=" + strCode
        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, "本期明细账簿")
        lblCount.Text = "记录数:" + dtData.Rows.Count.ToString()
        If dtData.Rows.Count = 0 Then
            Me.lblCode.Text = ""
            Me.lblName.Text = ""
            Return
        End If
        Me.lblCode.Text = strCode
        Dim db As DataBase = New DataBase
        Dim strSQL As String
        strSQL = "select 科目名称 from 科目表 where 科目代码=" + strCode
        Dim dv As DataView = db.RunSelectSQL(strSQL)
        Me.lblName.Text = dv(0)(0).ToString().Trim()
    End Sub

    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        LoadData()
        dgdList.DataSource = dtData.DefaultView
    End Sub
End Class