📄 frmqueue.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form frmQueue
BackColor = &H80000016&
BorderStyle = 0 'None
Caption = "CoBeyond 排队管理系统 —— 服务人员端"
ClientHeight = 675
ClientLeft = 0
ClientTop = 0
ClientWidth = 8760
Icon = "frmQueue.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 675
ScaleWidth = 8760
StartUpPosition = 3 '窗口缺省
Begin VB.Timer timInfo
Left = 3840
Top = 480
End
Begin VB.Timer timStart
Left = 3000
Top = 480
End
Begin MSWinsockLib.Winsock wskConnect
Left = 2280
Top = 480
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.PictureBox picBack
Height = 440
Index = 0
Left = 0
ScaleHeight = 375
ScaleWidth = 8280
TabIndex = 1
Top = 0
Width = 8340
Begin VB.CommandButton cmdQuit
Caption = "退出系统"
Height = 375
Left = 12120
TabIndex = 12
Top = 0
Width = 975
End
Begin VB.CommandButton cmdPause
Caption = "暂停系统"
Height = 375
Left = 11160
TabIndex = 11
Tag = "0"
Top = 0
Width = 975
End
Begin VB.CommandButton cmdLogin
Caption = "重新登录"
Height = 375
Left = 10200
TabIndex = 13
Top = 0
Width = 975
End
Begin VB.CommandButton cmdSet
Caption = "系统设定"
Enabled = 0 'False
Height = 375
Left = 9240
TabIndex = 14
Top = 0
Width = 975
End
Begin VB.CommandButton cmdPassword
Caption = "变更密码"
Height = 375
Left = 8280
TabIndex = 10
Top = 0
Width = 975
End
Begin VB.CommandButton cmd
Caption = ">>"
Height = 375
Left = 7800
TabIndex = 15
Top = 0
Width = 495
End
Begin VB.CommandButton cmdStorage
Caption = "储存[F9]"
Height = 375
Left = 6840
TabIndex = 9
Top = 0
Width = 975
End
Begin VB.CommandButton cmdChange
Caption = "转换[F8]"
Height = 375
Left = 5880
TabIndex = 8
Top = 0
Width = 975
End
Begin VB.CommandButton cmdShift
Caption = "转移[F7]"
Height = 375
Left = 4920
TabIndex = 7
Top = 0
Width = 975
End
Begin VB.CommandButton cmdFirst
Caption = "优先[F6]"
Height = 375
Left = 3960
TabIndex = 6
Top = 0
Width = 975
End
Begin VB.CommandButton cmdRecall
Caption = "回呼[F5]"
Height = 375
Left = 3000
TabIndex = 5
Top = 0
Width = 975
End
Begin VB.CommandButton cmdAbandon
Caption = "弃号[F4]"
Height = 375
Left = 2040
TabIndex = 4
Top = 0
Width = 975
End
Begin VB.CommandButton cmdAgain
Caption = "重呼[F3]"
Height = 375
Left = 1080
TabIndex = 3
Top = 0
Width = 975
End
Begin VB.CommandButton cmdArrange
Caption = "顺呼[F2]"
Height = 375
Left = 120
TabIndex = 2
Top = 0
Width = 975
End
Begin VB.Image imgControl
Height = 375
Left = 0
Picture = "frmQueue.frx":0CCA
Top = 0
Width = 120
End
End
Begin MSComctlLib.StatusBar stbInfo
Align = 2 'Align Bottom
Height = 255
Left = 0
TabIndex = 0
Top = 420
Width = 8760
_ExtentX = 15452
_ExtentY = 450
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 6
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 3889
MinWidth = 3175
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
Object.Width = 3175
MinWidth = 3175
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
Object.Width = 2822
MinWidth = 2822
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
Alignment = 1
Object.Width = 1764
MinWidth = 1764
TextSave = "2005-09-12"
EndProperty
BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Alignment = 1
Object.Width = 1058
MinWidth = 1058
TextSave = "9:13"
EndProperty
EndProperty
End
End
Attribute VB_Name = "frmQueue"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim m_tagErrInfo As TYPE_ERRORINFO ' 错误信息
Public m_bConnect As Boolean
Public m_bDock As Boolean '泊位标志
Public m_bReLogin As Boolean '重新登录系统
Private Sub cmd_Click()
On Error Resume Next
cmdSet.Enabled = Not cmdSet.Enabled
If cmdSet.Enabled = True Then
cmd.Caption = "<<"
If m_bDock = True Then
picBack(0).Width = 13160
frmQueue.Width = 13160
Else
picBack(0).Width = 13200
frmQueue.Width = 13220
End If
Else
cmd.Caption = ">>"
If m_bDock = True Then
picBack(0).Width = 8340
frmQueue.Width = 8340
Else
picBack(0).Width = 8390
frmQueue.Width = 8420
End If
End If
If m_bDock = True Then
Line (0, 0)-(frmQueue.Width, frmQueue.Height), vbBlue, BF
Get_Windows_Rect
End If
End Sub
Private Sub cmdAbandon_Click()
On Error Resume Next
send_data "ABND" & vbTab & m_strOld & vbTab & m_sCustomerCode
End Sub
Private Sub cmdAgain_Click()
On Error Resume Next
send_data "CREP" & vbTab & m_strOld & vbTab & m_sCustomerCode
cmdAgain.Enabled = False
End Sub
Private Sub cmdArrange_Click()
On Error Resume Next
If cmdArrange.Tag = "0" And m_bService = False Then
send_data "CTRN" & vbTab & m_strOld
ElseIf cmdArrange.Tag = "1" And m_bService = True Then
send_data "FEND" & vbTab & m_strOld & vbTab & m_sCustomerCode
End If
End Sub
Private Sub cmdChange_Click()
Debug.Print "cmdChange_Click"
End Sub
Private Sub cmdFirst_Click()
On Error Resume Next
'发送优先服务申请
send_data "FRST" & vbTab & "QUER" & vbTab & m_strOld
End Sub
Private Sub cmdLogin_Click()
On Error Resume Next
m_bReLogin = True
Unload Me
End Sub
Private Sub cmdPassword_Click()
On Error Resume Next
frmPassword.Show vbModal, frmQueue
End Sub
Private Sub cmdPause_Click()
On Error Resume Next
If m_bService = True Then
MsgBox "窗口正在服务客户,不能进入暂停状态！", vbOKOnly, "系统提示"
Exit Sub
End If
If cmdPause.Tag = 0 Then
cmdPause.Caption = "恢复服务"
cmdPause.Tag = 1
'发送暂停服务申请
send_data "SYPU" & vbTab & m_strUser & vbTab & m_strServer
Else
cmdPause.Caption = "暂停系统"
cmdPause.Tag = 0
'发送恢复服务申请
send_data "RYPU" & vbTab & m_strUser & vbTab & m_strServer
End If
End Sub
Private Sub cmdQuit_Click()
On Error Resume Next
m_bReLogin = False
Unload Me
End Sub
Private Sub cmdRecall_Click()
On Error Resume Next
If cmdRecall.Tag <> "1" Then cmdRecall.Tag = "0"
If cmdRecall.Tag = "0" Then
'发送回呼服务申请
send_data "ROBK" & vbTab & "QUER" & vbTab & m_strOld
End If
End Sub
Private Sub cmdSet_Click()
On Error Resume Next
frmSystem.Show vbModal, frmQueue
End Sub
Private Sub cmdShift_Click()
On Error Resume Next
Dim dlg As dlgService
Dim sService As String
' '发送回呼服务申请
' send_data "SHIT" & vbTab & "QUER" & vbTab & m_strOld
Set dlg = New dlgService
Load dlg
dlg.CustCodeText = m_sCustomerCode
If dlg.InitSet(True) = True Then dlg.Show vbModal
If dlg.ServiceStatus = True Then
sService = dlg.ServiceCode
Else
sService = ""
End If
Set dlg = Nothing
If m_sCustomerCode <> "" And sService <> "" Then
send_data "SHIT" & vbTab & "CUCD" & vbTab & m_strOld & vbTab & m_sCustomerCode & _
vbTab & sService
End If
End Sub
Private Sub cmdStorage_Click()
On Error Resume Next
send_data "STOG" & vbTab & m_strOld & vbTab & m_sCustomerCode
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
Select Case KeyCode
Case 113 '按下 F2
If cmdArrange.Enabled = True Then
cmdArrange_Click
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -