?? 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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -