frmac_randommulticolresult.frm

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

       .ShowPageBreak False
    'Title
        .SetCellAlign COL_START, ROW_TITLE, PageNo - 1, 36
         .SetCellFont COL_START, ROW_TITLE, PageNo - 1, .FindFontIndex("黑体", 1)
         .SetCellFontSize COL_START, ROW_TITLE, PageNo - 1, 19
         .SetCellFontStyle COL_START, ROW_TITLE, PageNo - 1, 10
        .MergeCells COL_START, ROW_TITLE, iCol_End, ROW_TITLE
        .SetCellString COL_START, ROW_TITLE, PageNo - 1, "多栏账" 'm_sCellTitle
        .SetRowHeight 1, 40, ROW_TITLE, PageNo - 1
    'Comment
        .MergeCells COL_START, ROW_PAGEHEAD1, iCol_End, ROW_PAGEHEAD1
        .MergeCells COL_START, ROW_PAGEHEAD2, iCol_End, ROW_PAGEHEAD2
        .MergeCells COL_START, ROW_PAGEHEAD3, iCol_End, ROW_PAGEHEAD3
        .MergeCells COL_START, ROW_PAGEHEAD4, iCol_End, ROW_PAGEHEAD4
        .MergeCells COL_START, ROW_PAGEHEAD5, iCol_End - 3, ROW_PAGEHEAD5
        
        .SetRowHidden ROW_PAGEHEAD2, 4
        
        .SetRowHeight 1, 0, ROW_PAGEHEAD1, PageNo - 1
        .SetRowHeight 1, 19, ROW_PAGEHEAD2, PageNo - 1
        .SetCellAlign COL_START, ROW_PAGEHEAD2, PageNo - 1, 32
        
        .SetRowHeight 1, 21, ROW_PAGEHEAD3, PageNo - 1
        .SetRowHeight 1, 21, ROW_PAGEHEAD4, PageNo - 1
        .SetRowHeight 1, 21, ROW_PAGEHEAD5, PageNo - 1
        .SetCellString COL_START, ROW_PAGEHEAD3, PageNo - 1, m_sHeaderOneCode
        .SetCellString COL_START, ROW_PAGEHEAD4, PageNo - 1, m_sHeaderTwoCode
        .SetCellString COL_START, ROW_PAGEHEAD5, PageNo - 1, m_sHeaderThreeCode

    'Head
        .SetRowHeight 1, 21, ROW_GRIDHEAD1, PageNo - 1
        .SetRowHeight 1, 21, ROW_GRIDHEAD2, PageNo - 1
        .SetRowHeight 1, 21, ROW_GRIDHEAD3, PageNo - 1
        For i = ROW_GRIDHEAD1 To ROW_GRIDHEAD3
            For j = COL_START To iCol_End
                .SetCellAlign j, i, PageNo - 1, 36
                .SetCellTextStyle j, i, PageNo - 1, 2
            .SetCellFont j, i, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
            .SetCellFontSize j, i, PageNo - 1, 10
            .SetCellFontStyle j, i, PageNo - 1, 2
            Next j
        Next i
        
        '设置列宽
        For i = LBound(m_iColWidth) To UBound(m_iColWidth)
            .SetColWidth 1, m_iColWidth(i), i, PageNo - 1
        Next i
        For i = LBound(m_arrColInformation) To UBound(m_arrColInformation)
            .SetColWidth 1, 120, COL_ACTION_BEGIN + i * 3, PageNo - 1
            .SetColWidth 1, 120, COL_ACTION_BEGIN + i * 3 + 1, PageNo - 1
            .SetColWidth 1, 120, COL_ACTION_BEGIN + i * 3 + 2, PageNo - 1
        Next i
        .SetColWidth 1, 3, iCol_End + 1, PageNo - 1
        
        '合并单元格
        .MergeCells COL_SERIAL, ROW_HEAD1 + 1, COL_SERIAL, ROW_GRIDHEAD1 + 2
        .MergeCells COL_MONTH, ROW_GRIDHEAD1, COL_DAY, ROW_GRIDHEAD1
        .MergeCells COL_MONTH, ROW_GRIDHEAD2, COL_MONTH, ROW_GRIDHEAD3
        .MergeCells COL_DAY, ROW_GRIDHEAD2, COL_DAY, ROW_GRIDHEAD3
        .MergeCells COL_TYPE, ROW_GRIDHEAD1, COL_NUMBER, ROW_GRIDHEAD1
        .MergeCells COL_TYPE, ROW_GRIDHEAD2, COL_TYPE, ROW_GRIDHEAD3
        .MergeCells COL_NUMBER, ROW_GRIDHEAD2, COL_NUMBER, ROW_GRIDHEAD3
        .MergeCells COL_SUMMARY, ROW_GRIDHEAD1, COL_SUMMARY, ROW_GRIDHEAD3
        
        .MergeCells COL_BALANCE_AMOUNT, IIf(Not (m_bAmount Or m_bForeign), ROW_GRIDHEAD1, ROW_GRIDHEAD2), COL_BALANCE_AMOUNT, ROW_GRIDHEAD3
        .MergeCells COL_BALANCE_FOREIGN, IIf(Not (m_bAmount Or m_bForeign), ROW_GRIDHEAD1, ROW_GRIDHEAD2), COL_BALANCE_FOREIGN, ROW_GRIDHEAD3
        .MergeCells COL_BALANCE_MONEY, IIf(Not (m_bAmount Or m_bForeign), ROW_GRIDHEAD1, ROW_GRIDHEAD2), COL_BALANCE_MONEY, ROW_GRIDHEAD3
        .MergeCells COL_CREDIT_AMOUNT, IIf(Not (m_bAmount Or m_bForeign), ROW_GRIDHEAD1, ROW_GRIDHEAD2), COL_CREDIT_AMOUNT, ROW_GRIDHEAD3
        .MergeCells COL_CREDIT_FOREIGN, IIf(Not (m_bAmount Or m_bForeign), ROW_GRIDHEAD1, ROW_GRIDHEAD2), COL_CREDIT_FOREIGN, ROW_GRIDHEAD3
        .MergeCells COL_CREDIT_MONEY, IIf(Not (m_bAmount Or m_bForeign), ROW_GRIDHEAD1, ROW_GRIDHEAD2), COL_CREDIT_MONEY, ROW_GRIDHEAD3
        .MergeCells COL_DEBIT_AMOUNT, IIf(Not (m_bAmount Or m_bForeign), ROW_GRIDHEAD1, ROW_GRIDHEAD2), COL_DEBIT_AMOUNT, ROW_GRIDHEAD3
        .MergeCells COL_DEBIT_FOREIGN, IIf(Not (m_bAmount Or m_bForeign), ROW_GRIDHEAD1, ROW_GRIDHEAD2), COL_DEBIT_FOREIGN, ROW_GRIDHEAD3
        .MergeCells COL_DEBIT_MONEY, IIf(Not (m_bAmount Or m_bForeign), ROW_GRIDHEAD1, ROW_GRIDHEAD2), COL_DEBIT_MONEY, ROW_GRIDHEAD3
        If m_bAmount Then '合并金额部分
              .MergeCells COL_DEBIT_AMOUNT, ROW_GRIDHEAD1, COL_DEBIT_MONEY, ROW_GRIDHEAD1
              .MergeCells COL_CREDIT_AMOUNT, ROW_GRIDHEAD1, COL_CREDIT_MONEY, ROW_GRIDHEAD1
              .MergeCells COL_BALANCE_AMOUNT, ROW_GRIDHEAD1, COL_BALANCE_MONEY, ROW_GRIDHEAD1
        ElseIf m_bForeign Then
             .MergeCells COL_DEBIT_FOREIGN, ROW_GRIDHEAD1, COL_DEBIT_MONEY, ROW_GRIDHEAD1
             .MergeCells COL_CREDIT_FOREIGN, ROW_GRIDHEAD1, COL_CREDIT_MONEY, ROW_GRIDHEAD1
             .MergeCells COL_BALANCE_FOREIGN, ROW_GRIDHEAD1, COL_BALANCE_MONEY, ROW_GRIDHEAD1
        End If
        .MergeCells COL_DIRECTION, ROW_GRIDHEAD1, COL_DIRECTION, ROW_GRIDHEAD3  '合并方向
        If iCol_DebitEnd > COL_ACTION_BEGIN And iCol_DebitEnd <> iCol_End Then '合并活动数据列
             If m_bAmount Then
                .MergeCells COL_ACTION_BEGIN, ROW_GRIDHEAD1, iCol_DebitEnd, ROW_GRIDHEAD1
                .MergeCells iCol_DebitEnd + 1, ROW_GRIDHEAD1, iCol_End, ROW_GRIDHEAD1
             ElseIf m_bForeign Then
                .MergeCells COL_ACTION_BEGIN + 1, ROW_GRIDHEAD1, iCol_DebitEnd, ROW_GRIDHEAD1
                .MergeCells iCol_DebitEnd + 1 + 1, ROW_GRIDHEAD1, iCol_End, ROW_GRIDHEAD1
             Else
                .MergeCells COL_ACTION_BEGIN + 2, ROW_GRIDHEAD1, iCol_DebitEnd, ROW_GRIDHEAD1
                .MergeCells iCol_DebitEnd + 1 + 2, ROW_GRIDHEAD1, iCol_End, ROW_GRIDHEAD1
             End If
        Else
             If m_bAmount Then
                .MergeCells COL_ACTION_BEGIN, ROW_GRIDHEAD1, iCol_End, ROW_GRIDHEAD1
             ElseIf m_bForeign Then
                .MergeCells COL_ACTION_BEGIN + 1, ROW_GRIDHEAD1, iCol_End, ROW_GRIDHEAD1
             Else
                .MergeCells COL_ACTION_BEGIN + 2, ROW_GRIDHEAD1, iCol_End, ROW_GRIDHEAD1
             End If
        End If
                
        '设置内容
        .SetCellString COL_SERIAL, ROW_HEAD1 + 1, PageNo - 1, "序号"
        .SetCellString COL_MONTH, ROW_GRIDHEAD1, PageNo - 1, glo.sOperateYear & "年"
        .SetCellString COL_MONTH, ROW_GRIDHEAD2, PageNo - 1, "月"
        .SetCellString COL_DAY, ROW_GRIDHEAD2, PageNo - 1, "日"
        .SetCellString COL_TYPE, ROW_GRIDHEAD1, PageNo - 1, "记账凭证"
        .SetCellString COL_TYPE, ROW_GRIDHEAD2, PageNo - 1, "种类"
        .SetCellString COL_NUMBER, ROW_GRIDHEAD2, PageNo - 1, "号数"
        .SetCellString COL_SUMMARY, ROW_GRIDHEAD1, PageNo - 1, "摘要"
        .SetCellString COL_DEBIT_AMOUNT, ROW_GRIDHEAD1, PageNo - 1, "借方"
        .SetCellString COL_DEBIT_FOREIGN, ROW_GRIDHEAD1, PageNo - 1, "借方"
        .SetCellString COL_DEBIT_MONEY, ROW_GRIDHEAD1, PageNo - 1, "借方"
        .SetCellString COL_DEBIT_AMOUNT, ROW_GRIDHEAD2, PageNo - 1, "数量"
        .SetCellString COL_DEBIT_FOREIGN, ROW_GRIDHEAD2, PageNo - 1, "外币"
        .SetCellString COL_DEBIT_MONEY, ROW_GRIDHEAD2, PageNo - 1, "金额"
        .SetCellString COL_CREDIT_AMOUNT, ROW_GRIDHEAD1, PageNo - 1, "贷方"
        .SetCellString COL_CREDIT_MONEY, ROW_GRIDHEAD1, PageNo - 1, "贷方"
        .SetCellString COL_CREDIT_FOREIGN, ROW_GRIDHEAD1, PageNo - 1, "贷方"
        .SetCellString COL_CREDIT_AMOUNT, ROW_GRIDHEAD2, PageNo - 1, "数量"
        .SetCellString COL_CREDIT_FOREIGN, ROW_GRIDHEAD2, PageNo - 1, "外币"
        .SetCellString COL_CREDIT_MONEY, ROW_GRIDHEAD2, PageNo - 1, "金额"
        .SetCellString COL_DIRECTION, ROW_GRIDHEAD1, PageNo - 1, "方向"
        .SetCellString COL_BALANCE_AMOUNT, ROW_GRIDHEAD1, PageNo - 1, "余额"
        .SetCellString COL_BALANCE_FOREIGN, ROW_GRIDHEAD1, PageNo - 1, "余额"
        .SetCellString COL_BALANCE_MONEY, ROW_GRIDHEAD1, PageNo - 1, "余额"
        .SetCellString COL_BALANCE_AMOUNT, ROW_GRIDHEAD2, PageNo - 1, "数量"
        .SetCellString COL_BALANCE_FOREIGN, ROW_GRIDHEAD2, PageNo - 1, "外币"
        .SetCellString COL_BALANCE_MONEY, ROW_GRIDHEAD2, PageNo - 1, "金额"
        If iCol_DebitEnd <> 0 Then
           .SetCellString COL_ACTION_BEGIN, ROW_GRIDHEAD1, PageNo - 1, "借方"
           .SetCellString COL_ACTION_BEGIN + 1, ROW_GRIDHEAD1, PageNo - 1, "借方"
           .SetCellString COL_ACTION_BEGIN + 2, ROW_GRIDHEAD1, PageNo - 1, "借方"
           If iCol_DebitEnd <> iCol_End Then
             .SetCellString iCol_DebitEnd + 1, ROW_GRIDHEAD1, PageNo - 1, "贷方"
             .SetCellString iCol_DebitEnd + 2, ROW_GRIDHEAD1, PageNo - 1, "贷方"
             .SetCellString iCol_DebitEnd + 3, ROW_GRIDHEAD1, PageNo - 1, "贷方"
           End If
        Else
             .SetCellString COL_ACTION_BEGIN + 1, ROW_GRIDHEAD1, PageNo - 1, "贷方"
             .SetCellString COL_ACTION_BEGIN + 2, ROW_GRIDHEAD1, PageNo - 1, "贷方"
             .SetCellString COL_ACTION_BEGIN + 3, ROW_GRIDHEAD1, PageNo - 1, "贷方"
        End If
        For i = LBound(m_arrColInformation) To UBound(m_arrColInformation)
            If m_bAmount Then
               .MergeCells COL_ACTION_BEGIN + i * 3, ROW_GRIDHEAD2, COL_ACTION_BEGIN + i * 3 + 2, ROW_GRIDHEAD2
           ElseIf m_bForeign Then
               .MergeCells COL_ACTION_BEGIN + i * 3 + 1, ROW_GRIDHEAD2, COL_ACTION_BEGIN + i * 3 + 2, ROW_GRIDHEAD2
           Else
              .MergeCells COL_ACTION_BEGIN + i * 3 + 2, ROW_GRIDHEAD2, COL_ACTION_BEGIN + i * 3 + 2, ROW_GRIDHEAD3
           End If
            .SetCellString COL_ACTION_BEGIN + i * 3, ROW_GRIDHEAD2, PageNo - 1, m_arrColInformation(i).sColName
            .SetCellString COL_ACTION_BEGIN + i * 3 + 1, ROW_GRIDHEAD2, PageNo - 1, m_arrColInformation(i).sColName
            .SetCellString COL_ACTION_BEGIN + i * 3 + 2, ROW_GRIDHEAD2, PageNo - 1, m_arrColInformation(i).sColName
            .SetCellString COL_ACTION_BEGIN + i * 3, ROW_GRIDHEAD3, PageNo - 1, "数量"
            .SetCellString COL_ACTION_BEGIN + i * 3 + 1, ROW_GRIDHEAD3, PageNo - 1, "外币"
            .SetCellString COL_ACTION_BEGIN + i * 3 + 2, ROW_GRIDHEAD3, PageNo - 1, "金额"
        Next i
    'Text
        For i = ROW_GRID_START To .GetRows(PageNo - 1) - 1
            For j = COL_START To iCol_End
            .SetCellFont j, i, PageNo - 1, .FindFontIndex("宋体", 1)
            .SetCellFontSize j, i, PageNo - 1, 10
            .SetCellFontStyle j, i, PageNo - 1, 0
'            .SetCellMinus j, i, PageNo - 1, 5   '为负数时显示红色
            Next j
             .SetCellAlign COL_SERIAL, i, PageNo - 1, 36
            .SetCellAlign COL_MONTH, i, PageNo - 1, 36
            .SetCellAlign COL_DAY, i, PageNo - 1, 36
            .SetCellAlign COL_TYPE, i, PageNo - 1, 36
            .SetCellAlign COL_NUMBER, i, PageNo - 1, 36
            .SetCellAlign COL_SUMMARY, i, PageNo - 1, 33
           
            .SetCellNumType COL_DEBIT_AMOUNT, i, PageNo - 1, 1
            .SetCellNumType COL_DEBIT_FOREIGN, i, PageNo - 1, 1
            .SetCellNumType COL_DEBIT_MONEY, i, PageNo - 1, 1
            .SetCellSeparator COL_DEBIT_AMOUNT, i, PageNo - 1, 2
            .SetCellSeparator COL_DEBIT_FOREIGN, i, PageNo - 1, 2
            .SetCellSeparator COL_DEBIT_MONEY, i, PageNo - 1, 2
            .SetCellDigital COL_DEBIT_AMOUNT, i, PageNo - 1, 2
            .SetCellDigital COL_DEBIT_FOREIGN, i, PageNo - 1, 2
            .SetCellDigital COL_DEBIT_MONEY, i, PageNo - 1, 2
            
            .SetCellNumType COL_CREDIT_AMOUNT, i, PageNo - 1, 1
            .SetCellNumType COL_CREDIT_FOREIGN, i, PageNo - 1, 1
            .SetCellNumType COL_CREDIT_MONEY, i, PageNo - 1, 1
            .SetCellSeparator COL_CREDIT_AMOUNT, i, PageNo - 1, 2
            .SetCellSeparator COL_CREDIT_FOREIGN, i, PageNo - 1, 2
            .SetCellSeparator COL_CREDIT_MONEY, i, PageNo - 1, 2
            .SetCellDigital COL_CREDIT_AMOUNT, i, PageNo - 1, 2
            .SetCellDigital COL_CREDIT_FOREIGN, i, PageNo - 1, 2
            .SetCellDigital COL_CREDIT_MONEY, i, PageNo - 1, 2
            .SetCellAlign COL_DIRECTION, i, PageNo - 1, 32
            
            .SetCellNumType COL_BALANCE_AMOUNT, i, PageNo - 1, 1
            .SetCellNumType COL_BALANCE_FOREIGN, i, PageNo - 1, 1
            .SetCellNumType COL_BALANCE_MONEY, i, PageNo - 1, 1
            .SetCellSeparator COL_BALANCE_AMOUNT, i, PageNo - 1, 2
            .SetCellSeparator COL_BALANCE_FOREIGN, i, PageNo - 1, 2
            .SetCellSeparator COL_BALANCE_MONEY, i, PageNo - 1, 2
            .SetCellDigital COL_BALANCE_AMOUNT, i, PageNo - 1, 2
            .SetCellDigital COL_BALANCE_FOREIGN, i, PageNo - 1, 2
            .SetCellDigital COL_BALANCE_MONEY, i, PageNo - 1, 2
            
            For j = COL_ACTION_BEGIN To iCol_End
                .SetCellNumType j, i, PageNo - 1, 1
                .SetCellSeparator j, i, PageNo - 1, 2
                .SetCellDigital j, i, PageNo - 1, 2
            Next j
        Next i
        .SetCellAlign COL_ACTION_BEGIN + i, ROW_GRIDHEAD1, PageNo - 1, 36
        For i = LBound(m_arrColInformation) To UBound(m_arrColInformation)
            .SetCellAlign COL_ACTION_BEGIN + i * 3, ROW_GRIDHEAD2, PageNo - 1, 36
            .SetCellAlign COL_ACTION_BEGIN + i * 3 + 1, ROW_GRIDHEAD2, PageNo - 1, 36
            .SetCellAlign COL_ACTION_BEGIN + i * 3 + 2, ROW_GRIDHEAD2, PageNo - 1, 36
            .SetCellAlign COL_ACTION_BEGIN + i * 3, ROW_GRIDHEAD3, PageNo - 1, 36
            .SetCellAlign COL_ACTION_BEGIN + i * 3 + 1, ROW_GRIDHEAD3, PageNo - 1, 36
            .SetCellAlign COL_ACTION_BEGIN + i * 3 + 2, ROW_GRIDHEAD3, PageNo - 1, 36
        Next i
        .MergeCells .GetCols(PageNo - 1) - 1, ROW_GRIDHEAD1, .GetCols(PageNo - 1) - 1, .GetRows(PageNo - 1) - 1
    'Draw Line
   .DrawGridLine COL_START, ROW_GRIDHEAD1, iCol_End, .GetRows(PageNo - 1) - 1, 1, 3, .FindColorIndex(RGB(0, 0, 0), 1)
   .DrawGridLine COL_MONTH, ROW_GRIDHEAD1, iCol_End, .GetRows(PageNo - 1) - 2, 5, 2, .FindColorIndex(RGB(0, 0, 0), 1)
   .DrawGridLine COL_DAY, ROW_GRIDHEAD1, iCol_End, .GetRows(PageNo - 1) - 1, 2, 2, .FindColorIndex(RGB(0, 0, 0), 1)
   .DrawGridLine COL_SERIAL, ROW_HEAD1 + 1, iCol_End, .GetRows(PageNo - 1) - 1, 0, 2, .FindColorIndex(RGB(0, 0, 0), 1)
 

    'Print Corp & Date & Time
        .SetRows .GetRows(PageNo - 1) + 1, PageNo - 1
        i = .GetRows(PageNo - 1) - 1
        '合并到单元格"借方外币"是为了防止当借方外币列宽为零时,打印预览会不显示打印日期;
        .MergeCells COL_START, i, COL_SUMMARY, i
        .MergeCells COL_DEBIT_MONEY, i, iCol_End, i
        .SetCellAlign COL_START, i, PageNo - 1, 33
        .SetCellAlign COL_DEBIT_MONEY, i, PageNo - 1, 34
        .SetCellFont COL_START, i, PageNo - 1, .FindFontIndex("宋体", 1)
        .SetCellFontSize COL_START, i, PageNo - 1, 10
        .SetCellFontStyle COL_START, i, PageNo - 1, 0
        .SetCellFont COL_DEBIT_MONEY, i, PageNo - 1, .FindFontIndex("宋体", 1)
        .SetCellFontSize COL_DEBIT_MONEY, i, PageNo - 1, 10
        .SetCellFontStyle COL_DEBIT_MONEY, i, PageNo - 1, 0
        .SetCellString COL_START, i, PageNo - 1, "核算单位：" & m_sEnterName