frmac_balanceresult.frm

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

End Sub

Private Sub Form_Initialize()
uIsDisplayBalance = True
uIsDisplayVoucherInfo = False
uIsForceDisplayTotal = False
End Sub

Private Sub form_load()
    uIsDisplayBalance = IsDisplayBalance
    uIsDisplayVoucherInfo = IsDisplayVoucherInfo
    mIsPrint = False
    m_bFormLoad = True
    TbrControl False
'    Me.Caption = "余额表查询"
    usAccountType = "余额表"
    usAccountFormat = "金额式"
    Select Case usAccountFormat
        Case "金额式"
            m_sDefaultColWidth = COLWIDTH_MONEY
        Case "数量金额式"
            m_sDefaultColWidth = COLWIDTH_AMOUNT
        Case "外币金额式"
            m_sDefaultColWidth = COLWIDTH_FOREIGN
        Case "数量外币式"
            m_sDefaultColWidth = COLWIDTH_AMOUNT_FOREIGN
    End Select
    '求出各列的宽度
    m_iColWidth = GetColWidth(usAccountType, usAccountFormat, m_sDefaultColWidth)
    m_iColWidthTemp = m_iColWidth
    
    With cboAccountFormat
        .AddItem "金额式"
        .AddItem "数量金额式"
        .AddItem "外币金额式"
        .AddItem "数量外币式"
        .ListIndex = 0
    End With
    With Cllr
     '将CELL不可见，防止清除CELL控件内容时屏幕闪烁；
        .Login "南京伊康计算机工程公司", "11010504", "0060-1733-7722-3004"
        If .OpenFile(App.Path & "\CellFiles\Balance.cll", "") = -1 Then
            MsgBox "CELL文件不存在！", vbOKOnly
        End If
        .ResetContent
        .SetCols COL_END + 2, 0
        .SetRows ROW_GRID_START + ROWS_PAGE, 0
        .SetDefaultFont .FindFontIndex("宋体", 1), 10
        .WorkbookReadonly = True
        .AllowSizeColInGrid = True
    End With
    LoadPrintSetting
    m_bFormLoad = False
End Sub

Private Sub Form_Resize()
    On Error Resume Next
    Cllr.Width = Me.ScaleWidth - 100
    Cllr.Height = Me.ScaleHeight - 200
End Sub

'窗体卸载前, 检查账页的列宽是否被调整
Private Sub Form_Unload(Cancel As Integer)
    Cancel = 0
    If IsColChange(Me.Cllr, m_iColWidth) = True Then
        If MsgBox(usAccountFormat & "余额表格式已经改变，是否保存？", _
                    vbQuestion + vbYesNo + vbDefaultButton2) = vbYes Then
            Call SaveColChange(m_iColWidth, usAccountType, usAccountFormat)
        End If
    End If
    SavePrintSetting
    TbrControl True
    m_Mutex.DeleteMutexID gloSys.sSubSysId, glo.sAccountID, "mnuAccountBalance", m_iID
End Sub

'参数 PageNo - 当前页数;    FactRows - 实际行数
Private Sub SetGrid(ByVal PageNo As Long, ByVal FactRows As Long)
    Dim i As Long, j As Long
    Dim pTitle As New clsRowType
    Dim pData As New clsRowType
    Dim pHead As New clsRowType
    If mIsPrint Then
        '标题
        pTitle.FontName = PrintTitleFontName
        pTitle.FontSize = PrintTitleFontSize
        pTitle.High = PrintTitleRowHigh
        '表头
        pHead.FontName = PrintHeadFontName
        pHead.FontSize = PrintHeadFontSize
        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 + 2, PageNo - 1
        .SetSelectMode PageNo - 1, 2
        .SetFixedCol COL_SUBJECTCODE, COL_SUBJECTNAME
        .SetFixedRow ROW_TITLE, ROW_HEAD2
        '.PrintSetOrient 1
        .ShowSideLabel 0, PageNo - 1
        .ShowTopLabel 0, PageNo - 1
        '设置列宽
        For i = LBound(m_iColWidth) To UBound(m_iColWidth)
            .SetColWidth 1, m_iColWidth(i), i, PageNo - 1
        Next i
        .SetColWidth 1, 3, COL_END + 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
        .MergeCells COL_START, ROW_TITLE, COL_END, ROW_TITLE
        .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
        
        .MergeCells COL_START, ROW_ACCOUNTFORMAT, COL_END, ROW_ACCOUNTFORMAT
        .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
        
        
'        .MergeCells COL_START, ROW_PERIOD, COL_SUBJECTNAME, ROW_PERIOD
'        .MergeCells COL_BEGIN_DEBIT_MONEY, ROW_PERIOD, COL_BEGIN_CREDIT_MONEY, ROW_PERIOD
'        .MergeCells COL_BEGIN_DIRECTION, ROW_PERIOD, COL_BEGIN_BALANCE_MONEY, ROW_PERIOD
'        .MergeCells COL_HAPPEN_DEBIT_AMOUNT, ROW_PERIOD, COL_TOTAL_CREDIT_MONEY, ROW_PERIOD
        .MergeCells COL_START, ROW_PERIOD, COL_TOTAL_CREDIT_MONEY, ROW_PERIOD
        
        .MergeCells COL_END_DEBIT_MONEY, ROW_PERIOD, COL_END_CREDIT_MONEY, ROW_PERIOD
        .SetCellFont COL_END_DEBIT_MONEY, ROW_PERIOD, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
        .SetCellFontSize COL_END_DEBIT_MONEY, ROW_PERIOD, PageNo - 1, 10
        .SetCellFontStyle COL_END_DEBIT_MONEY, ROW_PERIOD, PageNo - 1, 0
        .SetCellString COL_END_DEBIT_MONEY, ROW_PERIOD, PageNo - 1, "第 " & CStr(PageNo) & " 页"
        .SetCellAlign COL_END_DEBIT_MONEY, ROW_PERIOD, PageNo - 1, 34
        
        .MergeCells COL_END_DIRECTION, ROW_PERIOD, COL_END_BALANCE_MONEY, ROW_PERIOD
        .SetCellFont COL_END_DIRECTION, ROW_PERIOD, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
        .SetCellFontSize COL_END_DIRECTION, ROW_PERIOD, PageNo - 1, 10
        .SetCellFontStyle COL_END_DIRECTION, ROW_PERIOD, PageNo - 1, 0
        .SetCellString COL_END_DIRECTION, ROW_PERIOD, PageNo - 1, "第 " & CStr(PageNo) & " 页"
        .SetCellAlign COL_END_DIRECTION, ROW_PERIOD, PageNo - 1, 34
    'Head
        For i = ROW_HEAD1 To ROW_HEAD2
            For j = COL_START To COL_END
                .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
        
        '合并单元格
        
        .MergeCells COL_SUBJECTCODE, ROW_HEAD1, COL_SUBJECTCODE, ROW_HEAD2
        .MergeCells COL_SUBJECTNAME, ROW_HEAD1, COL_SUBJECTNAME, ROW_HEAD2
        .MergeCells COL_BEGIN_DEBIT_MONEY, ROW_HEAD1, COL_BEGIN_CREDIT_MONEY, ROW_HEAD1
        .MergeCells COL_BEGIN_DIRECTION, ROW_HEAD1, COL_BEGIN_DIRECTION, ROW_HEAD2
        .MergeCells COL_BEGIN_BALANCE_MONEY, ROW_HEAD1, COL_BEGIN_BALANCE_MONEY, ROW_HEAD2
        .MergeCells COL_HAPPEN_DEBIT_MONEY, ROW_HEAD1, COL_HAPPEN_CREDIT_MONEY, ROW_HEAD1
        .MergeCells COL_TOTAL_DEBIT_MONEY, ROW_HEAD1, COL_TOTAL_CREDIT_MONEY, ROW_HEAD1
        .MergeCells COL_END_DIRECTION, ROW_HEAD1, COL_END_DIRECTION, ROW_HEAD2
        .MergeCells COL_END_BALANCE_MONEY, ROW_HEAD1, COL_END_BALANCE_MONEY, ROW_HEAD2
        .MergeCells COL_END_DEBIT_MONEY, ROW_HEAD1, COL_END_CREDIT_MONEY, ROW_HEAD1
         
         
        .SetCellString COL_SUBJECTCODE, ROW_HEAD1, PageNo - 1, "科目编码"
        .SetCellString COL_SUBJECTNAME, ROW_HEAD1, PageNo - 1, "科目名称"
        .SetCellString COL_BEGIN_DEBIT_MONEY, ROW_HEAD1, PageNo - 1, "期初"
        .SetCellString COL_BEGIN_DEBIT_MONEY, ROW_HEAD2, PageNo - 1, "借方"
        .SetCellString COL_BEGIN_CREDIT_MONEY, ROW_HEAD2, PageNo - 1, "贷方"
        .SetCellString COL_BEGIN_DIRECTION, ROW_HEAD1, PageNo - 1, "方向"
        .SetCellString COL_BEGIN_BALANCE_MONEY, ROW_HEAD1, PageNo - 1, "期初余额"
        .SetCellString COL_HAPPEN_DEBIT_MONEY, ROW_HEAD1, PageNo - 1, "本期发生"
        .SetCellString COL_HAPPEN_DEBIT_MONEY, ROW_HEAD2, PageNo - 1, "借方"
        .SetCellString COL_HAPPEN_CREDIT_MONEY, ROW_HEAD2, PageNo - 1, "贷方"
        .SetCellString COL_TOTAL_DEBIT_MONEY, ROW_HEAD1, PageNo - 1, "累计发生"
        .SetCellString COL_TOTAL_DEBIT_MONEY, ROW_HEAD2, PageNo - 1, "借方"
        .SetCellString COL_TOTAL_CREDIT_MONEY, ROW_HEAD2, PageNo - 1, "贷方"
        .SetCellString COL_END_DEBIT_MONEY, ROW_HEAD1, PageNo - 1, "期末"
        .SetCellString COL_END_DEBIT_MONEY, ROW_HEAD2, PageNo - 1, "借方"
        .SetCellString COL_END_CREDIT_MONEY, ROW_HEAD2, PageNo - 1, "贷方"
        .SetCellString COL_END_DIRECTION, ROW_HEAD1, PageNo - 1, "方向"
        .SetCellString COL_END_BALANCE_MONEY, ROW_HEAD1, 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
                .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
            
            .SetCellNumType COL_BEGIN_DEBIT_MONEY, i, PageNo - 1, 1
            .SetCellSeparator COL_BEGIN_DEBIT_MONEY, i, PageNo - 1, 2
            .SetCellDigital COL_BEGIN_DEBIT_MONEY, i, PageNo - 1, 2
            .SetCellAlign COL_BEGIN_DEBIT_MONEY, i, PageNo - 1, 32 + 2
            
            .SetCellNumType COL_BEGIN_CREDIT_MONEY, i, PageNo - 1, 1
            .SetCellSeparator COL_BEGIN_CREDIT_MONEY, i, PageNo - 1, 2
            .SetCellDigital COL_BEGIN_CREDIT_MONEY, i, PageNo - 1, 2
            .SetCellAlign COL_BEGIN_CREDIT_MONEY, i, PageNo - 1, 32 + 2
            
            .SetCellAlign COL_BEGIN_DIRECTION, i, PageNo - 1, 36
            
            .SetCellNumType COL_BEGIN_BALANCE_AMOUNT, i, PageNo - 1, 1
            .SetCellSeparator COL_BEGIN_BALANCE_AMOUNT, i, PageNo - 1, 2
            .SetCellDigital COL_BEGIN_BALANCE_AMOUNT, i, PageNo - 1, 2
            .SetCellAlign COL_BEGIN_BALANCE_AMOUNT, i, PageNo - 1, 32 + 2
            
            .SetCellNumType COL_BEGIN_BALANCE_FOREIGN, i, PageNo - 1, 1
            .SetCellSeparator COL_BEGIN_BALANCE_FOREIGN, i, PageNo - 1, 2
            .SetCellDigital COL_BEGIN_BALANCE_FOREIGN, i, PageNo - 1, 2
            .SetCellAlign COL_BEGIN_BALANCE_FOREIGN, i, PageNo - 1, 32 + 2
            
            .SetCellNumType COL_BEGIN_BALANCE_MONEY, i, PageNo - 1, 1
            .SetCellSeparator COL_BEGIN_BALANCE_MONEY, i, PageNo - 1, 2
            .SetCellDigital COL_BEGIN_BALANCE_MONEY, i, PageNo - 1, 2
            .SetCellAlign COL_BEGIN_BALANCE_MONEY, i, PageNo - 1, 32 + 2
            
            .SetCellNumType COL_HAPPEN_DEBIT_AMOUNT, i, PageNo - 1, 1
            .SetCellSeparator COL_HAPPEN_DEBIT_AMOUNT, i, PageNo - 1, 2
            .SetCellDigital COL_HAPPEN_DEBIT_AMOUNT, i, PageNo - 1, 2
            .SetCellAlign COL_HAPPEN_DEBIT_AMOUNT, i, PageNo - 1, 32 + 2
            
            .SetCellNumType COL_HAPPEN_DEBIT_FOREIGN, i, PageNo - 1, 1
            .SetCellSeparator COL_HAPPEN_DEBIT_FOREIGN, i, PageNo - 1, 2
            .SetCellDigital COL_HAPPEN_DEBIT_FOREIGN, i, PageNo - 1, 2
            .SetCellAlign COL_HAPPEN_DEBIT_FOREIGN, i, PageNo - 1, 32 + 2
            
            .SetCellNumType COL_HAPPEN_DEBIT_MONEY, i, PageNo - 1, 1
            .SetCellSeparator COL_HAPPEN_DEBIT_MONEY, i, PageNo - 1, 2
            .SetCellDigital COL_HAPPEN_DEBIT_MONEY, i, PageNo - 1, 2
            .SetCellAlign COL_HAPPEN_DEBIT_MONEY, i, PageNo - 1, 32 + 2
            
            .SetCellNumType COL_HAPPEN_CREDIT_AMOUNT, i, PageNo - 1, 1
            .SetCellSeparator COL_HAPPEN_CREDIT_AMOUNT, i, PageNo - 1, 2
            .SetCellDigital COL_HAPPEN_CREDIT_AMOUNT, i, PageNo - 1, 3