📄 frmmain.frm
字号:
_ExtentY = 7329
_Version = 393216
SelectionMode = 1
End
Begin VB.Line Line5
X1 = 4080
X2 = 4080
Y1 = 1560
Y2 = 6840
End
Begin VB.Label Label33
BackStyle = 0 'Transparent
Caption = "设置房间计费方式："
Height = 195
Left = 5220
TabIndex = 170
Top = 1560
Width = 1635
End
Begin VB.Label Label32
BackStyle = 0 'Transparent
Caption = "RMB"
Height = 255
Left = 7140
TabIndex = 169
Top = 480
Width = 555
End
Begin VB.Label Label31
BackStyle = 0 'Transparent
Caption = "计费方式："
Height = 195
Left = 120
TabIndex = 168
Top = 1500
Width = 1275
End
Begin VB.Label Label30
BackStyle = 0 'Transparent
Caption = "收费："
Height = 255
Left = 5700
TabIndex = 167
Top = 480
Width = 615
End
Begin VB.Label Label29
BackStyle = 0 'Transparent
Caption = "计费名称："
Height = 255
Left = 3540
TabIndex = 166
Top = 480
Width = 1035
End
Begin VB.Label Label28
BackStyle = 0 'Transparent
Caption = "编号："
Height = 255
Left = 1680
TabIndex = 165
Top = 480
Width = 615
End
Begin VB.Shape Shape19
BackColor = &H00C0FFFF&
BackStyle = 1 'Opaque
Height = 315
Left = 1620
Top = 420
Width = 555
End
Begin VB.Shape Shape20
BackColor = &H00C0FFFF&
BackStyle = 1 'Opaque
Height = 315
Left = 3480
Top = 420
Width = 915
End
Begin VB.Shape Shape21
BackColor = &H00C0FFFF&
BackStyle = 1 'Opaque
Height = 315
Left = 5640
Top = 420
Width = 555
End
End
Begin VB.Frame famftsz
BackColor = &H00A56E3A&
Caption = "房台设置"
Height = 6915
Left = 3060
TabIndex = 141
Top = 120
Width = 8475
Begin VB.TextBox TxtZhsz
Height = 315
Left = 5520
TabIndex = 148
Text = "Text2"
Top = 4380
Visible = 0 'False
Width = 1275
End
Begin VB.TextBox TxtFjbh
Height = 315
Left = 3960
TabIndex = 147
Text = "Text1"
Top = 4380
Visible = 0 'False
Width = 1275
End
Begin VB.ComboBox Combo1
Height = 315
Left = 1740
TabIndex = 146
Text = "Combo1"
Top = 4380
Visible = 0 'False
Width = 1155
End
Begin VB.CommandButton cmdAdd_Fj
Appearance = 0 'Flat
Height = 450
Left = 1020
Picture = "frmMain.frx":2AD27
Style = 1 'Graphical
TabIndex = 145
Top = 6300
Width = 1455
End
Begin VB.CommandButton cmdAdd_Zz
Appearance = 0 'Flat
Height = 450
Left = 2640
Picture = "frmMain.frx":2B614
Style = 1 'Graphical
TabIndex = 144
Top = 6300
Width = 1455
End
Begin VB.CommandButton cmdDel_ft
Appearance = 0 'Flat
Height = 450
Left = 4260
Picture = "frmMain.frx":2BECD
Style = 1 'Graphical
TabIndex = 143
Top = 6300
Width = 1455
End
Begin VB.CommandButton cmdExit_ft
Appearance = 0 'Flat
Height = 450
Left = 5880
Picture = "frmMain.frx":2C6CF
Style = 1 'Graphical
TabIndex = 142
Top = 6300
Width = 1455
End
Begin MSFlexGridLib.MSFlexGrid fgdFjbh
Height = 5475
Left = 120
TabIndex = 149
Top = 600
Width = 2175
_ExtentX = 3836
_ExtentY = 9657
_Version = 393216
FixedCols = 0
TextStyleFixed = 4
GridLines = 2
SelectionMode = 1
End
Begin MSFlexGridLib.MSFlexGrid fgdZH_FT
Height = 5475
Left = 2400
TabIndex = 150
Top = 600
Width = 5955
_ExtentX = 10504
_ExtentY = 9657
_Version = 393216
FixedRows = 0
FixedCols = 0
BackColor = 0
ForeColor = 16777215
BackColorBkg = 0
GridColor = 0
GridLines = 0
GridLinesFixed = 0
End
Begin VB.Label Label27
BackStyle = 0 'Transparent
Caption = "桌号设置"
Height = 315
Left = 4260
TabIndex = 152
Top = 300
Width = 1035
End
Begin VB.Line Line3
X1 = 2340
X2 = 2340
Y1 = 60
Y2 = 6060
End
Begin VB.Label Label26
BackStyle = 0 'Transparent
Caption = "房间编号"
Height = 315
Left = 780
TabIndex = 151
Top = 300
Width = 1035
End
End
Begin VB.Frame famtcsz
BackColor = &H00A56E3A&
Caption = "套菜设置"
Height = 6915
Left = 3060
TabIndex = 128
Top = 120
Width = 8475
Begin VB.CommandButton cmdAdd_tc
Appearance = 0 'Flat
Height = 450
Left = 480
Picture = "frmMain.frx":2CE93
Style = 1 'Graphical
TabIndex = 136
Top = 6180
Width = 1455
End
Begin VB.ComboBox cobcd
Height = 315
Left = 1500
TabIndex = 135
Text = "Combo1"
Top = 3300
Visible = 0 'False
Width = 1155
End
Begin VB.TextBox Text4
Height = 315
Left = 3720
TabIndex = 134
Text = "Text1"
Top = 3300
Visible = 0 'False
Width = 1275
End
Begin VB.CommandButton cmdAdd_mx
Appearance = 0 'Flat
Height = 450
Left = 1995
Picture = "frmMain.frx":2D7A6
Style = 1 'Graphical
TabIndex = 133
Top = 6180
Width = 1455
End
Begin VB.CommandButton cmdSave_tcsz
Appearance = 0 'Flat
Height = 450
Left = 3510
Picture = "frmMain.frx":2E07A
Style = 1 'Graphical
TabIndex = 132
Top = 6180
Width = 1455
End
Begin VB.CommandButton cmdDel_tcsz
Appearance = 0 'Flat
Height = 450
Left = 5025
Picture = "frmMain.frx":2E82A
Style = 1 'Graphical
TabIndex = 131
Top = 6180
Width = 1455
End
Begin VB.CommandButton cmdExit_tcsz
Appearance = 0 'Flat
Height = 450
Left = 6540
Picture = "frmMain.frx":2F02C
Style = 1 'Graphical
TabIndex = 130
Top = 6180
Width = 1455
End
Begin VB.TextBox Text5
Height = 315
Left = 5280
TabIndex = 129
Text = "Text2"
Top = 3300
Visible = 0 'False
Width = 1275
End
Begin MSFlexGridLib.MSFlexGrid fgdtcmx
Height = 5355
Left = 2340
TabIndex = 137
Top = 480
Width = 6015
_ExtentX = 10610
_ExtentY = 9446
_Version = 393216
FixedCols = 0
TextStyleFixed = 4
GridLines = 2
End
Begin MSFlexGridLib.MSFlexGrid fgdtcmc
Height = 5355
Left = 60
TabIndex = 138
Top = 480
Width = 2175
_ExtentX = 3836
_ExtentY = 9446
_Version = 393216
FixedCols = 0
BackColorSel = 255
TextStyleFixed = 4
GridLines = 2
End
Begin VB.Label Label25
BackStyle = 0 'Transparent
Caption = "套菜名称"
Height = 195
Left = 720
TabIndex = 140
Top = 240
Width = 855
End
Begin VB.Label Label24
BackStyle = 0 'Transparent
Caption = "套菜明细"
Height = 195
Left = 4620
TabIndex = 139
Top = 240
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -