📄 frminput.frm
字号:
VERSION 5.00
Begin VB.Form frmInput
BorderStyle = 4 'Fixed ToolWindow
Caption = "进货登记"
ClientHeight = 5940
ClientLeft = 45
ClientTop = 285
ClientWidth = 6615
Icon = "frmInput.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5940
ScaleWidth = 6615
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.Frame fraLog
Height = 2115
Left = 30
TabIndex = 34
Top = -30
Width = 6555
Begin VB.TextBox txtDay
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2580
TabIndex = 8
Top = 1245
Width = 285
End
Begin VB.TextBox txtMonth
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2010
TabIndex = 7
Top = 1245
Width = 285
End
Begin VB.TextBox txtYear
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 1230
TabIndex = 6
Top = 1260
Width = 495
End
Begin VB.ComboBox cobProduct
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
IMEMode = 2 'OFF
Left = 1800
Sorted = -1 'True
TabIndex = 3
Top = 630
Width = 4485
End
Begin VB.ComboBox cobFactory
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 4440
Sorted = -1 'True
TabIndex = 2
Top = 330
Width = 1845
End
Begin VB.TextBox txtPrice
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1230
TabIndex = 4
Top = 960
Width = 1845
End
Begin VB.TextBox txtCount
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 4440
TabIndex = 5
Top = 960
Width = 1845
End
Begin VB.TextBox txtInputID
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1230
Locked = -1 'True
TabIndex = 1
TabStop = 0 'False
Top = 360
Width = 1845
End
Begin VB.CommandButton cmdAddLog
Caption = "登记到数据库(&L)"
Default = -1 'True
Enabled = 0 'False
Height = 315
Left = 3330
TabIndex = 9
Top = 1560
Width = 1665
End
Begin VB.CommandButton cmdLogCancel
Cancel = -1 'True
Caption = "取消(&C)"
Height = 315
Left = 5010
TabIndex = 10
Top = 1560
Width = 1275
End
Begin VB.Label lblInputDate
AutoSize = -1 'True
Caption = "进货日期:"
Height = 180
Left = 270
TabIndex = 43
Top = 1290
Width = 810
End
Begin VB.Label lblDay
AutoSize = -1 'True
Caption = "日"
Height = 180
Left = 2910
TabIndex = 42
Top = 1290
Width = 180
End
Begin VB.Label lblMonth
AutoSize = -1 'True
Caption = "月"
Height = 180
Left = 2370
TabIndex = 41
Top = 1290
Width = 180
End
Begin VB.Label lblYear
AutoSize = -1 'True
Caption = "年"
Height = 180
Left = 1800
TabIndex = 40
Top = 1290
Width = 180
End
Begin VB.Label lblCount
AutoSize = -1 'True
Caption = "数量:"
Height = 180
Left = 3840
TabIndex = 39
Top = 1020
Width = 450
End
Begin VB.Label lblPrice
AutoSize = -1 'True
Caption = "单价(元):"
Height = 180
Left = 270
TabIndex = 38
Top = 1020
Width = 810
End
Begin VB.Label lblFactory
AutoSize = -1 'True
Caption = "生产厂商:"
Height = 180
Left = 3480
TabIndex = 37
Top = 390
Width = 810
End
Begin VB.Label lblProduct
AutoSize = -1 'True
Caption = "商品名称及型号:"
Height = 180
Left = 270
TabIndex = 36
Top = 690
Width = 1350
End
Begin VB.Label lblID
AutoSize = -1 'True
Caption = "编号:"
Height = 180
Left = 570
TabIndex = 35
Top = 420
Width = 450
End
End
Begin VB.Frame fraAddProduct
Height = 1755
Left = 30
TabIndex = 0
Top = 2070
Width = 6555
Begin VB.TextBox txtPID
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 1260
Locked = -1 'True
TabIndex = 20
TabStop = 0 'False
Top = 510
Width = 1845
End
Begin VB.TextBox txtPName
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 4440
TabIndex = 21
Top = 510
Width = 1875
End
Begin VB.TextBox txtPModel
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 4440
TabIndex = 23
Top = 810
Width = 1875
End
Begin VB.CommandButton cmdAddProduct
Caption = "添加到数据库(P)"
Enabled = 0 'False
Height = 315
Left = 3360
TabIndex = 15
Top = 1230
Width = 1695
End
Begin VB.CommandButton cmdAddProductCancel
Caption = "取消(&D)"
Height = 315
Left = 5070
TabIndex = 16
Top = 1230
Width = 1245
End
Begin VB.ComboBox cobPFactory
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -