?? frmbase.frm
字號:
VERSION 5.00
Object = "{29743316-0803-11D5-AD8E-0050BAA9AC14}#8.1#0"; "MOVEFO~1.OCX"
Begin VB.Form frmBase
Caption = "基本配置"
ClientHeight = 6870
ClientLeft = 60
ClientTop = 345
ClientWidth = 10620
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmBase.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 6870
ScaleWidth = 10620
WindowState = 2 'Maximized
Begin VB.Frame Frame5
Caption = "餐桌座位配置"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 2235
Left = 390
TabIndex = 28
Top = 4395
Width = 9510
Begin VB.CommandButton cmdModifySite
Caption = "修改"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 3210
TabIndex = 21
Top = 832
Width = 1140
End
Begin VB.CommandButton cmdDelSite
Caption = "刪除"
Enabled = 0 'False
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 3210
TabIndex = 20
Top = 1245
Width = 1140
End
Begin VB.ListBox lstSite
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1620
ItemData = "frmBase.frx":030A
Left = 5145
List = "frmBase.frx":030C
TabIndex = 19
ToolTipText = "雙擊修改"
Top = 480
Width = 4200
End
Begin VB.CommandButton cmdAddSite
Caption = "添加"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 3210
TabIndex = 18
Top = 390
Width = 1140
End
Begin 給出焦點文本框.FocusText ftSite
Height = 300
Left = 1215
TabIndex = 14
Top = 405
Width = 1935
_ExtentX = 3413
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
PreControl = "cmdAddSite"
NextControl = "ftPrice"
End
Begin 給出焦點文本框.FocusText ftPrice
Height = 300
Left = 1215
TabIndex = 15
Top = 750
Width = 885
_ExtentX = 1561
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
PreControl = "ftSite"
NextControl = "ftSupperPrice"
TextType = 2
Text = "0"
End
Begin 給出焦點文本框.FocusText ftSupperPrice
Height = 300
Left = 1215
TabIndex = 16
Top = 1080
Width = 885
_ExtentX = 1561
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
PreControl = "ftPrice"
NextControl = "ftNightPrice"
TextType = 2
Text = "0"
End
Begin 給出焦點文本框.FocusText ftNightPrice
Height = 300
Left = 1215
TabIndex = 17
Top = 1410
Width = 885
_ExtentX = 1561
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
PreControl = "ftSupperPrice"
NextControl = "cmdAddSite"
TextType = 2
Text = "0"
End
Begin VB.Line Line4
BorderColor = &H80000009&
X1 = 8370
X2 = 8370
Y1 = 165
Y2 = 435
End
Begin VB.Line Line3
BorderColor = &H80000009&
X1 = 7500
X2 = 7500
Y1 = 165
Y2 = 435
End
Begin VB.Line Line2
BorderColor = &H80000009&
X1 = 6615
X2 = 6615
Y1 = 165
Y2 = 450
End
Begin VB.Label Label9
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 = 8445
TabIndex = 46
Top = 210
Width = 780
End
Begin VB.Label Label9
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 = 7545
TabIndex = 45
Top = 210
Width = 780
End
Begin VB.Label Label7
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 = 2115
TabIndex = 44
Top = 1470
Width = 195
End
Begin VB.Label Label7
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 = 2115
TabIndex = 43
Top = 1125
Width = 195
End
Begin VB.Label Label6
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 = 135
TabIndex = 42
Top = 1470
Width = 1080
End
Begin VB.Label Label6
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 = 135
TabIndex = 41
Top = 1125
Width = 1080
End
Begin VB.Label Label8
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
ForeColor = &H00FFFFFF&
Height = 195
Index = 3
Left = 345
TabIndex = 40
Top = 1845
Width = 2145
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "i"
BeginProperty Font
Name = "Webdings"
Size = 10.5
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 300
Index = 2
Left = 105
TabIndex = 39
Top = 1785
Width = 210
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 3
X1 = 4620
X2 = 4620
Y1 = 225
Y2 = 2115
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
Index = 2
X1 = 4635
X2 = 4635
Y1 = 225
Y2 = 2115
End
Begin VB.Label Label5
AutoSize = -1 'True
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -