📄 frmsell.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmSell
Caption = "商品销售"
ClientHeight = 8460
ClientLeft = 165
ClientTop = 555
ClientWidth = 11895
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LockControls = -1 'True
ScaleHeight = 8460
ScaleWidth = 11895
StartUpPosition = 3 '窗口缺省
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 8355
Left = 60
ScaleHeight = 8325
ScaleWidth = 11745
TabIndex = 0
Top = 60
Width = 11775
Begin MSComctlLib.ListView lvwBM
Height = 1545
Left = 1770
TabIndex = 27
Top = 3900
Width = 7815
_ExtentX = 13785
_ExtentY = 2725
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
HideColumnHeaders= -1 'True
FullRowSelect = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 6
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "编码"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "名称"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "单位"
Object.Width = 1058
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "价格"
Object.Width = 1411
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "厂家"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
Text = "数量"
Object.Width = 1411
EndProperty
End
Begin VB.TextBox txtNum
Appearance = 0 'Flat
Height = 360
Left = 5520
TabIndex = 13
Top = 6360
Width = 2685
End
Begin VB.TextBox txtBM
Appearance = 0 'Flat
Height = 360
Left = 1590
TabIndex = 9
Top = 6360
Width = 2685
End
Begin VB.Timer tmrTime
Left = 4260
Top = 60
End
Begin MSComctlLib.ListView lvw
Height = 5115
Left = 90
TabIndex = 2
Top = 570
Width = 11565
_ExtentX = 20399
_ExtentY = 9022
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = 8388608
BackColor = 16777215
BorderStyle = 1
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 8
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "编 码"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 1
Text = "名 称"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 2
Text = "规 格"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 3
Text = "单 位"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 4
Text = "单 价"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 5
Text = "数 量"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 6
Text = "生产厂家"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 7
Text = "合 计"
Object.Width = 2540
EndProperty
End
Begin VB.Shape Shape3
Height = 375
Left = 6660
Top = 120
Width = 2445
End
Begin VB.Shape Shape2
Height = 375
Left = 9210
Top = 120
Width = 2445
End
Begin VB.Shape Shape1
Height = 375
Left = 90
Top = 120
Width = 3855
End
Begin VB.Label Label7
Height = 255
Left = 1080
TabIndex = 30
Top = 7980
Width = 10515
End
Begin VB.Label lblSellTypes
BackStyle = 0 'Transparent
Caption = "零售"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 8280
TabIndex = 29
Top = 180
Width = 510
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "销售状态："
Height = 240
Left = 7050
TabIndex = 28
Top = 180
Width = 1200
End
Begin VB.Label lbl
Alignment = 1 'Right Justify
Caption = "0.00"
Height = 225
Index = 6
Left = 9780
TabIndex = 26
Top = 7140
Width = 1485
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "批发价"
Height = 240
Index = 6
Left = 8880
TabIndex = 25
Top = 7140
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "零售价"
Height = 240
Index = 5
Left = 8880
TabIndex = 24
Top = 6780
Width = 720
End
Begin VB.Label lbl
Alignment = 1 'Right Justify
Caption = "0.00"
Height = 225
Index = 5
Left = 9780
TabIndex = 23
Top = 6780
Width = 1455
End
Begin VB.Label lbl
Caption = "Label12"
Height = 225
Index = 1
Left = 5520
TabIndex = 22
Top = 6840
Width = 2685
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "类别"
Height = 240
Index = 4
Left = 4860
TabIndex = 21
Top = 6825
Width = 480
End
Begin VB.Label lbl
Caption = "Label11"
Height = 255
Index = 2
Left = 1590
TabIndex = 20
Top = 7200
Width = 2715
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "规 格"
Height = 240
Index = 3
Left = 420
TabIndex = 19
Top = 7185
Width = 960
End
Begin VB.Label lbl
Caption = "Label10"
Height = 225
Index = 3
Left = 5520
TabIndex = 18
Top = 7200
Width = 2685
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "单位"
Height = 240
Index = 2
Left = 4860
TabIndex = 17
Top = 7200
Width = 480
End
Begin VB.Label lbl
Caption = "Label9"
Height = 255
Index = 4
Left = 1590
TabIndex = 16
Top = 7560
Width = 6615
End
Begin VB.Label lbl
Caption = "Label8"
Height = 255
Index = 0
Left = 1590
TabIndex = 15
Top = 6825
Width = 2715
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "数量"
Height = 240
Index = 1
Left = 4860
TabIndex = 14
Top = 6450
Width = 480
End
Begin VB.Line Line2
X1 = 8340
X2 = 11400
Y1 = 6090
Y2 = 6090
End
Begin VB.Line Line1
X1 = 240
X2 = 11460
Y1 = 6210
Y2 = 6210
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "元"
BeginProperty Font
Name = "宋体"
Size = 12
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -