budgetlist.frm

金算盘软件代码

            End If
            strSql = Salary.Change_Text("[BudgetID]", mlngBudgetID, strSql)
            strSql = Salary.Change_Text("[strDec]", strTmpDec, strSql)
            strSql = Salary.Change_Text("[strQuantityDec]", strTmpQuantityDec, strSql)
            strSql = Salary.Change_Text("[CurrencyDec]", strTmpCurrencyDec, strSql)
            Set rec3 = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
            With msgBudget(1)
                intOldCols = .Cols
                .Cols = .Cols + rec1.rdoColumns.Count - 13
                Debug.Print intOldCols, rec1.rdoColumns.Count, .Cols
                For j = intOldCols To intOldCols + rec1.rdoColumns.Count - 14
                    .TextMatrix(0, j) = rec1.rdoColumns(j - intOldCols).Name
                Next
                If Not rec1.EOF Then
                    rec1.MoveLast
                    rec1.MoveFirst
                    For i = 0 To rec1.RowCount - 1
                        For j = intOldCols To intOldCols + rec1.rdoColumns.Count - 14
                            If rec1.rdoColumns(j - intOldCols).Value = 0 Then
                                .TextMatrix(i + 1, j) = ""
                            Else
                                .TextMatrix(i + 1, j) = Format(rec1.rdoColumns(j - intOldCols).Value, rec1!strFormat)
                            End If
                        Next
                        rec1.MoveNext
                    Next
                End If
                intOldCols = .Cols
                .Cols = .Cols + rec2.rdoColumns.Count - 12
                Debug.Print intOldCols, rec2.rdoColumns.Count, .Cols
                For j = intOldCols To intOldCols + rec2.rdoColumns.Count - 13
                    .TextMatrix(0, j) = rec2.rdoColumns(j - intOldCols).Name
                Next
                If Not rec2.EOF Then
                    rec2.MoveLast
                    rec2.MoveFirst
                    For i = 0 To rec2.RowCount - 1
                        For j = intOldCols To intOldCols + rec2.rdoColumns.Count - 13
                            .TextMatrix(i + 1, j) = IIf(IsNull(rec2.rdoColumns(j - intOldCols).Value), "", rec2.rdoColumns(j - intOldCols).Value)
                        Next
                        rec2.MoveNext
                    Next
                End If
                intOldCols = .Cols
                .Cols = .Cols + rec3.rdoColumns.Count - 12
                Debug.Print intOldCols, rec3.rdoColumns.Count, .Cols
                For j = intOldCols To intOldCols + rec3.rdoColumns.Count - 13
                    .TextMatrix(0, j) = rec3.rdoColumns(j - intOldCols).Name
                Next
                If Not rec3.EOF Then
                    rec3.MoveLast
                    rec3.MoveFirst
                    For i = 0 To rec3.RowCount - 1
                        For j = intOldCols To intOldCols + rec3.rdoColumns.Count - 13
                            .TextMatrix(i + 1, j) = IIf(IsNull(rec3.rdoColumns(j - intOldCols).Value), "", rec3.rdoColumns(j - intOldCols).Value)
                        Next
                        rec3.MoveNext
                    Next
                End If
            End With
        End If
    End If
    If dtaBudget.Resultset.RowCount > 0 Then dtaBudget.Resultset.MoveLast
    dtaBudget.Resultset.Close
    With msgBudget(1)
        .AddItem "", 1
        .RowHeight(0) = 0
        .RowHeight(1) = 0
        If .Rows >= 3 Then
            .Row = 2
        Else
            .Row = 1
        End If
        .ColSel = .Cols - 1
        UpdateMenu
    End With
End Sub

'清除计划预算
Private Sub ClearBudget()
    Dim intCount As Integer
    Dim strSql As String
    
    strSql = "DELETE  FROM BudgetBalance WHERE lngBudgetID=" & mlngBudgetID _
        & " AND intYear=" & cboBudget.Text
    gclsBase.BaseDB.Execute strSql
    With msgBudget(1)
        For intCount = .Rows - 1 To 2 Step -1
            .RemoveItem (intCount)
        Next
    End With
    UpdateMenu
End Sub

'删除计划预算
Private Sub DeleteBudget()
    Dim intCount As Integer
    Dim strSql As String
    Dim lngID(11) As Long
    
    With msgBudget(1)
        For intCount = 13 To 23
            lngID(intCount - 12) = .TextMatrix(.Row, intCount)
        Next
        If mintFlag = 1 Then
            lngID(0) = 0
        Else
            lngID(0) = .TextMatrix(.Row, intCount - 12)
        End If
        strSql = "DELETE  FROM BudgetBalance WHERE lngBudgetID=" & lstBudget.ID & " AND intYear=" _
            & cboBudget.Text & " AND lngAccountID=" & lngID(0) & " AND lngItemID=" & lngID(1) _
            & " AND lngCustomerID=" & lngID(2) & " AND lngDepartmentID=" & lngID(3) _
            & " AND lngEmployeeID=" & lngID(4) & " AND lngJobID=" & lngID(5) _
            & " AND lngClassID1=" & lngID(6) & " AND lngClassID2=" & lngID(7) _
            & " AND lngCurrencyID=" & lngID(8) _
            & " AND lngItemTypeID=" & lngID(9) & " AND lngCustomerTypeID=" & lngID(10) _
            & " AND lngAreaID=" & lngID(11)
        gclsBase.BaseDB.Execute strSql
    End With
End Sub

'更新编辑菜单
Private Sub UpdateMenu()
    With frmMain
        .mnuEditCopy.Enabled = False
        .mnuEditEdit.Enabled = False
        .mnuEditNew.Enabled = False
        .mnuEditDel.Enabled = False
        .mnuEditInActive.Enabled = False
        .mnuEditShowAll.Checked = False
        .mnuEditShowAll.Enabled = False
        .mnuEditUse.Enabled = False
        .mnuEditColumn.Enabled = False
        .mnuEditFilter.Enabled = False
        .mnuEditSearch.Enabled = False
        .mnuEditNotepad.Enabled = False
        .mnuEditShowList.Enabled = False
        .mnuEditUse.Enabled = False
        .mnuFilePrintSetup.Enabled = False
        .mnuFilePrint.Enabled = False
        .mnuToolRefresh.Enabled = False
        If lstBudget.ID > 0 And cboBudget.Text <> "" Then
            .mnuEditNew.Enabled = True
            .mnuEditNew.Caption = "新增(&N)"
            .mnuEditFilter.Enabled = True
            .mnuEditSearch.Enabled = True
            .mnuToolRefresh.Enabled = True
        Else
            .mnuEditNew.Enabled = False
            .mnuEditFilter.Enabled = False
            .mnuEditSearch.Enabled = False
            .mnuToolRefresh.Enabled = False
        End If
        If msgBudget(1).Rows >= 3 Then
            .mnuEditEdit.Enabled = True
            .mnuEditEdit.Caption = "修改(&M)"
            .mnuEditDel.Enabled = True
            .mnuEditDel.Caption = "删除(&D)"
            .mnuFilePrint.Enabled = True
        Else
            .mnuEditEdit.Enabled = False
            .mnuEditDel.Enabled = False
            .mnuFilePrint.Enabled = False
        End If
        .mnuFilePrintSetup.Enabled = True
        .SetToolBar
    End With
End Sub

