📄 frmmdi.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.MDIForm frmMDI
AutoShowChildren= 0 'False
BackColor = &H8000000C&
Caption = "沈空有线电视台收费系统"
ClientHeight = 8265
ClientLeft = 60
ClientTop = 585
ClientWidth = 11880
Icon = "frmMDI.frx":0000
LinkTopic = "MDIForm1"
Moveable = 0 'False
ScrollBars = 0 'False
WindowState = 2 'Maximized
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 420
Left = 0
TabIndex = 0
Top = 0
Width = 11880
_ExtentX = 20955
_ExtentY = 741
ButtonWidth = 635
ButtonHeight = 582
AllowCustomize = 0 'False
Appearance = 1
ImageList = "imlSS"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 17
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "tbUserInfo"
Object.ToolTipText = "用户基本信息登记"
Object.Tag = ""
ImageKey = "iUserInfo"
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "tbFee"
Object.ToolTipText = "用户交费登记"
Object.Tag = ""
ImageKey = "iFee"
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "tbOwe"
Object.ToolTipText = "用户欠费补交"
Object.Tag = ""
ImageKey = "iOwe"
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "tbOweSet"
Object.ToolTipText = "用户欠费登记"
Object.Tag = ""
ImageKey = "iOweSet"
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "tbStop"
Object.ToolTipText = "用户报停"
Object.Tag = ""
ImageKey = "iStop"
EndProperty
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "tbRecon"
Object.ToolTipText = "用户复通"
Object.Tag = ""
ImageKey = "iRecon"
EndProperty
BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
Style = 4
MixedState = -1 'True
EndProperty
BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "tbTotal"
Object.ToolTipText = "阶段收费统计"
Object.Tag = ""
ImageKey = "iTotal"
EndProperty
BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "tbOweTot"
Object.ToolTipText = "用户终端统计"
Object.Tag = ""
ImageKey = "iOweTot"
EndProperty
BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "tbOweGroup"
Object.ToolTipText = "欠费分类统计"
Object.Tag = ""
ImageKey = "iOweGroup"
EndProperty
BeginProperty Button12 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
Style = 4
MixedState = -1 'True
EndProperty
BeginProperty Button13 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "tbQuery"
Object.ToolTipText = "自定义查询"
Object.Tag = ""
ImageKey = "iQuery"
EndProperty
BeginProperty Button14 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
Style = 4
MixedState = -1 'True
EndProperty
BeginProperty Button15 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
Style = 4
MixedState = -1 'True
EndProperty
BeginProperty Button16 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
Style = 4
MixedState = -1 'True
EndProperty
BeginProperty Button17 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "tbExit"
Object.ToolTipText = "退出本系统"
Object.Tag = ""
ImageKey = "iExit"
EndProperty
EndProperty
End
Begin ComctlLib.StatusBar sbStatus
Align = 2 'Align Bottom
Height = 285
Left = 0
TabIndex = 1
Top = 7980
Width = 11880
_ExtentX = 20955
_ExtentY = 503
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 3
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
AutoSize = 1
Object.Width = 15319
TextSave = ""
Key = "message"
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 1
Alignment = 1
Enabled = 0 'False
TextSave = "CAPS"
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 2
Alignment = 1
TextSave = "NUM"
Object.Tag = ""
EndProperty
EndProperty
End
Begin ComctlLib.ImageList imlSS
Left = 0
Top = 450
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 23
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":030A
Key = "iFee"
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":041C
Key = "iRestore"
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":0736
Key = "iBackup"
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":0A50
Key = "iRecon"
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":0D6A
Key = "iStop"
EndProperty
BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":1084
Key = "iUserInfo"
EndProperty
BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":139E
Key = ""
EndProperty
BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":16B8
Key = ""
EndProperty
BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":19D2
Key = "iImport"
EndProperty
BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":1BAC
Key = ""
EndProperty
BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":1D86
Key = "iQuery"
EndProperty
BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":1F60
Key = "iOweGroup"
EndProperty
BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":213A
Key = "iOweTot"
EndProperty
BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":2314
Key = ""
EndProperty
BeginProperty ListImage15 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":24EE
Key = ""
EndProperty
BeginProperty ListImage16 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":26C8
Key = "iOweSet"
EndProperty
BeginProperty ListImage17 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":28A2
Key = ""
EndProperty
BeginProperty ListImage18 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":29B4
Key = ""
EndProperty
BeginProperty ListImage19 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":2AC6
Key = "iOwe"
EndProperty
BeginProperty ListImage20 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":2BD8
Key = ""
EndProperty
BeginProperty ListImage21 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":2CEA
Key = "iTotal"
EndProperty
BeginProperty ListImage22 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":2DFC
Key = ""
EndProperty
BeginProperty ListImage23 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":2F0E
Key = "iExit"
EndProperty
EndProperty
End
Begin VB.Menu mnuSS
Caption = "常规业务(&T)"
Index = 0
Begin VB.Menu mnuTask
Caption = "用户基本信息登记及维护"
Index = 0
End
Begin VB.Menu mnuTask
Caption = "用户交费登记"
Index = 1
End
Begin VB.Menu mnuTask
Caption = "欠费补交登记及维护"
Index = 2
End
Begin VB.Menu mnuTask
Caption = "用户欠费情况登记及维护"
Index = 3
End
Begin VB.Menu mnuTask
Caption = "-"
Index = 4
End
Begin VB.Menu mnuTask
Caption = "用户报停登记"
Index = 5
End
Begin VB.Menu mnuTask
Caption = "用户复通登记"
Index = 6
End
Begin VB.Menu mnuTask
Caption = "-"
Index = 7
End
Begin VB.Menu mnuTask
Caption = "用户迁移登记"
Index = 8
End
Begin VB.Menu mnuTask
Caption = "-"
Index = 9
End
Begin VB.Menu mnuTask
Caption = "退出"
Index = 10
End
End
Begin VB.Menu mnuSS
Caption = "汇总统计(&C)"
Index = 1
Begin VB.Menu mnuCensus
Caption = "阶段收费统计"
Index = 0
End
Begin VB.Menu mnuCensus
Caption = "欠费用户统计"
Index = 1
End
Begin VB.Menu mnuCensus
Caption = "欠费分类统计"
Index = 2
End
Begin VB.Menu mnuCensus
Caption = "-"
Index = 3
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -