frmshuru.vb

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

        Me.dgdDetail.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dgdDetail.Location = New System.Drawing.Point(3, 88)
        Me.dgdDetail.Name = "dgdDetail"
        Me.dgdDetail.Size = New System.Drawing.Size(410, 40)
        Me.dgdDetail.TabIndex = 16
        '
        'btnDel
        '
        Me.btnDel.Location = New System.Drawing.Point(360, 60)
        Me.btnDel.Name = "btnDel"
        Me.btnDel.Size = New System.Drawing.Size(41, 23)
        Me.btnDel.TabIndex = 62
        Me.btnDel.Text = "删除"
        '
        'btnSave
        '
        Me.btnSave.Location = New System.Drawing.Point(304, 60)
        Me.btnSave.Name = "btnSave"
        Me.btnSave.Size = New System.Drawing.Size(41, 23)
        Me.btnSave.TabIndex = 61
        Me.btnSave.Text = "修改"
        '
        'btnAdd
        '
        Me.btnAdd.Location = New System.Drawing.Point(248, 60)
        Me.btnAdd.Name = "btnAdd"
        Me.btnAdd.Size = New System.Drawing.Size(41, 23)
        Me.btnAdd.TabIndex = 60
        Me.btnAdd.Text = "添加"
        '
        'grbAbove
        '
        Me.grbAbove.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.grbAbove.Controls.Add(Me.cbbZiHao)
        Me.grbAbove.Controls.Add(Me.txbLenderTotal)
        Me.grbAbove.Controls.Add(Me.Label11)
        Me.grbAbove.Controls.Add(Me.txbDebitTotal)
        Me.grbAbove.Controls.Add(Me.Label10)
        Me.grbAbove.Controls.Add(Me.txbState)
        Me.grbAbove.Controls.Add(Me.Label9)
        Me.grbAbove.Controls.Add(Me.txbPeriod)
        Me.grbAbove.Controls.Add(Me.Label8)
        Me.grbAbove.Controls.Add(Me.txbPepole)
        Me.grbAbove.Controls.Add(Me.Label7)
        Me.grbAbove.Controls.Add(Me.txbDate)
        Me.grbAbove.Controls.Add(Me.Label6)
        Me.grbAbove.Controls.Add(Me.Label5)
        Me.grbAbove.Controls.Add(Me.txbCode)
        Me.grbAbove.Controls.Add(Me.Label4)
        Me.grbAbove.Location = New System.Drawing.Point(208, 80)
        Me.grbAbove.Name = "grbAbove"
        Me.grbAbove.Size = New System.Drawing.Size(416, 104)
        Me.grbAbove.TabIndex = 5
        Me.grbAbove.TabStop = False
        Me.grbAbove.Text = "凭证表"
        '
        'cbbZiHao
        '
        Me.cbbZiHao.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "凭证表.凭证字号"))
        Me.cbbZiHao.Items.AddRange(New Object() {"收", "付", "转"})
        Me.cbbZiHao.Location = New System.Drawing.Point(104, 32)
        Me.cbbZiHao.Name = "cbbZiHao"
        Me.cbbZiHao.Size = New System.Drawing.Size(72, 20)
        Me.cbbZiHao.TabIndex = 33
        '
        'txbLenderTotal
        '
        Me.txbLenderTotal.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "凭证表.贷方合计"))
        Me.txbLenderTotal.Location = New System.Drawing.Point(280, 75)
        Me.txbLenderTotal.Name = "txbLenderTotal"
        Me.txbLenderTotal.ReadOnly = True
        Me.txbLenderTotal.Size = New System.Drawing.Size(72, 21)
        Me.txbLenderTotal.TabIndex = 32
        Me.txbLenderTotal.Text = ""
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(280, 59)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(56, 16)
        Me.Label11.TabIndex = 31
        Me.Label11.Text = "贷方合计"
        '
        'txbDebitTotal
        '
        Me.txbDebitTotal.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "凭证表.借方合计"))
        Me.txbDebitTotal.Location = New System.Drawing.Point(192, 75)
        Me.txbDebitTotal.Name = "txbDebitTotal"
        Me.txbDebitTotal.ReadOnly = True
        Me.txbDebitTotal.Size = New System.Drawing.Size(72, 21)
        Me.txbDebitTotal.TabIndex = 30
        Me.txbDebitTotal.Text = ""
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(192, 59)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(56, 16)
        Me.Label10.TabIndex = 29
        Me.Label10.Text = "借方合计"
        '
        'txbState
        '
        Me.txbState.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "凭证表.过账状态"))
        Me.txbState.Location = New System.Drawing.Point(104, 75)
        Me.txbState.Name = "txbState"
        Me.txbState.ReadOnly = True
        Me.txbState.Size = New System.Drawing.Size(72, 21)
        Me.txbState.TabIndex = 28
        Me.txbState.Text = ""
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(104, 59)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(56, 16)
        Me.Label9.TabIndex = 27
        Me.Label9.Text = "过帐状态"
        '
        'txbPeriod
        '
        Me.txbPeriod.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "凭证表.会计期间"))
        Me.txbPeriod.Location = New System.Drawing.Point(16, 75)
        Me.txbPeriod.Name = "txbPeriod"
        Me.txbPeriod.ReadOnly = True
        Me.txbPeriod.Size = New System.Drawing.Size(72, 21)
        Me.txbPeriod.TabIndex = 26
        Me.txbPeriod.Text = ""
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(16, 59)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(56, 16)
        Me.Label8.TabIndex = 25
        Me.Label8.Text = "会计期间"
        '
        'txbPepole
        '
        Me.txbPepole.Location = New System.Drawing.Point(280, 32)
        Me.txbPepole.Name = "txbPepole"
        Me.txbPepole.Size = New System.Drawing.Size(72, 21)
        Me.txbPepole.TabIndex = 24
        Me.txbPepole.Text = ""
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(280, 15)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(56, 16)
        Me.Label7.TabIndex = 23
        Me.Label7.Text = "制单人"
        '
        'txbDate
        '
        Me.txbDate.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "凭证表.日期"))
        Me.txbDate.Location = New System.Drawing.Point(192, 32)
        Me.txbDate.Name = "txbDate"
        Me.txbDate.Size = New System.Drawing.Size(72, 21)
        Me.txbDate.TabIndex = 22
        Me.txbDate.Text = ""
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(192, 15)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(56, 16)
        Me.Label6.TabIndex = 21
        Me.Label6.Text = "日期"
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(104, 15)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(56, 16)
        Me.Label5.TabIndex = 20
        Me.Label5.Text = "凭证字号"
        '
        'txbCode
        '
        Me.txbCode.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "凭证表.凭证编号"))
        Me.txbCode.Location = New System.Drawing.Point(16, 32)
        Me.txbCode.Name = "txbCode"
        Me.txbCode.ReadOnly = True
        Me.txbCode.Size = New System.Drawing.Size(72, 21)
        Me.txbCode.TabIndex = 19
        Me.txbCode.Text = ""
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(16, 15)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(56, 16)
        Me.Label4.TabIndex = 18
        Me.Label4.Text = "凭证编号"
        '
        'frmShuRu
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(624, 325)
        Me.Controls.Add(Me.grbAbove)
        Me.Controls.Add(Me.grbBottom)
        Me.Name = "frmShuRu"
        Me.Controls.SetChildIndex(Me.grbBottom, 0)
        Me.Controls.SetChildIndex(Me.grbAbove, 0)
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        Me.grbBottom.ResumeLayout(False)
        CType(Me.dgdDetail, System.ComponentModel.ISupportInitialize).EndInit()
        Me.grbAbove.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
#Region "public function"
    Public Overrides Sub Prepare()
        Me.Text = "会计输入凭证"
        Me.Label1.Text = "凭证编号"
        Me.Label2.Text = "会计期间"
        Me.Label3.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 '" + 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 '" + txbOne.Text.Trim + "%'"
            If txbTwo.Text.Trim.Length <> 0 Then
                strFilter += " and 会计期间 like '" + 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, "凭证表")
    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 2

            aColumnTextColumn = New DataGridTextBoxColumn
            aColumnTextColumn.MappingName = _
            dtData.Columns(i).ColumnName
            aColumnTextColumn.HeaderText = _
            dtData.Columns(i).ColumnName
            aColumnTextColumn.NullText = ""
            aColumnTextColumn.ReadOnly = True
            aColumnTextColumn.Width = 55
            If i = 2 Then
                aColumnTextColumn.Format = "yyyy-M-d"
            End If
            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
        'dgdList.DataMember = "凭证表"
        bmData = Me.BindingContext(DataSet11, "凭证表")
        lblCount.Text = "记录数:" + dtData.Rows.Count.ToString()
        Me.dgdList.AllowNavigation = False
        SetDetailDataGrid(dtData.Rows.Count)
    End Sub
    Public Overrides Sub SetTextBoxState(ByVal bState As Boolean)
        Me.grbAbove.Enabled = Not bState
        Me.grbBottom.Enabled = Not bState
    End Sub
    Public Overrides Sub LoadDataForDetail()
        Dim strSQL As String = "SELECT 凭证编号, 编号, 摘要, a.科目代码, 科目名称,借方, 贷方 FROM 分录表 as a ,科目表 as b where a.科目代码=b.科目代码"
        If dtData.Rows.Count <> 0 Then
            strSQL += " and 凭证编号=" + dtData.Rows(bmData.Position)("凭证编号")
        End If