+

VB财务软件系统下载源代码提供自由下载使用学习

        End If
        If IsNull(![cPAccID]) Then
          edtFxdw = ""
        Else
          edtFxdw = AccIDToUnitName(![cPAccID])
        End If
        If edtSxzh <> "" Then
            edtBib = AccToExch(edtSxzh)
        Else
            If edtFxzh <> "" Then
               edtBib = AccToExch(edtFxzh)
            End If
        End If
        edtHl = ![nFrat]
        edtLldm = ![cIntrID]
        edtDigest = IIf(IsNull(![cDigest]), "", ![cDigest])
        iArtype_Cad = ![iartyp]
        edtFrom = Format(![dFrom], "YYYY-MM-DD")
        edtTo = Format(![dTo], "YYYY-MM-DD")
        edtJe = Format(![mMoney], "#0.00")
        edtBje = Format(![mMoney_F], "#0.00")
        Label1(3) = IIf(IsNull(![cBookCode]), "", ![cBookCode])
        Label1(4) = ![cBillCode]
        Label1(2) = IIf(IsNull(![cCheckCode]), "", ![cCheckCode])
    End With
    blnGetRecord = False
    blnSavFlag = False
    blnAddFlag = False
       oV.SetButtonStatus Checkqx, blnSavFlag, blnAddFlag, Toolbar1, Combo1, mCopy.blnCopy, Label1(2)
    SetControlsStatus
    On Error Resume Next
    edtRq.SetFocus
    On Error GoTo 0
'    Set oAcc = Nothing       'Cuidong 2000/08/10
    Set RsBank = Nothing      'Cuidong 2000/08/10
End Sub

Private Sub edtBib_Change()
   If edtBib = "" Then
       edtHl = ""
       edtHl.Locked = True
   Else
       edtHl.NumPoint = Gethldec(edtBib)
       edtHl = GetCurHl(edtBib, edtRq)
       edtHl.Locked = False
   End If
   If ZjAccInfo.zjStandExch = edtBib Then
      edtHl.Locked = True
      edtHl = 1
   End If
   If Not blnSavFlag And Not blnGetRecord Then
       Combo1.Visible = False
       edtYwbh.Visible = True
       blnSavFlag = True
          oV.SetButtonStatus Checkqx, blnSavFlag, blnAddFlag, Toolbar1, Combo1, mCopy_binCopy, Label1(2)
   End If
End Sub

Private Sub edtBib_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        SendKeys "{Tab}", False
        KeyAscii = 0
        Exit Sub
    End If
End Sub

Private Sub edtBje_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        SendKeys "{Tab}", False
        KeyAscii = 0
        Exit Sub
    End If
End Sub

Private Sub edtCad_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        SendKeys "{Tab}", False
        KeyAscii = 0
        Exit Sub
    End If
End Sub

Private Sub edtDigest_Change()
   If Not blnSavFlag And Not blnGetRecord Then
       Combo1.Visible = False
       edtYwbh.Visible = True
       blnSavFlag = True
          oV.SetButtonStatus Checkqx, blnSavFlag, blnAddFlag, Toolbar1, Combo1, mCopy_binCopy, Label1(2)
   End If
End Sub

Private Sub edtDigest_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        SendKeys "{Tab}", False
        KeyAscii = 0
        Exit Sub
    End If
End Sub

Private Sub edtDjbh_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        SendKeys "{Tab}", False
        KeyAscii = 0
        Exit Sub
    End If
End Sub

Private Sub edtDjbh_LostFocus()
   If edtDjbh <> "" Then
      edtDjbh = String(8 - Len(edtDjbh), "0") & edtDjbh
      If Combo2.ListIndex = 0 Or Not blnAddFlag Then Exit Sub
      Dim sqlTemp As String, rsTemp As New UfRecordset, id As Integer
      Select Case Combo2.ListIndex

         Case 1:  ' 银行贷款
            sqlTemp = "SELECT * FROM FD_Cred WHERE [cCreID]='05" & edtDjbh & "'"
            Set rsTemp = dbsZJ.OpenRecordset(sqlTemp, dbOpenSnapshot)
            If rsTemp.EOF Then
               MsgBox "此笔业务未发生，不能生成利息单！", vbInformation, zjGl_Name
               SetTxtFocus edtDjbh
            Else
               edtFxzh = rsTemp![cAccID]
               edtFxdw = AccIDToUnitName(edtFxzh)
               edtBib = AccToExch(edtFxzh)
               edtLldm = Wgetlldm(edtFxzh)
               edtCad = IIf(IsNull(rsTemp![cCadID]), "", rsTemp![cCadID])
               edtYqjx = Getjxfs(rsTemp![iartyp])
               iArtype_Cad = rsTemp![iartyp]
               dHandDateFrom = rsTemp![dbill_date]
            End If
         Case 2:
            sqlTemp = "SELECT * FROM FD_Cred WHERE [cCreID]='06" & edtDjbh & "'"
            Set rsTemp = dbsZJ.OpenRecordset(sqlTemp, dbOpenSnapshot)
            If rsTemp.EOF Then
               MsgBox "此笔业务未发生，不能生成利息单！", vbInformation, zjGl_Name
               SetTxtFocus edtDjbh
            Else
               edtFxzh = rsTemp![cAccID]
               edtFxdw = AccIDToUnitName(edtFxzh)
               edtBib = AccToExch(edtFxzh)
               edtLldm = Wgetlldm(edtFxzh)
               edtCad = IIf(IsNull(rsTemp![cCadID]), "", rsTemp![cCadID])
               edtYqjx = Getjxfs(rsTemp![iartyp])
               iArtype_Cad = rsTemp![iartyp]
               dHandDateFrom = rsTemp![dbill_date]
            End If
         Case 3:  ' 内部拆借
            sqlTemp = "SELECT * FROM FD_UnwDeb WHERE [cUnwID]='07" & edtDjbh & "'"
            Set rsTemp = dbsZJ.OpenRecordset(sqlTemp, dbOpenSnapshot)
            If rsTemp.EOF Then
               MsgBox "此笔业务未发生，不能生成利息单！", vbInformation, zjGl_Name
               SetTxtFocus edtDjbh
            Else
'              edtSxzh = rsTemp![cGAccID] 'cuidong 2001.01.13
               edtSxzh = rsTemp![cPAccID] 'cuidong 2001.01.13
               edtSxdw = AccIDToUnitName(edtSxzh)
'              edtFxzh = rsTemp![cPAccID] 'cuidong 2001.01.13
               edtFxzh = rsTemp![cGAccID] 'cuidong 2001.01.13
               edtFxdw = AccIDToUnitName(edtFxzh)
               edtBib = AccToExch(edtSxzh)
               edtLldm = Wgetlldm(edtSxzh)
               dHandDateFrom = rsTemp![dbill_date]
            End If
      End Select
   End If
End Sub

Private Sub edtFrom_Change()
   If Not blnSavFlag And Not blnGetRecord Then
       Combo1.Visible = False
       edtYwbh.Visible = True
       blnSavFlag = True
          oV.SetButtonStatus Checkqx, blnSavFlag, blnAddFlag, Toolbar1, Combo1, mCopy_binCopy, Label1(2)
   End If

End Sub

Private Sub edtFrom_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        SendKeys "{Tab}", False
        KeyAscii = 0
        Exit Sub
    End If
End Sub

Private Sub edtFrom_LostFocus()
   If edtFrom <> "" Then
      edtFrom = ForDate(edtFrom)
      If IsDate(edtFrom) Then
         edtFrom = FormatDate(edtFrom)
'      Else
'         MsgBox "日期非法，请检查！", vbInformation
'         SetTxtFocus edtFrom
      End If
   End If
End Sub

Private Sub edtFxdw_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        SendKeys "{Tab}", False
        KeyAscii = 0
        Exit Sub
    End If
End Sub

Private Sub edtFxzh_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        SendKeys "{Tab}", False
        KeyAscii = 0
        Exit Sub
    End If
End Sub

Private Sub edtHl_Change()
   On Error Resume Next
   edtBje = edtJe * edtHl
   If Err <> 0 Then edtBje = ""
   On Error GoTo 0
   If Not blnSavFlag And Not blnGetRecord Then
       Combo1.Visible = False
       edtYwbh.Visible = True
       blnSavFlag = True
          oV.SetButtonStatus Checkqx, blnSavFlag, blnAddFlag, Toolbar1, Combo1, mCopy_binCopy, Label1(2)
   End If
End Sub

Private Sub edtHl_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        SendKeys "{Tab}", False
        KeyAscii = 0
        Exit Sub
    End If
    If KeyAscii = Asc("-") Then KeyAscii = 0
End Sub

Private Sub edtJe_Change()
   On Error Resume Next
   edtBje = edtJe * edtHl
   If Err <> 0 Then edtBje = ""
   On Error GoTo 0
   If Not blnSavFlag And Not blnGetRecord Then
       Combo1.Visible = False
       edtYwbh.Visible = True
       blnSavFlag = True
          oV.SetButtonStatus Checkqx, blnSavFlag, blnAddFlag, Toolbar1, Combo1, mCopy_binCopy, Label1(2)
   End If
End Sub

Private Sub edtJe_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        SendKeys "{Tab}", False
        KeyAscii = 0
        Exit Sub
    End If
End Sub

Private Sub edtLldm_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        SendKeys "{Tab}", False
        KeyAscii = 0
        Exit Sub
    End If
End Sub

Private Sub edtRq_Change()
   bRq = True
   If Not blnSavFlag And Not blnGetRecord Then
       Combo1.Visible = False
       edtYwbh.Visible = True
       blnSavFlag = True
          oV.SetButtonStatus Checkqx, blnSavFlag, blnAddFlag, Toolbar1, Combo1, mCopy_binCopy, Label1(2)
   End If
   
End Sub

Private Sub edtRq_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = vbKeyF2 Then
      Command1(0).Value = True
      edtRq.SetFocus
   End If

End Sub

Private Sub edtRq_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        SendKeys "{Tab}", False
        KeyAscii = 0
        Exit Sub
    End If
End Sub

Private Sub edtRq_LostFocus()
   If edtRq <> "" And bRq Then
      bRq = False
      edtRq = ForDate(edtRq)
      If IsDate(edtRq) Then
         edtRq = FormatDate(edtRq)
      Else
         MsgBox "日期非法，请检查！", vbInformation, zjGl_Name
         SetTxtFocus edtRq
      End If
   End If
End Sub

Private Sub edtSxdw_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        SendKeys "{Tab}", False
        KeyAscii = 0
        Exit Sub
    End If
End Sub

Private Sub edtSxzh_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        SendKeys "{Tab}", False
        KeyAscii = 0
        Exit Sub
    End If
End Sub

Private Sub edtTo_Change()
   If Not blnSavFlag And Not blnGetRecord Then
       Combo1.Visible = False
       edtYwbh.Visible = True
       blnSavFlag = True
          oV.SetButtonStatus Checkqx, blnSavFlag, blnAddFlag, Toolbar1, Combo1, mCopy_binCopy, Label1(2)
   End If
End Sub

Private Sub edtTo_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        SendKeys "{Tab}", False
        KeyAscii = 0
        Exit Sub
    End If
End Sub

Private Sub edtTo_LostFocus()
   If edtTo <> "" Then
      edtTo = ForDate(edtTo)
      If IsDate(edtTo) Then
         edtTo = FormatDate(edtTo)
      End If
   End If
End Sub

Private Sub edtYqjx_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        SendKeys "{Tab}", False
        KeyAscii = 0
        Exit Sub
    End If
End Sub

Private Sub edtYwbh_Change()
   If Not blnSavFlag And Not blnGetRecord Then
       Combo1.Visible = False
       edtYwbh.Visible = True
       blnSavFlag = True
          oV.SetButtonStatus Checkqx, blnSavFlag, blnAddFlag, Toolbar1, Combo1, mCopy_binCopy, Label1(2)
   End If
End Sub

Private Sub edtYwbh_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        SendKeys "{Tab}", False
        KeyAscii = 0
        Exit Sub
    End If
End Sub

Private Sub edtYwbh_LostFocus()
   If edtYwbh <> "" Then
      edtYwbh = String(8 - Len(edtYwbh), "0") & edtYwbh
   End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
   Shift = Shift And 7
   Select Case KeyCode
      Case vbKeyF3
          If Shift = 0 And Toolbar1.Buttons("Check").Enabled And Not FindFlag Then
              Gen_Key "Check"
          End If
      Case vbKeyF4
          If Shift = vbAltMask Then
            Gen_Key "Exit"