【正文】 登記 宿舍衛(wèi)生情況 來訪登記 入住信息 系統(tǒng)資料查詢 按學(xué)號查詢 按姓名查詢 按宿舍號查詢 按系別查詢 系統(tǒng)維護(hù) 管理員信息 修改權(quán)限 密碼維護(hù) 9 是，為了使連接起作用，這兩個字段中的重要信息在兩個表中必須相同。只有在建立了這種關(guān)系之后，才可以協(xié)助數(shù)據(jù)的輸入，并且還可以有效地對數(shù)據(jù)庫進(jìn)行查詢、窗體操作和報表的生成等 ]5[ 。在實際工作中，【一對一】關(guān)系和【一對多】關(guān)系在數(shù)據(jù)庫中的應(yīng)用較為常見。通過窗體可以方便地輸入數(shù)據(jù)、編輯數(shù)據(jù)，查詢、排序、篩選和顯示數(shù)據(jù)。窗體作為輸入界面時，它可以接受數(shù)據(jù)的輸入并檢查輸入的數(shù)據(jù)是否有效；作為輸出界面時，它可以根據(jù)需要輸出各種形式的信息 (包括多媒體信息 )，還可以把記錄組織成為方便瀏覽的各種形式 ]6[ 。 登錄系統(tǒng)時，首先判斷 用戶輸入的“用 10 戶編號”是否合法，因為本系統(tǒng)的“系統(tǒng)用戶”表規(guī)定 “用戶編號”是由 4 個數(shù)字組成的字符串。 本系統(tǒng)的用戶 編號 和密碼保存在 “ 系統(tǒng)用戶” 表中。 當(dāng)用戶輸入了正確的用戶編號和密碼后就可以進(jìn)入本系統(tǒng)進(jìn)行相應(yīng)的操作。 這是通過一個 “ 標(biāo)簽 ”控件和 VBA 代碼實現(xiàn)的，所需要顯示的文字輸入在 “ lab 標(biāo)簽 ” 中的標(biāo)題欄中 ]7[ 。添加完畢后，選中該按鈕，打開“命令按鈕”對 話框，在“ 其他”選項卡中，將控件的名稱設(shè)置 為“ 用戶登錄 ”。 再向窗體添加一個“取消”按鈕，該命令按鈕用于退出當(dāng)前的應(yīng)用程序。 該窗體的 程序代碼 如附件 B 所示 。 圖 用戶 登陸 Login Window 11 主 窗體的設(shè)計 主窗體是采用命令按鈕的方法完成的，系統(tǒng)用戶通過點擊相應(yīng)的圖標(biāo)就能進(jìn)入下一個界面， 可以方便地調(diào)用“ 主窗體 ”的各項功能。 系統(tǒng)“主窗體”界面的運行結(jié)果如圖 所示。 1— 7 棟學(xué) 生宿舍信息包含了該宿舍的某個學(xué)生晚歸登記子窗體，主窗體與子窗體之間是通過學(xué)號來對應(yīng)的。 在全院學(xué)生宿舍信息、 1— 7 棟學(xué)生宿舍信息及晚歸登記的窗體中包含的命令按鈕基本相同。每一個窗體中的報表顯示，顯示的都是與該窗體一一對應(yīng)的報表。 12 圖 學(xué)生宿舍基本信息 Dormitory Student’s Basic Information 圖 窗體視圖 1 View Form 1 13 圖 窗體視圖 2 View Form 2 查詢模塊的設(shè)計 查詢的概念 查詢 (Query)是按照一定的條件或要求對數(shù)據(jù)庫中的數(shù)據(jù)進(jìn)行檢索或操作。 Access 的查詢是通過各種查詢工具來進(jìn)行的。 在 Access 數(shù)據(jù)庫中，可以使用下列 5 種類型的查詢。 本系統(tǒng) 創(chuàng)建的查詢，應(yīng)用的是參數(shù)查詢。參數(shù)查詢增加了該系統(tǒng)按姓名、學(xué)號、宿舍號、系別的查詢功能，它們在執(zhí)行時顯示自己的對話框以提示用戶輸入信息。 （ 2）在 Access“數(shù)據(jù)庫”窗口中選擇“查詢”對象，然后單 擊“新建”按鈕，系統(tǒng)將彈出“新建查詢”對話框，如圖 所示 。 圖 “顯示表”對話框 Show Table Dialog Box （ 4）在“顯示表”對話框中列出了可以添加到查詢中的表等，雙擊要添加到查詢中的表的名稱，添加表（這里添加“全院學(xué)生宿舍信息”表）。 （ 6）如果在查詢中 有 多個數(shù)據(jù)表或查詢，應(yīng)確保它們使用聯(lián)接線來彼此聯(lián)接。如果表或查詢是相關(guān)聯(lián)的，可以更改連接類型來改變查詢所選擇的記錄。如圖 所示 。如在圖 所示的查詢中設(shè)置查詢條件為：“ Like [請輸入系別名稱 ]” ，如圖 所示。 要查看查詢的結(jié)果，雙擊該查詢出現(xiàn)一個對話框，在對話框中輸入查詢的條件，就可以進(jìn)入查詢的視圖。 圖 對話框 Dialog Box 16 上述建立的查詢的運行結(jié)果如圖 所示。系統(tǒng)用戶可以點擊進(jìn)入相應(yīng)的窗體進(jìn)行查看、修改、添加、刪除等操作。 圖 來訪登記 窗體 Register Here Form 17 圖 宿舍物品維修登記窗體 Registration Dormitory Repair Items Form 宿舍狀態(tài)圖的設(shè)計 點擊“ 宿舍 狀態(tài)圖”命令按鈕，打開以下窗體如圖 所示，可以 對 各個 宿舍的 狀態(tài)進(jìn)行設(shè)計 。 報表能夠利用漂亮和豐富的布局，來為打印或屏幕顯示效果設(shè)置數(shù)據(jù)的格式。報表的好處主要是分組 18 數(shù)據(jù)和排序數(shù)據(jù)，以使數(shù)據(jù)具有更好的可視效果。 盡管報表能夠為數(shù)據(jù)穿上各種“華麗的外衣”，從而以不同的方式分組和 顯示 數(shù)據(jù)，但報表并沒有改變數(shù)據(jù)庫表中的基礎(chǔ)數(shù)據(jù)。 按匯總或分組侯 的概覽形式分，報表可以分為以下幾種類型： 縱欄式：每次只縱向排列顯示表或查詢的一條記錄 ； 表格式：一行顯示一條記錄，每次可以顯示表或查詢 的多條記錄； 組合式：含有子報表的報表 ； 圖表式：將記錄數(shù)據(jù)以圖表形式顯示 ； 標(biāo)簽式：以標(biāo)簽形式顯示。 圖 報表顯示 Report Shows 點擊上圖中的報表顯示按系別分類將會出現(xiàn)一個按系別分類的窗體，運行結(jié)果如圖 所示。 圖 報表視圖 View Report 系統(tǒng)權(quán)限窗體的設(shè)計 當(dāng)在“ 用戶編號”組合框內(nèi)輸入或選擇“用戶編號”以后，系統(tǒng)將在“系統(tǒng)權(quán)限管理”子窗體中顯示該用戶的系統(tǒng)功能權(quán)限詳細(xì)信息，并自動搜索出該“用戶編號”所對應(yīng)的“用戶名” 和“所管樓號” ，并把搜索的結(jié)果 分別 顯示于窗體中“用戶名” 、“所管樓號” 文本框內(nèi)。 在“系統(tǒng)權(quán)限管理”窗體添加的代碼見附錄 C，還有在“用戶登錄模塊”中新建的“通用”模塊中自定義一個 OpenForm 函數(shù)，該函數(shù)的具體代碼見附 錄 D。 圖 系統(tǒng) 權(quán)限管理 窗體 Window of the Jurisdiction Management Contact 密碼維護(hù)窗體的創(chuàng)建 為了更好地 保護(hù)用戶信息的安全， 用戶在登錄系統(tǒng)后需要修改密碼。如果密碼修改成功就會出現(xiàn)“ 恭喜你！密碼修改成功 ！”字樣，當(dāng)修改不成功時會出現(xiàn)“操作有誤，請重新輸入！”提示信息。本界面如圖 所示。系統(tǒng)用戶在 各個管理模塊只要點擊“幫助”命令按鈕就可以打開 該 窗體 。 圖 幫助窗體 Helped Form 6 應(yīng)用系統(tǒng)設(shè)計 為窗體定義自定義菜單 在“視圖” “工具欄” “自定義”的對話框按下“新建”按鈕后，新增內(nèi)容為工具欄，若要更改為菜單欄，需按下“屬性”按鈕，將“類型”改為“菜單欄”，如圖 所示 22 圖 更改 類型 Change the Type 在新建的菜單欄中，加入新菜單，然后重新命名。最終的結(jié)果顯示如圖 所示。 設(shè)置基本啟動選項的操作步驟如下： （ 1） 打開本數(shù)據(jù)庫系統(tǒng) ； （ 2） 在菜單欄上單擊“工具” “啟動”命令，打開“啟動”對話框； （ 3） 在“應(yīng)用程序 標(biāo)題”文本框中輸入“ 學(xué)生宿舍管理系統(tǒng)的設(shè)計 ”。這樣系統(tǒng)啟動時，自動打開“登陸窗體”。 23 圖 啟動對話框 Startup Dialog Box 設(shè)置完成后，啟動本數(shù)據(jù)庫的最終界面如圖 所示。使學(xué)生宿舍管理工作更具科學(xué)性、高效性；有利于學(xué)生宿舍工作 實現(xiàn) 制度化、規(guī)范化、合理化的管理，使學(xué)生宿舍工作的管理水平跨上新臺階，為高校學(xué)生宿舍管理工作持續(xù)、健康、穩(wěn)定的發(fā)展打下基礎(chǔ)。 本設(shè)計到此，已經(jīng)設(shè)計完畢。正所謂付出了辛勞 ， 收獲 不少知識與能力。 在 系統(tǒng) 設(shè)計 過程 中，我遇 到了很多困難。但無論怎樣辛苦 ， 最終還是獨立 完 成 了 本設(shè)計 。 希望我的設(shè)計能為 今 后 的 研究分析起到一定的作用。幸好，有許多老師、同學(xué)的幫助，我才得以調(diào)試成功，一次次的改進(jìn)自己的程序，實現(xiàn)各種功能。 在此，我首先感謝我的導(dǎo) 師陳時東 老師。尤其是在實際設(shè)計階段， 陳 老師多次解答了我的問題和疑惑， 給予 我最大的幫助 。所以， 再一次感謝 陳 老師的指導(dǎo)。 他們在程序調(diào)試中幫 助我改正錯誤，提出合理化的建議， 使 程序的功能 得以增強。在這里我要衷心的謝謝 他 們，謝謝他 們在畢業(yè)設(shè)計中對我的幫助和關(guān)懷。 gdl = Len(gdt) gdi = 1 = 400 End Sub Private Sub Form_Timer() If gdi gdl Then gdi = 0 標(biāo)簽 .Caption = Else 標(biāo)簽 .Caption = 標(biāo)簽 .Caption amp。 amp。 39。判斷 STemp 變量值是否為空 If IsNull(sTemp) Then UserID = Null Me![用戶編號 ] = Else UserID = sTemp Me![用戶名 ] = DLookup(用 戶名 , 系統(tǒng)用戶 , [用戶編號 ]= 39。 Me![用戶編號 ] amp。) End If End If Exit_用戶編號 _AfterUpdate: Exit Sub Err_用戶編號 _AfterUpdate: MsgBox 您“用戶編號”輸入錯誤，或者還沒有注冊，請檢查 !, vbCritical, 無此用戶 Resume Exit_用戶編號 _AfterUpdate End Sub 30 Private Sub 用戶編號 _BeforeUpdate(Cancel As Integer) On Error GoTo Err_用戶編號 _BeforeUpdate 39。判斷“用戶編號”和“密碼”文本框是否為空 If IsNull(Me![用戶編號 ]) Then MsgBox 請輸入“用戶編號”！ , vbInformation, 輸入用戶編號 Me![用戶編號 ].SetFocus ElseIf IsNull(Me![密碼 ]) Then MsgBox 請輸入登錄密碼！ , vbInformation, 輸入密碼 Me![密碼 ].SetFocus Else 39。 amp。 39。找出系統(tǒng)用戶的“用戶名” username = DLookup(用戶名 , 系統(tǒng)用戶 , 用戶編號 = 39。 Me![用戶編號 ] amp。) If IsNull(sTemp) Then , , acSaveNo Else 39。使用 DoCmd 對象的 Quit 方法退出當(dāng)前數(shù)據(jù)庫系統(tǒng) acQuitSaveNone Exit_取消登錄 _Click: Exit Sub Err_取消登錄 _Click: MsgBox Resume Exit_取消登錄 _Click End Sub 附錄 C 權(quán)限管理代碼 Option Compare Database Private Sub 刪除用戶 _Click() On Error GoTo Err_刪除用戶 _Click Dim sTemp As String Dim i As Integer Dim Rs As Set Rs = New sTemp = Select * From 系統(tǒng)用戶 39。使用 For? Next 循環(huán)語句在 Rs 數(shù)據(jù)集中循環(huán)判斷 For i = 1 To 39。關(guān)閉記錄集 39。彈出“是否修改”窗口，提示用戶是否修改用戶權(quán)限 If MsgBox(確定要修改用戶權(quán)限嗎？ , vbYesNo, 是否修改 ) = vbYes Then Me![系統(tǒng)權(quán)限管理 子窗體 ].Locked = False Else Exit Sub End If Exit_修改權(quán)限 _Click: Exit Sub Err_修改權(quán)限 _Click: MsgBox Resume Exit_修改權(quán)限 _Click End Sub Private Sub 用戶編號 _AfterUpdate() On Error GoTo Err_用戶編號 _AfterUpdate 39。 amp。 39。使用 DLookup 函數(shù)在“系統(tǒng)用戶”數(shù)據(jù)表中搜索“所管樓號 ” Me![所管樓號 ] = DLookup(所管樓號 , 系統(tǒng)用戶 , _ [用戶編號 ]=39。 Me![用戶編號 ] amp。 ) 39。用戶登錄的“用戶編號” Public UserID As String