【導讀】第一章系統(tǒng)開發(fā)技術簡介---------------------------------------------5. 第二章系統(tǒng)分析----------------------------------------------------7. 第三章系統(tǒng)總體設計-------------------------------------------------9. 系統(tǒng)流程圖分析------------------------------------------------10. 第四章數(shù)據(jù)庫設計-------------------------------------------------12. 數(shù)據(jù)庫概要說明------------------------------------------------12. 數(shù)據(jù)庫概念設計------------------------------------------12. 數(shù)據(jù)庫邏輯設計------------------------------------------------14. 與數(shù)據(jù)庫連接的實現(xiàn)---------------------------------------------16. 公共模塊的實現(xiàn)------------------------------------------------17. 登錄與主程序界面的設計-----------------------------------------18. 添加新用戶模塊-------------------------------------------20. 宿舍成員信息查詢模塊--------------------------------------22. 添加工作人員信息模塊--------------------------------------31. 衛(wèi)生檢查評分計算-----------------------------------------33. 寢舍獎勵與違紀信息---------------------------------------34. 數(shù)據(jù)報表的測試-------------------------------------------35. 第六章系統(tǒng)測試---------------------------------------------------40

　　

【正文】 圖 57修改宿舍成員信息 界面 首先定義了一個 viewdata 過程用來顯示宿舍信息，然后在 form_load 事件中調(diào)用此過程。這段代碼如下： Public Sub viewData() Textdong(0).Text = (0) Textdong(1).Text = (1) Textdong(2).Text = (2) Textdong(3).Text = (3) Textdong(4).Text = (4) Textdong(5).Text = (8) = (5) End Sub Private Sub Form_Load() Dim txtSQL As String Dim MsgText As String txtSQL = select * from reward_punish Set mrc = ExecuteSQL(txtSQL, MsgText) Textdong(0).Enabled = False Textdong(1).Enabled = False Textdong(2).Enabled = False Textdong(3).Enabled = False Textdong(4).Enabled = False Textdong(5).Enabled = False = False Call viewData mcbookmark = mcclean = True End Sub 先選擇需要修改的宿舍信息，單擊 [修改記錄 ]按鈕， 文 本框被激活，這時輸入修改的內(nèi)容，單擊 [更新修改 ]按鈕就能完成修改。這部分代碼如下： Private Sub cmdUpdate_Click() Dim txtSQL As String Dim MsgText As String Dim mrcc As If mcclean Then MsgBox 請先修改宿舍成員信息 , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt(Textdong(0).Text) Then MsgBox 請輸入樓棟號！ , vbOKOnly + vbExclamation, 警告 Textdong(0).SetFocus Exit Sub End If If Not Testtxt(Textdong(1).Text) Then MsgBox 請輸入宿舍號！ , vbOKOnly + vbExclamation, 警告 Textdong(1).SetFocus Exit Sub End If If Not Testtxt(Textdong(2).Text) Then MsgBox 請輸入年級！ , vbOKOnly + vbExclamation, 警告 Textdong(2).SetFocus Exit Sub End If If Not Testtxt(Textdong(3).Text) Then MsgBox 請輸入學院！ , vbOKOnly + vbExclamation, 警告 Textdong(3).SetFocus Exit Sub End If If Not Testtxt(Textdong(4).Text) Then MsgBox 請選擇班號！ , vbOKOnly + vbExclamation, 警告 Textdong(4).SetFocus Exit Sub End If If Not Testtxt(Textdong(5).Text) Then MsgBox 請輸入聯(lián)系電話！ , vbOKOnly + vbExclamation, 警告 Textdong(5).SetFocus Exit Sub End If If Not Testtxt() Then MsgBox 請輸入全體寢室成員 ！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not IsNumeric(Trim(Textdong(0).Text)) Then MsgBox 學號請輸入數(shù)字！ , vbOKOnly + vbExclamation, 警告 Textdong(0).SetFocus Exit Sub End If txtSQL = select * from reward_punish where 棟號 = 39。 amp。 Textdong(0).Text amp。 39。 and 寢室號 = 39。 amp。 Textdong(1).Text amp。 39。 and 年級 = 39。 amp。 Textdong(2).Text amp。 39。 Set mrcc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 宿舍號重復，請重新輸入！ , vbOKOnly + vbExclamation, 警告 Textdong(0).SetFocus Else (0) = Trim(Textdong(0).Text) (1) = Trim(Textdong(1).Text) (2) = Trim(Textdong(2).Text) (3) = Trim(Textdong(3).Text) (4) = Trim(Textdong(4).Text) (5) = Trim() (8) = Trim(Textdong(5).Text) MsgBox 修改寢室成員信息成功！ , vbOKOnly + vbExclamation, 修改寢室成員信息 = myBookmark Call viewData = True cmdfirst(0).Enabled = True = True = True = True Textdong(0).Enabled = False Textdong(1).Enabled = False Textdong(2).Enabled = False Textdong(3).Enabled = False Textdong(4).Enabled = False Textdong(5).Enabled = False = False mcclean = True End If End Sub 單擊 [刪除記錄 ]按鈕就能刪除選擇的內(nèi)容，這部分代碼 見附錄。 在添加與修改宿舍信息 ()窗體中，輸入需要添加的信息，單擊 [確認添加 ]按鈕就能完成添加，如圖 58所示。 這部分代碼 見附錄。 圖 58 添加宿舍成員信息 界面 衛(wèi)生檢查工作人員信息模塊 在主界面中用戶單擊 [基礎數(shù)據(jù)庫管理 ]|[衛(wèi)生檢查工作人員信息 ]項，或者單擊工具欄上的 按鈕，就可以看到衛(wèi)生檢查工作人員信息 ()的界面，如圖 59所示。用戶可以在這個界面查詢、修改和刪除衛(wèi)生檢查工 作人員信息。 圖 59 衛(wèi)生檢查工作人員信息 界面 首先定義一個 viewdata 過程用來顯示工作人員信息，然后在 form_load 事件中調(diào)用此過程。這段代碼 見附錄。 單擊 [修改記錄 ]按鈕，文本框被激活，這時輸入修改的內(nèi)容，單擊 [更新數(shù)據(jù) ]按鈕就能完成修改。這部分代碼如下： Private Sub updateCommand_Click() Dim txtSQL As String Dim MsgText As String Dim mrcc As If mcclean Then MsgBox 請先輸入修改信息！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請輸入姓名！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not IsNumeric(Trim()) Then MsgBox 請輸入數(shù)字！ , vbOKOnly + vbExclamation, 警告 = Exit Sub End If If Not Testtxt() Then MsgBox 請輸入寢室號！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請輸入電話號碼，以便聯(lián)系！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請輸入學院！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If txtSQL = select * from hygiene_staff where 編號 = 39。 amp。 Trim() amp。 39。 Set mrcc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 編號重復，請重新輸入！ , vbOKOnly + vbExclamation, 警告 Else (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() (5) = Trim() (6) = Trim() (7) = Trim() (8) = Trim() (9) = Trim() MsgBox 修改信息成功！ , vbOKOnly + vbExclamation, 警告 = myBookmark Call viewData = True = True = True = True = False = False = False = False = False = False = False = False = False = False mcclean = True End If End Sub 單擊 [刪除記錄 ]按鈕就會刪除選擇的衛(wèi)生檢查工作人員信息，這部分代碼 見附錄。 添加工作人員信息模塊 在主界面中用戶單擊 [基礎數(shù)據(jù)庫管理 ]|[衛(wèi)生檢查工作人員信息 ]項，或者單擊工具欄上的 按鈕，會進入添加檢查工作人員信息 ()的界面，如圖 510所示。 圖 510 添加 檢查 工作人員信息 界面 在界面中輸入需要添加的