【文章內(nèi)容簡介】 理 9 (11)水電費表：詳細(xì)記錄了宿舍水電費情況 。 (12)物品號表：記錄物品的編號。 . 數(shù)據(jù)庫邏輯結(jié)構(gòu) “ 學(xué)生宿舍管理系統(tǒng)”各個數(shù)據(jù)庫表結(jié)構(gòu)設(shè)計如表 1表 12 所示： 表 1“學(xué)生 基本 信息表“結(jié)構(gòu) 屬性名 類型 長度 主鍵 學(xué)號 文本 20 是 姓名 文本 10 否 性別 文本 2 否 專業(yè) 文本 20 否 樓房號 文本 10 否 系部 文本 20 否 宿舍號 文本 10 否 家庭住址 備注 否 入住時間 日期 /時間 中日期 否 聯(lián)系方式 文本 20 否 表 2“宿舍 表”結(jié)構(gòu) 屬性名 類型 長度 主鍵 樓房號 文本 10 是 宿舍號 文本 10 是 應(yīng)住人數(shù) 文本 10 否 實住人數(shù) 文本 10 否 住宿費用 文本 10 否 表 3“員工 表”結(jié)構(gòu) 屬性名 類型 長度 主鍵 姓名 文本 10 否 家庭住址 備注 否 性別 文本 2 否 員工號 文本 10 是 樓房號 文本 10 否 聯(lián)系方式 文本 20 否 10 表 4“報修 表”結(jié)構(gòu) 屬性名 類型 長度 主鍵 樓 房 號 文本 10 是 宿舍 號 文本 10 是 物品號 文本 10 否 值班人 文本 20 否 解決時間 日期 /時間 中日期 否 報修時間 日期 /時間 中日期 否 表 5“來訪者信息表”結(jié)構(gòu) 屬性名 類型 長度 主鍵 來訪人姓名 文本 10 否 被訪人姓名 文本 10 否 所屬關(guān)系 文本 10 否 證件號碼 文本 20 否 來訪日期 日期 /時間 中日期 否 來訪時間 日期 /時間 短時間 否 離開時間 日期 /時間 短時間 否 樓房號 文本 10 是 宿舍號 文本 10 是 值班人 文本 10 否 備注 備注 否 表 6“學(xué)生財產(chǎn)表”結(jié)構(gòu) 屬性名 類型 長度 主鍵 學(xué)號 文本 20 是 宿舍號 文本 10 否 物品 號 文本 10 否 鑰匙 文本 2 否 11 表 7“樓房表 ”結(jié)構(gòu) 屬性名 類型 長度 主鍵 樓房號 文本 10 是 樓層數(shù) 文本 10 否 房間數(shù) 文本 10 否 應(yīng)住人數(shù) 文本 10 否 備注 備注 否 表 8“權(quán)限表”結(jié)構(gòu) 屬性名 類型 長度 主鍵 用戶名 文本 50 是 窗體名 文本 50 是 打開 是 /否 10 否 編輯 是 /否 否 表 9“用戶表”結(jié)構(gòu) 屬性名 類型 長度 主鍵 用戶名 文本 50 是 密碼 文本 50 否 表 10“水電費表”結(jié)構(gòu) 屬性名 類型 長度 主鍵 樓房號 文本 10 是 宿舍號 文本 10 是 日期 日期 /時間 中日期 否 用水量 數(shù)字 小數(shù) 否 水費 貨幣 否 用電量 數(shù)字 小數(shù) 否 電費 貨幣 否 表 11“物品進出信息表”結(jié)構(gòu) 屬性名 類型 長度 主鍵 學(xué)號 文本 20 是 樓房號 文本 10 否 進樓物品 文本 50 否 出樓物品 文本 50 否 日期 日期 /時間 中日期 否 12 時間 日期 /時間 短時間 否 表 12“物品號表”結(jié)構(gòu) 屬性名 類型 長度 主鍵 物品號 文本 10 是 宿舍財產(chǎn) 文本 10 否 創(chuàng)建數(shù)據(jù)庫和表 在數(shù)據(jù)庫數(shù)據(jù)結(jié)構(gòu)分析和數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計完成之后，接下來便可以用access 來創(chuàng)建數(shù)據(jù)庫。一般步驟是首先創(chuàng)建數(shù)據(jù) 庫，再創(chuàng)建數(shù)據(jù)表。 （ 1）創(chuàng)建數(shù)據(jù)庫的操作步驟：首先啟動 Microsoft Access 2021，過 “文件”菜單中的“新建”命令，創(chuàng)建一個名為“學(xué)生宿舍管理系統(tǒng) ． mdb”的數(shù)據(jù)庫 。 （ 2）創(chuàng)建表：在數(shù)據(jù)庫“學(xué)生宿舍 管理系統(tǒng) ． mdb”中通過“使用設(shè)計器創(chuàng)建表”如圖 9所示， 分別創(chuàng)建 。 其中“學(xué)生 基本 信息表”表的設(shè)計視圖如圖 6 所示： 圖 9 用同樣的方法可以創(chuàng)建其余的表 。 值班人 文本 10 否 備注 備注 否 13 圖 10 4 系統(tǒng)界面及其代碼 登錄界面的設(shè)計 登錄界面 是 為操作者身份驗證程序， 如果用戶名或密碼錯誤就會提示用戶名或密碼 錯誤，并且 只有當(dāng)輸入的賬號密碼都正確時才能進入系統(tǒng)界面。 登錄界面是使用 access工具箱帶的控件設(shè)計而成，包括文本框，組合框，標(biāo)簽，圖像，命令按鈕等。 如圖 11所示 代碼如下： Private Sub cmdOK_Click() If IsNull() Then MsgBox 請輸入您的用戶名！ , vbQuestion, 注意 Exit Sub End If If login = True Then 主界面 = 0 = False = Else MsgBox 用戶名或密碼不正確！ , vbCritical, 注意 = Exit Sub End If End Sub Private Sub Form_Timer() If I 9 Then I = 0 14 Call showLineImg(I) I = I + 1 End Sub Private Function showLineImg(ByVal CurrentImgNo As Integer) Dim c As Integer For c = 0 To 9 If CurrentImgNo = c Then img(c).Visible = True Else img(c).Visible = False End If Next c End Function Private Sub cmdCancel_Click() 39。 39。臨時的 acQuitSaveNone End Sub Public Function login() As Boolean If IsNull(DLookup(用戶名 , 用戶表 , 用戶名 = and 密碼= )) Then login = False Else login = True 39。輸入的用戶名和密碼正確 End If End Function 圖 11 15 主界面 圖 12 主界面是系統(tǒng)的主要界 面，它是連接其他窗體的樞紐，也是用戶登錄后所顯示的界面，主要包括系統(tǒng)設(shè)置、信息查詢、公寓管理、學(xué)生管理、出入管理等幾塊功能。單擊各命令按鈕會跳躍到其他窗體，主要是用宏來實現(xiàn)。如圖 13 所示 圖 13 16 退出系統(tǒng)代碼如下： Private Sub 命令 31_Click() On Error GoTo Err_命令 31_Click Exit_命令 31_Click: Exit Sub Err_命令 31_Click MsgBox Resume Exit_命令 31_Click End Sub 查詢主界面 查詢就是一種篩選功能，能夠幫助人們更快的找到自己所需要的信息。 查詢主界面包括學(xué)生信息查詢、員工查詢、房間查詢、水電費查詢、報修查詢、物品進出查詢、來訪信息查詢。 如圖 14所示 圖 14 學(xué)生信息查詢界面 此 界面 是用于 查詢學(xué)生基本信息 ，通過 輸入 姓名、宿舍號等查詢相應(yīng)的學(xué)生信息。 并能夠生成并導(dǎo)出 EXCEL 表格 能夠有利于查找到 相應(yīng) 的學(xué)生信 息。 如圖15所示 代碼如下 : Option Compare Database Private Sub cdm查詢 _Click() .Requery 39。這句是關(guān)鍵 End Sub Private Sub cdm清除 _Click() 39。下面這些控件的值要清空 = Null = Null 17 = Null = Null = Null = Null 查詢子窗體 .Requery 39。清空之后一樣要重新查詢 End Sub 圖 15 學(xué)生 管理界面 學(xué)生 管理界面 包括學(xué)生信息管理和學(xué)生財產(chǎn)管理，點擊不同的按鈕跳到不同的界面，主要功能是實現(xiàn)信息的錄入、刪除、保存以及瀏覽相應(yīng)的記錄。 如圖16所示 圖 16 學(xué)生基本信息界面 18 學(xué)生基本信息界面主要功能是對學(xué)生基本信息進行管理具體包括添加、保存、刪除以及瀏覽相應(yīng)的記錄。 如圖 17所示 圖 17 代碼如下： Option Compare Database Private Sub Command24_Click() On Error GoTo Err_Command24_Click , , acNewRec Exit_Command24_Click: Exit Sub Err_Command24_Click: MsgBox Resume Exit_Command24_Click End Sub Private Sub Command25_Click() On Error GoTo Err_Command25_Click acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Exit_Command25_Click: Exit Sub Err_Command25_Click: MsgBox Resume Exit_Command25_Click End Sub Private Sub Command26_Click() On Error GoTo Err_Command26_Click acFormBar, acEditMenu, 8, , acMenuVer70 acFormBar, acEditMenu, 6, , acMenuVer70 Exit_Command26_Click: Exit Sub Err_Command26_Click: MsgBox Resume Exit_Command26_Click End Sub P