📄 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"
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 = 4339
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
Object.Width = 1058
MinWidth = 1058
TextSave = "CAPS"
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 2
Alignment = 1
Bevel = 2
Enabled = 0 'False
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 = "2008/9/15"
EndProperty
BeginProperty Panel8 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Alignment = 1
Object.Width = 1129
MinWidth = 1129
TextSave = "10:09"
EndProperty
EndProperty
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
'读出程序结束状态
Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 105)
Me.Top = GetSetting(App.Title, "Settings", "MainTop", 105)
Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 10530)
Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 7965)
strUser = m_strOld
stbMDIStatus.Panels(3).Text = "登录用户: " & strUser
If InitSYS = False Then GoTo ERROR_EXIT
'开始刷新信息
timInfo.Interval = m_iRefresh
timInfo.Enabled = True
Refresh_Info
Exit Sub
ERROR_EXIT:
Me.MousePointer = 0
m_tagErrInfo.strErrDate = Format(Now, "yyyy-mm-dd hh:mm:ss")
m_tagErrInfo.strErrFile = "mdiQueue"
m_tagErrInfo.strErrFunc = "MDIForm_Load"
m_tagErrInfo.nErrNum = Err.Number
m_tagErrInfo.strErrDesc = Error(Err.Number) & "初始化失败。"
If Err.Number <> 0 Then Err.Clear
modErrorInfo.WriteErrLog m_tagErrInfo
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -