沒用管理信息系統(tǒng)上機實驗報告(參考版)
2025-08-05 20:25本頁面
【正文】 點擊按鈕退出管理員信息查詢畫面。四. 管理員信息檢索畫面輸入管理員ID點擊按鈕檢索該管理員ID的詳細信息。輸入要刪除的管理員ID點擊按鈕提示刪除管理員成功。點擊按鈕提示添加管理員信息成功。 winsock的狀態(tài)判斷If sckConnected Then MsgBox 還沒有連接數(shù)據(jù)庫，不能發(fā)送請求！ Exit Sub End If39。向服務(wù)器傳遞數(shù)據(jù) strEnd Sub39。 04,39。全部查詢的事件Private Sub CmdAllQuery_Click()Dim str As String39。 winsock狀態(tài)的判斷 If sckConnected Then MsgBox 還沒有連接數(shù)據(jù)庫，不能發(fā)送請求！ Exit SubEnd If向服務(wù)器傳遞數(shù)據(jù)39。 03, amp。清空列表中的數(shù)據(jù) 39。關(guān)閉窗體 Unload MeEnd Sub39。向服務(wù)器傳遞數(shù)據(jù) strEnd Sub管理員信息檢索畫面（下圖）管理員信息刪除畫面的代碼為：39。頁面的加載事件Private Sub Form_Load()Dim str As String39。向服務(wù)器傳遞數(shù)據(jù) str39。 39。管理員ID為空的判斷If Len(Trim()) = 0 Then MsgBox 請輸入管理員ID！ Exit SubElseIf Len(Trim()) 16 Then MsgBox 您輸入的ID過長！ Exit SubEnd Ifstr = Usr, amp。關(guān)閉窗體Unload MeEnd Sub39。數(shù)據(jù)向服務(wù)器的傳送 strEnd Sub管理員信息刪除畫面（下圖）管理員信息刪除畫面的代碼為：39。 winsock狀態(tài)的判斷If sckConnected Then MsgBox 還沒有連接數(shù)據(jù)庫，不能發(fā)送請求！ 39。退出窗體的事件Private Sub CmdCancel_Click() Unload MeEnd Sub39。數(shù)據(jù)向服務(wù)器的傳送 str39。 39。 Val() amp。 amp。 amp。 amp。密碼長度的判斷ElseIf Len(Trim()) 16 Then MsgBox 您輸入密碼過長！ Exit SubEnd If39。管理員姓名長度的判斷ElseIf Len(Trim()) 20 Then MsgBox 您輸入的姓名過長！ Exit SubEnd If39。管理員ID為空的判斷If Len(Trim()) = 0 Then MsgBox 請輸入管理員ID！ Exit SubElseIf Len(Trim()) 16 Then MsgBox 您輸入的管理員ID過長！ Exit SubEnd If39。關(guān)閉winsock的連接 End IfEnd Sub管理員信息登陸畫面管理員信息登陸畫面的代碼為：39。頁面加載事件Private Sub Form_Load()39。設(shè)置連接后狀態(tài)條的顯示信息(1).Text = 服務(wù)器連接狀態(tài)：正在連接…39。IP地址的判斷If Len(Trim()) = 0 Then MsgBox 請輸入服務(wù)器IP！ Exit SubElseIf Len(Trim()) 15 Then MsgBox 您輸入的IP地址過長！ Exit SubElseIf Len(Trim()) 7 Then MsgBox 您輸入的IP地址過短！ Exit SubElse 39。用戶ID為空的判斷If Len(Trim()) = 0 Then MsgBox 請輸入用戶ID！ Exit SubElseIf Len(Trim()) 16 Then MsgBox 您輸入的用戶ID過長！ Exit SubElse = Trim()End If39。取消連接事件Private Sub CmdCancel_Click() Unload MeEnd Sub39。退出系統(tǒng)事件Private Sub Sys_Exit_Click() myexit = MsgBox(是否要退出程序？, vbYesNo, 退出) If myexit = vbYes Then EndEnd Sub二． 客戶端連接服務(wù)器的連接窗體界面簡介：此界面是客戶端連接服務(wù)器的登陸窗體，管理員通過輸入正確的ID和密碼，等服務(wù)器驗證通過后，畫面遷移到主窗體。管理員查詢 Case Usr_Query Call Usr_Query_Click End SelectEnd Sub39。添加管理員 Case Usr_Add Call Usr_Add_Click 39。系統(tǒng)的連接
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1