📄 frmdocuments.frm
字号:
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column17
DataField = "文件格式"
Caption = "文件格式"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
ColumnWidth = 1094.74
EndProperty
BeginProperty Column01
ColumnWidth = 2085.166
EndProperty
BeginProperty Column02
ColumnWidth = 2085.166
EndProperty
BeginProperty Column03
ColumnWidth = 2085.166
EndProperty
BeginProperty Column04
ColumnWidth = 2085.166
EndProperty
BeginProperty Column05
ColumnWidth = 2085.166
EndProperty
BeginProperty Column06
ColumnWidth = 2085.166
EndProperty
BeginProperty Column07
ColumnWidth = 2085.166
EndProperty
BeginProperty Column08
ColumnWidth = 2085.166
EndProperty
BeginProperty Column09
ColumnWidth = 2085.166
EndProperty
BeginProperty Column10
ColumnWidth = 2085.166
EndProperty
BeginProperty Column11
ColumnWidth = 2085.166
EndProperty
BeginProperty Column12
ColumnWidth = 2085.166
EndProperty
BeginProperty Column13
ColumnWidth = 2085.166
EndProperty
BeginProperty Column14
ColumnWidth = 2085.166
EndProperty
BeginProperty Column15
ColumnWidth = 2085.166
EndProperty
BeginProperty Column16
ColumnWidth = 2085.166
EndProperty
BeginProperty Column17
ColumnWidth = 2085.166
EndProperty
EndProperty
End
Begin VB.Frame Frame2
BackColor = &H00C0E0FF&
Caption = "[文档归档]"
Height = 3255
Left = 120
TabIndex = 2
Top = 4200
Width = 7875
Begin VB.TextBox txtFields
DataField = "内容简介"
DataSource = "Adodc1"
Height = 450
Index = 6
Left = 240
TabIndex = 37
Text = "Text7"
Top = 2760
Width = 7515
End
Begin VB.TextBox txtFields
DataField = "重要程度"
DataSource = "Adodc1"
Height = 330
Index = 13
Left = 4980
TabIndex = 44
Text = "Text14"
Top = 2340
Width = 1455
End
Begin VB.TextBox txtFields
DataField = "使用频率"
DataSource = "Adodc1"
Height = 330
Index = 12
Left = 4980
TabIndex = 43
Text = "Text13"
Top = 1980
Width = 1455
End
Begin VB.TextBox txtFields
DataField = "最后归档时间"
BeginProperty DataFormat
Type = 1
Format = "yyyy-mm-dd hh:mm"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
DataSource = "Adodc1"
Height = 330
Index = 11
Left = 4980
TabIndex = 42
Text = "now"
Top = 1620
Width = 2775
End
Begin VB.TextBox txtFields
DataField = "编写目的"
DataSource = "Adodc1"
Height = 315
Index = 10
Left = 4980
TabIndex = 41
Text = "Text11"
Top = 1260
Width = 2775
End
Begin VB.TextBox txtFields
DataField = "语言"
DataSource = "Adodc1"
Height = 330
Index = 9
Left = 4980
TabIndex = 40
Text = "Text10"
Top = 900
Width = 1455
End
Begin VB.TextBox txtFields
DataField = "版本号"
DataSource = "Adodc1"
Height = 330
Index = 8
Left = 4980
TabIndex = 39
Text = "Text9"
Top = 540
Width = 2775
End
Begin VB.TextBox txtFields
DataField = "完成日期"
BeginProperty DataFormat
Type = 1
Format = "yyyy""年""M""月""d""日"""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 3
EndProperty
DataSource = "Adodc1"
Height = 315
Index = 7
Left = 4980
TabIndex = 38
Text = "Text8"
Top = 180
Width = 2775
End
Begin VB.TextBox txtFields
DataField = "关键词"
DataSource = "Adodc1"
Height = 330
Index = 5
Left = 1200
TabIndex = 36
Text = "Text6"
Top = 2040
Width = 2175
End
Begin VB.TextBox txtFields
DataField = "类别"
DataSource = "Adodc1"
Height = 315
Index = 4
Left = 1200
TabIndex = 35
Text = "Text5"
Top = 1680
Width = 1035
End
Begin VB.TextBox txtFields
DataField = "单位"
DataSource = "Adodc1"
Height = 330
Index = 3
Left = 1200
TabIndex = 34
Text = "Text4"
Top = 1320
Width = 2175
End
Begin VB.TextBox txtFields
DataField = "作者"
DataSource = "Adodc1"
Height = 315
Index = 2
Left = 1200
TabIndex = 33
Text = "Text3"
Top = 960
Width = 2175
End
Begin VB.TextBox txtFields
DataField = "主题"
DataSource = "Adodc1"
Height = 315
Index = 1
Left = 1200
TabIndex = 32
Text = "Text2"
Top = 600
Width = 2175
End
Begin VB.TextBox txtFields
DataField = "标题"
DataSource = "Adodc1"
Height = 315
Index = 0
Left = 1200
TabIndex = 31
Text = "Text1"
Top = 240
Width = 2175
End
Begin MSDataListLib.DataCombo DataCombo1
Bindings = "frmDocuments.frx":01CD
Height = 330
Left = 2340
TabIndex = 21
Top = 1680
Width = 1035
_ExtentX = 1826
_ExtentY = 582
_Version = 393216
ListField = "项目名称"
Text = ""
Object.DataMember = "项目"
End
Begin VB.ComboBox Combo4
Height = 300
ItemData = "frmDocuments.frx":01E7
Left = 6480
List = "frmDocuments.frx":01F7
TabIndex = 20
Top = 2340
Width = 1275
End
Begin VB.ComboBox Combo3
Height = 300
ItemData = "frmDocuments.frx":020D
Left = 6480
List = "frmDocuments.frx":021D
TabIndex = 19
Top = 1980
Width = 1275
End
Begin VB.ComboBox Combo2
Height = 300
ItemData = "frmDocuments.frx":0239
Left = 6540
List = "frmDocuments.frx":0246
TabIndex = 18
Top = 900
Width = 1215
End
Begin VB.Label Label26
Caption = "Label1"
DataField = "文件格式"
DataSource = "Adodc1"
Height = 255
Left = 2400
TabIndex = 46
Top = 2400
Visible = 0 'False
Width = 1035
End
Begin VB.Label Label24
Caption = "Label1"
DataField = "原磁盘位置"
DataSource = "Adodc1"
Height = 255
Left = 1200
TabIndex = 45
Top = 2400
Visible = 0 'False
Width = 1095
End
Begin VB.Label Label23
DataField = "编号"
DataSource = "Adodc1"
ForeColor = &H000000FF&
Height = 315
Left = 1440
TabIndex = 23
Top = 3540
Width = 2835
End
Begin VB.Label Label20
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "重要程度："
Height = 255
Left = 3840
TabIndex = 17
Top = 2460
Width = 1095
End
Begin VB.Label Label19
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "使用频率："
Height = 255
Left = 3840
TabIndex = 16
Top = 2100
Width = 1095
End
Begin VB.Label Label18
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "最后归档时间："
Height = 255
Left = 3600
TabIndex = 15
Top = 1680
Width = 1335
End
Begin VB.Label Label17
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "编写目的："
Height = 255
Left = 3840
TabIndex = 14
Top = 1320
Width = 1095
End
Begin VB.Label Label16
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "语言："
Height = 255
Left = 3840
TabIndex = 13
Top = 960
Width = 1095
End
Begin VB.Label Label15
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "版本号："
Height = 255
Left = 3840
TabIndex = 12
Top = 660
Width = 1095
End
Begin VB.Label Label14
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "完成日期："
Height = 255
Left = 3840
TabIndex = 11
Top = 300
Width = 1095
End
Begin VB.Label Label12
Alignment = 1 'Right Justify
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -