?? 銀行貸款單.frm

?? 用友u8財務(wù)源碼,用visual basic開發(fā)
?? FRM
?? 第 1 頁 / 共 5 頁
字號:
   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
'結(jié)息日代碼
Private Sub edtCad_LostFocus()
   If edtCad <> "" And bCad Then
      bCad = False
      If Not JudgeCad(edtCad) Then
         MsgBox "結(jié)息日代碼不存在！", 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 "業(yè)務(wù)日期不能超過系統(tǒng)登錄時間！", 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 "請輸入內(nèi)部賬戶！", 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
?? 文件大小 979 K
?? 上傳用戶 apsdn
?? 所屬分類企業(yè)管理
??? 相關(guān)標簽

#visual #basic #財務(wù) #源碼
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? 銀行貸款單.frm

?? 快捷鍵說明
