📄 销售表.frm
字号:
OtherAttributes = ""
UserName = "sa"
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSFlexGridLib.MSFlexGrid FlxGd
Height = 2655
Left = 120
TabIndex = 16
Top = 240
Width = 9255
_ExtentX = 16325
_ExtentY = 4683
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin VB.TextBox TxtPrice
Appearance = 0 'Flat
BeginProperty DataFormat
Type = 1
Format = """￥""#,##0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 2
EndProperty
ForeColor = &H000080FF&
Height = 270
Left = 1080
TabIndex = 14
Top = 5040
Width = 1935
End
Begin VB.Frame Frame3
Caption = "请输入图书编号："
Height = 855
Left = 120
TabIndex = 11
Top = 3240
Width = 9495
Begin VB.TextBox TxtFind
ForeColor = &H00000000&
Height = 375
Left = 3240
TabIndex = 0
Top = 300
Width = 2415
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "图书编号："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 240
Left = 1920
TabIndex = 13
Top = 360
Width = 1200
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "请输入图书ID号，输入后按回车键确定！"
ForeColor = &H00FF0000&
Height = 180
Left = 5880
TabIndex = 12
Top = 360
Width = 3240
End
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "销售数量："
Height = 180
Left = 6720
TabIndex = 35
Top = 4320
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "图书编号："
Height = 180
Left = 120
TabIndex = 23
Top = 4320
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "图书名称："
Height = 180
Left = 120
TabIndex = 22
Top = 4680
Width = 900
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "图书单价："
Height = 180
Left = 120
TabIndex = 21
Top = 5040
Width = 900
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "种 类："
Height = 180
Left = 3480
TabIndex = 20
Top = 4680
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "出 版 社："
Height = 180
Left = 3480
TabIndex = 19
Top = 4320
Width = 900
End
Begin VB.Label LabNum
AutoSize = -1 'True
Caption = "库 存 量："
Height = 180
Left = 6720
TabIndex = 18
Top = 5040
Width = 900
End
Begin VB.Label LabPriceIn
AutoSize = -1 'True
Caption = "出版日期："
Height = 180
Left = 3480
TabIndex = 17
Top = 5040
Width = 900
End
End
Begin VB.Frame Frame4
Caption = "操 作 区"
Height = 2655
Left = 9960
TabIndex = 24
Top = 3960
Width = 1695
Begin VB.CommandButton CmdAdd
Caption = "结 算"
Enabled = 0 'False
Height = 375
Left = 360
TabIndex = 25
Top = 360
Width = 975
End
End
End
Attribute VB_Name = "frmXiaoShou"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i%, temp%, gongji As Double, XsNum%
'Private Sub Form_Load()
' Frame1.Width = Main.Width - 400
' Frame1.Top = 100
' DataGrid1.Width = Frame1.Width - 260
' .Height = 6600
' frmJinHuo.Width = 10125
'End Sub
Private Sub ChkDaZhe_Click()
If ChkDaZhe.Value Then
CobDaZhe.Enabled = True
Else
CobDaZhe.Enabled = False
CobDaZhe.Text = 1
Dim n%, PriSum As Single
PriSum = 0
For n = 1 To i - 1
FlxGd.TextMatrix(n, 5) = FlxGd.TextMatrix(n, 3)
PriSum = PriSum + Val(Mid(FlxGd.TextMatrix(n, 5), 2))
Next n
FlxGd.TextMatrix(i + 1, 5) = "共计:" & "￥" & str(PriSum)
LabYingShou = Mid(FlxGd.TextMatrix(i + 1, 5), 4) & "元"
End If
End Sub
Private Sub CmdAdd_Click()
If TxtShiShou = "" Then
MsgBox "您还没有付款！", vbOKOnly + vbInformation, "结算提示"
TxtShiShou.SetFocus
ElseIf Val(TxtShiShou) < Val(Mid(LabYingShou, 2)) Then
MsgBox "sorry,您的金额不足", vbOKOnly + vbInformation, "结算提示"
TxtShiShou = "": TxtShiShou.SetFocus
Else
LabZhaoLing = str(Format((Val(TxtShiShou) - Val(Mid(LabYingShou, 2))), "0.00"))
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from xiaoshou"
Adodc1.Refresh
Dim n%
For n = 1 To i - 1
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("sell_id") = FlxGd.TextMatrix(n, 1)
Adodc1.Recordset.Fields("sell_book_id") = FlxGd.TextMatrix(n, 2)
Adodc1.Recordset.Fields("sell_book_num") = Val(FlxGd.TextMatrix(n, 4))
Adodc1.Recordset.Fields("sell_book_rebate") = Val(CobDaZhe.Text)
Adodc1.Recordset.Fields("sell_book_price") = Mid(FlxGd.TextMatrix(n, 5), 2)
Adodc1.Recordset.Fields("sell_buyer_id") = FlxGd.TextMatrix(n, 8)
Adodc1.Recordset.Fields("sell_emp_id") = FlxGd.TextMatrix(n, 7)
Adodc1.Recordset.Update
Next n
If MsgBox("销售成功,是否继续？", vbYesNo + vbQuestion, "销售成功") = vbYes Then
Unload Me
frmXiaoShou.Show
Else
Unload Me
End If
End If
End Sub
Private Sub CmdExit_Click()
Unload Me
End Sub
Private Sub CmdQuXiao_Click()
Dim n%
For n = 1 To i + 1
FlxGd.RemoveItem 1
Next n
i = 1
LabYingShou = ""
Call Info
End Sub
Private Sub CmdShanChu_Click()
Dim row%
On Error GoTo err
row = InputBox("请输入要删除的行号:", "删除信息")
FlxGd.RemoveItem row
i = i - 1
Dim n%, PriSum As Single
PriSum = 0
For n = 1 To i - 1
PriSum = PriSum + Val(Format(Val(Mid(FlxGd.TextMatrix(n, 5), 2)), "0.00"))
Next n
FlxGd.TextMatrix(i + 1, 5) = "共计:" & "￥" & str(PriSum)
LabYingShou = str(PriSum)
err:
Exit Sub
End Sub
Private Sub CobDaZhe_click()
Dim n%, PriSum As Single
PriSum = 0
For n = 1 To i - 1
FlxGd.TextMatrix(n, 5) = "￥" & str(Val(Mid(FlxGd.TextMatrix(n, 3), 2)) * Val(FlxGd.TextMatrix(n, 4)) * Val(CobDaZhe.Text))
PriSum = PriSum + Val(Mid(FlxGd.TextMatrix(n, 5), 2))
Next n
FlxGd.TextMatrix(i + 1, 5) = "共计:" & "￥" & str(PriSum)
LabYingShou = Mid(FlxGd.TextMatrix(i + 1, 5), 4) & "元"
End Sub
Private Sub Form_Load()
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from bookxinxi"
Adodc1.Refresh
FlxGd.Rows = Adodc1.Recordset.RecordCount + 2
FlxGd.Cols = 9
FlxGd.TextMatrix(0, 1) = " 流 水 号"
FlxGd.TextMatrix(0, 2) = "图书编号"
FlxGd.TextMatrix(0, 3) = "售 价"
FlxGd.TextMatrix(0, 4) = "数 目"
FlxGd.TextMatrix(0, 5) = " 小 计"
FlxGd.TextMatrix(0, 6) = "销售日期"
FlxGd.TextMatrix(0, 7) = "员工编号"
FlxGd.TextMatrix(0, 8) = "客户编号"
i = 1: CobDaZhe.Text = 1: gongji = 0: XsNum = 1
gongji = 0
FlxGd.ColWidth(1) = 1656
FlxGd.ColWidth(2) = 808
FlxGd.ColWidth(3) = 688
FlxGd.ColWidth(4) = 666
FlxGd.ColWidth(5) = 1500
FlxGd.ColWidth(6) = 906
FlxGd.ColWidth(7) = 906
End Sub
Private Sub Frame5_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub TxtFind_Change()
XsNum = 1
End Sub
Private Sub TxtFind_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If TxtFind = "" Then
MsgBox "请输入要销售的书编号", vbOKOnly, "销售提示"
Else
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from bookxinxi where book_id='" + TxtFind + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "没有该图书，请查证后在输", vbOKOnly + vbExclamation, "销售提示"
TxtFind = ""
Else
'TxtXSNum = 1
TxtId = Adodc1.Recordset.Fields("book_id")
TxtName = Adodc1.Recordset.Fields("book_name")
TxtPrice = "￥" & Adodc1.Recordset.Fields("book_price")
'TxtPrice = Format(Val("￥" & Adodc1.Recordset.Fields("book_price")), "###0.00")
TxtCon = Adodc1.Recordset.Fields("book_con")
TxtType = Adodc1.Recordset.Fields("book_type")
TxtDate = Adodc1.Recordset.Fields("book_date")
Adodc1.RecordSource = "select * from kucun"
Adodc1.Refresh
TxtNum = Adodc1.Recordset.Fields("book_num")
XsNum = XsNum + Val(TxtXSNum)
If XsNum > Val(TxtNum) Then
MsgBox "库存中没有这么多的书可以卖出,请重新输入！", vbOKOnly + vbExclamation, "库存不够"
Exit Sub
ElseIf Val(TxtNum) = 0 Then
MsgBox "此书已经售尽", vbOKOnly + vbInformation, "销售提示"
Exit Sub
Else
Call AddFlxGd
End If
End If
End If
End If
End Sub
Private Sub Info()
TxtId = "": TxtName = ""
TxtPrice = "": TxtCon = "": TxtType = ""
TxtDate = "": TxtXSNum = 1: TxtNum = ""
LabYingShou = "": TxtShiShou = "": LabZhaoLing = ""
End Sub
Private Sub AddFlxGd()
If TxtXSNum = "" Then
TxtXSNum = 1
End If
For temp = 1 To i
If TxtId = FlxGd.TextMatrix(temp, 2) Then
FlxGd.TextMatrix(temp, 4) = FlxGd.TextMatrix(temp, 4) + Val(TxtXSNum)
FlxGd.TextMatrix(temp, 5) = "￥" & str(Val(Mid(FlxGd.TextMatrix(temp, 5), 2)) + Val(FlxGd.TextMatrix(temp, 3)) * Val(Trim(TxtXSNum)) * Val(CobDaZhe.Text))
gongji = gongji + Val(Trim(TxtXSNum)) * Val(Mid(TxtPrice, 2)) * Val(CobDaZhe.Text)
FlxGd.TextMatrix(i + 1, 5) = "共计:" & "￥" & str(gongji)
LabYingShou = Mid(FlxGd.TextMatrix(i + 1, 5), 4) & "元"
Exit Sub
End If
Next temp
CmdAdd.Enabled = True
FlxGd.AddItem str(i), i
FlxGd.TextMatrix(i, 1) = Format(Date, "yyyymd") & Format(Time, "hns") & DcbEmpId.Text
FlxGd.TextMatrix(i, 2) = TxtId
FlxGd.TextMatrix(i, 3) = TxtPrice
FlxGd.TextMatrix(i, 4) = TxtXSNum
FlxGd.TextMatrix(i, 5) = "￥" & str(Val(FlxGd.TextMatrix(i, 4) * Val(Mid(Trim(TxtPrice), 2)) * Val(CobDaZhe.Text)))
FlxGd.TextMatrix(i, 6) = Date
FlxGd.TextMatrix(i, 7) = DcbEmpId.BoundText
FlxGd.TextMatrix(i, 8) = DcbBuyerId.BoundText
gongji = gongji + Val(Mid(FlxGd.TextMatrix(i, 5), 2))
FlxGd.TextMatrix(i + 1, 5) = ""
FlxGd.TextMatrix(i + 2, 5) = "共计:" & "￥" & str(gongji)
LabYingShou = Mid(FlxGd.TextMatrix(i + 2, 5), 4) & "元"
TxtFind = "": TxtXSNum = 1
' For temp = 1 To i
' Gongji = Gongji + FlxGd.TextMatrix(temp, 7)
' Next temp
i = i + 1
' FlxGd.TextMatrix(i, 7) = "共计:" & Str(Gongji)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -