📄 单据查询.frm
字号:
X2 = 2860
Y1 = 405
Y2 = 405
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "金额"
Height = 180
Index = 5
Left = 840
TabIndex = 23
Top = 1620
Width = 360
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "制单人姓名"
Height = 180
Index = 6
Left = 300
TabIndex = 22
Top = 2280
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "本位币金额"
Height = 180
Index = 4
Left = 300
TabIndex = 21
Top = 1950
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "账 户 号"
Height = 180
Index = 3
Left = 480
TabIndex = 20
Top = 1290
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "单位名称"
Height = 180
Index = 2
Left = 480
TabIndex = 19
Top = 960
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "业务编号"
Height = 180
Index = 1
Left = 480
TabIndex = 18
Top = 630
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "业务日期"
Height = 180
Index = 0
Left = 480
TabIndex = 17
Top = 300
Width = 720
End
End
End
Attribute VB_Name = "frmFind"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 单据查询
'作者: 赵春立
Option Explicit
' iFindType 代表查询单据类型：0-银行贷款；1-内部贷款；
' 2-银行还款；3-内部还款；
' 4-银行还息；5-内部还息；
Public iFindtype As Integer, Quitfs As Boolean
Private sqlWhere As String
Private cYwID As String
Private cClassID 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 0: '银行贷款
If VerifyFind Then
For i = 0 To Forms.count - 1
If Forms(i).Tag = "yhdk_cx" Then
BringWindowToTop Forms(i).hwnd
Forms(i).WindowState = 2
Me.Hide
Forms(i).InitForm
Forms(i).sqlFind = "SELECT * FROM FD_Cred WHERE [cCreID] LIKE '05%'" & sqlWhere & ", [cCreID]"
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_Cred WHERE [cCreID] LIKE '05%'" & sqlWhere & ", [cCreID]"
frmInstance.sqlBillFind = sqlWhere
frmInstance.iFindtype = iFindtype
Me.Hide
DoEvents
frmInstance.Show
frmInstance.Tag = "yhdk_cx"
Quitfs = False
Unload Me
End If
Case 1: '内部贷款
If VerifyFind Then
For i = 0 To Forms.count - 1
If Forms(i).Tag = "nbdk_cx" Then
BringWindowToTop Forms(i).hwnd
Forms(i).WindowState = 2
Me.Hide
Forms(i).InitForm
Forms(i).sqlFind = "SELECT * FROM FD_Cred WHERE [cCreID] LIKE '06%'" & sqlWhere & ", [cCreID]"
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_Cred WHERE [cCreID] LIKE '06%'" & sqlWhere & ", [cCreID]"
frmInstance.sqlBillFind = sqlWhere
frmInstance.iFindtype = iFindtype
Me.Hide
DoEvents
frmInstance.Show
frmInstance.Tag = "nbdk_cx"
Quitfs = False
Unload Me
End If
Case 2: '银行还款
If VerifyFind Then
For i = 0 To Forms.count - 1
If Forms(i).Tag = "yhhk_cx" Then
BringWindowToTop Forms(i).hwnd
Forms(i).WindowState = 2
Me.Hide
Forms(i).InitForm
Forms(i).sqlFind = "SELECT * FROM FD_Return WHERE [cRetID] LIKE '08%'" & 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_Return WHERE [cRetID] LIKE '08%'" & sqlWhere & ", [cRetID]"
frmInstance.sqlBillFind = sqlWhere
frmInstance.iFindtype = iFindtype
Me.Hide
DoEvents
frmInstance.Show
frmInstance.Tag = "yhhk_cx"
Quitfs = False
Unload Me
End If
Case 3: '内部还款
If VerifyFind Then
For i = 0 To Forms.count - 1
If Forms(i).Tag = "nbhk_cx" Then
BringWindowToTop Forms(i).hwnd
Forms(i).WindowState = 2
Me.Hide
Forms(i).InitForm
Forms(i).sqlFind = "SELECT * FROM FD_Return WHERE [cRetID] LIKE '09%'" & 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_Return WHERE [cRetID] LIKE '09%'" & sqlWhere & ", [cRetID]"
frmInstance.sqlBillFind = sqlWhere
frmInstance.iFindtype = iFindtype
Me.Hide
DoEvents
frmInstance.Show
frmInstance.Tag = "nbhk_cx"
Quitfs = False
Unload Me
End If
Case 4: '银行还息
If VerifyFind Then
For i = 0 To Forms.count - 1
If Forms(i).Tag = "yhhx_cx" Then
BringWindowToTop Forms(i).hwnd
Forms(i).WindowState = 2
Me.Hide
Forms(i).InitForm
Forms(i).sqlFind = "SELECT * FROM FD_CreAcrRcp WHERE [cCraID] LIKE '10%'" & sqlWhere & ", [cCraID]"
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_CreAcrRcp WHERE [cCraID] LIKE '10%'" & sqlWhere & ", [cCraID]"
frmInstance.sqlBillFind = sqlWhere
frmInstance.iFindtype = iFindtype
Me.Hide
DoEvents
frmInstance.Show
frmInstance.Tag = "yhhx_cx"
Quitfs = False
Unload Me
End If
Case 5: '内部还息
If VerifyFind Then
For i = 0 To Forms.count - 1
If Forms(i).Tag = "nbhx_cx" Then
BringWindowToTop Forms(i).hwnd
Forms(i).WindowState = 2
Me.Hide
Forms(i).InitForm
Forms(i).sqlFind = "SELECT * FROM FD_CreAcrRcp WHERE [cCraID] LIKE '11%'" & sqlWhere & ", [cCraID]"
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_CreAcrRcp WHERE [cCraID] LIKE '11%'" & sqlWhere & ", [cCraID]"
frmInstance.sqlBillFind = sqlWhere
frmInstance.iFindtype = iFindtype
Me.Hide
DoEvents
frmInstance.Show
frmInstance.Tag = "nbhx_cx"
Quitfs = False
Unload Me
End If
End Select
Case 1: '取消键
Unload Me
End Select
End Sub
'********************************************************************
'*函数说明: 验证输入条件并产生 SQL 语句 *
'*参 数: *
'* *
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -