📄 frmnewbook.frm
字号:
VERSION 5.00
Object = "{29743316-0803-11D5-AD8E-0050BAA9AC14}#8.1#0"; "MOVEFO~1.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form frmNewBook
Caption = "添加新的预订"
ClientHeight = 4635
ClientLeft = 60
ClientTop = 630
ClientWidth = 8040
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmNewBook.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 4635
ScaleWidth = 8040
WindowState = 2 'Maximized
Begin VB.Frame Frame1
Caption = "添加新的预订单"
ForeColor = &H00800000&
Height = 4260
Left = 120
TabIndex = 10
Top = 225
Width = 7785
Begin VB.ComboBox cmbDatePart
Height = 330
ItemData = "frmNewBook.frx":0312
Left = 5100
List = "frmNewBook.frx":031F
Style = 2 'Dropdown List
TabIndex = 7
Top = 2910
Width = 1965
End
Begin VB.ListBox lstSite
BeginProperty Font
Name = "Arial"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1740
Left = 270
TabIndex = 26
ToolTipText = "请在已经添加座位中选择。"
Top = 1395
Width = 3450
End
Begin VB.CommandButton cmdDate
Height = 300
Left = 6705
Picture = "frmNewBook.frx":0335
Style = 1 'Graphical
TabIndex = 24
ToolTipText = "确认为今天"
Top = 2400
Width = 330
End
Begin VB.CommandButton cmdSelectMenu
Height = 240
Left = 6705
Picture = "frmNewBook.frx":063F
Style = 1 'Graphical
TabIndex = 25
ToolTipText = "酒席选择"
Top = 3435
Width = 345
End
Begin VB.CommandButton cmdSelectMember
Height = 240
Left = 6705
Picture = "frmNewBook.frx":0949
Style = 1 'Graphical
TabIndex = 23
ToolTipText = "选择会员编号"
Top = 510
Width = 345
End
Begin VB.CommandButton cmdSelectSite
Height = 240
Left = 3345
Picture = "frmNewBook.frx":1213
Style = 1 'Graphical
TabIndex = 22
ToolTipText = "选择餐桌编号"
Top = 1005
Width = 345
End
Begin VB.CommandButton cmdOK
Caption = "确认预订(&OK)"
Height = 420
Left = 285
TabIndex = 12
Top = 3600
Width = 1680
End
Begin VB.CommandButton cmdCancelBook
Cancel = -1 'True
Caption = "关闭(&Close)"
Height = 420
Left = 2085
TabIndex = 11
Top = 3600
Width = 1680
End
Begin MSComCtl2.DTPicker dtpExpireDate
Height = 300
Left = 5100
TabIndex = 6
Top = 2415
Width = 1620
_ExtentX = 2858
_ExtentY = 529
_Version = 393216
Format = 69337089
CurrentDate = 37497
End
Begin 给出焦点文本框.FocusText ftNO
Height = 300
Left = 1320
TabIndex = 0
ToolTipText = "只能选择"
Top = 480
Width = 2400
_ExtentX = 4233
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
Locked = -1 'True
PreControl = "cmdOK"
NextControl = "ftClass"
End
Begin 给出焦点文本框.FocusText ftClass
Height = 300
Left = 1320
TabIndex = 1
ToolTipText = "输入桌号，按回车键加入。"
Top = 975
Width = 2400
_ExtentX = 4233
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
PreControl = "ftNO"
NextControl = "ftCID"
End
Begin 给出焦点文本框.FocusText ftCID
Height = 300
Left = 5100
TabIndex = 2
ToolTipText = "只能选择"
Top = 480
Width = 1980
_ExtentX = 3493
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
PreControl = "ftClass"
NextControl = "ftCName"
End
Begin 给出焦点文本框.FocusText ftCName
Height = 300
Left = 5100
TabIndex = 3
Top = 975
Width = 1980
_ExtentX = 3493
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
PreControl = "ftCID"
NextControl = "ftTel"
End
Begin 给出焦点文本框.FocusText ftTel
Height = 300
Left = 5100
TabIndex = 4
Top = 1470
Width = 1980
_ExtentX = 3493
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
PreControl = "ftCName"
NextControl = "ftNum"
End
Begin 给出焦点文本框.FocusText ftNum
Height = 300
Left = 5100
TabIndex = 5
Top = 1935
Width = 1980
_ExtentX = 3493
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
PreControl = "ftTel"
NextControl = "dtpExpireDate"
TextType = 1
Text = "1"
End
Begin 给出焦点文本框.FocusText ftExpireDate
Height = 300
Left = 6120
TabIndex = 8
Top = 2910
Visible = 0 'False
Width = 960
_ExtentX = 1693
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
PreControl = "dtpExpireDate"
NextControl = "ftMenuID"
TextType = 2
Text = "12"
End
Begin 给出焦点文本框.FocusText ftMenuID
Height = 300
Left = 5100
TabIndex = 9
ToolTipText = "只能选择"
Top = 3405
Width = 1980
_ExtentX = 3493
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
PreControl = "cmbDatePart"
NextControl = "cmdOK"
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "上面列表中按鼠标右键删除选定餐桌。"
ForeColor = &H0000FFFF&
Height = 210
Left = 270
TabIndex = 27
Top = 3210
Width = 3570
End
Begin VB.Shape Shape1
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 315
Left = 255
Top = 3150
Width = 3495
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "预订编号："
Height = 210
Index = 0
Left = 285
TabIndex = 21
Top = 525
Width = 1050
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "餐桌编号："
Height = 210
Index = 1
Left = 285
TabIndex = 20
Top = 1020
Width = 1050
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "会员编号："
Height = 210
Index = 2
Left = 4065
TabIndex = 19
Top = 525
Width = 1050
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "联系人："
Height = 210
Index = 3
Left = 4275
TabIndex = 18
Top = 1020
Width = 840
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "联系电话："
Height = 210
Index = 4
Left = 4065
TabIndex = 17
Top = 1515
Width = 1050
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用餐人数："
Height = 210
Index = 5
Left = 4065
TabIndex = 16
Top = 1980
Width = 1050
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "预订日期："
Height = 210
Index = 6
Left = 4065
TabIndex = 15
Top = 2475
Width = 1050
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "预订时间："
Height = 210
Index = 7
Left = 4065
TabIndex = 14
Top = 2955
Width = 1050
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "酒席编号："
Height = 210
Index = 9
Left = 4065
TabIndex = 13
Top = 3450
Width = 1050
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
Index = 1
X1 = 285
X2 = 3750
Y1 = 3525
Y2 = 3525
End
End
Begin VB.Menu mnuOperator
Caption = "餐桌删除操作"
Begin VB.Menu mnuDeleteAll
Caption = "删除所有餐桌编号(&A)"
Enabled = 0 'False
End
Begin VB.Menu jkkkk
Caption = "-"
End
Begin VB.Menu mnuDelete
Caption = "删除选定的餐桌(&D)"
Enabled = 0 'False
End
End
End
Attribute VB_Name = "frmNewBook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim BookChange As Boolean
Private Sub cmbDatePart_Change()
BookChange = True
End Sub
Private Sub cmbDatePart_Click()
BookChange = True
End Sub
Private Sub cmbDatePart_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 13 Then
ftMenuID.SetFocus
End If
End Sub
Private Sub cmdCancelBook_Click()
Unload Me
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -