frmac_dailyresult.frm

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

               If Not (.EOF And .BOF) Then
                 bRjz = .Fields("isrjz").value
               End If
               .Close
            End With
            Set rstRec = Nothing
            If bRjz Then
                Set frmP = New frmAC_BookResult
                frmP.usYear = glo.sOperateYear
                frmP.usFromMonth = Format(sMonth, "00")
                frmP.usToMonth = Format(sMonth, "00")
                frmP.usFromDate = GetPeriodFrom(CInt(sMonth))
                frmP.usToDate = GetPeriodTo(CInt(sMonth))
                frmP.usSubjectCode = sSubjCode
                frmP.usSubjectName = sSubjName
                frmP.usSubjectIndex = -1
                frmP.usIncludeNotRecord = True
                If m_bUnCheck Then
                    frmP.usIncludeNotRecord = True
                Else
                    frmP.usIncludeNotRecord = False
                End If
                frmP.ShowResult
            Else
                Set frmR = New frmAC_DetailResult
                frmR.usYear = glo.sOperateYear
                frmR.usFromMonth = sMonth
                frmR.usToMonth = sMonth
                frmR.uiGradeStart = 0
                frmR.uiGradeEnd = 10
                frmR.usSubjectCodeStart = sSubjCode
                frmR.usSubjectNameStart = sSubjName
                frmR.usNRFlag = True
                frmR.ubBlankKm = True
                frmR.Kmmc_set
                frmR.ShowResultbak
            End If
        End If
    End If
End Sub

Private Sub cllR_MouseRClick(ByVal col As Long, ByVal row As Long, ByVal updn As Long)
   If updn = False Then
        m_iCol = col
        m_iRow = row
        fMainForm.mnuBalanceResult.Visible = False
        fMainForm.mnuDetailResult.Visible = True
        fMainForm.mnuVoucherResult.Visible = False
        fMainForm.mnuDailyResult.Visible = True
        PopupMenu fMainForm.mnuQueryAccount
   End If
End Sub
Private Sub Form_Activate()
TbrControl False
End Sub

Private Sub Form_Deactivate()
TbrControl True
End Sub

Private Sub form_load()
    TbrControl False
    m_bFormLoad = True
'    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\Daily.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

'参数 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
        .SetRows FactRows, PageNo - 1
        .SetSelectMode PageNo - 1, 2
        .SetFixedCol COL_START, COL_SUBJECTNAME
        .SetFixedRow ROW_TITLE, ROW_HEAD2

'        .PrintSetOrient 1
        .ShowSideLabel 0, PageNo - 1
        .ShowTopLabel 0, PageNo - 1
    'Title
        .SetCellAlign COL_START, ROW_TITLE, PageNo - 1, 36
        .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, 9
        .MergeCells COL_START, ROW_TITLE, COL_END, ROW_TITLE
        .SetCellString COL_START, ROW_TITLE, PageNo - 1, m_sPrintSubjectName & "日报表"
        .SetRowHeight 0, pTitle.High * 10, ROW_TITLE, PageNo - 1
    'Comment
        .MergeCells COL_START, ROW_DATE, COL_END, ROW_DATE
        .MergeCells COL_START, ROW_PAGENO, COL_END - 1, ROW_PAGENO
        .SetCellAlign COL_START, ROW_DATE, PageNo - 1, 36
        .SetCellAlign COL_END, ROW_PAGENO, PageNo - 1, 34
        .SetCellFont COL_START, ROW_DATE, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
        .SetCellFontSize COL_START, ROW_DATE, PageNo - 1, 9
        .SetCellFontStyle COL_START, ROW_DATE, PageNo - 1, 0
        .SetCellString COL_START, ROW_DATE, PageNo - 1, "日 期: " & m_sDate
        .SetCellFont COL_END, ROW_PAGENO, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
        .SetCellFontSize COL_END, ROW_PAGENO, PageNo - 1, 9
        .SetCellFontStyle COL_END, ROW_PAGENO, PageNo - 1, 0
        .SetCellString COL_END, ROW_PAGENO, PageNo - 1, "第 " & CStr(PageNo) & " 页"
        
        .SetCellFont COL_START, ROW_PAGENO, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
        .SetCellFontSize COL_START, ROW_PAGENO, PageNo - 1, 9
        .SetCellFontStyle COL_START, ROW_PAGENO, PageNo - 1, 0
        
       
     '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
        
        '设置列宽
        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
        
        '合并单元格
        .MergeCells COL_SUBJECTCODE, ROW_HEAD1, COL_SUBJECTCODE, ROW_HEAD2
        .MergeCells COL_SUBJECTNAME, ROW_HEAD1, COL_SUBJECTNAME, ROW_HEAD2
        .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_END_DIRECTION, ROW_HEAD1, COL_END_DIRECTION, ROW_HEAD2
        .MergeCells COL_END_BALANCE_MONEY, ROW_HEAD1, COL_END_BALANCE_MONEY, ROW_HEAD2
         
        .SetCellString COL_SUBJECTCODE, ROW_HEAD1, PageNo - 1, "科目编码"
        .SetCellString COL_SUBJECTNAME, ROW_HEAD1, 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_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
            .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, 3
            .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, 3
            .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
            .SetCellAlign COL_HAPPEN_CREDIT_AMOUNT, i, PageNo - 1, 32 + 2
            
            .SetCellNumType COL_HAPPEN_CREDIT_FOREIGN, i, PageNo - 1, 1
            .SetCellSeparator COL_HAPPEN_CREDIT_FOREIGN, i, PageNo - 1, 2
            .SetCellDigital COL_HAPPEN_CREDIT_FOREIGN, i, PageNo - 1, 2
            .SetCellAlign COL_HAPPEN_CREDIT_FOREIGN, i, PageNo - 1, 32 + 2
            
            .SetCellNumType COL_HAPPEN_CREDIT_MONEY, i, PageNo - 1, 1
            .SetCellSeparator COL_HAPPEN_CREDIT_MONEY, i, PageNo - 1, 2
            .SetCellDigital COL_HAPPEN_CREDIT_MONEY, i, PageNo - 1, 2
            .SetCellAlign COL_HAPPEN_CREDIT_MONEY, i, PageNo - 1, 32 + 2
            
            .SetCellAlign COL_END_DIRECTION, i, PageNo - 1, 36
            
            .SetCellNumType COL_END_BALANCE_AMOUNT, i, PageNo - 1, 1
            .SetCellSeparator COL_END_BALANCE_AMOUNT, i, PageNo - 1, 2
            .SetCellDigital COL_END_BALANCE_AMOUNT, i, PageNo - 1, 3
            .SetCellAlign COL_END_BALANCE_AMOUNT, i, PageNo - 1, 32 + 2
            
            .SetCellNumType COL_END_BALANCE_FOREIGN, i, PageNo - 1, 1
            .SetCellSeparator COL_END_BALANCE_FOREIGN, i, PageNo - 1, 2
            .SetCellDigital COL_END_BALANCE_FOREIGN, i, PageNo - 1, 2
            .SetCellAlign COL_END_BALANCE_FOREIGN, i, PageNo - 1, 32 + 2