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

　　

【正文】 ①學(xué)生請(qǐng)假記錄圖片顯示 如圖 410 所示。 圖 410學(xué)生請(qǐng)假效果圖 ②界面制作與實(shí)現(xiàn) 此界面主要是對(duì)學(xué)生請(qǐng)假記錄做一個(gè)添加。利用它可以把學(xué)生的基本的請(qǐng)假資料保存起來(lái)。其中的日期是系統(tǒng)當(dāng)前的日期，它是不可以進(jìn)行更改的，然后在其它文本框中輸入其它詳細(xì)資料即可以。這里的添加操作用的是 Adodc 控件，所有的文本框在初始的時(shí)候沒(méi)有同 Adodc 綁定，而是在代碼中與數(shù)據(jù)庫(kù)中表的字 段進(jìn)行的綁定，然后進(jìn)行添加操作。這樣做在使用的時(shí)候有很大的方便之處。第一是窗體在初始化時(shí)不會(huì)顯示任何記錄，不用設(shè)置文本框?yàn)榭盏纫幌盗械牟僮鳌５诙钱?dāng)進(jìn)行記錄輸入時(shí)，發(fā)現(xiàn)問(wèn)題不用輸入時(shí)，不按添加按鈕記錄就不會(huì)進(jìn)行添加。注意的是，在添加前要確定所有的文本框都要進(jìn)行詳細(xì)填寫，否則會(huì)提示輸入詳細(xì)信息。添加主要代碼如下： 學(xué)生公寓管理信息系統(tǒng) 26 If = Or = Or = Or = Or = Or = Or = Or = Or = Then MsgBox 請(qǐng)輸入詳細(xì)信息！ , , 系統(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 ①學(xué)生違規(guī)記錄圖片顯示 如圖 411 所示。 圖 411 學(xué)生違規(guī)效果圖 27 此界面與上面的請(qǐng)假記錄差不多。它主要是對(duì)學(xué)生的違規(guī)記錄做一個(gè)添加。其中的日期也是系統(tǒng)當(dāng)前的日期，它是不可以進(jìn)行更改的，然后在其它文本框中輸入其它詳細(xì)資料即可以這里的違規(guī)操作用的也是 Adodc 控件，所有的文本框在初始的 時(shí)候也沒(méi)有同 Adodc綁定，它也是在代碼中與數(shù)據(jù)庫(kù)中表的字段進(jìn)行的綁定，然后進(jìn)行添加操作。其它操作同上面基本是一致的，對(duì)于違規(guī)在主界面的左側(cè)并沒(méi)有快速顯示操作，只可以用記錄查看里面的違規(guī)查看進(jìn)行選擇查看。在這里所添寫的記錄也要全面一些，主要是為了以后查找更為方便，如果不全，系統(tǒng)會(huì)提示的！ 公寓衛(wèi)生可以說(shuō)是一個(gè)公寓管理中最常見(jiàn)到的問(wèn)題了。公寓衛(wèi)生每天要清掃，寢室衛(wèi)生每天要檢查，但是如果這些都用紙來(lái)進(jìn)行填寫，一定會(huì)十分麻煩，且保存也不是十分方便，在一些評(píng)比中也會(huì)忙的很遭。所以在這個(gè)軟件中編寫了此 功能。 公寓衛(wèi)生添加效果圖 公寓衛(wèi)生添加效果圖如圖 412 所示。 圖 412 公寓衛(wèi)生添加效果圖 ①在這個(gè)界面中主要用到了文本框以及起到美觀作用的 frame 控件。 日期已經(jīng)設(shè)置成只讀屬性，檢查記錄的日期是不能隨便改寫的。公寓名稱可以在下拉列表框中進(jìn)行選擇，如果在下拉列表框中沒(méi)有發(fā)現(xiàn)，可以人工輸入，但是要確定公寓名稱的正確性。寢室名稱需要自己輸入。這里的衛(wèi)生標(biāo)準(zhǔn)一共有五項(xiàng)可以填寫，在每一項(xiàng)里已經(jīng)基本設(shè)置了所不全標(biāo)準(zhǔn)的記錄，你可以在下拉列表框中進(jìn)行選擇即可， 但是如果沒(méi)有你學(xué)生公寓管理信息系統(tǒng) 28 想輸入的記錄的話，你也可以自己輸入。輸入完成后，在減分后面的文本框中輸入一共要對(duì)此寢室減掉的分?jǐn)?shù)，單擊得分后面的文本框會(huì)自動(dòng)算出應(yīng)該得到的分?jǐn)?shù)。然后跟據(jù)得分的分?jǐn)?shù)，你要選擇該寢室的衛(wèi)生等級(jí)，衛(wèi)生等級(jí)為必選值且為固定值，正確的選擇此項(xiàng)可以在主界面的左側(cè)中快速對(duì)衛(wèi)生等級(jí)進(jìn)行查看。 ②公寓選擇欄中代碼的實(shí)現(xiàn)： Dim I As Integer I = 1 If 0 Then Do While I ((公寓名稱 )) I = I + 1 Loop End If 衛(wèi)生選擇欄中的代碼實(shí)現(xiàn)基本同上，它也是一個(gè)表中的字段值！ 由于此窗體中涉及到公寓與寢室，在填寫時(shí)要確定其名稱的正確，所以在添加記錄前要對(duì)它們進(jìn)行檢查，如發(fā)現(xiàn)不存在的記錄，則顯示提示。檢查記錄時(shí)用的是 adodc 中的 find命令。類似于用戶登錄時(shí)的判斷，同樣記錄的輸入也要詳 細(xì)。確認(rèn)一切無(wú)誤后，開(kāi)始對(duì)所填寫記錄進(jìn)行添加并顯示： 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 公寓資產(chǎn) 公寓資產(chǎn)可以及時(shí)對(duì)公寓里進(jìn)出財(cái)務(wù)進(jìn)行統(tǒng)計(jì)，以免遺忘，造成不必要的損失或不必要的麻煩，它的實(shí)現(xiàn)方法基本同上面的衛(wèi)生記錄的添加，相對(duì)比來(lái)說(shuō)比上面的簡(jiǎn)單一些。不足的是目前只做出了入庫(kù)管理，對(duì)于出庫(kù)記錄還沒(méi)有實(shí)現(xiàn)。 圖 413 公寓資產(chǎn)添加效果圖 日期的設(shè)置同上面一樣，只讀屬性。公寓名稱與寢室名稱要人工輸入，沒(méi)有選擇，這是因?yàn)榭紤]到它不會(huì)像衛(wèi)生記錄那樣每天要添加一次，每次要添加很多，所以為了減少系統(tǒng)進(jìn)程，它沒(méi)有使用 bo，沒(méi)有在窗體中進(jìn)行加載。窗體中的數(shù)量與單價(jià)在填寫之后會(huì)自動(dòng)把總價(jià)格計(jì)算出來(lái)，類似于上圖中的得分一樣。部分代碼如下： If = “” Or = “” Or = “” Then MsgBox “請(qǐng)輸入詳細(xì)信息！ ”, , “提示 ” Else With Adodc1 . 學(xué)生公寓管理信息系統(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 記錄查看可以讓你對(duì)已錄入的記錄進(jìn)行各種符合條件的查找，顯示符合條件的記錄。這里主要包括四個(gè)方面的查看：衛(wèi)生查看、請(qǐng)假查看、違規(guī)查看、資產(chǎn)查看。下面分別介紹。 衛(wèi)生查看 ①界面效果圖 如圖 414 所示。 圖 414 衛(wèi)生查看效果圖 31 ②界面制作與實(shí)現(xiàn)方法 這是一個(gè)比較簡(jiǎn)單的窗體操作。看起來(lái)精簡(jiǎn)、小巧。它主要的功能是對(duì)已經(jīng)錄入的衛(wèi)生記錄進(jìn)行符合條 件的查詢。在查詢類別中選擇可以選擇全部查看以及按日期查看。查看全部即顯示所有記錄，選擇按日期查看后在下面的列表框中選擇所要查看的日期，點(diǎn)擊確定后即可以看到該日期的記錄。 在進(jìn)行查詢前，要對(duì)所操作的表進(jìn)行綁定，日期后面的下拉列表框中可以顯示出所有已經(jīng)錄入記錄的日期，它是通過(guò)對(duì)當(dāng)前表進(jìn)行分類查詢后得到的結(jié)果，然后將其添加在bo 中，查看全部，即把當(dāng)前表中的記錄全部賦給當(dāng)前用來(lái)顯示的表格，按日期查看，則是在表中先進(jìn)行查詢，然后對(duì)結(jié)果進(jìn)行重綁定，再賦值。它們的判斷主要是通過(guò)單選框的選取來(lái)完成的，實(shí)現(xiàn)方法如下： 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 在記錄查看中還有其它三項(xiàng)查看方式，分別是請(qǐng)假、違規(guī)、資產(chǎn)三項(xiàng)記錄查看。它們的實(shí)現(xiàn)方法與窗體與上面的衛(wèi)生查看基本相同。 學(xué)生公寓管理信息系統(tǒng) 32 刪除是一個(gè)數(shù)據(jù)庫(kù)軟 件中最基本的操作之一。在本軟件的工具欄中也有一個(gè)刪除按鈕，其功能也是將所找到的記錄刪除，但是它每次只能刪除一條記錄，且此刪除記錄的前提是在右側(cè)的顯示中容易找出，即記錄不多的情況下使用。如果一旦數(shù)據(jù)記錄很多，一條條查找比較不方便時(shí)，即可以使用此窗體進(jìn)行刪除。這里的刪除也有四個(gè)窗體，分別為衛(wèi)生刪除、請(qǐng)假刪除、違規(guī)刪除、資產(chǎn)刪除。下面分別介紹。 衛(wèi)生刪除 ①效果圖 如圖 415 所示。 圖 415 衛(wèi)生刪除效果圖 ②界面制作與實(shí)現(xiàn)方法 這個(gè)界面總體來(lái)說(shuō)各個(gè)控件比較簡(jiǎn)單，但是作為一個(gè)刪除操作，它 已經(jīng)連接到了數(shù)據(jù)庫(kù)，與數(shù)據(jù)庫(kù)的表相聯(lián)。且有三種刪除記錄方式可以選擇。 默認(rèn)為單條刪除，選擇此項(xiàng)后需要在日期中選擇所刪除記錄的添加日期，以及所在的公寓與寢室，當(dāng)這三條全部符合要求后，在表中進(jìn)行查找，找到后確認(rèn)刪除。選擇批量刪除后，在下面只有一個(gè)日期可以選擇，這樣將會(huì)把所選日期內(nèi)的所有記錄都將刪除掉，所以稱其為批量刪除。全部即是把當(dāng)前表清空，全部刪除掉，建議使用此操作前對(duì)當(dāng)前數(shù)據(jù)庫(kù)進(jìn)行備份處理，否則數(shù)據(jù)將不會(huì)恢復(fù)。首先要進(jìn)行數(shù)據(jù)庫(kù)連接，接下來(lái)要對(duì)本窗體中的日期進(jì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請(qǐng)假記錄刪除效果圖 ②界面制作與 實(shí)現(xiàn)方法 這個(gè)窗體與上面不同的是多了一個(gè)姓名條件，其它的都基本一致。由于在一個(gè)公寓中會(huì)有很多人要得名，但是在某一公寓某一寢室中只會(huì)有一個(gè)人，這也是一個(gè)公寓分配住宿人員時(shí)的基本標(biāo)準(zhǔn)，因?yàn)檫@樣也便于公寓本身的管理。此刪除窗體只有單條刪除與上面不同，代碼與衛(wèi)生刪除相似，在此不在一一列舉。 違規(guī)刪除 ①效果圖 如圖 417 所示 。 學(xué)生公寓管理信息系統(tǒng) 34 圖 417 違規(guī)記錄刪除效果圖 ②界面制作與實(shí)現(xiàn)方法 違規(guī)刪除操作與請(qǐng)假刪除操作基本一致，不同之處只是在于后臺(tái)對(duì)不同的表進(jìn)行處理，前臺(tái)界面大體相同。其實(shí)現(xiàn)方法與上現(xiàn)的也差不 太多，這里就不在敘述。 成批刪除記錄： 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(你真的想刪除所有的記錄嗎？一旦刪除即不可恢復(fù) , vbOKCancel, 系統(tǒng)提示)) = vbOK Then For I = 1 To Next I End If MsgBox 刪除成功 , , 系統(tǒng)提示 Unload Me 35 資產(chǎn)刪除 ①效果圖 如 圖 418 所示。 圖 418 資產(chǎn)刪除效果圖 ②界面制作與實(shí)現(xiàn)方法 與衛(wèi)生記錄刪除不同的是寢室改為了名稱。值得注意的是，此處公寓與名稱都要人工輸入，所以在輸入的時(shí)候要注意不要有多余字符，否則會(huì)出錯(cuò)刪除不掉的情況。 值班記錄這項(xiàng)可以說(shuō)是此軟件的一個(gè)新增功能。它的界面小巧，并且它可以讓值班人員記錄前天發(fā)生的一些事情，字?jǐn)?shù)在 1000 字左右?？梢哉f(shuō)是一個(gè)小型的日記本。 值班記錄 ①值班記錄效果圖 如圖 419 所示。 圖 419 值班記錄 效果圖 ②實(shí)現(xiàn)思想與功能 此窗體的功能以及其源代碼是經(jīng)過(guò)修改之后而形成的，源文件是一個(gè)電子記事本，發(fā)學(xué)生公寓管理信息系統(tǒng) 36 現(xiàn)后經(jīng)過(guò)修改后做出一個(gè)日記本。 在上面的日期后面的文本框中，你可以輸入如窗口標(biāo)題后面所示的日期格式后，點(diǎn)擊查看，即可以查看到所選日期的詳細(xì)記錄。這是一種查詢方法，當(dāng)然你也可以用右面簡(jiǎn)單的上一條與下一條進(jìn)行快速查看，但是它只能查看當(dāng)日日期起開(kāi)始的記錄，如果與你所想要查看的日期相差很遠(yuǎn)，那么你就需要使用第一種方法了。 這個(gè)日記本還支持修改與刪除功能。當(dāng)你想編輯