Case "03"
MDIFrm.StatusBar1.Panels(1).Text = "服务器连接状态：响应查询图书类型。"
'清空列表
FrmBookType.List1.Clear
'添加查询结果
For i = 0 To UBound(StrGet) - 2
FrmBookType.List1.AddItem StrGet(i + 2)
Next i
End Select
'图书信息
Case "Book"
Select Case StrGet(1)
'添加图书信息
Case "01"
MDIFrm.StatusBar1.Panels(1).Text = "服务器连接状态：响应添加图书信息。"
MsgBox StrGet(2), , "服务器响应"
'查询图书信息
Case "02"
MDIFrm.StatusBar1.Panels(1).Text = "服务器连接状态：响应查询图书信息。"
FrmBookInfo.LvBkResult.ListItems.Clear
For i = 0 To UBound(StrGet) - 2
Set LtItm = FrmBookInfo.LvBkResult.ListItems.Add()
LtItm.Text = i + 1
LtItm.SubItems(1) = StrGet(i + 2)
Next i
End Select
'借阅图书
Case "Lend"
MDIFrm.StatusBar1.Panels(1).Text = "服务器连接状态：响应借阅图书。"
MsgBox StrGet(1), , "服务器响应"
'归还图书
Case "Return"
MDIFrm.StatusBar1.Panels(1).Text = "服务器连接状态：响应归还图书。"
MsgBox StrGet(1), , "服务器响应"
'缴纳罚款
Case "Pay"
MDIFrm.StatusBar1.Panels(1).Text = "服务器连接状态：响应缴纳罚款。"
MsgBox StrGet(1), , "服务器响应"
'图书排名信息
Case "Stat"
MDIFrm.StatusBar1.Panels(1).Text = "服务器连接状态：响应查询图书排名信息。"
FrmStat.LvTop.ListItems.Clear
For i = 0 To UBound(StrGet) - 1
Set LtItm = FrmStat.LvTop.ListItems.Add()
LtItm.Text = i + 1
LtItm.SubItems(1) = StrGet(i + 1)
Next i
Case "Cnn" '连接信息
MDIFrm.StatusBar1.Panels(1).Text = "服务器连接状态：响应连接信息。"
MsgBox StrGet(1), , "服务器响应"
'如果连接服务器失败，则关闭Winsock，等待重新连接
If StrGet(1) = "该管理员名不存在！请重新输入！" Then
Me.SockToSvr.Close
ElseIf StrGet(1) = "密码错误！请重新输入！" Then
Me.SockToSvr.Close
End If
End Select
End Sub
