📄 frmtreefind.frm
字号:
VERSION 5.00
Object = "{D252F124-F62C-11D1-9ABD-444553540000}#1.0#0"; "GADATE.DLL"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F42BDC2B-FC9B-11D1-9ABD-444553540000}#3.4#0"; "ATLEDIT1.OCX"
Object = "{81110CCB-022B-11D3-A348-0080C89152FF}#1.3#0"; "ORAGLIST.OCX"
Begin VB.Form frmTreeFind
Caption = "搜索"
ClientHeight = 5940
ClientLeft = 60
ClientTop = 345
ClientWidth = 9435
HelpContextID = 10001
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 5940
ScaleWidth = 9435
Begin VB.CommandButton CmdFind
Caption = "搜 索 (&S)"
Height = 345
Left = 8130
TabIndex = 21
Top = 170
UseMaskColor = -1 'True
Width = 1215
End
Begin MSFlexGridLib.MSFlexGrid MsgSelected
Height = 2115
Left = 120
TabIndex = 20
Top = 3720
Width = 7935
_ExtentX = 13996
_ExtentY = 3731
_Version = 393216
Cols = 8
FixedCols = 0
FocusRect = 0
SelectionMode = 1
AllowUserResizing= 1
End
Begin VB.CommandButton CmdReport
Caption = " 报 表"
Height = 350
Left = 8130
TabIndex = 26
Top = 4680
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton CmdGoto
Height = 350
Left = 8130
Style = 1 'Graphical
TabIndex = 24
Tag = "1010"
Top = 3750
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton CmdReset
Height = 350
Left = 8130
Style = 1 'Graphical
TabIndex = 23
Tag = "1021"
Top = 990
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.Frame Frame3
Caption = "可选项目(&M)"
Height = 3525
Left = 90
TabIndex = 0
Top = 90
Width = 3165
Begin MSComctlLib.TreeView tvwFilter
Height = 3165
Left = 150
TabIndex = 1
Top = 240
Width = 2925
_ExtentX = 5159
_ExtentY = 5583
_Version = 393217
HideSelection = 0 'False
Indentation = 529
LineStyle = 1
Style = 7
SingleSel = -1 'True
ImageList = "ImageList1"
BorderStyle = 1
Appearance = 1
End
Begin MSComctlLib.ImageList ImageList1
Left = 720
Top = 1830
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
End
End
Begin VB.Frame Frame2
Caption = "已选条件(&H)"
Height = 1815
Left = 3540
TabIndex = 18
Top = 1800
Width = 4515
Begin MSFlexGridLib.MSFlexGrid MsgFilter
Height = 1515
Left = 90
TabIndex = 19
Top = 180
Width = 4335
_ExtentX = 7646
_ExtentY = 2672
_Version = 393216
FixedCols = 0
FocusRect = 0
SelectionMode = 1
AllowUserResizing= 3
End
End
Begin VB.CommandButton CmdHelp
Height = 350
HelpContextID = 36001
Left = 8130
Style = 1 'Graphical
TabIndex = 25
Tag = "1023"
Top = 4200
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton CmdNo
Cancel = -1 'True
Height = 350
Left = 8130
Style = 1 'Graphical
TabIndex = 22
Tag = "1022"
Top = 525
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.Frame Frame1
Caption = "条件设置"
Height = 1605
Left = 3540
TabIndex = 2
Top = 90
Width = 4515
Begin VB.PictureBox PicAccount
BorderStyle = 0 'None
Height = 1275
Left = 150
ScaleHeight = 1275
ScaleWidth = 4335
TabIndex = 3
Top = 180
Width = 4335
Begin AtlEdit.TEdit TxtTo
Height = 285
Left = 2880
TabIndex = 9
Top = 870
Width = 1215
_ExtentX = 2143
_ExtentY = 503
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = ""
End
Begin AtlEdit.TEdit TxtFrom
Height = 285
Left = 2880
TabIndex = 7
Top = 420
Width = 1215
_ExtentX = 2143
_ExtentY = 503
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = ""
End
Begin ListRefer.ListText ReferText1
Height = 285
Left = 120
TabIndex = 5
Top = 390
Width = 1965
_ExtentX = 3466
_ExtentY = 503
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label lblTo2
AutoSize = -1 'True
Caption = "到(&T)"
Height = 180
Left = 2370
TabIndex = 8
Top = 945
Visible = 0 'False
Width = 450
End
Begin VB.Label lblFrom2
AutoSize = -1 'True
Caption = "从(&F)"
Height = 180
Left = 2370
TabIndex = 6
Top = 450
Visible = 0 'False
Width = 450
End
Begin VB.Label Lblsel
AutoSize = -1 'True
Caption = "科目"
Height = 180
Left = 75
TabIndex = 4
Top = 90
Width = 360
End
End
Begin VB.PictureBox PicDate
BorderStyle = 0 'None
Height = 1245
Left = 120
ScaleHeight = 1245
ScaleWidth = 4275
TabIndex = 10
Top = 180
Width = 4275
Begin GACALENDARLibCtl.Calendar DateTo
Height = 300
Left = 2700
OleObjectBlob = "frmTreeFind.frx":0000
TabIndex = 17
Top = 840
Width = 1275
End
Begin GACALENDARLibCtl.Calendar DateFrom
Height = 300
Left = 2700
OleObjectBlob = "frmTreeFind.frx":0089
TabIndex = 15
Top = 390
Width = 1275
End
Begin GACALENDARLibCtl.Calendar DateOne
Height = 300
Left = 90
OleObjectBlob = "frmTreeFind.frx":0112
TabIndex = 13
Top = 390
Width = 1305
End
Begin ListRefer.ListText ReferText2
Height = 315
Left = 90
TabIndex = 12
Top = 390
Width = 1725
_ExtentX = 3043
_ExtentY = 556
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label lblTo
AutoSize = -1 'True
Caption = "到(&T)"
Height = 180
Left = 2190
TabIndex = 16
Top = 960
Width = 450
End
Begin VB.Label lblFrom
AutoSize = -1 'True
Caption = "从(&F)"
Height = 180
Left = 2190
TabIndex = 14
Top = 450
Width = 450
End
Begin VB.Label LblTerm
Caption = "可选期间(&D)"
Height = 270
Left = 60
TabIndex = 11
Top = 90
Width = 1815
End
End
Begin VB.Label Label1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -