沒(méi)用管理信息系統(tǒng)上機(jī)實(shí)驗(yàn)報(bào)告(編輯修改稿)
2024-08-29 20:25 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 End If str 39。MsgBox strEnd Sub39。 winsock傳遞數(shù)據(jù)的數(shù)組Private Sub winsock_DataArrival(ByVal bytesTotal As Long)Dim StrArrival, a As String, StrGet() As String, StrGet1() As StringDim Start As IntegerDim i As Integer, j As Integer, k As IntegerDim LtItm As ListItemDim ss As StringDim qq As StringDim ww As String StrArrival, vbString If Len(StrArrival) 1 Then Exit Sub 39。數(shù)組中數(shù)據(jù)的操作 StrGet() = Split(StrArrival, , 1) Select Case StrGet(0) Case abc MsgBox StrGet(1), , 服務(wù)器廣播 Case Usr Select Case StrGet(1) Case 01 (1).Text = 服務(wù)器連接狀態(tài)：響應(yīng)添加管理員。 MsgBox StrGet(2), , 服務(wù)器響應(yīng) Case 02 (1).Text = 服務(wù)器連接狀態(tài)：響應(yīng)刪除管理員。 MsgBox StrGet(2), , 服務(wù)器響應(yīng) Case 03 a = StrGet(2) If a = 超出權(quán)限！查詢(xún)管理員信息失??！ Then MsgBox StrGet(2), , 服務(wù)器響應(yīng) ElseIf a = 該管理員不存在！查詢(xún)管理員失?。?Then MsgBox StrGet(2), , 服務(wù)器響應(yīng) Else (1).Text = 服務(wù)器連接狀態(tài)：響應(yīng)查詢(xún)管理員。 For i = 0 To UBound(StrGet) 2 StrGet1() = Split(StrGet(i + 2), /, 1) Set LtItm = () = i + 1 (1) = StrGet1(0) (2) = StrGet1(1) (3) = StrGet1(2) (4) = StrGet1(3) Next i End If Case 04 a = StrGet(2) If a = 超出權(quán)限！查詢(xún)管理員信息失敗！ Then MsgBox StrGet(2), , 服務(wù)器響應(yīng) Else (1).Text = 服務(wù)器連接狀態(tài)：響應(yīng)查詢(xún)所有管理員。 For i = 0 To UBound(StrGet) 2 StrGet1() = Split(StrGet(i + 2), /, 1) Set LtItm = () = i + 1 (1) = StrGet1(0) (2) = StrGet1(1) (3) = StrGet1(2) (4) = StrGet1(3) Next i End If End Select Case Cnn (1).Text = 服務(wù)器連接狀態(tài)：響應(yīng)連接信息。 MsgBox StrGet(1), , 服務(wù)器響應(yīng) If StrGet(1) = 該管理員名不存在！請(qǐng)重新輸入！ Then ElseIf StrGet(1) = 密碼錯(cuò)誤！請(qǐng)重新輸入！ Then End If End SelectEnd Sub39。顯示管理員添加畫(huà)面Private Sub Usr_Add_Click() End Sub39。顯示刪除管理員畫(huà)面Private Sub Usr_Delete_Click() End Sub39。顯示管理員查詢(xún)畫(huà)面Private Sub Usr_Query_Click() End SubPrivate Sub Toolba
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1