📄 frm_mrszj.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frm_mrszj
BackColor = &H0080C0FF&
BorderStyle = 3 'Fixed Dialog
Caption = "美容师总计"
ClientHeight = 6132
ClientLeft = 2760
ClientTop = 3756
ClientWidth = 9036
Icon = "frm_mrszj.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 6132
ScaleWidth = 9036
ShowInTaskbar = 0 'False
Begin VB.Frame Frame1
BackColor = &H0080C0FF&
Caption = "日期范围："
Height = 735
Left = 2910
TabIndex = 13
Top = 30
Width = 5985
Begin MSComCtl2.DTPicker DTPicker1
Height = 330
Index = 0
Left = 660
TabIndex = 1
Top = 255
Width = 2385
_ExtentX = 4212
_ExtentY = 593
_Version = 393216
Format = 24707072
CurrentDate = 36793
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 330
Index = 1
Left = 3450
TabIndex = 2
Top = 255
Width = 2385
_ExtentX = 4191
_ExtentY = 593
_Version = 393216
Format = 24707072
CurrentDate = 36793
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "从"
Height = 180
Index = 1
Left = 405
TabIndex = 15
Top = 330
Width = 180
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "到"
Height = 180
Index = 2
Left = 3165
TabIndex = 14
Top = 330
Width = 180
End
End
Begin VB.Frame Frame2
BackColor = &H0080C0FF&
Caption = "美容师："
Height = 735
Left = 135
TabIndex = 11
Top = 30
Width = 2625
Begin VB.ComboBox Combo1
BackColor = &H00C0E0FF&
Height = 300
Left = 840
Sorted = -1 'True
Style = 2 'Dropdown List
TabIndex = 0
Top = 255
Width = 1605
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "姓名："
Height = 180
Index = 0
Left = 240
TabIndex = 12
Top = 315
Width = 540
End
End
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Cancel = -1 'True
Height = 450
Index = 3
Left = 7665
MaskColor = &H00FFFFFF&
Picture = "frm_mrszj.frx":000C
Style = 1 'Graphical
TabIndex = 8
Top = 810
UseMaskColor = -1 'True
Width = 1236
End
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Enabled = 0 'False
Height = 450
Index = 2
Left = 6345
MaskColor = &H00FFFFFF&
Picture = "frm_mrszj.frx":0FC6
Style = 1 'Graphical
TabIndex = 7
Top = 810
UseMaskColor = -1 'True
Width = 1236
End
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Enabled = 0 'False
Height = 450
Index = 1
Left = 5025
MaskColor = &H00FFFFFF&
Picture = "frm_mrszj.frx":38D0
Style = 1 'Graphical
TabIndex = 6
Top = 810
UseMaskColor = -1 'True
Width = 1236
End
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Default = -1 'True
Height = 450
Index = 0
Left = 2385
MaskColor = &H00FFFFFF&
Picture = "frm_mrszj.frx":6506
Style = 1 'Graphical
TabIndex = 4
Top = 810
UseMaskColor = -1 'True
Width = 1236
End
Begin VB.CheckBox Check1
BackColor = &H0080C0FF&
Caption = "按美容师分组统计"
Height = 255
Left = 135
TabIndex = 3
Top = 915
Width = 1860
End
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Caption = "|||统计图"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Index = 4
Left = 3705
MaskColor = &H00FFFFFF&
Style = 1 'Graphical
TabIndex = 5
Top = 810
UseMaskColor = -1 'True
Width = 1236
End
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 180
Left = 120
TabIndex = 16
Top = 5985
Visible = 0 'False
Width = 8790
_ExtentX = 15515
_ExtentY = 318
_Version = 393216
Appearance = 1
Scrolling = 1
End
Begin VB.Frame Frame4
BackColor = &H0080C0FF&
Height = 4800
Left = 450
TabIndex = 20
Top = 3015
Visible = 0 'False
Width = 8790
Begin MSComctlLib.ListView ListView3
Height = 4200
Left = 150
TabIndex = 21
Top = 450
Width = 8460
_ExtentX = 14923
_ExtentY = 7408
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 = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 4
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 = 2117
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 2
Text = "金额(￥)"
Object.Width = 2822
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "类型"
Object.Width = 2540
EndProperty
End
Begin VB.Label Label2
BackColor = &H00C0E0FF&
BorderStyle = 1 'Fixed Single
Height = 255
Index = 3
Left = 165
TabIndex = 22
Top = 165
Width = 8430
End
End
Begin VB.Frame Frame3
BackColor = &H0080C0FF&
Height = 4800
Left = 120
TabIndex = 17
Top = 1200
Width = 8790
Begin MSComctlLib.ListView ListView1
Height = 1950
Left = 150
TabIndex = 9
Top = 450
Width = 8460
_ExtentX = 14923
_ExtentY = 3429
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 = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 8
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "编号"
Object.Width = 2469
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 1
Text = "次数"
Object.Width = 1058
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 2
Text = "日期"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "美容师"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "项目"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
Text = "备注"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 6
Text = "类型"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 7
Text = "金额(￥)"
Object.Width = 2117
EndProperty
End
Begin MSComctlLib.ListView ListView2
Height = 1950
Left = 150
TabIndex = 10
Top = 2715
Width = 8475
_ExtentX = 14944
_ExtentY = 3450
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 = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 11
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "日期"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 1
Text = "编号"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "客人姓名"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 3
Text = "性别"
Object.Width = 1058
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 4
Text = "年龄"
Object.Width = 1058
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -