📄 帐户查找.frm
字号:
VERSION 5.00
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Object = "{7E0DF0CE-703B-11D3-8E57-0000210152D8}#1.0#0"; "UsRefBut.ocx"
Object = "{1A756D10-188A-48FB-B0C1-36BE7B352DAC}#2.0#0"; "U8RefBut.ocx"
Begin VB.Form frmAccFind
BorderStyle = 4 'Fixed ToolWindow
Caption = "账户定义---查找"
ClientHeight = 2715
ClientLeft = 45
ClientTop = 285
ClientWidth = 7830
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2715
ScaleWidth = 7830
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton cmdOk
Cancel = -1 'True
Caption = "查找下一个"
Default = -1 'True
Height = 365
Left = 6480
Picture = "帐户查找.frx":0000
TabIndex = 0
Top = 330
Width = 1200
End
Begin VB.CommandButton cmdCancel
Caption = "取消"
Height = 365
Left = 6480
Picture = "帐户查找.frx":096A
TabIndex = 24
Top = 870
Width = 1200
End
Begin VB.Frame fraAccFind
Height = 2595
Left = 150
TabIndex = 14
Top = 60
Width = 6045
Begin U8RefBut.RefCmd RefCmd4
Height = 270
Left = 2660
TabIndex = 29
Top = 1373
Width = 270
_ExtentX = 476
_ExtentY = 476
End
Begin VB.CommandButton cmdAccRef
Height = 285
Left = 5700
TabIndex = 5
Top = 653
Visible = 0 'False
Width = 270
End
Begin VB.CommandButton cmdUnitRef
Height = 285
Left = 5700
TabIndex = 2
Top = 293
Visible = 0 'False
Width = 270
End
Begin VB.ComboBox cboSource
Height = 315
ItemData = "帐户查找.frx":12D4
Left = 1170
List = "帐户查找.frx":12E1
Style = 2 'Dropdown List
TabIndex = 10
Top = 1740
Width = 1485
End
Begin VB.ComboBox cboAccIO
Height = 315
ItemData = "帐户查找.frx":12F3
Left = 3990
List = "帐户查找.frx":1300
Style = 2 'Dropdown List
TabIndex = 11
Top = 1740
Width = 1425
End
Begin VB.ComboBox cboMoneyName
Height = 315
ItemData = "帐户查找.frx":1312
Left = 3990
List = "帐户查找.frx":1319
Style = 2 'Dropdown List
TabIndex = 13
Top = 2100
Width = 1425
End
Begin VB.ComboBox cboAccType
Height = 315
ItemData = "帐户查找.frx":1320
Left = 1170
List = "帐户查找.frx":132D
Style = 2 'Dropdown List
TabIndex = 12
Top = 2100
Width = 1485
End
Begin EDITLib.Edit txtAccCode
Height = 270
Index = 0
Left = 1170
TabIndex = 3
Top = 660
Width = 4245
_Version = 65536
_ExtentX = 7488
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 1
MaxLength = 20
BadStr = "|"
End
Begin EDITLib.Edit txtAccCode
Height = 270
Index = 1
Left = 1170
TabIndex = 4
Top = 1020
Width = 4245
_Version = 65536
_ExtentX = 7488
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 1
MaxLength = 60
BadStr = "|"
End
Begin EDITLib.Edit txtIRate
Height = 270
Left = 1170
TabIndex = 6
Top = 1380
Width = 1485
_Version = 65536
_ExtentX = 2619
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 1
MaxLength = 60
BadStr = "|"
End
Begin EDITLib.Edit txtCad
Height = 270
Left = 3990
TabIndex = 8
Top = 1380
Width = 1425
_Version = 65536
_ExtentX = 2514
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 1
MaxLength = 60
BadStr = "|"
End
Begin EDITLib.Edit txtUnit
Height = 270
Left = 1170
TabIndex = 1
Top = 300
Width = 4245
_Version = 65536
_ExtentX = 7488
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 1
MaxLength = 60
BadStr = "|"
End
Begin UsRefBut.RefCmd Refyhmc
Height = 270
Left = 5420
TabIndex = 25
Top = 300
Width = 255
_ExtentX = 450
_ExtentY = 476
RefMode = 0
RefUnitMode = 1
RefAccMode = 0
Enabled = -1 'True
End
Begin UsRefBut.RefCmd Refyhzh
Height = 270
Left = 5420
TabIndex = 26
Top = 660
Width = 255
_ExtentX = 450
_ExtentY = 476
RefMode = 1
RefUnitMode = 0
RefAccMode = 0
Enabled = -1 'True
End
Begin UsRefBut.RefCmd RefCmd1
Height = 270
Left = 2660
TabIndex = 27
Top = 1373
Visible = 0 'False
Width = 270
_ExtentX = 476
_ExtentY = 476
RefMode = 2
RefUnitMode = 0
RefAccMode = 0
Enabled = -1 'True
End
Begin UsRefBut.RefCmd RefCmd2
Height = 270
Left = 5420
TabIndex = 28
Top = 1373
Width = 270
_ExtentX = 476
_ExtentY = 476
RefMode = 3
RefUnitMode = 0
RefAccMode = 0
Enabled = -1 'True
End
Begin VB.CommandButton cmdCadRef
Height = 285
Left = 5420
TabIndex = 9
Top = 1373
Visible = 0 'False
Width = 270
End
Begin VB.CommandButton cmdIrateRef
Height = 285
Left = 2660
TabIndex = 7
Top = 1373
Visible = 0 'False
Width = 270
End
Begin VB.Label Label
AutoSize = -1 'True
Caption = "账户名称"
ForeColor = &H00000000&
Height = 180
Index = 1
Left = 270
TabIndex = 23
Top = 1065
Width = 720
End
Begin VB.Label Label
AutoSize = -1 'True
Caption = "账户号"
ForeColor = &H00000000&
Height = 180
Index = 2
Left = 270
TabIndex = 22
Top = 705
Width = 540
End
Begin VB.Label Label
AutoSize = -1 'True
Caption = "利率代码"
ForeColor = &H00000000&
Height = 180
Index = 3
Left = 270
TabIndex = 21
Top = 1425
Width = 720
End
Begin VB.Label Label
AutoSize = -1 'True
Caption = "结息日"
Height = 180
Index = 8
Left = 3390
TabIndex = 20
Top = 1425
Width = 540
End
Begin VB.Label Label
AutoSize = -1 'True
Caption = "数据来源"
ForeColor = &H00000000&
Height = 180
Index = 0
Left = 270
TabIndex = 19
Top = 1800
Width = 720
End
Begin VB.Label Label
AutoSize = -1 'True
Caption = "账户内外部"
ForeColor = &H00000000&
Height = 195
Index = 4
Left = 3030
TabIndex = 18
Top = 1800
Width = 900
End
Begin VB.Label Label
AutoSize = -1 'True
Caption = "单位代码"
ForeColor = &H00000000&
Height = 195
Index = 5
Left = 270
TabIndex = 17
Top = 345
Width = 720
End
Begin VB.Label Label
AutoSize = -1 'True
Caption = "币种"
ForeColor = &H00000000&
Height = 195
Index = 6
Left = 3570
TabIndex = 16
Top = 2160
Width = 360
End
Begin VB.Label Label
AutoSize = -1 'True
Caption = "账户类型"
ForeColor = &H00000000&
Height = 195
Index = 7
Left = 270
TabIndex = 15
Top = 2160
Width = 720
End
End
End
Attribute VB_Name = "frmAccFind"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'--------------------------------
'时间:2002.03.07
'版权:北京用友软件股份有限公司
'界面:魏小黎
'编码:章景峰(8.30)
'说明:U8资金管理---账户定义查找
'--------------------------------
Private WithEvents mRefCtlUI As clsRefCtlUI
Attribute mRefCtlUI.VB_VarHelpID = -1
Public m_ShowDestroy As Byte
Public m_FromAccOrGrp As Byte
Private m_FindResult As String
Public Sub WithEvent(ByVal sOID As String, ByVal sID As String, ByVal sName As String, ByVal RefTypeName As String)
Set mRefCtlUI = New clsRefCtlUI
mRefCtlUI.RefCtlEvent sOID, sID, sName, RefTypeName
End Sub
Private Sub cmdOK_Click()
On Error Resume Next
Dim objAccDefBI As New U8FDBso.clsAccDefBI
Dim objOID As New U8FDEso.OIDObject
Dim FindID As String
Dim sql As String
Dim objForm As Form
If m_FromAccOrGrp = 1 Then
For i = 0 To Forms.count - 1
If Forms(i).Name = "frmAccMgr" Then
Set objForm = Forms(i)
sql = sql & " and " & objForm.EO("destroy_flag").SourceField & " =0"
If Len(Trim(Me.txtUnit.Text)) <> 0 Then
sql = sql & " and " & objForm.EO("accunit_code").SourceField & " like '" & Trim(Me.txtUnit.Text) & "%'"
End If
If Len(Trim(Trim(Me.txtAccCode(0).Text))) <> 0 Then
sql = sql & " and " & objForm.EO("accdef_code").SourceField & " like '" & Trim(Me.txtAccCode(0).Text) & "%'"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -