📄 frmclassify.frm
字号:
VERSION 5.00
Object = "{A964BDA3-3E93-11CF-9A0F-9E6261DACD1C}#3.0#0"; "ReSize32.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{0B81E4A9-BE4E-4AEF-9272-33AB5B51C6FC}#1.0#0"; "XPControls.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmClassify
BackColor = &H00D3DABC&
Caption = "团体预约"
ClientHeight = 8820
ClientLeft = 60
ClientTop = 450
ClientWidth = 12555
Icon = "frmClassify.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 8820
ScaleWidth = 12555
WindowState = 2 'Maximized
Begin MSComDlg.CommonDialog CommonDialog1
Left = 5790
Top = 3660
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Frame Frame1
BackColor = &H00D3DABC&
Caption = "体检单位分组"
Height = 8535
Left = 90
TabIndex = 1
Top = 120
Width = 3645
Begin ResizeLibCtl.ReSize ReSize1
Left = 3000
Top = 1920
_Version = 131072
_ExtentX = 741
_ExtentY = 741
_StockProps = 0
Enabled = -1 'True
FormMinWidth = 0
FormMinHeight = 0
FormDesignHeight= 8820
FormDesignWidth = 12555
End
Begin MSComctlLib.TreeView tvwDWei
Height = 8115
Left = 120
TabIndex = 2
Top = 300
Width = 3405
_ExtentX = 6006
_ExtentY = 14314
_Version = 393217
HideSelection = 0 'False
LabelEdit = 1
Style = 7
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin XPControls.XPCommandButton CmdOK
Height = 405
Left = 7470
TabIndex = 0
Top = 8250
Width = 1335
_ExtentX = 2355
_ExtentY = 714
Caption = "退 出(&E)"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin TabDlg.SSTab sstClassify
Height = 7875
Left = 3810
TabIndex = 3
Top = 210
Visible = 0 'False
Width = 8625
_ExtentX = 15214
_ExtentY = 13891
_Version = 393216
Tabs = 5
Tab = 4
TabsPerRow = 6
TabHeight = 520
BackColor = 13884092
TabCaption(0) = "团体基本信息"
TabPicture(0) = "frmClassify.frx":1982
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Frame14"
Tab(0).Control(1)= "fraTTi"
Tab(0).ControlCount= 2
TabCaption(1) = "体检单位分组"
TabPicture(1) = "frmClassify.frx":199E
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame11"
Tab(1).Control(1)= "Frame3"
Tab(1).Control(2)= "Frame2(0)"
Tab(1).Control(3)= "Frame4"
Tab(1).ControlCount= 4
TabCaption(2) = "选择体检项目"
TabPicture(2) = "frmClassify.frx":19BA
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Frame23"
Tab(2).Control(1)= "Frame13"
Tab(2).Control(2)= "Frame12"
Tab(2).Control(3)= "Frame5(3)"
Tab(2).Control(4)= "Frame5(2)"
Tab(2).Control(5)= "Frame5(1)"
Tab(2).Control(6)= "Frame5(0)"
Tab(2).ControlCount= 7
TabCaption(3) = "人员分组"
TabPicture(3) = "frmClassify.frx":19D6
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Frame6"
Tab(3).Control(0).Enabled= 0 'False
Tab(3).Control(1)= "Frame9"
Tab(3).Control(1).Enabled= 0 'False
Tab(3).Control(2)= "Frame10"
Tab(3).Control(2).Enabled= 0 'False
Tab(3).ControlCount= 3
TabCaption(4) = "团体收费"
TabPicture(4) = "frmClassify.frx":19F2
Tab(4).ControlEnabled= -1 'True
Tab(4).Control(0)= "Frame15"
Tab(4).Control(0).Enabled= 0 'False
Tab(4).ControlCount= 1
Begin VB.Frame Frame23
BorderStyle = 0 'None
Height = 615
Left = -71460
TabIndex = 142
Top = 7140
Width = 1545
Begin XPControls.XPCommandButton cmdReturnRYFZ
Height = 375
Left = 180
TabIndex = 143
Top = 150
Width = 1215
_ExtentX = 2143
_ExtentY = 661
Caption = "下一步"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin VB.Frame Frame15
BackColor = &H00D3DABC&
Caption = "费用明细"
Height = 7305
Left = 120
TabIndex = 104
Top = 450
Width = 8385
Begin VB.TextBox txtTotalMoney
BackColor = &H8000000F&
ForeColor = &H000000FF&
Height = 285
Left = 1560
Locked = -1 'True
TabIndex = 144
Top = 3480
Width = 5535
End
Begin VB.Frame Frame18
BackColor = &H00D3DABC&
Caption = "收费情况"
Height = 3435
Left = 120
TabIndex = 107
Top = 3780
Width = 8145
Begin VB.Frame Frame21
BackColor = &H00D3DABC&
Caption = "总额"
Height = 975
Left = 3750
TabIndex = 131
Top = 150
Width = 4215
Begin XPControls.XPCommandButton cmdCalculate
Height = 315
Left = 3120
TabIndex = 113
Top = 180
Width = 765
_ExtentX = 1349
_ExtentY = 556
Caption = "计算"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.TextBox txtYSTotal
Alignment = 2 'Center
ForeColor = &H00FF0000&
Height = 285
Left = 1470
TabIndex = 111
Top = 570
Width = 1305
End
Begin XPControls.XPCommandButton cmdTotalSave
Height = 315
Left = 3120
TabIndex = 112
Top = 540
Width = 765
_ExtentX = 1349
_ExtentY = 556
Caption = "保存"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label lblTotalMoney
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "总 金 额(元)："
Height = 195
Left = 180
TabIndex = 133
Top = 240
Width = 1170
End
Begin VB.Label lblYSTotal
BackStyle = 0 'Transparent
Caption = "成交价格(元)："
Height = 255
Left = 180
TabIndex = 132
Top = 600
Width = 1215
End
End
Begin VB.Frame Frame20
BackColor = &H00D3DABC&
Caption = "收费列表"
Height = 3105
Left = 90
TabIndex = 127
Top = 240
Width = 3495
Begin MSComctlLib.ListView lvwSFHistory
Height = 2715
Left = 90
TabIndex = 128
Top = 270
Width = 3255
_ExtentX = 5741
_ExtentY = 4789
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 3
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 = 1834
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "实收"
Object.Width = 1305
EndProperty
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -