内部拆借单.frm

不处的管理软件包

         Width           =   555
      End
      Begin VB.Label Label5 
         Caption         =   "制单："
         Height          =   255
         Index           =   3
         Left            =   6450
         TabIndex        =   24
         Top             =   3450
         Width           =   555
      End
   End
   Begin ComctlLib.ImageList ImageList1 
      Left            =   0
      Top             =   420
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      MaskColor       =   12632256
      _Version        =   327682
   End
   Begin VB.Label lbldkd 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "内部拆借单"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   240
      Index           =   23
      Left            =   3400
      TabIndex        =   28
      Top             =   810
      Width           =   1290
   End
End
Attribute VB_Name = "frmLend"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 拆借单
'作者: 赵春立

Option Explicit

Public FindFlag As Boolean
Public UnionFindflag As Boolean

Public sqlFind As String
Public sqlUnionkey As String

Public Event Move(StepRs As Long)

Private VeriSuccess As Boolean
Private rstLend As adodb.Recordset
Private blnSavFlag As Boolean
Private blnAddFlag As Boolean
Private blnCombo As Boolean

Private Type CopyInfo
   blnCopy As Boolean
   strCrbm As String
   strCcbm As String
   strSkzh As String
   strFkzh As String
   dblJe As Double
   strBib As String
   dblHl As Double
   dblBje As Double
   dHkrq As Date
   strLldm As String
   strSkjb As String
   strFkjb As String
   strZxjb As String
   strDigest As String
End Type

Private mCopy As CopyInfo
Private blnGetRecord As Boolean
Private Checkqx As Boolean

Dim bRq As Boolean
Dim bHkrq As Boolean
Dim bSkzh As Boolean
Dim bFkzh As Boolean
Dim bLldm As Boolean

Private Sub Combo1_Click()
   If blnCombo Then Exit Sub
   If MoveCob Then
      GetRecord
   Else
      SetFormZero
   End If
End Sub

Private Sub Combo1_DropDown()
   ReQryCombo
End Sub

Private Sub ReQryCombo()
   Dim i As Integer
   Dim mStr As String

''   ReQueryRecord rstLend
      Set rstLend = oV.getUnBookRst
   With rstLend
'        If .Restartable Then
'           .Requery
'        Else
'           Set rstLend = dbsZJ.OpenRecordset(.Name, .Type)
'        End If
        i = Combo1.ListIndex
        Combo1.clear
        If .EOF Then
           SetFormZero
           Exit Sub
        Else
           While Not .EOF
              Combo1.AddItem right(![cUnwID], 10)
              .MoveNext
           Wend
           If i > Combo1.ListCount - 1 Then i = Combo1.ListCount - 1
           blnCombo = True
           Combo1.ListIndex = i
           blnCombo = False
           mStr = "[cUnwID]='07" & Combo1.List(Combo1.ListIndex) & "'"
''''''           .MoveFirst
          FindFirst rstLend, mStr
        End If
   End With

End Sub

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

Private Sub Command1_Click(Index As Integer)
    Select Case Index
        Case 0: DisplayCalendar edtRq, Me.hwnd, Picture1(0).left, Picture1(0).top
        Case 1: DisplayCalendar edtHkrq, Me.hwnd, Picture1(0).left + Frame1(0).left, Picture1(0).top + Frame1(0).top
    End Select
    
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.blnCopy, Label1(1)
   End If
End Sub

Private Sub edtCcbm_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(1)
    End If

End Sub

Private Sub edtCcbm_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = vbKeyF2 Then
      RefCmd1(2).RunReference
      edtCcbm.SetFocus
   End If
End Sub

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

End Sub

Private Sub edtCcbm_LostFocus()
   If edtCcbm <> "" Then
      UnitToAccID edtCcbm, edtFkzh
   End If
End Sub

Private Sub edtCrbm_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(1)
    End If
End Sub

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

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

End Sub

Private Sub edtCrbm_LostFocus()
   If edtCrbm <> "" Then
      UnitToAccID edtCrbm, edtSkzh
   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(1)
    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 edtFkjb_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(1)
    End If

End Sub

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

End Sub

Private Sub edtFkzh_Change()
   bFkzh = 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(1)
   End If
   Dim strTemp As String
   If edtFkzh <> "" Then
      strTemp = AccIDToUnitName(edtFkzh)
      If strTemp <> "" Then
         edtCcbm = strTemp
         edtBib = AccToExch(edtFkzh)
      End If
   End If

End Sub

Private Sub edtFkzh_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = vbKeyF2 Then
      RefCmd1(3).RunReference
      edtFkzh.SetFocus
   End If
End Sub

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

End Sub
' 付款账号
Private Sub edtFkzh_LostFocus()
   Dim strTemp As String
   Dim iZhNy As Byte
   If edtFkzh <> "" And bFkzh Then
      bFkzh = False
      strTemp = AccIDToUnitName(edtFkzh)
      If strTemp = "" Then
         MsgBox "付款账号不存在！", vbInformation
         SetTxtFocus edtFkzh
      Else
         edtCcbm = strTemp
         edtBib = AccToExch(edtFkzh)
      End If
      iZhNy = GetZhNY(edtFkzh)
      If iZhNy = 1 Then
        MsgBox "请输入内部账户！", vbInformation
        SetTxtFocus edtFkzh
      End If
   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(1)
   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
         SetTxtFocus edtHkrq
      End If
   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.blnCopy, Label1(1)
   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