📄 frmfiltera.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Begin VB.Form frmFilterA
Caption = "数据过滤"
ClientHeight = 6252
ClientLeft = 48
ClientTop = 336
ClientWidth = 8508
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 6252
ScaleWidth = 8508
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox FilterTest
Height = 612
Left = 360
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 29
Top = 5520
Width = 7932
End
Begin VB.CheckBox CheckF
Caption = "模糊查询"
Enabled = 0 'False
Height = 252
Left = 7080
TabIndex = 28
Top = 1680
Width = 1212
End
Begin VB.CommandButton cmdLast
Caption = "上一步(&L)"
Height = 372
Left = 7080
TabIndex = 27
Top = 3960
Width = 1212
End
Begin VB.CommandButton cmdNext
Caption = "下一步(&N)"
Height = 372
Left = 7080
TabIndex = 0
Top = 4440
Width = 1212
End
Begin VB.CommandButton cmdClear
Caption = "清除(&C)"
Enabled = 0 'False
Height = 372
Left = 7080
TabIndex = 26
Top = 1080
Width = 1212
End
Begin VB.CommandButton cmdALL
Caption = "全选(&A)"
Height = 372
Left = 7080
TabIndex = 25
Top = 600
Width = 1212
End
Begin VB.Frame FrameF
Caption = "综合筛选条件"
Height = 5172
Left = 360
TabIndex = 1
Top = 240
Width = 6372
Begin VB.CheckBox CheckFZ
Caption = "归档单位(&3)"
Height = 372
Index = 1
Left = 480
TabIndex = 4
ToolTipText = "归档单位"
Top = 1320
Width = 1452
End
Begin VB.TextBox TextO
BackColor = &H80000004&
Enabled = 0 'False
Height = 324
Left = 3600
TabIndex = 24
Top = 4680
Width = 2412
End
Begin VB.ComboBox ComboO
BackColor = &H80000004&
Enabled = 0 'False
Height = 312
ItemData = "frmFilterA.frx":0000
Left = 4560
List = "frmFilterA.frx":001C
TabIndex = 23
ToolTipText = "保管期限"
Top = 4200
Width = 1452
End
Begin VB.CheckBox CheckFO
Caption = "其它(&T)"
Height = 372
Left = 3480
TabIndex = 12
Top = 4200
Width = 1092
End
Begin VB.ComboBox ComboF
BackColor = &H80000004&
Enabled = 0 'False
Height = 312
Index = 2
ItemData = "frmFilterA.frx":005E
Left = 2040
List = "frmFilterA.frx":006B
TabIndex = 22
ToolTipText = "保管期限"
Top = 4680
Width = 1092
End
Begin VB.ComboBox ComboF
BackColor = &H80000004&
Enabled = 0 'False
Height = 312
Index = 1
ItemData = "frmFilterA.frx":0087
Left = 2040
List = "frmFilterA.frx":0094
TabIndex = 21
ToolTipText = "保管期限"
Top = 4200
Width = 1092
End
Begin VB.ComboBox ComboF
BackColor = &H80000004&
Enabled = 0 'False
Height = 312
Index = 0
ItemData = "frmFilterA.frx":00AA
Left = 2040
List = "frmFilterA.frx":00B7
TabIndex = 20
ToolTipText = "保管期限"
Top = 3720
Width = 1092
End
Begin VB.TextBox TextF
BackColor = &H80000004&
Enabled = 0 'False
Height = 324
Index = 2
Left = 2040
TabIndex = 18
ToolTipText = "正题名"
Top = 2760
Width = 3732
End
Begin VB.TextBox TextF
BackColor = &H80000004&
BeginProperty DataFormat
Type = 1
Format = "yyyy.MM.dd"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 3
EndProperty
Enabled = 0 'False
Height = 324
Index = 3
Left = 2040
MaxLength = 10
TabIndex = 17
ToolTipText = "形成日期"
Top = 2280
Width = 3732
End
Begin VB.TextBox TextF
BackColor = &H80000004&
Enabled = 0 'False
Height = 324
Index = 1
Left = 2040
TabIndex = 16
ToolTipText = "文件编号"
Top = 1800
Width = 3732
End
Begin VB.TextBox TextF
BackColor = &H80000004&
Enabled = 0 'False
Height = 324
Index = 0
Left = 2040
MaxLength = 20
TabIndex = 13
ToolTipText = "档号"
Top = 360
Width = 3732
End
Begin VB.CheckBox CheckFC
Caption = "存档情况(&0)"
Height = 372
Index = 2
Left = 480
TabIndex = 11
ToolTipText = "存档情况"
Top = 4680
Width = 1452
End
Begin VB.CheckBox CheckFC
Caption = "案卷密级(&9)"
Height = 372
Index = 1
Left = 480
TabIndex = 10
ToolTipText = "密级"
Top = 4200
Width = 1452
End
Begin VB.CheckBox CheckFC
Caption = "保管期限(&8)"
Height = 372
Index = 0
Left = 480
TabIndex = 9
ToolTipText = "保管期限"
Top = 3720
Width = 1452
End
Begin VB.CheckBox CheckFZ
Caption = "主 题 词(&7)"
Height = 372
Index = 2
Left = 480
TabIndex = 8
ToolTipText = "主题词"
Top = 3240
Width = 1452
End
Begin VB.CheckBox CheckFT
Caption = "正 题 名(&6)"
Height = 372
Index = 2
Left = 480
TabIndex = 7
ToolTipText = "正题名"
Top = 2760
Width = 1452
End
Begin VB.CheckBox CheckFT
Caption = "形成日期(&5)"
Height = 372
Index = 3
Left = 480
TabIndex = 6
Top = 2280
Width = 1452
End
Begin VB.CheckBox CheckFT
Caption = "文件编号(&4)"
Height = 372
Index = 1
Left = 480
TabIndex = 5
ToolTipText = "文件编号"
Top = 1800
Width = 1452
End
Begin VB.CheckBox CheckFZ
Caption = "全宗名称(&2)"
Height = 372
Index = 0
Left = 480
TabIndex = 3
ToolTipText = "全宗名称"
Top = 840
Width = 1452
End
Begin VB.CheckBox CheckFT
Caption = "档 号(&1)"
Height = 372
Index = 0
Left = 480
TabIndex = 2
ToolTipText = "档号"
Top = 360
Width = 1452
End
Begin MSDataListLib.DataCombo dcF
Bindings = "frmFilterA.frx":00CD
Height = 348
Index = 0
Left = 2040
TabIndex = 14
ToolTipText = "责任者"
Top = 840
Width = 3732
_ExtentX = 6583
_ExtentY = 614
_Version = 393216
Enabled = 0 'False
Style = 2
BackColor = -2147483648
ListField = "Zr"
BoundColumn = "ZrID"
Text = ""
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -