frmac_indexresult.frm

一个用VB写的财务软件源码

        pHead.High = PrintHeadRowHigh
        '数据
        pData.FontName = PrintDataFontName
        pData.FontSize = PrintDataFontSize
        pData.High = PrintDataRowHigh
    Else
        '标题
        pTitle.FontName = DefaultTitleFontName
        pTitle.FontSize = DefaultTitleFontSize
        pTitle.High = DefaultTitleRowHigh
        '表头
        pHead.FontName = DefaultHeadFontName
        pHead.FontSize = DefaultHeadFontSize
        pHead.High = DefaultHeadRowHigh
        '数据
        pData.FontName = DefaultDataFontName
        pData.FontSize = DefaultDataFontSize
        pData.High = DefaultDataRowHigh
    End If
    With Cllr
        .SetCurSheet PageNo - 1         'Cell从第零页开始计数
        .SetRows FactRows, PageNo - 1
        .SetCols COL_END + (mColMonth - 1) * 6 + 2, PageNo - 1
        .SetSelectMode PageNo - 1, 2

        '.PrintSetOrient 1
        .ShowSideLabel 0, PageNo - 1
        .ShowTopLabel 0, PageNo - 1
        '设置列宽
        For i = LBound(m_iColWidth) To UBound(m_iColWidth)
            If COL_BEGIN_CREDIT_MONEY >= i Then
                .SetColWidth 1, m_iColWidth(i), i, PageNo - 1
            ElseIf i >= COL_END_DEBIT_AMOUNT Then
                 .SetColWidth 1, m_iColWidth(i), i + (mColMonth - 1) * 6, PageNo - 1
            Else
                For j = 1 To mColMonth
                    .SetColWidth 1, m_iColWidth(i), i + (j - 1) * 6, PageNo - 1
                Next
            End If
        Next i
        .SetColWidth 1, 3, COL_END + (mColMonth - 1) * 6 + 1, PageNo - 1
    'Title
        .SetCellAlign COL_START, ROW_TITLE, PageNo - 1, 32 + 4
        .SetCellFont COL_START, ROW_TITLE, PageNo - 1, .FindFontIndex(pTitle.FontName, 1)
        .SetCellFontSize COL_START, ROW_TITLE, PageNo - 1, pTitle.FontSize
        .SetCellFontStyle COL_START, ROW_TITLE, PageNo - 1, 10
        
        .SetCellString COL_START, ROW_TITLE, PageNo - 1, "    科    目    索    引    表    "
        .SetRowHeight 0, pTitle.High * 10, ROW_TITLE, PageNo - 1
        'Comment
        .SetRowHeight 1, 20, ROW_ACCOUNTFORMAT, PageNo - 1
        .SetRowHeight 1, 20, ROW_PERIOD, PageNo - 1
       
        .SetCellFont COL_START, ROW_ACCOUNTFORMAT, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
        .SetCellFontSize COL_START, ROW_ACCOUNTFORMAT, PageNo - 1, 10
        .SetCellFontStyle COL_START, ROW_ACCOUNTFORMAT, PageNo - 1, 0
        
        .SetCellAlign COL_START, ROW_ACCOUNTFORMAT, PageNo - 1, 36
        
        .SetCellString COL_START, ROW_ACCOUNTFORMAT, PageNo - 1, "会 计 期 间：" & _
                                 glo.sOperateYear & "." & m_sMonthFrom & "-" & _
                                 glo.sOperateYear & "." & m_sMonthTo
         
        
        .SetCellFont COL_END_DEBIT_MONEY + (mColMonth - 1) * 6, ROW_PERIOD, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
        .SetCellFontSize COL_END_DEBIT_MONEY + (mColMonth - 1) * 6, ROW_PERIOD, PageNo - 1, 10
        .SetCellFontStyle COL_END_DEBIT_MONEY + (mColMonth - 1) * 6, ROW_PERIOD, PageNo - 1, 0
'        .SetCellString COL_END_DEBIT_MONEY + (mColMonth - 1) * 6, ROW_PERIOD, PageNo - 1, "第 " & CStr(PageNo) & " 页"
        .SetCellAlign COL_END_DEBIT_MONEY + (mColMonth - 1) * 6, ROW_PERIOD, PageNo - 1, 34
        
        .SetCellFont COL_END_DEBIT_FOREIGN + (mColMonth - 1) * 6, ROW_PERIOD, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
        .SetCellFontSize COL_END_DEBIT_FOREIGN + (mColMonth - 1) * 6, ROW_PERIOD, PageNo - 1, 10
        .SetCellFontStyle COL_END_DEBIT_FOREIGN + (mColMonth - 1) * 6, ROW_PERIOD, PageNo - 1, 0
'        .SetCellString COL_END_DEBIT_FOREIGN + (mColMonth - 1) * 6, ROW_PERIOD, PageNo - 1, "第 " & CStr(PageNo) & " 页"
        .SetCellAlign COL_END_DEBIT_FOREIGN + (mColMonth - 1) * 6, ROW_PERIOD, PageNo - 1, 34

        .SetCellFont COL_END_DEBIT_AMOUNT + (mColMonth - 1) * 6, ROW_PERIOD, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
        .SetCellFontSize COL_END_DEBIT_AMOUNT + (mColMonth - 1) * 6, ROW_PERIOD, PageNo - 1, 10
        .SetCellFontStyle COL_END_DEBIT_AMOUNT + (mColMonth - 1) * 6, ROW_PERIOD, PageNo - 1, 0
'        .SetCellString COL_END_DEBIT_AMOUNT + (mColMonth - 1) * 6, ROW_PERIOD, PageNo - 1, "第 " & CStr(PageNo) & " 页"
        .SetCellAlign COL_END_DEBIT_AMOUNT + (mColMonth - 1) * 6, ROW_PERIOD, PageNo - 1, 34
       
    'Head
        For i = ROW_HEAD1 To ROW_HEAD2
            For j = COL_START To COL_END + (mColMonth - 1) * 6
                .SetCellAlign j, i, PageNo - 1, 36
                .SetCellTextStyle j, i, PageNo - 1, 2
                .SetCellFont j, i, PageNo - 1, .FindFontIndex(pHead.FontName, 1)
                .SetCellFontSize j, i, PageNo - 1, pHead.FontSize
                .SetCellFontStyle j, i, PageNo - 1, 2
            Next j
            .SetRowHeight 0, pHead.High * 10, i, PageNo - 1
        Next i
        
        '合并单元格
        .SetCellString COL_SUBJECTCODE, ROW_HEAD1, PageNo - 1, "科目编码"
        .SetCellString COL_SUBJECTNAME, ROW_HEAD1, PageNo - 1, "科目名称"
        
        .SetCellString COL_BEGIN_DEBIT_AMOUNT, ROW_HEAD1, PageNo - 1, "期初余额"
        .SetCellString COL_BEGIN_DEBIT_FOREIGN, ROW_HEAD1, PageNo - 1, "期初余额"
        .SetCellString COL_BEGIN_DEBIT_MONEY, ROW_HEAD1, PageNo - 1, "期初余额"
        .SetCellString COL_BEGIN_CREDIT_AMOUNT, ROW_HEAD1, PageNo - 1, "期初余额"
        .SetCellString COL_BEGIN_CREDIT_FOREIGN, ROW_HEAD1, PageNo - 1, "期初余额"
        .SetCellString COL_BEGIN_CREDIT_MONEY, ROW_HEAD1, PageNo - 1, "期初余额"
        For j = 1 To mColMonth
            .SetCellString COL_HAPPEN_DEBIT_AMOUNT + (j - 1) * 6, ROW_HEAD1, PageNo - 1, CStr(j + CInt(m_sMonthFrom) - 1) + "月" + m_sStyle
            .SetCellString COL_HAPPEN_DEBIT_FOREIGN + (j - 1) * 6, ROW_HEAD1, PageNo - 1, CStr(j + CInt(m_sMonthFrom) - 1) + "月" + m_sStyle
            .SetCellString COL_HAPPEN_DEBIT_MONEY + (j - 1) * 6, ROW_HEAD1, PageNo - 1, CStr(j + CInt(m_sMonthFrom) - 1) + "月" + m_sStyle
            .SetCellString COL_HAPPEN_CREDIT_AMOUNT + (j - 1) * 6, ROW_HEAD1, PageNo - 1, CStr(j + CInt(m_sMonthFrom) - 1) + "月" + m_sStyle
            .SetCellString COL_HAPPEN_CREDIT_FOREIGN + (j - 1) * 6, ROW_HEAD1, PageNo - 1, CStr(j + CInt(m_sMonthFrom) - 1) + "月" + m_sStyle
            .SetCellString COL_HAPPEN_CREDIT_MONEY + (j - 1) * 6, ROW_HEAD1, PageNo - 1, CStr(j + CInt(m_sMonthFrom) - 1) + "月" + m_sStyle
        Next
        .SetCellString COL_END_DEBIT_AMOUNT + (mColMonth - 1) * 6, ROW_HEAD1, PageNo - 1, "期末余额"
        .SetCellString COL_END_DEBIT_FOREIGN + (mColMonth - 1) * 6, ROW_HEAD1, PageNo - 1, "期末余额"
        .SetCellString COL_END_DEBIT_MONEY + (mColMonth - 1) * 6, ROW_HEAD1, PageNo - 1, "期末余额"
        .SetCellString COL_END_CREDIT_AMOUNT + (mColMonth - 1) * 6, ROW_HEAD1, PageNo - 1, "期末余额"
        .SetCellString COL_END_CREDIT_FOREIGN + (mColMonth - 1) * 6, ROW_HEAD1, PageNo - 1, "期末余额"
        .SetCellString COL_END_CREDIT_MONEY + (mColMonth - 1) * 6, ROW_HEAD1, PageNo - 1, "期末余额"

        .SetCellString COL_BEGIN_DEBIT_AMOUNT, ROW_HEAD2, PageNo - 1, "借方"
        .SetCellString COL_BEGIN_DEBIT_FOREIGN, ROW_HEAD2, PageNo - 1, "借方"
        .SetCellString COL_BEGIN_DEBIT_MONEY, ROW_HEAD2, PageNo - 1, "借方"
        .SetCellString COL_BEGIN_CREDIT_AMOUNT, ROW_HEAD2, PageNo - 1, "贷方"
        .SetCellString COL_BEGIN_CREDIT_FOREIGN, ROW_HEAD2, PageNo - 1, "贷方"
        .SetCellString COL_BEGIN_CREDIT_MONEY, ROW_HEAD2, PageNo - 1, "贷方"
        For j = 1 To mColMonth
            .SetCellString COL_HAPPEN_DEBIT_AMOUNT + (j - 1) * 6, ROW_HEAD2, PageNo - 1, "借方"
            .SetCellString COL_HAPPEN_DEBIT_FOREIGN + (j - 1) * 6, ROW_HEAD2, PageNo - 1, "借方"
            .SetCellString COL_HAPPEN_DEBIT_MONEY + (j - 1) * 6, ROW_HEAD2, PageNo - 1, "借方"
            .SetCellString COL_HAPPEN_CREDIT_AMOUNT + (j - 1) * 6, ROW_HEAD2, PageNo - 1, "贷方"
            .SetCellString COL_HAPPEN_CREDIT_FOREIGN + (j - 1) * 6, ROW_HEAD2, PageNo - 1, "贷方"
            .SetCellString COL_HAPPEN_CREDIT_MONEY + (j - 1) * 6, ROW_HEAD2, PageNo - 1, "贷方"
        Next
        .SetCellString COL_END_DEBIT_AMOUNT + (mColMonth - 1) * 6, ROW_HEAD2, PageNo - 1, "借方"
        .SetCellString COL_END_DEBIT_FOREIGN + (mColMonth - 1) * 6, ROW_HEAD2, PageNo - 1, "借方"
        .SetCellString COL_END_DEBIT_MONEY + (mColMonth - 1) * 6, ROW_HEAD2, PageNo - 1, "借方"
        .SetCellString COL_END_CREDIT_AMOUNT + (mColMonth - 1) * 6, ROW_HEAD2, PageNo - 1, "贷方"
        .SetCellString COL_END_CREDIT_FOREIGN + (mColMonth - 1) * 6, ROW_HEAD2, PageNo - 1, "贷方"
        .SetCellString COL_END_CREDIT_MONEY + (mColMonth - 1) * 6, ROW_HEAD2, PageNo - 1, "贷方"
                
    'Text
        For i = ROW_GRID_START To .GetRows(PageNo - 1) - 1
            .SetRowHeight 0, pData.High * 10, i, PageNo - 1
            For j = COL_START To COL_END + (mColMonth - 1) * 6
                .SetCellFont j, i, PageNo - 1, .FindFontIndex(pData.FontName, 1)
                .SetCellFontSize j, i, PageNo - 1, pData.FontSize
                .SetCellFontStyle j, i, PageNo - 1, 0
            Next j
            .SetCellAlign COL_SUBJECTCODE, i, PageNo - 1, 33
            .SetCellAlign COL_SUBJECTNAME, i, PageNo - 1, 33
            
            For j = COL_BEGIN_DEBIT_AMOUNT To COL_END + (j - 1) * 6
                .SetCellNumType j, i, PageNo - 1, 1
                .SetCellSeparator j, i, PageNo - 1, 2
                If (j - COL_BEGIN_DEBIT_AMOUNT) Mod 3 = 0 Then
                    .SetCellDigital j, i, PageNo - 1, 3
                Else
                    .SetCellDigital j, i, PageNo - 1, 2
                End If
                .SetCellAlign j, i, PageNo - 1, 32 + 2
            Next
            
        Next i
        '合并右边框线
        Select Case usAccountFormat
        Case "金额式"
            .SetColHidden COL_BEGIN_DEBIT_AMOUNT, COL_BEGIN_DEBIT_FOREIGN
            .SetColHidden COL_BEGIN_CREDIT_AMOUNT, COL_BEGIN_CREDIT_FOREIGN
            For k = 1 To mColMonth
                .SetColHidden COL_HAPPEN_DEBIT_AMOUNT + (k - 1) * 6, COL_HAPPEN_DEBIT_FOREIGN + (k - 1) * 6
                .SetColHidden COL_HAPPEN_CREDIT_AMOUNT + (k - 1) * 6, COL_HAPPEN_CREDIT_FOREIGN + (k - 1) * 6
            Next
            .SetColHidden COL_END_DEBIT_AMOUNT + (mColMonth - 1) * 6, COL_END_DEBIT_FOREIGN + (mColMonth - 1) * 6
            .SetColHidden COL_END_CREDIT_AMOUNT + (mColMonth - 1) * 6, COL_END_CREDIT_FOREIGN + (mColMonth - 1) * 6
        Case "数量式"
            .SetColHidden COL_BEGIN_DEBIT_FOREIGN, COL_BEGIN_DEBIT_MONEY
            .SetColHidden COL_BEGIN_CREDIT_FOREIGN, COL_BEGIN_CREDIT_MONEY
            For k = 1 To mColMonth
                .SetColHidden COL_HAPPEN_DEBIT_FOREIGN + (k - 1) * 6, COL_HAPPEN_DEBIT_MONEY + (k - 1) * 6
                .SetColHidden COL_HAPPEN_CREDIT_FOREIGN + (k - 1) * 6, COL_HAPPEN_CREDIT_MONEY + (k - 1) * 6
            Next
            .SetColHidden COL_END_DEBIT_FOREIGN + (mColMonth - 1) * 6, COL_END_DEBIT_MONEY + (mColMonth - 1) * 6
            .SetColHidden COL_END_CREDIT_FOREIGN + (mColMonth - 1) * 6, COL_END_CREDIT_MONEY + (mColMonth - 1) * 6
        Case "外币式"
            .SetColHidden COL_BEGIN_DEBIT_AMOUNT, COL_BEGIN_DEBIT_AMOUNT
            .SetColHidden COL_BEGIN_DEBIT_MONEY, COL_BEGIN_CREDIT_AMOUNT
            .SetColHidden COL_BEGIN_CREDIT_MONEY, COL_HAPPEN_DEBIT_AMOUNT
            For k = 1 To mColMonth
                .SetColHidden COL_HAPPEN_DEBIT_FOREIGN + 1 + (k - 1) * 6, COL_HAPPEN_DEBIT_FOREIGN + 2 + (k - 1) * 6
                .SetColHidden COL_HAPPEN_CREDIT_FOREIGN + 1 + (k - 1) * 6, COL_HAPPEN_CREDIT_FOREIGN + 2 + (k - 1) * 6
            Next
            .SetColHidden COL_END_DEBIT_MONEY + (mColMonth - 1) * 6, COL_END_CREDIT_AMOUNT + (mColMonth - 1) * 6
            .SetColHidden COL_END_CREDIT_MONEY + (mColMonth - 1) * 6, COL_END_CREDIT_MONEY + (mColMonth - 1) * 6
        End Select
        
        
        Select Case usAccountFormat
        Case "金额式"
            .MergeCells COL_END_DEBIT_MONEY + (mColMonth) * 6, ROW_PERIOD, COL_END_CREDIT_MONEY + (mColMonth) * 6, ROW_PERIOD
        Case "外币式"
            .MergeCells COL_END_DEBIT_FOREIGN + (mColMonth) * 6, ROW_PERIOD, COL_END_CREDIT_MONEY + (mColMonth) * 6, ROW_PERIOD
        Case "数量式"
            .MergeCells COL_END_DEBIT_AMOUNT + (mColMonth) * 6, ROW_PERIOD, COL_END_CREDIT_MONEY + (mColMonth) * 6, ROW_PERIOD
        End Select
   
        Select Case usAccountFormat
        Case "金额式"
            .MergeCells COL_BEGIN_DEBIT_MONEY, ROW_HEAD1, COL_BEGIN_CREDIT_MONEY, ROW_HEAD1
            For k = 1 To mColMonth
                .MergeCells COL_HAPPEN_DEBIT_MONEY + (k - 1) * 6, ROW_HEAD1, COL_HAPPEN_CREDIT_MONEY + (k - 1) * 6, ROW_HEAD1
            Next
            .MergeCells COL_END_DEBIT_MONEY + (mColMonth - 1) * 6, ROW_HEAD1, COL_END_CREDIT_MONEY + (mColMonth - 1) * 6, ROW_HEAD1
        Case "数量式"
            .MergeCells COL_BEGIN_DEBIT_AMOUNT, ROW_HEAD1, COL_BEGIN_CREDIT_AMOUNT, ROW_HEAD1
            For k = 1 To mColMonth
                .MergeCells COL_HAPPEN_DEBIT_AMOUNT + (k - 1) * 6, ROW_HEAD1, COL_HAPPEN_CREDIT_AMOUNT + (k - 1) * 6, ROW_HEAD1
            Next
            .MergeCells COL_END_DEBIT_AMOUNT + (mColMonth - 1) * 6, ROW_HEAD1, COL_END_CREDIT_AMOUNT + (mColMonth - 1) * 6, ROW_HEAD1
        Case "外币式"
            .MergeCells COL_BEGIN_DEBIT_FOREIGN, ROW_HEAD1, COL_BEGIN_CREDIT_FOREIGN, ROW_HEAD1
            For k = 1 To mColMonth
                .MergeCells COL_HAPPEN_DEBIT_FOREIGN + (k - 1) * 6, ROW_HEAD1, COL_HAPPEN_CREDIT_FOREIGN + (k - 1) * 6, ROW_HEAD1
            Next
            .MergeCells COL_END_DEBIT_FOREIGN + (mColMonth - 1) * 6, ROW_HEAD1, COL_END_CREDIT_FOREIGN + (mColMonth - 1) * 6, ROW_HEAD1
        End Select
        
    
'        .MergeCells COL_START, ROW_ACCOUNTFORMAT, COL_END + (mColMonth - 2) * 6, ROW_ACCOUNTFORMAT
'   '     .MergeCells COL_START, ROW_PERIOD, COL_END_DEBIT_AMOUNT + (mColMonth - 1) * 6, ROW_PERIOD
'
'        .MergeCells COL_START, ROW_PERIOD, COL_END_CREDIT_MONEY + (mColMonth - 1) * 6, ROW_PERIOD
        .MergeCells COL_SUBJECTCODE, ROW_HEAD1, COL_SUBJECTCODE, ROW_HEAD2
        .MergeCells COL_SUBJECTNAME, ROW_HEAD1, COL_SUBJECTNAME, ROW_HEAD2
        .MergeCells .GetCols(PageNo - 1) - 1, ROW_HEAD1, .GetCols(PageNo - 1) - 1, .GetRows(PageNo - 1) - 1
'        .MergeCells COL_START, ROW_TITLE, COL_START + 6, ROW_TITLE
'        .MergeCells COL_START + 7, ROW_TITLE, COL_END + (mColMonth - 1) * 6, ROW_TITLE
    'Draw Line
    
'        .DrawGridLine COL_END_CREDIT_MONEY, ROW_HEAD1, COL_END_CREDIT_MONEY, .GetRows(.GetCurSheet) - 1, 2, 3, .FindColorIndex(RGB(0, 0, 0), 1)
'        .DrawGridLine COL_START, ROW_HEAD1, COL_END, .GetRows(PageNo - 1) - 1, 1, 3, .FindColorIndex(RGB(0, 0, 0), 1)
'        .DrawGridLine COL_SUBJECTCODE, ROW_HEAD1, COL_END, .GetRows(PageNo - 1) - 2, 5, 2, .FindColorIndex(RGB(0, 0, 0), 1)
'        .DrawGridLine COL_SUBJECTNAME, ROW_HEAD1, COL_END, .GetRows(PageNo - 1) - 1, 2, 2, .FindColorIndex(RGB(0, 0, 0), 1)
'        .DrawGridLine COL_END_CREDIT_MONEY, ROW_HEAD1, COL_END_CREDIT_MONEY, .GetRows(PageNo - 1) - 1, 3, 3, .FindColorIndex(RGB(0, 0, 0), 1)
        .DrawGridLine COL_START, ROW_HEAD1, COL_END + (mColMonth - 1) * 6, .GetRows(PageNo - 1) - 1, 0, 2, .FindColorIndex(vbBlack, 1)
        .DrawGridLine COL_START, ROW_HEAD1, COL_END + (mColMonth - 1) * 6, .GetRows(PageNo - 1) - 1, 1, 3, .FindColorIndex(vbBlack, 1)
    'Print Corp & Date & Time
        .SetRows .GetRows(PageNo - 1) + 1, PageNo - 1
        i = .GetRows(PageNo - 1) - 1
        .MergeCells COL_START, i, COL_HAPPEN_DEBIT_FOREIGN, i
        .MergeCells COL_HAPPEN_DEBIT_MONEY, i, COL_END + (mColMonth - 1) * 6, i
        .SetCellAlign COL_START, i, PageNo - 1, 33
        .SetCellAlign COL_HAPPEN_DEBIT_MONEY, i, PageNo - 1, 34
        .SetCellFont COL_START, i, PageNo - 1, .FindFontIndex("宋体", 1)