?? frmdklxtj.frm
字號:
VERSION 5.00
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Begin VB.Form frmdklxtj
BorderStyle = 1 'Fixed Single
ClientHeight = 1605
ClientLeft = 1950
ClientTop = 3090
ClientWidth = 5475
HelpContextID = 88000071
Icon = "frmdklxtj.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1605
ScaleWidth = 5475
Begin VB.CommandButton cmdcancel
Cancel = -1 'True
Height = 365
Left = 4285
Style = 1 'Graphical
TabIndex = 5
Top = 735
Width = 1080
End
Begin VB.CommandButton cmdfind
Default = -1 'True
Height = 365
Left = 4285
Style = 1 'Graphical
TabIndex = 4
Top = 240
Width = 1080
End
Begin VB.Frame Frame1
Height = 1260
Left = 120
TabIndex = 6
Top = 150
Width = 4045
Begin VB.ComboBox Combo2
BackColor = &H00FFFFFF&
Height = 300
ItemData = "frmdklxtj.frx":000C
Left = 2190
List = "frmdklxtj.frx":000E
Sorted = -1 'True
Style = 2 'Dropdown List
TabIndex = 3
Top = 780
Width = 1110
End
Begin VB.ComboBox Combo1
BackColor = &H00FFFFFF&
Height = 300
ItemData = "frmdklxtj.frx":0010
Left = 960
List = "frmdklxtj.frx":0017
Style = 2 'Dropdown List
TabIndex = 2
Top = 780
Width = 1110
End
Begin VB.CommandButton cmdrq
Height = 270
Index = 0
Left = 2060
Style = 1 'Graphical
TabIndex = 8
TabStop = 0 'False
Top = 285
Width = 270
End
Begin VB.CommandButton cmdrq
Height = 270
Index = 1
Left = 3675
Style = 1 'Graphical
TabIndex = 7
TabStop = 0 'False
Top = 285
Width = 270
End
Begin EDITLib.Edit Editrq
Height = 264
Index = 0
Left = 960
TabIndex = 0
Top = 285
Width = 1035
_Version = 65536
_ExtentX = 1826
_ExtentY = 466
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 5
MaxLength = 10
End
Begin EDITLib.Edit Editrq
Height = 264
Index = 1
Left = 2570
TabIndex = 1
Top = 285
Width = 1035
_Version = 65536
_ExtentX = 1826
_ExtentY = 466
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 5
MaxLength = 10
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "-"
Height = 180
Left = 2080
TabIndex = 11
Top = 820
Width = 96
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 0
Left = 120
TabIndex = 10
Top = 315
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 1
Left = 120
TabIndex = 9
Top = 816
Width = 96
End
Begin VB.Line Line1
X1 = 2370
X2 = 2530
Y1 = 405
Y2 = 405
End
End
End
Attribute VB_Name = "frmdklxtj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'軟件著作權: 北京用友軟件集團有限公司
'系統名稱: 資金管理8.0
'功能說明: 查詢貸款利息條件
'作者: 魏小黎
Option Explicit
Public Quitfs As Boolean
Private isEnt As Boolean, Frtin As Boolean, ywzl As String
Private Sub cmdcancel_Click()
Unload Me
End Sub
Private Sub cmdfind_Click()
If Contquit Then
Dim tmprst As New UfRecordset, ncs As Boolean, tj1 As String, tj2 As String, tj3 As String, tj4 As String
tj1 = "select * from " & IIf(ywzl = "07", "FD_UnwDeb", "FD_Cred") & " where [" & IIf(ywzl = "07", "cUnwID", "cCreID") & "] ='" & ywzl & Combo2.Text & "' and (not ([cBookCode] is null))"
Set tmprst = dbsZJ.OpenRecordset(tj1, dbOpenSnapshot)
ncs = True
If Not tmprst.EOF Then
tmprst.oClose
tj1 = "Select * from FD_CadAcr where (not ([cBookCode] is null)) and [cDanID]='" & ywzl & Combo2.Text & "'" & IIf(Editrq(0).Text = "", "", " and [dbill_date]>='" & Editrq(0).Text & "'") & IIf(Editrq(1).Text = "", "", " and [dbill_date]<='" & Editrq(1).Text & "'")
Set tmprst = dbsZJ.OpenRecordset(tj1, dbOpenSnapshot)
If tmprst.EOF Then
tmprst.oClose
tj1 = "select * from " & IIf(ywzl = "07", "FD_UnwAcrRcp", "FD_CreAcrRcp") & " where [" & IIf(ywzl = "07", "cUnwID", "cCreID") & "] ='" & ywzl & Combo2.Text & "' and (not ([cBookCode] is null))" & IIf(Editrq(0).Text = "", "", " and [dbill_date]>='" & Editrq(0).Text & "'") & IIf(Editrq(1).Text = "", "", " and [dbill_date]<='" & Editrq(1).Text & "'")
Set tmprst = dbsZJ.OpenRecordset(tj1, dbOpenSnapshot)
If Not tmprst.EOF Then
ncs = False
End If
Else
ncs = False
End If
End If
tmprst.oClose
Set tmprst = Nothing
If ncs Then
Beep
MsgBox "沒有滿足條件的貸款明細賬！", vbCritical, zjGl_Name
Combo2.SetFocus
Exit Sub
End If
tj1 = Editrq(0).Text
tj2 = Editrq(1).Text
tj3 = Combo1.Text
tj4 = Combo2.Text
Quitfs = False
Unload Me
Dim frm As frmdklx, mfm As Form
For Each mfm In Forms
If mfm.Tag = "cxdklxb" Then
BringWindowToTop mfm.hwnd
mfm.sDate = tj1
mfm.eDate = tj2
mfm.ywmc = tj3
mfm.ywbh = tj4
mfm.ywzl = ywzl
mfm.cmdExcute_Click
mfm.cmdRefresh_Click
Exit Sub
End If
Next mfm
Set frm = New frmdklx
frm.sDate = tj1
frm.eDate = tj2
frm.ywmc = tj3
frm.ywbh = tj4
frm.ywzl = ywzl
frm.Tag = "cxdklxb"
frm.Show
End If
End Sub
Private Sub cmdrq_Click(Index As Integer)
View_Calendar Me, Editrq(Index), 0
End Sub
Private Sub Combo1_Click()
If Frtin Then
Exit Sub
End If
Dim rsTemp As New UfRecordset, bh As String
bh = IIf(Combo1.Text = Combo1.List(0), "05", IIf(Combo1.Text = Combo1.List(1), "06", "07"))
If bh = "07" Then
Set rsTemp = dbsZJ.OpenRecordset("Select * from FD_Unwdeb where not (cBookcode is null) And [cUnwID] like '" & bh & "%'order by [cUnwID]", dbOpenSnapshot)
Else
Set rsTemp = dbsZJ.OpenRecordset("Select * from FD_Cred where not (cBookcode is null) And [cCreID] like '" & bh & "%'order by [cCreID]", dbOpenSnapshot)
End If
Combo2.clear
With rsTemp
If Not .EOF Then
.MoveFirst
Do While Not .EOF
If bh = "07" Then
Combo2.AddItem right(![cUnwID], 10)
Else
Combo2.AddItem right(![cCreID], 10)
End If
.MoveNext
Loop
Combo2.Text = Combo2.List(0)
End If
.oClose
End With
End Sub
Private Sub Form_Load()
Dim rsTemp As New UfRecordset
Screen.MousePointer = vbHourglass
CenterForm Me
Me.Icon = LoadResPicture(109, vbResIcon)
Me.Caption = "貸款利息"
cmdrq(0).Picture = LoadResPicture(1108, vbResBitmap)
cmdrq(1).Picture = LoadResPicture(1108, vbResBitmap)
Frame1.Caption = "請輸入查詢條件"
cmdfind.Picture = LoadResPicture(103, vbResBitmap)
cmdcancel.Picture = LoadResPicture(104, vbResBitmap)
Label1(0).Caption = "起始時間"
Label1(1).Caption = "業務編號"
Combo1.clear
Combo1.AddItem Ywbhtoname("05")
Combo1.AddItem Ywbhtoname("06")
Combo1.AddItem Ywbhtoname("07")
Frtin = True
Set rsTemp = dbsZJ.OpenRecordset("Select * from FD_Cred where not (cBookcode is null) And [cCreID] like '05%'order by [cCreID]", dbOpenSnapshot)
With rsTemp
If Not .EOF Then
Combo1.Text = Combo1.List(0)
.MoveFirst
Do While Not .EOF
Combo2.AddItem right(.Fields("cCreID"), 10)
.MoveNext
Loop
Frtin = False
End If
.oClose
End With
If Frtin Then
Set rsTemp = dbsZJ.OpenRecordset("Select * from FD_Cred where not (cBookcode is null) And [cCreID] like '06%'order by [cCreID]", dbOpenSnapshot)
With rsTemp
If Not .EOF Then
Combo1.Text = Combo1.List(1)
.MoveFirst
Do While Not .EOF
Combo2.AddItem right(![cCreID], 10)
.MoveNext
Loop
Frtin = False
End If
.oClose
End With
End If
If Frtin Then
' Set rsTemp = dbsZJ.OpenRecordset("Select * from FD_Unwdeb where not (cBookcode is null) And [cUnwID] like '07' order by [cUnwID]", dbOpenSnapshot) 'cuidong % 2001.11.05
Set rsTemp = dbsZJ.OpenRecordset("Select * from FD_Unwdeb where not (cBookcode is null) And [cUnwID] like '07%' order by [cUnwID]", dbOpenSnapshot) 'cuidong % 2001.11.05
With rsTemp
If Not .EOF Then
Combo1.Text = Combo1.List(2)
.MoveFirst
Do While Not .EOF
Combo2.AddItem right(![cUnwID], 10)
.MoveNext
Loop
Frtin = False
End If
.oClose
End With
End If
If Frtin Then
Combo1.Text = Combo1.List(0)
Else
Combo2.Text = Combo2.List(0)
End If
Frtin = False
isEnt = True
Screen.MousePointer = vbDefault
End Sub
' 業務日期按鍵
Private Sub Editrq_Keyup(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And isEnt Then
SendKeys "{Tab}"
End If
If KeyCode = 113 Then 'F2
View_Calendar Me, Editrq(Index), 0
End If
isEnt = True
End Sub
Private Sub Editrq_LostFocus(Index As Integer)
If Editrq(Index).Text <> "" And isEnt Then
Editrq(Index).Text = ForDate(Editrq(Index).Text)
If IsDate(Editrq(Index).Text) Then
Editrq(Index).Text = Format(Editrq(Index).Text, "yyyy-mm-dd")
Else
Beep
MsgBox "日期非法，請檢查！", vbCritical, zjGl_Name
SetTxtFocus Editrq(Index)
isEnt = False
End If
End If
End Sub
' 條件合法性檢查
Private Function Contquit() As Boolean
Contquit = True
If Editrq(0).Text <> "" Then
Editrq(0).Text = ForDate(Editrq(0).Text)
If Not IsDate(Editrq(0).Text) Then
Beep
MsgBox "日期非法，請檢查！", vbCritical, zjGl_Name
Contquit = False
SetTxtFocus Editrq(0)
Exit Function
End If
End If
If Editrq(1) <> "" Then
Editrq(1).Text = ForDate(Editrq(1).Text)
If IsDate(Editrq(1).Text) Then
If Editrq(0).Text <> "" Then
If CDate(Editrq(1).Text) < CDate(Editrq(0).Text) Then
Beep
MsgBox "日期范圍錯誤，請檢查！", vbCritical, zjGl_Name
Contquit = False
SetTxtFocus Editrq(1)
Exit Function
End If
End If
Else
Beep
MsgBox "日期非法，請檢查！", vbCritical, zjGl_Name
Contquit = False
SetTxtFocus Editrq(1)
Exit Function
End If
End If
If Combo2.Text = "" Then
Beep
MsgBox "業務編號不能為空，請檢查！", vbCritical, zjGl_Name
Contquit = False
Combo1.SetFocus
Exit Function
End If
If Combo1.Text = Combo1.List(0) Then
ywzl = "05"
End If
If Combo1.Text = Combo1.List(1) Then
ywzl = "06"
End If
If Combo1.Text = Combo1.List(2) Then
ywzl = "07"
End If
End Function
Private Sub Form_Unload(Cancel As Integer)
If Quitfs Then
zjLogInfo.TaskExec "FD0714", 0, zjLogInfo.cIYear
zjLogInfo.ClearError
zjGen_arr.FD0714 = False
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -