【正文】 感謝我的父親、母親和所有的家人，是他們殷切的期望和無私的關懷激勵著我不斷進取。他深厚的理論水平使我受益匪淺，嚴謹?shù)墓ぷ鲬B(tài)度和耐心育人的崇高精神給我留下了深刻的印象，給予我極大的鼓舞，這對于我以后的工作和學習都有一種巨大的幫助。首先要特別感謝我的指導老師方建文老師，自畢業(yè)設計開始以來，方老師一直給我極大的幫助和耐心的指導，并提出了許多寶貴的意見。 提高是有限的但提高也是全面的，正是這一次設計讓我積累了無數(shù)實際經(jīng)驗，使我的頭腦更好的被知識武裝了起來，也必然會讓我在未來的工作學習中表現(xiàn)出更高的應變能力，更強的溝通力和理解力。各種系統(tǒng)的適用條件，各種設備的選用標準，各種色彩的合理選擇，我都是隨著設計的不斷深入而不斷熟悉并學會應用的。這是我們都希望看到的也正是我們進行畢業(yè)設計的目的所在。, , adExecuteNoRecords = = = MsgBox 刪除成功, , 系統(tǒng)提示End IfUnload MeEnd Sub 實現(xiàn)每周一次的功能 每周一記 記錄結果相應設計代碼txtDate = Format(Date, YYYYMMdd) Exit SubCase Else strTmp = goDiarys(giCurrentRecord).fldMemo txtDate = goDiarys(giCurrentRecord).fldDate = False strTmp = Trim(strTmp) txtMemo = strTmpEnd SelectEnd SubPrivate Sub txtDate_KeyPress(KeyAscii As Integer)If KeyAscii = 48 And KeyAscii = 57 ThenElseIf KeyAscii = 8 ThenElseIf KeyAscii = Asc() ThenElseKeyAscii = 0End IfEnd SubPrivate Sub txtMemo_Change() = Len() amp。 39。 amp。 39。 amp。 39。 amp。 的資產記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK Then39。 名稱為 amp。 公寓為 amp。, , adExecuteNoRecords = = = MsgBox 刪除成功, , 系統(tǒng)提示End IfUnload MeEnd Sub（4）資產記錄刪除 公寓資產刪除 刪除結果相應設計部分代碼Private Sub Command1_Click()On Error Resume NextDim sql As StringDim s As StringDim panduan As BooleanIf = And = And = ThenMsgBox 請輸入刪除條件!, , 提示Exit SubEnd Ifs = If (MsgBox(你真的想刪除日期為 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 amp。 amp。 amp。 amp。 39。 Trim() amp。and 姓名=39。 Trim() amp。and 寢室=39。 Trim() amp。and 公寓=39。 Trim(s) amp。 的請假記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK Then delete from qingjia where 日期=39。 姓名為 amp。 寢室為 amp。 公寓為 amp。If (MsgBox(你真的想刪除日期為 amp。 amp。and 寢室=39。 amp。and 公寓=39。 Trim(s) amp。sql = delete * from qingjia where 日期=39。 39。 Trim() amp。and 寢室=39。 Trim() amp。and 公寓=39。 Trim(s) amp。 的記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK Then delete from weisheng where 日期=39。 寢室為 amp。 公寓為 amp。 datasource.CommandType = adCmdText.RecordSource = sql.RefreshEnd WithSet = Adodc2End IfCall dx1Unload MeEnd Sub(1)衛(wèi)生記錄刪除 衛(wèi)生記錄刪除 刪除結果相應設計部分代碼Private Sub Command1_Click()On Error Resume NextDim sql As StringDim s As StringDim panduan As BooleanIf = And = And = ThenMsgBox 請輸入刪除條件!, , 提示Exit SubEnd Ifs = If (MsgBox(你真的想刪除日期為 amp。 。 39。 amp。 amp。 datasource.CommandType = adCmdTable.RecordSource = qingjia.RefreshEnd Withs = select distinct 日期 from qingjiaWith Adodc2.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 amp。With Adodc3.Mode = adModeReadWrite.ConnectionString = provider amp。 Trim(s) amp。 datasource.CommandType = adCmdTable.RecordSource = weigui.RefreshEnd With = Date = FalseEnd Sub（3） 請假記錄相應設計代碼Private Sub Command1_Click()On Error Resume NextDim sql As StringDim s As Strings = If = True ThenSet = Adodc1ElseIf = True Thensql = select * from qingjia where 日期=39。 。 amp。 amp。With Adodc3.Mode = adModeReadWrite.ConnectionString = provider amp。 Trim(s) amp。If = True ThenMsgBox 查無此寢室, , 提示Exit SubEnd IfIf = Or = Or = Or = Or = Then MsgBox 請輸入詳細信息！, , 系統(tǒng)提示ElseWith Adodc2..(0).Value = .(1).Value = .(2).Value = .(3).Value = .(4).Value = .(5).Value = .(6).Value = .(7).Value = .(8).Value = .(9).Value = .(10).Value = .(11).Value = .End WithSet = Adodc2End IfEnd Sub實現(xiàn)對公寓資產添加記錄的功能相應設計代碼Private Sub Command1_Click()On Error Resume NextIf = Or = Or = Then MsgBox 請輸入詳細信息！, , 提示ElseWith Adodc1..(0).Value = .(1).Value = .(2).Value = .(3).Value = .(4).Value = .(5).Value = .(6).Value = .(7).Value = .End WithSet = Adodc1 = = = = = = End IfEnd Sub實現(xiàn)對衛(wèi)生檢查結果、違規(guī)情況、請假、資產進行記錄的功能（1） 衛(wèi)生記錄相應設計代碼Private Sub Command1_Click()On Error Resume NextDim sql As StringDim s As Strings = If = True ThenSet = Adodc1ElseIf = True Thensql = select * from weisheng where 日期=39。 amp。If = True ThenMsgBox 查無此公寓, , 提示Exit SubEnd If 寢室=39。 amp。實現(xiàn)對衛(wèi)生檢查標準添加的功能添加檢查記錄相應代碼Private Sub Command1_Click()On Error Resume Next 公寓名稱=39。輸出：主控制平臺。（5）如果輸入的用戶名和密碼正確，則允許該用戶進入系統(tǒng)。（3）從用戶信息表中檢查是否有相應的用戶名和密碼。輸入：用戶名 密碼處理：（1）用戶登錄窗體啟動。完成后設置主頁面屬性，將“Caption”命名為“宿舍管理系統(tǒng)”；通過“Picture”屬性，對主界面的背景進行設置；調整主界面大小，并設置“WindowState”屬性為“2Mixmized”,并將頁面調整到屏幕的中央。并將新窗體保存為“main”。對窗體的屬性進行設置，登錄界面添加 “某某學?！弊謽印＞唧w設置是：選擇“工程”里的“添加窗體”，選擇“登錄對話框”，保存為“frmlogin”。選擇“文件”菜單中的“新建”項，在“新建”子菜單中，選擇“Microsoft Access”子菜單中“Version MDB”，在創(chuàng)建數(shù)據(jù)庫對框中選擇保存數(shù)據(jù)庫的路徑和庫文件名（XS）后保存?！翱梢暬瘮?shù)據(jù)管理器”建立數(shù)據(jù)庫以及其中的數(shù)據(jù)表。用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫結構能充分滿足各種信息的輸出和輸入。合理的數(shù)據(jù)庫結構設計可以提高數(shù)據(jù)存儲的效率，保證數(shù)據(jù)的完善和一致。但是，這兩部分都調用的是同一數(shù)據(jù)庫，只不過內部管理人員能實現(xiàn)所有管理功能，而外部用戶訪問數(shù)據(jù)庫時，一些功能被屏蔽，只能進行查閱。因為此維護管理系統(tǒng)應用界面較簡單，功能較單一，所以用一個綜合的數(shù)據(jù)庫就能滿足管理要求