📄 frminputa.frm
字号:
Height = 312
Left = 7080
Top = 4560
Visible = 0 'False
Width = 960
_ExtentX = 1693
_ExtentY = 550
ConnectMode = 3
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 1
LockType = 3
CommandType = 2
CursorOptions = 0
CacheSize = 50
MaxRecords = 5
BOFAction = 0
EOFAction = 0
ConnectStringType= 3
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "DSN=PmData"
OLEDBString = ""
OLEDBFile = ""
DataSourceName = "PmData"
OtherAttributes = ""
UserName = "Admin"
Password = ""
RecordSource = "DataA"
Caption = "案卷"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSDataListLib.DataCombo dcZTC
Bindings = "frmInputA.frx":0097
Height = 348
Index = 0
Left = 1200
TabIndex = 37
ToolTipText = "第一主题词"
Top = 4080
Width = 2652
_ExtentX = 4678
_ExtentY = 614
_Version = 393216
ListField = "Ztc"
BoundColumn = "ZtcID"
Text = ""
End
Begin MSDataListLib.DataCombo dcZTC
Bindings = "frmInputA.frx":00AC
Height = 348
Index = 1
Left = 4200
TabIndex = 38
ToolTipText = "第二主题词"
Top = 4080
Width = 2652
_ExtentX = 4678
_ExtentY = 614
_Version = 393216
ListField = "Ztc"
BoundColumn = "ZtcID"
Text = ""
End
Begin MSDataListLib.DataCombo dcZTC
Bindings = "frmInputA.frx":00C1
Height = 348
Index = 2
Left = 7200
TabIndex = 39
ToolTipText = "第三主题词"
Top = 4080
Width = 2652
_ExtentX = 4678
_ExtentY = 614
_Version = 393216
ListField = "Ztc"
BoundColumn = "ZtcID"
Text = ""
End
Begin MSDataListLib.DataCombo dcZTC
Bindings = "frmInputA.frx":00D6
Height = 348
Index = 3
Left = 1200
TabIndex = 40
ToolTipText = "第四主题词"
Top = 4560
Width = 2652
_ExtentX = 4678
_ExtentY = 614
_Version = 393216
ListField = "Ztc"
BoundColumn = "ZtcID"
Text = ""
End
Begin MSDataListLib.DataCombo dcZTC
Bindings = "frmInputA.frx":00EB
Height = 348
Index = 4
Left = 4200
TabIndex = 41
ToolTipText = "第五主题词"
Top = 4560
Width = 2652
_ExtentX = 4678
_ExtentY = 614
_Version = 393216
ListField = "Ztc"
BoundColumn = "ZtcID"
Text = ""
End
Begin ComCtl2.UpDown udFDate
Height = 324
Left = 2520
TabIndex = 52
Top = 2400
Width = 276
_ExtentX = 487
_ExtentY = 572
_Version = 327681
BuddyControl = "Text7"
BuddyDispid = 196626
OrigLeft = 2640
OrigTop = 2400
OrigRight = 2916
OrigBottom = 2724
Enabled = -1 'True
End
Begin ComCtl2.UpDown udLDate
Height = 324
Left = 5160
TabIndex = 53
Top = 2400
Width = 276
_ExtentX = 487
_ExtentY = 572
_Version = 327681
BuddyControl = "Text8"
BuddyDispid = 196625
OrigLeft = 2640
OrigTop = 2400
OrigRight = 2916
OrigBottom = 2724
Enabled = -1 'True
End
Begin ComCtl2.UpDown udPage
Height = 324
Left = 9600
TabIndex = 54
Top = 2400
Width = 276
_ExtentX = 487
_ExtentY = 572
_Version = 327681
BuddyControl = "Text11"
BuddyDispid = 196620
OrigLeft = 9600
OrigTop = 2400
OrigRight = 9876
OrigBottom = 2664
Max = 9999
SyncBuddy = -1 'True
Wrap = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin ComCtl2.UpDown udPaper
Height = 324
Left = 9600
TabIndex = 55
Top = 1920
Width = 276
_ExtentX = 487
_ExtentY = 572
_Version = 327681
BuddyControl = "Text10"
BuddyDispid = 196619
OrigLeft = 9600
OrigTop = 1920
OrigRight = 9876
OrigBottom = 2184
Max = 9999
SyncBuddy = -1 'True
Wrap = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin VB.Line Line
BorderColor = &H80000005&
Index = 11
X1 = 0
X2 = 10188
Y1 = 12
Y2 = 12
End
Begin VB.Line Line
BorderColor = &H80000003&
Index = 10
X1 = 0
X2 = 10188
Y1 = 0
Y2 = 0
End
Begin VB.Line Line
BorderColor = &H80000003&
Index = 9
X1 = 8040
X2 = 8040
Y1 = 1224
Y2 = 2868
End
Begin VB.Line Line
BorderColor = &H80000005&
Index = 8
X1 = 8064
X2 = 8064
Y1 = 1224
Y2 = 2868
End
Begin VB.Line Line
BorderColor = &H80000003&
Index = 6
X1 = 5520
X2 = 5520
Y1 = 1224
Y2 = 2868
End
Begin VB.Line Line
BorderColor = &H80000005&
Index = 7
X1 = 5544
X2 = 5544
Y1 = 1224
Y2 = 2868
End
Begin VB.Line Line
BorderColor = &H80000003&
Index = 5
X1 = 120
X2 = 10098
Y1 = 6000
Y2 = 6000
End
Begin VB.Line Line
BorderColor = &H80000005&
Index = 4
X1 = 120
X2 = 10098
Y1 = 6012
Y2 = 6012
End
Begin VB.Line Line
BorderColor = &H80000003&
Index = 3
X1 = 120
X2 = 10098
Y1 = 2880
Y2 = 2880
End
Begin VB.Line Line
BorderColor = &H80000005&
Index = 2
X1 = 120
X2 = 10098
Y1 = 2892
Y2 = 2892
End
Begin VB.Line Line
BorderColor = &H80000003&
Index = 0
X1 = 120
X2 = 10098
Y1 = 1200
Y2 = 1200
End
Begin VB.Line Line
BorderColor = &H80000005&
Index = 1
X1 = 120
X2 = 10098
Y1 = 1212
Y2 = 1212
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "摘 要"
Height = 216
Index = 14
Left = 360
TabIndex = 42
Top = 5160
Width = 648
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "主题词"
Height = 216
Index = 13
Left = 360
TabIndex = 36
Top = 4152
Width = 648
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "正题名"
Height = 216
Index = 12
Left = 360
TabIndex = 34
Top = 3120
Width = 648
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "规格"
Height = 216
Index = 9
Left = 8280
TabIndex = 28
Top = 1500
Width = 432
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "页数"
Height = 216
Index = 11
Left = 8280
TabIndex = 32
Top = 2436
Width = 432
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "份数"
Height = 216
Index = 10
Left = 8280
TabIndex = 30
Top = 1956
Width = 432
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "存档情况"
Height = 216
Index = 8
Left = 5760
TabIndex = 26
Top = 2460
Width = 864
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "案卷密级"
Height = 216
Index = 7
Left = 5760
TabIndex = 24
Top = 1980
Width = 864
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "保管期限"
Height = 216
Index = 6
Left = 5760
TabIndex = 22
Top = 1500
Width = 864
End
Begin VB.Label LabelW
AutoSize = -1 'True
Caption = "最后日期"
Height = 216
Index = 10
Left = 3000
TabIndex = 20
Top = 2460
Width = 864
End
Begin VB.Label LabelW
AutoSize = -1 'True
Caption = "开始日期"
Height = 216
Index = 9
Left = 360
TabIndex = 18
Top = 2460
Width = 864
End
Begin VB.Label LabelW
AutoSize = -1 'True
Caption = "归档单位"
Height = 216
Index = 8
Left = 360
TabIndex = 16
Top = 1980
Width = 864
End
Begin VB.Label LabelW
AutoSize = -1 'True
Caption = "全宗名称"
Height = 216
Index = 7
Left = 360
TabIndex = 14
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -