【正文】 小 屬性 姓名 文本 50 — 學(xué)號 文本 50 — 晚歸日期 日期 /時間 短日期 — 晚歸時間 日期 /時間 短時間 — 記錄人 文本 50 — 表 A3 宿舍衛(wèi)生情況記錄 Quarters Health Record 字段名稱 數(shù)據(jù)類型 字段大小 屬性 宿舍號 文本 50 — 系別 文本 50 — 班別 文本 50 — 門窗 數(shù)字 長整型 — 床鋪 數(shù)字 長整型 — 地板 數(shù)字 長整型 — 桌 面 數(shù)字 長整型 — 陽臺 數(shù)字 長整型 — 宿舍等級 文本 文本 — 記錄時間 日期 /時間 短日期 — 27 表 A4 來訪登記 Register Here 字段名稱 數(shù)據(jù)類型 字段大小 屬性 訪客證件類型 文本 255 — 證件號 文本 50 — 訪客姓名 文本 50 — 訪客性別 文本 50 — 訪客單位 文本 50 — 訪客登記時間 日期 /時間 常規(guī)日期 — 拜訪宿舍 文本 50 — 離去時間 日期 /時間 常規(guī)日期 — 表 A5 宿舍物品維修登記 Maintenance of Quarters Registered Items 字段名稱 數(shù)據(jù)類型 字段大小 屬性 宿舍號 文本 50 主鍵 報修時間 日期 /時間 短日期 — 報修人 文本 50 — 維修項目 1 數(shù)字 長整型 使用查閱向?qū)? 維修項目 2 數(shù)字 長整型 使用查閱向?qū)? 維修項目 3 數(shù)字 長整型 使用查閱向?qū)? 維修項目 4 數(shù)字 長整型 使用查閱向?qū)? 維修項目 5 數(shù)字 長整型 使用查閱向?qū)? 維修人員 文本 50 — 維修時間 日期 /時間 短日期 — 備注 文本 255 — 表 A6 系統(tǒng)用戶 Users of the System 字段名稱 數(shù)據(jù)類型 字段大小 屬性 用戶編號 文本 10 主鍵 密碼 文本 50 掩碼：密碼 用戶姓名 文本 50 — 用戶性別 文本 50 — 所管樓號 文本 50 — 個人電話 文本 50 — 28 表 A7 宿舍類別 Quarter’s Categories 字段名稱 數(shù)據(jù)類型 字段大小 屬性 宿舍類別 文本 50 主鍵 說明 文本 50 — 圖片 OLE 對象 — — 表 A8 入住信息 Check Information 字段名稱 數(shù)據(jù)類型 字段大小 屬性 宿舍編號 文本 50 — 宿舍號 文本 50 主鍵 宿舍類型 文本 50 — 入住狀態(tài) 文本 50 — 表 A9 宿舍狀態(tài)圖 State Quarters Map 字段名稱 數(shù)據(jù)類型 字段大小 屬性 0101 OLE 對象 — — …… OLE 對象 — — 0112 OLE 對象 — — 0201 OLE 對象 — — …… OLE 對象 — — 0212 OLE 對象 — — …… OLE 對象 — — 0501 OLE 對象 — — …… OLE 對象 — — 0512 OLE 對象 — — 表 A10 窗體編號 Form No. 字段大小 數(shù)據(jù)類型 字段大小 屬性 窗體編號 數(shù)字 整型 主鍵 窗體名稱 文本 50 — 表 A11 用戶權(quán)限 User rights 字段名稱 數(shù)據(jù)類型 字段大小 屬性 用戶編號 文本 10 主鍵 窗體編號 數(shù)字 整型 主鍵 權(quán)限 是 /否 — — 29 附錄 B 登錄窗體的代碼 Option Compare Database Dim gdt As String, gdl As Integer, gdi As Integer Private Sub Form_Load() 標(biāo)簽 .Caption = gdt = 歡迎使用玉林師范學(xué)院宿舍管理系統(tǒng)！制作人：電信 051 班謝春玉，指導(dǎo)老師：陳時東。 amp。 Me![用戶編號 ] amp。判斷輸入的“密碼”與從“系統(tǒng)用戶”數(shù)據(jù)表中搜索出的值是否相等 If CStr(Me![密碼 ]) = sTemp Then UserID = Me![用戶編號 ] , , acSaveNo Else MsgBox 您輸入的密碼不正確！ , vbCritical, 密碼錯誤 Me![密碼 ].SetFocus End If End If End If Exit_用戶 登錄 _Click: Exit Sub 31 Err_用戶登錄 _Click: MsgBox Resume Exit_用戶登錄 _Click End Sub Private Sub 取消登錄 _Click() On Error GoTo Err_取消登錄 _Click 39。使用 DLookup 函數(shù)在“系統(tǒng)用戶”數(shù)據(jù)表中搜索“用戶名” Me![用戶名 ] = DLookup(用戶名 , 系統(tǒng)用戶 , _ [用戶編號 ]= 39。 39。刷新“系統(tǒng)權(quán)限管理 子窗體”子窗體 Me![系統(tǒng)權(quán)限管理 子窗體 ].Requery Exit_用戶編號 _AfterUpdate: Exit Sub Err_用戶編號 _AfterUpdate: MsgBox Resume Exit_用戶編號 _AfterUpdate End Sub 33 Private Sub 退出窗體 _Click() On Error GoTo Err_退出窗體 _Click Exit_退出窗體 _Click: Exit Sub Err_退出窗體 _Click: MsgBox Resume Exit_退出窗體 _Click End Sub 附錄 D 通用代碼 Option Compare Database Option Explicit 39。 Me![用戶編號 ] amp。打開“系統(tǒng)用戶”數(shù)據(jù)表 sTemp, , adOpenKeyset, adLockOptimistic 39。) 39。 39。 Mid(gdt, gdi, 1) End If gdi = gdi + 1 End Sub Private Sub 用戶編號 _AfterUpdate() On Error GoTo Err_用戶編號 _AfterUpdate Dim sTemp As String If IsNull(Me![用戶編號 ]) Then UserID = Null Else sTemp = DLookup(用戶編號 , 系統(tǒng)用戶 , [用戶編號 ]= 39。 如果沒有 陳 老師的指導(dǎo)， 我的設(shè)計是不會那么順利完成的。 以上是我 在 本系統(tǒng) 設(shè)計過程中取得的成績 ， 遇到的問題及不足之處 。系統(tǒng)投入運(yùn)行后，將有力地推動校園的網(wǎng)絡(luò)化和信息化建設(shè)。 圖 新建菜單欄 New Menu Bar 設(shè)置基本啟動選項 基本啟動選項 ，主要包括“應(yīng)用程序標(biāo)題”、系統(tǒng)啟動后自動打開的窗體，以及數(shù)據(jù)庫窗口、菜單欄、工具欄是否顯示等選項內(nèi)容。在“ 修改 密碼 窗體”添加的代碼見附錄 E。 19 圖 報表顯示按系別分類 Report Shows another Classification by the Department 點擊相對應(yīng)系別的報表顯示按鈕，將會出現(xiàn)報表顯示，運(yùn)行的結(jié)果如圖 所示。報表常常用于顯示概覽信息，以便突出顯示主要信息和趨勢。如圖 所示。如果沒有聯(lián)接，請自行創(chuàng)建聯(lián)接。參數(shù)查詢是在選擇查詢中添加了可變化的條件，即“參數(shù)”。最終的運(yùn)行結(jié)果如圖 、圖 、圖 所示 。 在主窗體的上方調(diào)用了一個系統(tǒng)時間， 同時添加了跑馬燈的 效果 。 為窗體添加一個“確定” 按鈕， 該命令按鈕用于確認(rèn)用戶輸入的用戶編號 和密碼是否正確。 5 系統(tǒng)功能 模塊的設(shè)計 登錄 窗體的設(shè)計 在進(jìn)入 本 系統(tǒng)之前首先會出現(xiàn)一個登錄 窗體 ，用戶只有在輸入正確的用戶 編號 和正確的密碼之后，才能進(jìn)入系統(tǒng)進(jìn)行數(shù)據(jù)處理。 通常，關(guān)系是通過連接表之間的關(guān)鍵字而建立的，即將一個表 中的主鍵與另外一個表中的外鍵連接起來。建立了空的數(shù)據(jù)庫后，下一步首先要做的就是創(chuàng)建數(shù)據(jù)表。 ● 宿舍物品維修登記的輸入、修改、查詢、刪除，包括宿舍號、報修時間、報修人姓名、維修原因、維修人員、維修時間、備注。 本 學(xué)生 宿舍 管理 系統(tǒng) 軟件，是以 我院 的 學(xué)生宿舍 管理方式為背景 而設(shè)計的一種實用型管理軟件。 針對不同的數(shù)據(jù)庫管理系統(tǒng)，要根據(jù)其特點和處理的需求，進(jìn)行物理存儲的安排，建立索引，形成數(shù)據(jù)庫 的內(nèi)模式。 鑒于在開發(fā)初期所作的設(shè)計方案往往會對最終結(jié)果產(chǎn)生很大的影響，為了能更好地實現(xiàn)數(shù)據(jù)庫設(shè)計的最終目標(biāo)，必須認(rèn)真細(xì)致地進(jìn)行研究和規(guī)劃。而 VBA 提供了面向?qū)ο蟮某绦蛟O(shè)計方法，提供了相當(dāng)完整的程序設(shè)計語言。同時，多種應(yīng)用、 多種語言互相覆蓋地共享數(shù)據(jù)集合的要求越來越強(qiáng)烈。人 工管理數(shù)據(jù)的特點如下： 數(shù)據(jù)不保存 ； 應(yīng)用程序管理數(shù)據(jù) ； 數(shù)據(jù)不共享 ； 數(shù)據(jù)不具有獨(dú)立性 。 開發(fā) 工具： Microsoft Access 2020。s dormitory management. Key words: Dormitory management, Access database, VBA language 目錄 1 前言 .................................................................................................................................... 1 系統(tǒng)開發(fā)應(yīng)用背景 ..................................................................................................... 1 課題研究的意義 ......................................................................................................... 1 系統(tǒng)開發(fā)環(huán)境的選擇 ................................................................................................. 1 2 數(shù)據(jù)庫系統(tǒng)的介紹 ............................................................................................................ 1 數(shù)據(jù)庫的概念、發(fā)展及其優(yōu)點 ................................................................................. 1 數(shù)據(jù)庫的概念 ...................................................................................................... 1 數(shù)據(jù)庫的發(fā)展 ................................................................................................... 2 VBA 語言簡 介 ............................................................................................................ 4 數(shù)據(jù)庫設(shè)計的一般步驟 ............................................................................................. 4 需求分析 .....................................................