拆借查询.frm

u8

      edtBhFrom = right("000000000" & edtBhFrom, 10)
   End If

End Sub

Private Sub edtBhTo_LostFocus()
   If edtBhTo <> "" Then
      edtBhTo = right("000000000" & edtBhTo, 10)
   End If

End Sub

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

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

End Sub

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

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

End Sub

Private Sub edtFkdw_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = vbKeyF2 Then
      RefCmd1(2).RunReference: edtFkdw.SetFocus
   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 edtSkdw_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = vbKeyF2 Then
      RefCmd1(0).RunReference: edtSkdw.SetFocus
   End If
End Sub

Private Sub edtSkzh_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = vbKeyF2 Then
      RefCmd1(1).RunReference: edtSkzh.SetFocus
   End If
End Sub

Private Sub Form_Load()
    Me.Icon = LoadResPicture(109, vbResIcon)
   InitFindForm
   Command2(0).Picture = LoadResPicture(103, vbResBitmap)
   Command2(1).Picture = LoadResPicture(104, vbResBitmap)
   Command1(0).Picture = LoadResPicture(1108, vbResBitmap)
   Command1(1).Picture = LoadResPicture(1108, vbResBitmap)
   CenterForm Me
End Sub

Private Sub InitFindForm()
    Dim id As Integer
    
    Select Case iFindtype
        Case 6
            Me.Caption = "内部拆借查询"
            cYwID = "cUnwID"
            cClassID = "07"
            Me.HelpContextID = 88000031
        Case 7
            Me.Caption = "拆借还款查询"
            cYwID = "cRetID"
            cClassID = "12"
            Me.HelpContextID = 88000041
        Case 8
            Me.Caption = "拆借还息查询"
            cYwID = "cUnaID"
            cClassID = "13"
            Me.HelpContextID = 88000043
        Case 9
            Me.Caption = "利息单查询"
            cYwID = "cCarID"
            cClassID = "16"
            Me.HelpContextID = 88000049
    End Select
    
End Sub

'********************************************************************
'*函数说明: 验证输入条件并产生 SQL 语句                                *
'*参    数:                                                          *
'*                                                                   *
'*返回值  : True : 成功                                               *
'*********************************************************************
Private Function VerifyFind() As Boolean
    Dim i As Integer
    
    VerifyFind = False
    sqlWhere = " "
    ' 日期
    If edtDateFrom <> "" Then
        edtDateFrom = ForDate(edtDateFrom)
        If IsDate(edtDateFrom) Then
            sqlWhere = " AND [dbill_date] >='" & FormatDate(edtDateFrom) & "' "
        Else
            Beep
            MsgBox "日期非法，请检查！!", vbInformation, zjGl_Name
            SetTxtFocus edtDateFrom
            Exit Function
        End If
    End If
    
    If edtDateTo <> "" Then
        edtDateTo = ForDate(edtDateTo)
        If IsDate(edtDateTo) Then
            sqlWhere = sqlWhere & "AND [dbill_date] <='" & FormatDate(edtDateTo) & "' "
        Else
            Beep
            MsgBox "日期非法，请检查！!", vbInformation, zjGl_Name
            SetTxtFocus edtDateTo
            Exit Function
        End If
    End If
    If edtDateFrom <> "" And edtDateTo <> "" Then
      If CDate(edtDateFrom) > CDate(edtDateTo) Then
        Beep
        MsgBox "日期范围错误，请检查！", vbInformation, zjGl_Name
        SetTxtFocus edtDateTo
        Exit Function
      End If
    End If
    
    '业务编号
    If edtBhFrom <> "" Then
        edtBhFrom = right("000000000" & edtBhFrom, 10)
        sqlWhere = sqlWhere & "AND " & cYwID & ">='" & cClassID & String(10 - Len(edtBhFrom), "0") & edtBhFrom & "' "
    End If
    
    If edtBhTo <> "" Then
        edtBhTo = right("000000000" & edtBhTo, 10)
        sqlWhere = sqlWhere & "AND " & cYwID & "<='" & cClassID & String(10 - Len(edtBhTo), "0") & edtBhTo & "' "
    End If
    If edtBhFrom <> "" And edtBhTo <> "" Then
      If edtBhFrom > edtBhTo Then
         Beep
         MsgBox "业务编号范围错误，请检查！", vbInformation, zjGl_Name
         SetTxtFocus edtBhTo
         Exit Function
      End If
    End If
    
    '收款单位
    If edtSkdw <> "" Then
       sqlWhere = sqlWhere & "AND [cGAccID] IN (SELECT [cAccID] FROM FD_AccDef INNER JOIN " & _
                     "FD_AccUnit ON FD_AccDef.cUnitCode=FD_AccUnit.cUnitCode WHERE " & _
                     "FD_AccUnit.cUnitName LIKE '" & edtSkdw & "') "
    End If
    
    '收款账号
    If edtSkzh <> "" Then
        sqlWhere = sqlWhere & "AND [cGAccID] LIKE '" & edtSkzh & "' "
    End If
    
    '付款单位
    If edtFkdw <> "" Then
       sqlWhere = sqlWhere & "AND [cPAccID] IN (SELECT [cAccID] FROM FD_AccDef INNER JOIN " & _
                     "FD_AccUnit ON FD_AccDef.cUnitCode=FD_AccUnit.cUnitCode WHERE " & _
                     "FD_AccUnit.cUnitName LIKE '" & edtFkdw & "') "
    End If
    
    '付款账号
    If edtFkzh <> "" Then
        sqlWhere = sqlWhere & "AND [cPAccID] LIKE '" & edtFkzh & "' "
    End If
    
    '金额
    If edtJeFrom <> "" Then
        sqlWhere = sqlWhere & "AND [mmoney] >=" & CCur(edtJeFrom) & " "
    End If
   
    If edtJeTo <> "" Then
        sqlWhere = sqlWhere & "AND [mmoney] <=" & CCur(edtJeTo) & " "
    End If
    
    If edtJeFrom <> "" And edtJeTo <> "" Then
      If CDbl(edtJeFrom) > CDbl(edtJeTo) Then
         Beep
         MsgBox "金额范围错误，请检查！", vbInformation, zjGl_Name
         SetTxtFocus edtJeTo
         Exit Function
      End If
    End If
    
    '本位币金额
    If edtBjeFrom <> "" Then
        sqlWhere = sqlWhere & "AND [mmoney_f] >=" & CCur(edtBjeFrom) & " "
    End If
   
    If edtBjeTo <> "" Then
        sqlWhere = sqlWhere & "AND [mmoney_f] <=" & CCur(edtBjeTo) & " "
    End If
    
    If edtBjeFrom <> "" And edtBjeTo <> "" Then
      If CDbl(edtBjeFrom) > CDbl(edtBjeTo) Then
         Beep
         MsgBox "金额范围错误，请检查！", vbInformation, zjGl_Name
         SetTxtFocus edtBjeTo
         Exit Function
      End If
    End If
    
    '制单人
    If edtZDR <> "" Then
        sqlWhere = sqlWhere & "AND [cBillCode] LIKE '" & edtZDR & "' "
    End If
    
    '是否记账
    If Check1.Value = 0 Then
        sqlWhere = sqlWhere & "AND [cBookCode] IS NOT NULL "
    End If
    sqlWhere = sqlWhere & "ORDER BY [dbill_date]"
    
    VerifyFind = True
    
End Function

Private Sub Form_Unload(Cancel As Integer)
    If Quitfs Then
        Select Case iFindtype
            Case 6
                zjLogInfo.TaskExec "FD021102", 0, zjLogInfo.cIYear
                'zjGen_arr.FD021102 = False
            Case 7
                zjLogInfo.TaskExec "FD021202", 0, zjLogInfo.cIYear
                'zjGen_arr.FD021202 = False
            Case 8
                zjLogInfo.TaskExec "FD021302", 0, zjLogInfo.cIYear
                'zjGen_arr.FD021302 = False
            Case 9
                zjLogInfo.TaskExec "FD021602", 0, zjLogInfo.cIYear
                'zjGen_arr.FD021602 = False
        End Select
        zjLogInfo.ClearError
    End If
End Sub

Private Sub RefCmd1_Initialize(Index As Integer)
   Select Case Index
      Case 0:
         RefCmd1(Index).InitSys 0, dbsZJ
         RefCmd1(Index).InitSys 1, edtSkdw
      Case 1:
         RefCmd1(Index).InitSys 0, dbsZJ
         RefCmd1(Index).InitSys 1, edtSkzh
         RefCmd1(Index).InitSys 2, edtSkdw
      Case 2:
         RefCmd1(Index).InitSys 0, dbsZJ
         RefCmd1(Index).InitSys 1, edtFkdw
      Case 3:
         RefCmd1(Index).InitSys 0, dbsZJ
         RefCmd1(Index).InitSys 1, edtFkzh
         RefCmd1(Index).InitSys 2, edtFkdw
   End Select
   
End Sub

Private Sub RefCmd1_RefCancel(Index As Integer)
   Select Case Index
      Case 0: edtSkdw.SetFocus
      Case 1: edtSkzh.SetFocus
      Case 2: edtFkdw.SetFocus
      Case 3: edtFkzh.SetFocus
   End Select

End Sub

Private Sub RefCmd1_RefOK(Index As Integer, Code As String)
   Select Case Index
      Case 0: edtSkdw = Code: edtSkdw.SetFocus
      Case 1: edtSkzh = Code: edtSkzh.SetFocus
      Case 2: edtFkdw = Code: edtFkdw.SetFocus
      Case 3: edtFkzh = Code: edtFkzh.SetFocus
   End Select
   
End Sub