📄 frmpd_in.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.OCX"
Begin VB.Form FrmPD_IN
Caption = "进货管理"
ClientHeight = 6555
ClientLeft = 60
ClientTop = 345
ClientWidth = 7080
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 6555
ScaleWidth = 7080
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox Picture1
BorderStyle = 0 'None
FillStyle = 0 'Solid
Height = 495
Left = 2160
ScaleHeight = 495
ScaleWidth = 3495
TabIndex = 1
Top = 5880
Width = 3495
Begin VB.CommandButton CmdOk
Caption = "保存"
Height = 375
Left = 240
TabIndex = 3
Top = 120
Width = 975
End
Begin VB.CommandButton CmdNext
Caption = "添加"
Height = 375
Left = 2160
TabIndex = 2
Top = 120
Width = 975
End
End
Begin VB.PictureBox PicPD_IN
BorderStyle = 0 'None
FillStyle = 0 'Solid
Height = 5655
Left = 0
ScaleHeight = 5655
ScaleWidth = 7455
TabIndex = 0
Top = 720
Width = 7455
Begin VB.TextBox Txtpd_remark
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 1440
TabIndex = 27
Top = 4200
Width = 5415
End
Begin VB.PictureBox PicList
BorderStyle = 0 'None
Height = 975
Left = 0
ScaleHeight = 975
ScaleWidth = 4215
TabIndex = 22
Top = 120
Width = 4215
Begin VB.ComboBox CbxFactoryView
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1800
TabIndex = 24
Top = 0
Width = 2295
End
Begin VB.ComboBox CbxPDKind
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1800
TabIndex = 23
Top = 600
Width = 2295
End
Begin VB.Label LblFactory
Caption = "请选择进货厂家:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 26
Top = 0
Width = 1575
End
Begin VB.Label LblType
Caption = "请选择货品类别:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 25
Top = 600
Width = 1575
End
End
Begin VB.TextBox Txtpd_sum
BeginProperty DataFormat
Type = 0
Format = """￥""#,##0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1440
TabIndex = 10
Text = "#.##"
Top = 3600
Width = 2175
End
Begin VB.TextBox Txtpd_price
BeginProperty DataFormat
Type = 0
Format = """￥""#,##0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5040
TabIndex = 9
Text = "#.##"
Top = 3000
Width = 1935
End
Begin VB.TextBox Txtpd_amount
BeginProperty DataFormat
Type = 0
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1440
TabIndex = 8
Top = 3000
Width = 2175
End
Begin VB.TextBox Txtpd_standard
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1440
TabIndex = 7
Top = 2400
Width = 2175
End
Begin VB.TextBox Txtpd_trunk
BeginProperty DataFormat
Type = 0
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5040
TabIndex = 6
Top = 2400
Width = 1935
End
Begin VB.TextBox Txtpd_model
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5040
TabIndex = 5
Top = 1800
Width = 1935
End
Begin VB.TextBox Txtpd_name
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1440
TabIndex = 4
Top = 1800
Width = 2175
End
Begin VB.Line Line2
BorderWidth = 2
X1 = 120
X2 = 7560
Y1 = 5040
Y2 = 5040
End
Begin VB.Line Line1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -