宿舍管理系統(tǒng)畢業(yè)論文

1、<p><b>　　目錄</b></p><p>　　摘要 ..............................................................1</p><p>　　關(guān)鍵字..............................................................1</p>

2、;<p><b>　　第一章引言2</b></p><p><b>　　1.1課題背景2</b></p><p>　　1.2研究與應(yīng)用現(xiàn)狀2</p><p>　　1.3本文的主要內(nèi)容2</p><p>　　第二章相關(guān)技術(shù)介紹3</p><p>　　

3、2.1 Delphi3</p><p>　　2.1.1 Delphi特點(diǎn)3</p><p>　　2.1.2 Delphi73</p><p>　　2.1.3 Delphi與VB4</p><p>　　2.2 SQL Server4</p><p>　　2.2.1 SQL Server 20004</p

4、><p>　　2.2.2 SQL Server 2000的特點(diǎn)4</p><p>　　2.3 ADO技術(shù)5</p><p>　　第三章需求分析6</p><p><b>　　3.1需求分析6</b></p><p>　　3.1.1學(xué)生公寓需求簡(jiǎn)介6</p><p>

5、　　3.1.2功能性需求6</p><p>　　3.1.3 非功能性需求6</p><p>　　3.2可行性分析6</p><p>　　3.2.1經(jīng)濟(jì)可行性6</p><p>　　3.2.2技術(shù)可行性7</p><p>　　第四章總體設(shè)計(jì)8</p><p>　　4.1總體設(shè)計(jì)目標(biāo)

6、8</p><p>　　4.2功能模塊設(shè)計(jì)8</p><p>　　4.3數(shù)據(jù)庫(kù)設(shè)計(jì)9</p><p>　　4.3.1數(shù)據(jù)流分析9</p><p>　　4.3.2數(shù)據(jù)建模12</p><p>　　4.3.3各實(shí)體關(guān)系模型12</p><p>　　4.3.4數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)14<

7、/p><p>　　第五章系統(tǒng)詳細(xì)設(shè)計(jì)17</p><p>　　5.1系統(tǒng)工程框架17</p><p>　　5.1.1學(xué)生公寓管理系統(tǒng)的模塊：17</p><p>　　5.1.2 Data 數(shù)據(jù)模塊17</p><p>　　5.1.3 Common 類模塊17</p><p>　　5.2系

8、統(tǒng)各窗體詳細(xì)設(shè)計(jì)18</p><p>　　5.2.1登錄窗體設(shè)計(jì)18</p><p>　　5.2.2系統(tǒng)主界面窗體設(shè)計(jì)19</p><p>　　5.2.3樓房登記窗體設(shè)計(jì)20</p><p>　　5.2.4宿舍管理窗體設(shè)計(jì)22</p><p>　　5.2.5學(xué)生信息錄入窗體設(shè)計(jì)23</p>&

9、lt;p>　　5.2.6入樓登記窗體設(shè)計(jì)25</p><p>　　5.2.7宿舍查詢窗體設(shè)計(jì)26</p><p>　　5.2.8用戶管理窗體設(shè)計(jì) ..................................... 28</p><p>　　第六章學(xué)生公寓管理系統(tǒng)設(shè)計(jì)總結(jié)31</p><p>　　6.1系統(tǒng)的優(yōu)點(diǎn)31&l

10、t;/p><p>　　6.2系統(tǒng)的局限性31</p><p>　　6.3畢業(yè)設(shè)計(jì)心得31</p><p>　　6.4 畢業(yè)設(shè)計(jì)總結(jié)31</p><p><b>　　參考文獻(xiàn)32</b></p><p><b>　　摘要</b></p><p>　　

11、在各高校擴(kuò)大招生的形勢(shì)下,公寓管理的工作變得越來(lái)越繁重。采用傳統(tǒng)的人工管理模式，效率低下，不能滿足實(shí)際的需求。</p><p>　　本文描述的是基于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)模式，使用

12、Delphi開(kāi)發(fā)工具開(kāi)發(fā)，應(yīng)用SQL Server2000數(shù)據(jù)庫(kù)管理系統(tǒng)，通過(guò)ADO連接數(shù)據(jù)庫(kù)。</p><p>　　本篇論文以一個(gè)學(xué)生公寓管理系統(tǒng)的分析、設(shè)計(jì)和開(kāi)發(fā)的全過(guò)程為主線，給出了學(xué)生公寓管理系統(tǒng)的設(shè)計(jì)和技術(shù)實(shí)現(xiàn)的過(guò)程，特別在細(xì)節(jié)上分析功能和函數(shù)的實(shí)現(xiàn)思想。涉及到學(xué)生公寓管理的基本功能在本論文中都有相應(yīng)的描述。</p><p>　　關(guān)鍵字：Delphi，ADO，SQL Server

13、2000，學(xué)生公寓管理</p><p><b>　　引言</b></p><p>　　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ì)的生

14、產(chǎn)方式和生活方式，成為減輕人們體力與腦力勞動(dòng)，幫助人們完成一些人們難以完成任務(wù)的有效工具。</p><p>　　隨著電腦的普及與使用，現(xiàn)在的管理也提升了一個(gè)檔次，漸漸實(shí)現(xiàn)了無(wú)紙化辦公。高校是科研的陣地，后勤的公寓管理也應(yīng)該一改傳統(tǒng)的人工管理，更加信息化，時(shí)代化，節(jié)省人力物力，提高效率?；谶@一點(diǎn)，開(kāi)發(fā)此學(xué)生公寓管理系統(tǒng)。</p><p><b>　　1.1課題背景</b&g

15、t;</p><p>　　高校公寓管理部門(mén)在宿管工作中擔(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ā)展。</p><p>　　學(xué)生公寓管理系統(tǒng)從學(xué)生的分房到最后的公寓管理全部電腦化

16、。本系統(tǒng)主要包括：住宿人員信息查詢、出入登記、收費(fèi)以及對(duì)學(xué)生住宿情況等的查詢，可以更快地了解到每個(gè)學(xué)生的住宿情況以及這個(gè)學(xué)校寢室分配的情況。</p><p>　　使用學(xué)生公寓管理系統(tǒng)，只需一到兩名數(shù)據(jù)操作員即可操作管理系統(tǒng)，節(jié)省大量人力和財(cái)力；可以存儲(chǔ)大量學(xué)生住宿的基本信息，安全、高效、快捷；可以迅速查到所涉及的各種信息；操作簡(jiǎn)單，使用方便、高效；系統(tǒng)使用壽命長(zhǎng)、成本低。這些特點(diǎn)可以極大地提高公寓信息管理的效率。

17、</p><p>　　1.2研究與應(yīng)用現(xiàn)狀</p><p>　　據(jù)調(diào)查顯示，現(xiàn)在國(guó)內(nèi)絕大多數(shù)學(xué)校的學(xué)生公寓管理還沒(méi)有信息化，主要還是停留在手工管理的形式。這樣，公寓管理的效率就非常低，需要的人力，物力也非常多，所以，盡快開(kāi)發(fā)一套適合各高校的學(xué)生公寓管理系統(tǒng)是非常必要的。</p><p>　　1.3本文的主要內(nèi)容</p><p>　　本文研究的

18、主要內(nèi)容有：</p><p>　　學(xué)生公寓管理系統(tǒng)的需求分析</p><p>　　學(xué)生公寓管理系統(tǒng)開(kāi)發(fā)的相關(guān)技術(shù)</p><p>　　學(xué)生公寓管理系統(tǒng)的總體設(shè)計(jì)</p><p>　　系統(tǒng)數(shù)據(jù)庫(kù)的概念設(shè)計(jì)</p><p>　　系統(tǒng)各模塊的詳細(xì)設(shè)計(jì)</p><p>　　系統(tǒng)評(píng)價(jià)以及設(shè)計(jì)中碰到的難點(diǎn)&

19、lt;/p><p><b>　　相關(guān)技術(shù)介紹</b></p><p>　　開(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)。</p><p>　　

20、2.1 Delphi</p><p>　　Delphi是Pascal語(yǔ)言的一種版本，但它與傳統(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ì)，可以被放大

21、縮小、移動(dòng)、最大最小化等。程序框架及一個(gè)空白的窗體已經(jīng)是一個(gè)可運(yùn)行應(yīng)用程序，只是不處理任何事情。</p><p>　　2.1.1 Delphi特點(diǎn)</p><p>　　Delphi自從1995年2月誕生以來(lái)，獲得了巨大的榮譽(yù)和廣泛的影響力，以可視化編程、強(qiáng)大的編譯功能、友好的用戶界面聞名于世。</p><p><b>　　主要特點(diǎn)是：</b>&

22、lt;/p><p>　　高效的可視化組件庫(kù)和面向?qū)ο蟮募軜?gòu)。</p><p>　　具有多種操作向?qū)Ш驮诰€幫助，大大方便程序編寫(xiě)。</p><p>　　界面設(shè)計(jì)所見(jiàn)即所得和鼠標(biāo)拖曳方式，可以輕松設(shè)計(jì)出華麗的界面。</p><p>　　支持各種最新及最常用的技術(shù)如 Win32 API、OLE、COM、DCOM、ActiveX、ISAPI、NSAPI、

23、DirectX等。</p><p>　　全面支持Windows 應(yīng)用程序。</p><p>　　具有開(kāi)放式數(shù)據(jù)庫(kù)結(jié)構(gòu)，集成了豐富的數(shù)據(jù)庫(kù)開(kāi)發(fā)工具。</p><p>　　具有強(qiáng)大的面向網(wǎng)絡(luò)編程功能，其C/S開(kāi)發(fā)工具在高性能的快速應(yīng)用程序開(kāi)發(fā)領(lǐng)域成為行業(yè)標(biāo)準(zhǔn)。</p><p>　　Delphi產(chǎn)品按照功能可以分為4個(gè)類型：</p>

24、<p>　　Delphi集成開(kāi)發(fā)環(huán)境（Integrate Develop Environment）：提供友好的用戶編程開(kāi)發(fā)界面，集成了高效的編譯器、項(xiàng)目管理器、團(tuán)隊(duì)開(kāi)發(fā)支持、高級(jí)調(diào)試等功能。</p><p>　　Delphi可視化組件庫(kù)（Visual Component Library）：提供幾百個(gè)常用組件，用于數(shù)據(jù)庫(kù)訪問(wèn)、用戶接口、數(shù)據(jù)處理、報(bào)表和Internet開(kāi)發(fā)。</p><

25、p>　　Borland數(shù)據(jù)引擎（Borland Data Engineer）：能夠進(jìn)行數(shù)據(jù)庫(kù)管理，并與數(shù)據(jù)庫(kù)服務(wù)器高速連接。</p><p>　　MIDAS：是一個(gè)集成與Delphi的分布式應(yīng)用稽核，功能強(qiáng)大，主要用于商業(yè)邏輯的智能集中管理和企業(yè)交易的快速處理。</p><p>　　2.1.2 Delphi7</p><p>　　2002年8月6日，Borla

26、nd公司正式宣布推出Delphi 7 Studio，全面支持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ā)和部署。</p><p>　　Delphi7的新特點(diǎn)：</p><p>　　企業(yè)應(yīng)用的MDA開(kāi)發(fā)：通過(guò)讓開(kāi)發(fā)者從設(shè)計(jì)到發(fā)布都重復(fù)使用一個(gè)應(yīng)用程序，加速開(kāi)發(fā)進(jìn)程，同時(shí)顯著減少

27、代碼量和需要的開(kāi)發(fā)時(shí)間。</p><p>　　可視化的快速Web開(kāi)發(fā)：讓開(kāi)發(fā)者能夠在Delphi7環(huán)境中可視化地創(chuàng)建Web應(yīng)用，并且利用它的應(yīng)用模型框架，不必再考慮通用的服務(wù)器端的開(kāi)發(fā)任務(wù)，還能透明地處理會(huì)話管理。</p><p>　　內(nèi)建的Linux的跨平臺(tái)支持：Delphi7在出售時(shí)將附帶Delphi語(yǔ)言版本的Dylix3。Kylix3是第一個(gè)Linux操作系統(tǒng)上的高性能的可視化集成開(kāi)

28、發(fā)環(huán)境（IDE），它適用來(lái)快速創(chuàng)建數(shù)據(jù)庫(kù)應(yīng)用、GUI應(yīng)用、Web應(yīng)用和Web服務(wù)應(yīng)用。</p><p>　　企業(yè)級(jí)的報(bào)表能力：讓開(kāi)發(fā)者能創(chuàng)建跨平臺(tái)的報(bào)表，這些報(bào)表能幫助查看應(yīng)用程序運(yùn)行的效率。</p><p>　　Windows XP應(yīng)用：Delphi7包含了對(duì)Windows XP風(fēng)格支持，讓開(kāi)發(fā)者能夠創(chuàng)建可以利用Windows XP 使用者界面風(fēng)格的應(yīng)用。</p><

29、p>　　2.1.3 Delphi與VB</p><p>　　Visual 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）系統(tǒng)，可以使用DAO、RDO、ADO連接數(shù)據(jù)庫(kù)，或者創(chuàng)建ActiveX控件。</p><p>　　本系統(tǒng)采用Delphi進(jìn)行開(kāi)發(fā)，主要原因：</

30、p><p>　　VB不支持面向?qū)ο?，Delphi卻是面向?qū)ο蟮摹?lt;/p><p>　　VB無(wú)法編譯原生目標(biāo)文件，而Delphi可以。</p><p>　　VB無(wú)法對(duì)底層操作，而Delphi可以。</p><p>　　VB有依賴性，即用VB作的程序換別的操作系統(tǒng)還要重新包裝，Delphi則不用。</p><p>　　VB沒(méi)有

31、類庫(kù)，Delphi的類庫(kù)很多，還可以繼承。</p><p>　　2.2 SQL Server </p><p>　　數(shù)據(jù)庫(kù)是數(shù)據(jù)管理的最新技術(shù)，是計(jì)算機(jī)科學(xué)的重要分支。今天，信息資源已成為各個(gè)部門(mén)的重要財(cái)富和資源。建立一個(gè)滿足各級(jí)部門(mén)信息處理要求的行之有效的信息系統(tǒng)也成為企業(yè)或組織生存和發(fā)展的重要條件。因此，作為信息系統(tǒng)核心和基礎(chǔ)的數(shù)據(jù)庫(kù)技術(shù)得到越來(lái)越廣泛的應(yīng)用。對(duì)于一個(gè)國(guó)家來(lái)說(shuō)，數(shù)據(jù)庫(kù)

32、的建設(shè)規(guī)模、數(shù)據(jù)庫(kù)信息量的大小和使用頻度已成為衡量一個(gè)國(guó)家信息化程度的重要標(biāo)志。</p><p>　　2.2.1 SQL Server 2005</p><p>　　SQL Server 2005 是一個(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 公司推出的，該版本繼承了S

33、QL Serve 7.0 版本的優(yōu)點(diǎn)，同時(shí)又比它增加了許多更先進(jìn)的功能，可跨越從運(yùn)行Microsoft Windows 98 的電腦到運(yùn)行Microsoft Windows 2000 的大型多處理器的服務(wù)器等多種平臺(tái)使用。</p><p>　　2.2.2 SQL Server 2000的特點(diǎn)</p><p>　　簡(jiǎn)單易操作：SQL Server 2000 界面風(fēng)格和Windows界面風(fēng)格完

34、全一致。</p><p>　　兼容性良好，具有擴(kuò)展性，可靠性。</p><p>　　數(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è)。</p>

35、;<p><b>　　2.3 ADO技術(shù)</b></p><p>　　ADO( Active Data Objects )是一種提供訪問(wèn)各種數(shù)據(jù)類型的鏈接機(jī)制，是通過(guò)ODBC的方法訪問(wèn)數(shù)據(jù)庫(kù)的接口。ADO主要優(yōu)點(diǎn)是易于使用、高速度、低內(nèi)存支出和占用磁盤(pán)空間較少，同時(shí)具有遠(yuǎn)程數(shù)據(jù)服務(wù)(RDS)功能。在Delphi中，提供了一組ADO組件，用于對(duì)ADO訪問(wèn)能力的支持。</p&

36、gt;<p><b>　　需求分析</b></p><p><b>　　3.1需求分析</b></p><p>　　3.1.1學(xué)生公寓需求簡(jiǎn)介</p><p>　　學(xué)生公寓管理應(yīng)考慮以下幾方面的要求：</p><p>　　用戶需求：可以對(duì)學(xué)生公寓進(jìn)行有效的管理，包括公寓信息、寢室信息、

37、學(xué)生住宿資料以及交費(fèi)信息等。</p><p>　　學(xué)生方面：讓學(xué)生感覺(jué)到學(xué)校的管理透明。</p><p>　　學(xué)校方面：可以查詢每一個(gè)學(xué)生的相關(guān)信息。</p><p>　　來(lái)訪人員方面：為防止公寓安全，所有來(lái)訪人員必須提供學(xué)生住宿的公寓號(hào)和寢室號(hào)才可以進(jìn)入公寓。</p><p>　　3.1.2功能性需求</p><p>

38、;　　軟件需求分析是指對(duì)目標(biāo)軟件系統(tǒng)在功能、行為、性能、設(shè)計(jì)約束等方面的期望。需求分析是軟件設(shè)計(jì)、實(shí)現(xiàn)測(cè)試直至維護(hù)的主要基礎(chǔ)，良好的需求分析可以避免或盡早提出早期的錯(cuò)誤，從而降低軟件的開(kāi)發(fā)成本，改進(jìn)軟件的質(zhì)量。</p><p>　　本學(xué)生公寓管理系統(tǒng)應(yīng)完成以下任務(wù)：</p><p>　　學(xué)生寢室基本信息管理：首先統(tǒng)一安排學(xué)生入住，如果有學(xué)生要更換寢室，可以方便查到哪個(gè)寢室還有空床，包括該寢

39、室內(nèi)已住學(xué)生的基本信息，安排入住。</p><p>　　學(xué)生公寓管理：可以添加新建公寓的信息，以及添加該公寓內(nèi)的寢室信息，以及修改公寓和寢室的相關(guān)信息（公寓號(hào)和寢室號(hào)）。</p><p>　　寢室收費(fèi)管理：收費(fèi)以寢室為單位，當(dāng)費(fèi)用收好以后，可以打印報(bào)表以查看交費(fèi)記錄。</p><p>　　來(lái)訪人員管理：對(duì)來(lái)訪人員進(jìn)行嚴(yán)格登記，包括來(lái)訪時(shí)間，結(jié)束時(shí)間，來(lái)訪人員的來(lái)訪事

40、由，能查詢到每一條來(lái)訪人員和被訪人的信息。</p><p>　　3.1.3 非功能性需求</p><p>　　用戶界面需求：簡(jiǎn)潔、易用、易懂，友好的用戶界面。</p><p>　　硬件需求：Pentium以上計(jì)算機(jī)</p><p>　　可靠性需求：保證用戶在正常使用本系統(tǒng)時(shí)，用戶的操作或誤操作不會(huì)產(chǎn)生數(shù)據(jù)丟失。</p><

41、p>　　安全保密性需求：用戶登錄需要密碼驗(yàn)證。</p><p><b>　　3.2可行性分析</b></p><p>　　開(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ù)可行性等。</p><p>　　3.2.

42、1經(jīng)濟(jì)可行性</p><p>　　經(jīng)濟(jì)可行性，主要是針對(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ì)上具有完全的可行性。</p><p&g

43、t;　　3.2.2技術(shù)可行性</p><p>　　本系統(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ù)性也很好。在大二期間，就已學(xué)過(guò)SQL Server2000。所以，學(xué)生公寓管理總體上開(kāi)發(fā)難度不高，技術(shù)上具有完全的可行性。</p&g

44、t;<p>　　數(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ù)上是可行的。</p><p><b>　　總體設(shè)計(jì)</b></p><p><b>　　4.1總體設(shè)計(jì)目標(biāo)</b></p>&l

45、t;p>　　減少公寓管理人員大量繁瑣的工作。公寓管理人員通過(guò)使用本系統(tǒng)，可以隨時(shí)根據(jù)需要，查詢公寓、寢室、來(lái)訪人員、交費(fèi)等信息，對(duì)學(xué)生公寓管理系統(tǒng)中的數(shù)據(jù)進(jìn)行錄入、添加、刪除和查詢，并可以根據(jù)特定條件對(duì)數(shù)據(jù)進(jìn)行查詢。</p><p>　　減少學(xué)校在學(xué)生公寓管理方面的人力和物力的投資。</p><p>　　學(xué)生公寓管理系統(tǒng)功能強(qiáng)大、操作簡(jiǎn)單，擁有友好的易額面，適用于各類學(xué)校的學(xué)生公寓管

46、理。</p><p><b>　　4.2功能模塊設(shè)計(jì)</b></p><p><b>　　系統(tǒng)功能模塊包括：</b></p><p>　　公寓管理：包括公寓樓房管理和寢室管理。對(duì)學(xué)校的公寓以及公寓里的寢室進(jìn)行管理，處理包括數(shù)據(jù)的添加、修改、刪除、查詢等。</p><p>　　學(xué)生管理：包括學(xué)生基本信

47、息管理和學(xué)生交費(fèi)管理。對(duì)學(xué)生入住寢室信息和學(xué)生基本信息的管理以及以寢室為單位的收費(fèi)管理，包括對(duì)數(shù)據(jù)的添加、修改、刪除、查詢等。</p><p>　　來(lái)訪人員登記管理：公寓登記信息的處理，為維護(hù)公寓的安全，對(duì)來(lái)訪人員有嚴(yán)格的審查，以及對(duì)登記信息的處理。</p><p>　　系統(tǒng)管理和維護(hù)：包括修改口令，添加用戶等。</p><p><b>　　4.3數(shù)據(jù)庫(kù)設(shè)

48、計(jì)</b></p><p>　　4.3.1數(shù)據(jù)流分析</p><p>　　數(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ì)流。</p><p>　　數(shù)據(jù)流圖技術(shù)是可以擴(kuò)充到允許實(shí)時(shí)系統(tǒng)的建模。數(shù)據(jù)流圖是當(dāng)前業(yè)務(wù)過(guò)程或新系統(tǒng)操作步驟的一種表示方法。數(shù)據(jù)流圖

49、可以在一個(gè)抽象的廣泛范圍內(nèi)表示系統(tǒng)。在一個(gè)多步驟的活動(dòng)中，高層數(shù)據(jù)流圖對(duì)數(shù)據(jù)和處理部分提供一個(gè)整體的統(tǒng)覽，這是對(duì)包含在軟件需求規(guī)格說(shuō)明中的精確、詳細(xì)敘述的補(bǔ)充。數(shù)據(jù)流圖描述了軟件需求規(guī)格說(shuō)明中的功能需求怎樣結(jié)合在一起，使用戶可以執(zhí)行指定的任務(wù)。從圖中迅速反饋的信息有助于對(duì)所探討的任務(wù)流的理解進(jìn)行提煉加工。</p><p>　　學(xué)生公寓管理系統(tǒng)的第一層數(shù)據(jù)流圖，本數(shù)據(jù)流圖描述了學(xué)生公寓系統(tǒng)的各個(gè)模塊處理過(guò)程中的數(shù)據(jù)

50、處理的過(guò)程。</p><p>　　公寓管理中的數(shù)據(jù)處理圖是本系統(tǒng)的第二層數(shù)路流圖,描述了在公寓管理中所作操作的數(shù)據(jù)處理。</p><p>　　寢室管理數(shù)據(jù)流程圖，描述了用戶在添加、刪除、查詢寢室信息時(shí)的數(shù)據(jù)處理過(guò)程。</p><p>　　來(lái)訪人員管理數(shù)據(jù)流圖，描述了在來(lái)訪人員訪問(wèn)學(xué)生時(shí)，用戶所作操作的數(shù)據(jù)處理過(guò)程。</p><p>　　學(xué)生交

51、費(fèi)管理數(shù)據(jù)流圖，描述了學(xué)生交費(fèi)與宿管科收費(fèi)處理過(guò)程中的數(shù)據(jù)處理過(guò)程。</p><p><b>　　4.3.2數(shù)據(jù)建模</b></p><p>　　模型是軟件的第一個(gè)技術(shù)表示。信息系統(tǒng)的建模是用模型來(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ù)的

52、存儲(chǔ)和處理。</p><p>　　學(xué)生公寓管理系統(tǒng)比較復(fù)雜，為了建立這樣一個(gè)復(fù)雜系統(tǒng)的模型，并滿足實(shí)際對(duì)象不斷發(fā)展的需求，在實(shí)際設(shè)計(jì)中應(yīng)遵循下列原則：</p><p>　　準(zhǔn)確性：所建立的模型要求能夠正確反映實(shí)際的對(duì)象，能夠滿足學(xué)生公寓管理工作的實(shí)際需求。·</p><p>　　完整性：指要求模型既能反映對(duì)象系統(tǒng)的靜態(tài)特性，同時(shí)能夠反映其豐富的動(dòng)態(tài)特性。&

53、lt;/p><p>　　一致性：要求建立的模型能保證從分析階段到設(shè)計(jì)階段的平穩(wěn)過(guò)渡。</p><p>　　4.3.3各實(shí)體關(guān)系模型</p><p>　　經(jīng)過(guò)分析，由上面的數(shù)據(jù)流程圖可以得出以下各實(shí)體之間的E-R圖，</p><p>　　4.3.4數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)</p><p><b>　　基本定義：</

54、b></p><p>　　主鍵：在表中是唯一不可重復(fù)的值。具有索引的作用，可以用來(lái)快速查詢表內(nèi)數(shù)據(jù)。</p><p>　　外鍵：有此表的列或列的組合和其他表的主鍵值或UNIQUE_KEY具有相關(guān)聯(lián)的特性。此時(shí)，可以將這些列或列組合定義為外鍵。</p><p>　　索引：建立索引是為了加快查詢速度的有效手段。用戶可以根據(jù)應(yīng)用環(huán)境的需求，在基本表上建立一個(gè)或多個(gè)索

55、引，以提供多種存取路徑，加快查找速度。</p><p>　　視圖：從一個(gè)或幾個(gè)基本表（或視圖）導(dǎo)出的表，它與基本表不同，是一個(gè)虛表。</p><p>　　學(xué)生公寓系統(tǒng)的數(shù)據(jù)庫(kù)包含以下表：</p><p><b>　　基本表</b></p><p><b>　　Admin表</b></p>

56、<p><b>　　出樓管理表</b></p><p><b>　　來(lái)訪管理表</b></p><p><b>　　每日情況表</b></p><p><b>　　宿舍管理表</b></p><p><b>　　宿舍評(píng)分表</

57、b></p><p><b>　　宿舍信息表</b></p><p><b>　　學(xué)生信息表</b></p><p><b>　　員工管理表</b></p><p><b>　　系統(tǒng)詳細(xì)設(shè)計(jì)</b></p><p><b

58、>　　5.1系統(tǒng)工程框架</b></p><p>　　系統(tǒng)工程框架主要簡(jiǎn)介了學(xué)生公寓系統(tǒng)各模塊,并對(duì)數(shù)據(jù)模塊和公共類模塊作了詳細(xì)的說(shuō)明。</p><p>　　5.1.1學(xué)生公寓管理系統(tǒng)的模塊：</p><p>　　提供數(shù)據(jù)訪問(wèn)支持模塊。</p><p>　　提供程序中需要的數(shù)據(jù)實(shí)體模塊。</p><p&g

59、t;<b>　　系統(tǒng)管理模塊。</b></p><p><b>　　宿舍管理管理模塊。</b></p><p><b>　　學(xué)生管理模塊。</b></p><p><b>　　來(lái)訪管理模塊。</b></p><p><b>　　查詢管理模塊<

60、;/b></p><p><b>　　幫助模塊</b></p><p>　　5.1.2 DATA數(shù)據(jù)模塊</p><p>　　學(xué)生公寓管理系統(tǒng)的數(shù)據(jù)庫(kù)連接管理在Data1模塊中的Config.pas中，定義了數(shù)據(jù)庫(kù)連接字符串connectionStr來(lái)改變連接，代碼如下：</p><p><b>　　

61、const</b></p><p><b>　　//連接字符串</b></p><p>　　connectionStr='Provider=SQLOLEDB.1;'+'Password=sa;Persist Security Info=True;'</p><p>　　+'User ID=sa

62、;Initial Catalog=xsgy;'+'Data Source=(local)';</p><p>　　在Data模塊中，將程序中所有對(duì)數(shù)據(jù)的操作進(jìn)行了有效的封裝，設(shè)計(jì)出了2個(gè)函數(shù)：</p><p>　　//執(zhí)行沒(méi)有返回值的sql語(yǔ)句,如果正確執(zhí)行則返回true,否則返回false</p><p>　　function ExeSql

63、NoQuery(sql:string):boolean;</p><p>　　// 執(zhí)行有返回值的sql語(yǔ)句,返回得到的ADOQuery;</p><p>　　function ExeSqlQuery(sql:string):TADOQuery;</p><p>　　5.1.3 Common 類模塊</p><p>　　在程序中，為每一張表定

64、義了一個(gè)類。存放在Common目錄下，類的成員變量與對(duì)應(yīng)表中的字段名相同，并在后面加了注釋。例如Tstudent 類的定義：</p><p><b>　　//學(xué)生信息</b></p><p><b>　　type</b></p><p>　　TStudent=class</p><p>　　id:i

65、nteger;</p><p>　　stdNo:string;//學(xué)號(hào)</p><p>　　stdName:string;//姓名</p><p>　　sex:string;//性別</p><p>　　birthday:string;//出生日期</p><p>　　subject:string;//專業(yè)</p

66、><p>　　classes:string;//班級(jí) </p><p>　　HouseNo:string;//公寓號(hào)</p><p>　　roomNo:string;//寢室號(hào) </p><p><b>　　end;</b></p><p>　　5.2系統(tǒng)各窗體詳細(xì)設(shè)計(jì)</p>

67、<p>　　5.2.1.登錄窗體設(shè)計(jì)</p><p>　　登錄窗體命名為 frm_login。</p><p>　　登錄窗體的主要功能是驗(yàn)證用戶是否合法，其驗(yàn)證用戶的主要流程如下：</p><p>　　登錄窗體進(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)

68、閉，變量inputNum來(lái)記錄輸入錯(cuò)誤密碼的次數(shù)，其初始值為零。</p><p>　　登錄窗體在主窗體之前彈出，以確保程序安全性，代碼如下：</p><p>　　procedure TFrm_main.FormCreate(Sender: TObject);</p><p><b>　　var</b></p><p>　

69、　frm_login:Tfrm_login;</p><p><b>　　begin</b></p><p>　　frm_login:=Tfrm_login.Create(self); //創(chuàng)建登錄窗體</p><p>　　frm_login.ShowModal;</p><p><b>　　end;<

70、;/b></p><p>　　5.2.2系統(tǒng)主界面設(shè)計(jì)</p><p>　　主界面窗體命名為Frm_main。主界面窗體由主菜單和工具按鈕組成。</p><p>　　主界面窗體畫(huà)面簡(jiǎn)潔明了,外觀大方,體現(xiàn)出了程序的易操作性</p><p>　　用戶可以根據(jù)自己的需求，通過(guò)菜單來(lái)使用程序的各項(xiàng)功能，工具欄按鈕則提供了用戶一些常用的功能，讓

71、用戶可以更加快速，簡(jiǎn)單地進(jìn)行操作,</p><p>　　為了使程序更加美觀，本系統(tǒng)使用了vclskin。</p><p>　　Vclskin是Delphi的控件，可以對(duì)Delphi程序進(jìn)行換膚功能。</p><p><b>　　特點(diǎn)：</b></p><p>　　操作簡(jiǎn)單，不需修改源代碼，可以直接美化程序。</p&

72、gt;<p>　　擁有大量高質(zhì)量的皮膚。</p><p>　　通過(guò)vclskin這個(gè)控件，對(duì)程序的所有窗體的外觀以及按鈕進(jìn)行了美化。</p><p>　　5.2.3樓房登記窗體設(shè)計(jì)</p><p>　　樓房登記窗體命名為frm_lfdj。</p><p><b>　　添加按鈕</b></p>

73、<p>　　當(dāng)用戶單擊“添加”按鈕時(shí)，程序會(huì)將文本框清空，以便用戶可以輸入新的信息，對(duì)應(yīng)代碼如下：</p><p>　　procedure Tfrm_lfdj.Button1Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　if Edit1.Text ='

74、9; then</p><p><b>　　begin</b></p><p>　　MessageBox(handle,'樓房號(hào)不能為空!','警告',MB_OK+MB_ICONWARNING);</p><p>　　Edit1.SetFocus ;</p><p><b>　　

75、exit;</b></p><p><b>　　end;</b></p><p>　　if Edit2.Text ='' then</p><p><b>　　begin</b></p><p>　　MessageBox(handle,'樓層數(shù)不能為空!'

76、,'警告',MB_OK+MB_ICONWARNING);</p><p>　　Edit2.SetFocus ;</p><p><b>　　exit;</b></p><p><b>　　end;</b></p><p>　　if Edit3.Text ='' the

77、n</p><p><b>　　begin</b></p><p>　　MessageBox(handle,'開(kāi)始房間不能為空!','警告',MB_OK+MB_ICONWARNING);</p><p>　　Edit3.SetFocus ;</p><p><b>　　exit;

78、</b></p><p><b>　　end;</b></p><p>　　if Edit4.Text ='' then</p><p><b>　　begin</b></p><p>　　MessageBox(handle,'結(jié)束房間不能為空!',

79、9;警告',MB_OK+MB_ICONWARNING);</p><p>　　Edit4.SetFocus ;</p><p><b>　　exit;</b></p><p><b>　　end;</b></p><p>　　if Edit5.Text ='' then<

80、;/p><p><b>　　begin</b></p><p>　　MessageBox(handle,'房間價(jià)格不能為空!','警告',MB_OK+MB_ICONWARNING);</p><p>　　Edit5.SetFocus ;</p><p><b>　　exit;<

81、/b></p><p><b>　　end;</b></p><p>　　if Edit6.Text ='' then</p><p><b>　　begin</b></p><p>　　MessageBox(handle,'入住人數(shù)不能為空!','警告

82、',MB_OK+MB_ICONWARNING);</p><p>　　Edit6.SetFocus ;</p><p><b>　　exit;</b></p><p><b>　　end;</b></p><p><b>　　取消按鈕</b></p>&l

83、t;p>　　當(dāng)用戶單擊“取消”按鈕時(shí)，整個(gè)界面退出。對(duì)應(yīng)的代碼如下：</p><p>　　procedure Tfrm_lfdj.Button2Click(Sender: TObject);</p><p><b>　　begin</b></p><p><b>　　close;</b></p><

84、;p><b>　　end;</b></p><p>　　5.2.4.宿舍信息窗體設(shè)計(jì)</p><p>　　宿舍信息窗體命名為frm_ssxx。</p><p>　　寢室信息窗體可以添加相關(guān)寢室的信息。</p><p>　　當(dāng)點(diǎn)擊“添加”按鈕時(shí)可以對(duì)宿舍信息進(jìn)行添加，對(duì)應(yīng)代碼如下：</p><p&

85、gt;　　procedure Tfrm_ssxx.Button1Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　if Edit1.Text ='' then</p><p><b>　　begin</b></p><p&

86、gt;　　MessageBox(handle,'宿舍號(hào)不能為空!','警告',MB_OK+MB_ICONWARNING);</p><p>　　Edit1.SetFocus ;</p><p><b>　　exit;</b></p><p><b>　　end;</b></p>

87、<p>　　if combobox1.Text ='' then</p><p><b>　　begin</b></p><p>　　MessageBox(handle,'樓房號(hào)不能為空!','警告',MB_OK+MB_ICONWARNING);</p><p>　　combobox1

88、.SetFocus ;</p><p><b>　　exit;</b></p><p><b>　　end;</b></p><p>　　if combobox3.Text ='' then</p><p><b>　　begin</b></p>

89、<p>　　MessageBox(handle,'應(yīng)住人數(shù)不能為空!','警告',MB_OK+MB_ICONWARNING);</p><p>　　combobox3.SetFocus ;</p><p><b>　　exit;</b></p><p><b>　　end;</b>

90、</p><p><b>　　try</b></p><p>　　with data1.ADO_ssxx do</p><p><b>　　begin</b></p><p><b>　　close;</b></p><p>　　sql.Clear;&l

91、t;/p><p>　　sql.Add('insert 宿舍信息 values (:a,:b,:c,:d,:e,:f,:g,:h)');</p><p>　　parameters.ParamByName('a').Value:=trim(combobox1.Text) + '-' +trim(edit1.Text);</p><

92、p>　　parameters.ParamByName('b').Value:=trim(combobox3.Text);</p><p>　　parameters.ParamByName('c').Value:='';</p><p>　　parameters.ParamByName('d').Value:=trim(c

93、ombobox5.Text);</p><p>　　parameters.ParamByName('e').Value:=trim(combobox2.Text);</p><p>　　parameters.ParamByName('f').Value:=trim(combobox4.Text);</p><p>　　paramete

94、rs.ParamByName('g').Value:=trim(edit6.Text);</p><p>　　parameters.ParamByName('h').Value:=trim(memo1.Text);</p><p><b>　　execsql;</b></p><p><b>　　end

95、;</b></p><p>　　application.MessageBox('添加成功','提示',64);</p><p><b>　　except</b></p><p>　　application.MessageBox('添加失敗','提示',64);</

96、p><p><b>　　end;</b></p><p><b>　　end;</b></p><p>　　當(dāng)點(diǎn)擊“取消”按鈕時(shí)，界面退出，對(duì)應(yīng)代碼如下：</p><p>　　procedure Tfrm_ssxx.Button2Click(Sender: TObject);</p>&l

97、t;p><b>　　begin</b></p><p><b>　　close;</b></p><p><b>　　end;</b></p><p>　　5.2.5學(xué)生信息錄入窗體設(shè)計(jì)</p><p>　　學(xué)生錄入窗體命名為frm_jbxxlr。</p>

98、<p>　　該窗體主要是進(jìn)行學(xué)生信息的錄入，當(dāng)點(diǎn)擊“添加”按鈕時(shí)可以進(jìn)行信息的錄入。對(duì)應(yīng)代碼如下：</p><p>　　procedure Tfrm_jbxxlr.Button1Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　if Edit1.Text ='&

99、#39; then</p><p><b>　　begin</b></p><p>　　MessageBox(handle,'學(xué)號(hào)不能為空!','警告',MB_OK+MB_ICONWARNING);</p><p>　　Edit1.SetFocus ;</p><p><b>　

100、　exit;</b></p><p><b>　　end;</b></p><p>　　if Edit2.Text ='' then</p><p><b>　　begin</b></p><p>　　MessageBox(handle,'姓名不能為空!'

101、,'警告',MB_OK+MB_ICONWARNING);</p><p>　　Edit2.SetFocus ;</p><p><b>　　exit;</b></p><p><b>　　end;</b></p><p>　　if combobox3.Text =''

102、 then</p><p><b>　　begin</b></p><p>　　MessageBox(handle,'宿舍號(hào)不能為空!','警告',MB_OK+MB_ICONWARNING);</p><p>　　combobox3.SetFocus ;</p><p><b>

103、　　exit;</b></p><p><b>　　end;</b></p><p><b>　　try</b></p><p>　　with data1.ADO_stu do</p><p><b>　　begin</b></p><p>

104、<b>　　close;</b></p><p>　　sql.Clear;</p><p>　　sql.Add('insert 學(xué)生信息 values (:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k)');</p><p>　　parameters.ParamByName('a').Value

105、:=trim(edit1.Text);</p><p>　　parameters.ParamByName('b').Value:=trim(edit2.Text);</p><p>　　parameters.ParamByName('c').Value:=trim(combobox1.Text);</p><p>　　paramete

106、rs.ParamByName('d').Value:=trim(combobox2.Text);</p><p>　　parameters.ParamByName('e').Value:=trim(edit3.Text);</p><p>　　parameters.ParamByName('f').Value:=trim(edit4.Text

107、);</p><p>　　parameters.ParamByName('g').Value:=trim(combobox3.Text);</p><p>　　parameters.ParamByName('h').Value:=trim(combobox4.Text);</p><p>　　parameters.ParamByNam

108、e('i').Value:=strtodate(maskedit1.Text);</p><p>　　parameters.ParamByName('j').Value:=strtodate(maskedit2.Text);</p><p>　　parameters.ParamByName('k').Value:=trim(memo1.Tex

109、t);</p><p><b>　　execsql;</b></p><p><b>　　end;</b></p><p>　　application.MessageBox('添加成功','提示',64);</p><p><b>　　except</

110、b></p><p>　　application.MessageBox('添加失敗，檢查信息是否存在或正確','失敗',64);</p><p><b>　　end;</b></p><p><b>　　end;</b></p><p>　　procedure

111、Tfrm_jbxxlr.Edit1KeyPress(Sender: TObject; var Key: Char);</p><p><b>　　begin</b></p><p>　　if not(key in['0'..'9',#8])then</p><p><b>　　begin</b&g

112、t;</p><p><b>　　key:=#0;</b></p><p>　　application.MessageBox('學(xué)號(hào)只能為數(shù)字','提示',64);</p><p><b>　　end;</b></p><p><b>　　end;</

113、b></p><p>　　當(dāng)點(diǎn)擊“取消”時(shí)，退出界面。對(duì)應(yīng)代碼如下：</p><p>　　procedure Tfrm_jbxxlr.Button2Click(Sender: TObject);</p><p><b>　　begin</b></p><p><b>　　close;</b>&

114、lt;/p><p><b>　　end;</b></p><p>　　5.2.6入樓登記窗體設(shè)計(jì)</p><p>　　入樓登記窗體命名為frm_rldj。</p><p>　　5.2.7宿舍查詢窗體設(shè)計(jì)</p><p>　　宿舍查詢窗體命名為frm_c_ss。</p><p>

115、　　此個(gè)窗體只要是對(duì)宿舍進(jìn)行查詢、修改和刪除等功能。</p><p>　　進(jìn)行查詢是代碼如下：</p><p>　　procedure Tfrm_c_ss.Button1Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　with data1.ADO_pub

116、lic do</p><p><b>　　begin</b></p><p><b>　　close;</b></p><p>　　sql.Clear;</p><p>　　sql.Add('')</p><p><b>　　end;</b&g

117、t;</p><p>　　進(jìn)行修改時(shí)代碼如下：</p><p>　　procedure Tfrm_c_ss.ToolButton1Click(Sender: TObject);</p><p><b>　　begin</b></p><p><b>　　try</b></p><

118、p>　　with data1.ADO_ssxx do</p><p><b>　　begin</b></p><p><b>　　edit;</b></p><p>　　fieldbyname('宿舍號(hào)').Value:=trim(edit1.Text);</p><p>　　

119、fieldbyname('價(jià)格').Value:=trim(edit2.Text);</p><p>　　fieldbyname('應(yīng)住人數(shù)').Value:=trim(edit3.Text);</p><p>　　fieldbyname('狀態(tài)').Value:=trim(edit4.Text);</p><p>　

120、　fieldbyname('居住性別').Value:=trim(edit5.Text);</p><p>　　fieldbyname('電話').Value:=trim(edit6.Text);</p><p>　　fieldbyname('備注').Value:=trim(memo1.Text);</p><p>

121、<b>　　post;</b></p><p><b>　　end;</b></p><p>　　application.MessageBox('修改成功','提示',64);</p><p><b>　　except</b></p><p>　

122、　application.MessageBox('修改失敗','提示',64);</p><p><b>　　end;</b></p><p><b>　　end;</b></p><p>　　進(jìn)行刪除時(shí)代碼如下：</p><p>　　procedure Tfrm_c

123、_ss.ToolButton3Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　if messagebox(self.Handle,'真的要?jiǎng)h除嗎？','提示',mb_yesno+mb_iconquestion)=idyes then</p><p&g

124、t;　　data1.ADO_ssxx.Delete;</p><p><b>　　end;</b></p><p>　　5.2.8用戶管理窗體設(shè)計(jì)</p><p>　　用戶管理窗體命名為frm_manager。</p><p>　　這個(gè)模塊可以對(duì)用戶進(jìn)行添加刪除，以及對(duì)密碼的修改。添加用戶代碼如下：</p>

125、<p>　　procedure Tfrm_manager.Button1Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　if (edit1.Text<>'') and (edit2.Text<>'') then</p>

126、<p><b>　　begin</b></p><p><b>　　try</b></p><p>　　with data1.ADO_man do</p><p><b>　　begin</b></p><p><b>　　close;</b>&

127、lt;/p><p>　　sql.Clear;</p><p>　　sql.Add('insert admin values(:a,:b)'); //向管理員表中添加數(shù)據(jù)</p><p>　　parameters.ParamByName('a').Value:=trim(edit1.Text); //用戶名</p><

128、p>　　parameters.ParamByName('b').Value:=trim(edit2.Text); //密碼</p><p><b>　　execsql;</b></p><p><b>　　end;</b></p><p>　　application.MessageBox('添

129、加成功','提示',64);</p><p><b>　　except</b></p><p>　　application.MessageBox('用戶已經(jīng)存在','失敗',64)</p><p><b>　　end;</b></p><p>

130、<b>　　end</b></p><p><b>　　else</b></p><p>　　application.MessageBox('用戶或密碼不能為空','提示',64);</p><p><b>　　end;</b></p><p>

131、<b>　　修改密碼代碼如下：</b></p><p>　　procedure Tfrm_manager.Button3Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　if edit4.Text<>'' then</p&g