?? 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 + -