📄 frm_wjzqb.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frm_wjzbq
Caption = "前台退货"
ClientHeight = 5715
ClientLeft = 3750
ClientTop = 3990
ClientWidth = 6735
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 5715
ScaleWidth = 6735
Begin VB.CommandButton cmdStay
Caption = "退还商品"
Height = 375
Left = 4080
TabIndex = 19
Top = 2690
Width = 975
End
Begin VB.CommandButton cmdCheck
Caption = "检查"
Height = 375
Left = 2880
TabIndex = 1
Top = 2690
Width = 975
End
Begin VB.TextBox txtSaleid
Height = 350
Left = 1320
TabIndex = 0
Top = 2700
Width = 1335
End
Begin VB.Frame Frame1
Caption = "商品详情："
Height = 1815
Left = 240
TabIndex = 11
Top = 3240
Width = 6255
Begin VB.TextBox txtGood
Enabled = 0 'False
Height = 270
Index = 0
Left = 1200
TabIndex = 10
Top = 360
Width = 1215
End
Begin VB.TextBox txtGood
Enabled = 0 'False
Height = 270
Index = 1
Left = 1200
TabIndex = 3
Top = 720
Width = 1215
End
Begin VB.TextBox txtGood
Height = 270
Index = 2
Left = 1200
TabIndex = 4
Top = 1440
Width = 1215
End
Begin VB.TextBox txtGood
Enabled = 0 'False
Height = 270
Index = 3
Left = 1200
TabIndex = 5
Top = 1080
Width = 1215
End
Begin VB.TextBox txtGood
Enabled = 0 'False
Height = 270
Index = 4
Left = 3360
TabIndex = 6
Top = 360
Width = 1215
End
Begin VB.TextBox txtGood
Height = 600
Index = 5
Left = 3360
TabIndex = 7
Top = 720
Width = 1215
End
Begin VB.Label Label4
Height = 375
Left = 4800
TabIndex = 21
Top = 720
Width = 1335
End
Begin VB.Label Label3
Caption = "应退还客户："
Height = 255
Left = 4800
TabIndex = 20
Top = 360
Width = 1335
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "商品号："
Height = 255
Index = 0
Left = 240
TabIndex = 17
Top = 360
Width = 855
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "名称："
Height = 255
Index = 1
Left = 240
TabIndex = 16
Top = 720
Width = 855
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "单位："
Height = 255
Index = 2
Left = 240
TabIndex = 15
Top = 1080
Width = 855
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "数量："
Height = 255
Index = 4
Left = 240
TabIndex = 14
Top = 1440
Width = 855
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "价格："
Height = 255
Index = 5
Left = 2640
TabIndex = 13
Top = 360
Width = 735
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "原因："
Height = 255
Index = 6
Left = 2640
TabIndex = 12
Top = 720
Width = 735
End
End
Begin VB.CommandButton cmdSave
Caption = "入库"
Height = 375
Left = 5280
TabIndex = 9
Top = 5160
Width = 975
End
Begin VB.CommandButton cmdAdd
Caption = "保存"
Height = 375
Left = 3960
TabIndex = 8
Top = 5160
Width = 975
End
Begin MSComctlLib.ListView Lview
Height = 2415
Left = 120
TabIndex = 2
Top = 120
Width = 6495
_ExtentX = 11456
_ExtentY = 4260
LabelEdit = 1
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = -1 'True
FlatScrollBar = -1 'True
FullRowSelect = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin VB.Label Label2
Caption = "小票流水号："
Height = 255
Left = 120
TabIndex = 18
Top = 2760
Width = 1095
End
End
Attribute VB_Name = "frm_wjzbq"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private price As Single
Private Showid As Integer
Private Sub cmdAdd_Click()
Dim j As Single
Dim i As Integer
Dim Old As Boolean
If txtGood(0) = "" Or txtGood(2) = "" Then
MsgBox "请填写完整记录！"
Exit Sub
End If
j = price * Val(txtGood(2).Text)
txtGood(4) = CInt(j * 100) / 100
For i = 1 To txtGood.Count - 1
Lview.ListItems.Item(Showid).SubItems(i) = txtGood(i)
Next i
End Sub
Private Sub cmdCheck_Click()
Dim i As Integer, Drs As New ADODB.Recordset
Dim stra As String, j As Integer
stra = "select * from t_sdetail where saleid=" & txtSaleid
Set Drs = Dblink.executeSQL(stra)
If Drs.RecordCount <> 0 Then
For i = 0 To Drs.RecordCount - 1
Lview.ListItems.Add i + 1, , Drs.Fields(1)
For j = 1 To Lview.ColumnHeaders.Count - 1
Lview.ListItems.Item(i + 1).SubItems(j) = Drs.Fields(j + 1)
Next j
Drs.MoveNext
Next i
MsgBox "请请选择要退还的商品（可多选）！"
cmdCheck.Enabled = False
Else
MsgBox "所查的销售记录不存在！"
End If
End Sub
Private Sub cmdSave_Click()
Dim Strid As String, strdate As String
Dim i As Integer
Dim allMoney As Single
strdate = Date
'计算退货单的总价格
For i = 1 To Lview.ListItems.Count
allMoney = allMoney + Val(Lview.ListItems.Item(i).SubItems(4))
Next i
Label4.Caption = allMoney & "元"
'生成退货的id号
Strid = newid("t_qback", "qbackid")
stra = "insert into t_qback values('" & Strid & "'," & txtSaleid & "," & allMoney & ",'xxx','" & strdate & "')"
Dblink.executeSQL stra
For i = 1 To Lview.ListItems.Count
stra = "insert into t_qbackdetail values('"
stra = stra & Strid & "','"
stra = stra & Lview.ListItems(i).Text & "','"
stra = stra & Lview.ListItems.Item(i).SubItems(1) & "'," & Lview.ListItems.Item(i).SubItems(2) & ",'"
stra = stra & Lview.ListItems.Item(i).SubItems(3) & "'," & Lview.ListItems.Item(i).SubItems(4) & ",'"
stra = stra & Lview.ListItems.Item(i).SubItems(5) & "')"
Dblink.executeSQL stra
Next i
stra = "update t_qback set employeeid='" & uName & "' where qbackid='" & Strid & "'"
Dblink.executeSQL stra '为了触发t_qback表的触发器
Unload Me
MsgBox "退货完成！"
End Sub
Private Sub cmdStay_Click()
Dim i As Integer, k As Integer
Dim j As New Collection
'添加新列
Lview.ColumnHeaders.Add , , "原因"
For i = 1 To Lview.ListItems.Count
If Not Lview.ListItems.Item(i).Selected Then j.Add Lview.ListItems(i).Text
Next i
For i = 1 To j.Count
For k = 1 To Lview.ListItems.Count
If Lview.ListItems(k).Text = j.Item(i) Then
Lview.ListItems.Remove k
Exit For
End If
Next k
Next i
For i = 0 To txtGood.Count - 1
txtGood(i).Text = ""
Next i
End Sub
Private Sub Form_Load()
Dim i As Integer
With Lview
.ColumnHeaders.Add , , "商品号", Lview.Width / 6, 0
.ColumnHeaders.Add , , "名称", Lview.Width / 6, 2
.ColumnHeaders.Add , , "数量", Lview.Width / 6, 2
.ColumnHeaders.Add , , "单位", Lview.Width / 6, 2
.ColumnHeaders.Add , , "价格", Lview.Width / 6, 2
.View = lvwReport
End With
End Sub
Private Sub Label1_Click(Index As Integer)
End Sub
Private Sub Lview_Click()
Dim i As Integer
If Lview.ListItems.Count = 0 Then Exit Sub
Showid = Lview.SelectedItem.Index
txtGood(0) = Lview.SelectedItem
txtGood(4).DataChanged = True
For i = 1 To Lview.ColumnHeaders.Count - 1
txtGood(i) = Lview.SelectedItem.SubItems(i)
Next i
End Sub
Private Sub txtGood_Change(Index As Integer)
If txtGood(4).DataChanged = True Then
If txtGood(2).Text = "" Then Exit Sub
price = Val(txtGood(4).Text) / Val(txtGood(2).Text)
txtGood(4).DataChanged = False
End If
End Sub
Private Sub txtSaleid_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then cmdCheck_Click
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -