📄 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 + -