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

'設(shè)置編輯彈出菜單
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

'設(shè)置查看彈出菜單
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

'設(shè)置報表彈出菜單
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