📄 formsub.frm
字号:
VERSION 5.00
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form Formsub
BorderStyle = 3 'Fixed Dialog
Caption = "请详细填写："
ClientHeight = 8190
ClientLeft = 45
ClientTop = 330
ClientWidth = 10410
Icon = "Formsub.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8190
ScaleWidth = 10410
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
Height = 7575
Left = 0
TabIndex = 2
Top = 0
Width = 10335
Begin MSMask.MaskEdBox MaskEdBox1
Height = 375
Left = 1800
TabIndex = 17
Top = 240
Width = 1935
_ExtentX = 3413
_ExtentY = 661
_Version = 393216
AllowPrompt = -1 'True
MaxLength = 11
Mask = "####年##月##日"
PromptChar = "?"
End
Begin MSDataListLib.DataCombo DataCombo1
Bindings = "Formsub.frx":0442
DataField = "类型"
DataMember = "档案类型"
DataSource = "DataEnvironment1"
Height = 330
Left = 6960
TabIndex = 22
Top = 2280
Width = 2655
_ExtentX = 4683
_ExtentY = 582
_Version = 393216
Style = 2
ListField = "类型"
Text = ""
Object.DataMember = "档案类型"
End
Begin MSDataListLib.DataCombo DataCombo2
Bindings = "Formsub.frx":046A
DataField = "单位名称"
DataMember = "立卷单位"
DataSource = "DataEnvironment1"
Height = 330
Left = 1800
TabIndex = 23
Top = 2280
Width = 2655
_ExtentX = 4683
_ExtentY = 582
_Version = 393216
Style = 2
ListField = "单位名称"
Text = ""
Object.DataMember = "立卷单位"
End
Begin MSDataListLib.DataCombo DataCombo3
Bindings = "Formsub.frx":0492
DataField = "等级"
DataMember = "保密等级"
DataSource = "DataEnvironment1"
Height = 330
Left = 1800
TabIndex = 25
Top = 3600
Width = 2655
_ExtentX = 4683
_ExtentY = 582
_Version = 393216
Style = 2
ListField = "等级"
Text = ""
Object.DataMember = "保密等级"
End
Begin MSDataListLib.DataCombo DataCombo4
Bindings = "Formsub.frx":04BA
DataField = "期限"
DataMember = "保管期限"
DataSource = "DataEnvironment1"
Height = 330
Left = 6960
TabIndex = 26
Top = 3600
Width = 2655
_ExtentX = 4683
_ExtentY = 582
_Version = 393216
Style = 2
ListField = "期限"
Text = ""
Object.DataMember = "保管期限"
End
Begin MSDataListLib.DataCombo DataCombo5
Bindings = "Formsub.frx":04E2
DataField = "地点"
DataMember = "存放地点"
DataSource = "DataEnvironment1"
Height = 330
Left = 6960
TabIndex = 27
Top = 3000
Width = 2655
_ExtentX = 4683
_ExtentY = 582
_Version = 393216
Style = 2
ListField = "地点"
Text = ""
Object.DataMember = "存放地点"
End
Begin MSForms.TextBox TextBox8
Height = 2655
Left = 5280
TabIndex = 30
Top = 4680
Width = 4935
VariousPropertyBits= -1400879077
ScrollBars = 3
Size = "8705;4683"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.TextBox TextBox2
Height = 2655
Left = 240
TabIndex = 29
Top = 4680
Width = 4815
VariousPropertyBits= -1400879077
ScrollBars = 3
Size = "8493;4683"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.TextBox TextBox1
Height = 375
Left = 6960
TabIndex = 28
Top = 960
Width = 2055
VariousPropertyBits= 746604571
Size = "3625;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.TextBox TextBox6
Height = 375
Left = 1800
TabIndex = 24
Top = 2880
Width = 3135
VariousPropertyBits= 746604571
Size = "5530;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.TextBox TextBox7
Height = 375
Left = 6960
TabIndex = 21
Top = 1560
Width = 3135
VariousPropertyBits= 746604571
Size = "5530;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.TextBox TextBox5
Height = 375
Left = 1800
TabIndex = 20
Top = 1560
Width = 3135
VariousPropertyBits= 746604571
Size = "5530;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.TextBox TextBox4
Height = 375
Left = 6960
TabIndex = 19
Top = 240
Width = 3135
VariousPropertyBits= 746604571
Size = "5530;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.TextBox TextBox3
Height = 375
Left = 1800
TabIndex = 18
Top = 960
Width = 3135
VariousPropertyBits= 746604571
Size = "5530;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.Label Label14
Height = 375
Left = 240
TabIndex = 16
Top = 1020
Width = 1695
Caption = "档案号："
Size = "2990;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label Label13
Height = 375
Left = 5280
TabIndex = 15
Top = 360
Width = 1695
Caption = "案卷顺序号："
Size = "2990;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label Label12
Height = 375
Left = 5280
TabIndex = 14
Top = 2340
Width = 1695
Caption = "档案类型："
Size = "2990;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label Label11
Height = 375
Left = 240
TabIndex = 13
Top = 4320
Width = 1695
Caption = "案卷内容简介："
Size = "2990;661"
FontName = "宋体"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -