【正文】 ].北京:中國青年出版社,2007.[15] 2003 高手攻略[M].北京: 中國鐵道出版社,.[16] [M].華夏出版社，.附錄附錄A表A1 學(xué)生信息表 Form of Student’s File 字段名稱數(shù)據(jù)類型字段大小屬性宿舍號文本50主鍵姓名文本50—學(xué)號文本50掩碼：************系別文本50—班別文本50—籍貫文本50—宿舍類型文本50—入住時間日期/時間短日期—宿舍電話文本50—備注文本50—表A2 晚歸登記表 Registration Form字段名稱數(shù)據(jù)類型字段大小屬性姓名文本50—學(xué)號文本50—晚歸日期日期/時間短日期—晚歸時間日期/時間短時間—記錄人文本50—表A3 宿舍衛(wèi)生情況記錄 Quarters Health Record字段名稱數(shù)據(jù)類型字段大小屬性宿舍號文本50—系別文本50—班別文本50—門窗數(shù)字長整型—床鋪數(shù)字長整型—地板數(shù)字長整型—桌面數(shù)字長整型—陽臺數(shù)字長整型—宿舍等級文本文本—記錄時間日期/時間短日期—表A4 來訪登記 Register Here字段名稱數(shù)據(jù)類型字段大小屬性訪客證件類型文本255—證件號文本50—訪客姓名文本50—訪客性別文本50—訪客單位文本50—訪客登記時間日期/時間常規(guī)日期—拜訪宿舍文本50—離去時間日期/時間常規(guī)日期—表A5 宿舍物品維修登記 Maintenance of Quarters Registered Items字段名稱數(shù)據(jù)類型字段大小屬性宿舍號文本50主鍵報修時間日期/時間短日期—報修人文本50—維修項(xiàng)目1數(shù)字長整型使用查閱向?qū)ЬS修項(xiàng)目2數(shù)字長整型使用查閱向?qū)ЬS修項(xiàng)目3數(shù)字長整型使用查閱向?qū)ЬS修項(xiàng)目4數(shù)字長整型使用查閱向?qū)ЬS修項(xiàng)目5數(shù)字長整型使用查閱向?qū)ЬS修人員文本50—維修時間日期/時間短日期—備注文本255—表A6系統(tǒng)用戶 Users of the System字段名稱數(shù)據(jù)類型字段大小屬性用戶編號文本10主鍵密碼文本50掩碼：密碼用戶姓名文本50—用戶性別文本50—所管樓號文本50—個人電話文本50—表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ù)類型字段大小屬性0101OLE對象——……OLE對象——0112OLE對象——0201OLE對象——……OLE對象——0212OLE對象——……OLE對象——0501OLE對象——……OLE對象——0512OLE對象——表A10窗體編號 Form No.字段大小數(shù)據(jù)類型字段大小屬性窗體編號數(shù)字整型主鍵窗體名稱文本50—表A11用戶權(quán)限 User rights字段名稱數(shù)據(jù)類型字段大小屬性用戶編號文本10主鍵窗體編號數(shù)字整型主鍵權(quán)限是/否——附錄B登錄窗體的代碼Option Compare DatabaseDim gdt As String, gdl As Integer, gdi As IntegerPrivate Sub Form_Load() = 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 IfExit_用戶登錄_Click: Exit SubErr_用戶登錄_Click: MsgBox Resume Exit_用戶登錄_ClickEnd SubPrivate Sub 取消登錄_Click()On Error GoTo Err_取消登錄_Click 39。使用DLookup函數(shù)在“系統(tǒng)用戶”數(shù)據(jù)表中搜索“用戶名” Me![用戶名] = DLookup(用戶名, 系統(tǒng)用戶, _ [用戶編號]= 39。 39。判斷當(dāng)前“登錄用戶”是否有權(quán)限打開FormID對應(yīng)的窗體 For i = 1 To If Rs1(用戶編號) = UserID And Rs1(窗體編號) = FormID _ And Rs1(權(quán)限) = True Then blnOpen = True Else End If Next i End If 39。 39。 username amp。 where 用戶名=39。 amp。打開“系統(tǒng)窗體”數(shù)據(jù)表sTemp = Select * From 系統(tǒng)窗體 sTemp, , adOpenKeyset, adLockOptimisticDim blnOpen As BooleanDim FormName As String blnOpen = False 39。 amp。打開“系統(tǒng)權(quán)限”數(shù)據(jù)表 sTemp = Select * From 系統(tǒng)權(quán)限 sTemp, , adOpenKeyset, adLockOptimistic For i = 1 To If Rs(用戶編號) = Me![用戶編號] Then 1 i = + 1 Else End If Next i MsgBox 用戶資料已經(jīng)刪除完成！, vbOKOnly, 刪除完成 Me![系統(tǒng)權(quán)限管理 子窗體].Requery Me![用戶編號].Requery Me![用戶名] = Set Rs = NothingExit_刪除用戶_Click: Exit SubErr_刪除用戶_Click: MsgBox Resume Exit_刪除用戶_ClickEnd SubPrivate Sub 修改權(quán)限_Click()On Error GoTo Err_修改權(quán)限_Click 39。 39。找出系統(tǒng)用戶的“密碼” sTemp = DLookup(密碼, 系統(tǒng)用戶, 用戶編號 = 39。) 39。沒有他們的幫助，我的設(shè)計進(jìn)展一定會十分緩慢，而且有可能會寸步難行。正是在這些朋友的幫助下，我才及時糾正了自己的語法錯誤、邏輯錯誤、攻克了不少難點(diǎn)。通過這次畢業(yè)設(shè)計，我系統(tǒng)地學(xué)習(xí)了 VBA 語言，Access數(shù)據(jù)庫，并獨(dú)立完成了本系統(tǒng)的構(gòu)思、設(shè)計、調(diào)試及測試成功，本系統(tǒng)可以對學(xué)生宿舍管理完成一定的添加、修改、刪除、查詢等功能的處理，但是本設(shè)計中也存在一些不足，比如在系統(tǒng)權(quán)限管理窗體上功能不夠全面，有待提高。；（5） 取消“顯示數(shù)據(jù)庫窗口”選項(xiàng)，取消“允許內(nèi)置工具欄”選項(xiàng)，取消“允許全部菜單”選項(xiàng)。 Change Password為系統(tǒng)設(shè)計一個簡單、實(shí)用的幫助窗體。 報表顯示按系別分類 Report Shows another Classification by the Department 點(diǎn)擊相對應(yīng)系別的報表顯示按鈕，將會出現(xiàn)報表顯示。報表常常用于顯示概覽信息，以便突出顯示主要信息和趨勢。要查看查詢的結(jié)果，雙擊該查詢出現(xiàn)一個對話框，在對話框中輸入查詢的條件，就可以進(jìn)入查詢的視圖。（5）添加完需要的表后，單擊“關(guān)閉”按鈕。1. 選擇查詢；2. 交叉表查詢；3. 參數(shù)查詢；4. 動作查詢；5. SQL查詢。窗體中的“統(tǒng)計人數(shù)”，統(tǒng)計的是當(dāng)前窗體的記錄數(shù)。 “用戶登錄”。為了使界面更加美觀，在窗體中還添加了跑馬燈的效果。一個好的數(shù)據(jù)庫系統(tǒng)不但要設(shè)計合理，滿足用戶需要，而且還必須擁有一個功能完善、操作方便、美觀的界面。但是被連接的字段必須具有相同的數(shù)據(jù)類型和長度。根據(jù)系統(tǒng)需求分析與