【導讀】從原來的人工記錄管理模式轉變?yōu)殡娔X一體化管理。高校是科研的陣地，后勤的公寓管理。也應該一改傳統(tǒng)的人工管理，更加信息化，時代化，節(jié)省人力物力，提高效率。學生公寓管理軟件，是以高校的管理方式為實例而設計的一種實用型管理系統(tǒng)。統(tǒng)最大的特點是通用性、簡單操作性，適用于同行業(yè)以及一些同類型的企業(yè)管理。況查詢，可以更快地了解到每個學生的住宿情況,使公寓的管理效率更高，做的更好！

　　

【正文】 ①學生請假記錄圖片顯示 如圖 410 所示。 圖 410學生請假效果圖 ②界面制作與實現 此界面主要是對學生請假記錄做一個添加。利用它可以把學生的基本的請假資料保存起來。其中的日期是系統(tǒng)當前的日期，它是不可以進行更改的，然后在其它文本框中輸入其它詳細資料即可以。這里的添加操作用的是 Adodc 控件，所有的文本框在初始的時候沒有同 Adodc 綁定，而是在代碼中與數據庫中表的字 段進行的綁定，然后進行添加操作。這樣做在使用的時候有很大的方便之處。第一是窗體在初始化時不會顯示任何記錄，不用設置文本框為空等一系列的操作。第二是當進行記錄輸入時，發(fā)現問題不用輸入時，不按添加按鈕記錄就不會進行添加。注意的是，在添加前要確定所有的文本框都要進行詳細填寫，否則會提示輸入詳細信息。添加主要代碼如下： 學生公寓管理信息系統(tǒng) 26 If = Or = Or = Or = Or = Or = Or = Or = Or = Then MsgBox 請輸入詳細信息！ , , 系統(tǒng)提示 Else With Adodc1 . .(0).Value = .(1).Value = .(2).Value = .(3).Value = .(4).Value = .(5).Value = .(6).Value = .(7).Value = .(8).Value = . End With Set = Adodc1 End If ①學生違規(guī)記錄圖片顯示 如圖 411 所示。 圖 411 學生違規(guī)效果圖 27 此界面與上面的請假記錄差不多。它主要是對學生的違規(guī)記錄做一個添加。其中的日期也是系統(tǒng)當前的日期，它是不可以進行更改的，然后在其它文本框中輸入其它詳細資料即可以這里的違規(guī)操作用的也是 Adodc 控件，所有的文本框在初始的 時候也沒有同 Adodc綁定，它也是在代碼中與數據庫中表的字段進行的綁定，然后進行添加操作。其它操作同上面基本是一致的，對于違規(guī)在主界面的左側并沒有快速顯示操作，只可以用記錄查看里面的違規(guī)查看進行選擇查看。在這里所添寫的記錄也要全面一些，主要是為了以后查找更為方便，如果不全，系統(tǒng)會提示的！ 公寓衛(wèi)生可以說是一個公寓管理中最常見到的問題了。公寓衛(wèi)生每天要清掃，寢室衛(wèi)生每天要檢查，但是如果這些都用紙來進行填寫，一定會十分麻煩，且保存也不是十分方便，在一些評比中也會忙的很遭。所以在這個軟件中編寫了此 功能。 公寓衛(wèi)生添加效果圖 公寓衛(wèi)生添加效果圖如圖 412 所示。 圖 412 公寓衛(wèi)生添加效果圖 ①在這個界面中主要用到了文本框以及起到美觀作用的 frame 控件。 日期已經設置成只讀屬性，檢查記錄的日期是不能隨便改寫的。公寓名稱可以在下拉列表框中進行選擇，如果在下拉列表框中沒有發(fā)現，可以人工輸入，但是要確定公寓名稱的正確性。寢室名稱需要自己輸入。這里的衛(wèi)生標準一共有五項可以填寫，在每一項里已經基本設置了所不全標準的記錄，你可以在下拉列表框中進行選擇即可， 但是如果沒有你學生公寓管理信息系統(tǒng) 28 想輸入的記錄的話，你也可以自己輸入。輸入完成后，在減分后面的文本框中輸入一共要對此寢室減掉的分數，單擊得分后面的文本框會自動算出應該得到的分數。然后跟據得分的分數，你要選擇該寢室的衛(wèi)生等級，衛(wèi)生等級為必選值且為固定值，正確的選擇此項可以在主界面的左側中快速對衛(wèi)生等級進行查看。 ②公寓選擇欄中代碼的實現： Dim I As Integer I = 1 If 0 Then Do While I ((公寓名稱 )) I = I + 1 Loop End If 衛(wèi)生選擇欄中的代碼實現基本同上，它也是一個表中的字段值！ 由于此窗體中涉及到公寓與寢室，在填寫時要確定其名稱的正確，所以在添加記錄前要對它們進行檢查，如發(fā)現不存在的記錄，則顯示提示。檢查記錄時用的是 adodc 中的 find命令。類似于用戶登錄時的判斷，同樣記錄的輸入也要詳 細。確認一切無誤后，開始對所填寫記錄進行添加并顯示： With Adodc2 . .(0).Value = .(1).Value = .(2).Value = .(3).Value = .(4).Value = .(5).Value = .(6).Value = .(7).Value = .(8).Value = .(9).Value = 29 .(10).Value = .(11).Value = . End With Set = Adodc2 公寓資產 公寓資產可以及時對公寓里進出財務進行統(tǒng)計，以免遺忘，造成不必要的損失或不必要的麻煩，它的實現方法基本同上面的衛(wèi)生記錄的添加，相對比來說比上面的簡單一些。不足的是目前只做出了入庫管理，對于出庫記錄還沒有實現。 圖 413 公寓資產添加效果圖 日期的設置同上面一樣，只讀屬性。公寓名稱與寢室名稱要人工輸入，沒有選擇，這是因為考慮到它不會像衛(wèi)生記錄那樣每天要添加一次，每次要添加很多，所以為了減少系統(tǒng)進程，它沒有使用 bo，沒有在窗體中進行加載。窗體中的數量與單價在填寫之后會自動把總價格計算出來，類似于上圖中的得分一樣。部分代碼如下： If = “” Or = “” Or = “” Then MsgBox “請輸入詳細信息！ ”, , “提示 ” Else With Adodc1 . 學生公寓管理信息系統(tǒng) 30 .(0).Value = .(1).Value = .(2).Value = .(3).Value = .(4).Value = .(5).Value = .(6).Value = .(7).Value = . End With Set = Adodc1 = “” = “” = “” = “” = “” = “” End If 記錄查看可以讓你對已錄入的記錄進行各種符合條件的查找，顯示符合條件的記錄。這里主要包括四個方面的查看：衛(wèi)生查看、請假查看、違規(guī)查看、資產查看。下面分別介紹。 衛(wèi)生查看 ①界面效果圖 如圖 414 所示。 圖 414 衛(wèi)生查看效果圖 31 ②界面制作與實現方法 這是一個比較簡單的窗體操作?？雌饋砭?、小巧。它主要的功能是對已經錄入的衛(wèi)生記錄進行符合條 件的查詢。在查詢類別中選擇可以選擇全部查看以及按日期查看。查看全部即顯示所有記錄，選擇按日期查看后在下面的列表框中選擇所要查看的日期，點擊確定后即可以看到該日期的記錄。 在進行查詢前，要對所操作的表進行綁定，日期后面的下拉列表框中可以顯示出所有已經錄入記錄的日期，它是通過對當前表進行分類查詢后得到的結果，然后將其添加在bo 中，查看全部，即把當前表中的記錄全部賦給當前用來顯示的表格，按日期查看，則是在表中先進行查詢，然后對結果進行重綁定，再賦值。它們的判斷主要是通過單選框的選取來完成的，實現方法如下： s = If = True Then Set = Adodc1 ElseIf = True Then sql = select * from weisheng where 日期 =39。 amp。 Trim(s) amp。 39。 With Adodc3 .Mode = adModeReadWrite .ConnectionString = provider amp。 。 amp。 datasource .CommandType = adCmdText .RecordSource = sql .Refresh End With Set = Adodc3 End If Unload Me 在記錄查看中還有其它三項查看方式，分別是請假、違規(guī)、資產三項記錄查看。它們的實現方法與窗體與上面的衛(wèi)生查看基本相同。 學生公寓管理信息系統(tǒng) 32 刪除是一個數據庫軟 件中最基本的操作之一。在本軟件的工具欄中也有一個刪除按鈕，其功能也是將所找到的記錄刪除，但是它每次只能刪除一條記錄，且此刪除記錄的前提是在右側的顯示中容易找出，即記錄不多的情況下使用。如果一旦數據記錄很多，一條條查找比較不方便時，即可以使用此窗體進行刪除。這里的刪除也有四個窗體，分別為衛(wèi)生刪除、請假刪除、違規(guī)刪除、資產刪除。下面分別介紹。 衛(wèi)生刪除 ①效果圖 如圖 415 所示。 圖 415 衛(wèi)生刪除效果圖 ②界面制作與實現方法 這個界面總體來說各個控件比較簡單，但是作為一個刪除操作，它 已經連接到了數據庫，與數據庫的表相聯(lián)。且有三種刪除記錄方式可以選擇。 默認為單條刪除，選擇此項后需要在日期中選擇所刪除記錄的添加日期，以及所在的公寓與寢室，當這三條全部符合要求后，在表中進行查找，找到后確認刪除。選擇批量刪除后，在下面只有一個日期可以選擇，這樣將會把所選日期內的所有記錄都將刪除掉，所以稱其為批量刪除。全部即是把當前表清空，全部刪除掉，建議使用此操作前對當前數據庫進行備份處理，否則數據將不會恢復。首先要進行數據庫連接，接下來要對本窗體中的日期進行加載，在單條刪除前要確定所有條件符合要求，單條刪 除操作的代碼主要部分如下： If (MsgBox(你真的想刪除日期為 amp。 amp。 公寓為 amp。 amp。 寢室為 amp。 amp。 的記錄嗎？ , vbOKCancel, 系統(tǒng)提示 )) = vbOK Then 33 delete from weisheng where 日期 =39。 amp。 Trim(s) amp。 39。and 公寓 =39。 amp。 Trim() amp。 39。and 寢室 =39。 amp。 Trim() amp。 39。 39。, , adExecuteNoRecords = = = MsgBox 刪除成功 , , 系統(tǒng)提示 End If Unload Me ①效果圖 如圖 416 所示。 圖 416請假記錄刪除效果圖 ②界面制作與 實現方法 這個窗體與上面不同的是多了一個姓名條件，其它的都基本一致。由于在一個公寓中會有很多人要得名，但是在某一公寓某一寢室中只會有一個人，這也是一個公寓分配住宿人員時的基本標準，因為這樣也便于公寓本身的管理。此刪除窗體只有單條刪除與上面不同，代碼與衛(wèi)生刪除相似，在此不在一一列舉。 違規(guī)刪除 ①效果圖 如圖 417 所示 。 學生公寓管理信息系統(tǒng) 34 圖 417 違規(guī)記錄刪除效果圖 ②界面制作與實現方法 違規(guī)刪除操作與請假刪除操作基本一致，不同之處只是在于后臺對不同的表進行處理，前臺界面大體相同。其實現方法與上現的也差不 太多，這里就不在敘述。 成批刪除記錄： If (MsgBox(你真的想刪除日期為 amp。 amp。 的記錄嗎？ , vbOKCancel, 系統(tǒng)提示 )) = vbOK Then delete from weigui where 日期 =39。 amp。 Trim() amp。 39。 = MsgBox 刪除成功 , , 系 統(tǒng)提示 End If Unload Me 刪除所有記錄： If (MsgBox(你真的想刪除所有的記錄嗎？一旦刪除即不可恢復 , vbOKCancel, 系統(tǒng)提示)) = vbOK Then For I = 1 To Next I End If MsgBox 刪除成功 , , 系統(tǒng)提示 Unload Me 35 資產刪除 ①效果圖 如 圖 418 所示。 圖 418 資產刪除效果圖 ②界面制作與實現方法 與衛(wèi)生記錄刪除不同的是寢室改為了名稱。值得注意的是，此處公寓與名稱都要人工輸入，所以在輸入的時候要注意不要有多余字符，否則會出錯刪除不掉的情況。 值班記錄這項可以說是此軟件的一個新增功能。它的界面小巧，并且它可以讓值班人員記錄前天發(fā)生的一些事情，字數在 1000 字左右?？梢哉f是一個小型的日記本。 值班記錄 ①值班記錄效果圖 如圖 419 所示。 圖 419 值班記錄 效果圖 ②實現思想與功能 此窗體的功能以及其源代碼是經過修改之后而形成的，源文件是一個電子記事本，發(fā)學生公寓管理信息系統(tǒng) 36 現后經過修改后做出一個日記本。 在上面的日期后面的文本框中，你可以輸入如窗口標題后面所示的日期格式后，點擊查看，即可以查看到所選日期的詳細記錄。這是一種查詢方法，當然你也可以用右面簡單的上一條與下一條進行快速查看，但是它只能查看當日日期起開始的記錄，如果與你所想要查看的日期相差很遠，那么你就需要使用第一種方法了。 這個日記本還支持修改與刪除功能。當你想編輯