??
字號:
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 + -