📄 form1.frm
字号:
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 270
Left = 5640
TabIndex = 84
Top = 6960
Width = 1455
End
Begin MSAdodcLib.Adodc Adodc2
Height = 375
Left = 2880
Top = 6120
Visible = 0 'False
Width = 1935
_ExtentX = 3413
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 2
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息库.mdb;Persist Security Info=False"
OLEDBString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息库.mdb;Persist Security Info=False"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "折扣表"
Caption = "Adodc2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.TextBox Text34
DataField = "折扣"
DataSource = "Adodc2"
Height = 270
Left = 3000
TabIndex = 83
Top = 6960
Visible = 0 'False
Width = 1455
End
Begin MSAdodcLib.Adodc Adodc1
Height = 375
Left = -120
Top = 0
Visible = 0 'False
Width = 1455
_ExtentX = 2566
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 2
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息库.mdb;Persist Security Info=False"
OLEDBString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息库.mdb;Persist Security Info=False"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "服务表"
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.TextBox Text31
DataField = "韩式松骨"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 75
Text = "Text31"
Top = 5160
Visible = 0 'False
Width = 735
End
Begin VB.TextBox Text30
DataField = "欧式推油"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 74
Text = "Text30"
Top = 4800
Visible = 0 'False
Width = 735
End
Begin VB.TextBox Text29
DataField = "足按"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 73
Text = "Text29"
Top = 4440
Visible = 0 'False
Width = 735
End
Begin VB.TextBox Text28
DataField = "采耳"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 72
Text = "Text28"
Top = 4080
Visible = 0 'False
Width = 735
End
Begin VB.TextBox Text27
DataField = "修脚"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 71
Text = "Text27"
Top = 3720
Visible = 0 'False
Width = 735
End
Begin VB.TextBox Text26
DataField = "刮痧"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 70
Text = "Text26"
Top = 3360
Visible = 0 'False
Width = 735
End
Begin VB.TextBox Text25
DataField = "推奶推盐"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 69
Text = "Text25"
Top = 3000
Visible = 0 'False
Width = 735
End
Begin VB.TextBox Text24
DataField = "经洛推拿"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 68
Text = "Text24"
Top = 2640
Visible = 0 'False
Width = 735
End
Begin VB.TextBox Text23
DataField = "泰式按摩"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 67
Text = "Text23"
Top = 2280
Visible = 0 'False
Width = 735
End
Begin VB.TextBox Text22
DataField = "港式按摩"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 66
Text = "Text22"
Top = 1920
Visible = 0 'False
Width = 735
End
Begin VB.TextBox Text21
DataField = "中式按摩"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 65
Text = "Text21"
Top = 1560
Visible = 0 'False
Width = 735
End
Begin VB.TextBox Text20
DataField = "搓背"
DataSource = "Adodc1"
Height = 270
Left = 1560
TabIndex = 64
Text = "Text20"
Top = 1200
Visible = 0 'False
Width = 735
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 = 7440
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
Left = 2160
Style = 1 'Graphical
TabIndex = 60
Top = 7440
Width = 2895
End
Begin VB.ComboBox Combo8
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
ItemData = "Form1.frx":0021
Left = 7920
List = "Form1.frx":002B
TabIndex = 59
Text = "8"
Top = 6600
Width = 1335
End
Begin VB.TextBox Text19
BackColor = &H00FFFFFF&
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 270
Left = 5640
TabIndex = 57
Top = 6600
Width = 1455
End
Begin VB.Frame Frame2
BackColor = &H00C0E0FF&
Caption = "消费项目"
ForeColor = &H00FF0000&
Height = 5055
Left = 5520
TabIndex = 2
Top = 960
Width = 3735
Begin VB.TextBox Text33
Height = 375
Left = 1800
TabIndex = 100
ToolTipText = "请输入消费金额"
Top = 4560
Width = 855
End
Begin VB.CommandButton Command6
BackColor = &H00C0E0FF&
Caption = "确 定"
Height = 375
Left = 2760
MaskColor = &H00C0E0FF&
Style = 1 'Graphical
TabIndex = 93
Top = 4560
Width = 855
End
Begin VB.TextBox Text41
Height = 375
Left = 2760
TabIndex = 91
Text = "Text41"
Top = 4320
Visible = 0 'False
Width = 855
End
Begin VB.TextBox Text40
Height = 270
Left = 2760
TabIndex = 90
Text = "Text40"
Top = 3480
Visible = 0 'False
Width = 855
End
Begin VB.TextBox Text39
Height = 270
Left = 2760
TabIndex = 89
Text = "Text39"
Top = 2520
Visible = 0 'False
Width = 855
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -