📄 frm_xmsf.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Begin VB.Form frm_xmsf
BackColor = &H0080C0FF&
BorderStyle = 3 'Fixed Dialog
Caption = "项目收费初始化"
ClientHeight = 5595
ClientLeft = 2760
ClientTop = 3750
ClientWidth = 5670
Icon = "frm_xmsf.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 5595
ScaleWidth = 5670
ShowInTaskbar = 0 'False
Begin VB.TextBox Text1
BackColor = &H00C0E0FF&
Height = 300
Left = 1380
TabIndex = 11
Top = 2508
Width = 2832
End
Begin VB.CommandButton Command3
BackColor = &H00C0E0FF&
Height = 390
Left = 2844
MaskColor = &H00FFFFFF&
Picture = "frm_xmsf.frx":000C
Style = 1 'Graphical
TabIndex = 24
Top = 5112
UseMaskColor = -1 'True
Width = 1296
End
Begin VB.CommandButton Command2
BackColor = &H00C0E0FF&
Caption = "<< 返回(&R)"
Height = 390
Left = 4248
Style = 1 'Graphical
TabIndex = 23
Top = 5115
Width = 1296
End
Begin MSComctlLib.ListView ListView1
Height = 2085
Left = 120
TabIndex = 22
Top = 2940
Width = 5430
_ExtentX = 9578
_ExtentY = 3678
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
AllowReorder = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
HotTracking = -1 'True
HoverSelection = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = 16777215
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 7
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "美容类别"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "细分类别"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "项目"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "功能或名称"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 4
Text = "单次收费"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 5
Text = "包月收费"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 6
Text = "所需原料"
Object.Width = 3528
EndProperty
End
Begin VB.PictureBox Picture1
BackColor = &H0080C0FF&
BorderStyle = 0 'None
Height = 2640
Left = 4350
ScaleHeight = 2640
ScaleWidth = 1320
TabIndex = 13
Top = 180
Width = 1320
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Height = 435
Index = 0
Left = 75
MaskColor = &H00FFFFFF&
Picture = "frm_xmsf.frx":2C42
Style = 1 'Graphical
TabIndex = 18
Top = 60
UseMaskColor = -1 'True
Width = 1095
End
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Height = 435
Index = 1
Left = 75
MaskColor = &H00FFFFFF&
Picture = "frm_xmsf.frx":3BF8
Style = 1 'Graphical
TabIndex = 17
Top = 555
UseMaskColor = -1 'True
Width = 1095
End
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Height = 435
Index = 2
Left = 90
MaskColor = &H00FFFFFF&
Picture = "frm_xmsf.frx":6502
Style = 1 'Graphical
TabIndex = 16
Top = 1065
UseMaskColor = -1 'True
Width = 1095
End
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Default = -1 'True
Height = 435
Index = 3
Left = 90
MaskColor = &H00FFFFFF&
Picture = "frm_xmsf.frx":89D4
Style = 1 'Graphical
TabIndex = 15
Top = 1575
UseMaskColor = -1 'True
Width = 1095
End
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Cancel = -1 'True
Height = 435
Index = 4
Left = 90
MaskColor = &H00FFFFFF&
Picture = "frm_xmsf.frx":9EC2
Style = 1 'Graphical
TabIndex = 14
Top = 2085
UseMaskColor = -1 'True
Width = 1095
End
End
Begin VB.PictureBox Picture2
BackColor = &H0080C0FF&
BorderStyle = 0 'None
Height = 2640
Left = 4350
ScaleHeight = 2640
ScaleWidth = 1320
TabIndex = 19
Top = 180
Visible = 0 'False
Width = 1320
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Height = 435
Index = 5
Left = 90
MaskColor = &H00FFFFFF&
Picture = "frm_xmsf.frx":AE7C
Style = 1 'Graphical
TabIndex = 21
Top = 690
UseMaskColor = -1 'True
Width = 1095
End
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Height = 435
Index = 6
Left = 90
MaskColor = &H00FFFFFF&
Picture = "frm_xmsf.frx":C5DA
Style = 1 'Graphical
TabIndex = 20
Top = 1545
UseMaskColor = -1 'True
Width = 1095
End
End
Begin MSMask.MaskEdBox MaskEdBox1
Height = 300
Index = 0
Left = 1380
TabIndex = 8
Top = 1692
Width = 2832
_ExtentX = 5001
_ExtentY = 529
_Version = 393216
BackColor = 12640511
PromptInclude = 0 'False
MaxLength = 7
Format = "￥######"
Mask = "￥######"
PromptChar = "_"
End
Begin VB.ComboBox Combo1
BackColor = &H00C0E0FF&
Height = 276
Index = 3
Left = 1380
Sorted = -1 'True
TabIndex = 6
Top = 1308
Width = 2835
End
Begin VB.ComboBox Combo1
BackColor = &H00C0E0FF&
Height = 276
Index = 2
Left = 1380
Sorted = -1 'True
TabIndex = 4
Top = 924
Width = 2835
End
Begin VB.ComboBox Combo1
BackColor = &H00C0E0FF&
Height = 276
Index = 1
Left = 1380
Sorted = -1 'True
TabIndex = 2
Top = 552
Width = 2835
End
Begin VB.ComboBox Combo1
BackColor = &H00C0E0FF&
Height = 276
Index = 0
Left = 1380
Sorted = -1 'True
TabIndex = 0
Top = 180
Width = 2835
End
Begin MSMask.MaskEdBox MaskEdBox1
Height = 300
Index = 1
Left = 1380
TabIndex = 9
Top = 2100
Width = 2832
_ExtentX = 5001
_ExtentY = 529
_Version = 393216
BackColor = 12640511
PromptInclude = 0 'False
MaxLength = 7
Format = "￥######"
Mask = "￥######"
PromptChar = "_"
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "所需原料："
Height = 180
Index = 6
Left = 228
TabIndex = 25
Top = 2556
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "包月收费："
Height = 180
Index = 5
Left = 228
TabIndex = 12
Top = 2172
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "单次收费："
Height = 180
Index = 4
Left = 228
TabIndex = 10
Top = 1776
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "功能/名称："
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -