📄 frmnewform.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmNewForm
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "添加新档案"
ClientHeight = 3885
ClientLeft = 1095
ClientTop = 330
ClientWidth = 7650
Icon = "frmNewForm.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3885
ScaleWidth = 7650
Begin VB.Frame Frame1
BackColor = &H00C0C0C0&
ForeColor = &H00C0E0FF&
Height = 3630
Left = 165
TabIndex = 7
Top = 75
Width = 7305
Begin VB.PictureBox picScan
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 240
Left = 5565
Picture = "frmNewForm.frx":27A2
ScaleHeight = 240
ScaleWidth = 240
TabIndex = 16
ToolTipText = "扫描文件"
Top = 1155
Width = 240
End
Begin VB.CommandButton SaveAdd
BackColor = &H000000C0&
Caption = "保存记录"
Height = 405
Left = 4320
TabIndex = 5
Top = 405
Width = 1230
End
Begin VB.CommandButton ExitB
BackColor = &H000000C0&
Cancel = -1 'True
Caption = "关闭返回"
Height = 405
Left = 5580
TabIndex = 6
Top = 405
Width = 1230
End
Begin VB.PictureBox Picture1
BackColor = &H00404040&
BorderStyle = 0 'None
Height = 225
Left = 5535
ScaleHeight = 225
ScaleWidth = 1215
TabIndex = 14
Top = 3030
Width = 1215
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "==>>禁止修改!"
ForeColor = &H0000FF00&
Height = 180
Left = 30
MousePointer = 99 'Custom
TabIndex = 15
Top = 30
Width = 1170
End
End
Begin MSComDlg.CommonDialog OpenDialog
Left = -45
Top = 1770
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.TextBox txtFields
BackColor = &H00FFFFFF&
DataField = "参考说明"
DataSource = "Data1"
ForeColor = &H00000000&
Height = 675
Index = 3
Left = 1650
MaxLength = 50
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 3
Top = 2250
Width = 5115
End
Begin VB.TextBox txtFields
BackColor = &H00FFFFFF&
DataField = "name"
DataSource = "Data1"
ForeColor = &H00000000&
Height = 285
Index = 4
Left = 1665
Locked = -1 'True
MaxLength = 25
TabIndex = 4
ToolTipText = "此项不能修改"
Top = 3000
Width = 5115
End
Begin VB.TextBox txtFields
BackColor = &H00FFFFFF&
DataField = "文件说明"
DataSource = "Data1"
ForeColor = &H00000000&
Height = 675
Index = 2
Left = 1650
MaxLength = 100
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 2
Top = 1500
Width = 5100
End
Begin VB.TextBox txtFields
BackColor = &H00FFFFFF&
DataField = "文件名"
DataSource = "Data1"
ForeColor = &H00000000&
Height = 285
Index = 1
Left = 1650
MaxLength = 50
TabIndex = 1
Top = 1125
Width = 3375
End
Begin VB.TextBox txtFields
BackColor = &H00FFFFFF&
DataField = "档案号"
DataSource = "Data1"
ForeColor = &H00000000&
Height = 285
Index = 0
Left = 1650
MaxLength = 50
TabIndex = 0
Top = 465
Width = 2160
End
Begin VB.PictureBox picEditFile
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 240
Left = 5145
Picture = "frmNewForm.frx":28EC
ScaleHeight = 240
ScaleWidth = 240
TabIndex = 13
ToolTipText = "请选择文件"
Top = 1125
Width = 240
End
Begin VB.Line lBottom_1
BorderColor = &H00808080&
Visible = 0 'False
X1 = 5535
X2 = 5835
Y1 = 1410
Y2 = 1410
End
Begin VB.Line lRight_1
BorderColor = &H00FFFFFF&
Visible = 0 'False
X1 = 5835
X2 = 5835
Y1 = 1095
Y2 = 1410
End
Begin VB.Line lTop_1
BorderColor = &H00FFFFFF&
Visible = 0 'False
X1 = 5520
X2 = 5835
Y1 = 1095
Y2 = 1095
End
Begin VB.Line lLeft_1
BorderColor = &H00808080&
Visible = 0 'False
X1 = 5520
X2 = 5520
Y1 = 1095
Y2 = 1425
End
Begin VB.Line lLeft
BorderColor = &H00808080&
Visible = 0 'False
X1 = 5100
X2 = 5100
Y1 = 1095
Y2 = 1425
End
Begin VB.Line lTop
BorderColor = &H00FFFFFF&
Visible = 0 'False
X1 = 5100
X2 = 5415
Y1 = 1095
Y2 = 1095
End
Begin VB.Line lRight
BorderColor = &H00FFFFFF&
Visible = 0 'False
X1 = 5415
X2 = 5415
Y1 = 1095
Y2 = 1410
End
Begin VB.Line lBottom
BorderColor = &H00808080&
Visible = 0 'False
X1 = 5115
X2 = 5415
Y1 = 1410
Y2 = 1410
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "参考说明:"
ForeColor = &H00000000&
Height = 180
Index = 3
Left = 540
TabIndex = 12
Top = 2295
Width = 810
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "档案类型:"
ForeColor = &H00000000&
Height = 180
Index = 7
Left = 555
TabIndex = 11
Top = 3045
Width = 810
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "档案说明:"
ForeColor = &H00000000&
Height = 180
Index = 2
Left = 540
TabIndex = 10
Top = 1545
Width = 810
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "文件名称:"
ForeColor = &H00000000&
Height = 180
Index = 1
Left = 540
TabIndex = 9
Top = 1170
Width = 810
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "档案名称:"
ForeColor = &H000000C0&
Height = 180
Index = 0
Left = 540
TabIndex = 8
Top = 525
Width = 810
End
End
Begin VB.Line Line2
BorderColor = &H00808080&
Index = 0
X1 = 30
X2 = 30
Y1 = 0
Y2 = 3855
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 0
X1 = 30
X2 = 7620
Y1 = 0
Y2 = 0
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
Index = 1
X1 = 60
X2 = 7620
Y1 = 15
Y2 = 15
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
Index = 2
X1 = 45
X2 = 7695
Y1 = 3855
Y2 = 3855
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 3
X1 = 60
X2 = 7605
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -