📄 frmcladd.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{CE671F01-259E-40DA-92FE-95803E2ECBB5}#1.0#0"; "SMARTXPBUTTON.OCX"
Begin VB.Form FrmClAdd
BackColor = &H00E0E0E0&
BorderStyle = 3 'Fixed Dialog
Caption = "增加商品入库..."
ClientHeight = 5055
ClientLeft = 30
ClientTop = 315
ClientWidth = 5535
Icon = "FrmClAdd.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5055
ScaleWidth = 5535
StartUpPosition = 2 '屏幕中心
Begin SmartXPButton.XpButton Command1
Height = 435
Index = 0
Left = 3900
TabIndex = 14
TabStop = 0 'False
Top = 4500
Width = 1335
_ExtentX = 2355
_ExtentY = 767
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "退出(&X)"
PictureSmoothBackColor= 13882323
ButtonPicture = "FrmClAdd.frx":030A
End
Begin SmartXPButton.XpButton Command1
Height = 435
Index = 2
Left = 2100
TabIndex = 13
TabStop = 0 'False
Top = 4500
Width = 1635
_ExtentX = 2884
_ExtentY = 767
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "保存修改(&C)"
PictureSmoothBackColor= 13882323
ButtonPicture = "FrmClAdd.frx":0464
End
Begin SmartXPButton.XpButton Command1
Height = 435
Index = 1
Left = 300
TabIndex = 12
TabStop = 0 'False
Top = 4500
Width = 1635
_ExtentX = 2884
_ExtentY = 767
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "新增保存(&S)"
PictureSmoothBackColor= 13882323
ButtonPicture = "FrmClAdd.frx":05BE
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H00DFFFF8&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 3
Left = 1245
MaxLength = 10
TabIndex = 3
Text = "3"
Top = 1500
Width = 3990
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 6
Left = 1245
Locked = -1 'True
MaxLength = 10
TabIndex = 11
TabStop = 0 'False
Text = "6"
Top = 4425
Visible = 0 'False
Width = 3990
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 5
Left = 1245
Locked = -1 'True
MaxLength = 10
TabIndex = 10
TabStop = 0 'False
Text = "5"
Top = 4020
Width = 3990
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 8
Left = 1245
Locked = -1 'True
MaxLength = 30
TabIndex = 9
TabStop = 0 'False
Text = "8"
ToolTipText = "商品编码不能为空"
Top = 3645
Width = 3990
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H00DFFFF8&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 7
Left = 1245
ScrollBars = 2 'Vertical
TabIndex = 8
Text = $"FrmClAdd.frx":0718
Top = 3150
Width = 3990
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H00DFFFF8&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 315
Index = 4
Left = 1245
MaxLength = 10
TabIndex = 4
Text = "4"
Top = 1890
Width = 3990
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H00DFFFF8&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 0
Left = 1245
MaxLength = 13
TabIndex = 0
Text = "0"
ToolTipText = "商品编码不能为空"
Top = 240
Width = 2190
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H00DFFFF8&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 1
Left = 1245
MaxLength = 30
TabIndex = 1
Text = "1"
ToolTipText = "商品名称不能空"
Top = 647
Width = 3465
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H00DFFFF8&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 2
Left = 1245
MaxLength = 20
ScrollBars = 2 'Vertical
TabIndex = 2
Text = "2"
Top = 1054
Width = 3990
End
Begin VB.ComboBox Combo1
BackColor = &H00DFFFF8&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 1245
Style = 2 'Dropdown List
TabIndex = 5
Top = 2310
Width = 1680
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 330
Left = 1245
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -