📄 frmmodifyform.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmModifyForm
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Dialog
ClientHeight = 3885
ClientLeft = 45
ClientTop = 330
ClientWidth = 7365
Icon = "frmModifyForm.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3885
ScaleWidth = 7365
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame1
BackColor = &H00C0C0C0&
ForeColor = &H00C0E0FF&
Height = 3630
Left = 150
TabIndex = 7
Top = 105
Width = 7050
Begin VB.PictureBox picScan
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 240
Left = 5445
Picture = "frmModifyForm.frx":0442
ScaleHeight = 240
ScaleWidth = 240
TabIndex = 16
ToolTipText = "扫描文件"
Top = 1140
Width = 240
End
Begin VB.PictureBox picEditFile
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 240
Left = 5025
Picture = "frmModifyForm.frx":058C
ScaleHeight = 240
ScaleWidth = 240
TabIndex = 15
ToolTipText = "请选择文件"
Top = 1110
Width = 240
End
Begin VB.CommandButton ExitB
BackColor = &H000000C0&
Cancel = -1 'True
Caption = "关闭返回"
Height = 405
Left = 5385
TabIndex = 6
Top = 405
Width = 1365
End
Begin VB.CommandButton SaveAdd
BackColor = &H000000C0&
Caption = "保存记录"
Height = 405
Left = 3960
TabIndex = 5
Top = 405
Width = 1365
End
Begin VB.TextBox txtFields
BackColor = &H00FFFFFF&
DataField = "档案号"
DataSource = "Data1"
ForeColor = &H00000000&
Height = 285
Index = 0
Left = 1545
MaxLength = 50
TabIndex = 0
Top = 450
Width = 2160
End
Begin VB.TextBox txtFields
BackColor = &H00FFFFFF&
DataField = "文件名"
DataSource = "Data1"
ForeColor = &H00000000&
Height = 285
Index = 1
Left = 1545
MaxLength = 50
TabIndex = 1
Top = 1110
Width = 3375
End
Begin VB.TextBox txtFields
BackColor = &H00FFFFFF&
DataField = "文件说明"
DataSource = "Data1"
ForeColor = &H00000000&
Height = 675
Index = 2
Left = 1545
MaxLength = 100
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 2
Top = 1485
Width = 5205
End
Begin VB.TextBox txtFields
BackColor = &H00FFFFFF&
DataField = "参考说明"
DataSource = "Data1"
ForeColor = &H00000000&
Height = 675
Index = 3
Left = 1545
MaxLength = 50
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 3
Top = 2235
Width = 5220
End
Begin VB.PictureBox Picture1
BackColor = &H000000C0&
BorderStyle = 0 'None
Height = 225
Left = 5520
ScaleHeight = 225
ScaleWidth = 1215
TabIndex = 8
Top = 3015
Width = 1215
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "==>>禁止修改!"
ForeColor = &H00FFFFFF&
Height = 180
Left = 30
MousePointer = 99 'Custom
TabIndex = 9
Top = 15
Width = 1170
End
End
Begin MSComDlg.CommonDialog OpenDialog
Left = 120
Top = 2010
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.TextBox txtFields
BackColor = &H00FFFFFF&
DataField = "name"
DataSource = "Data1"
ForeColor = &H00000000&
Height = 285
Index = 4
Left = 1545
Locked = -1 'True
MaxLength = 25
TabIndex = 4
ToolTipText = "此项不能修改"
Top = 2985
Width = 5220
End
Begin VB.Line lLeft_1
BorderColor = &H00808080&
Visible = 0 'False
X1 = 5400
X2 = 5400
Y1 = 1080
Y2 = 1410
End
Begin VB.Line lTop_1
BorderColor = &H00FFFFFF&
Visible = 0 'False
X1 = 5400
X2 = 5715
Y1 = 1080
Y2 = 1080
End
Begin VB.Line lRight_1
BorderColor = &H00FFFFFF&
Visible = 0 'False
X1 = 5715
X2 = 5715
Y1 = 1080
Y2 = 1395
End
Begin VB.Line lBottom_1
BorderColor = &H00808080&
Visible = 0 'False
X1 = 5415
X2 = 5715
Y1 = 1395
Y2 = 1395
End
Begin VB.Line lBottom
BorderColor = &H00808080&
Visible = 0 'False
X1 = 4995
X2 = 5295
Y1 = 1395
Y2 = 1395
End
Begin VB.Line lRight
BorderColor = &H00FFFFFF&
Visible = 0 'False
X1 = 5295
X2 = 5295
Y1 = 1080
Y2 = 1395
End
Begin VB.Line lTop
BorderColor = &H00FFFFFF&
Visible = 0 'False
X1 = 4980
X2 = 5295
Y1 = 1080
Y2 = 1080
End
Begin VB.Line lLeft
BorderColor = &H00808080&
Visible = 0 'False
X1 = 4980
X2 = 4980
Y1 = 1080
Y2 = 1410
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "档案名称:"
ForeColor = &H000000C0&
Height = 180
Index = 0
Left = 435
TabIndex = 14
Top = 510
Width = 810
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "文件名称:"
ForeColor = &H00000000&
Height = 180
Index = 1
Left = 435
TabIndex = 13
Top = 1155
Width = 810
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "档案说明:"
ForeColor = &H00000000&
Height = 180
Index = 2
Left = 435
TabIndex = 12
Top = 1530
Width = 810
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "档案类型:"
ForeColor = &H00000000&
Height = 180
Index = 7
Left = 450
TabIndex = 11
Top = 3030
Width = 810
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "参考说明:"
ForeColor = &H00000000&
Height = 180
Index = 3
Left = 435
TabIndex = 10
Top = 2280
Width = 810
End
End
Begin VB.Line Line2
BorderColor = &H00E0E0E0&
Index = 2
X1 = 30
X2 = 30
Y1 = 30
Y2 = 3870
End
Begin VB.Line Line3
BorderColor = &H00E0E0E0&
Index = 1
X1 = 7350
X2 = 7350
Y1 = 15
Y2 = 3840
End
Begin VB.Line Line2
BorderColor = &H00808080&
Index = 1
X1 = 7335
X2 = 7335
Y1 = 15
Y2 = 3870
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 3
X1 = 45
X2 = 7350
Y1 = 3855
Y2 = 3855
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
Index = 2
X1 = 30
X2 = 7335
Y1 = 3870
Y2 = 3870
End
Begin VB.Line Line1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -