?? frmviewbook.frm
字號:
LostBackColor = -2147483644
LostForeColor = 255
Locked = -1 'True
PreControl = "dtpExpireDate"
NextControl = "ftMenuID"
TextType = 2
Text = "12"
End
Begin VB.Line Line9
BorderColor = &H80000005&
X1 = 7050
X2 = 7050
Y1 = 3285
Y2 = 240
End
Begin VB.Line Line8
BorderColor = &H80000005&
X1 = 105
X2 = 7050
Y1 = 3285
Y2 = 3285
End
Begin VB.Line Line7
BorderColor = &H80000003&
X1 = 105
X2 = 7065
Y1 = 255
Y2 = 255
End
Begin VB.Line Line6
BorderColor = &H80000003&
X1 = 105
X2 = 105
Y1 = 255
Y2 = 3285
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "創建日期:"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 10
Left = 4305
TabIndex = 22
Top = 2445
Width = 975
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "就餐時間:"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 8
Left = 4305
TabIndex = 20
Top = 1995
Width = 975
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
Index = 1
X1 = 3960
X2 = 3960
Y1 = 420
Y2 = 3210
End
Begin VB.Line Line5
BorderColor = &H00FFFFFF&
X1 = 6840
X2 = 6840
Y1 = 435
Y2 = 870
End
Begin VB.Line Line4
BorderColor = &H00808080&
X1 = 6825
X2 = 5175
Y1 = 420
Y2 = 420
End
Begin VB.Line Line3
BorderColor = &H00808080&
X1 = 5190
X2 = 5190
Y1 = 420
Y2 = 855
End
Begin VB.Line Line2
BorderColor = &H00FFFFFF&
X1 = 5205
X2 = 6840
Y1 = 855
Y2 = 855
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 0
X1 = 3945
X2 = 3945
Y1 = 420
Y2 = 3210
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "酒席編號:"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 9
Left = 450
TabIndex = 17
Top = 2940
Width = 975
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "創建時間:"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 7
Left = 4305
TabIndex = 16
Top = 2925
Width = 975
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "預訂日期:"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 6
Left = 4305
TabIndex = 15
Top = 1530
Width = 975
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用餐人數:"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 5
Left = 4305
TabIndex = 14
Top = 1050
Width = 975
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "聯系電話:"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 4
Left = 450
TabIndex = 13
Top = 2475
Width = 975
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "聯系人:"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 3
Left = 615
TabIndex = 12
Top = 1995
Width = 780
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "會員編號:"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 2
Left = 450
TabIndex = 11
Top = 1500
Width = 975
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "餐桌編號:"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 1
Left = 450
TabIndex = 10
Top = 1020
Width = 975
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "預訂編號:"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 0
Left = 450
TabIndex = 9
Top = 525
Width = 975
End
End
End
Attribute VB_Name = "frmviewBook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public tmpID As String
Private Sub cmdCancelBook_Click()
Unload Me
End Sub
Private Sub Form_Load()
GetFormSet Me, Screen
'顯示預訂內容
DisplayBook
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveFormSet Me
End Sub
Private Sub DisplayBook()
On Error GoTo vBOOK
If tmpID = "" Then Exit Sub
Dim sTmp As String
Dim vDB As Connection
Dim vRS As Recordset
Set vDB = CreateObject("ADODB.Connection")
vDB.Open Constr
Set vRS = CreateObject("ADODB.Recordset")
sTmp = "Select * from tbdBook Where ID='" & tmpID & "'"
vRS.Open sTmp, vDB, adOpenStatic, adLockReadOnly, adCmdText
If Not (vRS.EOF And vRS.BOF) Then
'給出記錄
ftNO.Text = vRS("ID")
ftCID.Text = NullValue(vRS("CID"))
ftCName.Text = vRS("CName")
ftTel.Text = vRS("TEL")
ftClass.Text = NullValue(vRS("Class"))
ftNum.Text = vRS("Num")
ftDate.Text = vRS("ExpireDate")
ftExpireDate.Text = vRS("ExpireTime")
ftMenuID.Text = NullValue(vRS("MenuID"))
ftBookDate.Text = vRS("BookDate")
Select Case vRS("DatePart")
Case 1
ftDatePart.Text = "中午"
Case 2
ftDatePart.Text = "下午"
Case 3
ftDatePart.Text = "晚上"
End Select
Else
vRS.Close
vDB.Close
Set vRS = Nothing
Set vDB = Nothing
MsgBox "預訂座位【" & tmpID & "】沒有找到?或者已經取消。 ", vbExclamation
Exit Sub
End If
vRS.Close
vDB.Close
Set vRS = Nothing
Set vDB = Nothing
Exit Sub
vBOOK:
MsgBox "查看預訂單錯誤:" & Err.Description, vbCritical
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -