【導(dǎo)讀】在各高校擴(kuò)大招生的形勢(shì)下,公寓管理的工作變得越來(lái)越繁重。采用傳統(tǒng)的人工管理模。式，效率低下，不能滿足實(shí)際的需求。本系統(tǒng)的主要功能包括：住宿人員的信息查詢、出入登記、學(xué)生收費(fèi)、以及對(duì)學(xué)生住。宿情況的查詢，可以更快地知道每個(gè)學(xué)生的住宿情況，使公寓的管理效率更高。與開(kāi)發(fā)采用服務(wù)器/客戶機(jī)的系統(tǒng)結(jié)構(gòu)模式，使用Delphi開(kāi)發(fā)工具開(kāi)發(fā)，應(yīng)用SQLServer2020. 數(shù)據(jù)庫(kù)管理系統(tǒng)，通過(guò)ADO連接數(shù)據(jù)庫(kù)。公寓管理系統(tǒng)的設(shè)計(jì)和技術(shù)實(shí)現(xiàn)的過(guò)程，特別在細(xì)節(jié)上分析功能和函數(shù)的實(shí)現(xiàn)思想。學(xué)生公寓管理的基本功能在本論文中都有相應(yīng)的描述。

　　

【正文】 //創(chuàng)建空數(shù)據(jù)集 ADOQuery:=。 //得到公寓信息數(shù)據(jù)集 //判斷數(shù)據(jù)集是否為空，若空則退出 if 1 then begin ADOQuery:=nil。 exit。 end。 。 //將數(shù)據(jù)集中的內(nèi)容循環(huán)寫(xiě)入 ComboBox while(not ) do begin ([39。公寓號(hào) 39。])。 。 end。 :=0。 ADOQuery:=nil。 end。 在輸入條件時(shí)，在“公寓號(hào)”下拉框中選擇公寓樓 號(hào)或者“全部”，寢室管理窗體內(nèi)將顯示相應(yīng)所有寢室的信息； 每次在“公寓號(hào)”下拉框中選擇，程序都會(huì)調(diào)用顯示寢室信息的函數(shù)，用來(lái)顯示 相應(yīng) 的信息?！安檎摇庇脕?lái)查找特定寢室信息，所以在單 擊“查找”按鈕時(shí)，程序上方的寢室號(hào)文本框中必須填入要查找的寢室號(hào) ，否則程序會(huì)彈出信息“請(qǐng)輸入相應(yīng)的寢室號(hào)”， 在“ 寢室號(hào)”中輸入寢室號(hào)，單擊“查找”，就可以 顯示該寢室信息。 根據(jù)不同的需要，定義了不動(dòng)的函數(shù)來(lái)顯示數(shù)據(jù) //填充 所有 數(shù)據(jù) ：獲得所有數(shù)據(jù)并填充到窗體中的數(shù)據(jù)顯示控件中 procedure FillData。 //根據(jù)公寓號(hào) 填 充數(shù)據(jù) ：根據(jù)選定的公寓樓號(hào)顯示寢室信息 。 procedure FillDataByHouseID(houseID:string)。 //填充公寓號(hào) ：在“公寓樓”下拉框中顯示公寓樓信息 procedure FillHouseID。 //填充查找用公寓號(hào) ：在“公寓樓號(hào)”下拉框中顯示公寓號(hào)數(shù)據(jù) procedure FillHouseIDForSearch。 課件之家精心整理資料 歡迎你的欣賞 第 25 頁(yè) 共 37 頁(yè) 空床統(tǒng)計(jì)窗體設(shè)計(jì) 空床 統(tǒng)計(jì)窗體命名為 frm_room_nouse（如圖 56） 圖 56 空床統(tǒng)計(jì)窗體 空床統(tǒng)計(jì) 是為了讓用戶更加直觀地 看到所有公寓里寢室的空床數(shù)量，這樣可以方便用戶進(jìn)行學(xué)生入住安排，如果學(xué)生要求換寢室，或者學(xué)生在上學(xué)期走讀，這學(xué)期需要住宿的時(shí)候 ，這個(gè)空床統(tǒng)計(jì)可以幫助用戶快速找到空床，替學(xué)生安排入住。 該窗體使用了函數(shù) FillHouseIDForSearch 從公寓信息表中 為公寓號(hào)下拉框填充數(shù)據(jù)。 該窗體從寢室信息，學(xué)生信息兩張表中，利用 SQL 語(yǔ)句 對(duì)所有寢室的空床數(shù)進(jìn)行了統(tǒng)計(jì)， SQL 語(yǔ)句如下： if(houseNo=39。全部 39。) then sql:=39。SELECT , , ISNULL( , ) AS 空床數(shù) 39。+ 39。 FROM 寢室信息 a LEFT OUTER JOIN 39。+ 39。 (SELECT COUNT(*) 已住人數(shù) , 公寓號(hào) , 寢室號(hào) FROM 學(xué)生信息 39。+ 39。 GROUP BY 寢室號(hào) , 公寓號(hào) ) b ON = AND = b.寢室號(hào) 39。 else sql:=39。SELECT , , ISNULL( 數(shù) , ) AS 空床數(shù) 39。+ 39。 FROM (SELECT * FROM 寢室信息 WHERE 公寓號(hào) = +39。+39。39。39。39。+houseNo+39。39。39。39。+ 39。) a LEFT OUTER JOIN 39。+ 39。 (SELECT COUNT(*) 已住人數(shù) , 公寓號(hào) , 寢室號(hào) FROM 學(xué)生信息 39。+ 課件之家精心整理資料 歡迎你的欣賞 第 26 頁(yè) 共 37 頁(yè) 39。 GROUP BY 寢室號(hào) , 公寓號(hào) ) b ON =39。+ 39。39。39。39。+houseNo+39。39。39。39。+39。 AND = 39。 在查詢條件“公寓號(hào)”每 次改變時(shí) ，程序會(huì)自動(dòng) 調(diào)用函數(shù)，根據(jù)用戶的選擇，重新計(jì)算空床數(shù) ，并且總計(jì)個(gè)數(shù)也會(huì)隨之改變。 學(xué)生基本信息管理模塊 學(xué)生基本信息管理模塊功能： ? 添加學(xué)生基本信息記錄。 ? 編輯學(xué)生基本信息。 ? 刪除學(xué)生基本信息記錄。 ? 查找學(xué)生記錄。 學(xué)生信息窗體設(shè)計(jì) 學(xué)生信息窗體命名為 frm_student，繼承了父窗體 frm_info。（如圖 57） 圖 57 學(xué)生信息窗體設(shè)計(jì) 用戶在添加學(xué)生信息時(shí)，程序會(huì)識(shí)別用戶填寫(xiě)的信息是否 完整，當(dāng)學(xué)號(hào)、姓名、班級(jí)、公寓號(hào)和寢室號(hào)五個(gè)文本框中，有任意一個(gè)沒(méi)有填寫(xiě)，程序都會(huì)彈出信息框來(lái)提醒用戶把信息填寫(xiě)完整。 當(dāng)用戶填寫(xiě)信息完整以后，程序首先會(huì)在學(xué)生信息表中檢測(cè)學(xué)號(hào)是否重復(fù)，因?yàn)閷W(xué)號(hào)是學(xué)生的唯一標(biāo)識(shí)，如果重復(fù)，程序會(huì)提醒用戶。其次程序會(huì)根據(jù)公寓信息表和寢室信息表來(lái)檢測(cè)用戶所填的公寓號(hào)與寢室號(hào)是否存在，如果不存在，程序會(huì)彈出信息框提醒用戶。最后，程序會(huì)根據(jù)用戶所填的公寓號(hào)和寢室號(hào)，從學(xué)生信息表與寢室表中查詢，該寢室的可住人數(shù)，如果寢室人數(shù)已經(jīng)達(dá)到該寢室 可住上限，那么程序會(huì)提醒用戶進(jìn)行修改，以免造成 錯(cuò)誤。在課件之家精心整理資料 歡迎你的欣賞 第 27 頁(yè) 共 37 頁(yè) 用戶修改學(xué)生所住寢室信息的時(shí)候，程序也會(huì)自動(dòng)檢測(cè)。 以下是檢測(cè)寢室是否已經(jīng)到達(dá)人數(shù)上限的代碼： ADOQuery:=(trim(), trim())。 num:=(39。人數(shù) 39。).Value。 :=inttostr(num)。 :=inttostr([39?？勺∪藬?shù) 39。])。 if = then begin messagebox(handle,39。寢室滿員 39。,39。39。, MB_ICONEXCLAMATION)。 。 exit。 end。 用戶可以根據(jù)查找的三個(gè)條件 專業(yè)、班級(jí)、姓名進(jìn)行組合查詢，可以得到 用戶 所需 要的信息。 如果所選擇的信息的文本框?yàn)榭諘r(shí)，表示對(duì)這個(gè)條件不設(shè)限制，這樣就滿足用戶不同的需求查詢。查詢 的 SQL 語(yǔ)句如下： begin if (studentcourse=39。39。) then s1:=39。 1=1 39。 else s1:=39。 專業(yè) =39。+39。39。39。39。+studentcourse+39。39。39。39。 //專業(yè) if (studentclass=39。39。) then s2:=39。 1=1 39。 else s2:=39。 班級(jí) =39。+39。39。39。39。+studentclass+39。39。39。39。 //根據(jù)交費(fèi)類型 if (studentName=39。39。) then s3:=39。 1=1 39。 else s3:=39。 姓名 =39。+39。39。39。39。+studentName+39。39。39。39。 //根據(jù)寢室號(hào) sql:=39。select id,學(xué)號(hào) ,姓名 ,性別 ,出生日期 ,isnull(專業(yè) ,39。39。39。39。) 專業(yè) ,isnull(班級(jí) ,39。39。39。39。) 班級(jí) ,39。+ 39。isnull(聯(lián)系方式 ,39。39。39。39。) 聯(lián)系方式 ,isnull(公寓號(hào) ,39。39。39。39。) 公寓號(hào) 39。+ 39。,isnull(寢室號(hào) ,39。39。39。39。) 寢室號(hào) ,isnull(備注 ,39。39。39。39。) 備注 from 學(xué)生信息 where39。+ s1+39。 and 39。+s2+39。 and 39。+s3。 來(lái)訪登記管理模塊設(shè)計(jì) 來(lái)登記管理模塊主要功能： ? 添加來(lái)訪記錄。 ? 修改來(lái)訪信息。 ? 刪除來(lái)訪記錄。 ? 查找來(lái)訪記錄。 課件之家精心整理資料 歡迎你的欣賞 第 28 頁(yè) 共 37 頁(yè) 來(lái)訪登記窗體設(shè)計(jì) 來(lái)訪登記窗體命名為 frm_visitInfo，繼承了父窗體 frm_info。（如圖 58） 圖 58 來(lái)訪登記窗體 用戶可以根據(jù)訪問(wèn)狀態(tài)（未結(jié) 束訪問(wèn)，已結(jié)束訪問(wèn)和全部）以及訪問(wèn)時(shí)間進(jìn)行查詢相關(guān)的訪問(wèn)記錄。 訪問(wèn)時(shí)間的默認(rèn)值為系統(tǒng)當(dāng)前時(shí) 間。程序判斷訪問(wèn)狀態(tài)是根據(jù)該訪問(wèn)記錄是否具有訪問(wèn)結(jié)束時(shí)間判斷的 。 本程序?yàn)榱吮Ｗo(hù)公寓內(nèi)的安全，以免有人混進(jìn)公寓，所以對(duì)來(lái)訪人員有著嚴(yán)格的審查制度。當(dāng)來(lái)訪人員要進(jìn)入公寓時(shí)，他必須提供被訪人所在的公寓號(hào)、寢室號(hào)以及姓名方可訪問(wèn)，用戶可以根據(jù)公寓號(hào)，寢室號(hào)的輸入，從被訪者下拉框中看到該寢室所有人的姓名，如果來(lái)訪人提供的信息與用戶看到的不符，則可以禁止他進(jìn)入公寓，這樣就大大提高了公寓的安全性。當(dāng)用戶添加時(shí)，被訪問(wèn)者的文本框只能 由右邊 3 下拉框逐一選擇，最后在被訪者下拉框中確定姓名，此時(shí)，程序 自動(dòng)把姓名添加到被訪問(wèn)者文本框中，無(wú)需用戶自己輸入名字，既方便了用戶也提高了安全性 。 右邊 3 個(gè)下拉框?yàn)閯?dòng)態(tài)組合框 DBLookComboBox，運(yùn)行時(shí)，程序從數(shù)據(jù)庫(kù)中提取公寓樓、寢室和姓名等信息，從而動(dòng)態(tài)產(chǎn)生組合框中的內(nèi)容。在使用動(dòng)態(tài)組合框時(shí)，將屬性ListSource 指向數(shù)據(jù)庫(kù)， Listfield 和 Keyfield 指向顯示字段。對(duì)應(yīng) 部分 代碼如下： begin :=。 [0].Visible :=false。 :=。 :=DataS_house。 :=39。公寓號(hào) 39。 :=39。公寓號(hào) 39。 end。 課件之家精心整理資料 歡迎你的欣賞 第 29 頁(yè) 共 37 頁(yè) begin :=(room)。 :=DataS_room。 :=39。寢室號(hào) 39。 :=39。寢室號(hào) 39。 end。 begin :=(house,room)。 :=DataS_name。 :=39。姓名 39。 :=39。姓名 39。 end。 在這個(gè)窗體中，來(lái)訪時(shí)間，結(jié)束時(shí)間，值班人都是只讀的，不可以修改，這樣是為了保證學(xué)生公寓的安全系數(shù)，來(lái)訪時(shí)間和值班人在添加來(lái)訪記錄時(shí)，程序會(huì) 根據(jù)系統(tǒng)時(shí)間和在登錄時(shí)記下的用戶名自動(dòng) 添加到數(shù)據(jù)庫(kù)中，用戶不能修改 ，結(jié)束時(shí)間則在來(lái)訪人員離開(kāi) 公寓時(shí)，由用戶點(diǎn)擊按鈕便可以把系統(tǒng)時(shí)間添加到結(jié)束時(shí)間中 。如果在某個(gè)時(shí)段，學(xué)生公寓發(fā)生偷竊或者 有 其他意外情況的發(fā)生，用戶則可以 查看當(dāng)天的來(lái)訪人員記錄，進(jìn)行調(diào)查，時(shí)間和值班人不可修改保證了數(shù)據(jù)的真實(shí)性，也提高了學(xué)生公寓的安全性。 當(dāng)來(lái)訪人離開(kāi)公寓時(shí)，用戶只需點(diǎn)擊訪問(wèn)結(jié)束，程序會(huì)自動(dòng)將訪問(wèn)結(jié)束時(shí)間添加到數(shù)據(jù)庫(kù)中去。只有當(dāng)用戶停留在未訪問(wèn)結(jié)束記錄上時(shí)，“訪問(wèn)結(jié)束”按鈕才會(huì)出現(xiàn)，用戶方可進(jìn)行操作。 （如圖 59） 圖 59 來(lái)訪人員訪問(wèn)結(jié)束時(shí)的操作 課件之家精心整理資料 歡迎你的欣賞 第 30 頁(yè) 共 37 頁(yè) 交費(fèi)管理模塊設(shè)計(jì) 交費(fèi)管理模塊主要功能 ? 添加交費(fèi)記錄。 ? 修改交費(fèi)記錄。 ? 刪除交費(fèi)記錄。 ? 查詢交費(fèi)記錄。 ? 收費(fèi)。 ? 設(shè)置費(fèi)用。 費(fèi)用設(shè)置窗體設(shè)計(jì) 費(fèi)用設(shè) 置窗體命名為 frm_feeset（如圖 510） 圖 510 費(fèi)用設(shè)置窗體 為交費(fèi)提供支持，管理員可以在此添加 、修改、刪除 收費(fèi)項(xiàng)目和價(jià)格， 程序提供了兩種收費(fèi)方式 ，一 種按單位，即這個(gè)項(xiàng)目有單價(jià)，在結(jié)算的時(shí)候只要輸入單位個(gè)數(shù) ， 程序會(huì)自動(dòng)相乘，計(jì)算出 相應(yīng)的價(jià)格。 另一種是按寢室，即單一價(jià) ，每項(xiàng) 費(fèi)用對(duì)每一個(gè)寢室統(tǒng)一標(biāo)價(jià)，這樣體現(xiàn)了收費(fèi)的靈活性，也減輕了用戶 在收費(fèi)時(shí)的工作量。 課件之家精心整理資料 歡迎你的欣賞 第 31 頁(yè) 共 37 頁(yè) 交費(fèi)管理窗體設(shè)計(jì) 交費(fèi)管理窗體命名為 frm_fee，繼承了父窗體 frm_info（如圖 511） 圖 511 交費(fèi)管理窗體 在用戶添加交費(fèi)信息時(shí)，程序會(huì)自動(dòng)檢測(cè)公寓號(hào)、寢室號(hào) 、交費(fèi)類型、金額是否填寫(xiě)，如果其中一項(xiàng)未填寫(xiě)，程序會(huì)提醒用戶，然后還會(huì)檢測(cè)所填寫(xiě)的寢室號(hào)在寢室信息表里是否有對(duì)應(yīng)記錄。 當(dāng)用 戶 在使用本功能前， 首先把 學(xué)生 需要 交的費(fèi)用輸入進(jìn)去，在計(jì)算 需要交多少費(fèi)用時(shí)，通過(guò)交費(fèi)類型，程序會(huì)自動(dòng)根據(jù)費(fèi)用設(shè)置表來(lái)判定該 費(fèi)用項(xiàng)目的種類，如果是按單位的，則用戶只需輸入度數(shù)，點(diǎn)擊計(jì)算，金額會(huì)自動(dòng)填入文本框， 如果是按寢室的則費(fèi)用會(huì)自動(dòng)填入，這樣就方便了用戶計(jì)算交 費(fèi)金額了，再輸入完以后，程序會(huì)自動(dòng)檢測(cè)用戶輸入的內(nèi)容，如果用戶遺 漏了寢室號(hào)或者金額，程序會(huì)彈出信息框提醒用戶。 當(dāng)用戶輸入完交費(fèi)信息后，就可以收費(fèi)了，當(dāng)收費(fèi)好以后， 只要停留在未交費(fèi)的記錄上，程序會(huì)出現(xiàn)“交費(fèi)”按鈕， 只 要點(diǎn)擊收費(fèi)，則完成了收費(fèi)。程序會(huì)自動(dòng)把收費(fèi)時(shí)間添加到數(shù)據(jù)庫(kù)中去，收費(fèi)時(shí)間為系統(tǒng)當(dāng)前時(shí)間，而且一旦收費(fèi)成功，收費(fèi)時(shí)間是不