📄 1.frm
字号:
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = " 足 按"
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 11
Top = 3480
Width = 1290
End
Begin VB.Label Label8
BackColor = &H00C0FFC0&
BorderStyle = 1 'Fixed Single
Caption = " 采 耳"
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 10
Top = 3120
Width = 1290
End
Begin VB.Label Label7
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = " 修 脚"
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 9
Top = 2760
Width = 1290
End
Begin VB.Label Label6
BackColor = &H00C0FFC0&
BorderStyle = 1 'Fixed Single
Caption = " 推 盐"
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 8
Top = 2400
Width = 1290
End
Begin VB.Label Label5
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = " 推 奶"
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 7
Top = 2040
Width = 1290
End
Begin VB.Label Label4
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = " 泰式按摩"
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 6
Top = 1320
Width = 1295
End
Begin VB.Label Label3
BackColor = &H00C0FFC0&
BorderStyle = 1 'Fixed Single
Caption = " 港式按摩"
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 5
Top = 960
Width = 1295
End
Begin VB.Label Label1
BackColor = &H00C0FFC0&
BorderStyle = 1 'Fixed Single
Caption = " 搓 背"
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 4
Top = 240
Width = 1295
End
Begin VB.Label Label2
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = " 中式按摩"
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 3
Top = 600
Width = 1295
End
End
Begin VB.Image Image1
Height = 7095
Left = 9360
Picture = "1.frx":0000
Stretch = -1 'True
Top = 720
Width = 3015
End
Begin VB.Label Label25
BackColor = &H00C0E0FF&
Caption = "实际支付"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 4560
TabIndex = 78
Top = 6960
Width = 975
End
Begin VB.Label Label23
BackColor = &H00C0E0FF&
Caption = "女 浴 馆"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 65
Top = 3240
Width = 975
End
Begin VB.Label Label22
BackColor = &H00C0E0FF&
Caption = "男 浴 馆"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 64
Top = 240
Width = 975
End
Begin VB.Label Label21
BackColor = &H00C0E0FF&
Caption = "收银员"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 7200
TabIndex = 58
Top = 6600
Width = 735
End
Begin VB.Label Label20
BackColor = &H00C0E0FF&
Caption = "消费总额"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 4560
TabIndex = 56
Top = 6600
Width = 975
End
Begin VB.Label Label19
BackColor = &H00C0E0FF&
Caption = "付款方式"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 2040
TabIndex = 55
Top = 6600
Width = 975
End
Begin VB.Label Label15
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "富 美 洗 浴 中 心"
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 615
Index = 1
Left = 2400
TabIndex = 0
Top = 120
Width = 6495
End
Begin VB.Line Line2
BorderColor = &H00FF0000&
BorderStyle = 3 'Dot
X1 = 9240
X2 = 2040
Y1 = 720
Y2 = 720
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
Index = 2
X1 = 11880
X2 = 0
Y1 = 0
Y2 = 0
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
Index = 1
X1 = 9120
X2 = 2040
Y1 = 6360
Y2 = 6360
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
Index = 0
X1 = 9120
X2 = 2040
Y1 = 6240
Y2 = 6240
End
Begin VB.Menu mnusystem
Caption = " 系 统(&S)"
Begin VB.Menu mnuchangmima
Caption = "修改密码"
Shortcut = ^R
End
Begin VB.Menu mnu3
Caption = "-"
Index = 3
End
Begin VB.Menu mnuaddworker
Caption = "增加员工"
Shortcut = ^A
End
Begin VB.Menu mnudeleteworker
Caption = "删除员工"
Shortcut = ^D
End
Begin VB.Menu mnu4
Caption = "-"
End
Begin VB.Menu mnuadditem
Caption = "服务项目修改"
Shortcut = ^S
End
Begin VB.Menu mnudeletitem
Caption = "增删消费项目"
Shortcut = ^I
End
Begin VB.Menu mnu5
Caption = "-"
End
Begin VB.Menu mnuviewworker
Caption = "查看员工信息"
Shortcut = ^V
End
End
Begin VB.Menu mnuguibin
Caption = " 贵宾卡服务(&G)"
Begin VB.Menu mnuaddguibin
Caption = "增加贵宾卡"
Shortcut = ^K
End
Begin VB.Menu mnu6
Caption = "-"
End
Begin VB.Menu mnulost
Caption = "挂 失"
Shortcut = ^L
End
Begin VB.Menu mnu7
Caption = "-"
End
Begin VB.Menu mnuadddollar
Caption = "充 值"
Shortcut = ^C
End
End
Begin VB.Menu mnuchang
Caption = " 修 改(&C)"
Begin VB.Menu mnumenpiao
Caption = "修改入场票"
Shortcut = ^Q
End
Begin VB.Menu mnuchangitem
Caption = "修改折扣"
Shortcut = ^G
End
End
Begin VB.Menu mnureport
Caption = " 统计报表(&R)"
Begin VB.Menu mnuday
Caption = "日营业额统计"
Shortcut = ^Z
End
Begin VB.Menu mnumouth
Caption = "月营业额报表"
Shortcut = ^M
End
Begin VB.Menu mnuworker
Caption = "员工业绩报表"
Shortcut = ^W
End
Begin VB.Menu mnudoller
Caption = "现金收入统计"
Shortcut = ^X
End
Begin VB.Menu mnucard
Caption = "卡结金额统计"
Shortcut = ^J
End
End
Begin VB.Menu mnuhelp
Caption = " 帮 助(&H)"
Begin VB.Menu mnuzx
Caption = "帮助支援中心"
Shortcut = {F1}
End
Begin VB.Menu mnu8
Caption = "-"
Index = 6
End
Begin VB.Menu mnuabout
Caption = "关于此软件"
Shortcut = ^{F1}
End
End
End
Attribute VB_Name = "frm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -