📄 拆借查询.frm
字号:
Top = 2670
Width = 1695
_Version = 65536
_ExtentX = 2990
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 4
NumPoint = 2
MaxLength = 14
End
Begin EDITLib.Edit edtZDR
Height = 270
Left = 1350
TabIndex = 12
Top = 3030
Width = 1695
_Version = 65536
_ExtentX = 2990
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
MaxLength = 10
BadStr = "|'"""
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "付款单位"
Height = 180
Index = 4
Left = 480
TabIndex = 27
Top = 1680
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "付款账号"
Height = 180
Index = 5
Left = 480
TabIndex = 26
Top = 2025
Width = 720
End
Begin VB.Line Line1
Index = 3
X1 = 3120
X2 = 3280
Y1 = 2820
Y2 = 2820
End
Begin VB.Line Line1
Index = 2
X1 = 3120
X2 = 3280
Y1 = 2490
Y2 = 2490
End
Begin VB.Line Line1
Index = 1
X1 = 2370
X2 = 2530
Y1 = 780
Y2 = 780
End
Begin VB.Line Line1
Index = 0
X1 = 2760
X2 = 2920
Y1 = 390
Y2 = 390
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "金额"
Height = 180
Index = 7
Left = 840
TabIndex = 25
Top = 2370
Width = 360
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "制单人姓名"
Height = 180
Index = 8
Left = 300
TabIndex = 24
Top = 3060
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "本位币金额"
Height = 180
Index = 6
Left = 300
TabIndex = 23
Top = 2715
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "收款账号"
Height = 180
Index = 3
Left = 480
TabIndex = 22
Top = 1335
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "收款单位"
Height = 180
Index = 2
Left = 480
TabIndex = 21
Top = 990
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "业务编号"
Height = 180
Index = 1
Left = 480
TabIndex = 20
Top = 645
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "业务日期"
Height = 180
Index = 0
Left = 480
TabIndex = 19
Top = 300
Width = 720
End
End
End
Attribute VB_Name = "frmFindLend"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 单据查询
'作者: 赵春立
Option Explicit
' iFindType 代表查询单据类型：6-内部拆借；
' 7-拆借还款；
' 8-拆借还息；
' 9-利息单
Public iFindtype As Integer, Quitfs As Boolean
Private cClassID As String
Private sqlWhere As String
Private cYwID As String
Private frmInstance As frmFindReslt
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0: DisplayCalendar edtDateFrom, Me.hwnd, Frame1.left, Frame1.top
Case 1: DisplayCalendar edtDateTo, Me.hwnd, Frame1.left, Frame1.top
End Select
End Sub
Private Sub Command2_Click(Index As Integer)
Dim i As Integer
Select Case Index
Case 0: '确认键
Select Case iFindtype
Case 6: '内部拆借
If VerifyFind Then
For i = 0 To Forms.count - 1
If Forms(i).Tag = "nbcj_cx" Then
BringWindowToTop Forms(i).hwnd
Forms(i).WindowState = 2
Me.Hide
Forms(i).InitForm
Forms(i).sqlFind = "SELECT * FROM FD_UnwDeb WHERE 1=1 " & sqlWhere & ", [cUnwID]"
Forms(i).sqlBillFind = sqlWhere
Forms(i).iFindtype = iFindtype
Forms(i).fillgrid
Quitfs = False
Unload Me
Exit Sub
End If
Next i
Set frmInstance = New frmFindReslt
frmInstance.sqlFind = "SELECT * FROM FD_UnwDeb WHERE 1=1 " & sqlWhere & ", [cUnwID]"
frmInstance.sqlBillFindPg = sqlWhere
frmInstance.iFindtype = iFindtype
Me.Hide
DoEvents
frmInstance.Show
frmInstance.Tag = "nbcj_cx"
Quitfs = False
Unload Me
End If
Case 7: '拆借还款
If VerifyFind Then
For i = 0 To Forms.count - 1
If Forms(i).Tag = "cjhk_cx" Then
BringWindowToTop Forms(i).hwnd
Forms(i).WindowState = 2
Me.Hide
Forms(i).InitForm
Forms(i).sqlFind = "SELECT * FROM FD_UnwRet WHERE 1=1 " & sqlWhere & ", [cRetID]"
Forms(i).sqlBillFind = sqlWhere
Forms(i).iFindtype = iFindtype
Forms(i).fillgrid
Quitfs = False
Unload Me
Exit Sub
End If
Next i
Set frmInstance = New frmFindReslt
frmInstance.sqlFind = "SELECT * FROM FD_UnwRet WHERE 1=1 " & sqlWhere & ", [cRetID]"
frmInstance.sqlBillFindPg = sqlWhere
frmInstance.iFindtype = iFindtype
Me.Hide
DoEvents
frmInstance.Show
frmInstance.Tag = "cjhk_cx"
Quitfs = False
Unload Me
End If
Case 8: '拆借还息
If VerifyFind Then
For i = 0 To Forms.count - 1
If Forms(i).Tag = "cjhx_cx" Then
BringWindowToTop Forms(i).hwnd
Forms(i).WindowState = 2
Me.Hide
Forms(i).InitForm
Forms(i).sqlFind = "SELECT * FROM FD_UnwAcrRcp WHERE 1=1 " & sqlWhere & ", [cUnaID]"
Forms(i).sqlBillFind = sqlWhere
Forms(i).iFindtype = iFindtype
Forms(i).fillgrid
Unload Me
Exit Sub
End If
Next i
Set frmInstance = New frmFindReslt
frmInstance.sqlFind = "SELECT * FROM FD_UnwAcrRcp WHERE 1=1 " & sqlWhere & ", [cUnaID]"
frmInstance.sqlBillFindPg = sqlWhere
frmInstance.iFindtype = iFindtype
Me.Hide
DoEvents
frmInstance.Show
frmInstance.Tag = "cjhx_cx"
Quitfs = False
Unload Me
End If
Case 9: '利息单
If VerifyFind Then
For i = 0 To Forms.count - 1
If Forms(i).Tag = "lxd_cx" Then
BringWindowToTop Forms(i).hwnd
Forms(i).WindowState = 2
Me.Hide
Forms(i).InitForm
Forms(i).sqlFind = "SELECT * FROM FD_CadAcr WHERE 1=1 " & sqlWhere & ", [cCarID]"
Forms(i).sqlBillFind = sqlWhere
Forms(i).sqlBillFindPg = sqlWhere
Forms(i).iFindtype = iFindtype
Forms(i).fillgrid
Quitfs = False
Unload Me
Exit Sub
End If
Next i
Set frmInstance = New frmFindReslt
frmInstance.sqlFind = "SELECT * FROM FD_CadAcr WHERE 1=1 " & sqlWhere & ", [cCarID]"
frmInstance.sqlBillFindPg = sqlWhere
frmInstance.iFindtype = iFindtype
Me.Hide
DoEvents
frmInstance.Show
' frmInstance.Tag = "lxd_cx" 'Cuidong 2000.12.24
Quitfs = False
Unload Me
End If
End Select
Case 1: '取消键
Unload Me
End Select
End Sub
Private Sub edtBhFrom_LostFocus()
If edtBhFrom <> "" Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -