📄 main_qtgl_ztfwgl_jrbfxf.frm
字号:
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
BeginProperty Column12
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
MarqueeStyle = 4
BeginProperty Column00
ColumnWidth = 540.284
EndProperty
BeginProperty Column01
ColumnWidth = 434.835
EndProperty
BeginProperty Column02
ColumnWidth = 645.165
EndProperty
BeginProperty Column03
ColumnWidth = 870.236
EndProperty
BeginProperty Column04
ColumnWidth = 1080
EndProperty
BeginProperty Column05
ColumnWidth = 854.929
EndProperty
BeginProperty Column06
ColumnWidth = 840.189
EndProperty
BeginProperty Column07
ColumnWidth = 824.882
EndProperty
BeginProperty Column08
ColumnWidth = 524.976
EndProperty
BeginProperty Column09
ColumnWidth = 959.811
EndProperty
BeginProperty Column10
ColumnWidth = 810.142
EndProperty
BeginProperty Column11
ColumnWidth = 810.142
EndProperty
BeginProperty Column12
ColumnWidth = 14.74
EndProperty
EndProperty
End
End
Begin VB.Frame Frame1
Caption = "包房信息"
Height = 5100
Left = 45
TabIndex = 0
Top = 75
Width = 3435
Begin VB.TextBox Text1
DataField = "状态"
DataSource = "Adodc1"
Height = 270
Index = 12
Left = 1245
Locked = -1 'True
TabIndex = 14
Top = 3188
Width = 2025
End
Begin VB.TextBox Text1
DataField = "现容纳人数"
DataSource = "Adodc1"
Height = 270
Index = 11
Left = 1245
Locked = -1 'True
TabIndex = 13
Top = 3549
Width = 2040
End
Begin VB.TextBox Text1
DataField = "包房价格"
DataSource = "Adodc1"
Height = 270
Index = 10
Left = 1245
Locked = -1 'True
TabIndex = 12
Top = 3910
Width = 2040
End
Begin VB.TextBox Text1
DataField = "消费单位"
DataSource = "Adodc1"
Height = 270
Index = 9
Left = 1245
Locked = -1 'True
TabIndex = 11
Top = 4271
Width = 2040
End
Begin VB.TextBox Text1
DataField = "分钟描述"
DataSource = "Adodc1"
Height = 270
Index = 8
Left = 1245
Locked = -1 'True
TabIndex = 10
Top = 4635
Width = 2040
End
Begin VB.TextBox Text1
DataField = "容纳人数"
DataSource = "Adodc1"
Height = 270
Index = 7
Left = 1245
Locked = -1 'True
TabIndex = 9
Top = 2827
Width = 2040
End
Begin VB.TextBox Text1
DataField = "包房类型"
DataSource = "Adodc1"
Height = 270
Index = 6
Left = 1245
Locked = -1 'True
TabIndex = 8
Top = 2466
Width = 2040
End
Begin VB.TextBox Text1
DataField = "所属部门"
DataSource = "Adodc1"
Height = 270
Index = 5
Left = 1245
Locked = -1 'True
TabIndex = 7
Top = 2105
Width = 2040
End
Begin VB.TextBox Text1
DataField = "包房说明"
DataSource = "Adodc1"
Height = 270
Index = 4
Left = 1245
Locked = -1 'True
TabIndex = 6
Top = 1744
Width = 2040
End
Begin VB.TextBox Text1
DataField = "包房名称"
DataSource = "Adodc1"
Height = 270
Index = 3
Left = 1245
Locked = -1 'True
TabIndex = 5
Top = 1383
Width = 2040
End
Begin VB.TextBox Text1
DataField = "房间号"
DataSource = "Adodc1"
Height = 270
Index = 2
Left = 1245
Locked = -1 'True
TabIndex = 4
Top = 1022
Width = 1545
End
Begin VB.TextBox Text1
DataField = "楼层"
DataSource = "Adodc1"
Height = 270
Index = 1
Left = 1245
Locked = -1 'True
TabIndex = 3
Top = 661
Width = 1545
End
Begin VB.TextBox Text1
DataField = "编号"
DataSource = "Adodc1"
Height = 270
Index = 0
Left = 1245
Locked = -1 'True
TabIndex = 2
Top = 300
Width = 1545
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = $"main_qtgl_ztfwgl_jrbfxf.frx":0015
Height = 4695
Left = 135
TabIndex = 1
Top = 390
Width = 1380
End
End
Begin VB.Label Labxh
Caption = "Labxh"
ForeColor = &H000000FF&
Height = 240
Left = 6750
TabIndex = 19
Top = 180
Width = 1350
End
Begin VB.Label Labdt
Caption = "Labdt"
ForeColor = &H000000FF&
Height = 240
Left = 4635
TabIndex = 18
Top = 180
Width = 1350
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "所在大厅： 箱号："
Height = 210
Left = 3690
TabIndex = 15
Top = 180
Width = 4875
End
End
Attribute VB_Name = "main_qtgl_ztfwgl_jrbfxf"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs1 As New ADODB.Recordset '定义数据集对象
Dim txtSQL As String '定义字符串变量
Private Sub Form_Load()
'查询空闲包房
Adodc1.RecordSource = "select * from 包房信息表 where 状态='空闲'order by 房间号"
Adodc1.Refresh
'设置窗体标题栏的内容
Me.Caption = Me.Caption & " 操作员： " & frm_main.St1.Panels(3).Text
End Sub
Private Sub Form_Unload(Cancel As Integer)
main_qtgl_ztfwgl.Enabled = True '设置main_qtgl_ztfwgl窗体有效
End Sub
Private Sub cmdOK_Click()
txtSQL = "select * from 包房消费临时表"
Set rs1 = ESQL(txtSQL)
'添加包房消费信息
rs1.AddNew
If Text1(2).Text <> "" Then rs1.Fields("房间号") = Trim(Text1(2).Text)
If Text1(3).Text <> "" Then rs1.Fields("包房名称") = Trim(Text1(3).Text)
If Text1(10).Text <> "" Then rs1.Fields("包房价格") = Val(Text1(10).Text)
If Text1(8).Text <> "" Then rs1.Fields("分钟描述") = Val(Text1(8).Text)
If Labxh.Caption <> "" Then rs1.Fields("箱号") = Trim(Labxh.Caption)
If Labdt.Caption <> "" Then rs1.Fields("所在大厅") = Trim(Labdt.Caption)
rs1.Fields("进入时间") = Now
rs1.Update '更新数据库
MsgBox "[" & Labxh.Caption & "]箱号的客人已进入" & Text1(3).Text & "包房消费！"
'按房间号查包房信息
txtSQL = "select * from 包房信息表 where 房间号='" + Trim(Text1(2).Text) + "'"
Set rs1 = ESQL(txtSQL)
If rs1.RecordCount > 0 Then '当记录大于零时
rs1.Fields("状态") = "使用" '设置包房状态为使用
rs1.Update
Adodc1.Refresh
End If
End Sub
Private Sub CmdEnd_Click()
main_qtgl_ztfwgl.Enabled = True
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -