📄 frm_fzpxz.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frm_hzpxz
BackColor = &H0080C0FF&
BorderStyle = 3 'Fixed Dialog
Caption = "化妆品选择"
ClientHeight = 4452
ClientLeft = 2760
ClientTop = 3756
ClientWidth = 5688
Icon = "frm_fzpxz.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4452
ScaleWidth = 5688
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command2
BackColor = &H00C0E0FF&
Default = -1 'True
Enabled = 0 'False
Height = 390
Index = 0
Left = 4335
MaskColor = &H00FFFFFF&
Picture = "frm_fzpxz.frx":000C
Style = 1 'Graphical
TabIndex = 10
Top = 330
UseMaskColor = -1 'True
Width = 1200
End
Begin VB.CommandButton Command2
BackColor = &H00C0E0FF&
Cancel = -1 'True
Height = 390
Index = 1
Left = 4335
MaskColor = &H00FFFFFF&
Picture = "frm_fzpxz.frx":176A
Style = 1 'Graphical
TabIndex = 9
Top = 825
UseMaskColor = -1 'True
Width = 1200
End
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
BackColor = &H00C0E0FF&
Enabled = 0 'False
Height = 285
Left = 675
TabIndex = 7
Top = 2100
Width = 1020
End
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Caption = "↓"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 1
Left = 2595
Style = 1 'Graphical
TabIndex = 5
ToolTipText = "选择化妆品"
Top = 2130
Width = 750
End
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Caption = "↑"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 0
Left = 3450
Style = 1 'Graphical
TabIndex = 4
ToolTipText = "删除已选化妆品"
Top = 2130
Width = 750
End
Begin MSComctlLib.ListView ListView1
Height = 1695
Left = 120
TabIndex = 0
Top = 330
Width = 4080
_ExtentX = 7197
_ExtentY = 2985
SortKey = 1
View = 3
LabelEdit = 1
SortOrder = -1 'True
Sorted = -1 'True
LabelWrap = -1 'True
HideSelection = 0 'False
AllowReorder = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
HotTracking = -1 'True
HoverSelection = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = 12640511
BorderStyle = 1
Appearance = 1
NumItems = 6
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "类型"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "名称"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "型号"
Object.Width = 1411
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "单位"
Object.Width = 1058
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 4
Text = "单价"
Object.Width = 1058
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
Text = "库存"
Object.Width = 2540
EndProperty
End
Begin MSComctlLib.ListView ListView2
Height = 1695
Left = 120
TabIndex = 1
Top = 2655
Width = 5460
_ExtentX = 9631
_ExtentY = 3006
SortKey = 1
View = 3
LabelEdit = 1
SortOrder = -1 'True
Sorted = -1 'True
LabelWrap = -1 'True
HideSelection = 0 'False
AllowReorder = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
HotTracking = -1 'True
HoverSelection = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = 12640511
BorderStyle = 1
Appearance = 1
NumItems = 8
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "类型"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "名称"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "型号"
Object.Width = 1411
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "单位"
Object.Width = 1058
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 4
Text = "单价"
Object.Width = 1058
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 5
Text = "数量"
Object.Width = 1058
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 6
Text = "金额"
Object.Width = 1411
EndProperty
BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 7
Text = "库存"
Object.Width = 2540
EndProperty
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "ml"
Height = 180
Index = 3
Left = 1785
TabIndex = 8
Top = 2145
Width = 180
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "数量："
Height = 180
Index = 2
Left = 165
TabIndex = 6
Top = 2145
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "所选化妆品："
Height = 180
Index = 1
Left = 150
TabIndex = 3
Top = 2430
Width = 1080
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "所有化妆品："
Height = 180
Index = 0
Left = 165
TabIndex = 2
Top = 105
Width = 1080
End
End
Attribute VB_Name = "frm_hzpxz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Dim db As Database
Dim rec As Recordset
Dim itmx As ListItem
Private Sub OKButton_Click()
End Sub
Private Sub Command1_Click(Index As Integer)
If Trim(Text1) = "" Or IsNumeric(Text1) = False Then
MsgBox "化妆品数量输入有误", vbOKOnly + vbCritical, "错误"
Text1.SetFocus
Exit Sub
End If
If Index = 1 Then '增加
If Val(Text1) > Val(ListView1.SelectedItem.SubItems(3)) Then
MsgBox "您输入的数量超出库存", vbOKOnly + vbCritical, "错误"
Text1.SetFocus
Exit Sub
End If
Set itmx = ListView2.ListItems.Add(, , ListView1.SelectedItem.Text)
For i = 1 To 4
itmx.SubItems(i) = ListView1.SelectedItem.SubItems(i)
Next i
itmx.SubItems(5) = Trim(Text1)
itmx.SubItems(6) = Trim(Str(Val(ListView1.SelectedItem.SubItems(4)) * Val(Text1)))
itmx.SubItems(7) = ListView1.SelectedItem.SubItems(5)
ListView1.ListItems.Remove ListView1.SelectedItem.Index
If ListView1.ListItems.Count = 0 Then
Command1(1).Enabled = False
End If
Command1(0).Enabled = True
Command2(0).Enabled = True
Else '删除
Set itmx = ListView1.ListItems.Add(, , ListView2.SelectedItem.Text)
For i = 1 To 4
itmx.SubItems(i) = ListView2.SelectedItem.SubItems(i)
Next i
itmx.SubItems(5) = ListView2.SelectedItem.SubItems(7)
ListView2.ListItems.Remove ListView2.SelectedItem.Index
If ListView2.ListItems.Count = 0 Then
Command1(0).Enabled = False
Command2(0).Enabled = False
End If
Command1(1).Enabled = True
End If
End Sub
Private Sub Command2_Click(Index As Integer)
If Index = 0 Then
zfc = ""
je = 0
For i = 0 To ListView2.ListItems.Count - 2
If ListView2.ListItems(i + 1).SubItems(2) <> "" Then
zfc = zfc + ListView2.ListItems(i + 1).SubItems(1) + "(" + ListView2.ListItems(i + 1).SubItems(2) + ")，"
Else
zfc = zfc + ListView2.ListItems(i + 1).SubItems(1) + "*，"
End If
je = je + Val(ListView2.ListItems(i + 1).SubItems(6))
Next i
If ListView2.ListItems(ListView2.ListItems.Count).SubItems(2) <> "" Then
zfc = zfc + ListView2.ListItems(ListView2.ListItems.Count).SubItems(1) + "(" + ListView2.ListItems(ListView2.ListItems.Count).SubItems(2) + ")"
Else
zfc = zfc + ListView2.ListItems(ListView2.ListItems.Count).SubItems(1)
End If
je = je + Val(ListView2.ListItems(i + 1).SubItems(6))
frm_dcczdj.Text1(3) = zfc
frm_dcczdj.Text1(2) = Trim(Str(je))
sqlstr = "update 化妆品表 set 库存=库存-" + Text1 + " where 名称='" + ListView2.SelectedItem.Text + "' and 型号='" + ListView2.SelectedItem.SubItems(1) + "' and 单价=" + ListView2.SelectedItem.SubItems(4)
db.Execute sqlstr
Else
End If
Unload Me
'frm_dcczdj.Show 1
End Sub
Private Sub Form_Load()
'AppPath = "D:\美容院\"
'Set db = OpenDatabase(AppPath + "datas\mry.mdb")
Set rec = db.OpenRecordset("化妆品表")
Do While Not rec.EOF
Set itmx = ListView1.ListItems.Add(, , rec.Fields(4))
For i = 0 To rec.Fields.Count - 3
itmx.SubItems(i + 1) = IIf(IsNull(rec.Fields(i)), "", rec.Fields(i))
Next i
itmx.SubItems(i + 1) = IIf(IsNull(rec.Fields(5)), "", rec.Fields(5))
rec.MoveNext
Loop
If ListView1.ListItems.Count = 0 Then
Else
Text1 = "1"
Text1.Enabled = True
Command1(1).Enabled = True
Label1(3) = ListView1.SelectedItem.SubItems(3)
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
'db.Close
'Set db = Nothing
End Sub
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
ListView1.SortKey = ColumnHeader.Index - 1
yn = MsgBox("将按照『" + ColumnHeader.Text + "』排序" + Chr(13) + "是否按升序排列,按[否]将按降序排列", vbYesNo + vbQuestion, "提示")
If yn = vbNo Then
ListView1.SortOrder = lvwDescending
Else
ListView1.SortOrder = lvwAscending
End If
ListView1.Sorted = True
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Text1.SetFocus
Label1(3) = ListView1.SelectedItem.SubItems(3)
End Sub
Private Sub ListView2_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
ListView2.SortKey = ColumnHeader.Index - 1
yn = MsgBox("将按照『" + ColumnHeader.Text + "』排序" + Chr(13) + "是否按升序排列,按[否]将按降序排列", vbYesNo + vbQuestion, "提示")
If yn = vbNo Then
ListView2.SortOrder = lvwDescending
Else
ListView2.SortOrder = lvwAscending
End If
ListView2.Sorted = True
End Sub
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -