frmdklx.frm

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

    Dim rsTemp As New UfRecordset, lldm As String, sqlst As String
    Dim hkrq As Date, jqlx As Double
    Dim i As Long 'cuidong S.A 2001.09.27
    
    If fsk Then
        Me.WindowState = 2
        Informtlb2 Tlbckd, ImageList1
        Me.Icon = LoadResPicture(109, vbResIcon)
        Me.Caption = "贷款利息"
        Picture1.width = ZjAccInfo.zjPictWidth
        Picture1.Picture = LoadPicture(ZjAccInfo.zjRepPath & "BookBack.bmp")

        Label0.Caption = "贷款利息表"
        Label0.left = (Me.width - Label0.width) / 2
        Label1(0).Caption = "业务编号"
        Label1(2).Caption = "币别: "
    End If
    Label1(3).Caption = ywmc & "-" & ywbh
    
    Label1(2).left = ZjAccInfo.zjPictWidth - Label1(2).width - Label1(6).width - 200
    Label1(6).left = Label1(2).left + Label1(2).width
    
    sqlst = "select [dret_date], [cIntrID], [mmoney], [" & IIf(ywzl = "07", "cPaccID", "cAccID") & "] from " & IIf(ywzl = "07", "FD_UnwDeb", "FD_Cred") & " where [" & IIf(ywzl = "07", "cUnwID", "cCreID") & "] ='" & ywzl & ywbh & "'"
    Set rsTemp = dbsZJ.OpenRecordset(sqlst, dbOpenSnapshot)
    With rsTemp
        If ywzl = "07" Then
            Label1(6).Caption = Wgetwbb(![cPAccID])
        Else
            Label1(6).Caption = Wgetwbb(![cAccId])
        End If
        lldm = ![cintrid]
        hkrq = ![Dret_date]
        dkbj = ![mMoney]
        .oClose
    End With
        
    jqlx = 0
    
    If sDate <> "" Then
        sqlst = "Select sum([mmoney]) as yshj from FD_CadAcr where (not ([cBookCode] is null)) and [dbill_date]<'" & sDate & "' and [cDanID]='" & ywzl & ywbh & "'"
        Set rsTemp = dbsZJ.OpenRecordset(sqlst, dbOpenSnapshot)
        With rsTemp
            If Not .EOF Then
                If Not IsNull(![yshj]) Then
                    jqlx = ![yshj]
                End If
            End If
            .oClose
        End With
        
        sqlst = "Select sum([mmoney]) as yhhj from " & IIf(ywzl = "07", "FD_UnwAcrRcp", "FD_CreAcrRcp") & " where (not ([cBookCode] is null)) and " & IIf(ywzl = "07", "[cUnwID]", "[cCreID]") & "='" & ywzl & ywbh & "' and [dbill_date]<'" & sDate & "'"
        Set rsTemp = dbsZJ.OpenRecordset(sqlst, dbOpenSnapshot)
        With rsTemp
            If Not .EOF Then
                If Not IsNull(![yhhj]) Then
                    jqlx = jqlx - ![yhhj]
                End If
            End If
            .oClose
        End With
    End If
    
    With UfGridADO1
        .Rows = 2
        .FixedRows = 2
        .HeadForeColor = &H404040
        .HeadBackColor = &H8000000E
    End With
    
    sqlst = "Select [dbill_date],[mmoney],[Dfrom],[Dto], 0 as pxzd from FD_CadAcr where (not ([cBookCode] is null))" & IIf(eDate = "", "", " and [dbill_date]<='" & eDate & "'") & IIf(sDate = "", "", " and [dbill_date]>='" & sDate & "'") & " and [cDanID]='" & ywzl & ywbh & "'"
    sqlst = sqlst & " UNION All Select [dbill_date],[mmoney],NULL as Dfrom, Null as Dto, 1 as pxzd from " & IIf(ywzl = "07", "FD_UnwAcrRcp", "FD_CreAcrRcp") & " where (not ([cBookCode] is null))" & IIf(eDate = "", "", " and [dbill_date]<='" & eDate & "'") & IIf(sDate = "", "", " and [dbill_date]>='" & sDate & "'") & " and " & IIf(ywzl = "07", "[cUnwID]", "[cCreID]") & "='" & ywzl & ywbh & "'"
    sqlst = sqlst & " Order by [dbill_date], pxzd"
    Set rsTemp = dbsZJ.OpenRecordset(sqlst, dbOpenSnapshot)
    
    CX_Sum_Init 'cuidong S.A 2001.09.27
    
    With rsTemp
        If Not .EOF Then
            .MoveFirst
            Do While Not .EOF
                
                If IsNull(![dFrom]) Then
                    jqlx = jqlx - ![mMoney]
                    UfGridADO1.AddItem "" & Format(![dbill_date], "yyyy-mm-dd") & Chr(9) & _
                                    "" & Chr(9) & _
                                    "" & Chr(9) & _
                                    "" & Chr(9) & _
                                    "" & Chr(9) & _
                                    "" & Chr(9) & _
                                    "" & Chr(9) & _
                                    "" & Chr(9) & _
                                    Format(![mMoney], "##,##0.00") & Chr(9) & _
                                    Format(jqlx, "##,##0.00")
                    CX_Sum_Add 0, vbNullString, 0, 0, _
                                                   0, _
                                                   0, _
                                                   0, _
                                                   Format(![mMoney], "##,##0.00"), _
                                                   Format(jqlx, "##,##0.00")  'cuidong S.A 2001.09.27
                Else
                    jqlx = jqlx + ![mMoney]
                    
                    Wdkbj_js ![dFrom], ![dTo]
                    
                    UfGridADO1.AddItem "" & Format(![dbill_date], "yyyy-mm-dd") & Chr(9) & _
                                    Format(![dFrom], "yyyy-mm-dd") & Chr(9) & _
                                    Format(![dTo], "yyyy-mm-dd") & Chr(9) & _
                                    Format(dkbj - yhbj, "##,##0.00") & Chr(9) & _
                                    Format(Getdqll(lldm, ![dTo]), "#0.#####") & Chr(9) & _
                                    Format(jsts, "##,##0") & Chr(9) & _
                                    Format(dqjs, "##,##0.00") & Chr(9) & _
                                    Format(![mMoney], "##,##0.00") & Chr(9) & _
                                    "" & Chr(9) & _
                                    Format(jqlx, "##,##0.00")
                                    
                    CX_Sum_Add 0, vbNullString, 0, Format(dkbj - yhbj, "##,##0.00"), _
                                                   0, _
                                                   Format(dqjs, "##,##0.00"), _
                                                   Format(![mMoney], "##,##0.00"), _
                                                   0, _
                                                   Format(jqlx, "##,##0.00")  'cuidong S.A 2001.09.27
                                                   
                End If
                rsTemp.MoveNext
            Loop
            
            'cuidong S.A 2001.09.27
            '----------------------------------------
           If IsNull(![dFrom]) Then
               For i = 1 To UBound(CX_Sum)
                    UfGridADO1.AddItem CX_SumCHAR & CX_SumTEXT & Chr(9) & _
                                    CX_SumCHAR & Chr(9) & _
                                    CX_SumCHAR & Chr(9) & _
                                    CX_SumCHAR & Chr(9) & _
                                    CX_SumCHAR & Chr(9) & _
                                    CX_SumCHAR & Chr(9) & _
                                    CX_SumCHAR & Chr(9) & _
                                    CX_SumCHAR & Chr(9) & _
                                    Format(CX_Sum(i).mMoney_5, "##,##0.00") & Chr(9) & _
                                    Format(CX_Sum(i).mMoney_6, "##,##0.00")
               Next i
            Else
               For i = 1 To UBound(CX_Sum)
                    UfGridADO1.AddItem CX_SumCHAR & CX_SumTEXT & Chr(9) & _
                                    CX_SumCHAR & Chr(9) & _
                                    CX_SumCHAR & Chr(9) & _
                                    Format(CX_Sum(i).mMoney_1, "##,##0.00") & Chr(9) & _
                                    CX_SumCHAR & Chr(9) & _
                                    CX_SumCHAR & Chr(9) & _
                                    Format(CX_Sum(i).mMoney_3, "##,##0.00") & Chr(9) & _
                                    Format(CX_Sum(i).mMoney_4, "##,##0.00") & Chr(9) & _
                                    Format(CX_Sum(i).mMoney_5, "##,##0.00") & Chr(9) & _
                                    Format(CX_Sum(i).mMoney_6, "##,##0.00")
               Next i
            End If
            '----------------------------------------
        End If
        .oClose
        
    End With
    
    
    With UfGridADO1
        If .Rows > 2 Then
            .row = 2
            .col = 0
        End If
        .Redraw = True
    End With
    Set rsTemp = Nothing
    
End Sub

Private Sub Form_Resize()
    If Me.WindowState = 1 Then
        Exit Sub
    End If
    If Me.WindowState = 0 Then
        Me.width = IIf(Me.width < 4500, 4500, Me.width)
        Me.Height = IIf(Me.Height < 3300, 3300, Me.Height)
    End If
    UfGridADO1.width = Me.width - 100
    UfGridADO1.Height = Me.Height - (5820 - 3890)
    
    Picture1.left = Me.width - ZjAccInfo.zjPictWidth
    If Picture1.left > 0 Then Picture1.left = 0
    Label0.left = (Me.width - Label0.width) / 2 - Picture1.left
    Label1(0).left = ZjAccInfo.zjPictWidth - Me.width + 75
    Label1(3).left = ZjAccInfo.zjPictWidth - Me.width + 855
    Label1(2).left = ZjAccInfo.zjPictWidth - Label1(2).width - Label1(6).width - 200
    Label1(6).left = Label1(2).left + Label1(2).width
End Sub

Private Sub Form_Unload(Cancel As Integer)
    zjLogInfo.TaskExec "FD0714", 0, zjLogInfo.cIYear
    zjLogInfo.ClearError
    zjGen_arr.FD0714 = False
End Sub

Private Sub tlbckd_ButtonClick(ByVal Button As ComctlLib.Button)
    Gen_Key Button.key
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyF4
            If Shift = 2 Then
                Gen_Key "Exit"
            End If
        Case vbKeyP
            If Shift = 2 Then
                Gen_Key "Print"
                KeyCode = 0
            End If
        Case vbKeyS
            'cuidong 2001.01.15
            'If Shift = 2 Then
            '    Gen_Key "Preview"
            '    KeyCode = 0
            'End If
        Case vbKeyW
            If Shift = 2 Then
                Gen_Key "Dataout"
                KeyCode = 0
            End If
        Case vbKeyF
            If Shift = 2 Then
                Gen_Key "Recx"
                KeyCode = 0
            End If
    End Select
End Sub

Private Sub Gen_Key(TLB_Key As String)
    Select Case TLB_Key
        Case Is = "Print", "Preview", "Dataout"
            zjbPrnViewOut Me, "dkzlx", TLB_Key, False
        Case Is = "Recx"
            frmdklxtj.Quitfs = False
            frmdklxtj.Show 1
        Case Is = "Help"
            SendKeys "{F1}"
        Case Is = "Exit"
            Unload Me
    End Select
End Sub

Private Sub Wdkbj_js(rq1 As Date, rq2 As Date)
    Dim Sql1 As String, rstbj As New UfRecordset, jqbj As Double, dqrq As Date
    yhbj = 0
    dqjs = 0
    dqrq = rq1
    jsts = rq2 - rq1 + 1
    Sql1 = "select sum([mmoney]) as yhhj from " & IIf(ywzl = "07", "FD_UnwRet", "FD_Return") & " where [" & IIf(ywzl = "07", "cUnwID", "cCreID") & "] ='" & ywzl & ywbh & "' and (not ([cBookCode] is null)) and [dbill_date]<='" & Format(rq1, "yyyy-mm-dd") & "'"
    Set rstbj = dbsZJ.OpenRecordset(Sql1, dbOpenSnapshot)
    With rstbj
        If Not .EOF Then
            If Not IsNull(![yhhj]) Then
                yhbj = ![yhhj]
            End If
        End If
        .oClose
    End With
    jqbj = dkbj - yhbj
    
    Sql1 = "select * from " & IIf(ywzl = "07", "FD_UnwRet", "FD_Return") & " where [" & IIf(ywzl = "07", "cUnwID", "cCreID") & "] ='" & ywzl & ywbh & "' and (not ([cBookCode] is null)) and [dbill_date]>'" & Format(rq1, "yyyy-mm-dd") & "' and [dbill_date]<='" & Format(rq2, "yyyy-mm-dd") & "' order by [dbill_date]"
    Set rstbj = dbsZJ.OpenRecordset(Sql1, dbOpenSnapshot)
    With rstbj
        If .EOF Then
            dqjs = jqbj * (rq2 - rq1 + 1)
        Else
            .MoveFirst
            Do While Not .EOF
                dqjs = dqjs + jqbj * (![dbill_date] - dqrq)
                dqrq = ![dbill_date]
                jqbj = jqbj - ![mMoney]
                yhbj = yhbj + !mMoney
                .MoveNext
            Loop
            dqjs = dqjs + jqbj * (rq2 - dqrq + 1)
        End If
        .oClose
    End With
    Set rstbj = Nothing
End Sub