frmac_detailselectprint2.frm

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

            Case "外币金额式"
                Call DoRedrawCellHead(m_iColWidth, COL_DEBIT_FOREIGN, COL_DEBIT_MONEY, _
                        COL_CREDIT_FOREIGN, COL_CREDIT_MONEY, COL_BALANCE_FOREIGN, COL_BALANCE_MONEY, _
                        ROW_HEAD1, ROW_HEAD1)
            Case "数量外币式"
                Call DoRedrawCellHead(m_iColWidth, COL_DEBIT_AMOUNT, COL_DEBIT_MONEY, _
                        COL_CREDIT_AMOUNT, COL_CREDIT_MONEY, COL_BALANCE_AMOUNT, COL_BALANCE_MONEY, _
                        ROW_HEAD1, ROW_HEAD1)
        End Select
    End If
End Sub

Private Sub cboAccountFormat_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then SendKeys "{tab}"

End Sub



Private Sub Chk_BalaNHappen_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then SendKeys "{tab}"

End Sub

Private Sub Chk_NbalaHappen_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then SendKeys "{tab}"

End Sub

Private Sub chkEndLevelSubject_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then SendKeys "{tab}"

End Sub



Private Sub chkModePrint_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
        SendKeys "{tab}"
    
    End If
End Sub


Private Sub chkPrintDetial_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
        SendKeys "{tab}"
    
    End If
End Sub

Private Sub cmdHelp_Click()
Cllr.PrintPageSetup
End Sub

Private Sub cmdpreview_Click()
Dim i As Integer
Dim kmdm() As String
Dim Kmmc() As String
    If SqlStringValid(txtSubjectStart.text) = False Then
        MsgBox "起始科目不能含有非法的字符！", vbInformation, "提示"
        Exit Sub
    End If
    If SqlStringValid(txtSubjectEnd.text) = False Then
        MsgBox "终止科目不能含有非法的字符！", vbInformation, "提示"
        Exit Sub
    End If
    If IsNumeric(txtPageStart) = False Then MsgBox "请在起始页号输入数字！", vbInformation, "提示": Exit Sub
    If Printers.Count = 0 Then
          MsgBox "请安置打印机！", vbInformation
          Exit Sub
    End If
    If Not Valid Then
      MsgBox "开始级次不能大于结束级次！"
      Exit Sub
    End If
    If Not txt_kmcheck Then
        Exit Sub
    End If
    If chkEndLevelSubject.value <> 0 Then
        m_bMjFlag = True
    Else
        m_bMjFlag = False
    End If
    Call Kmmc_set
     
    m_sYear = txtYear.text
    m_sFromMonth = Format(txtMonthFrom.text, "00")
    m_sToMonth = Format(txtMonthTo.text, "00")
    i = 1
    If i <= UBound(arySubDetail) Then
         m_sCurSubjectCode = arySubDetail(i).sSubjectCode
         m_sCurSubjectName = arySubDetail(i).sSubjectName
    End If
    If chkModePrint.value = 1 Then
        ReDim kmdm(UBound(arySubDetail) + 1)
        ReDim Kmmc(UBound(arySubDetail) + 1)
        For i = 0 To UBound(arySubDetail)
            kmdm(i) = arySubDetail(i).sSubjectCode
            Kmmc(i) = arySubDetail(i).sSubjectName
        Next i
        frmAC_DetailModePrint.usYear = txtYear.text
        frmAC_DetailModePrint.usJcFlag = False
        frmAC_DetailModePrint.usFromMonth = m_sFromMonth
        frmAC_DetailModePrint.usToMonth = m_sToMonth
        frmAC_DetailModePrint.usSubjectCodeStart = m_sCurSubjectCode
        frmAC_DetailModePrint.usSubjectNameStart = m_sCurSubjectName
        frmAC_DetailModePrint.usSubjectCodeEnd = m_sCurSubjectCode
        frmAC_DetailModePrint.usSubjectNameEnd = m_sCurSubjectName
        frmAC_DetailModePrint.usNRFlag = False
        frmAC_DetailModePrint.CopyKmArray kmdm, Kmmc
        frmAC_DetailModePrint.Cllr.OpenFile App.Path & "\CellFiles\DetailModePrint.cll", ""
        frmAC_DetailModePrint.ubVisible = False
        frmAC_DetailModePrint.PrintEnd = Val(txtPrintEnd)
        frmAC_DetailModePrint.PrintStart = Val(txtPrintStart)
        If Chk_NbalaHappen.value = 1 Then
            frmAC_DetailModePrint.ubNoHaveQc = True
        Else
            frmAC_DetailModePrint.ubNoHaveQc = False
        End If
        If Chk_BalaNHappen.value = 1 Then
            frmAC_DetailModePrint.ubHaveQc = True
        Else
            frmAC_DetailModePrint.ubHaveQc = False
        End If
        frmAC_DetailModePrint.uModePreview CInt(txtPageStart) - 1
   Else
        Call ShowResult(CInt(txtPageStart) - 1)
        Call uPreview
   End If
End Sub

Private Sub cmdPrint_Click()
   Dim i As Integer
   Dim kmdm() As String
   Dim Kmmc() As String
   Dim iPageStart As Integer
   m_iPrintedPages = 0
    If SqlStringValid(txtSubjectStart.text) = False Then
        MsgBox "起始科目不能含有非法的字符！", vbInformation, "提示"
        Exit Sub
    End If
    If SqlStringValid(txtSubjectEnd.text) = False Then
        MsgBox "终止科目不能含有非法的字符！", vbInformation, "提示"
        Exit Sub
    End If
   If IsNumeric(txtPageStart) = False Then MsgBox "请在起始页号输入数字！", vbInformation, "提示": Exit Sub
   If IsNumeric(txtPrintStart) = False Then MsgBox "请在打印起始页输入数字！", vbInformation, "提示": Exit Sub
   If txtPrintStart <= 0 Then MsgBox "打印起始页必须大于0！", vbInformation, "提示": Exit Sub
   If Printers.Count = 0 Then
        MsgBox "请安置打印机！", vbInformation
        Exit Sub
   End If
   If Not Valid Then
        MsgBox "开始级次不能大于结束级次！"
        Exit Sub
   End If
   If Not txt_kmcheck Then
        Exit Sub
   End If
   '设置末级科目是否
   If chkEndLevelSubject.value <> 0 Then
      m_bMjFlag = True
   Else
      m_bMjFlag = False
   End If
   Call Kmmc_set
   iPageStart = CInt(txtPageStart) - 1
   m_sYear = txtYear.text
   m_sFromMonth = Format(txtMonthFrom.text, "00")
   m_sToMonth = Format(txtMonthTo.text, "00")
   i = 1
   Screen.MousePointer = 11
   If Not (Check1.value = 1) Then
       If chkModePrint.value = 1 Then           'chkModePrint.value=1：套打
            ReDim kmdm(UBound(arySubDetail) + 1)
            ReDim Kmmc(UBound(arySubDetail) + 1)
            For i = 0 To UBound(arySubDetail)
                kmdm(i) = arySubDetail(i).sSubjectCode
                Kmmc(i) = arySubDetail(i).sSubjectName
            Next i
            frmAC_DetailModePrint.usYear = txtYear.text
            frmAC_DetailModePrint.usJcFlag = False
            frmAC_DetailModePrint.usFromMonth = m_sFromMonth
            frmAC_DetailModePrint.usToMonth = m_sToMonth
            frmAC_DetailModePrint.usSubjectCodeStart = m_sCurSubjectCode
            frmAC_DetailModePrint.usSubjectNameStart = m_sCurSubjectName
            frmAC_DetailModePrint.usSubjectCodeEnd = m_sCurSubjectCode
            frmAC_DetailModePrint.usSubjectNameEnd = m_sCurSubjectName
            frmAC_DetailModePrint.usNRFlag = False
            frmAC_DetailModePrint.PrintStart = Val(txtPrintStart)
            frmAC_DetailModePrint.PrintEnd = Val(txtPrintEnd)
            frmAC_DetailModePrint.CopyKmArray kmdm, Kmmc
            frmAC_DetailModePrint.ubVisible = False
            If Chk_NbalaHappen.value = 1 Then
                frmAC_DetailModePrint.ubNoHaveQc = True
            Else
                frmAC_DetailModePrint.ubNoHaveQc = False
            End If
            If Chk_BalaNHappen.value = 1 Then
                frmAC_DetailModePrint.ubHaveQc = True
            Else
                frmAC_DetailModePrint.ubHaveQc = False
            End If
            frmAC_DetailModePrint.ubPrintDetail = (chkPrintDetial.value = 1)
            iPageStart = frmAC_DetailModePrint.uModePrint(iPageStart)
            Unload frmAC_DetailModePrint
       Else
            For i = 1 To UBound(arySubDetail)
               m_sCurSubjectCode = arySubDetail(i).sSubjectCode
               m_sCurSubjectName = arySubDetail(i).sSubjectName
               If arySubDetail(i).IsEndKm = True Or chkPrintDetial.value = 1 Then
                   m_bQcBalance = False
                   m_bBqHappen = False
                   iPageStart = ShowResult(iPageStart)
                    '期初无余额，本期无发生也打印
                      If Not m_bQcBalance And Not m_bBqHappen Then
                          If Chk_NbalaHappen.value = 1 Then
    '                           CllR.SaveFile App.Path & "\CellFiles\MXZ-" & m_sCurSubjectCode, 1
                                udoPrint
                          Else
                            iPageStart = iPageStart - 1
                          End If
                      End If
                      '期初有余额，本期无发生也打印
                      If m_bQcBalance And Not m_bBqHappen Then
                          If Chk_BalaNHappen.value = 1 Then
    '                           CllR.SaveFile App.Path & "\CellFiles\MXZ-" & m_sCurSubjectCode, 1
                                udoPrint
                          Else
                            iPageStart = iPageStart - 1
                          End If
                      End If
                     '期初有余额，本期有发生也打印
                     If m_bBqHappen Then
    '                     CllR.SaveFile App.Path & "\CellFiles\MXZ-" & m_sCurSubjectCode, 1
                         udoPrint
                     End If
                     Call SetAccountFormat(cboAccountFormat, m_bAmount, m_bForeign)
               Else
                    iPageStart = ShowGeneralResult(iPageStart)
                    '期初无余额，本期无发生也打印
                    If Not m_bQcBalance And Not m_bBqHappen Then
                        If Chk_NbalaHappen.value = 1 Then
    '                          CllR.SaveFile App.Path & "\CellFiles\MXZ-" & m_sCurSubjectCode, 1
                              udoPrint
                        Else
                            iPageStart = iPageStart - 1
                        End If
                    End If
                    '期初有余额，本期无发生也打印
                    If m_bQcBalance And Not m_bBqHappen Then
                        If Chk_BalaNHappen.value = 1 Then
    '                          CllR.SaveFile App.Path & "\CellFiles\MXZ-" & m_sCurSubjectCode, 1
                              udoPrint
                         Else
                            iPageStart = iPageStart - 1
                        End If
                    End If
                     '期初有余额，本期有发生也打印
                     If m_bBqHappen Then
    '                     CllR.SaveFile App.Path & "\CellFiles\MXZ-" & m_sCurSubjectCode, 1
                         udoPrint
                     End If
                     Call SetAccountFormat(cboAccountFormat, m_bAmount, m_bForeign)
               End If
           Next i
       End If
   Else
         
               m_sCurSubjectCode = arySubDetail(1).sSubjectCode
               m_sCurSubjectName = arySubDetail(1).sSubjectName
               m_sCurSubjectCode1 = arySubDetail(UBound(arySubDetail)).sSubjectCode
               m_sCurSubjectName1 = arySubDetail(UBound(arySubDetail)).sSubjectName
               
               
              ' If chkPrintDetial.value = 1 Then
                  
                   iPageStart = ShowResult1(iPageStart)
           
                 '    Call SetAccountFormat(cboAccountFormat, m_bAmount, m_bForeign)
               
              ' Else
              '      iPageStart = ShowGeneralResult(iPageStart)
                   
               '      Call SetAccountFormat(cboAccountFormat, m_bAmount, m_bForeign)
              ' End If
               
           
            ExportToExcel Cllr
       
   End If
   fMainForm.MousePointer = vbDefault
   Screen.MousePointer = vbDefault
End Sub

Private Sub cmdSubjectEnd_Click()
    With frmUSU_GeneralKmHelp
        .usCondition = "1=1"
        .ubSelAll = True
        .Show 1
        If .Valid Then
            txtSubjectEnd.text = .SubjectCode & "=" & .SubjectName
        End If
    End With
End Sub

Private Sub cmdSubjectStart_Click()
    With frmUSU_GeneralKmHelp
        .usCondition = "1=1"
        .ubSelAll = True
        .Show 1
        If .Valid Then
            txtSubjectStart.text = .SubjectCode & "=" & .SubjectName
        End If
    End With
End Sub

Private Sub form_load()
    Dim rstTemp As ADODB.Recordset
    Dim sSQL As String
    Dim i As Integer
    
    Set CSubject = New clsSubject
    '年份设计为不允许修改
     m_bFormLoad = True
    Set rstTemp = New ADODB.Recordset
    rstTemp.CursorLocation = adUseClient
    sSQL = "SELECT * FROM tSYS_SubSysUsed WHERE AccountID = '" & glo.sAccountID & _