📄 1
字号:
VERSION 5.00
Begin VB.Form frm1
BackColor = &H00C0E0FF&
Caption = "富美洗浴中心"
ClientHeight = 3090
ClientLeft = 3915
ClientTop = 3615
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3090
ScaleWidth = 4680
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin VB.PictureBox Adodc10
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 495
Left = 5760
ScaleHeight = 435
ScaleWidth = 2235
TabIndex = 102
Top = 120
Visible = 0 'False
Width = 2295
End
Begin VB.TextBox Text45
DataField = "女晚"
DataSource = "Adodc10"
Height = 375
Left = 5640
TabIndex = 101
Top = 600
Visible = 0 'False
Width = 1095
End
Begin VB.TextBox Text44
DataField = "女白"
DataSource = "Adodc10"
Height = 375
Left = 5640
TabIndex = 100
Top = 120
Visible = 0 'False
Width = 975
End
Begin VB.TextBox Text43
DataField = "男晚"
DataSource = "Adodc10"
Height = 375
Left = 4320
TabIndex = 99
Top = 600
Visible = 0 'False
Width = 1095
End
Begin VB.TextBox Text42
DataField = "男白"
DataSource = "Adodc10"
Height = 375
Left = 4200
TabIndex = 98
Top = 120
Visible = 0 'False
Width = 1215
End
Begin VB.PictureBox DataCombo1
DataField = "支付方式"
DataSource = "Adodc2"
Height = 330
Left = 3000
ScaleHeight = 270
ScaleWidth = 1395
TabIndex = 95
Top = 6600
Width = 1455
End
Begin VB.PictureBox Adodc9
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 375
Left = 240
ScaleHeight = 315
ScaleWidth = 1755
TabIndex = 103
Top = 7800
Visible = 0 'False
Width = 1815
End
Begin VB.PictureBox Adodc8
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 330
Left = 240
ScaleHeight = 270
ScaleWidth = 2235
TabIndex = 104
Top = 120
Visible = 0 'False
Width = 2295
End
Begin VB.TextBox Text35
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "隶书"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 5640
TabIndex = 87
Top = 6960
Width = 1455
End
Begin VB.PictureBox Adodc2
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 375
Left = 2880
ScaleHeight = 315
ScaleWidth = 1875
TabIndex = 105
Top = 6120
Visible = 0 'False
Width = 1935
End
Begin VB.TextBox Text34
DataField = "折扣"
DataSource = "Adodc2"
Height = 270
Left = 2880
TabIndex = 86
Top = 6960
Width = 1575
End
Begin VB.TextBox Text33
DataField = "其他"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 85
Text = "Text33"
Top = 5520
Visible = 0 'False
Width = 735
End
Begin VB.PictureBox Adodc1
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 375
Left = 1800
ScaleHeight = 315
ScaleWidth = 2355
TabIndex = 106
Top = 600
Visible = 0 'False
Width = 2415
End
Begin VB.TextBox Text31
DataField = "拔罐"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 77
Text = "Text31"
Top = 5160
Visible = 0 'False
Width = 735
End
Begin VB.TextBox Text30
DataField = "刮痧"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 76
Text = "Text30"
Top = 4800
Visible = 0 'False
Width = 735
End
Begin VB.TextBox Text29
DataField = "足按"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 75
Text = "Text29"
Top = 4440
Visible = 0 'False
Width = 735
End
Begin VB.TextBox Text28
DataField = "采耳"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 74
Text = "Text28"
Top = 4080
Visible = 0 'False
Width = 735
End
Begin VB.TextBox Text27
DataField = "修脚"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 73
Text = "Text27"
Top = 3720
Visible = 0 'False
Width = 735
End
Begin VB.TextBox Text26
DataField = "推盐"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 72
Text = "Text26"
Top = 3360
Visible = 0 'False
Width = 735
End
Begin VB.TextBox Text25
DataField = "推奶"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 71
Text = "Text25"
Top = 3000
Visible = 0 'False
Width = 735
End
Begin VB.TextBox Text24
DataField = "经洛推拿"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 70
Text = "Text24"
Top = 2640
Visible = 0 'False
Width = 735
End
Begin VB.TextBox Text23
DataField = "泰式按摩"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 69
Text = "Text23"
Top = 2280
Visible = 0 'False
Width = 735
End
Begin VB.TextBox Text22
DataField = "港式按摩"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 68
Text = "Text22"
Top = 1920
Visible = 0 'False
Width = 735
End
Begin VB.TextBox Text21
DataField = "中式按摩"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 67
Text = "Text21"
Top = 1560
Visible = 0 'False
Width = 735
End
Begin VB.TextBox Text20
DataField = "搓背"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 66
Text = "Text20"
Top = 1200
Visible = 0 'False
Width = 735
End
Begin VB.PictureBox DataList2
BackColor = &H00C0E0FF&
DataSource = "Adodc9"
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 3300
Left = 240
ScaleHeight = 3240
ScaleWidth = 1395
TabIndex = 63
Top = 4440
Width = 1455
End
Begin VB.PictureBox DataList1
BackColor = &H00C0E0FF&
DataSource = "Adodc8"
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 3300
Left = 240
ScaleHeight = 3240
ScaleWidth = 1395
TabIndex = 62
Top = 600
Width = 1455
End
Begin VB.CommandButton Command8
BackColor = &H00C0E0FF&
Caption = "结 算(&S)"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6240
Style = 1 'Graphical
TabIndex = 61
Top = 7320
Width = 2895
End
Begin VB.CommandButton Command7
BackColor = &H00C0E0FF&
Caption = "来 客(&K)"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -