📄 房台帐单.frm
字号:
Top = 1020
Width = 1155
End
Begin VB.TextBox Text3
Appearance = 0 'Flat
BackColor = &H8000000A&
Height = 315
Left = 6900
Locked = -1 'True
TabIndex = 10
Top = 360
Width = 1455
End
Begin VB.TextBox Text2
Appearance = 0 'Flat
BackColor = &H8000000A&
Height = 315
Left = 4860
Locked = -1 'True
TabIndex = 9
Top = 360
Width = 1155
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H8000000A&
Height = 315
Left = 660
Locked = -1 'True
TabIndex = 4
Top = 360
Width = 1155
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "名称："
Height = 195
Left = 1920
TabIndex = 37
Top = 480
Width = 540
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "折扣："
Height = 180
Left = -74880
TabIndex = 34
Top = 1200
Width = 540
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "结帐员工："
Height = 180
Left = -72720
TabIndex = 31
Top = 480
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "结帐时间："
Height = 180
Left = -74880
TabIndex = 30
Top = 480
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "消费金额："
Height = 180
Left = -71340
TabIndex = 25
Top = 1200
Width = 900
End
Begin VB.Label Label45
AutoSize = -1 'True
Caption = "剩余金额："
Height = 180
Left = -69060
TabIndex = 23
Top = 1200
Width = 900
End
Begin VB.Label Label44
AutoSize = -1 'True
Caption = "卡类："
Height = 180
Left = -73200
TabIndex = 22
Top = 1200
Width = 540
End
Begin VB.Label Label42
AutoSize = -1 'True
Caption = "会员姓名："
Height = 180
Left = -69060
TabIndex = 18
Top = 420
Width = 900
End
Begin VB.Label Label41
AutoSize = -1 'True
Caption = "会员卡号："
Height = 180
Left = -71340
TabIndex = 17
Top = 420
Width = 900
End
Begin VB.Label Label40
AutoSize = -1 'True
Caption = "人数："
Height = 180
Left = -73140
TabIndex = 16
Top = 420
Width = 540
End
Begin VB.Label Label39
AutoSize = -1 'True
Caption = "客人："
Height = 180
Left = -74880
TabIndex = 15
Top = 420
Width = 540
End
Begin VB.Label Label38
AutoSize = -1 'True
Caption = "说明："
Height = 180
Left = 4200
TabIndex = 14
Top = 1140
Width = 540
End
Begin VB.Label Label37
AutoSize = -1 'True
Caption = "单号："
Height = 180
Left = 2100
TabIndex = 8
Top = 1140
Width = 540
End
Begin VB.Label Label36
AutoSize = -1 'True
Caption = "时间："
Height = 180
Left = 120
TabIndex = 7
Top = 1140
Width = 540
End
Begin VB.Label Label35
AutoSize = -1 'True
Caption = "部门："
Height = 180
Left = 6360
TabIndex = 6
Top = 420
Width = 540
End
Begin VB.Label Label34
AutoSize = -1 'True
Caption = "房台类别："
Height = 180
Left = 4020
TabIndex = 5
Top = 420
Width = 900
End
Begin VB.Label Label33
AutoSize = -1 'True
Caption = "台号："
Height = 180
Left = 120
TabIndex = 3
Top = 420
Width = 540
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 5400
Top = 3000
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "房台帐单.frx":0054
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "房台帐单.frx":12D6
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "房台帐单.frx":1728
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "房台帐单.frx":1B7A
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "房台帐单.frx":1E6E
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "房台帐单.frx":2162
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "房台帐单.frx":25B4
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "房台帐单.frx":2748
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 795
Left = 0
TabIndex = 0
Top = 0
Width = 9300
_ExtentX = 16404
_ExtentY = 1402
ButtonWidth = 1032
ButtonHeight = 1349
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 8
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "选台"
ImageIndex = 1
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 3
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "房台类别"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "开台情况"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "消费金额"
EndProperty
EndProperty
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "开台"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "点菜"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "转台"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "并台"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "结帐"
ImageIndex = 6
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "清台"
ImageIndex = 7
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
ImageIndex = 8
EndProperty
EndProperty
End
Begin VB.Label Label21
BackColor = &H8000000E&
Height = 495
Left = 0
TabIndex = 1
Top = 0
Width = 615
End
End
Attribute VB_Name = "FTZD"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim TableNo As String
Dim myRecord As New ADODB.Recordset
Private Sub Form_Activate()
On Error Resume Next
Dim tempSql As String
tempSql = "select 房台名称,房台类型名称,餐厅名称,就餐时间,帐单编号,顾客编号,顾客姓名,顾客数量 from 房台状态信息 where 房台编号='" & Text1.Text & "'"
dbRecord.Open tempSql, dbConn, adOpenStatic, adLockReadOnly
Text2.Text = dbRecord.Fields(1).Value '房台类型
Text3.Text = dbRecord.Fields(2).Value
Text4.Text = dbRecord.Fields(3).Value
Text5.Text = dbRecord.Fields(4).Value
Text7.Text = dbRecord.Fields(6).Value '顾客名称
Text8.Text = dbRecord.Fields(7).Value
Text17.Text = dbRecord.Fields(0).Value '房台名称
dbRecord.Close
Set myRecord = New ADODB.Recordset
myRecord.CursorLocation = adUseClient
tempSql = "select 点菜编号,上菜标志,点菜时间,酒菜名称,数量,单价 from 每日点单 where 房台编号='" & Text1.Text & "'"
myRecord.Open tempSql, dbConn, 1, 1
Set Adodc1.Recordset = myRecord
Set DataGrid1.DataSource = Adodc1.Recordset
End Sub
Private Sub Label24_Click()
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 0
Case 1
Case 2
Case 3
DC.Show 1
Case 6
JZ.Show 1
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -