📄 main_qtgl_jzgl_dzjz.frm
字号:
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column08
DataField = "消费状态"
Caption = "消费状态"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column09
DataField = "登记时间"
Caption = "登记时间"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column10
DataField = "折扣"
Caption = "折扣"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column11
DataField = "金额小计"
Caption = "金额小计"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
ColumnWidth = 750.047
EndProperty
BeginProperty Column01
ColumnWidth = 675.213
EndProperty
BeginProperty Column02
ColumnWidth = 854.929
EndProperty
BeginProperty Column03
ColumnWidth = 884.976
EndProperty
BeginProperty Column04
ColumnWidth = 1560.189
EndProperty
BeginProperty Column05
ColumnWidth = 510.236
EndProperty
BeginProperty Column06
ColumnWidth = 615.118
EndProperty
BeginProperty Column07
ColumnWidth = 659.906
EndProperty
BeginProperty Column08
ColumnWidth = 884.976
EndProperty
BeginProperty Column09
ColumnWidth = 1785.26
EndProperty
BeginProperty Column10
ColumnWidth = 659.906
EndProperty
BeginProperty Column11
ColumnWidth = 959.811
EndProperty
EndProperty
End
Begin VB.Label Labyjje
BackStyle = 0 'Transparent
Height = 210
Left = 6930
TabIndex = 17
Top = 165
Width = 1095
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "人数： 单据描述： 结账单据号："
Height = 345
Left = 120
TabIndex = 11
Top = 570
Width = 7905
End
Begin VB.Label Labdjh
BackStyle = 0 'Transparent
Height = 270
Left = 7980
TabIndex = 10
Top = 555
Width = 1845
End
Begin VB.Label Labzl
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 210
Left = 10710
TabIndex = 9
Top = 135
Width = 840
End
Begin VB.Label Labdd
BackStyle = 0 'Transparent
ForeColor = &H00FF0000&
Height = 240
Left = 960
TabIndex = 4
Top = 4455
Width = 1395
End
Begin VB.Label Labzd
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 240
Left = 3315
TabIndex = 3
Top = 4455
Width = 1395
End
Begin VB.Label Labzj
BackStyle = 0 'Transparent
ForeColor = &H00FF0000&
Height = 240
Left = 5685
TabIndex = 2
Top = 4455
Width = 2145
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "点单金额： 赠单金额： 金额总计："
Height = 225
Left = 105
TabIndex = 5
Top = 4455
Width = 8040
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = $"main_qtgl_jzgl_dzjz.frx":0015
Height = 285
Left = 120
TabIndex = 0
Top = 150
Width = 10680
End
End
Attribute VB_Name = "main_qtgl_jzgl_dzjz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs1 As New ADODB.Recordset '定义数据集对象
Dim rs2 As New ADODB.Recordset
Dim rs3 As New ADODB.Recordset
Dim rs4 As New ADODB.Recordset
Dim rs5 As New ADODB.Recordset
Dim rs6 As New ADODB.Recordset
Dim txtSQL, lsph, myval As String '定义字符串变量
Private Sub Form_Load()
'添加性别列表
Combo1.AddItem ("男")
Combo1.AddItem ("女")
Combo1.ListIndex = 0
'设置单据号
txtSQL = "select * from 单据号表"
Set rs1 = ESQL(txtSQL)
If rs1.RecordCount = 0 Then
Labdjh.Caption = Date & "No." & "0001"
Else
lsph = Right(Trim(rs1.Fields("单据号")), 4) + 1
Labdjh.Caption = Date & "No." & Format(lsph, "0000")
End If
'按箱号和大厅查询临时消费信息
Adodc1.RecordSource = "select * from 临时消费信息表 where 箱号='" + Trim(main_qtgl_jzgl.ListView1.SelectedItem.Text) + "'and 所在大厅 ='" + Trim(main_qtgl_jzgl.Combo1.Text) + "'"
Adodc1.Refresh
'统计点单金额、赠单金额、金额总计
Adodc2.RecordSource = "select 消费状态 as 状态1,sum(金额小计)as 金额合计 from 临时消费信息表 where 箱号='" + Trim(main_qtgl_jzgl.ListView1.SelectedItem.Text) + "'and 所在大厅 ='" + Trim(main_qtgl_jzgl.Combo1.Text) + "'group by 消费状态 order by 消费状态"
Adodc2.Refresh
If Adodc2.Recordset.RecordCount > 1 Then
Labdd.Caption = Format(Val(Adodc2.Recordset.Fields(1)), "0.00")
If Adodc2.Recordset.EOF = False Then Adodc2.Recordset.MoveNext
Labzd.Caption = Format(Val(Adodc2.Recordset.Fields(1)), "0.00")
ElseIf Adodc2.Recordset.RecordCount = 1 Then
If Adodc2.Recordset.Fields(0) = "赠单" Then
Labzd.Caption = Format(Val(Adodc2.Recordset.Fields(1)), "0.00")
Labdd.Caption = "0.00"
Else
Labdd.Caption = Format(Val(Adodc2.Recordset.Fields(1)), "0.00")
Labzd.Caption = "0.00"
End If
End If
Labzj.Caption = Format(Val(Labdd.Caption) + Val(Labzd.Caption), "0.00")
'设置窗体标题栏的内容
Me.Caption = Me.Caption & " 操作员： " & frm_main.St1.Panels(3).Text
End Sub
Private Sub Texsj_Change()
'计算找零
Labzl.Caption = Format(Val(Texsj.Text) - Val(Labyjje.Caption), "0.00")
End Sub
Private Sub cmdOK_Click()
myval = MsgBox("是否确定打折结账？", vbYesNo)
If myval = vbYes Then '假如确定打折结帐
'插入箱号、所在大厅等信息到日消费信息表中
txtSQL = "insert 日消费信息表(箱号,所在大厅,项目编号,名称,单位,单价,数量,简称,消费状态,隐藏状态,登记时间,折扣,金额小计) select 箱号,所在大厅,项目编号,名称,单位,单价,数量,简称,消费状态,隐藏状态,登记时间,折扣,金额小计 from 临时消费信息表 where 箱号='" + Trim(Adodc1.Recordset.Fields("箱号")) + "'and 所在大厅='" + Trim(Adodc1.Recordset.Fields("所在大厅")) + "'"
Set rs1 = ESQL(txtSQL)
'更新日消费信息表
txtSQL = "update 日消费信息表 set 隐藏状态='已结帐',消费单据号='" + Trim(Labdjh.Caption) + "'from 日消费信息表 where 箱号='" + Trim(Adodc1.Recordset.Fields("箱号")) + "'and 所在大厅='" + Trim(Adodc1.Recordset.Fields("所在大厅")) + "'and 隐藏状态='消费中'"
Set rs2 = ESQL(txtSQL)
'按箱号和所在大厅查询箱号信息
txtSQL = "select * from 箱号信息表 where 箱号='" + Trim(Adodc1.Recordset.Fields("箱号")) + "'and 所在大厅='" + Trim(Adodc1.Recordset.Fields("所在大厅")) + "'"
Set rs3 = ESQL(txtSQL)
If rs3.RecordCount > 0 Then '当记录大于零时
rs3.Fields("状态") = "空闲" '设置箱号状态为空闲
rs3.Update '更新记录
End If
'设置单据号
txtSQL = "select * from 单据号表"
Set rs4 = ESQL(txtSQL)
If rs4.RecordCount > 0 Then
rs4.Fields("单据号") = Labdjh.Caption
rs4.Update
Else
rs4.AddNew
rs4.Fields("单据号") = Labdjh.Caption
rs4.Update
End If
'删除临时消费信息表中的信息
txtSQL = "delete 临时消费信息表 where 箱号='" + Trim(Adodc1.Recordset.Fields("箱号")) + "'and 所在大厅='" + Trim(Adodc1.Recordset.Fields("所在大厅")) + "'"
Set rs5 = ESQL(txtSQL)
'查询日消费单据信息
txtSQL = "select * from 日消费单据表"
Set rs6 = ESQL(txtSQL)
'添加新记录到日消费单据表
rs6.AddNew
rs6.Fields("消费单据号") = Trim(Labdjh.Caption)
rs6.Fields("主客箱号") = Trim(Adodc1.Recordset.Fields("箱号"))
rs6.Fields("主客姓名") = Trim(Texxm.Text)
rs6.Fields("主客性别") = Trim(Combo1.Text)
rs6.Fields("登记时间") = Trim(Adodc1.Recordset.Fields("登记时间"))
rs6.Fields("结帐日期") = Now
rs6.Fields("结帐方式") = "打折结帐"
rs6.Fields("主客消费金额") = Val(Labzj.Caption)
rs6.Fields("总计消费") = Val(Labzj.Caption)
rs6.Fields("打折") = Val(Texzk.Text)
rs6.Fields("消费应收") = Val(Labyjje.Caption)
rs6.Fields("实交金额") = Val(Texsj.Text)
rs6.Fields("找零") = Val(Labzl.Caption)
' If Val(Labzl.Caption) < 0 Then rs6.Fields("消费实收") = Val(Texsj.Text) Else rs6.Fields("消费实收") = Val(Labdd.Caption)
rs6.Fields("消费实收") = Format(Val(Texsj.Text) - Val(Labyjje.Caption), "0.00")
rs6.Fields("减免金额") = 0
rs6.Fields("减免原因") = "无"
rs6.Fields("单据描述") = Trim(Texdjms.Text)
rs6.Fields("人数") = Val(Texrs.Text)
'更新记录
rs6.Update
Adodc1.Refresh
main_qtgl_jzgl.ListView1.ListItems.Clear
Call main_qtgl_jzgl.View_List
MsgBox "结账成功！"
main_qtgl_jzgl.Enabled = True
Unload Me
End If
End Sub
Private Sub CmdEnd_Click()
main_qtgl_jzgl.Enabled = True
Unload Me
End Sub
Private Sub Texzk_Change()
'计算应交金额
Labyjje.Caption = Format(Val(Labdd.Caption) * (Val(Texzk.Text) / 10), "0.00")
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -