📄 frmfilter.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 = "{81110CCB-022B-11D3-A348-0080C89152FF}#1.3#0"; "ORAGLIST.OCX"
Object = "{F42BDC2B-FC9B-11D1-9ABD-444553540000}#3.4#0"; "ATLEDIT1.OCX"
Begin VB.Form frmFilter
BorderStyle = 3 'Fixed Dialog
Caption = "筛选"
ClientHeight = 3990
ClientLeft = 45
ClientTop = 330
ClientWidth = 8595
HelpContextID = 10007
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3990
ScaleWidth = 8595
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton CmdReset
Height = 350
Left = 7290
Style = 1 'Graphical
TabIndex = 22
Tag = "1021"
Top = 990
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.Frame Frame3
Caption = "可选项目(&M)"
Height = 3795
Left = 90
TabIndex = 0
Top = 90
Width = 2925
Begin MSComctlLib.ImageList ImageList1
Left = 750
Top = 1950
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
End
Begin MSComctlLib.TreeView tvwFilter
Height = 3405
Left = 120
TabIndex = 1
Top = 270
Width = 2685
_ExtentX = 4736
_ExtentY = 6006
_Version = 393217
HideSelection = 0 'False
Indentation = 529
LineStyle = 1
Style = 7
ImageList = "ImageList1"
BorderStyle = 1
Appearance = 1
End
End
Begin VB.Frame Frame2
Caption = "已选条件(&H)"
Height = 2085
Left = 3090
TabIndex = 18
Top = 1800
Width = 4065
Begin MSFlexGridLib.MSFlexGrid MsgFilter
Height = 1755
Left = 90
TabIndex = 19
Top = 210
Width = 3885
_ExtentX = 6853
_ExtentY = 3096
_Version = 393216
FixedCols = 0
FocusRect = 0
SelectionMode = 1
AllowUserResizing= 3
End
End
Begin VB.CommandButton CmdHelp
Height = 350
Left = 7290
Style = 1 'Graphical
TabIndex = 23
Tag = "1023"
Top = 1440
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton CmdNo
Cancel = -1 'True
Height = 350
Left = 7290
Style = 1 'Graphical
TabIndex = 21
Tag = "1002"
Top = 525
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton CmdOK
Height = 350
Left = 7290
Style = 1 'Graphical
TabIndex = 20
Tag = "1001"
Top = 180
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.Frame Frame1
Caption = "条件设置"
Height = 1605
Left = 3090
TabIndex = 2
Top = 90
Width = 4035
Begin VB.PictureBox picDate
BorderStyle = 0 'None
Height = 1245
Left = 150
ScaleHeight = 1245
ScaleWidth = 3795
TabIndex = 3
Top = 210
Width = 3795
Begin GACALENDARLibCtl.Calendar DateTo
Height = 300
Left = 2340
OleObjectBlob = "frmFilter.frx":0000
TabIndex = 11
Top = 840
Width = 1275
End
Begin GACALENDARLibCtl.Calendar DateFrom
Height = 300
Left = 2310
OleObjectBlob = "frmFilter.frx":0089
TabIndex = 8
Top = 360
Width = 1275
End
Begin GACALENDARLibCtl.Calendar DateOne
Height = 300
Left = 72
OleObjectBlob = "frmFilter.frx":0112
TabIndex = 6
Top = 396
Width = 1488
End
Begin ListRefer.ListText ReferText2
Height = 300
Left = 60
TabIndex = 5
Top = 390
Width = 1515
_ExtentX = 2672
_ExtentY = 529
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 LblTerm
Caption = "可选期间(&D)"
Height = 270
Left = 60
TabIndex = 4
Top = 90
Width = 1815
End
Begin VB.Label lblTo
AutoSize = -1 'True
Caption = "到(&T)"
Height = 180
Left = 1800
TabIndex = 10
Top = 940
Width = 450
End
Begin VB.Label lblFrom
AutoSize = -1 'True
Caption = "从(&F)"
Height = 180
Left = 1800
TabIndex = 7
Top = 450
Width = 450
End
End
Begin VB.PictureBox picAccount
BorderStyle = 0 'None
Height = 1275
Left = 90
ScaleHeight = 1275
ScaleWidth = 3855
TabIndex = 9
Top = 180
Width = 3855
Begin ListRefer.ListText ReferText1
Height = 285
Left = 120
TabIndex = 13
Top = 390
Width = 1785
_ExtentX = 3149
_ExtentY = 529
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 AtlEdit.TEdit TxtTo
Height = 285
Left = 2370
TabIndex = 17
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 = 2370
TabIndex = 15
Top = 390
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 VB.Label lblFrom2
AutoSize = -1 'True
Caption = "从(&F)"
Height = 180
Left = 1920
TabIndex = 14
Top = 450
Visible = 0 'False
Width = 450
End
Begin VB.Label lblTo2
AutoSize = -1 'True
Caption = "到(&T)"
Height = 180
Left = 1920
TabIndex = 16
Top = 945
Visible = 0 'False
Width = 450
End
Begin VB.Label Lblsel
AutoSize = -1 'True
Caption = "科目"
Height = 180
Left = 75
TabIndex = 12
Top = 90
Width = 360
End
End
Begin VB.Label Label1
Caption = "Label1"
Height = 285
Left = 540
TabIndex = 24
Top = 240
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -