Delphi學(xué)生公寓管理信息系統(tǒng)

1、學(xué)生公寓管理信息系統(tǒng)摘要在各高校擴(kuò)大招生的形勢(shì)下,公寓管理的工作變得越來(lái)越繁重。采用傳統(tǒng)的人工管理模式，效率低下，不能滿足實(shí)際的需求。本文描述的是基于Windows環(huán)境的學(xué)生公寓管理系統(tǒng)，對(duì)學(xué)生公寓管理的需求進(jìn)行了分析。本系統(tǒng)的主要功能包括：住宿人員的信息查詢、出入登記、學(xué)生收費(fèi)、以及對(duì)學(xué)生住宿情況的查詢，可以更快地知道每個(gè)學(xué)生的住宿情況，使公寓的管理效率更高。系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā)采用服務(wù)器/客戶機(jī)的系統(tǒng)結(jié)構(gòu)模式，使用Delphi開(kāi)發(fā)工具開(kāi)發(fā)，應(yīng)用SQL Server2000數(shù)據(jù)庫(kù)管理系統(tǒng)，通過(guò)ADO連接數(shù)據(jù)庫(kù)。本篇論文以一個(gè)學(xué)生公寓管理系統(tǒng)的分析、設(shè)計(jì)和開(kāi)發(fā)的全過(guò)程為主線，給出了學(xué)生公寓管理系統(tǒng)

2、的設(shè)計(jì)和技術(shù)實(shí)現(xiàn)的過(guò)程，特別在細(xì)節(jié)上分析功能和函數(shù)的實(shí)現(xiàn)思想。涉及到學(xué)生公寓管理的基本功能在本論文中都有相應(yīng)的描述。關(guān)鍵字：Delphi，ADO，SQL Server2000，學(xué)生公寓管理STUDENT APARTMENT MANAGEMENTABSTRACTIn the last few years in company with university institution deepening reformation, in many universities student apartments administration work take charge all by logisti

3、cs group. In university enlarged recruit students posture, apartment administration became more and more pettiness. And conventional manual supervising pattern is inefficiency and insatiability for practical wants and needs, connect database through ADO.The architecture of system is client and serve

4、r. The Windows based DM system developed by Delphi and SQL server2000 database tools. This thesis analyzes the requirements of organization and configuration. It mainly includes: The lodgings personnel information inquiry, the difference registration, the students fee, as well the situation to the s

5、tudent and so on the inquiry, may quickly understand each students lodgings situation, causes the apartment the management efficiency high, dose it better.This thesis fully describes the whole process of system design and application details. All most functions of apartment administration are discus

6、sed in the corresponding part of this thesis.Key words: Delphi, ADO, SQL Server2000, Student Apartment management目錄第一章引言11.1課題背景11.2研究與應(yīng)用現(xiàn)狀11.3本文的主要內(nèi)容1第二章相關(guān)技術(shù)介紹22.1 Delphi22.1.1 Delphi特點(diǎn)22.1.2 Delphi722.1.3 Delphi與VB32.2 SQL Server32.2.1 SQL Server 200032.2.2 SQL Server 2000的特點(diǎn)32.3 ADO技術(shù)4第三章需求分析53.1

7、需求分析53.1.1學(xué)生公寓需求簡(jiǎn)介53.1.2功能性需求53.1.3 非功能性需求53.2可行性分析53.2.1經(jīng)濟(jì)可行性53.2.2技術(shù)可行性6第四章總體設(shè)計(jì)74.1總體設(shè)計(jì)目標(biāo)74.2功能模塊設(shè)計(jì)74.3數(shù)據(jù)庫(kù)設(shè)計(jì)84.3.1數(shù)據(jù)流分析84.3.2數(shù)據(jù)建模114.3.3各實(shí)體關(guān)系模型114.3.4數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)13第五章系統(tǒng)詳細(xì)設(shè)計(jì)165.1系統(tǒng)工程框架165.1.1學(xué)生公寓管理系統(tǒng)的模塊：165.1.2 Data 數(shù)據(jù)模塊165.1.3 Common 類模塊165.2系統(tǒng)各模塊詳細(xì)設(shè)計(jì)175.2.1登錄窗體與系統(tǒng)主界面設(shè)計(jì)175.2.3樓房管理模塊設(shè)計(jì)195.2.4寢室管理模塊設(shè)計(jì)

8、225.2.5學(xué)生基本信息管理模塊265.2.6來(lái)訪登記管理模塊設(shè)計(jì)275.2.7交費(fèi)管理模塊設(shè)計(jì)305.2.8系統(tǒng)管理模塊設(shè)計(jì)32第六章學(xué)生公寓管理系統(tǒng)設(shè)計(jì)總結(jié)346.1系統(tǒng)的優(yōu)點(diǎn)346.2系統(tǒng)的局限性346.3畢業(yè)設(shè)計(jì)心得346.4 畢業(yè)設(shè)計(jì)總結(jié)35參考文獻(xiàn)36致謝37第一章 引言21世紀(jì)，人類已全面進(jìn)入數(shù)字信息化社會(huì)，現(xiàn)在信息技術(shù)的應(yīng)用越來(lái)越普及，不但促進(jìn)了社會(huì)的高速發(fā)展，也影響著人們的工作、學(xué)習(xí)、生活和娛樂(lè)的方式以及思想觀念。隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)與技術(shù)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識(shí)，它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域，迅速地改變著人類社會(huì)的生產(chǎn)方式和生活方式，成為減輕人們

9、體力與腦力勞動(dòng)，幫助人們完成一些人們難以完成任務(wù)的有效工具。隨著電腦的普及與使用，現(xiàn)在的管理也提升了一個(gè)檔次，漸漸實(shí)現(xiàn)了無(wú)紙化辦公。高校是科研的陣地，后勤的公寓管理也應(yīng)該一改傳統(tǒng)的人工管理，更加信息化，時(shí)代化，節(jié)省人力物力，提高效率?；谶@一點(diǎn)，開(kāi)發(fā)此學(xué)生公寓管理系統(tǒng)。1.1課題背景高校公寓管理部門在宿管工作中擔(dān)負(fù)著管理，檢查，收費(fèi)，協(xié)調(diào)等重要的管理任務(wù)。住宿安排、水電使用的收費(fèi)、外來(lái)人員訪問(wèn)管理等，所涉及的管理面廣，內(nèi)容多，整個(gè)公寓管理的工作量很大。計(jì)算機(jī)的應(yīng)用為實(shí)現(xiàn)公寓管理科學(xué)化奠定基礎(chǔ)。計(jì)算機(jī)的應(yīng)用推動(dòng)了公寓管理工作向著正規(guī)化、科學(xué)化、自動(dòng)化、現(xiàn)代化的方向發(fā)展。學(xué)生公寓管理系統(tǒng)從學(xué)生的分

10、房到最后的公寓管理全部電腦化。本系統(tǒng)主要包括：住宿人員信息查詢、出入登記、收費(fèi)以及對(duì)學(xué)生住宿情況等的查詢，可以更快地了解到每個(gè)學(xué)生的住宿情況以及這個(gè)學(xué)校寢室分配的情況。使用學(xué)生公寓管理系統(tǒng)，只需一到兩名數(shù)據(jù)操作員即可操作管理系統(tǒng)，節(jié)省大量人力和財(cái)力；可以存儲(chǔ)大量學(xué)生住宿的基本信息，安全、高效、快捷；可以迅速查到所涉及的各種信息；操作簡(jiǎn)單，使用方便、高效；系統(tǒng)使用壽命長(zhǎng)、成本低。這些特點(diǎn)可以極大地提高公寓信息管理的效率。1.2研究與應(yīng)用現(xiàn)狀據(jù)調(diào)查顯示，現(xiàn)在國(guó)內(nèi)絕大多數(shù)學(xué)校的學(xué)生公寓管理還沒(méi)有信息化，主要還是停留在手工管理的形式。這樣，公寓管理的效率就非常低，需要的人力，物力也非常多，所以，盡快開(kāi)

11、發(fā)一套適合各高校的學(xué)生公寓管理系統(tǒng)是非常必要的。1.3本文的主要內(nèi)容本文研究的主要內(nèi)容有：l 學(xué)生公寓管理系統(tǒng)的需求分析l 學(xué)生公寓管理系統(tǒng)開(kāi)發(fā)的相關(guān)技術(shù)l 學(xué)生公寓管理系統(tǒng)的總體設(shè)計(jì)l 系統(tǒng)數(shù)據(jù)庫(kù)的概念設(shè)計(jì)l 系統(tǒng)各模塊的詳細(xì)設(shè)計(jì)l 系統(tǒng)評(píng)價(jià)以及設(shè)計(jì)中碰到的難點(diǎn)第二章 相關(guān)技術(shù)介紹開(kāi)發(fā)數(shù)據(jù)庫(kù)管理信息系統(tǒng)需要兩種工具，即前臺(tái)開(kāi)發(fā)語(yǔ)言和后臺(tái)數(shù)據(jù)庫(kù)。本系統(tǒng)前臺(tái)開(kāi)發(fā)技術(shù)使用Delphi，后臺(tái)數(shù)據(jù)庫(kù)使用SQL Server2000。Delphi靈活方便，與后臺(tái)的SQL Server2000數(shù)據(jù)庫(kù)相結(jié)合，可以提供一個(gè)高性能的學(xué)生公寓管理系統(tǒng)。2.1 DelphiDelphi是Pascal語(yǔ)言的一種版本，

12、但它與傳統(tǒng)的Pascal語(yǔ)言有很大差別。一個(gè)Delphi程序首先應(yīng)是程序框架（Frame），而這一框架正式應(yīng)用程序的“骨架”。在骨架上即使沒(méi)有附著任何東西，仍然可以運(yùn)行。所要做的工作只是在“骨架”中加入程序。缺省的應(yīng)用程序是一個(gè)空白的窗體（Form），運(yùn)行可以得到一個(gè)空白的窗口。這個(gè)窗口具有Windows窗口的全部性質(zhì)，可以被放大縮小、移動(dòng)、最大最小化等。程序框架及一個(gè)空白的窗體已經(jīng)是一個(gè)可運(yùn)行應(yīng)用程序，只是不處理任何事情。2.1.1 Delphi特點(diǎn)Delphi自從1995年2月誕生以來(lái)，獲得了巨大的榮譽(yù)和廣泛的影響力，以可視化編程、強(qiáng)大的編譯功能、友好的用戶界面聞名于世。主要特點(diǎn)是：l 高

13、效的可視化組件庫(kù)和面向?qū)ο蟮募軜?gòu)。l 具有多種操作向?qū)Ш驮诰€幫助，大大方便程序編寫。l 界面設(shè)計(jì)所見(jiàn)即所得和鼠標(biāo)拖曳方式，可以輕松設(shè)計(jì)出華麗的界面。l 支持各種最新及最常用的技術(shù)如 Win32 API、OLE、COM、DCOM、ActiveX、ISAPI、NSAPI、DirectX等。l 全面支持Windows 應(yīng)用程序。l 具有開(kāi)放式數(shù)據(jù)庫(kù)結(jié)構(gòu)，集成了豐富的數(shù)據(jù)庫(kù)開(kāi)發(fā)工具。l 具有強(qiáng)大的面向網(wǎng)絡(luò)編程功能，其C/S開(kāi)發(fā)工具在高性能的快速應(yīng)用程序開(kāi)發(fā)領(lǐng)域成為行業(yè)標(biāo)準(zhǔn)。Delphi產(chǎn)品按照功能可以分為4個(gè)類型：l Delphi集成開(kāi)發(fā)環(huán)境（Integrate Develop Environment

14、）：提供友好的用戶編程開(kāi)發(fā)界面，集成了高效的編譯器、項(xiàng)目管理器、團(tuán)隊(duì)開(kāi)發(fā)支持、高級(jí)調(diào)試等功能。l Delphi可視化組件庫(kù)（Visual Component Library）：提供幾百個(gè)常用組件，用于數(shù)據(jù)庫(kù)訪問(wèn)、用戶接口、數(shù)據(jù)處理、報(bào)表和Internet開(kāi)發(fā)。l Borland數(shù)據(jù)引擎（Borland Data Engineer）：能夠進(jìn)行數(shù)據(jù)庫(kù)管理，并與數(shù)據(jù)庫(kù)服務(wù)器高速連接。l MIDAS：是一個(gè)集成與Delphi的分布式應(yīng)用稽核，功能強(qiáng)大，主要用于商業(yè)邏輯的智能集中管理和企業(yè)交易的快速處理。2.1.2 Delphi72002年8月6日，Borland公司正式宣布推出Delphi 7 Stu

