房屋出租管理系統(tǒng)論 文-無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng)

無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 本文配套程序下載地址 ： 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ()-大學(xué)生畢業(yè)設(shè)計(jì)站 ,免費(fèi)畢業(yè)設(shè)計(jì)論文 ,無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) 大學(xué)生畢業(yè)設(shè)計(jì) ,出售各類(lèi)畢業(yè)設(shè)計(jì)源碼 ,論文 ,程序源碼 ,網(wǎng)站源碼 ,免費(fèi)視頻教程 ,我們將竭誠(chéng)為您服務(wù)！ 引 言 20世紀(jì)以來(lái)，社會(huì)生產(chǎn)力迅速發(fā)展，科學(xué)技術(shù)突飛猛進(jìn)，人們進(jìn)行信息交流的深度與廣度不斷增加，信息量急劇增長(zhǎng)，傳統(tǒng)的信息處理與決策的手段已不能適應(yīng)社會(huì)的需要，信息的重要性和信息處理問(wèn)題的緊迫性空前提高了，面對(duì)著日益復(fù)雜和不斷發(fā)展，變化的社會(huì)環(huán)境，特別是企業(yè)間日趨劇烈的競(jìng)爭(zhēng)形勢(shì)，一個(gè)人、 一個(gè)企業(yè)要在現(xiàn)代社會(huì)中求生存，求發(fā)展，必須具備足夠的信息和強(qiáng)有力的信息收集與處理手段。 對(duì)于房屋出租者來(lái)說(shuō)，大量復(fù)雜的房產(chǎn)、租金、合同信息難于通過(guò)傳統(tǒng)的方法進(jìn)行管理；對(duì)于租房者來(lái)說(shuō)，大量復(fù)雜的房產(chǎn)信息使他們感到迷茫。房屋出租管理系統(tǒng)正是鐘對(duì)上述的問(wèn)題而開(kāi)發(fā)的，通過(guò)計(jì)算機(jī)系統(tǒng)來(lái)管理房屋出租情況，可以解決大量房產(chǎn)信息的查詢(xún)和管理，便于更好的進(jìn)行物業(yè)管理，同時(shí)也為租房者提供方便。這樣，使原本復(fù)雜的房產(chǎn)、租金、合同信息簡(jiǎn)單化。房屋出租管理系統(tǒng)實(shí)質(zhì)上就是一個(gè)管理信息系統(tǒng)。 管理信息系統(tǒng)是一個(gè)集信息技術(shù)、經(jīng)濟(jì)管理理論、 統(tǒng)計(jì)學(xué)與運(yùn)籌學(xué)、數(shù)據(jù)庫(kù)技術(shù)為一體的綜合性系統(tǒng)，是一個(gè)資金技術(shù)密集型、勞動(dòng)密集型、智力密集型的項(xiàng)目。我國(guó)擁有廣闊的市場(chǎng)和豐富的人才資源，有幾十年的技術(shù)積累和經(jīng)驗(yàn)積累，有一定的后發(fā)優(yōu)勢(shì)。管理信息系統(tǒng)的創(chuàng)新工作既不能妄自菲薄，更不能夜郎自大。要抓住當(dāng)前網(wǎng)絡(luò)經(jīng)濟(jì)興起的有利時(shí)機(jī)，以實(shí)現(xiàn)我國(guó)信息技術(shù)和信息產(chǎn)業(yè)的跨越式發(fā)展，更好地發(fā)揮信息產(chǎn)業(yè)對(duì)國(guó)民經(jīng)濟(jì)增長(zhǎng)的拉動(dòng)作用。 開(kāi)發(fā)房屋出租管理系統(tǒng)的過(guò)程就是要實(shí)現(xiàn)數(shù)據(jù)處理方式由人工管理向計(jì)算機(jī)管理的轉(zhuǎn)變，它在計(jì)算機(jī)技術(shù)和房屋管理實(shí)踐活動(dòng)兩者之間架設(shè)橋梁。 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 摘 要 房屋出 租 管理系統(tǒng)是為房屋 出租者 管理房屋出租、出售信息資料而設(shè)計(jì)的信息管理系統(tǒng)，包含有后臺(tái)數(shù)據(jù)庫(kù)和前臺(tái)應(yīng)用程序系統(tǒng)兩大部分，后臺(tái)數(shù)據(jù)庫(kù)要求數(shù)據(jù)的一致性和完整性、安全性 ,用以?xún)?chǔ)存單位工程文檔資料及相關(guān)信息，前臺(tái)應(yīng)用程序系統(tǒng)要求應(yīng)用程序功能完備、易于使用和界面友好等。經(jīng)過(guò)全面分析，確定數(shù)據(jù)庫(kù)采用 SQL server2000，開(kāi)發(fā)工具為 Delphi 7.0，利用 Microsoft 公司的 ADO（ ActiveX Data Object，ActiveX數(shù)據(jù)對(duì)象）訪(fǎng)問(wèn)和操作數(shù)據(jù)庫(kù)服務(wù)器中的數(shù)據(jù)。 關(guān)鍵詞： 數(shù)據(jù)庫(kù) 面向?qū)ο箝_(kāi)發(fā)軟件包 數(shù)據(jù)對(duì)象 Abstract House rent Management System is to design for house agency enterprise or business. It have two include the database of backstage supporter and customer application system, the database of backstage supporter ask safety and integrity and the consistency of data to store unit project document information and related information, customer end ask application program function complete, easily to use and interface friendly etc. Via overall analysis, determine to use database adopt SQL server 2000, development tool is Delphi 7.0, ADO visit Keywords: database System Delphi ADO 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 第一章 房屋出租管理系統(tǒng)概述 1.1 房屋出租的發(fā)展及使用情況 隨著城市現(xiàn)代化建設(shè)步伐不斷加快，城市規(guī)模不斷擴(kuò)大 國(guó)內(nèi)外的 房地產(chǎn)業(yè)的迅速發(fā)展，房屋出售出租行業(yè)業(yè)務(wù)日益增多 。大型技術(shù)開(kāi)發(fā)區(qū)的周 邊多半為出租房 ,為了適應(yīng)這種形式， 擺脫以前的人工操作。 房屋出售出租行業(yè)不僅要提高本身的硬件基礎(chǔ)，還要有一整套完善的房屋出售和出租的軟件管理系統(tǒng)，以便以最快地速度響應(yīng)客戶(hù)的需求，及時(shí)為他們提供服務(wù)，使買(mǎi)賣(mài)或出租承租雙方都能夠方便快捷的得到信息，同時(shí)，使用計(jì)算機(jī)管理系統(tǒng)進(jìn)行管理，對(duì)企業(yè)內(nèi)部來(lái)看，可以提高工作效率；對(duì)外來(lái)看，獲得競(jìng)爭(zhēng)優(yōu)勢(shì)。 21世紀(jì)以來(lái)，科學(xué)技術(shù)突飛猛進(jìn)，人們進(jìn)行信息交流的深度與廣度不斷增加，信息量急劇增長(zhǎng)，傳統(tǒng)的信息處理與決策的手段已不能適應(yīng)社會(huì)的需要，信息的重要性和信息處理問(wèn)題的緊迫性 空前提高了，面對(duì)著日益復(fù)雜和不斷發(fā)展，變化的社會(huì)環(huán)境，特別是企業(yè)間日趨劇烈的競(jìng)爭(zhēng)形勢(shì)，一個(gè)人、一個(gè)企業(yè)要在現(xiàn)代社會(huì)中求生存，求發(fā)展，必須具備足夠的信息和強(qiáng)有力的信息收集與處理手段。在 Internet 出現(xiàn)之前，房屋出租的方式通常為電話(huà)預(yù)訂。世界各地的客人選擇了旅游目的地之后很難了解當(dāng)?shù)胤课莩鲎獾臓顩r，如當(dāng)?shù)胤课莸臄?shù)量、規(guī)模、星級(jí)、服務(wù)水平、預(yù)訂情況等，這就給預(yù)訂工作帶來(lái)了很大的麻煩，即使是規(guī)模較大的旅行社獲得上述信息的途徑也非常有限，書(shū)籍、廣告成為其主要的信息載體。然而書(shū)籍、廣告作為信息載體有其不可避免的局限 性。首先，信息的表現(xiàn)形式過(guò)于單一。一些陳舊的圖片和枯燥的文字又能使我們對(duì)一間房屋有多少了解呢？其次，信息的更新速度跟不上。 對(duì)于房屋出租者來(lái)說(shuō)，大量復(fù)雜的房產(chǎn)、租金、合同信息難于通過(guò)傳統(tǒng)的方法進(jìn)行管理；對(duì)于租房者來(lái)說(shuō)，大量復(fù)雜的房產(chǎn)信息使他們感到迷茫。房屋出租管理系統(tǒng)正是鐘對(duì)上述的問(wèn)題而開(kāi)發(fā)的，通過(guò)計(jì)算機(jī)系統(tǒng)來(lái)管理房屋出租情況，可以解決大量房產(chǎn)信息的查詢(xún)和管理，便于更好的進(jìn)行物業(yè)管理，同時(shí)也為租房者提供方便。這樣，使原本復(fù)雜的房產(chǎn)、租金、合同信息簡(jiǎn)單化。房屋出租管理系統(tǒng)實(shí)質(zhì)上就是一個(gè)管理信息系統(tǒng)。 管理信息系統(tǒng)是一個(gè)集信息技術(shù)、經(jīng)濟(jì)管理理論、統(tǒng)計(jì)學(xué)與運(yùn)籌學(xué)、數(shù)據(jù)庫(kù)技無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 術(shù)為一體的綜合性系統(tǒng)，是一個(gè)資金技術(shù)密集型、勞動(dòng)密集型、智力密集型的項(xiàng)目。我國(guó)擁有廣闊的市場(chǎng)和豐富的人才資源，有幾十年的技術(shù)積累和經(jīng)驗(yàn)積累，有一定的后發(fā)優(yōu)勢(shì)。管理信息系統(tǒng)的創(chuàng)新工作既不能妄自菲薄，更不能夜郎自大。要抓住當(dāng)前網(wǎng)絡(luò)經(jīng)濟(jì)興起的有利時(shí)機(jī)，以實(shí)現(xiàn)我國(guó)信息技術(shù)和信息產(chǎn)業(yè)的跨越式發(fā)展，更好地發(fā)揮信息產(chǎn)業(yè)對(duì)國(guó)民經(jīng)濟(jì)增長(zhǎng)的拉動(dòng)作用。 1.2 管理信息系統(tǒng)概述 管理信息系統(tǒng)是一門(mén)新的學(xué)科，到目前為止，發(fā)展還很不完善，它引用其他學(xué)科如管理科學(xué)與 工程、經(jīng)濟(jì)理論、統(tǒng)計(jì)學(xué)、運(yùn)籌學(xué)以及計(jì)算機(jī)學(xué)科、通信技術(shù)的概念和方法，融合成一門(mén)新的綜合性、邊緣性的學(xué)科。 20 世紀(jì)，隨著全球經(jīng)濟(jì)的蓬勃發(fā)展，眾多經(jīng)濟(jì)學(xué)家紛紛提出了新的管理理論。 20世紀(jì) 50 年代，西蒙提出管理依賴(lài)于信息和決策的思想。同時(shí)期的維納發(fā)表了控制論，他認(rèn)為管理是一個(gè)控制過(guò)程。 1958 年，蓋爾寫(xiě)到：“管理將以較低的成本得到及時(shí)準(zhǔn)確的信息，做到較好的控制”。這個(gè)時(shí)期，計(jì)算機(jī)開(kāi)始用于會(huì)計(jì)工作。數(shù)據(jù)處理一詞已經(jīng)出現(xiàn)。 1970 年， Walter T.Kennevan 給剛剛出現(xiàn)的管理信息系統(tǒng)這個(gè)詞語(yǔ)下了一個(gè)定 義：“以口頭或書(shū)面的形式，在合適的時(shí)間向經(jīng)理，職員以及外界人員提供過(guò)去的，現(xiàn)在的，預(yù)測(cè)未來(lái)的有關(guān)企業(yè)內(nèi)部及其環(huán)境的信息，以幫助他們進(jìn)行決策”。在這個(gè)定義里強(qiáng)調(diào)了用信息支持決策，但并沒(méi)有強(qiáng)調(diào)應(yīng)用模型，沒(méi)有提到計(jì)算機(jī)的應(yīng)用。 1985 年，管理信息系統(tǒng)的創(chuàng)始人，明尼蘇達(dá)大學(xué)的管理學(xué)教授 Gordon B.Davis 給了管理信息系統(tǒng)一個(gè)較完整的定義，即“管理信息系統(tǒng)是一個(gè)利用計(jì)算機(jī)軟硬件資源以及數(shù)據(jù)庫(kù)的人 -機(jī)系統(tǒng)。它能提供信息支持企業(yè)或組織的運(yùn)行，管理和決策功能?！边@個(gè)定義全面地說(shuō)明了管理信息系統(tǒng)的目標(biāo)，功能和組成， 而且反映了管理信息系統(tǒng)在當(dāng)時(shí)達(dá)到的水平。 90年代以來(lái)，發(fā)達(dá)國(guó)家的企業(yè)已進(jìn)入信息網(wǎng)絡(luò)化的階段，企業(yè)信息管理由于全球競(jìng)爭(zhēng)環(huán)境的需要，正在逐步轉(zhuǎn)向其更高階段，即企業(yè)知識(shí)管理新階段。企業(yè)不僅強(qiáng)調(diào)能力的提高，而且還強(qiáng)調(diào)知識(shí)創(chuàng)新能力的增強(qiáng)，這是一場(chǎng)企業(yè)信息化的革命。 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 管理信息系統(tǒng)是依賴(lài)于電子計(jì)算機(jī)的發(fā)展而發(fā)展的，以計(jì)算機(jī)和通信技術(shù)為代表的現(xiàn)代信息技術(shù)為信息管理提供了強(qiáng)有力的工具和手段，信息技術(shù)的進(jìn)步，使整個(gè)社會(huì)的信息化水平不斷提高。 1.3 管理信息系統(tǒng)開(kāi)發(fā)方法 管理信息系統(tǒng)的開(kāi)發(fā)方法是一個(gè)復(fù)雜的系統(tǒng)工程，它涉 及到計(jì)算機(jī)處理技術(shù)，系統(tǒng)理論，組織結(jié)構(gòu)，管理功能，管理知識(shí)等各方面的問(wèn)題，至今沒(méi)有一種統(tǒng)一完備的開(kāi)發(fā)方法，但是每一種開(kāi)發(fā)方法都要遵循相應(yīng)的開(kāi)發(fā)策略。任何一種開(kāi)發(fā)策略都要明確以下問(wèn)題： 系統(tǒng)要解決的問(wèn)題：如采取何種方式解決組織管理和信息處理方面的問(wèn)題，對(duì)企業(yè)提出的新的管理需求該如何滿(mǎn)足等。 系統(tǒng)可行性研究：確定系統(tǒng)所要實(shí)現(xiàn)的目標(biāo)。通過(guò)對(duì)企業(yè)狀況的初步調(diào)研得出現(xiàn)狀分析的結(jié)果，然后提出可行性方案并進(jìn)行論證。系統(tǒng)可行性的研究包括目標(biāo)和方案可行性、技術(shù)可行性、經(jīng)濟(jì)可行性和社會(huì)影響方面的考慮。 系統(tǒng)開(kāi) 發(fā)的原則：在系統(tǒng)開(kāi)發(fā)過(guò)程中，要遵循領(lǐng)導(dǎo)參與、優(yōu)化創(chuàng)新、實(shí)用高效、處理規(guī)范化的原則。 系統(tǒng)開(kāi)發(fā)前的準(zhǔn)備工作：作好開(kāi)發(fā)人員的組織準(zhǔn)備和企業(yè)基礎(chǔ)準(zhǔn)備工作。 系統(tǒng)開(kāi)發(fā)方法的選擇和開(kāi)發(fā)計(jì)劃的制定：針對(duì)已經(jīng)確定的開(kāi)發(fā)策略選定相應(yīng)的開(kāi)發(fā)方法，是結(jié)構(gòu)化系統(tǒng)分析和設(shè)計(jì)方法，還是選擇原型法或面向?qū)ο蟮姆椒?。開(kāi)發(fā)計(jì)劃的制定是要明確系統(tǒng)開(kāi)發(fā)的工作計(jì)劃、投資計(jì)劃、工程進(jìn)度計(jì)劃和資源利用計(jì)劃。 管理信息系統(tǒng)開(kāi)發(fā)方法主要有：結(jié)構(gòu)化生命周期開(kāi)發(fā)方法、原型法，面向?qū)ο蟮拈_(kāi)發(fā)方法等。 1.4 結(jié)構(gòu)化生命周期開(kāi)發(fā)方法 目前較為 流行的 MIS開(kāi)發(fā)方法是 結(jié)構(gòu)化的生命周期開(kāi)發(fā)方法。其基本思想是：用系統(tǒng)的思想和系統(tǒng)工程的方法，按用戶(hù)至上的原則，結(jié)構(gòu)化、模塊化地自上而下的對(duì)生命周期進(jìn)行分析與設(shè)計(jì)。 用結(jié)構(gòu)化生命周期開(kāi)發(fā)方法開(kāi)發(fā)一個(gè)系統(tǒng)，將整個(gè)開(kāi)發(fā)過(guò)程分為 5 個(gè)依次連接的階無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 段： 系統(tǒng)規(guī)劃階段 系統(tǒng)分析階段 系統(tǒng)設(shè)計(jì)階段 系統(tǒng)實(shí)施階段 系統(tǒng)運(yùn)行階段 這 5個(gè)階段共同構(gòu)成了系統(tǒng)開(kāi)發(fā)的生命周期。結(jié)構(gòu)化生命周期開(kāi)發(fā)方法嚴(yán)格區(qū)分了開(kāi)發(fā)階段，非常重視文檔工作，對(duì)于開(kāi)發(fā)過(guò)程中出現(xiàn)的問(wèn)題可以得到及時(shí)的糾正，避免了出現(xiàn)混亂狀態(tài)。但是，該方 法不可避免的出現(xiàn)開(kāi)發(fā)周期長(zhǎng)、系統(tǒng)預(yù)算超支的情況，而且在開(kāi)發(fā)過(guò)程中用戶(hù)的需求一旦發(fā)生變化，系統(tǒng)將很難做出調(diào)整 。 1.5 原型法 原型法在系統(tǒng)開(kāi)發(fā)過(guò)程中也得到不少的用應(yīng)。原型法的基本思想是系統(tǒng)開(kāi)發(fā)人員憑借自己對(duì)用戶(hù)需求的理解，通過(guò)強(qiáng)有力的軟件環(huán)境支持，構(gòu)造出一個(gè)實(shí)在的系統(tǒng)原型，然后與用戶(hù)協(xié)商，反復(fù)修改原型直至用戶(hù)滿(mǎn)意。原型法的用應(yīng)使人們對(duì)需求有了漸進(jìn)的認(rèn)識(shí)，從而使系統(tǒng)開(kāi)發(fā)更有針對(duì)性。另外，原型法的運(yùn)用充分利用了最新的軟件工具，使系統(tǒng)開(kāi)發(fā)效率大為提高。 原型法的最大的問(wèn)題是難于對(duì)開(kāi)發(fā)過(guò)程進(jìn)行管理及控制，其次是 “原型”的設(shè)計(jì)難度較大，需要較高層次的設(shè)計(jì)人員，原型法目前還是一個(gè)不夠成熟和普遍應(yīng)用的方法，但隨著第四代語(yǔ)言、面向?qū)ο?、軟件?fù)用技術(shù)的發(fā)展和普及，原型法也將會(huì)有更大發(fā)展。 在實(shí)際的 MIS 開(kāi)發(fā)中，經(jīng)常是生命周期法與原型法相結(jié)合使用，需求模型確定階段往往采用系統(tǒng)分析的方法，在設(shè)計(jì)和實(shí)施階段則采用快速原型法。這樣，既能較好地確定系統(tǒng)開(kāi)發(fā)目標(biāo)，又能較快地交互開(kāi)發(fā)實(shí)現(xiàn)所確定的系統(tǒng)。 1.6 面向?qū)ο笙到y(tǒng)開(kāi)發(fā)方法 面向?qū)ο螅?OO, OBJECT ORIENTED）的系統(tǒng)開(kāi)發(fā)方法，是近年來(lái)受到關(guān)注的一種系統(tǒng)開(kāi)發(fā)方法。面向?qū)?象的系統(tǒng)開(kāi)發(fā)方法的基本思想是將客觀(guān)世界抽象地看成是若干相互聯(lián)系的對(duì)象，然后根據(jù)對(duì)象和反復(fù)法的特性研制出一套軟件工具，使之能夠映射為計(jì)算機(jī)軟件系統(tǒng)結(jié)構(gòu)模型和進(jìn)程，從而實(shí)現(xiàn)信息系統(tǒng)的開(kāi)發(fā)。 在這一方法中，對(duì)象是指問(wèn)題空間一次或多次出現(xiàn)的事物的抽象。結(jié)構(gòu)化方法以功無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 能分解為基礎(chǔ)，系統(tǒng)的功能在系統(tǒng)內(nèi)外環(huán)境急劇變化時(shí)很不穩(wěn)定。而問(wèn)題空間中的對(duì)象是系統(tǒng)中最穩(wěn)定的部分，基于對(duì)象的分類(lèi)結(jié)構(gòu)和組裝結(jié)構(gòu)，并利用服務(wù)、消息、繼承等概念建立的系統(tǒng)，有較強(qiáng)的應(yīng)變的能力，應(yīng)用軟件可重用性好，特別適合于復(fù)雜、大型系統(tǒng)的開(kāi)發(fā)和處理多媒體數(shù)據(jù) 。程序設(shè)計(jì)的思想方法越來(lái)越接近人們思維方式。它擯棄了持續(xù)許久的“自頂向下”（ Top-Down）和“自底向上”（ Bottom up）的爭(zhēng)論，把對(duì)于復(fù)雜系統(tǒng)的認(rèn)識(shí)歸結(jié)為對(duì)一批對(duì)象及關(guān)系的認(rèn)識(shí)。因此，軟件工作進(jìn)一步向用戶(hù)靠近，這對(duì)于計(jì)算機(jī)應(yīng)用深入到各個(gè)領(lǐng)域是十分有利的。面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言的出現(xiàn)，使軟件開(kāi)發(fā)工作更加方便。面向?qū)ο蟮母鞣N方法正在進(jìn)一步的發(fā)展，并形成了逐步合流的趨勢(shì)?？傊?，面向?qū)ο蟮某绦蛟O(shè)計(jì)是人們克服軟件危機(jī)的又一次努力。 1.7 系統(tǒng)開(kāi)發(fā)方法的選擇 本次系統(tǒng)開(kāi)發(fā)我選擇了結(jié)構(gòu)化生命周期開(kāi)發(fā)方法。用結(jié) 構(gòu)化生命周期開(kāi)發(fā)方法開(kāi)發(fā)一個(gè)系統(tǒng)，將整個(gè)開(kāi)發(fā)過(guò)程分為 5個(gè)依次連接的階段： 系統(tǒng)規(guī)劃階段：主要任務(wù)是明確系統(tǒng)的方法要求，并進(jìn)行逐步的調(diào)查，通過(guò)可行性的研究確定下一階段的實(shí)施。系統(tǒng)規(guī)劃方法有戰(zhàn)略目標(biāo)集轉(zhuǎn)化法（ SST, Strategy set transformation）、關(guān)鍵成功因素法（ CSF， Critical success factors）和企業(yè)規(guī)劃法（ BSP, Business system planning）。 系統(tǒng)分析階段：主要任務(wù)是對(duì)組織結(jié)構(gòu)與功能進(jìn)行分析，理清企業(yè)業(yè)務(wù)流程和數(shù)據(jù)流 程的處理，并且將企業(yè)業(yè)務(wù)流程與數(shù)據(jù)流程抽象化，通過(guò)對(duì)功能數(shù)據(jù)的分析，提出新系統(tǒng)的邏輯方案。 系統(tǒng)設(shè)計(jì)階段：主要任務(wù)是確定系統(tǒng)的總體設(shè)計(jì)方案、劃分子系統(tǒng)功能、確定共享數(shù)據(jù)的組織，然后進(jìn)行詳細(xì)設(shè)計(jì)，如處理模塊的設(shè)計(jì)、數(shù)據(jù)庫(kù)系統(tǒng)的設(shè)計(jì)、輸入輸出界面的設(shè)計(jì)和編碼的設(shè)計(jì)等。 系統(tǒng)實(shí)施階段：主要任務(wù)是討論確定設(shè)計(jì)方案、對(duì)系統(tǒng)模塊進(jìn)行調(diào)試、進(jìn)行系統(tǒng)運(yùn)行所需數(shù)據(jù)的準(zhǔn)備、對(duì)相關(guān)人員進(jìn)行培訓(xùn)等。 系統(tǒng)運(yùn)行階段：主要任務(wù)是進(jìn)行系統(tǒng)的日常運(yùn)行管理，評(píng)價(jià)系統(tǒng)的運(yùn)行效率，無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 對(duì)運(yùn)行費(fèi)用和效果進(jìn)行監(jiān)理審計(jì)，如出現(xiàn)問(wèn)題則對(duì)系 統(tǒng)進(jìn)行修改、調(diào)整。 這 5個(gè)階段共同構(gòu)成了系統(tǒng)開(kāi)發(fā)的生命周期。結(jié)構(gòu)化生命周期開(kāi)發(fā)方法嚴(yán)格區(qū)分了開(kāi)發(fā)階段，非常重視文檔工作，對(duì)于開(kāi)發(fā)過(guò)程中出現(xiàn)的問(wèn)題可以得到及時(shí)的糾正，避免了出現(xiàn)混亂狀態(tài)。但是，該方法不可避免的出現(xiàn)開(kāi)發(fā)周期長(zhǎng)、系統(tǒng)預(yù)算超支的情況，而且在開(kāi)發(fā)過(guò)程中用戶(hù)的需求一旦發(fā)生變化，系統(tǒng)將很難做出調(diào)整。 第二章 系統(tǒng)分析及需求分析 2.1 功能需求分析 為了房屋管理者更好地管理房屋的合同、租金等一系列問(wèn)題，也為了讓租房者更方便地了解待租房屋的情況，現(xiàn)開(kāi)發(fā)一個(gè)房屋出租管理系統(tǒng)。房屋出租管理系統(tǒng)是一個(gè)關(guān)于房 屋及其出租業(yè)務(wù)的管理信息系統(tǒng)。對(duì)于用戶(hù)來(lái)講，主要包括的功能模塊有：房屋管理、合同管理、租金管理、統(tǒng)計(jì)和系統(tǒng)維護(hù)等。對(duì)于租房者來(lái)說(shuō)，主要的功能模塊有：基本房?jī)r(jià)查詢(xún)、房產(chǎn)咨詢(xún)和待出租房屋瀏覽。 本系統(tǒng)的設(shè)計(jì)就是根據(jù)房東和房客的需要，為房東提供主要以房產(chǎn)及出租業(yè)務(wù)管理為基本要求，為房客提供房產(chǎn)信息咨詢(xún)。 2.2 系統(tǒng)功能分析 本系統(tǒng)主要有以下功能要求： 1.用戶(hù)登錄模塊 : 主要用于用戶(hù)的登錄。當(dāng)用戶(hù)輸入用戶(hù)名和密碼后經(jīng)過(guò)確認(rèn)，才能進(jìn)入房產(chǎn)管理系統(tǒng)。如果不是用戶(hù)，拒絕進(jìn)入，但是，任何人都可以進(jìn)入游客瀏覽窗口，對(duì)房 屋的基本情況進(jìn)行了解。 2.房屋管理模塊 : 該模塊是用戶(hù)登錄后進(jìn)入的第一個(gè)模塊，主要用于用戶(hù)對(duì)房屋及其業(yè)務(wù)的情況進(jìn)行管理，其中包括： 房產(chǎn)信息管理模塊 : 主要用于房產(chǎn)信息的插入、刪除、修改、保存等基本操作。 房產(chǎn)總表瀏覽 : 用于查看房產(chǎn)信息的總體情況。 3.合同管理模塊 : 該模塊是用戶(hù)對(duì)合同信息的基本情況進(jìn)行管理。包括有： 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 合同信息管理 : 主要用于對(duì)合同信息進(jìn)行插入、修改、刪除、保存等基本的管理。 到期合同處理 : 主要對(duì)到期的合同進(jìn)行處理，若合同已到期，可結(jié)束其使用權(quán)。 合同信息查詢(xún) : 用于查詢(xún)合同的使用情 況和基本信息。 合同總表瀏覽 : 用于查看合同信息的總體情況。 4.租金管理模塊 : 該模塊是用戶(hù)對(duì)租金信息的基本情況進(jìn)行管理。主要包括有： 租金收取 : 用于收取租金時(shí)對(duì)租金的收取情況的管理。 按合同號(hào)租金查詢(xún) : 即輸入想要查詢(xún)的合同號(hào)，就可查看到有關(guān)此合同的租金收取情況。 按發(fā)票號(hào)租金查詢(xún) : 輸入想要查詢(xún)的發(fā)票號(hào)，可查出該發(fā)票的租金相干情況。 5.統(tǒng)計(jì)模塊 : 該模塊用于對(duì)房產(chǎn)信息、合同信息、租金信息等的統(tǒng)計(jì)。具體包括有： 本月租金統(tǒng)計(jì) : 用于對(duì)所輸入年月的租金進(jìn)行統(tǒng)計(jì)。 履約金統(tǒng)計(jì) : 對(duì)未退還的履約金進(jìn)行統(tǒng)計(jì) 。 到期合同統(tǒng)計(jì) : 即對(duì)已到期的合同進(jìn)行統(tǒng)計(jì)。 空閑房屋統(tǒng)計(jì) : 對(duì)已空的房屋即可租用的房屋進(jìn)行統(tǒng)計(jì)。 6.系統(tǒng)維護(hù)模塊 : 該模塊用于對(duì)本系統(tǒng)的基本信息進(jìn)行管理。主要包括有： 數(shù)據(jù)備份 : 用于對(duì)相干數(shù)據(jù)進(jìn)行備份，將備份文件保存起來(lái)以防丟失。 數(shù)據(jù)恢復(fù) : 用于恢復(fù)文件和數(shù)據(jù)。 密碼管理 : 對(duì)用戶(hù)的密碼進(jìn)行修改、保存管理。 7.游客瀏覽模塊： 主要是讓想了解房產(chǎn)的人對(duì)所要了解的信息進(jìn)行查詢(xún)。包括有以下功能： 房?jī)r(jià)查詢(xún) : 是對(duì)所要求的房屋進(jìn)行月租金查詢(xún)，看是否滿(mǎn)意。 房屋咨詢(xún) : 對(duì)所想租的房屋類(lèi)型進(jìn)行咨詢(xún)，看是否有 符合條件的。 8.有房出租：功能是可以查看所有可出租房屋的總體情況 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 2.3 系統(tǒng)功能模塊設(shè)計(jì) 圖 2-1 功能模塊圖 2.4 系統(tǒng)運(yùn)行環(huán)境的需求 Pentium 133 以上（推薦 Pentium 400 以上，可加快反應(yīng)速度） ,64M 以上內(nèi)存（推薦 128M 以上，可加快數(shù)據(jù)存取速度） ,1G 以上硬盤(pán)空間（推薦 4G 以上，根據(jù)實(shí)際數(shù)據(jù)大小而定） ,10M 網(wǎng)卡（推薦 10M/100M網(wǎng)卡或 100M網(wǎng)卡，可加快數(shù)據(jù)傳輸速度） ,VGA 或更高分辨率的 顯示器 或?qū)I(yè)顯示器 。 ,鍵盤(pán)和鼠標(biāo)或?qū)Ｓ迷O(shè)備。 用戶(hù)登錄 房 屋 出 租 管 理 系 統(tǒng) 游客登錄 房產(chǎn)管理 合同管理 租金管理 統(tǒng)計(jì)模塊 系統(tǒng)維護(hù) 房?jī)r(jià)查詢(xún) 房屋咨詢(xún) 有房出租 退 出 房產(chǎn)信息管理 房產(chǎn)總表瀏覽 租金收取 按合同號(hào)查詢(xún) 按發(fā)票號(hào)查詢(xún) 本月租金統(tǒng)計(jì) 履約金統(tǒng)計(jì) 空閑房屋統(tǒng)計(jì) 合同信息管理 到期合同處理 合同信息查詢(xún) 合同總表瀏覽 房產(chǎn)信息管理 房產(chǎn)信息管理 房產(chǎn)信息管理 房產(chǎn)信息管理 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 服務(wù)器： Windows 2000 server、 SQL server 2000 個(gè)人版 服務(wù)器端 客戶(hù)端： Windows XP、 SQL server 2000 企業(yè)版 客戶(hù)端 開(kāi)發(fā)工具： Delphi 7.0 企業(yè)版 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 第三章 系統(tǒng)數(shù)據(jù)庫(kù)的設(shè)計(jì) 計(jì)算機(jī)化的管理信息系統(tǒng)是一個(gè)以大量數(shù)據(jù)資源為基礎(chǔ)并以此為中心而建立起來(lái)的應(yīng)用系統(tǒng)。其目的是為一個(gè)組織中各個(gè)部門(mén)和各個(gè)管理層次提供必要的管理信息和決策數(shù)據(jù)，由于它涉及到應(yīng)用領(lǐng)域中一定的深度和廣度，因而必然要接觸大量的不同類(lèi)型的數(shù)據(jù)。對(duì)這些數(shù)據(jù)的合理組織和有效的存儲(chǔ)是管理信息系統(tǒng)開(kāi)發(fā)中一項(xiàng)重要的工作。 3.1 數(shù)據(jù)庫(kù)的需求分析 數(shù)據(jù)庫(kù)需求分析是數(shù)據(jù)庫(kù)設(shè)計(jì)的第一階段也是很重要的一個(gè)階段，它是收集基本數(shù)據(jù)以及數(shù)據(jù)處理的流程，為以后進(jìn)一步設(shè)計(jì)打下基礎(chǔ)，需求分析主要解決兩個(gè)問(wèn)題： 處理要求 ,弄清應(yīng)用系統(tǒng)用戶(hù)需求對(duì)數(shù)據(jù)庫(kù)進(jìn)行什么樣的處理，及數(shù)據(jù)庫(kù)中各種數(shù)據(jù)之間的關(guān)系； 內(nèi)容要求 :弄清應(yīng)用系統(tǒng)用戶(hù)所需要操作的數(shù)據(jù)，決定在數(shù)據(jù)庫(kù)中存儲(chǔ)什么數(shù)據(jù)。 在數(shù)據(jù)庫(kù)需求分析后，應(yīng)該得到一個(gè)數(shù)據(jù)字典文檔，包括 3個(gè)方面的內(nèi)容： 數(shù)據(jù)項(xiàng) : 包括名 稱(chēng)、含義、類(lèi)型、取值范圍、長(zhǎng)度以及和其它數(shù)據(jù)項(xiàng)之間的邏輯關(guān)系。 數(shù)據(jù)結(jié)構(gòu) : 若干數(shù)據(jù)項(xiàng)的有意義的集合，包括名稱(chēng)、含義以及組成數(shù)據(jù)結(jié)構(gòu)的數(shù)據(jù)項(xiàng) 數(shù)據(jù)流 : 指數(shù)據(jù)庫(kù)中數(shù)據(jù)的處理過(guò)程，包括輸入、處理、輸出。 3.2 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì) 概念結(jié)構(gòu)設(shè)計(jì)的主要任務(wù)是根據(jù)用戶(hù)需求設(shè)計(jì)數(shù)據(jù)庫(kù)的概念數(shù)據(jù)模型（簡(jiǎn)稱(chēng)概念模型）。概念模型獨(dú)立于具體的數(shù)據(jù)庫(kù)管理系統(tǒng)，它描述的是從用戶(hù)角度看到的數(shù)據(jù)庫(kù)，反映了用戶(hù)的現(xiàn)實(shí)環(huán)境，而與數(shù)據(jù)庫(kù)將來(lái)怎樣實(shí)現(xiàn)無(wú)關(guān)。 本系統(tǒng)包括的數(shù)據(jù)項(xiàng)有： 用戶(hù)表：用戶(hù)號(hào)，用戶(hù)名，密碼。 房產(chǎn)表： 房屋號(hào)，坐落位置，面積，類(lèi)型，狀態(tài)，合同號(hào)，基本月租金。 合同表：合同號(hào)，租期，起租日期，到期日期，付款期限，月租金，租金總額，押金，乙方單位，聯(lián)系人，電話(huà)，手機(jī)，備注，標(biāo)志。 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 租金表：發(fā)票號(hào)，合同號(hào)，應(yīng)收日期，實(shí)收日期，應(yīng)收金額，實(shí)收金額。 本系統(tǒng)采用實(shí)體聯(lián)系圖 ER圖來(lái)描述用戶(hù)需求的實(shí)體與聯(lián)系。 E_R圖如下所示： 實(shí)體 屬性 實(shí)體間聯(lián)系 圖 3-1 E_R 圖表示 用戶(hù)實(shí)體 E_R圖： 圖 3-2 用戶(hù)實(shí)體 E_R 圖 發(fā)票號(hào) 合同號(hào) 管理 用 戶(hù) 用戶(hù)號(hào) 密碼 用戶(hù)名 管理 管理 租 金 合 同 房 產(chǎn) 標(biāo) 志 房屋號(hào) 到期日期 起租日期 租金總額 聯(lián)系人 租期 合同號(hào) 應(yīng)收日期 應(yīng)收金額 實(shí)收金額 實(shí)收日期 房屋號(hào) 合同號(hào) 狀態(tài) 類(lèi) 型 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 3.3 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì) 根據(jù)上面的 ER圖，需要 4個(gè)基本信息表 : 表 3-1 用戶(hù)表 字段名稱(chēng) 類(lèi)型 是否為空 用戶(hù)號(hào) CHAR（ 2） 否 用戶(hù)名 CHAR（ 2） 否 密碼 CHAR（ 10） 否 表 3-2 房產(chǎn)表 字段名稱(chēng) 類(lèi)型 是否為空 房屋號(hào) CHAR（ 2） 否 坐落位置 CHAR（ 2） 是 面積 CHAR（ 10） 是 類(lèi)型 CHAR（ 10） 是 狀態(tài) CHAR（ 10） 是 合同號(hào) CHAR（ 10） 是 基本月租金 MONEY（ 8） 是 表 3-3 合同表 字段名稱(chēng) 類(lèi)型 是否為空 合同號(hào) CHAR（ 2） 否 租期 CHAR（ 2） 是 起租日期 CHAR（ 10） 是 到期日期 CHAR（ 10） 是 付款期限 CHAR（ 10） 是 月租金 MONEY（ 8） 是 租金總額 MONEY（ 8） 是 押金 MONEY（ 8） 是 乙方單位 CHAR（ 10） 是 聯(lián)系人 CHAR（ 10） 是 電話(huà) CHAR（ 10） 是 手機(jī) CHAR（ 10） 是 備注 CHAR（ 10） 是 標(biāo)志 CHAR（ 10） 是 表 3-4 租金表 字段名稱(chēng) 類(lèi)型 是否為空 發(fā)票號(hào) CHAR（ 2） 否 合同號(hào) CHAR（ 2） 是 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 應(yīng)收日期 CHAR（ 10） 是 應(yīng)收金額 MONEY（ 8） 是 實(shí)收金額 MONEY（ 8） 是 實(shí)收日期 CHAR（ 10） 是 3.4 數(shù)據(jù)庫(kù)連接 本系統(tǒng)采用 ADO 組件連接數(shù)據(jù)庫(kù)。 ADO 組件頁(yè)介紹 ： TADOConnection 是用來(lái)建 立與 ADO 數(shù)據(jù)庫(kù)之間聯(lián)系的組件，各種 ADO 的數(shù)據(jù)集及操作組件可以共用這種聯(lián)系來(lái)執(zhí)行命令，讀取數(shù)據(jù)，并執(zhí)行相應(yīng)的操作。 TADOTable組件主要用來(lái)從單個(gè)數(shù)據(jù)表格中讀取數(shù)據(jù)，完成相應(yīng)操作。它可以直接與數(shù)據(jù)庫(kù)相聯(lián)，也可以通過(guò) TADOConnection 來(lái)實(shí)現(xiàn)連接。 TADOQuery 組件通過(guò)使用常用的 SQL語(yǔ)句來(lái)讀取數(shù)據(jù)，完成相應(yīng)操作。和 TTable組件相比， TQuery組件的重要性體現(xiàn)在只有使用 SQL 語(yǔ)言才能完成查詢(xún)的時(shí)候必須使用該組件，它支持復(fù)雜得嵌套查詢(xún)，也就是 Select 中包含著 Select 子查詢(xún)。它還 可以使用 DDL SQL 語(yǔ)句，它可以直接與數(shù)據(jù)庫(kù)相聯(lián)，也可以通過(guò) TADOConnection 來(lái)實(shí)現(xiàn)連接。 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 第四章 系統(tǒng)詳細(xì)設(shè)計(jì) 4.1 后臺(tái)數(shù)據(jù)庫(kù)的選擇 本系統(tǒng)需要多個(gè)用戶(hù)進(jìn)行訪(fǎng)問(wèn)，因此，在多種數(shù)據(jù)庫(kù)軟件中，選擇了相對(duì)來(lái)說(shuō)比較易用的 SQL server 2000 作為后臺(tái)數(shù)據(jù)庫(kù)。 Microsoft SQL server 是一個(gè)高性能的關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)，它具有客戶(hù)機(jī) /服務(wù)器體系結(jié)構(gòu)，能夠滿(mǎn)足大規(guī)模分布式計(jì)算環(huán)境的需要。 Microsoft SQL server 數(shù)據(jù)庫(kù)管理系統(tǒng)特點(diǎn)如下： （ 1）完全的客戶(hù)機(jī) /服務(wù)器體系結(jié)構(gòu)。 （ 2）簡(jiǎn)單的圖形化管理工具。 （ 3）隱含的迸發(fā)控制能力。 （ 4）豐富的編程接口工具。 （ 5）多線(xiàn)程體系結(jié)構(gòu)。 （ 6） SQL server 是 Microsoft服務(wù)器套件 BackOffice的成員之一，它與其它軟件（ Windows 2000、 Internet Information Server、 Exchange Server 等）有機(jī)結(jié)合，并充分利用它們所提供的服務(wù)或功能，從而增強(qiáng)了 SQL server 數(shù)據(jù)庫(kù)系統(tǒng)的功能，同時(shí)占用較少的資源。 （ 7） SQL server 數(shù)據(jù)庫(kù)系統(tǒng)各種對(duì)象的范圍 更加廣泛。 4.2 開(kāi)發(fā)工具的選擇 在 PB、 VB、 DELPHI 中，我選擇 Delphi7.0 作為本系統(tǒng)的前端開(kāi)發(fā)工具。今天， Delphi已經(jīng)是一個(gè) Microsoft Window,Windows 強(qiáng)大的數(shù)據(jù)庫(kù)開(kāi)發(fā)工具它除了能夠設(shè)計(jì)傳統(tǒng)的高性能、基于客戶(hù) /服務(wù)器體系結(jié)構(gòu)的應(yīng)用系統(tǒng)外，也能夠用于開(kāi)發(fā)基于 Internet的應(yīng)用系統(tǒng)。 Delphi7.0 支持應(yīng)用系統(tǒng)同時(shí)訪(fǎng)問(wèn)多種數(shù)據(jù)庫(kù)為方便用戶(hù)截面的開(kāi)發(fā)，Delphi7.0 提供了大量的控件，這既加快了項(xiàng)目的開(kāi)發(fā)進(jìn)度。 Delphi7.0 還支持分布式的應(yīng)用系統(tǒng)的開(kāi)發(fā)，形成多層 應(yīng)用系統(tǒng)結(jié)構(gòu)，也就是說(shuō)， Delphi7.0 不僅可以開(kāi)發(fā)客戶(hù)端應(yīng)用程序，并可以生成機(jī)器代碼的可執(zhí)行文件。 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 4.3 系統(tǒng)功能模塊的創(chuàng)建 在 DELPHI 中，應(yīng)用程序通過(guò)一個(gè)工程 Project 來(lái)實(shí)現(xiàn)，而工程通過(guò)多個(gè)窗體 Form來(lái)實(shí)現(xiàn)應(yīng)用程序所具有的功能。本系統(tǒng)工程中窗體結(jié)構(gòu)圖如下圖： 圖 4-1 功能結(jié)構(gòu)圖 本系統(tǒng)供兩種身份的用戶(hù)進(jìn)行操作，所以有兩大主窗口。在打開(kāi)主窗口之前有一個(gè)登錄窗口供用戶(hù)選擇。 4.3.1 登錄窗體的創(chuàng)建 本程序的第一個(gè)窗體是登錄 窗體，主要用于驗(yàn)證是否為合法用戶(hù)，通過(guò)用戶(hù)名和密碼的確認(rèn)后才可進(jìn)入房產(chǎn)管理主窗體，否則只可進(jìn)入房客瀏覽窗體。登錄窗體布局如下： 房 屋 出 租 管 理 系統(tǒng) 用 戶(hù) 登 錄 窗 體 游客瀏覽主窗體 房屋管理主窗體 房?jī)r(jià)查詢(xún)窗體 房產(chǎn)咨詢(xún)窗體 有房出租窗體 房產(chǎn)管理窗體 合同管理窗體 租金管理窗體 信息統(tǒng)計(jì)窗體 系統(tǒng)維護(hù)窗體 幫助窗體 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 圖 4-2 登陸主窗口 表 4-1 窗體中主要的對(duì)象屬性所示 對(duì)象名 屬性 取值（說(shuō)明） denglu (form) caption 登錄 position poscreencenter ADOConnection1 name ADOConnect1 (ADOConnection) Defaultdatabase house Connected true Loginprompt false ADOdataset1 (ADODataset) Name ADODataset1 Connection ADOconnection1 Active false Commandtext 用戶(hù)名，密碼 Edit1 (Edit) Text (空 )用于輸入用戶(hù)名 Edit2 (Edit) PasswordChar *(所有輸入都顯示為指定的字符 ) Button1(Button) Caption 用戶(hù)登錄 Button2(Button) Caption 游客瀏覽 Button3(Button) Caption 退出 用戶(hù)登錄在 Button1 的 OnClick 事件處理程序中完成，當(dāng)確認(rèn)用戶(hù)名和密碼后，登錄到房屋管理窗體；如不是用戶(hù)，可以進(jìn)入游客瀏覽窗體，代碼如下： procedure Tdenglu.Button1Click(Sender: TObject)； 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： begin adodataset1.Close ； /關(guān)閉 ADOdataset adodataset1.CommandText :=select 密碼 from 用戶(hù)表 where 用戶(hù)名 =:name； adodataset1.Parameters.ParamByName(name).Value := edit1.Text ； /獲取用戶(hù)信息 adodataset1.Open； if (adodataset1.Recordset.RecordCount =1) and (trim(adodataset1.FieldByName(密碼).Value) =edit2.Text ) then /判斷密碼是否正確和用戶(hù)名是否存在 begin mainform1.show； /進(jìn)入房屋管理主窗口 denglu.hide ； end else ShowMessage(用戶(hù)名或密碼錯(cuò)誤！請(qǐng)重新輸入 )； end； procedure Tdenglu.Button2Click(Sender: TObject)； begin mainform2.show； /進(jìn)入游客瀏覽主窗口 end； procedure Tdenglu.Button3Click(Sender: TObject)； begin close； /關(guān)閉窗口，退出應(yīng)用程序 end； 4.3.2 房屋管理系統(tǒng)窗體的設(shè)計(jì) 該窗體為房屋管理者的主窗體，包括了菜單的設(shè)計(jì)，窗體的布局如下： 圖 4-3 房屋管理系統(tǒng)主界面 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 菜單的設(shè)計(jì)如下圖： 圖 4-4 菜單設(shè)計(jì) 以下代碼主要用來(lái)顯示各窗體，具體代碼有： procedure Tmainform1.N2Click(Sender: TObject)； begin Form4.Showmodal； /顯示房產(chǎn)信息管理窗體 end； procedure Tmainform1.N3Click(Sender: TObject)； begin Form5.Showmodal； /顯示房產(chǎn)總表瀏覽窗體 end； procedure Tmainform1.N5Click(Sender: TObject)； begin Form9.showmodal； /顯示合同信息管理窗體 end； procedure Tmainform1.N6Click(Sender: TObject)； begin Form10.showmodal；/顯示到期合同處理窗體 end； procedure Tmainform1.N7Click(Sender: TObject)； begin form11.showmodal；/顯示合同信息查詢(xún)窗體 end； procedure Tmainform1.N8Click(Sender: TObject)； begin Form12.showmodal； /顯示合同總表瀏覽窗體 end； procedure Tmainform1.N10Click(Sender: TObject)； begin 房產(chǎn)管理 合同管理 租金管理 信息統(tǒng)計(jì) 系統(tǒng)維護(hù) 背景 幫助 房產(chǎn)信息管理 房產(chǎn)總表瀏覽 合同信息管理 到期合同處理 合同信息查詢(xún) 合同總表瀏覽 租金收取 按合同號(hào)查詢(xún) 按發(fā)票號(hào)查詢(xún) 租金信息統(tǒng)計(jì) 到期合同統(tǒng)計(jì) 履約金統(tǒng)計(jì) 空閑房屋統(tǒng) 計(jì) 數(shù)據(jù)備份 數(shù)據(jù)恢復(fù) 密碼管理 天堂 城堡 雪松 樓房一 樓房二 幫助主題 系統(tǒng)幫助 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： form13.showmodal； /顯示租金收取窗體 end； procedure Tmainform1.N11Click(Sender: TObject)； begin form14.showmodal； /顯示按合同號(hào)租金查詢(xún)窗體 end； procedure Tmainform1.N12Click(Sender: TObject)； begin form15.showmodal； /顯示按發(fā)票號(hào)查詢(xún)窗體 end； procedure Tmainform1.N14Click(Sender: TObject)； begin form16.showmodal； /顯示租金信息統(tǒng)計(jì)窗體 end； procedure Tmainform1.N20Click(Sender: TObject)； begin form17.showmodal； /顯示已到期合同統(tǒng)計(jì)窗體 end； procedure Tmainform1.N21Click(Sender: TObject)； begin form18.showmodal； /顯示履約金統(tǒng)計(jì)窗體 end； procedure Tmainform1.N22Click(Sender: TObject)； begin form19.showmodal； /顯示空閑房屋統(tǒng)計(jì)窗體 end； procedure Tmainform1.N16Click(Sender: TObject)； begin form20.showmodal； /顯示數(shù)據(jù)備份窗體 end； procedure Tmainform1.N17Click(Sender: TObject)； begin form21.showmodal； /顯示數(shù)據(jù)恢復(fù)窗體 end； 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： procedure Tmainform1.N18Click(Sender: TObject)； begin form22.showmodal； /顯示密碼管理窗體 end； procedure Tmainform1.FormClose(Sender: TObject； var Action: TCloseAction)； begin denglu.Close； /關(guān)閉登錄窗體 end； procedure Tmainform1.N23Click(Sender: TObject)； begin form23.showmodal； /顯示幫助主題窗體 end； procedure Tmainform1.FormCloseQuery(Sender: TObject； var CanClose: Boolean)； begin if MessageDlg( 是 否 退 出 ？ ？ ？ , mtConfirmation, mbYes, mbNo,0) = mrNo then canclose :=false； end； /判斷是否真的退出 procedure Tmainform1.Timer1Timer(Sender: TObject)； var xs,fz,m : string； begin xs := inttostr(hourof(now)； if MinuteOf(now) 10 then fz := 0+inttostr(minuteof(now) else fz := inttostr(minuteof(now)； if secondof(now) 10 then m := 0+inttostr(secondof(now) else m := inttostr(secondof(now)； statusbar1.Panels.Items3.Text := xs+:+fz+:+m； end； procedure Tmainform1.FormShow(Sender: TObject)； var rq :string； begin timer1.Enabled := true； rq:= inttostr(yearof(now)+年 +inttostr(monthof(now)+月 +inttostr(dayof(now)+日； statusbar1.Panels.Items2.Text := rq； statusbar1.Panels.Items1.Width := mainform1.Width - 370； 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： end； /設(shè)置準(zhǔn)確時(shí)間的變化 procedure Tmainform1.FormResize(Sender: TObject)； begin statusbar1.Panels.Items1.Width := mainform1.Width - 370； end； procedure Tmainform1.N25Click(Sender: TObject)； begin form23.Show； end； procedure Tmainform1.N27Click(Sender: TObject)； begin form24.Show； /顯示關(guān)于系統(tǒng)窗體 end； procedure Tmainform1.N28Click(Sender: TObject)； begin form36.Show； /顯示幫助內(nèi)容窗體 end； procedure Tmainform1.N110Click(Sender: TObject)； begin image1.Picture.LoadFromFile(.pic001.jpg)； N110.checked := true； n29.Checked := false； n31.Checked := false； end； /顯示背景天堂 procedure Tmainform1.N29Click(Sender: TObject)； begin image1.Picture.LoadFromFile(.pic002.jpg)； N110.checked := false； n29.Checked := true； n31.Checked := false； end； /顯示背景城堡 procedure Tmainform1.N31Click(Sender: TObject)； begin image1.Picture.LoadFromFile(.pic003.jpg)； N110.checked := false； n29.Checked := false； 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： n31.Checked := true； end； /顯示背景雪松 procedure Tmainform1.N41Click(Sender: TObject)； begin image1.Picture.LoadFromFile(.pic0048.jpg)； N110.checked := false； n29.Checked := false； n31.Checked := false； n41.Checked :=true； end； /顯示樓房一背景 procedure Tmainform1.N51Click(Sender: TObject)； begin image1.Picture.LoadFromFile(.pic0049.jpg)； N110.checked := false； n29.Checked := false； n31.Checked := false； n41.Checked :=false； n51.Checked :=true； end； /顯示樓房二背景 4.3.3 房產(chǎn)信息管理窗體的設(shè)計(jì) 圖 4-5 信息管理窗體 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 表 4-4-3 主要控件對(duì)象屬性如下 對(duì)象名 屬性 取值（說(shuō)明） Form4 (form) caption 房產(chǎn)管理信息 position poscreencenter ADOConnection1 name ADOConnect1 (ADOConnection) Defaultdatabase house Connected true Loginprompt false ADOdataset1 (ADODataset) Name ADODataset1 Connection ADOconnection1 Active True Commandtext Select *from 房產(chǎn)表 Datasource1 (datasource) Dataset ADODataset1 Name Datasource1 DBEdit1 (DBEdit) Datasource Datasource1 Datafield 房屋號(hào) Name DBEdit1 Readonly true DBEdit2 (DBEdit) Datasource Datasource1 Datafield 坐落位置 Name DBEdit2 Readonly true DBEdit3 (DBEdit) Datasource Datasource1 Datafield 狀態(tài) Name DBEdit3 Readonly true DBEdit4 (DBEdit) Datasource Datasource1 Datafield 面積 Name DBEdit4 Readonly true DBEdit5 (DBEdit) Datasource Datasource1 Datafield 合同號(hào) Name DBEdit5 Readonly true DBEdit6 (DBEdit) Datasource Datasource1 Datafield 類(lèi)型 Name DBEdit6 Readonly true 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： DBEdit7 (DBEdit) Datasource Datasource1 Datafield 基本月租金 Name DBEdit7 Readonly true Button5(Button) Caption 插入 Button6(Button) Caption 刪除 Button7(Button) Caption 保存 Button10(Button) Caption 保存 實(shí)現(xiàn)窗體功能的代碼如下： procedure TForm4.Button1Click(Sender: TObject)； begin adodataset1.First ； button7.Enabled := false； end； /顯示第一條記錄并且隱藏保存按鈕 procedure TForm4.Button2Click(Sender: TObject)； begin adodataset1.next ； button7.Enabled := false； end； /顯示下一條記錄并且隱藏保存按鈕 procedure TForm4.Button3Click(Sender: TObject)； begin adodataset1.Prior ； button7.Enabled := false； end； /顯示上一條記錄并且隱藏保存按鈕 procedure TForm4.Button4Click(Sender: TObject)； begin adodataset1.Last ； button7.Enabled := false； end； 顯示最后一條記錄并且隱藏保存按鈕 procedure TForm4.Button5Click(Sender: TObject)； begin adodataset1.Append； /對(duì)房產(chǎn)表進(jìn)行插入 end； procedure TForm4.Button6Click(Sender: TObject)； begin 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： if MessageDlg(如果刪除，記錄將不能恢復(fù)，是否確定？ ,mtConfirmation, mbYes, mbNo,0) = mrYes then adodataset1.Delete ； button7.Enabled := false； /對(duì)記錄進(jìn)行刪除操作，并先判斷是否確定刪除 end； procedure TForm4.Button7Click(Sender: TObject)； begin adodataset1.Post； showmessage(保存完畢 )； /對(duì)插入或修改的記錄進(jìn)行保存，保存后顯示“保存完畢” end； procedure TForm4.Button9Click(Sender: TObject)； begin form28.ADODataSet1.Close； form28.ADODataSet1.CommandText:=select * from 房產(chǎn)表 where 房屋號(hào) =:fwh； form28.ADODataSet1.Parameters.ParamByName(fwh).Value:=dbedit1.Text； form28.ADODataSet1.Open； form28.QuickRep1.Preview； /對(duì)所顯示的記錄進(jìn)行打印 end； procedure TForm4.Button10Click(Sender: TObject)； begin adodataset1.Edit； dbedit1.ReadOnly:=false； dbedit2.ReadOnly:=false； dbedit3.ReadOnly:=false； dbedit4.ReadOnly:=false； dbedit5.ReadOnly:=false； dbedit6.ReadOnly:=false； dbedit7.ReadOnly:=false； button7.Enabled := true； button6.Enabled := false； button10.Enabled := false； button5.Enabled := false； end； /對(duì)記錄進(jìn)行修改 end 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 4.3.4 房產(chǎn)總表瀏覽窗體的設(shè)計(jì) 該窗體主要用來(lái)瀏覽房產(chǎn)的總體信息，布局如下圖所示： 圖 4-6 房產(chǎn)總表瀏覽窗體 該窗體所用的主要控件屬性和與數(shù)據(jù)庫(kù)的連接跟房產(chǎn)信息管理窗體類(lèi)似 。 本窗體能打印房產(chǎn)信息的總表，打印 按紐的 clicked事件的代碼為： procedure TForm5.Button1Click(Sender: TObject)； begin form27.QuickRep1.Preview； end； 4.3.5 房屋合同管理窗體的設(shè)計(jì) 該窗體主要是對(duì)合同信息進(jìn)行查詢(xún)，插入，修改等操作，窗體布局如下圖： 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 圖 4-7 合同管理窗體 4.3.6 到期合同處理窗體的創(chuàng)建 功能是對(duì)已到期的合同進(jìn)行處理，即對(duì)已到期的合同標(biāo)志為無(wú)效合同，窗體布局如下： 圖 4-8 到期合同處理窗體 實(shí)現(xiàn)功能的代碼： procedure TForm10.Button2Click(Sender: TObject)； begin if dbedit3.Text =dbedit4.Text then 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： begin adodataset2.Close ； adodataset2.CommandText := select * from 合同表 where 合同號(hào) =:hth； adodataset2.Parameters.ParamByName(hth).Value := dbcombobox1.Text ； adodataset2.Open ； adodataset2.Edit ； adodataset2.FieldByName(標(biāo)志 ).Value := 1； adodataset2.FieldByName(備注 ).Value:=該合同已無(wú)效 ； adodataset2.Post ； showmessage(合同已結(jié)束 )； end； end； 4.3.7 合同信息查詢(xún)窗體的設(shè)計(jì) 該窗體實(shí)現(xiàn)的功能是對(duì)合同信息進(jìn)行查詢(xún)，包括三個(gè)選擇查 詢(xún)，分別是按合同號(hào)查詢(xún)、按租主名查詢(xún)、按租用單位查詢(xún)，當(dāng)點(diǎn)擊按合同號(hào)查詢(xún)時(shí) comboBox1 就會(huì)顯示供選擇的合同號(hào)，就可查詢(xún)所要查詢(xún)的信息，點(diǎn)擊按租主名查詢(xún)時(shí) ComboBox1 就顯示供選擇的聯(lián)系人，按租用單位查詢(xún)也一樣，點(diǎn)擊時(shí)顯示供選擇的租用單位。 窗體布局如圖： 圖 4-9 合同信息查詢(xún)窗體 本窗體的功能主要是通過(guò)“查詢(xún)“按鈕的 clicked 事件來(lái)實(shí)現(xiàn)的，具體代碼如下： procedure TForm11.Button1Click(Sender: TObject)； begin if radiobutton1.Checked then 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： begin adodataset1.Close ； adodataset1.CommandText :=select * from 合同表 where 合同號(hào) =:hth； adodataset1.Parameters.ParamByName(hth).Value := combobox1.Text ； adodataset1.Open ； end； /按合同號(hào)查詢(xún) if radiobutton2.Checked then begin adodataset1.Close ； adodataset1.CommandText :=select * from 合同表 where 聯(lián)系人 =:lxr； adodataset1.Parameters.ParamByName(lxr).Value := combobox1.Text ； adodataset1.Open ； end； /按租主名查詢(xún) if radiobutton3.Checked then begin adodataset1.Close ； adodataset1.CommandText :=select * from 合同表 where 乙方單位 =:yfdw； adodataset1.Parameters.ParamByName(yfdw).Value := combobox1.Text ； adodataset1.Open ； end； label1.Caption:=共 +inttostr(adodataset1.RecordCount)+ 條 ； end； /按租用單位查詢(xún) 4.3.8 合同信息總表瀏覽窗體的設(shè)計(jì) 與房產(chǎn)信息 總表瀏覽窗體的設(shè)計(jì)類(lèi)似。 4.3.9 租金收取窗體的創(chuàng)建 該窗體的功能是對(duì)租金的收取情況進(jìn)行管理、保存。 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 圖 4-10 租金收取窗體 功能的實(shí)現(xiàn)代碼如下： procedure TForm13.Button2Click(Sender: TObject)； begin adodataset1.AppendRecord(edit2.Text ,edit5.text,edit3.Text ,edit6.Text ,edit4.Text ,edit7.Text )； showmessage(保存完畢 )； end； /對(duì)租金的收取進(jìn)行保存 procedure TForm13.Button3Click(Sender: TObject)； begin form31.ADODataSet1.Close； form31.ADODataSet1.CommandText:=select * from 租金表 where 發(fā)票號(hào) =:fph； form31.ADODataSet1.Parameters.ParamByName(fph).Value:=edit7.Text； form31.ADODataSet1.Open； form31.QuickRep1.Preview； end； /打印租金收取單 4.3.10 按合同號(hào)租金查詢(xún)窗體的設(shè)計(jì) 該窗體的功能是輸入合同號(hào)后查詢(xún)?cè)摵贤淖饨鹎闆r，并且可以總結(jié)出該合同的總體上繳租金。 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 圖 4-11 按合同號(hào)租金查詢(xún)窗體 租金按合同查詢(xún)的系統(tǒng)窗口主要靠?jī)蓚€(gè)數(shù)據(jù)庫(kù)連接控件跟租金表連接。 表 4-4 主要控件屬性如下 對(duì)象名 屬性 取值（說(shuō)明） Form14 (form) caption 按合同號(hào)租金查詢(xún) position poscreencenter ADOConnection1 name ADOConnect1 (ADOConnection) Defaultdatabase house Connected true Loginprompt false ADOdataset1 (ADODataset) Name ADODataset1 Connection ADOconnection1 Active false Commandtext Select *from 租金表 ADOdataset2 (ADODataset) Name ADODataset2 Connection ADOconnection1 Active false 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： Commandtext Select * from 租金表 Datasource1 (Datasource) Name Datasource1 Dataset ADODataset1 Edit1 (Edit) Text (空 )用于輸入合同號(hào) Edit2 (Edit) Text (空 )用于顯示所選合同號(hào)的租金收取總額 Readonly true Button1(TButton) Caption 退出 Button2(TButton) Caption 顯示 Button3(TButton) Caption 顯示全部 Button4(TButton) Caption 打印 實(shí)現(xiàn)上述功能的代碼有： “顯示”按紐的程序?yàn)椋?procedure TForm14.Button2Click(Sender: TObject)； begin if edit1.Text then begin adodataset1.Close ； adodataset1.CommandText :=select * from 租金表 where 合同號(hào) =:hth； adodataset1.Parameters.ParamByName(hth).Value :=edit1.Text ； adodataset1.Open ； /用于顯示所輸入合同號(hào)的租金情況 adodataset2.Close； adodataset2.CommandText:=select sum(實(shí)收金額 ) from 租金表 where 合同號(hào) =:hth； adodataset2.Parameters.ParamByName(hth).Value:=edit1.Text； adodataset2.Open； edit2.Text:= adodataset2.Recordset.Fields.Item0.Value； /顯示所輸入合同號(hào)的租金收取總額 end； end； “顯示全部”按紐的代碼為： procedure TForm14.Button3Click(Sender: TObject)； begin adodataset1.Close ； adodataset1.CommandText :=select * from 租金表 ； adodataset1.Open ； edit1.Text:=； edit2.Text:=； end； /顯示全部租金收取情況 procedure TForm14.Button1Click(Sender: TObject)； 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： begin close； end； /退出 procedure TForm14.Button4Click(Sender: TObject)； begin if edit1.Text = then form32.QuickRep1.Preview else begin form32.ADODataSet1.Close； form32.ADODataSet1.CommandText:=select * from 租金表 where 合同號(hào) =:hth； form32.ADODataSet1.Parameters.ParamByName(hth).Value:=edit1.Text； form32.ADODataSet1.Open； form32.QuickRep1.Preview； end； end； /打印預(yù)覽租金表 end. 4.3.11 按發(fā)票號(hào)租金查詢(xún)窗口的設(shè)計(jì) 功能是輸入要查詢(xún)的發(fā)票號(hào)，可查看該發(fā)票號(hào)所對(duì)應(yīng)的租金情況， 圖 4-12 按發(fā)票號(hào)租金查詢(xún)窗口 具體功能的實(shí)現(xiàn)代碼與“按合同號(hào)租金查詢(xún)窗口”類(lèi)似。 4.3.12 租金信息統(tǒng)計(jì)窗口的設(shè)計(jì) 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 該窗體是屬于“信息統(tǒng)計(jì)”模塊的其中一個(gè)窗口。 功能是統(tǒng)計(jì)所輸入時(shí)間內(nèi)的租金收取情況，并統(tǒng)計(jì)出所收取租金總額。 窗體布局如下圖： 圖 4-13 租金信息統(tǒng)計(jì)窗口 功能實(shí)現(xiàn)代碼如下： 功能實(shí)現(xiàn) 主要點(diǎn)擊“統(tǒng)計(jì)”按紐，就可以完成，該按紐的代碼為： procedure TForm16.Button1Click(Sender: TObject)； var rq1,rq2 :string； begin rq1 := inttostr(yearof(datetimepicker1.Date )； if monthof(datetimepicker1.Date)10 then rq1 := rq1 + 0； rq1 := rq1 + inttostr(monthof(datetimepicker1.date)； if dayof(datetimepicker1.date)10 then rq1 := rq1 +0； rq1 := rq1 + inttostr(dayof(datetimepicker1.date)； rq2 := inttostr(yearof(datetimepicker2.Date )； if monthof(datetimepicker2.Date)10 then rq2 := rq2 + 0； rq2 := rq2 + inttostr(monthof(datetimepicker2.date)； if dayof(datetimepicker2.date)=:ssrq1 and 實(shí)收日期=:ssrq1 and 實(shí)收日期 =:ssrq2 ； adodataset2.Parameters.ParamByName(ssrq1).Value :=rq1； adodataset2.Parameters.ParamByName(ssrq2).Value :=rq2； adodataset2.Open； if adodataset2.Recordset.Fields.Item0.Value null then edit1.Text:=adodataset2.Recordset.Fields.Item0.Value else edit1.Text:=0； end； /統(tǒng)計(jì)所輸入時(shí)間段收取的總租金額 4.3.13 已到期合同的統(tǒng)計(jì)窗口創(chuàng)建 該窗口也是“信息統(tǒng)計(jì)”模塊中的一個(gè)窗體。 功能是統(tǒng)計(jì)和打印出已到期的合同情況，窗體設(shè)計(jì)如下； 圖 4-14 已到期合同的統(tǒng)計(jì)窗口 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 具體實(shí)現(xiàn)功能的代碼如下 ： procedure TForm17.Button1Click(Sender: TObject)； begin adodataset1.Close； adodataset1.CommandText:=select * from 合同表 where 標(biāo)志 =:bz； adodataset1.Parameters.ParamByName(bz).Value:=1； adodataset1.Open； label1.Caption:=共 +inttostr(adodataset1.Recordset.RecordCount)+ 條 ； end； /按紐“統(tǒng)計(jì)”的實(shí)現(xiàn)代碼，即到期合同的統(tǒng)計(jì)情況 procedure TForm17.Button3Click(Sender: TObject)； begin form34.ADODataSet1.Close； form34.ADODataSet1.CommandText:=select * from 合同表 where 標(biāo)志 =:bz； form34.ADODataSet1.Parameters.ParamByName(bz).Value:=1； form34.ADODataSet1.Open ； form34.QuickRep1.Preview； end； /打印預(yù)覽統(tǒng)計(jì)情況 4.3.14 未返還履約金統(tǒng)計(jì)窗口的創(chuàng)建 該統(tǒng)計(jì)窗口的功能是統(tǒng)計(jì)未返還履約金的情況，窗體布局如 下： 圖 4-15 未返還履約金統(tǒng)計(jì)窗口 實(shí)現(xiàn)的代碼如下： 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： procedure TForm18.Button1Click(Sender: TObject)； begin adodataset1.Close； adodataset1.CommandText:=select * from 合同表 where 標(biāo)志 =:bz； adodataset1.Parameters.ParamByName(bz).Value:=0； adodataset1.Open ； label2.Caption := 共 +inttostr(adodataset1.Recordset.RecordCount)+ 條 ； end； /統(tǒng)計(jì)未返還的履約金情況 procedure TForm18.Button3Click(Sender: TObject)； begin form35.ADODataSet1.Close； form35.ADODataSet1.CommandText:=select * from 合同表 where 標(biāo)志 =:bz； form35.ADODataSet1.Parameters.ParamByName(bz).Value:=0； form35.ADODataSet1.Open； form35.QuickRep1.Preview； end； /打印預(yù)覽統(tǒng)計(jì)情況 4.3.15 空閑房屋統(tǒng)計(jì)窗體的設(shè)計(jì) 與履約金統(tǒng)計(jì)窗口的設(shè)計(jì)類(lèi)似。 4.3.16 數(shù)據(jù)備份窗體的設(shè)計(jì) 數(shù)據(jù)備份窗體是“系統(tǒng)維護(hù)”模塊中的一個(gè)窗體，實(shí)現(xiàn)維護(hù)功能。 該窗體的功能理論上是對(duì)新數(shù)據(jù)進(jìn)行保存，防止數(shù)據(jù)的丟失。 窗體布局如下 ： 圖 4-16 數(shù)據(jù)備份窗體 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 4.3.17 數(shù)據(jù)恢復(fù)窗體的創(chuàng)建 該窗 體也是“系統(tǒng)維護(hù)”模塊的一部分，數(shù)據(jù)誤操作后，數(shù)據(jù)可能會(huì)破壞或丟失，該窗體的功能是恢復(fù)正確的數(shù)據(jù)。窗體布局如下圖： 圖 4-17 數(shù)據(jù)恢復(fù)窗口圖 4.3.18 密碼管理的窗體創(chuàng)建 該窗體也是“系統(tǒng)維護(hù)”模塊的一部分，能實(shí)現(xiàn)密碼的修改。 窗體布局如下： 圖 4-18 密碼管理的窗體 表 4-5 主要功能控件的屬性如下 對(duì)象名 屬性 取值（說(shuō)明） Form22 caption 密碼管理 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： (form) position poscreencenter ADOConnection1 name ADOConnect1 (ADOConnection) Defaultdatabase house Connected true Loginprompt false ADOdataset1 (ADODataset) Name ADODataset1 Connection ADOconnection1 Active false Commandtext Select * from 用戶(hù)表 Edit1 (TEdit) Text (空 )用于輸入用戶(hù)名 Edit2 (Tedit) PasswordChar *(所有輸入都顯示為指定的字符 )用于輸入原密碼 Edit3 (TEdit) PasswordChar *(所有輸入都顯示為指定的字符 )用于輸入新密碼 Edit4 (TEdit) Passwordchar *(所有輸入都顯示為指定 的字符 )用于確認(rèn)新密碼 Button1(Button) Caption 確定 Button2(Button) Caption 退出 功能是通過(guò)按紐“確定”來(lái)實(shí)現(xiàn)的，主要的代碼是： procedure TForm22.Button1Click(Sender: TObject)； begin adodataset2.Close ； adodataset2.CommandText :=select * from 用戶(hù)表 where 用戶(hù)名 =:name； adodataset2.Parameters.ParamByName(name).Value := edit1.Text ； adodataset2.Open； /打開(kāi)用戶(hù)表 if (adodataset2.Recordset.RecordCount =0) or (trim(adodataset2.fieldbyname(密碼 ).Value) edit2.Text) then showmessage(用戶(hù)名或密碼錯(cuò)誤 ) /判斷用戶(hù)名和密碼是否正確 else if edit3.textedit4.text then showmessage(新密碼與確認(rèn)密碼不一致！ ) /判斷密碼與新密碼是否一致 else begin adodataset2.First ； adodataset2.Edit； adodataset2.FieldByName(密碼 ).Value :=edit3.Text ； adodataset2.Post； showmessage(密碼修改成功！ )； /修改密碼且保存新密碼 end； end； 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 4.3.19 主窗體游客瀏覽的創(chuàng)建 該窗體的設(shè)計(jì)是為了給租房者提供信息的，包括“房?jī)r(jià)查詢(xún)”“房產(chǎn)咨詢(xún)”“有房出租”三大模塊。該窗體可以為租房者提供了方便，也使房屋更好的出租。 圖 4-19 游客瀏覽窗體圖 4.3.20 房?jī)r(jià)查詢(xún)窗口的設(shè)計(jì) 功能是輸入要找房子的類(lèi)型和坐落位置，便可查出房子的價(jià)格和 具體情況，方便尋房者更好的找到房子。窗體的布局如下： 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 圖 4-20 房?jī)r(jià)查詢(xún)窗口 功能實(shí)現(xiàn)的代碼如下： procedure TForm7.Button2Click(Sender: TObject)； begin adodataset2.Close； adodataset2.CommandText:=select * from 房產(chǎn)表 where 類(lèi)型 =:lx and 坐落位置 =:zlwz ； adodataset2.Parameters.ParamByName(lx).Value:=combobox1.Text ； adodataset2.Parameters.ParamByName(zlwz).Value:=combobox3.Text； adodataset2.Open； end； /實(shí)現(xiàn)查詢(xún)條件后的記錄查詢(xún) 4.3.21 房產(chǎn)信息查詢(xún)窗體的設(shè)計(jì) 功能是提供了“按地理位置查詢(xún)”和“按房子類(lèi)型查詢(xún)”的功能，選擇了“按地理位置查詢(xún)”時(shí)可按所選的地理環(huán)境查看房產(chǎn)情況，選擇“按房子類(lèi)型查詢(xún)”也一樣，可查看不同類(lèi)型的房產(chǎn)情況。 窗體布局如下 : 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 圖 4-21 房產(chǎn)信息查詢(xún)窗體 功能實(shí)現(xiàn)的 代碼如下： procedure TForm6.RadioButton1Click(Sender: TObject)； begin Label1.Caption:=坐落位置： ； combobox1.Clear ； adodataset2.Close ； adodataset2.CommandText := select distinct 坐落位置 from 房產(chǎn)表 ； adodataset2.Open ； adodataset2.First ； while not adodataset2.Eof do begin if adodataset2.Recordset.Fields.Item 0.Value null then begin combobox1.Items.Add (adodataset2.Recordset.Fields.Item0.Value)； end； adodataset2.Next ； end； end； /在 Combobox1 中顯示坐落位置 procedure TForm6.RadioButton2Click(Sender: TObject)； begin Label1.Caption:=房子類(lèi)型： ； combobox1.Clear ； adodataset2.Close ； adodataset2.CommandText := select distinct 類(lèi)型 from 房產(chǎn)表 ； adodataset2.Open ； adodataset2.First ； 無(wú)憂(yōu)無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： while not adodataset2.Eof do begin if adodataset2.Recordset.Fields.Item 0.Value null then begin combobox1.Items.Add (adodataset2.Recordset.Fields.Item0.Value)； end； adodataset2.Next ； end； end； /在 Combobox1中顯示房子類(lèi)型 procedure TForm6.Button2Click(Sender: TObject)； begin if radiobutton1.Checked then begin adodataset1.Close ； adodataset1.CommandText :=select * from 房產(chǎn)表 where 坐落位置 =:zlwz； adodataset1.Parameters.ParamByName(zlwz).Value := combobox1.Text ； adodataset1.Open ；