【文章內(nèi)容簡(jiǎn)介】 理 9 (11)水電費(fèi)表：詳細(xì)記錄了宿舍水電費(fèi)情況 。 (12)物品號(hào)表：記錄物品的編號(hào)。 . 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu) “ 學(xué)生宿舍管理系統(tǒng)”各個(gè)數(shù)據(jù)庫(kù)表結(jié)構(gòu)設(shè)計(jì)如表 1表 12 所示： 表 1“學(xué)生 基本 信息表“結(jié)構(gòu) 屬性名 類型 長(zhǎng)度 主鍵 學(xué)號(hào) 文本 20 是 姓名 文本 10 否 性別 文本 2 否 專業(yè) 文本 20 否 樓房號(hào) 文本 10 否 系部 文本 20 否 宿舍號(hào) 文本 10 否 家庭住址 備注 否 入住時(shí)間 日期 /時(shí)間 中日期 否 聯(lián)系方式 文本 20 否 表 2“宿舍 表”結(jié)構(gòu) 屬性名 類型 長(zhǎng)度 主鍵 樓房號(hào) 文本 10 是 宿舍號(hào) 文本 10 是 應(yīng)住人數(shù) 文本 10 否 實(shí)住人數(shù) 文本 10 否 住宿費(fèi)用 文本 10 否 表 3“員工 表”結(jié)構(gòu) 屬性名 類型 長(zhǎng)度 主鍵 姓名 文本 10 否 家庭住址 備注 否 性別 文本 2 否 員工號(hào) 文本 10 是 樓房號(hào) 文本 10 否 聯(lián)系方式 文本 20 否 10 表 4“報(bào)修 表”結(jié)構(gòu) 屬性名 類型 長(zhǎng)度 主鍵 樓 房 號(hào) 文本 10 是 宿舍 號(hào) 文本 10 是 物品號(hào) 文本 10 否 值班人 文本 20 否 解決時(shí)間 日期 /時(shí)間 中日期 否 報(bào)修時(shí)間 日期 /時(shí)間 中日期 否 表 5“來(lái)訪者信息表”結(jié)構(gòu) 屬性名 類型 長(zhǎng)度 主鍵 來(lái)訪人姓名 文本 10 否 被訪人姓名 文本 10 否 所屬關(guān)系 文本 10 否 證件號(hào)碼 文本 20 否 來(lái)訪日期 日期 /時(shí)間 中日期 否 來(lái)訪時(shí)間 日期 /時(shí)間 短時(shí)間 否 離開時(shí)間 日期 /時(shí)間 短時(shí)間 否 樓房號(hào) 文本 10 是 宿舍號(hào) 文本 10 是 值班人 文本 10 否 備注 備注 否 表 6“學(xué)生財(cái)產(chǎn)表”結(jié)構(gòu) 屬性名 類型 長(zhǎng)度 主鍵 學(xué)號(hào) 文本 20 是 宿舍號(hào) 文本 10 否 物品 號(hào) 文本 10 否 鑰匙 文本 2 否 11 表 7“樓房表 ”結(jié)構(gòu) 屬性名 類型 長(zhǎng)度 主鍵 樓房號(hào) 文本 10 是 樓層數(shù) 文本 10 否 房間數(shù) 文本 10 否 應(yīng)住人數(shù) 文本 10 否 備注 備注 否 表 8“權(quán)限表”結(jié)構(gòu) 屬性名 類型 長(zhǎng)度 主鍵 用戶名 文本 50 是 窗體名 文本 50 是 打開 是 /否 10 否 編輯 是 /否 否 表 9“用戶表”結(jié)構(gòu) 屬性名 類型 長(zhǎng)度 主鍵 用戶名 文本 50 是 密碼 文本 50 否 表 10“水電費(fèi)表”結(jié)構(gòu) 屬性名 類型 長(zhǎng)度 主鍵 樓房號(hào) 文本 10 是 宿舍號(hào) 文本 10 是 日期 日期 /時(shí)間 中日期 否 用水量 數(shù)字 小數(shù) 否 水費(fèi) 貨幣 否 用電量 數(shù)字 小數(shù) 否 電費(fèi) 貨幣 否 表 11“物品進(jìn)出信息表”結(jié)構(gòu) 屬性名 類型 長(zhǎng)度 主鍵 學(xué)號(hào) 文本 20 是 樓房號(hào) 文本 10 否 進(jìn)樓物品 文本 50 否 出樓物品 文本 50 否 日期 日期 /時(shí)間 中日期 否 12 時(shí)間 日期 /時(shí)間 短時(shí)間 否 表 12“物品號(hào)表”結(jié)構(gòu) 屬性名 類型 長(zhǎng)度 主鍵 物品號(hào) 文本 10 是 宿舍財(cái)產(chǎn) 文本 10 否 創(chuàng)建數(shù)據(jù)庫(kù)和表 在數(shù)據(jù)庫(kù)數(shù)據(jù)結(jié)構(gòu)分析和數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)完成之后，接下來(lái)便可以用access 來(lái)創(chuàng)建數(shù)據(jù)庫(kù)。一般步驟是首先創(chuàng)建數(shù)據(jù) 庫(kù)，再創(chuàng)建數(shù)據(jù)表。 （ 1）創(chuàng)建數(shù)據(jù)庫(kù)的操作步驟：首先啟動(dòng) Microsoft Access 2021，過 “文件”菜單中的“新建”命令，創(chuàng)建一個(gè)名為“學(xué)生宿舍管理系統(tǒng) ． mdb”的數(shù)據(jù)庫(kù) 。 （ 2）創(chuàng)建表：在數(shù)據(jù)庫(kù)“學(xué)生宿舍 管理系統(tǒng) ． mdb”中通過“使用設(shè)計(jì)器創(chuàng)建表”如圖 9所示， 分別創(chuàng)建 。 其中“學(xué)生 基本 信息表”表的設(shè)計(jì)視圖如圖 6 所示： 圖 9 用同樣的方法可以創(chuàng)建其余的表 。 值班人 文本 10 否 備注 備注 否 13 圖 10 4 系統(tǒng)界面及其代碼 登錄界面的設(shè)計(jì) 登錄界面 是 為操作者身份驗(yàn)證程序， 如果用戶名或密碼錯(cuò)誤就會(huì)提示用戶名或密碼 錯(cuò)誤，并且 只有當(dāng)輸入的賬號(hào)密碼都正確時(shí)才能進(jìn)入系統(tǒng)界面。 登錄界面是使用 access工具箱帶的控件設(shè)計(jì)而成，包括文本框，組合框，標(biāo)簽，圖像，命令按鈕等。 如圖 11所示 代碼如下： Private Sub cmdOK_Click() If IsNull() Then MsgBox 請(qǐng)輸入您的用戶名！ , 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。臨時(shí)的 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é)生管理、出入管理等幾塊功能。單擊各命令按鈕會(huì)跳躍到其他窗體，主要是用宏來(lái)實(shí)現(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é)生信息查詢、員工查詢、房間查詢、水電費(fèi)查詢、報(bào)修查詢、物品進(jìn)出查詢、來(lái)訪信息查詢。 如圖 14所示 圖 14 學(xué)生信息查詢界面 此 界面 是用于 查詢學(xué)生基本信息 ，通過 輸入 姓名、宿舍號(hào)等查詢相應(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é)生財(cái)產(chǎn)管理，點(diǎn)擊不同的按鈕跳到不同的界面，主要功能是實(shí)現(xiàn)信息的錄入、刪除、保存以及瀏覽相應(yīng)的記錄。 如圖16所示 圖 16 學(xué)生基本信息界面 18 學(xué)生基本信息界面主要功能是對(duì)學(xué)生基本信息進(jìn)行管理具體包括添加、保存、刪除以及瀏覽相應(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