📄 main_qtgl_ktgl.frm
字号:
EndProperty
BeginProperty Column02
ColumnWidth = 975.118
EndProperty
BeginProperty Column03
ColumnWidth = 1709.858
EndProperty
BeginProperty Column04
ColumnWidth = 524.976
EndProperty
BeginProperty Column05
ColumnWidth = 705.26
EndProperty
BeginProperty Column06
ColumnWidth = 659.906
EndProperty
BeginProperty Column07
ColumnWidth = 555.024
EndProperty
BeginProperty Column08
ColumnWidth = 14.74
EndProperty
BeginProperty Column09
ColumnWidth = 14.74
EndProperty
BeginProperty Column10
ColumnWidth = 14.74
EndProperty
BeginProperty Column11
ColumnWidth = 14.74
EndProperty
BeginProperty Column12
ColumnWidth = 510.236
EndProperty
BeginProperty Column13
ColumnWidth = 14.74
EndProperty
BeginProperty Column14
ColumnWidth = 14.74
EndProperty
EndProperty
End
Begin VB.Label Labje
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 195
Left = 5370
TabIndex = 38
Top = 1935
Width = 1710
End
Begin VB.Label Labfwy
BackStyle = 0 'Transparent
ForeColor = &H00FF0000&
Height = 195
Left = 2715
TabIndex = 37
Top = 1905
Width = 1020
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "总计金额："
Height = 210
Index = 1
Left = 4260
TabIndex = 35
Top = 1935
Width = 900
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "服务员："
Height = 210
Index = 0
Left = 1995
TabIndex = 34
Top = 1890
Width = 735
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "已点菜谱信息："
Height = 285
Left = 75
TabIndex = 32
Top = 165
Width = 3300
End
End
End
Attribute VB_Name = "main_qtgl_ktgl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim itmX As ListItem '定义一个listitem对象
Dim rs1 As New ADODB.Recordset '定义数据集对象
Dim a As Integer '定义一个整型变量
Dim key, list As String
Public Sub list_change() '定义房台列表函数
i = SSTab1.Tab '把当前选项卡的值赋给变量i
Sql = "select * from 房间台号信息表 where 状态='" + Left(SSTab1.Caption, 2) + "'" & _
"and 房间台号信息表.部门='" + Combo1.text + "'and 房间台号信息表.房台名称 like '" & _
"" + Text1.text + "'+'%'order by 编号" '查询符合条件的房台信息
Call FunAdo(Adodc1, Sql) '调用ADO的执行函数
Adodc1.Refresh '刷新Adodc1的记录集
If Adodc1.Recordset.RecordCount > 0 Then '如果Adodc1的记录集不为空
ListView1(i).ListItems.Clear '清空ListView中的列表项
Adodc1.Recordset.MoveFirst 'Adodc1的记录指针移到第一条记录
Do While Adodc1.Recordset.EOF = False '如果不是记录集的尾部循环
key = "（" & Trim(Adodc1.Recordset.Fields("编号")) & "）" _
& Trim(Adodc1.Recordset.Fields("房台名称")) '记录房台编号和房台名称
If i = 1 Then '如果是营业房台
Set itmX = ListView1(i).ListItems.Add(, , key, 2) '添加房台到ListView控件中
Else '如果不是营业房台
Set itmX = ListView1(i).ListItems.Add(, , key, 1) '添加房台到ListView控件中
End If '结束If语句
Adodc1.Recordset.MoveNext 'Adodc1的记录集指针移到下一条记录
Loop '返回到DoWhile，继续循环
Else '不过Adodc1的记录集为空
ListView1(i).ListItems.Clear '清空ListView中的列表项
End If '结束If语句
Label2(i).Caption = Left(SSTab1.Caption, 2) & "总数： " _
& Adodc1.Recordset.RecordCount & "个" '显示房台数目
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
For a = 0 To 7 '设置房台信息初始值
Label4(a).Caption = "" '房台信息初始值为空
Next a 'a加1
Call list_change '调用房台列表函数
i = SSTab1.Tab '把SSTab1的选项卡值赋给变量i
If ListView1(i).ListItems.Count > 0 Then '如果ListView控件中的列表不为空
Sql = "select * from 房间台号信息表 where 房间台号信息表.状态='" + Left(SSTab1.Caption, 2) + "'" & _
"and 房间台号信息表.部门='" + Combo1.text + "'order by 编号" '查询房台信息
Call FunAdo(Adodc1, Sql) '调用ADO控件的执行函数
Adodc1.Refresh '刷新ADO控件的记录集
For a = 0 To 7 '显示房台信息
If Adodc1.Recordset.RecordCount > 0 Then '如果Adodc1的记录集不为空
Label4(a).Caption = Trim(Adodc1.Recordset.Fields(a)) '显示房台信息
End If '结束If语句
Next a '变量a值加1
End If '结束If语句
Me.Caption = Me.Caption & " " & frm_main.St1.Panels(3).text '显示窗体的标题
'打开"部门信息表"
rs1.Open "select 部门名称 from 部门信息表 order by 部门编号", cnn, adOpenKeyset, adLockOptimistic
'添加部门信息
If rs1.BOF = False Then rs1.MoveFirst '如果记录集指针不在首部，指针移动到第一条记录
For i = 0 To rs1.RecordCount - 1 '向列表框中添加部门名称
Combo1.AddItem (Trim(rs1.Fields("部门名称"))) '添加列表项
rs1.MoveNext '记录集移向下一条记录
Next i '变量i值加1
If Combo1.ListCount > 0 Then Combo1.ListIndex = 0 '设置Combo1的索引值
rs1.Close '关闭数据集对象
SSTab1.Tab = 0
End Sub
Private Sub Combo1_Click() '选择部门
Call list_change '调用房台列表函数
i = SSTab1.Tab '把SSTab1的选项卡值赋给变量i
If ListView1(i).ListItems.Count = 0 Then '如果当前ListView控件的列表项为空
For a = 0 To 7 '清空当前房态信息
Label4(a).Caption = "" '设置但前房态信息为空
Next a '变量a值加1
End If '结束If语句
End Sub
Private Sub Form_Unload(Cancel As Integer)
frm_main.Enabled = True
End Sub
Private Sub ListView1_Click(Index As Integer) '选择房台
Labje.Caption = "" '初始化消费总额
i = SSTab1.Tab '把SSTab1的选项卡值赋给变量i
If ListView1(i).ListItems.Count > 0 Then '如果当前ListView控件中的列表不为空
list = ListView1(i).SelectedItem '记录选中的房台
Sql = "select * from 房间台号信息表 where " & _
"编号='" + Right(Left(list, 4), 3) + "'order by 编号" '查询当前房台的信息
Call FunAdo(Adodc1, Sql) '调用执行ADO控件的自定义函数
Adodc1.Refresh '刷新Adodc1的记录集
If Adodc1.Recordset.RecordCount > 0 Then '如果记录集不为空
For a = 0 To 7 '显示房台详细信息
Label4(a).Caption = Trim(Adodc1.Recordset.Fields(a)) '赋值给label4(a).caption
Next a '变量a加1
End If '结束If语句
sqlStr = "select sum(金额)as 金额合计 from 点单临时表 where " & _
"房台编号='" + Right(Left(list, 4), 3) + "'" '查询消费总额
Call FunAdo(Adodc2, sqlStr) '调用执行ADO控件的自定义函数
Adodc2.Refresh '刷新Adodc2记录集
'使用Format函数将数据格式为“0.00”格式
If Adodc2.Recordset.Fields(0) <> "" Then '如果消费总额不为0
Labje.Caption = Format(Adodc2.Recordset.Fields(0), "0.00") & " 元" '格式化显示消费总额
Else '如果消费总额为0
Labje.Caption = "0.00 元" '格式化显示消费总额为0.00
End If '结束If语句
sqlStr = "select * from 点单临时表 where " & _
"房台编号='" + Right(Left(list, 4), 3) + "'" '查询当前房台的信息
Call FunAdo(Adodc2, sqlStr) '调用执行ADO控件的自定义函数
Adodc2.Refresh '刷新Adodc2记录集
If Adodc2.Recordset.RecordCount > 0 Then '如果记录集不为空
Labfwy.Caption = Trim(Adodc2.Recordset.Fields("服务员姓名")) '显示服务员姓名
Set DataGrid1.DataSource = Adodc2 '指定DataGrid的记录源
End If '结束If语句
End If '结束If语句
End Sub
'选择房台的不同状态查看房台信息
Private Sub SSTab1_Click(PreviousTab As Integer)
Call list_change '调用函数
i = SSTab1.Tab '把SSTab1的选项卡值赋给变量i
For a = 0 To 7 '显示但前房台信息
If ListView1(i).ListItems.Count > 0 Then '如果当前ListView1控件中列表不为空
list = ListView1(i).SelectedItem '记录选中的房台
Sql = "select * from 房间台号信息表 where " & _
"编号='" + Right(Left(list, 4), 3) + "'order by 编号" '查询当前房台的信息
Call FunAdo(Adodc1, Sql) '调用执行ADO控件的函数
Adodc1.Refresh '刷新Adodc1的记录集
If Adodc1.Recordset.RecordCount > 0 Then '如果记录集不为空
Adodc1.Recordset.MoveFirst '记录指针移到第一条记录
Label4(a).Caption = Trim(Adodc1.Recordset.Fields(a)) '赋值给label4(a).caption
Else '如果记录集为空
Label4(a).Caption = "" '但前房台信息设为空
End If '结束If语句
Else '如果当前ListView1控件中列表为空
Label4(a).Caption = "" ' '但前房台信息设为空
End If '结束If语句
Next a '变量a加1
End Sub
Private Sub Check1_Click() '数据模式
If Check1.Value = 1 Then SSTab1.Visible = False Else SSTab1.Visible = True
End Sub
Private Sub Comkt_Click() '调入开台服务
If Label4(0).Caption = "" Or Label4(1).Caption = "" Then '如果没有选中房台
MsgBox ("请选择房间！") '提示选择房台
Else '否则，如果选中了一个房台
If Label4(6).Caption = "营业" Or Label4(6).Caption = "维修" Then '如果选中的不是空闲房台
MsgBox ("对不起，您选择的房间正在" & Label4(6).Caption & "，请重新选择！") '提示选择错误
Else '否则，如果选中的是空闲房台
Load main_dialog_ygxx '载入员工信息窗口
main_dialog_ygxx.Show '显示员工信息窗口
frm_main.Enabled = False '主窗体不可用
main_qtgl_ktgl.Enabled = False '开台管理窗体不可用
End If '结束If语句
End If '结束If语句
ListView1(0).Refresh '刷新ListView(0)控件列表
ListView1(1).Refresh '刷新ListView(1)控件列表
ListView1(2).Refresh '刷新ListView(2)控件列表
End Sub
Private Sub Comzt_Click() '调入转台服务
If Label4(0).Caption = "" Or Label4(1).Caption = "" Then
MsgBox ("请选择房间！")
Else
If Label4(6).Caption = "空闲" Or Label4(6).Caption = "维修" Then
MsgBox ("对不起，您选择的房间正在" & Label4(6).Caption & "，请重新选择！")
Else
Load main_qtgl_ktgl_ztfw
main_qtgl_ktgl_ztfw.Show
frm_main.Enabled = False
main_qtgl_ktgl.Enabled = False
End If
End If
End Sub
Private Sub Combt_Click() '调入并台服务
If Label4(0).Caption = "" Or Label4(1).Caption = "" Then
MsgBox ("请选择房间！")
Else
If Label4(6).Caption = "维修" Then
MsgBox ("对不起，您选择的房间正在" & Label4(6).Caption & "，请重新选择！")
Else
Load main_qtgl_ktgl_btfw
main_qtgl_ktgl_btfw.Show
frm_main.Enabled = False
End If
End If
End Sub
Private Sub Comjc_Click() '调入加菜服务
If Label4(0).Caption = "" Or Label4(1).Caption = "" Then
MsgBox ("请选择房间！")
Else
If Label4(6).Caption = "空闲" Or Label4(6).Caption = "维修" Then
MsgBox ("对不起，您选择的房间正在" & Label4(6).Caption & "，请重新选择！")
Else
Load main_qtgl_ktgl_jcfw
main_qtgl_ktgl_jcfw.Show
frm_main.Enabled = False
main_qtgl_ktgl.Enabled = False
End If
End If
End Sub
Private Sub Comfind_Click() '搜索房台信息
Call list_change '调用函数
Labje.Caption = ""
i = SSTab1.Tab
If ListView1(i).ListItems.Count > 0 Then
list = ListView1(i).SelectedItem
Sql = "select * from 房间台号信息表 where 编号='" + Right(Left(list, 4), 3) + "'order by 编号"
Call FunAdo(Adodc1, Sql)
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
For a = 0 To 7
Label4(a).Caption = Trim(Adodc1.Recordset.Fields(a)) '赋值给label4(a).caption
Next a
End If
sqlStr = "select sum(金额)as 金额合计 from 点单临时表 where 房台编号='" + Right(Left(list, 4), 3) + "'"
Call FunAdo(Adodc2, sqlStr)
Adodc2.Refresh
If Adodc2.Recordset.Fields(0) <> "" Then Labje.Caption = Format(Adodc2.Recordset.Fields(0), "0.00") & " 元" Else Labje.Caption = "0.00 元"
sqlStr = "select * from 点单临时表 where 房台编号='" + Right(Left(list, 4), 3) + "'"
Call FunAdo(Adodc2, sqlStr)
Adodc2.Refresh
If Adodc2.Recordset.RecordCount > 0 Then
Labfwy.Caption = Trim(Adodc2.Recordset.Fields("服务员姓名"))
Set DataGrid1.DataSource = Adodc2
End If
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -