frmyh_yhwdzmx.frm

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

    dTotalYhJfje = 0
    dTotalYhDfje = 0
'    mfgYhdzd.Redraw = False
    mfgYhdzd.Rows = 1
    
    If bTheSameYear > 0 Then
        Set rstYhdzd = New ADODB.Recordset
        With rstYhdzd
            .CursorLocation = adUseClient
            .Open sSQLYhdzd, glo.cnnMain, adOpenStatic, adLockReadOnly
            If .RecordCount <> 0 Then
                .MoveFirst
                For i = 1 To .RecordCount
                    mfgYhdzd.AddItem Format(.Fields("rq").value, "yyyy-mm-dd") & vbTab & _
                                     Trim$("" & .Fields("jsfsCode").value) + " " + GetJsfsName(Trim$("" & .Fields("jsfsCode").value)) & vbTab & _
                                     Trim$("" & .Fields("bill").value) & vbTab & _
                                     IIf(.Fields("fx") = "借", Format(.Fields("je").value, "##,##0.00"), "") & vbTab & _
                                     IIf(.Fields("fx") = "贷", Format(.Fields("je").value, "##,##0.00"), "") & vbTab & _
                                     IIf(IsNull(.Fields("lqbz").value), "", IIf(.Fields("lqbz").value = 1, "○", "√")) & vbTab & _
                                     Trim$("" & .Fields("zy").value) & vbTab & i
                    If (.Fields("lqbz").value) > 0 Then
                        mfgYhdzd.row = i
                        For j = 0 To mfgYhdzd.Cols - 1
                            mfgYhdzd.col = j
                            mfgYhdzd.CellBackColor = &HFFFFC0
                        Next j
                    End If
                    If .Fields("fx").value = "借" Then
                        dTotalYhJfje = dTotalYhJfje + .Fields("je").value
                    Else
                        dTotalYhDfje = dTotalYhDfje + .Fields("je").value
                    End If
                    .MoveNext
                Next i
                mfgYhdzd.AddItem "合计：" & vbTab & "" & vbTab & "" & vbTab & _
                                 IIf(dTotalYhJfje = 0, "", Format(dTotalYhJfje, "##,##0.00")) & vbTab & _
                                 IIf(dTotalYhDfje = 0, "", Format(dTotalYhDfje, "##,##0.00")) & vbTab & _
                                 "" & vbTab & "" & vbTab & i
                mfgYhdzd.row = i
                For j = 0 To mfgYhdzd.Cols - 1
                    mfgYhdzd.col = j
                    mfgYhdzd.CellBackColor = &HC0FFC0       '淡绿色
                Next j
            End If
        End With
    End If
'    mfgYhdzd.Redraw = True
    mfgYhdzd.SelectionMode = flexSelectionByRow
End Sub

'填充单位日记账
Private Sub FillGridDwrjz(ByVal sSQLDwrjz As String)
    Dim rstDwrjz As ADODB.Recordset
    Dim dTotalDwJfje As Double                  '单位方合计借方金额
    Dim dTotalDwDfje As Double                  '单位方合计贷方金额
    Dim iRow As Integer
    
    dTotalDwJfje = 0
    dTotalDwDfje = 0
    mfgDwrjz.Rows = 1
    
    If bTheSameYear > 0 Then
        Set rstDwrjz = New ADODB.Recordset
        With rstDwrjz
            .CursorLocation = adUseClient
            .Open sSQLDwrjz, glo.cnnMain, adOpenStatic, adLockReadOnly
            If .RecordCount <> 0 Then
                .MoveFirst
                iRow = 0
                For i = 1 To .RecordCount
                    If FormatToDouble(.Fields("je").value) <> 0 Then
                        If (bTheSameYear = 1 And Format(.Fields("pzrq").value, "yyyy-mm-dd") >= Format(Yhdzqyrq, "yyyy-mm-dd")) _
                            Or bTheSameYear = 2 Then
                            
                            iRow = iRow + 1
                            mfgDwrjz.AddItem Format(.Fields("pzrq").value, "yyyy-mm-dd") & vbTab & _
                                             Format(.Fields("yhdz_date").value, "yyyy-mm-dd") & vbTab & _
                                             Trim$("" & .Fields("yhdz_jsfsCode").value) + " " + GetJsfsName(Trim$("" & .Fields("yhdz_jsfsCode").value)) & vbTab & _
                                             Trim$("" & .Fields("yhdz_bill").value) & vbTab & _
                                             IIf(.Fields("fx").value = "借", Format(.Fields("je").value, "##,##0.00"), "") & vbTab & _
                                             IIf(.Fields("fx").value = "贷", Format(.Fields("je").value, "##,##0.00"), "") & vbTab & _
                                             IIf(IsNull(.Fields("yhdz_lqbz").value), "", IIf(.Fields("yhdz_lqbz").value = 1, "○", "√")) & vbTab & _
                                             .Fields("pzzl").value & vbTab & _
                                             .Fields("pzbh").value & vbTab & _
                                             Trim$("" & .Fields("pzzy").value) & vbTab & iRow
                            If (.Fields("yhdz_lqbz").value) > 0 Then
                                mfgDwrjz.row = iRow
                                For j = 0 To mfgDwrjz.Cols - 1
                                    mfgDwrjz.col = j
                                    mfgDwrjz.CellBackColor = &HFFFFC0
                                Next j
                            End If
                            If .Fields("fx").value = "借" Then
                                dTotalDwJfje = dTotalDwJfje + .Fields("je").value
                            Else
                                dTotalDwDfje = dTotalDwDfje + .Fields("je").value
                            End If
                        End If
                    End If
                    .MoveNext
                Next i
                mfgDwrjz.AddItem "合计：" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & _
                                 IIf(dTotalDwJfje = 0, "", Format(dTotalDwJfje, "##,##0.00")) & vbTab & _
                                 IIf(dTotalDwDfje = 0, "", Format(dTotalDwDfje, "##,##0.00")) & vbTab & _
                                 "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & iRow + 1
                mfgDwrjz.row = iRow + 1
                For j = 0 To mfgDwrjz.Cols - 1
                    mfgDwrjz.col = j
                    mfgDwrjz.CellBackColor = &HC0FFC0           '淡绿色
                Next j
            End If
        End With
    End If
    mfgDwrjz.SelectionMode = flexSelectionByRow
End Sub

Private Sub Form_Resize()
    If Me.WindowState <> 1 Then
        If Me.Height < 5000 Then
            Me.Height = 5000
        End If
        If Me.Width < 7000 Then
            Me.Width = 7000
        End If
        lblYhdzmc.Left = (Me.ScaleWidth - lblYhdzmc.Width) / 2
        cboViewselect.Left = Me.ScaleWidth - cboViewselect.Width - 30
        stbYhdzcx.Width = Me.ScaleWidth - 2 * stbYhdzcx.Left
        stbYhdzcx.Height = Me.ScaleHeight - 1935
        mfgDwrjz.Width = stbYhdzcx.Width - 30
        mfgDwrjz.Height = stbYhdzcx.Height - 820
        mfgYhdzd.Width = stbYhdzcx.Width - 30
        mfgYhdzd.Height = stbYhdzcx.Height - 420
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
   Unload Me
End Sub

Private Sub mnuExit_Click()
    Call Operate("EXIT")
End Sub

Private Sub mnuHelp_Click()
    Call Operate("HELP")
End Sub

Private Sub mnuPreview_Click()
    Call Operate("PREVIEW")
End Sub

Private Sub mnuPrint_Click()
    Call Operate("PRINT")
End Sub

Private Sub stbYhdzcx_Click(PreviousTab As Integer)
    With stbYhdzcx
        If .Tab <> PreviousTab Then
            IsChangeCurrentTable = True
        End If
        If .Tab = 0 Then
            lblYhdzmc.Caption = "银行对账单"
        Else
            lblYhdzmc.Caption = "单位日记账"
        End If
    End With
End Sub

Private Sub tbrCxyhdz_ButtonClick(ByVal Button As MSComctlLib.Button)
    Call Operate(UCase(Button.Key))
End Sub

Private Sub Operate(strKey As String)
    Select Case strKey
        Case "PRINT"
              Call ShowPrintResult("PRINT")
        Case "PREVIEW"
              Call ShowPrintResult("PREVIEW")
        Case "HELP"
            Call ShowHelp
        Case "EXIT"
            Unload Me
    End Select
End Sub

'设置打印银行对账单表格
Private Sub SetGrid_YH(ByVal PageNo As Long, ByVal sTitle As String, Optional ByVal FactRows As Long)
    Dim i As Long, j As Long
    Dim iColWidth() As Integer
    
    With frmP.Cllr
        .SetCurSheet PageNo - 1
        .SetRows FactRows, PageNo - 1
        .SetCols COL_END_YH + 2, PageNo - 1
        .PrintSetMargin 10, 10, 10, 10
        .ShowSideLabel 0, PageNo - 1
        .ShowTopLabel 0, PageNo - 1
        .SetDefaultFont .FindFontIndex("宋体", 1), 10
        
    'Title
        .SetCellAlign COL_START_YH, ROW_TITLE, PageNo - 1, 36
        .SetCellFont COL_START_YH, ROW_TITLE, PageNo - 1, .FindFontIndex("黑体", 1)
        .SetCellFontSize COL_START_YH, ROW_TITLE, PageNo - 1, 19
        .SetCellFontStyle COL_START_YH, ROW_TITLE, PageNo - 1, 10
        .MergeCells COL_START_YH, ROW_TITLE, COL_END_YH, ROW_TITLE
        .SetCellString COL_START_YH, ROW_TITLE, PageNo - 1, "银行对账单" & sTitle
        .SetRowHeight 1, 40, ROW_TITLE, PageNo - 1
    'Comment
        .MergeCells COL_START_YH, ROW_SUBJNAME, COL_DEBIT_MONEY_YH, ROW_SUBJNAME
        .MergeCells COL_CREDIT_MONEY_YH, ROW_SUBJNAME, COL_END_YH, ROW_SUBJNAME
       .SetCellFont COL_START_YH, ROW_SUBJNAME, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
        .SetCellFontSize COL_START_YH, ROW_SUBJNAME, PageNo - 1, 11
        .SetCellFontStyle COL_START_YH, ROW_SUBJNAME, PageNo - 1, 0
        .SetCellAlign COL_CREDIT_MONEY_YH, ROW_SUBJNAME, PageNo - 1, 34
        .SetCellFont COL_CREDIT_MONEY_YH, ROW_SUBJNAME, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
        .SetCellFontSize COL_CREDIT_MONEY_YH, ROW_SUBJNAME, PageNo - 1, 11
        .SetCellFontStyle COL_CREDIT_MONEY_YH, ROW_SUBJNAME, PageNo - 1, 0
        
        .SetCellString COL_START_YH, ROW_SUBJNAME, PageNo - 1, "银行科目：" & sKmName
        .SetCellString COL_CREDIT_MONEY_YH, ROW_SUBJNAME, PageNo - 1, "第 " & CStr(PageNo) & " 页"
    
    'Head
        For i = ROW_HEAD1 To ROW_HEAD1
            .SetRowHeight 1, 30, i, PageNo - 1
            For j = COL_START_YH To COL_END_YH
                .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, 11
                .SetCellFontStyle j, i, PageNo - 1, 0
            Next j
        Next i
        
        '设置列宽
        iColWidth = GetColWidth(COLWIDTH_YH)
        For i = LBound(iColWidth) To UBound(iColWidth)
            .SetColWidth 1, iColWidth(i), i + 1, PageNo - 1
        Next i
        .SetColWidth 1, 1, COL_END_YH + 1, PageNo - 1
        
        '设置内容
        .SetCellString COL_RQ, ROW_HEAD1, PageNo - 1, "日期"
        .SetCellString COL_JSFS_YH, ROW_HEAD1, PageNo - 1, "结算方式"
        .SetCellString COL_BILL_NUMBER_YH, ROW_HEAD1, PageNo - 1, "票号"
        .SetCellString COL_DEBIT_MONEY_YH, ROW_HEAD1, PageNo - 1, "借方金额"
        .SetCellString COL_CREDIT_MONEY_YH, ROW_HEAD1, PageNo - 1, "贷方金额"
        .SetCellString COL_LQBZ_YH, ROW_HEAD1, PageNo - 1, "两清标志"
        .SetCellString COL_ZY, ROW_HEAD1, PageNo - 1, "摘要"
    'Text
        For i = ROW_GRID_START To .GetRows(PageNo - 1) - 1
            For j = COL_START_YH To COL_END_YH
             .SetCellFont j, i, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
             .SetCellFontSize j, i, PageNo - 1, 11
             .SetCellFontStyle j, i, PageNo - 1, 0
            Next j
            .SetCellAlign COL_RQ, i, PageNo - 1, 36
            .SetCellAlign COL_JSFS_YH, i, PageNo - 1, 36
            .SetCellAlign COL_BILL_NUMBER_YH, i, PageNo - 1, 36
            .SetCellAlign COL_DEBIT_MONEY_YH, i, PageNo - 1, 34
            .SetCellAlign COL_CREDIT_MONEY_YH, i, PageNo - 1, 34
            .SetCellAlign COL_LQBZ_YH, i, PageNo - 1, 36
            .SetCellAlign COL_ZY, i, PageNo - 1, 33
        Next i
        .MergeCells .GetCols(PageNo - 1) - 1, ROW_HEAD1, .GetCols(PageNo - 1) - 1, .GetRows(PageNo - 1) - 1
        
    'Draw Line
        .DrawGridLine COL_START_YH, ROW_HEAD1, COL_END_YH, .GetRows(PageNo - 1) - 1, 1, 3, .FindColorIndex(RGB(0, 0, 0), 1)
        .DrawGridLine COL_RQ, ROW_HEAD1, COL_END_YH, .GetRows(PageNo - 1) - 2, 5, 2, .FindColorIndex(RGB(0, 0, 0), 1)
        .DrawGridLine COL_JSFS_YH, ROW_HEAD1, COL_END_YH, .GetRows(PageNo - 1) - 1, 2, 2, .FindColorIndex(RGB(0, 0, 0), 1)
        .SetRows .GetRows(PageNo - 1) + 1, PageNo - 1
        i = .GetRows(PageNo - 1) - 1
        .MergeCells COL_START_YH, i, COL_DEBIT_MONEY_YH, i
        .MergeCells COL_CREDIT_MONEY_YH, i, COL_END_YH, i
        .SetCellAlign COL_START_YH, i, PageNo - 1, 33
        .SetCellAlign COL_CREDIT_MONEY_YH, i, PageNo - 1, 34
        .SetCellFont COL_START_YH, i, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
        .SetCellFontSize COL_START_YH, i, PageNo - 1, 11
        .SetCellFontStyle COL_START_YH, i, PageNo - 1, 0
        .SetCellFont COL_CREDIT_MONEY_YH, i, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
        .SetCellFontSize COL_CREDIT_MONEY_YH, i, PageNo - 1, 11
        .SetCellFontStyle COL_CREDIT_MONEY_YH, i, PageNo - 1, 0
        .SetCellString COL_START_YH, i, PageNo - 1, "核算单位：" & sEnterName
        .SetCellString COL_CREDIT_MONEY_YH, i, PageNo - 1, "打印日期：" & Format(Date, "yyyy-mm-dd")
        .ShowPageBreak False
    End With