📄 frmmain.frm
字号:
Width = 915
End
Begin VB.Line Line2
X1 = 2280
X2 = 2280
Y1 = 0
Y2 = 5820
End
End
Begin VB.Frame famsfsz
BackColor = &H00A56E3A&
Caption = "收费设置"
Height = 6915
Left = 3060
TabIndex = 117
Top = 120
Width = 8475
Begin VB.CommandButton cmdExit_sfsz
Appearance = 0 'Flat
Height = 450
Left = 4380
Picture = "frmMain.frx":2F7F0
Style = 1 'Graphical
TabIndex = 125
Top = 5760
Width = 1455
End
Begin VB.CommandButton cmdSave_sfsz
Appearance = 0 'Flat
Height = 450
Left = 2100
Picture = "frmMain.frx":2FFB4
Style = 1 'Graphical
TabIndex = 124
Top = 5760
Width = 1455
End
Begin VB.TextBox txtfwf
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BeginProperty DataFormat
Type = 1
Format = """¥""#,##0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 2
EndProperty
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3540
TabIndex = 123
Top = 3960
Width = 1935
End
Begin VB.CheckBox chkgz
BackColor = &H00A56E3A&
Caption = "允许挂帐"
Height = 315
Left = 2460
TabIndex = 122
Top = 1380
Width = 3555
End
Begin VB.CheckBox chkzp
BackColor = &H00A56E3A&
Caption = "允许使用支票"
Height = 315
Left = 2460
TabIndex = 121
Top = 1800
Width = 3555
End
Begin VB.CheckBox chkmfjf
BackColor = &H00A56E3A&
Caption = "会员是否可以免房间费"
Height = 315
Left = 2460
TabIndex = 120
Top = 2220
Width = 3555
End
Begin VB.CheckBox chkmfwf
BackColor = &H00A56E3A&
Caption = "会员是否可以免服务费"
Height = 315
Left = 2460
TabIndex = 119
Top = 2640
Width = 3555
End
Begin VB.CheckBox chkye
BackColor = &H00A56E3A&
Caption = "允许适用会员卡中的余额"
Height = 315
Left = 2460
TabIndex = 118
Top = 960
Width = 3555
End
Begin VB.Label Label23
BackStyle = 0 'Transparent
Caption = "RMB"
Height = 255
Left = 5520
TabIndex = 127
Top = 4020
Width = 435
End
Begin VB.Label Label22
BackStyle = 0 'Transparent
Caption = "服务费:"
Height = 255
Left = 2460
TabIndex = 126
Top = 4020
Width = 735
End
Begin VB.Shape Shape18
BackColor = &H0000C000&
FillColor = &H00C0FFFF&
FillStyle = 0 'Solid
Height = 375
Left = 2400
Top = 3960
Width = 915
End
End
Begin VB.Frame famyysz_left
BackColor = &H00A56E3A&
Caption = "营业设置"
Height = 6915
Left = 60
TabIndex = 171
Top = 120
Width = 2955
Begin VB.TextBox txtCurUser
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
Enabled = 0 'False
Height = 315
Index = 1
Left = 1620
TabIndex = 183
Top = 6480
Width = 915
End
Begin VB.CommandButton cmdjlsz
Appearance = 0 'Flat
Height = 500
Left = 600
Picture = "frmMain.frx":30764
Style = 1 'Graphical
TabIndex = 177
Top = 3228
Width = 1600
End
Begin VB.CommandButton cmdtcsz
Appearance = 0 'Flat
Height = 500
Left = 600
Picture = "frmMain.frx":31449
Style = 1 'Graphical
TabIndex = 176
Top = 2412
Width = 1600
End
Begin VB.CommandButton cmdjfsz
Appearance = 0 'Flat
Height = 500
Left = 600
Picture = "frmMain.frx":32128
Style = 1 'Graphical
TabIndex = 175
Top = 4860
Width = 1600
End
Begin VB.CommandButton cmdftsz
Appearance = 0 'Flat
Height = 500
Left = 600
Picture = "frmMain.frx":32DDE
Style = 1 'Graphical
TabIndex = 174
Top = 780
Width = 1600
End
Begin VB.CommandButton cmdcdsz
Appearance = 0 'Flat
Height = 500
Left = 600
Picture = "frmMain.frx":33A85
Style = 1 'Graphical
TabIndex = 173
Top = 1596
Width = 1600
End
Begin VB.CommandButton cmdsfsz
Appearance = 0 'Flat
Height = 500
Left = 600
Picture = "frmMain.frx":34741
Style = 1 'Graphical
TabIndex = 172
Top = 4044
Width = 1600
End
Begin VB.Label Label35
BackStyle = 0 'Transparent
Caption = "当前操作员:"
Height = 255
Index = 0
Left = 480
TabIndex = 184
Top = 6540
Width = 1095
End
Begin VB.Shape Shape36
FillColor = &H00C0FFFF&
FillStyle = 0 'Solid
Height = 315
Index = 0
Left = 420
Top = 6480
Width = 1155
End
End
End
Begin VB.Frame fmxtgl
BackColor = &H00A56E3A&
Height = 7155
Left = 0
TabIndex = 3
Top = 540
Width = 11655
Begin VB.Frame FrameLeftXtgl
BackColor = &H00A56E3A&
Caption = "系统管理"
Height = 6915
Left = 60
TabIndex = 4
Top = 120
Width = 2895
Begin VB.CommandButton Command1
BackColor = &H00C0FFFF&
Caption = "人员设置"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 525
Left = 600
Style = 1 'Graphical
TabIndex = 192
Top = 1530
Width = 1605
End
Begin VB.TextBox txtCurUser
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
Enabled = 0 'False
Height = 315
Index = 0
Left = 1560
TabIndex = 185
Top = 6480
Width = 915
End
Begin VB.CommandButton cmdsjbf
Appearance = 0 'Flat
Height = 500
Left = 600
Picture = "frmMain.frx":3541E
Style = 1 'Graphical
TabIndex = 7
Top = 2760
Width = 1600
End
Begin VB.CommandButton cmdqtqx
Appearance = 0 'Flat
Height = 500
Left = 600
Picture = "frmMain.frx":36137
Style = 1 'Graphical
TabIndex = 6
Top = 2145
Width = 1600
End
Begin VB.CommandButton cmdczqx
Appearance = 0 'Flat
Height = 500
Left = 600
Picture = "frmMain.frx":36DF9
Style = 1 'Graphical
TabIndex = 5
Top = 3375
Width = 1600
End
Begin VB.Label Label35
BackStyle = 0 'Transparent
Caption = "当前操作员:"
Height = 255
Index = 1
Left = 420
TabIndex = 186
Top = 6540
Width = 1095
End
Begin VB.Shape Shape36
FillColor = &H00C0FFFF&
FillStyle = 0 'Solid
Height = 315
Index = 1
Left = 360
Top = 6480
Width = 1155
End
End
Begin VB.Frame famqtqx
BackColor = &H00A56E3A&
Caption = "前台权限"
Height = 6915
Left = 3000
TabIndex = 8
Top = 120
Width = 8595
Begin VB.CommandButton cmdExit_qtqx
Height = 450
Left = 4440
Picture = "frmMain.frx":37AE4
Style = 1 'Graphical
TabIndex = 11
Top = 6180
Width = 1455
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -