沒用管理信息系統(tǒng)上機(jī)實(shí)驗(yàn)報(bào)告-資料下載頁(yè)
2025-08-02 20:25本頁(yè)面
【正文】 amp。 ,str = str amp。 amp。 ,str = str amp。 amp。 ,str = str amp。 Val() amp。 ,str = str amp。 39。 winsock狀態(tài)的判斷If sckConnected Then MsgBox 還沒有連接數(shù)據(jù)庫(kù)，不能發(fā)送請(qǐng)求！ Exit SubEnd If39。數(shù)據(jù)向服務(wù)器的傳送 str39。關(guān)閉窗體Unload MeEnd Sub39。退出窗體的事件Private Sub CmdCancel_Click() Unload MeEnd Sub39。頁(yè)面加載的事件Private Sub Form_Load()Dim str As String39。 winsock狀態(tài)的判斷If sckConnected Then MsgBox 還沒有連接數(shù)據(jù)庫(kù)，不能發(fā)送請(qǐng)求！ 39。退出過程 Exit Sub End If39。數(shù)據(jù)向服務(wù)器的傳送 strEnd Sub管理員信息刪除畫面（下圖）管理員信息刪除畫面的代碼為：39。關(guān)閉窗體的操作Private Sub CmdCancel_Click()39。關(guān)閉窗體Unload MeEnd Sub39。刪除管理員的事件Private Sub CmdDel_Click()Dim str As String39。管理員ID為空的判斷If Len(Trim()) = 0 Then MsgBox 請(qǐng)輸入管理員ID！ Exit SubElseIf Len(Trim()) 16 Then MsgBox 您輸入的ID過長(zhǎng)！ Exit SubEnd Ifstr = Usr, amp。 02, amp。 39。 winsock狀態(tài)的判斷 If sckConnected Then MsgBox 還沒有連接數(shù)據(jù)庫(kù)，不能發(fā)送請(qǐng)求！ Exit SubEnd If39。向服務(wù)器傳遞數(shù)據(jù) str39。關(guān)閉窗體Unload MeEnd Sub39。頁(yè)面的加載事件Private Sub Form_Load()Dim str As String39。 winsock狀態(tài)的判斷If sckConnected Then MsgBox 還沒有連接數(shù)據(jù)庫(kù)，不能發(fā)送請(qǐng)求！ Exit Sub End If39。向服務(wù)器傳遞數(shù)據(jù) strEnd Sub管理員信息檢索畫面（下圖）管理員信息刪除畫面的代碼為：39。窗體的關(guān)閉事件Private Sub CmdCancel_Click() 39。關(guān)閉窗體 Unload MeEnd Sub39。管理員的查詢事件Private Sub CmdQuery_Click()Dim str As String39。清空列表中的數(shù)據(jù) 39。查詢條件的判斷 If Len(Trim()) = 0 Then MsgBox 請(qǐng)輸入管理員ID！ Exit Sub ElseIf Len(Trim()) 16 Then MsgBox 您輸入的ID過長(zhǎng)！ Exit Sub End Ifstr = Usr, amp。 03, amp。 39。 winsock狀態(tài)的判斷 If sckConnected Then MsgBox 還沒有連接數(shù)據(jù)庫(kù)，不能發(fā)送請(qǐng)求！ Exit SubEnd If向服務(wù)器傳遞數(shù)據(jù)39。 strEnd Sub39。全部查詢的事件Private Sub CmdAllQuery_Click()Dim str As String39。清空列表中的數(shù)據(jù)str = Usr, amp。 04,39。 winsock的狀態(tài)判斷 If sckConnected Then MsgBox 還沒有連接數(shù)據(jù)庫(kù)，不能發(fā)送請(qǐng)求！ Exit SubEnd If39。向服務(wù)器傳遞數(shù)據(jù) strEnd Sub39。頁(yè)面加載事件Private Sub Form_Load()Dim str As String39。 winsock的狀態(tài)判斷If sckConnected Then MsgBox 還沒有連接數(shù)據(jù)庫(kù)，不能發(fā)送請(qǐng)求！ Exit Sub End If39。向服務(wù)器傳遞數(shù)據(jù) strEnd Sub第五章 測(cè)試報(bào)告一. 客戶端登陸界面1)輸入錯(cuò)誤的管理員ID和密碼時(shí)（下圖）2)管理員ID和密碼輸入正確無誤時(shí)（下圖）輸入管理員ID選擇類型：O系統(tǒng)管理員 1高級(jí)管理員 2普通管理員輸入管理員姓名，密碼，密碼確認(rèn)，備注。點(diǎn)擊按鈕提示添加管理員信息成功。點(diǎn)擊按鈕退出管理員信息登陸畫面。輸入要?jiǎng)h除的管理員ID點(diǎn)擊按鈕提示刪除管理員成功。點(diǎn)擊按鈕退出管理員信息刪除畫面。四. 管理員信息檢索畫面輸入管理員ID點(diǎn)擊按鈕檢索該管理員ID的詳細(xì)信息。點(diǎn)擊按鈕檢索所有管理員信息。點(diǎn)擊按鈕退出管理員信息查
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1