15、dio，全面支持Microsoft公司.NET平臺(tái)應(yīng)用的開(kāi)發(fā)。Delphi7是一個(gè)針對(duì)Windows平臺(tái)上的跨平臺(tái)快速開(kāi)發(fā)（RAD）環(huán)境。Delphi7的一個(gè)顯著特性是企業(yè)開(kāi)發(fā)和部署。 Delphi7的新特點(diǎn)：l 企業(yè)應(yīng)用的MDA開(kāi)發(fā)：通過(guò)讓開(kāi)發(fā)者從設(shè)計(jì)到發(fā)布都重復(fù)使用一個(gè)應(yīng)用程序，加速開(kāi)發(fā)進(jìn)程，同時(shí)顯著減少代碼量和需要的開(kāi)發(fā)時(shí)間。l 可視化的快速Web開(kāi)發(fā)：讓開(kāi)發(fā)者能夠在Delphi7環(huán)境中可視化地創(chuàng)建Web應(yīng)用，并且利用它的應(yīng)用模型框架，不必再考慮通用的服務(wù)器端的開(kāi)發(fā)任務(wù)，還能透明地處理會(huì)話管理。l 內(nèi)建的Linux的跨平臺(tái)支持：Delphi7在出售時(shí)將附帶Delphi語(yǔ)言版本的Dylix

16、3。Kylix3是第一個(gè)Linux操作系統(tǒng)上的高性能的可視化集成開(kāi)發(fā)環(huán)境（IDE），它適用來(lái)快速創(chuàng)建數(shù)據(jù)庫(kù)應(yīng)用、GUI應(yīng)用、Web應(yīng)用和Web服務(wù)應(yīng)用。l 企業(yè)級(jí)的報(bào)表能力：讓開(kāi)發(fā)者能創(chuàng)建跨平臺(tái)的報(bào)表，這些報(bào)表能幫助查看應(yīng)用程序運(yùn)行的效率。l Windows XP應(yīng)用：Delphi7包含了對(duì)Windows XP風(fēng)格支持，讓開(kāi)發(fā)者能夠創(chuàng)建可以利用Windows XP 使用者界面風(fēng)格的應(yīng)用。 2.1.3 Delphi與VBVisual Basic（VB）是一種由微軟公司開(kāi)發(fā)的包含協(xié)助開(kāi)發(fā)環(huán)境的事件驅(qū)動(dòng)編程語(yǔ)言。它源自于BASIC編程語(yǔ)言。VB擁有圖形用戶界面（GUI）和快速應(yīng)用程序開(kāi)發(fā)（RAD）系

17、統(tǒng)，可以使用DAO、RDO、ADO連接數(shù)據(jù)庫(kù)，或者創(chuàng)建ActiveX控件。本系統(tǒng)采用Delphi進(jìn)行開(kāi)發(fā)，主要原因：l VB不支持面向?qū)ο?，Delphi卻是面向?qū)ο蟮?。l VB無(wú)法編譯原生目標(biāo)文件，而Delphi可以。l VB無(wú)法對(duì)底層操作，而Delphi可以。l VB有依賴性，即用VB作的程序換別的操作系統(tǒng)還要重新包裝，Delphi則不用。l VB沒(méi)有類庫(kù)，Delphi的類庫(kù)很多，還可以繼承。 2.2 SQL Server 數(shù)據(jù)庫(kù)是數(shù)據(jù)管理的最新技術(shù)，是計(jì)算機(jī)科學(xué)的重要分支。今天，信息資源已成為各個(gè)部門的重要財(cái)富和資源。建立一個(gè)滿足各級(jí)部門信息處理要求的行之有效的信息系統(tǒng)也成為企業(yè)或組織生存

18、和發(fā)展的重要條件。因此，作為信息系統(tǒng)核心和基礎(chǔ)的數(shù)據(jù)庫(kù)技術(shù)得到越來(lái)越廣泛的應(yīng)用。對(duì)于一個(gè)國(guó)家來(lái)說(shuō)，數(shù)據(jù)庫(kù)的建設(shè)規(guī)模、數(shù)據(jù)庫(kù)信息量的大小和使用頻度已成為衡量一個(gè)國(guó)家信息化程度的重要標(biāo)志。 2.2.1 SQL Server 2000SQL Server 2000 是一個(gè)高性能的客戶端/服務(wù)器結(jié)構(gòu)的關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)。SQL SERVER 2000是為支持高容量的事務(wù)處理以及數(shù)據(jù)倉(cāng)庫(kù)和決策支持系統(tǒng)而設(shè)計(jì)的。它是Microsoft 公司推出的，該版本繼承了SQL Serve 7.0 版本的優(yōu)點(diǎn)，同時(shí)又比它增加了許多更先進(jìn)的功能，可跨越從運(yùn)行Microsoft Windows 98 的電腦到運(yùn)行Micr

19、osoft Windows 2000 的大型多處理器的服務(wù)器等多種平臺(tái)使用。2.2.2 SQL Server 2000的特點(diǎn)l 簡(jiǎn)單易操作：SQL Server 2000 界面風(fēng)格和Windows界面風(fēng)格完全一致。l 兼容性良好，具有擴(kuò)展性，可靠性。l 數(shù)據(jù)倉(cāng)庫(kù)： SQL Server 2000增加了OLAP功能。OLAP可以通過(guò)多維存儲(chǔ)技術(shù)對(duì)大型、復(fù)雜數(shù)據(jù)集執(zhí)行快速、高級(jí)的分析工作。數(shù)據(jù)挖掘功能能夠揭示隱藏在大量數(shù)據(jù)中的傾向及趨勢(shì)，它允許組織或機(jī)構(gòu)最大限度地從數(shù)據(jù)中獲取價(jià)值。通過(guò)對(duì)現(xiàn)有數(shù)據(jù)進(jìn)行有效分析，這一功能可以對(duì)未來(lái)的趨勢(shì)進(jìn)行預(yù)測(cè)。2.3 ADO技術(shù) ADO( Active Data O

20、bjects )是一種提供訪問(wèn)各種數(shù)據(jù)類型的鏈接機(jī)制，是通過(guò)ODBC的方法訪問(wèn)數(shù)據(jù)庫(kù)的接口。ADO主要優(yōu)點(diǎn)是易于使用、高速度、低內(nèi)存支出和占用磁盤空間較少，同時(shí)具有遠(yuǎn)程數(shù)據(jù)服務(wù)(RDS)功能。在Delphi中，提供了一組ADO組件，用于對(duì)ADO訪問(wèn)能力的支持。第三章 需求分析 3.1需求分析 3.1.1學(xué)生公寓需求簡(jiǎn)介學(xué)生公寓管理應(yīng)考慮以下幾方面的要求： 用戶需求：可以對(duì)學(xué)生公寓進(jìn)行有效的管理，包括公寓信息、寢室信息、學(xué)生住宿資料以及交費(fèi)信息等。學(xué)生方面：讓學(xué)生感覺(jué)到學(xué)校的管理透明。學(xué)校方面：可以查詢每一個(gè)學(xué)生的相關(guān)信息。來(lái)訪人員方面：為防止公寓安全，所有來(lái)訪人員必須提供學(xué)生住宿的公寓號(hào)和寢室

21、號(hào)才可以進(jìn)入公寓。3.1.2功能性需求軟件需求分析是指對(duì)目標(biāo)軟件系統(tǒng)在功能、行為、性能、設(shè)計(jì)約束等方面的期望。需求分析是軟件設(shè)計(jì)、實(shí)現(xiàn)測(cè)試直至維護(hù)的主要基礎(chǔ)，良好的需求分析可以避免或盡早提出早期的錯(cuò)誤，從而降低軟件的開(kāi)發(fā)成本，改進(jìn)軟件的質(zhì)量。本學(xué)生公寓管理系統(tǒng)應(yīng)完成以下任務(wù)：l 學(xué)生寢室基本信息管理：首先統(tǒng)一安排學(xué)生入住，如果有學(xué)生要更換寢室，可以方便查到哪個(gè)寢室還有空床，包括該寢室內(nèi)已住學(xué)生的基本信息，安排入住。l 學(xué)生公寓管理：可以添加新建公寓的信息，以及添加該公寓內(nèi)的寢室信息，以及修改公寓和寢室的相關(guān)信息（公寓號(hào)和寢室號(hào)）。l 寢室收費(fèi)管理：收費(fèi)以寢室為單位，當(dāng)費(fèi)用收好以后，可以打印報(bào)表

22、以查看交費(fèi)記錄。l 來(lái)訪人員管理：對(duì)來(lái)訪人員進(jìn)行嚴(yán)格登記，包括來(lái)訪時(shí)間，結(jié)束時(shí)間，來(lái)訪人員的來(lái)訪事由，能查詢到每一條來(lái)訪人員和被訪人的信息。3.1.3 非功能性需求用戶界面需求：簡(jiǎn)潔、易用、易懂，友好的用戶界面。硬件需求：Pentium以上計(jì)算機(jī)可靠性需求：保證用戶在正常使用本系統(tǒng)時(shí)，用戶的操作或誤操作不會(huì)產(chǎn)生數(shù)據(jù)丟失。安全保密性需求：用戶登錄需要密碼驗(yàn)證。3.2可行性分析開(kāi)發(fā)任何一個(gè)系統(tǒng)，都會(huì)受到時(shí)間和資源上的限制。因此，在每一個(gè)項(xiàng)目開(kāi)發(fā)之前，都要進(jìn)行可行性分析，以減少項(xiàng)目的開(kāi)發(fā)風(fēng)險(xiǎn)，避免人力，物力和財(cái)力的浪費(fèi)。可行性分析主要包括經(jīng)濟(jì)可行性和技術(shù)可行性等。3.2.1經(jīng)濟(jì)可行性經(jīng)濟(jì)可行性，主要

23、是針對(duì)一個(gè)學(xué)校的，開(kāi)發(fā)系統(tǒng)的成本與收益相比較。如今是信息化時(shí)代，信息化管理可以使學(xué)生公寓管理更加系統(tǒng)化，全面化、快速化，這樣可以為學(xué)校帶來(lái)高校的工作效益和經(jīng)濟(jì)效益，開(kāi)發(fā)出本系統(tǒng)可以減少公寓管理人員人數(shù)，而且管理方便，各功能實(shí)現(xiàn)快速，數(shù)據(jù)有效的管理。這些效益和管理上的便捷遠(yuǎn)遠(yuǎn)超過(guò)了開(kāi)發(fā)本系統(tǒng)的成本，所以在經(jīng)濟(jì)上具有完全的可行性。3.2.2技術(shù)可行性本系統(tǒng)開(kāi)發(fā)工具是Delphi和SQL Server2000。Delphi具有可視化界面，是一種面向?qū)ο蟮恼Z(yǔ)言，簡(jiǎn)單易學(xué)而且靈活方便，SQL Server 2000是一個(gè)安全、可靠的并且支持面向?qū)ο笤O(shè)計(jì)的數(shù)據(jù)庫(kù)系統(tǒng)。易用性和可維護(hù)性也很好。在大二期間，就

24、已學(xué)過(guò)SQL Server2000。所以，學(xué)生公寓管理總體上開(kāi)發(fā)難度不高，技術(shù)上具有完全的可行性。數(shù)據(jù)庫(kù)的設(shè)計(jì)和操作是本系統(tǒng)設(shè)計(jì)的核心。在大學(xué)期間曾經(jīng)學(xué)習(xí)過(guò)軟件工程，也以四人一組完成過(guò)有關(guān)的大作業(yè)，具備一定的系統(tǒng)分析與設(shè)計(jì)能力，熟悉數(shù)據(jù)的設(shè)計(jì)與操縱。因此，本系統(tǒng)的實(shí)現(xiàn)在技術(shù)上是可行的。第四章 總體設(shè)計(jì) 4.1總體設(shè)計(jì)目標(biāo)l 減少公寓管理人員大量繁瑣的工作。公寓管理人員通過(guò)使用本系統(tǒng)，可以隨時(shí)根據(jù)需要，查詢公寓、寢室、來(lái)訪人員、交費(fèi)等信息，對(duì)學(xué)生公寓管理系統(tǒng)中的數(shù)據(jù)進(jìn)行錄入、添加、刪除和查詢，并可以根據(jù)特定條件對(duì)數(shù)據(jù)進(jìn)行查詢。l 減少學(xué)校在學(xué)生公寓管理方面的人力和物力的投資。學(xué)生公寓管理系統(tǒng)功能

25、強(qiáng)大、操作簡(jiǎn)單，擁有友好的易額面，適用于各類學(xué)校的學(xué)生公寓管理。4.2功能模塊設(shè)計(jì) 系統(tǒng)功能模塊包括：（如圖4-1）l 公寓管理：包括公寓樓房管理和寢室管理。對(duì)學(xué)校的公寓以及公寓里的寢室進(jìn)行管理，處理包括數(shù)據(jù)的添加、修改、刪除、查詢等。l 學(xué)生管理：包括學(xué)生基本信息管理和學(xué)生交費(fèi)管理。對(duì)學(xué)生入住寢室信息和學(xué)生基本信息的管理以及以寢室為單位的收費(fèi)管理，包括對(duì)數(shù)據(jù)的添加、修改、刪除、查詢等。l 來(lái)訪人員登記管理：公寓登記信息的處理，為維護(hù)公寓的安全，對(duì)來(lái)訪人員有嚴(yán)格的審查，以及對(duì)登記信息的處理。l 系統(tǒng)管理和維護(hù)：包括修改口令，添加用戶等。學(xué)生公寓管理信息系統(tǒng)系統(tǒng)管理學(xué)生管理學(xué)生基本信息管理公寓管

26、理來(lái)訪登記管理學(xué)生交費(fèi)管理公寓樓房管理公寓寢室管理針對(duì)各模塊不同的表實(shí)現(xiàn)添加記錄、修改記錄、刪除記錄以及查詢顯示記錄等功能圖4-1學(xué)生公寓管理系統(tǒng)功能模塊圖4.3數(shù)據(jù)庫(kù)設(shè)計(jì)4.3.1數(shù)據(jù)流分析數(shù)據(jù)流圖是結(jié)構(gòu)化系統(tǒng)分析的基本工具。一個(gè)數(shù)據(jù)流圖確定了系統(tǒng)的轉(zhuǎn)化過(guò)程、系統(tǒng)所操縱的數(shù)據(jù)或物質(zhì)的收集（存儲(chǔ)），還有過(guò)程、存儲(chǔ)、外部世界之間的數(shù)據(jù)流或物質(zhì)流。數(shù)據(jù)流圖技術(shù)是可以擴(kuò)充到允許實(shí)時(shí)系統(tǒng)的建模。數(shù)據(jù)流圖是當(dāng)前業(yè)務(wù)過(guò)程或新系統(tǒng)操作步驟的一種表示方法。數(shù)據(jù)流圖可以在一個(gè)抽象的廣泛范圍內(nèi)表示系統(tǒng)。在一個(gè)多步驟的活動(dòng)中，高層數(shù)據(jù)流圖對(duì)數(shù)據(jù)和處理部分提供一個(gè)整體的統(tǒng)覽，這是對(duì)包含在軟件需求規(guī)格說(shuō)明中的精確、詳細(xì)

27、敘述的補(bǔ)充。數(shù)據(jù)流圖描述了軟件需求規(guī)格說(shuō)明中的功能需求怎樣結(jié)合在一起，使用戶可以執(zhí)行指定的任務(wù)。從圖中迅速反饋的信息有助于對(duì)所探討的任務(wù)流的理解進(jìn)行提煉加工。學(xué)生公寓管理系統(tǒng)的第一層數(shù)據(jù)流圖(如圖4-2)，本數(shù)據(jù)流圖描述了學(xué)生公寓系統(tǒng)的各個(gè)模塊處理過(guò)程中的數(shù)據(jù)處理的過(guò)程。宿管科公寓管理寢室管理來(lái)訪人員管理收費(fèi)管理寢室信息寢室信息公寓信息收費(fèi)信息來(lái)訪人員信息公寓信息來(lái)訪人員登記信息收費(fèi)信息圖4-2學(xué)生公寓管理系統(tǒng)第一層數(shù)據(jù)流圖 公寓管理中的數(shù)據(jù)處理圖是本系統(tǒng)的第二層數(shù)路流圖（如圖4-3）,描述了在公寓管理中所作操作的數(shù)據(jù)處理。宿管科刪除處理添加處理修改處理拆遷的公寓添加新建公寓修改的公寓公寓基本

28、信息圖4-3公寓管理模塊書(shū)錄流圖 寢室管理數(shù)據(jù)流程圖（如圖4-4），描述了用戶在添加、刪除、查詢寢室信息時(shí)的數(shù)據(jù)處理過(guò)程。宿管科添加處理刪除處理查詢處理刪除畢業(yè)生或離校生信息寢室信息圖4-4寢室管理模塊數(shù)據(jù)流圖 來(lái)訪人員管理數(shù)據(jù)流圖（如圖4-5），描述了在來(lái)訪人員訪問(wèn)學(xué)生時(shí)，用戶所作操作的數(shù)據(jù)處理過(guò)程。宿管科來(lái)訪信息添加來(lái)訪人員信息查詢處理刪除處理圖4-5來(lái)訪人員管理數(shù)據(jù)流圖 學(xué)生交費(fèi)管理數(shù)據(jù)流圖（如圖4-6），描述了學(xué)生交費(fèi)與宿管科收費(fèi)處理過(guò)程中的數(shù)據(jù)處理過(guò)程。宿管科添加交費(fèi)項(xiàng)目交費(fèi)學(xué)生交費(fèi)信息查詢處理報(bào)表打印圖4-6學(xué)生交費(fèi)管理數(shù)據(jù)流圖4.3.2數(shù)據(jù)建模模型是軟件的第一個(gè)技術(shù)表示。信息系統(tǒng)

29、的建模是用模型來(lái)描述復(fù)雜的信息系統(tǒng)，使得系統(tǒng)的要求、結(jié)構(gòu)和數(shù)據(jù)變得簡(jiǎn)單。設(shè)計(jì)者通過(guò)描述用戶的需求獲得與用戶的不斷交互，最終對(duì)整個(gè)系統(tǒng)能全面地把握。建立完整的數(shù)據(jù)模型，完成對(duì)信息系統(tǒng)中數(shù)據(jù)的存儲(chǔ)和處理。學(xué)生公寓管理系統(tǒng)比較復(fù)雜，為了建立這樣一個(gè)復(fù)雜系統(tǒng)的模型，并滿足實(shí)際對(duì)象不斷發(fā)展的需求，在實(shí)際設(shè)計(jì)中應(yīng)遵循下列原則：l 準(zhǔn)確性：所建立的模型要求能夠正確反映實(shí)際的對(duì)象，能夠滿足學(xué)生公寓管理工作的實(shí)際需求。l 完整性：指要求模型既能反映對(duì)象系統(tǒng)的靜態(tài)特性，同時(shí)能夠反映其豐富的動(dòng)態(tài)特性。l 一致性：要求建立的模型能保證從分析階段到設(shè)計(jì)階段的平穩(wěn)過(guò)渡。4.3.3各實(shí)體關(guān)系模型經(jīng)過(guò)分析，由上面的數(shù)據(jù)流程圖

30、可以得出以下各實(shí)體之間的E-R圖，（如圖3-7至3-9）公寓管理管理員mn寢室組成1n圖3-7公寓E-R圖公寓寢室公寓公寓公寓nm11n1所屬組成擁有n圖3-8寢室E-R圖床位寢室公寓住宿擁有組成1nnm1n學(xué)生來(lái)訪人nmm1訪問(wèn)管理員管理交費(fèi)mn圖3-9公寓管理E-R圖 4.3.4數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì) 基本定義： 主鍵：在表中是唯一不可重復(fù)的值。具有索引的作用，可以用來(lái)快速查詢表內(nèi)數(shù)據(jù)。 外鍵：有此表的列或列的組合和其他表的主鍵值或UNIQUE_KEY具有相關(guān)聯(lián)的特性。此時(shí)，可以將這些列或列組合定義為外鍵。 索引：建立索引是為了加快查詢速度的有效手段。用戶可以根據(jù)應(yīng)用環(huán)境的需求，在基本表上建立

31、一個(gè)或多個(gè)索引，以提供多種存取路徑，加快查找速度。 視圖：從一個(gè)或幾個(gè)基本表（或視圖）導(dǎo)出的表，它與基本表不同，是一個(gè)虛表。 學(xué)生公寓系統(tǒng)的數(shù)據(jù)庫(kù)包含以下表：表4-1：基本表表名類型說(shuō)明操作員信息基本表保存系統(tǒng)用戶的帳號(hào)和密碼公寓信息基本表保存公寓信息寢室信息基本表保存寢室的基本信息學(xué)生信息基本表保存寢室學(xué)生的基本信息來(lái)訪信息基本表保存公寓來(lái)訪人員的基本信息交費(fèi)信息基本表保存交費(fèi)記錄的信息價(jià)格表基本表保存交費(fèi)種類的信息表4-2：操作員信息字段名稱數(shù)據(jù)類型長(zhǎng)度說(shuō)明idint4編號(hào)，主鍵操作員IDnvarchar10允許空操作員姓名nvarchar10允許空密碼nvarchar10允許空權(quán)限cha

32、r6允許空備注nvarchar50允許空表4-3：公寓信息字段名稱數(shù)據(jù)類型長(zhǎng)度說(shuō)明idint4記錄編號(hào)，不允許空公寓號(hào)nvarchar10公寓樓編號(hào)，主鍵樓層數(shù)int4允許空房間數(shù)int4允許空啟用時(shí)間smalldatetime4允許空備注nvarchar50允許空表4-4：寢室信息字段名稱數(shù)據(jù)類型長(zhǎng)度說(shuō)明idint4記錄編號(hào)，主鍵寢室號(hào)nvarchar10允許空可住人數(shù)int4允許空住宿費(fèi)用float8允許空電話nvarchar10允許空公寓號(hào)nvarchar10允許空備注nvarchar50允許空表4-5：學(xué)生信息字段名稱數(shù)據(jù)類型長(zhǎng)度說(shuō)明idint4記錄編號(hào)，不允許空學(xué)號(hào)nvarchar3

33、0學(xué)生學(xué)號(hào)，主鍵姓名nvarchar20允許空性別char2允許空出生日期smalldatetime4允許空專業(yè)nvarchar20允許空班級(jí)nvarchar20允許空聯(lián)系方式nvarchar20允許空公寓號(hào)nvarchar10允許空寢室號(hào)nvarchar10允許空備注nvarchar50允許空表4-6：來(lái)訪信息字段名稱數(shù)據(jù)類型長(zhǎng)度說(shuō)明idint4記錄編號(hào)，主鍵來(lái)訪人姓名nvarchar10允許空人數(shù)int4允許空被訪者姓名nvarchar10允許空所屬關(guān)系nvarchar10允許空來(lái)訪時(shí)間smalldatetime4允許空結(jié)束時(shí)間smalldatetime4允許空事由nvarchar50允許

34、空值班人nvarchar10允許空表4-7：交費(fèi)信息字段名稱數(shù)據(jù)類型長(zhǎng)度說(shuō)明idint4編號(hào)，主鍵公寓號(hào)nvarchar10允許空寢室號(hào)nvarchar10允許空交費(fèi)時(shí)間smalldatetime4允許空交費(fèi)類型nvarchar10允許空金額float8允許空備注nvarchar50允許空表4-8：價(jià)格表字段名稱數(shù)據(jù)類型長(zhǎng)度說(shuō)明idint4編號(hào)，主鍵項(xiàng)目nvarchar10允許空價(jià)格float8允許空收費(fèi)方式nvarchar10允許空第五章 系統(tǒng)詳細(xì)設(shè)計(jì) 5.1系統(tǒng)工程框架 系統(tǒng)工程框架主要簡(jiǎn)介了學(xué)生公寓系統(tǒng)各模塊,并對(duì)數(shù)據(jù)模塊Data和公共類模塊Common作了詳細(xì)的說(shuō)明，并且介紹了相應(yīng)的實(shí)

35、例。5.1.1學(xué)生公寓管理系統(tǒng)的模塊：l Data：提供數(shù)據(jù)訪問(wèn)支持模塊。l Common：提供程序中需要的數(shù)據(jù)實(shí)體模塊。l Fee：學(xué)生交費(fèi)管理模塊。l House：公寓信息管理模塊。l Operator：操作員管理模塊。l Student：學(xué)生基本信息管理模塊。5.1.2 Data 數(shù)據(jù)模塊學(xué)生公寓管理系統(tǒng)的數(shù)據(jù)庫(kù)連接管理在Data模塊中的Config.pas中，定義了數(shù)據(jù)庫(kù)連接字符串connectionStr來(lái)改變連接，代碼如下：const/連接字符串connectionStr=Provider=SQLOLEDB.1;+Password=sa;Persist Security Info=

36、True; +User ID=sa;Initial Catalog=xsgy;+Data Source=(local);在Data模塊中，將程序中所有對(duì)數(shù)據(jù)的操作進(jìn)行了有效的封裝，設(shè)計(jì)出了2個(gè)函數(shù)：/執(zhí)行沒(méi)有返回值的sql語(yǔ)句,如果正確執(zhí)行則返回true,否則返回falsefunction ExeSqlNoQuery(sql:string):boolean;/ 執(zhí)行有返回值的sql語(yǔ)句,返回得到的ADOQuery;function ExeSqlQuery(sql:string):TADOQuery; 5.1.3 Common 類模塊在程序中，為每一張表定義了一個(gè)類。存放在Common目錄下，類

37、的成員變量與對(duì)應(yīng)表中的字段名相同，并在后面加了注釋。例如Tstudent 類的定義：/學(xué)生信息type TStudent=class id:integer; stdNo:string;/學(xué)號(hào) stdName:string;/姓名 sex:string;/性別 birthday:string;/出生日期 subject:string;/專業(yè) classes:string;/班級(jí) HouseNo:string;/公寓號(hào) roomNo:string;/寢室號(hào) end;5.2系統(tǒng)各模塊詳細(xì)設(shè)計(jì)5.2.1登錄窗體與系統(tǒng)主界面設(shè)計(jì)登錄窗體設(shè)計(jì)登錄窗體命名為 frm_login。（如圖5-1）

38、圖5-1 登錄窗體登錄窗體的主要功能是驗(yàn)證用戶是否合法，其驗(yàn)證用戶的主要流程如圖5-2：開(kāi)始是否輸入用戶名和密碼把用戶名和密碼賦值給變量用戶名是否存在用戶名與密碼是否匹配登錄成功是否失敗3次否退出程序是否否否是是是圖5-2 登錄窗體流程圖登錄窗體進(jìn)行身份驗(yàn)證，在用戶輸入完用戶名和密碼之后,程序會(huì)將用戶名和密碼與數(shù)據(jù)庫(kù)中的數(shù)據(jù)進(jìn)行比對(duì)，用戶登錄的機(jī)會(huì)為3次，如果連續(xù)3次密碼錯(cuò)誤，系統(tǒng)會(huì)自動(dòng)關(guān)閉，變量inputNum來(lái)記錄輸入錯(cuò)誤密碼的次數(shù)，其初始值為零。登錄窗體在主窗體之前彈出，以確保程序安全性，代碼如下：procedure TFrm_main.FormCreate(Sender: TObjec

39、t);var frm_login:Tfrm_login;beginfrm_login:=Tfrm_login.Create(self); /創(chuàng)建登錄窗體frm_login.ShowModal;end;系統(tǒng)主界面設(shè)計(jì)主窗體命名為Frm_main。主窗體由主菜單和工具按鈕組成。（如圖5-3）圖5-3系統(tǒng)主界面主窗體畫(huà)面簡(jiǎn)潔明了,外觀大方,體現(xiàn)出了程序的易操作性.用戶可以根據(jù)自己的需求，通過(guò)菜單來(lái)使用程序的各項(xiàng)功能，工具欄按鈕則提供了用戶一些常用的功能，讓用戶可以更加快速，簡(jiǎn)單地進(jìn)行操作,為了使程序更加美觀，本系統(tǒng)使用了vclskin。Vclskin是Delphi的控件，可以對(duì)Delp

40、hi程序進(jìn)行換膚功能。特點(diǎn)：操作簡(jiǎn)單，不需修改源代碼，可以直接美化程序。擁有大量高質(zhì)量的皮膚。通過(guò)vclskin這個(gè)控件，對(duì)程序的所有窗體的外觀以及按鈕進(jìn)行了美化。5.2.3樓房管理模塊設(shè)計(jì)樓房管理模塊主要功能l 添加公寓樓房記錄。l 編輯公寓樓房信息。l 刪除公寓樓房記錄。l 查詢公寓樓房信息。設(shè)計(jì)功能界面的父窗體由于本系統(tǒng)中，樓房管理、寢室管理、學(xué)生基本信息管理、交費(fèi)管理和來(lái)訪人員登記管理等在功能和界面上都十分相似，所以對(duì)上述功能模塊的界面進(jìn)行泛化，得到一個(gè)父窗體類，以便以后各功能模塊的繼承。在父窗體中，主要設(shè)計(jì)了添加、刪除、修改等按鈕的基本功能，該父窗體名稱為

41、frm_info。添加按鈕當(dāng)用戶單擊窗體中的“添加”按鈕時(shí)，程序會(huì)進(jìn)入添加狀態(tài)，令原“刪除”按鈕顯示為“確定”，“修改”按鈕顯示為“取消”，“添加”按鈕不顯示。對(duì)應(yīng)代碼如下：procedure Tfrm_info.btn_addClick(Sender: TObject);beginif self.btn_add.Caption=添加 then begin self.btn_del.Caption:=確定; self.btn_edit.Caption:=取消; self.btn_add.Visible:=false; end;end;修改按鈕當(dāng)用戶單擊窗體中的“修改”按鈕時(shí)，當(dāng)程序處于修改狀態(tài)

42、，即“修改”按鈕顯示為“修改”，原“刪除”按鈕顯示為“保存”，“修改”顯示為“取消”，“添加”按鈕不顯示；當(dāng)程序處于保存狀態(tài)時(shí)，即修改按鈕顯示為“取消”時(shí)，要取消操作恢復(fù)按鈕原有顯示。對(duì)應(yīng)代碼如下：procedure Tfrm_info.btn_editClick(Sender: TObject);beginif self.btn_edit.Caption=修改 then begin self.btn_del.Caption:=保存; self.btn_edit.Caption:=取消; self.btn_add.Visible:=false; endelse begin if self.bt

43、n_edit.Caption=取消 then begin self.btn_add.Visible:=true; self.btn_del.Caption:=刪除; self.btn_edit.Caption:=修改; end; end;end;刪除按鈕當(dāng)用戶單擊窗體中的“刪除”按鈕時(shí)，當(dāng)程序處于添加或修改的狀態(tài)，即“刪除按鈕”顯示為“確定”或“保存”時(shí)，需要恢復(fù)按鈕原有顯示。對(duì)應(yīng)的代碼如下： procedure Tfrm_info.btn_delClick(Sender: TObject);beginif(self.btn_del.Caption =確定) or (self.btn_del.

44、Caption =保存)then begin self.btn_add.Visible:=true; self.btn_del.Caption:=刪除; self.btn_edit.Caption:=修改; end;end;父窗體里的按鈕沒(méi)有實(shí)際功能，只是對(duì)一些數(shù)據(jù)的基本的操作（添加、修改、刪除）的按鈕相互之間的作用、關(guān)系做了編寫。父窗體的設(shè)計(jì)主要是給其他窗體繼承用的，因此里面編寫了最基本的按鈕的代碼，這樣在建立其他窗體的時(shí)候，可以不用編寫同樣的代碼，而且風(fēng)格也得到了統(tǒng)一。樓房管理窗體設(shè)計(jì)樓房管理窗體命名為frm_house，繼承了父窗體frm_info（如圖5-4）圖5-4樓房

45、管理窗體添加按鈕當(dāng)用戶單擊“添加”按鈕時(shí)，程序會(huì)將公寓樓號(hào)等文本框清空，以便用戶可以輸入新的信息，對(duì)應(yīng)代碼如下： procedure Tfrm_house.btn_addClick(Sender: TObject);begin inherited; /繼承父窗體 self.edt_houseNo.Tag:=0; self.edt_houseNo.Text :=; self.edt_floorNum.Text :=; self.DTP_begin.Date:=strtodate(1980-1-1); self.edt_roomNum.Text :=; self.Memo_remark.Text

46、:=; self.edt_houseNo.SetFocus;end;修改按鈕當(dāng)用戶單擊“修改”按鈕時(shí)，“公寓樓號(hào)”不能為空，否則將彈出提示框提示“沒(méi)有可以修改的數(shù)據(jù)！”，對(duì)應(yīng)的代碼如下：procedure Tfrm_house.btn_editClick(Sender: TObject);begin if self.btn_edit.Caption=修改 then begin if edt_houseNo.Text = then begin MessageBox(Handle, 沒(méi)有可以修改的數(shù)據(jù)！, 信息, MB_ICONEXCLAMATION); exit; end else begin

47、self.edt_houseNo.SetFocus;/公寓樓號(hào)文本框獲得焦點(diǎn) end; end; inherited;end;刪除按鈕當(dāng)用戶點(diǎn)擊“刪除”按鈕并且顯示為“刪除”時(shí)，程序?qū)h除選中的公寓信息；當(dāng)顯示為“保存”時(shí)，程序?qū)⑿薷牡墓⑿畔⒈４娴綌?shù)據(jù)庫(kù)中；當(dāng)顯示為“確定”時(shí)，程序?qū)⑿绿砑拥男畔⒈４娴綌?shù)據(jù)庫(kù)中。在“刪除”按鈕顯示為“保存”和“確定”，即要把數(shù)據(jù)寫入到數(shù)據(jù)庫(kù)時(shí)，為了保證數(shù)據(jù)的完整性，程序會(huì)檢測(cè)公寓樓號(hào)，樓層數(shù)，房間數(shù)是否填寫，如果用戶遺忘了上面任何一一項(xiàng)，程序都會(huì)自動(dòng)彈出信息框，表示填寫信息不正確：if(edt_houseNo.Text=) or (edt_floorNum.T

48、ext=) or (edt_roomNum.Text=) then begin MessageBox(Handle, 內(nèi)容填寫不正確！, 信息, MB_ICONEXCLAMATION); exit; end;在把數(shù)據(jù)寫入到數(shù)據(jù)庫(kù)的時(shí)候，程序還會(huì)檢查公寓樓號(hào)是否重復(fù)，如果重復(fù)，則操作不成功，會(huì)彈出信息框提醒用戶：House:=THouse.Create; House:=GetHouseByHouseNo(trim(edt_houseNo.Text); if(Housenil) then begin if(House.idedt_houseNo.Tag) then begin MessageBox

49、(Handle, 公寓號(hào)已經(jīng)存在,請(qǐng)重新設(shè)置！, 信息, MB_ICONEXCLAMATION); exit; end; end;檢查是否重復(fù)SQL代碼如下：ADOQuery:=TADOQuery.Create(nil); sql:=select id,公寓號(hào),樓層數(shù),房間數(shù),啟用時(shí)間,備注 from 公寓信息 where 公寓號(hào)=+ +HouseNo+; ADOQuery:=DAHelper.ExeSqlQuery(sql); if(ADOQuery.RecordCount1) then begin result:=nil; end在窗體被創(chuàng)建的時(shí)候，程序會(huì)自動(dòng)調(diào)用函數(shù)填充數(shù)據(jù)，函數(shù)名為Fi

50、lldata，函數(shù)會(huì)調(diào)用sql語(yǔ)句來(lái)顯示數(shù)據(jù)。5.2.4寢室管理模塊設(shè)計(jì)寢室管理模塊主要功能l 添加寢室記錄。l 編輯寢室信息。l 刪除寢室記錄。l 查找寢室信息。l 統(tǒng)計(jì)各寢室空床數(shù)。寢室管理窗體設(shè)計(jì)寢室管理窗體命名為frm_room（如圖5-5）圖5-5寢室管理窗體本窗體也繼承了父窗體frm_info。寢室管理窗體可以根據(jù)公寓號(hào)和寢室號(hào)來(lái)查詢相關(guān)寢室的信息。在“刪除”按鈕顯示為“確定”或“保存”時(shí)，程序會(huì)檢測(cè)公寓號(hào)，寢室號(hào)，可住人數(shù)和住宿費(fèi)用四個(gè)項(xiàng)目是否填寫完整，如果有其中一項(xiàng)用戶忘記填寫，程序會(huì)彈出信息對(duì)話框，提醒用戶，對(duì)應(yīng)代碼如下：if(edt_roomNo

51、.Text=) or (edt_capability.Text=) or (edt_fee.Text=) or (self.cbx_houseNo.Text=) then begin MessageBox(Handle, 內(nèi)容填寫不正確！, 信息, MB_ICONEXCLAMATION); exit; end;在把寢室號(hào)填入到數(shù)據(jù)庫(kù)中去，程序會(huì)通過(guò)寢室信息表查找相同公寓內(nèi)的寢室號(hào)是否存在相同，如果相同則會(huì)提醒用戶，因?yàn)椴辉试S在同一幢公寓里有2個(gè)寢室的寢室號(hào)是相同的。本窗體有公寓號(hào)下拉框combobox，此下拉框中的數(shù)據(jù)是用公寓信息表中的數(shù)據(jù)進(jìn)行填充的，代碼如下：procedure Tfrm_room.FillHouseID;var ADOQuery:TADOQuery;begin ADOQuery:=TADOQuery.Create(nil); /創(chuàng)建空數(shù)據(jù)集 ADOQuery:=Control_houseU.GetHouseArray; /得到公寓信息數(shù)據(jù)集 /判斷數(shù)據(jù)集是否為空，若空則退出 if ADOQuery.RecordCount1 then begin ADOQuery:=nil; exit; end; self.cbx_houseNo.Items.Clear; /將數(shù)據(jù)集中的內(nèi)容循環(huán)寫入ComboBox