📄 frmshangpin.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmShangPin
Caption = "选择商品"
ClientHeight = 5805
ClientLeft = 60
ClientTop = 345
ClientWidth = 8040
Icon = "frmShangPin.frx":0000
LinkTopic = "Form1"
ScaleHeight = 5805
ScaleWidth = 8040
StartUpPosition = 2 '屏幕中心
Begin MSComctlLib.ListView ListView2
Height = 1695
Left = 120
TabIndex = 5
Top = 3960
Width = 5775
_ExtentX = 10186
_ExtentY = 2990
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 5
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 = 4304
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "商品单价"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "商品数量"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "总价格"
Object.Width = 2540
EndProperty
End
Begin VB.PictureBox Picture1
BorderStyle = 0 'None
Height = 615
Left = 360
ScaleHeight = 615
ScaleWidth = 6975
TabIndex = 1
Top = 3120
Width = 6975
Begin VB.CommandButton Command4
Caption = "从购物单中删除"
Height = 375
Left = 5520
TabIndex = 6
Top = 120
Width = 1455
End
Begin VB.CommandButton Command3
Caption = "取消购买"
Height = 375
Left = 3720
TabIndex = 4
Top = 120
Width = 1455
End
Begin VB.CommandButton Command2
Caption = "确认购买"
Height = 375
Left = 1920
TabIndex = 3
Top = 120
Width = 1455
End
Begin VB.CommandButton Command1
Caption = "添加到购物单"
Height = 375
Left = 120
TabIndex = 2
Top = 120
Width = 1455
End
End
Begin MSComctlLib.ListView ListView1
Height = 2775
Left = 0
TabIndex = 0
Top = 120
Width = 5895
_ExtentX = 10398
_ExtentY = 4895
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 3
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 = 4304
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "零售价格"
Object.Width = 2540
EndProperty
End
Begin VB.Image Image1
Height = 135
Left = 0
MousePointer = 7 'Size N S
Top = 2880
Width = 5895
End
End
Attribute VB_Name = "frmShangPin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim SelectGood() As iGoods
Private Sub Command1_Click()
'添加商品
On Error Resume Next
For i = 1 To ListView2.ListItems.Count
If ListView2.ListItems(i).Text = ListView1.SelectedItem.Text Then
ListView2.ListItems(i).SubItems(3) = CStr(Val(ListView2.ListItems(i).SubItems(3)) + 1)
ListView2.ListItems(i).SubItems(4) = Val(ListView2.ListItems(i).SubItems(2)) * Val(ListView2.ListItems(i).SubItems(3))
zje = 0
For j = 1 To ListView2.ListItems.Count - 1
zje = zje + Val(ListView2.ListItems(j).SubItems(4))
Next j
ListView2.ListItems(ListView2.ListItems.Count).SubItems(4) = zje
Exit Sub
End If
Next i
ListView2.ListItems.Remove ListView2.ListItems.Count
ListView2.ListItems.Add ListView2.ListItems.Count + 1, , ListView1.SelectedItem
ListView2.ListItems(ListView2.ListItems.Count).SubItems(1) = ListView1.SelectedItem.SubItems(1)
ListView2.ListItems(ListView2.ListItems.Count).SubItems(2) = ListView1.SelectedItem.SubItems(2)
ListView2.ListItems(ListView2.ListItems.Count).SubItems(3) = 1 'ListView1.SelectedItem.SubItems(3)
ListView2.ListItems(ListView2.ListItems.Count).SubItems(4) = Val(ListView2.ListItems(ListView2.ListItems.Count).SubItems(2)) * Val(ListView2.ListItems(ListView2.ListItems.Count).SubItems(3))
zje = 0
For i = 1 To ListView2.ListItems.Count
zje = zje + Val(ListView2.ListItems(i).SubItems(4))
Next i
ListView2.ListItems.Add ListView2.ListItems.Count + 1, , ""
ListView2.ListItems(ListView2.ListItems.Count).SubItems(2) = "累计金额"
ListView2.ListItems(ListView2.ListItems.Count).SubItems(4) = zje
End Sub
Private Sub Command2_Click()
On Error Resume Next
If ListView2.ListItems.Count <= 0 Then
MsgBox "请先选中商品！", vbSystemModal
Exit Sub
End If
If MsgBox("你确实要选购选中的商品吗？总价格为：" & _
ListView2.ListItems(ListView2.ListItems.Count).SubItems(4) _
& vbCrLf & "如果一经确认则不能退货！", vbQuestion + vbOKCancel + vbDefaultButton2 + vbSystemModal) = vbOK Then
strdata = "_good"
For i = 1 To ListView2.ListItems.Count - 1
strdata = strdata + Chr(0) + ListView2.ListItems(i).Text + Chr(0) + ListView2.ListItems(i).SubItems(1) + Chr(0) + ListView2.ListItems(i).SubItems(3)
Next i
frmButton.Winsock1.SendData strdata
DoEvents
'MsgBox "请稍后，商品马上就到！", vbQuestion
End If
Unload Me
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Command4_Click()
On Error Resume Next
If ListView2.SelectedItem.Index <> ListView2.ListItems.Count Then
ListView2.ListItems.Remove ListView2.SelectedItem.Index
zje = 0
For j = 1 To ListView2.ListItems.Count - 1
zje = zje + Val(ListView2.ListItems(j).SubItems(4))
Next j
'ListView2.ListItems.Add ListView2.ListItems.Count + 1, , "累计总金额"
ListView2.ListItems(ListView2.ListItems.Count).SubItems(4) = Format(zje, "###0.00元")
If ListView2.ListItems.Count = 1 Then ListView2.ListItems.Clear
End If
End Sub
Private Sub Form_Load()
For i = 1 To GoodCount
ListView1.ListItems.Add Goods(i).Index, , Goods(i).商品编号
ListView1.ListItems(i).SubItems(1) = Goods(i).商品名称
ListView1.ListItems(i).SubItems(2) = Format(Goods(i).零售价格, "###0.00元")
Next i
End Sub
Private Sub Form_Resize()
'如果窗体改变大小
On Error Resume Next
ListView1.Move 30, 10, Me.Width - 180, Image1.Top
Picture1.Move (Me.Width - Picture1.Width) / 2, Image1.Top + Image1.Height
ListView2.Move 30, Picture1.Top + Picture1.Height, Me.Width - 180
ListView2.Height = Me.Height - ListView2.Top - 500
Image1.Width = Me.Width
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim sglPos As Single
If Button = 1 And (Image1.Top >= Me.Height / 5 Or Y > 0) And (Image1.Top <= Me.Height * 3 / 5 Or Y < 0) Then
sglPos = Y + Image1.Top
Image1.Top = sglPos
Form_Resize
End If
End Sub
Private Sub ListView1_DblClick()
Command1_Click
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -