银行贷款单.frm

财务信息管理系统,适合做毕业论文的人使用

   bCad = True
   If Not blnSavFlag And Not blnGetRecord Then
      Combo1.Visible = False
      edtYwbh.Visible = True
      blnSavFlag = True
      oV.SetButtonStatus Checkqx, blnSavFlag, blnAddFlag, Toolbar1, Combo1, mCopy.blnCopy, Label1(0)
   End If
End Sub

Private Sub edtCad_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = vbKeyF2 Then
      RefCmd1(3).RunReference
      edtCad.SetFocus
   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 edtCad_LostFocus()
   If edtCad <> "" And bCad Then
      bCad = False
      If Not JudgeCad(edtCad) Then
         MsgBox "结息日代码不存在！", vbInformation, zjGl_Name
         SetTxtFocus edtCad
      End If
   End If
End Sub

Private Sub edtDbje_Change()
    If Not blnSavFlag And Not blnGetRecord Then
        Combo1.Visible = False
        edtYwbh.Visible = True
        blnSavFlag = True
        oV.SetButtonStatus Checkqx, blnSavFlag, blnAddFlag, Toolbar1, Combo1, mCopy.blnCopy, Label1(0)
    End If
End Sub

Private Sub edtDbje_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.blnCopy, Label1(0)
    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 edtEnter_Change()
    If Not blnSavFlag And Not blnGetRecord Then
        Combo1.Visible = False
        edtYwbh.Visible = True
        blnSavFlag = True
        oV.SetButtonStatus Checkqx, blnSavFlag, blnAddFlag, Toolbar1, Combo1, mCopy.blnCopy, Label1(0)
    End If
End Sub

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

End Sub

Private Sub edtHkrq_Change()
   bHkrq = True
   If Not blnSavFlag And Not blnGetRecord Then
      Combo1.Visible = False
      edtYwbh.Visible = True
      blnSavFlag = True
      oV.SetButtonStatus Checkqx, blnSavFlag, blnAddFlag, Toolbar1, Combo1, mCopy.blnCopy, Label1(0)
   End If
End Sub

Private Sub edtHkrq_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = vbKeyF2 Then
      Command1(1).Value = True
      edtHkrq.SetFocus
   End If

End Sub

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

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

End Sub

Private Sub edtHl_Change()
   On Error Resume Next
   edtBje = edtJkje * 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(0)
   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 edtJkje_Change()
   On Error Resume Next
   edtBje = edtJkje * 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.blnCopy, Label1(0)
   End If
   
End Sub

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

Private Sub edtJsr_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(0)
    End If
End Sub

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

Private Sub edtLldm_Change()
   bLldm = 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(0)
   End If
End Sub

Private Sub edtLldm_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = vbKeyF2 Then
      RefCmd1(2).RunReference
      edtLldm.SetFocus
   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 edtLldm_LostFocus()
   If edtLldm <> "" And bLldm Then
      bLldm = False
      If Not JudgeIntra(edtLldm) Then
         MsgBox "利率代码不存在！", vbInformation, zjGl_Name
         SetTxtFocus edtLldm
      End If
   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(0)
   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)
         If CDate(edtRq) > zjLogInfo.curDate Then
            MsgBox "业务日期不能超过系统登录时间！", vbInformation, zjGl_Name
            SetTxtFocus edtRq
         End If
      Else
         MsgBox "日期非法，请检查！", vbInformation, zjGl_Name
         SetTxtFocus edtRq
      End If
   End If

End Sub

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

Private Sub edtYhmc_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(0)
    End If
    
End Sub

Private Sub edtYhmc_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = vbKeyF2 Then
      RefCmd1(0).RunReference
      edtYhmc.SetFocus
   End If

End Sub

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

End Sub

Private Sub edtYhmc_LostFocus()
   If edtYhmc <> "" Then
      UnitToAccID edtYhmc, edtYhzh
   End If
End Sub

Private Sub edtYhzh_Change()
   bYhzh = 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(0)
   End If
   Dim strTemp As String
   If edtYhzh <> "" Then
       strTemp = AccIDToUnitName(edtYhzh)
       If strTemp <> "" Then
           edtYhmc = strTemp
           edtBib = AccToExch(edtYhzh)
       End If
   End If
    
End Sub

Private Sub edtYhzh_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = vbKeyF2 Then
      RefCmd1(1).RunReference
      edtYhzh.SetFocus
   End If

End Sub

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

End Sub

Private Sub edtYhzh_LostFocus()
   Dim strTemp As String
   Dim iZhNy As Byte
   
   If edtYhzh <> "" And bYhzh Then
      bYhzh = False
      strTemp = AccIDToUnitName(edtYhzh)
      If strTemp = "" Then
          MsgBox "账户号不存在！", vbInformation, zjGl_Name
          SetTxtFocus edtYhzh
          Exit Sub
      Else
          edtYhmc = strTemp
          edtBib = AccToExch(edtYhzh)
      End If
      
      iZhNy = GetZhNY(edtYhzh)
      Select Case iCredType
         Case 1   '银行贷款
            If iZhNy = 0 Then
               MsgBox "请输入外部账户！", vbInformation, zjGl_Name
               SetTxtFocus edtYhzh
            End If
         Case 2
            If iZhNy = 1 Then
               MsgBox "请输入内部账户！", vbInformation, zjGl_Name
               SetTxtFocus edtYhzh
            End If
      End Select
   End If

End Sub

Private Sub edtYqjx_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(0)
    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 edtYqjx_KeyUp(KeyCode As Integer, Shift As Integer)
   If KeyCode = vbKeyF2 And Command1(2).Enabled Then
      Command1(2).Value = True