'设置编辑弹出菜单
Private Sub SetEditMenu()
    Dim intCnt As Integer
    
    With frmMain
        For intCnt = .mnuListEditMenu.Count - 1 To 1 Step -1
            Unload .mnuListEditMenu(intCnt)
        Next
        
        Utility.CloneMenu .mnuEditEdit, .mnuListEditMenu(0)
        
        Load .mnuListEditMenu(1)
        Utility.CloneMenu .mnuEditNew, .mnuListEditMenu(1)
        
        Load .mnuListEditMenu(2)
        Utility.CloneMenu .mnuEditDel, .mnuListEditMenu(2)
        
        Load .mnuListEditMenu(3)
        Utility.CloneMenu .mnuEditBar2, .mnuListEditMenu(3)
        
        Load .mnuListEditMenu(4)
        Utility.CloneMenu .mnuEditFilter, .mnuListEditMenu(4)
        
        Load .mnuListEditMenu(5)
        Utility.CloneMenu .mnuEditBar2, .mnuListEditMenu(5)
        
        Load .mnuListEditMenu(6)
        .mnuListEditMenu(6).Caption = "清除预算(&C)"
        .mnuListEditMenu(6).Visible = True
        
        Load .mnuListEditMenu(7)
        Utility.CloneMenu .mnuEditBar2, .mnuListEditMenu(7)
        
        Load .mnuListEditMenu(8)
        .mnuListEditMenu(8).Caption = "复制历史预算(&H)"
        .mnuListEditMenu(8).Visible = True
        
        Load .mnuListEditMenu(9)
        Utility.CloneMenu .mnuEditBar2, .mnuListEditMenu(9)
        
        Load .mnuListEditMenu(10)
        Utility.CloneMenu .mnuEditSearch, .mnuListEditMenu(10)
        
        Load .mnuListEditMenu(11)
        Utility.CloneMenu .mnuEditBar2, .mnuListEditMenu(11)
        
        Load .mnuListEditMenu(12)
        Utility.CloneMenu .mnuToolRefresh, .mnuListEditMenu(12)
        
        Load .mnuListEditMenu(13)
        Utility.CloneMenu .mnuEditBar2, .mnuListEditMenu(13)
        
        Load .mnuListEditMenu(14)
        Utility.CloneMenu .mnuFilePrint, .mnuListEditMenu(14)
        If lstBudget.ID > 0 And cboBudget.Text <> "" Then
            .mnuListEditMenu(8).Enabled = True
        Else
            .mnuListEditMenu(8).Enabled = False
        End If
        If msgBudget(1).Rows >= 3 Then
            .mnuListEditMenu(6).Enabled = True
        Else
            .mnuListEditMenu(6).Enabled = False
        End If
    End With
End Sub

'设置查看弹出菜单
Private Sub SetActivityMenu()
    Dim intCount As Integer
    
    With frmMain
        For intCount = .mnuListActivityMenu.Count - 1 To 1 Step -1
            Unload .mnuListActivityMenu(intCount)
        Next
        .mnuListActivityMenu(0).Caption = "期间预算"
        .mnuListActivityMenu(0).Checked = False
        Load .mnuListActivityMenu(1)
        .mnuListActivityMenu(1).Caption = "季度预算"
        Load .mnuListActivityMenu(2)
        .mnuListActivityMenu(2).Caption = "年度预算"
        If msgBudget(1).Rows >= 3 Then
            .mnuListActivityMenu(0).Enabled = True
            .mnuListActivityMenu(1).Enabled = True
            .mnuListActivityMenu(2).Enabled = True
            .mnuListActivityMenu(mintShowStatus).Checked = True
        Else
            .mnuListActivityMenu(0).Enabled = False
            .mnuListActivityMenu(1).Enabled = False
            .mnuListActivityMenu(2).Enabled = False
        End If
    End With
End Sub

'设置报表弹出菜单
Private Sub SetReportMenu()
    Dim intCount As Integer
    
    With frmMain
        For intCount = .mnuListReportMenu.Count - 1 To 1 Step -1
            Unload .mnuListReportMenu(intCount)
        Next
        .mnuListReportMenu(0).Caption = "预算方案表"
        Load .mnuListReportMenu(1)
        .mnuListReportMenu(1).Caption = "预算报告表"
        Load .mnuListReportMenu(2)
        .mnuListReportMenu(2).Caption = "预算方案完成表"
        If lstBudget.ID > 0 And cboBudget.Text <> "" Then
            .mnuListReportMenu(0).Enabled = True
            .mnuListReportMenu(1).Enabled = True
            .mnuListReportMenu(2).Enabled = True
        Else
            .mnuListReportMenu(0).Enabled = False
            .mnuListReportMenu(1).Enabled = False
            .mnuListReportMenu(2).Enabled = False
        End If