📄 mdiqueue.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Object = "{AD553E4C-2007-42A3-8DA3-20CD211936E8}#2.0#0"; "YXCtrls.ocx"
Begin VB.MDIForm mdiQueue
BackColor = &H8000000A&
Caption = "排队系统管理中心"
ClientHeight = 7275
ClientLeft = 165
ClientTop = 450
ClientWidth = 10410
Icon = "mdiQueue.frx":0000
LinkTopic = "MDIForm1"
StartUpPosition = 2 '屏幕中心
Begin MSComDlg.CommonDialog cdg1
Left = 3000
Top = 1440
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Timer timInfo
Left = 5280
Top = 2760
End
Begin MSComctlLib.StatusBar stbMDIStatus
Align = 2 'Align Bottom
Height = 255
Left = 0
TabIndex = 0
Top = 7020
Width = 10410
_ExtentX = 18362
_ExtentY = 450
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 8
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 4366
Text = "欢迎使用排队管理系统！"
TextSave = "欢迎使用排队管理系统！"
Object.ToolTipText = "欢迎使用一兴排队管理系统！"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 3881
MinWidth = 3881
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 3175
MinWidth = 3175
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 1
Alignment = 1
Bevel = 2
Enabled = 0 'False
Object.Width = 1058
MinWidth = 1058
TextSave = "CAPS"
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 2
Alignment = 1
Bevel = 2
Object.Width = 1058
MinWidth = 1058
TextSave = "NUM"
EndProperty
BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 3
Alignment = 1
Bevel = 2
Enabled = 0 'False
Object.Width = 1058
MinWidth = 1058
TextSave = "Ins"
EndProperty
BeginProperty Panel7 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
Alignment = 1
Object.Width = 1940
MinWidth = 1940
TextSave = "2005-09-12"
EndProperty
BeginProperty Panel8 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Alignment = 1
Object.Width = 1129
MinWidth = 1129
TextSave = "14:35"
EndProperty
EndProperty
End
Begin YXCtrls.XPVertMenu yxVMenu
Align = 3 'Align Left
Height = 7020
Left = 0
TabIndex = 1
Top = 0
Width = 1455
_ExtentX = 2566
_ExtentY = 12383
MenusMax = 4
MenuCaption1 = "系统状态"
MenuItemsMax1 = 3
MenuItemIcon11 = "mdiQueue.frx":1042
MenuItemCaption11= "排队状态"
MenuItemIcon12 = "mdiQueue.frx":1D1C
MenuItemCaption12= "坐席状态"
MenuItemIcon13 = "mdiQueue.frx":29F6
MenuItemCaption13= "服务器状态"
MenuCaption2 = "管理中心"
MenuItemsMax2 = 6
MenuItemIcon21 = "mdiQueue.frx":4700
MenuItemCaption21= "坐席设定"
MenuItemIcon22 = "mdiQueue.frx":53DA
MenuItemCaption22= "窗口设定"
MenuItemIcon23 = "mdiQueue.frx":60B4
MenuItemCaption23= "服务设定"
MenuItemIcon24 = "mdiQueue.frx":6D8E
MenuItemCaption24= "用户设定"
MenuItemIcon25 = "mdiQueue.frx":7A68
MenuItemCaption25= "系统设定"
MenuItemIcon26 = "mdiQueue.frx":8742
MenuItemCaption26= "宣传用语"
MenuCaption3 = "工作报表"
MenuItemsMax3 = 5
MenuItemIcon31 = "mdiQueue.frx":941C
MenuItemCaption31= "员工明细"
MenuItemIcon32 = "mdiQueue.frx":A0F6
MenuItemCaption32= "员工状态"
MenuItemIcon33 = "mdiQueue.frx":ADD0
MenuItemCaption33= "营业状况"
MenuItemIcon34 = "mdiQueue.frx":BAAA
MenuItemCaption34= "部门状况"
MenuItemIcon35 = "mdiQueue.frx":C784
MenuItemCaption35= "部门汇总"
MenuCaption4 = "数据分析"
MenuItemsMax4 = 5
MenuItemIcon41 = "mdiQueue.frx":D45E
MenuItemCaption41= "服务能力"
MenuItemIcon42 = "mdiQueue.frx":E138
MenuItemCaption42= "绩效对比"
MenuItemIcon43 = "mdiQueue.frx":EE12
MenuItemCaption43= "综合排名"
MenuItemIcon44 = "mdiQueue.frx":FAEC
MenuItemCaption44= "客户行为"
MenuItemIcon45 = "mdiQueue.frx":107C6
MenuItemCaption45= "聚类分析"
End
Begin VB.Menu mnuFile
Caption = "文件(&F)"
Begin VB.Menu mnuDateBackup
Caption = "数据库备份(&B)"
End
Begin VB.Menu mnuDateRestore
Caption = "数据库恢复(&R)"
End
Begin VB.Menu mnuSper11
Caption = "-"
End
Begin VB.Menu mnuPrintSet
Caption = "打印设置(&S)"
End
Begin VB.Menu mnuSper12
Caption = "-"
End
Begin VB.Menu mnuUser
Caption = "系统用户管理"
Begin VB.Menu mnuUserPass
Caption = "用户密码(&P)"
End
Begin VB.Menu mnuUserManager
Caption = "用户管理(&U)"
End
Begin VB.Menu mnuSper121
Caption = "-"
End
Begin VB.Menu mnuUserChange
Caption = "更换用户(&G)"
End
End
Begin VB.Menu mnuSper13
Caption = "-"
End
Begin VB.Menu mnuQuit
Caption = "退出(&Q)"
End
End
Begin VB.Menu mnuState
Caption = "状态(&T)"
Begin VB.Menu mnuStateQueue
Caption = "排队状态(&S)"
End
Begin VB.Menu mnuStateSeat
Caption = "坐席状态(&T)"
End
Begin VB.Menu mnuServerState
Caption = "服务器状态(&V)"
End
End
Begin VB.Menu mnuSet
Caption = "设置(&S)"
Begin VB.Menu mnuSystemSet
Caption = "系统设置(&Y)"
End
Begin VB.Menu mnuSper31
Caption = "-"
End
Begin VB.Menu mnuUserSet
Caption = "用户设置(&U)"
End
Begin VB.Menu mnuSper32
Caption = "-"
End
Begin VB.Menu mnuServiceSet
Caption = "服务类型(&S)"
End
Begin VB.Menu mnuWindowSet
Caption = "窗口信息(&W)"
End
Begin VB.Menu mnuSeatSet
Caption = "坐席设置(&L)"
End
Begin VB.Menu mnuSper33
Caption = "-"
End
Begin VB.Menu mnuFlackSet
Caption = "宣传用语(&F)"
End
End
Begin VB.Menu mnuReport
Caption = "报表(&R)"
Begin VB.Menu mnuListEmpService
Caption = "员工服务明细"
End
Begin VB.Menu mnuListEmpStatus
Caption = "员工服务状态"
End
Begin VB.Menu mnuListBizStatus
Caption = "营业状况统计"
End
Begin VB.Menu mnuListDptService
Caption = "部门服务状况"
End
Begin VB.Menu mnuListDptCount
Caption = "部门服务汇总"
End
End
Begin VB.Menu mnuWindow
Caption = "窗口(&W)"
WindowList = -1 'True
Begin VB.Menu mnuWindowCascade
Caption = "层叠(&C)"
End
Begin VB.Menu mnuWindowTile
Caption = "平铺(&T)"
End
Begin VB.Menu mnuWindowArrange
Caption = "排列图标(&A)"
End
Begin VB.Menu mnuSper5
Caption = "-"
End
Begin VB.Menu mnuWindowMix
Caption = "全部最小化(&S)"
End
Begin VB.Menu mnuWindowRestore
Caption = "全部复原(&R)"
End
Begin VB.Menu mnuWindowMax
Caption = "全部最大化(&L)"
End
Begin VB.Menu mnuWindowClose
Caption = "全部关闭(&O)"
End
End
Begin VB.Menu mnuHelp
Caption = "帮助(&H)"
Begin VB.Menu mnuHelpContact
Caption = "内容(&C)"
End
Begin VB.Menu mnuSupport
Caption = "技术支持(&S)"
End
Begin VB.Menu mnuSper61
Caption = "-"
End
Begin VB.Menu mnuHelpAbout
Caption = "关于(&A)"
End
End
End
Attribute VB_Name = "mdiQueue"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim m_tagErrInfo As TYPE_ERRORINFO
Private Sub MDIForm_Load()
On Error GoTo ERROR_EXIT
Dim strUser As String, str As String
App.HelpFile = "CYQUEUE.chm"
m_bStatus = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -