📄 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
'MsgBox "请稍后，商品马上就到！", vbQuestion
'确认购买商品
Dim findIt As Boolean
With frmMain.Data3.Recordset
For i = 1 To ListView2.ListItems.Count - 1
.MoveFirst
For j = 1 To .RecordCount
If .Fields("商品名称") = ListView2.ListItems(i).SubItems(1) Then Exit For
.MoveNext
Next j
frmMain.Data2.Recordset.MoveFirst
For j = 1 To frmMain.Data2.Recordset.RecordCount
If frmMain.Data2.Recordset.Fields("商品编号") = .Fields("商品编号") And frmMain.Data2.Recordset.Fields("机号") = SelectComputer Then
findIt = True
Exit For
End If
Next j
If findIt = True Then
frmMain.Data2.Recordset.Edit
Else
frmMain.Data2.Recordset.AddNew
End If
frmMain.Data2.Recordset.Fields("机号") = SelectComputer
frmMain.Data2.Recordset.Fields("商品编号") = .Fields("商品编号")
frmMain.Data2.Recordset.Fields("数量") = frmMain.Data2.Recordset.Fields("数量") + Val(ListView2.ListItems(i).SubItems(3))
frmMain.Data2.Recordset.Fields("时间") = Now
frmMain.Data2.Recordset.Update
.Edit
.Fields("库存数量") = .Fields("库存数量") - ListView2.ListItems(i).SubItems(3)
.Update
Next i
End With
MsgBox "已经记帐完毕，请点收商品！", vbExclamation + vbOKOnly, "提示"
frmMain.Timer2_Timer
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()
With frmMain.Data3.Recordset
.MoveFirst
For i = 1 To .RecordCount
ListView1.ListItems.Add i, , .Fields("商品编号")
ListView1.ListItems(i).SubItems(1) = .Fields("商品名称")
ListView1.ListItems(i).SubItems(2) = Format(.Fields("零售价格"), "###0.00元")
.MoveNext
Next i
End With
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 + -