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

無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 本文配套程序下載地址 ： 無憂無慮畢設(shè)網(wǎng) ()-大學(xué)生畢業(yè)設(shè)計(jì)站 ,免費(fèi)畢業(yè)設(shè)計(jì)論文 ,無憂無慮畢設(shè)網(wǎng) 大學(xué)生畢業(yè)設(shè)計(jì) ,出售各類畢業(yè)設(shè)計(jì)源碼 ,論文 ,程序源碼 ,網(wǎng)站源碼 ,免費(fèi)視頻教程 ,我們將竭誠為您服務(wù)！ 引 言 20世紀(jì)以來，社會生產(chǎn)力迅速發(fā)展，科學(xué)技術(shù)突飛猛進(jìn)，人們進(jìn)行信息交流的深度與廣度不斷增加，信息量急劇增長，傳統(tǒng)的信息處理與決策的手段已不能適應(yīng)社會的需要，信息的重要性和信息處理問題的緊迫性空前提高了，面對著日益復(fù)雜和不斷發(fā)展，變化的社會環(huán)境，特別是企業(yè)間日趨劇烈的競爭形勢，一個人、 一個企業(yè)要在現(xiàn)代社會中求生存，求發(fā)展，必須具備足夠的信息和強(qiáng)有力的信息收集與處理手段。 對于房屋出租者來說，大量復(fù)雜的房產(chǎn)、租金、合同信息難于通過傳統(tǒng)的方法進(jìn)行管理；對于租房者來說，大量復(fù)雜的房產(chǎn)信息使他們感到迷茫。房屋出租管理系統(tǒng)正是鐘對上述的問題而開發(fā)的，通過計(jì)算機(jī)系統(tǒng)來管理房屋出租情況，可以解決大量房產(chǎn)信息的查詢和管理，便于更好的進(jìn)行物業(yè)管理，同時(shí)也為租房者提供方便。這樣，使原本復(fù)雜的房產(chǎn)、租金、合同信息簡單化。房屋出租管理系統(tǒng)實(shí)質(zhì)上就是一個管理信息系統(tǒng)。 管理信息系統(tǒng)是一個集信息技術(shù)、經(jīng)濟(jì)管理理論、 統(tǒng)計(jì)學(xué)與運(yùn)籌學(xué)、數(shù)據(jù)庫技術(shù)為一體的綜合性系統(tǒng)，是一個資金技術(shù)密集型、勞動密集型、智力密集型的項(xiàng)目。我國擁有廣闊的市場和豐富的人才資源，有幾十年的技術(shù)積累和經(jīng)驗(yàn)積累，有一定的后發(fā)優(yōu)勢。管理信息系統(tǒng)的創(chuàng)新工作既不能妄自菲薄，更不能夜郎自大。要抓住當(dāng)前網(wǎng)絡(luò)經(jīng)濟(jì)興起的有利時(shí)機(jī)，以實(shí)現(xiàn)我國信息技術(shù)和信息產(chǎn)業(yè)的跨越式發(fā)展，更好地發(fā)揮信息產(chǎn)業(yè)對國民經(jīng)濟(jì)增長的拉動作用。 開發(fā)房屋出租管理系統(tǒng)的過程就是要實(shí)現(xiàn)數(shù)據(jù)處理方式由人工管理向計(jì)算機(jī)管理的轉(zhuǎn)變，它在計(jì)算機(jī)技術(shù)和房屋管理實(shí)踐活動兩者之間架設(shè)橋梁。 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 摘 要 房屋出 租 管理系統(tǒng)是為房屋 出租者 管理房屋出租、出售信息資料而設(shè)計(jì)的信息管理系統(tǒng)，包含有后臺數(shù)據(jù)庫和前臺應(yīng)用程序系統(tǒng)兩大部分，后臺數(shù)據(jù)庫要求數(shù)據(jù)的一致性和完整性、安全性 ,用以儲存單位工程文檔資料及相關(guān)信息，前臺應(yīng)用程序系統(tǒng)要求應(yīng)用程序功能完備、易于使用和界面友好等。經(jīng)過全面分析，確定數(shù)據(jù)庫采用 SQL server2000，開發(fā)工具為 Delphi 7.0，利用 Microsoft 公司的 ADO（ ActiveX Data Object，ActiveX數(shù)據(jù)對象）訪問和操作數(shù)據(jù)庫服務(wù)器中的數(shù)據(jù)。 關(guān)鍵詞： 數(shù)據(jù)庫 面向?qū)ο箝_發(fā)軟件包 數(shù)據(jù)對象 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 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 第一章 房屋出租管理系統(tǒng)概述 1.1 房屋出租的發(fā)展及使用情況 隨著城市現(xiàn)代化建設(shè)步伐不斷加快，城市規(guī)模不斷擴(kuò)大 國內(nèi)外的 房地產(chǎn)業(yè)的迅速發(fā)展，房屋出售出租行業(yè)業(yè)務(wù)日益增多 。大型技術(shù)開發(fā)區(qū)的周 邊多半為出租房 ,為了適應(yīng)這種形式， 擺脫以前的人工操作。 房屋出售出租行業(yè)不僅要提高本身的硬件基礎(chǔ)，還要有一整套完善的房屋出售和出租的軟件管理系統(tǒng)，以便以最快地速度響應(yīng)客戶的需求，及時(shí)為他們提供服務(wù)，使買賣或出租承租雙方都能夠方便快捷的得到信息，同時(shí)，使用計(jì)算機(jī)管理系統(tǒng)進(jìn)行管理，對企業(yè)內(nèi)部來看，可以提高工作效率；對外來看，獲得競爭優(yōu)勢。 21世紀(jì)以來，科學(xué)技術(shù)突飛猛進(jìn)，人們進(jìn)行信息交流的深度與廣度不斷增加，信息量急劇增長，傳統(tǒng)的信息處理與決策的手段已不能適應(yīng)社會的需要，信息的重要性和信息處理問題的緊迫性 空前提高了，面對著日益復(fù)雜和不斷發(fā)展，變化的社會環(huán)境，特別是企業(yè)間日趨劇烈的競爭形勢，一個人、一個企業(yè)要在現(xiàn)代社會中求生存，求發(fā)展，必須具備足夠的信息和強(qiáng)有力的信息收集與處理手段。在 Internet 出現(xiàn)之前，房屋出租的方式通常為電話預(yù)訂。世界各地的客人選擇了旅游目的地之后很難了解當(dāng)?shù)胤课莩鲎獾臓顩r，如當(dāng)?shù)胤课莸臄?shù)量、規(guī)模、星級、服務(wù)水平、預(yù)訂情況等，這就給預(yù)訂工作帶來了很大的麻煩，即使是規(guī)模較大的旅行社獲得上述信息的途徑也非常有限，書籍、廣告成為其主要的信息載體。然而書籍、廣告作為信息載體有其不可避免的局限 性。首先，信息的表現(xiàn)形式過于單一。一些陳舊的圖片和枯燥的文字又能使我們對一間房屋有多少了解呢？其次，信息的更新速度跟不上。 對于房屋出租者來說，大量復(fù)雜的房產(chǎn)、租金、合同信息難于通過傳統(tǒng)的方法進(jìn)行管理；對于租房者來說，大量復(fù)雜的房產(chǎn)信息使他們感到迷茫。房屋出租管理系統(tǒng)正是鐘對上述的問題而開發(fā)的，通過計(jì)算機(jī)系統(tǒng)來管理房屋出租情況，可以解決大量房產(chǎn)信息的查詢和管理，便于更好的進(jìn)行物業(yè)管理，同時(shí)也為租房者提供方便。這樣，使原本復(fù)雜的房產(chǎn)、租金、合同信息簡單化。房屋出租管理系統(tǒng)實(shí)質(zhì)上就是一個管理信息系統(tǒng)。 管理信息系統(tǒng)是一個集信息技術(shù)、經(jīng)濟(jì)管理理論、統(tǒng)計(jì)學(xué)與運(yùn)籌學(xué)、數(shù)據(jù)庫技無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 術(shù)為一體的綜合性系統(tǒng)，是一個資金技術(shù)密集型、勞動密集型、智力密集型的項(xiàng)目。我國擁有廣闊的市場和豐富的人才資源，有幾十年的技術(shù)積累和經(jīng)驗(yàn)積累，有一定的后發(fā)優(yōu)勢。管理信息系統(tǒng)的創(chuàng)新工作既不能妄自菲薄，更不能夜郎自大。要抓住當(dāng)前網(wǎng)絡(luò)經(jīng)濟(jì)興起的有利時(shí)機(jī)，以實(shí)現(xiàn)我國信息技術(shù)和信息產(chǎn)業(yè)的跨越式發(fā)展，更好地發(fā)揮信息產(chǎn)業(yè)對國民經(jīng)濟(jì)增長的拉動作用。 1.2 管理信息系統(tǒng)概述 管理信息系統(tǒng)是一門新的學(xué)科，到目前為止，發(fā)展還很不完善，它引用其他學(xué)科如管理科學(xué)與 工程、經(jīng)濟(jì)理論、統(tǒng)計(jì)學(xué)、運(yùn)籌學(xué)以及計(jì)算機(jī)學(xué)科、通信技術(shù)的概念和方法，融合成一門新的綜合性、邊緣性的學(xué)科。 20 世紀(jì)，隨著全球經(jīng)濟(jì)的蓬勃發(fā)展，眾多經(jīng)濟(jì)學(xué)家紛紛提出了新的管理理論。 20世紀(jì) 50 年代，西蒙提出管理依賴于信息和決策的思想。同時(shí)期的維納發(fā)表了控制論，他認(rèn)為管理是一個控制過程。 1958 年，蓋爾寫到：“管理將以較低的成本得到及時(shí)準(zhǔn)確的信息，做到較好的控制”。這個時(shí)期，計(jì)算機(jī)開始用于會計(jì)工作。數(shù)據(jù)處理一詞已經(jīng)出現(xiàn)。 1970 年， Walter T.Kennevan 給剛剛出現(xiàn)的管理信息系統(tǒng)這個詞語下了一個定 義：“以口頭或書面的形式，在合適的時(shí)間向經(jīng)理，職員以及外界人員提供過去的，現(xiàn)在的，預(yù)測未來的有關(guān)企業(yè)內(nèi)部及其環(huán)境的信息，以幫助他們進(jìn)行決策”。在這個定義里強(qiáng)調(diào)了用信息支持決策，但并沒有強(qiáng)調(diào)應(yīng)用模型，沒有提到計(jì)算機(jī)的應(yīng)用。 1985 年，管理信息系統(tǒng)的創(chuàng)始人，明尼蘇達(dá)大學(xué)的管理學(xué)教授 Gordon B.Davis 給了管理信息系統(tǒng)一個較完整的定義，即“管理信息系統(tǒng)是一個利用計(jì)算機(jī)軟硬件資源以及數(shù)據(jù)庫的人 -機(jī)系統(tǒng)。它能提供信息支持企業(yè)或組織的運(yùn)行，管理和決策功能?！边@個定義全面地說明了管理信息系統(tǒng)的目標(biāo)，功能和組成， 而且反映了管理信息系統(tǒng)在當(dāng)時(shí)達(dá)到的水平。 90年代以來，發(fā)達(dá)國家的企業(yè)已進(jìn)入信息網(wǎng)絡(luò)化的階段，企業(yè)信息管理由于全球競爭環(huán)境的需要，正在逐步轉(zhuǎn)向其更高階段，即企業(yè)知識管理新階段。企業(yè)不僅強(qiáng)調(diào)能力的提高，而且還強(qiáng)調(diào)知識創(chuàng)新能力的增強(qiáng)，這是一場企業(yè)信息化的革命。 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 管理信息系統(tǒng)是依賴于電子計(jì)算機(jī)的發(fā)展而發(fā)展的，以計(jì)算機(jī)和通信技術(shù)為代表的現(xiàn)代信息技術(shù)為信息管理提供了強(qiáng)有力的工具和手段，信息技術(shù)的進(jìn)步，使整個社會的信息化水平不斷提高。 1.3 管理信息系統(tǒng)開發(fā)方法 管理信息系統(tǒng)的開發(fā)方法是一個復(fù)雜的系統(tǒng)工程，它涉 及到計(jì)算機(jī)處理技術(shù)，系統(tǒng)理論，組織結(jié)構(gòu)，管理功能，管理知識等各方面的問題，至今沒有一種統(tǒng)一完備的開發(fā)方法，但是每一種開發(fā)方法都要遵循相應(yīng)的開發(fā)策略。任何一種開發(fā)策略都要明確以下問題： 系統(tǒng)要解決的問題：如采取何種方式解決組織管理和信息處理方面的問題，對企業(yè)提出的新的管理需求該如何滿足等。 系統(tǒng)可行性研究：確定系統(tǒng)所要實(shí)現(xiàn)的目標(biāo)。通過對企業(yè)狀況的初步調(diào)研得出現(xiàn)狀分析的結(jié)果，然后提出可行性方案并進(jìn)行論證。系統(tǒng)可行性的研究包括目標(biāo)和方案可行性、技術(shù)可行性、經(jīng)濟(jì)可行性和社會影響方面的考慮。 系統(tǒng)開 發(fā)的原則：在系統(tǒng)開發(fā)過程中，要遵循領(lǐng)導(dǎo)參與、優(yōu)化創(chuàng)新、實(shí)用高效、處理規(guī)范化的原則。 系統(tǒng)開發(fā)前的準(zhǔn)備工作：作好開發(fā)人員的組織準(zhǔn)備和企業(yè)基礎(chǔ)準(zhǔn)備工作。 系統(tǒng)開發(fā)方法的選擇和開發(fā)計(jì)劃的制定：針對已經(jīng)確定的開發(fā)策略選定相應(yīng)的開發(fā)方法，是結(jié)構(gòu)化系統(tǒng)分析和設(shè)計(jì)方法，還是選擇原型法或面向?qū)ο蟮姆椒?。開發(fā)計(jì)劃的制定是要明確系統(tǒng)開發(fā)的工作計(jì)劃、投資計(jì)劃、工程進(jìn)度計(jì)劃和資源利用計(jì)劃。 管理信息系統(tǒng)開發(fā)方法主要有：結(jié)構(gòu)化生命周期開發(fā)方法、原型法，面向?qū)ο蟮拈_發(fā)方法等。 1.4 結(jié)構(gòu)化生命周期開發(fā)方法 目前較為 流行的 MIS開發(fā)方法是 結(jié)構(gòu)化的生命周期開發(fā)方法。其基本思想是：用系統(tǒng)的思想和系統(tǒng)工程的方法，按用戶至上的原則，結(jié)構(gòu)化、模塊化地自上而下的對生命周期進(jìn)行分析與設(shè)計(jì)。 用結(jié)構(gòu)化生命周期開發(fā)方法開發(fā)一個系統(tǒng)，將整個開發(fā)過程分為 5 個依次連接的階無憂無慮畢設(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òu)成了系統(tǒng)開發(fā)的生命周期。結(jié)構(gòu)化生命周期開發(fā)方法嚴(yán)格區(qū)分了開發(fā)階段，非常重視文檔工作，對于開發(fā)過程中出現(xiàn)的問題可以得到及時(shí)的糾正，避免了出現(xiàn)混亂狀態(tài)。但是，該方 法不可避免的出現(xiàn)開發(fā)周期長、系統(tǒng)預(yù)算超支的情況，而且在開發(fā)過程中用戶的需求一旦發(fā)生變化，系統(tǒng)將很難做出調(diào)整 。 1.5 原型法 原型法在系統(tǒng)開發(fā)過程中也得到不少的用應(yīng)。原型法的基本思想是系統(tǒng)開發(fā)人員憑借自己對用戶需求的理解，通過強(qiáng)有力的軟件環(huán)境支持，構(gòu)造出一個實(shí)在的系統(tǒng)原型，然后與用戶協(xié)商，反復(fù)修改原型直至用戶滿意。原型法的用應(yīng)使人們對需求有了漸進(jìn)的認(rèn)識，從而使系統(tǒng)開發(fā)更有針對性。另外，原型法的運(yùn)用充分利用了最新的軟件工具，使系統(tǒng)開發(fā)效率大為提高。 原型法的最大的問題是難于對開發(fā)過程進(jìn)行管理及控制，其次是 “原型”的設(shè)計(jì)難度較大，需要較高層次的設(shè)計(jì)人員，原型法目前還是一個不夠成熟和普遍應(yīng)用的方法，但隨著第四代語言、面向?qū)ο蟆④浖?fù)用技術(shù)的發(fā)展和普及，原型法也將會有更大發(fā)展。 在實(shí)際的 MIS 開發(fā)中，經(jīng)常是生命周期法與原型法相結(jié)合使用，需求模型確定階段往往采用系統(tǒng)分析的方法，在設(shè)計(jì)和實(shí)施階段則采用快速原型法。這樣，既能較好地確定系統(tǒng)開發(fā)目標(biāo)，又能較快地交互開發(fā)實(shí)現(xiàn)所確定的系統(tǒng)。 1.6 面向?qū)ο笙到y(tǒng)開發(fā)方法 面向?qū)ο螅?OO, OBJECT ORIENTED）的系統(tǒng)開發(fā)方法，是近年來受到關(guān)注的一種系統(tǒng)開發(fā)方法。面向?qū)?象的系統(tǒng)開發(fā)方法的基本思想是將客觀世界抽象地看成是若干相互聯(lián)系的對象，然后根據(jù)對象和反復(fù)法的特性研制出一套軟件工具，使之能夠映射為計(jì)算機(jī)軟件系統(tǒng)結(jié)構(gòu)模型和進(jìn)程，從而實(shí)現(xiàn)信息系統(tǒng)的開發(fā)。 在這一方法中，對象是指問題空間一次或多次出現(xiàn)的事物的抽象。結(jié)構(gòu)化方法以功無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 能分解為基礎(chǔ)，系統(tǒng)的功能在系統(tǒng)內(nèi)外環(huán)境急劇變化時(shí)很不穩(wěn)定。而問題空間中的對象是系統(tǒng)中最穩(wěn)定的部分，基于對象的分類結(jié)構(gòu)和組裝結(jié)構(gòu)，并利用服務(wù)、消息、繼承等概念建立的系統(tǒng)，有較強(qiáng)的應(yīng)變的能力，應(yīng)用軟件可重用性好，特別適合于復(fù)雜、大型系統(tǒng)的開發(fā)和處理多媒體數(shù)據(jù) 。程序設(shè)計(jì)的思想方法越來越接近人們思維方式。它擯棄了持續(xù)許久的“自頂向下”（ Top-Down）和“自底向上”（ Bottom up）的爭論，把對于復(fù)雜系統(tǒng)的認(rèn)識歸結(jié)為對一批對象及關(guān)系的認(rèn)識。因此，軟件工作進(jìn)一步向用戶靠近，這對于計(jì)算機(jī)應(yīng)用深入到各個領(lǐng)域是十分有利的。面向?qū)ο蟮某绦蛟O(shè)計(jì)語言的出現(xiàn)，使軟件開發(fā)工作更加方便。面向?qū)ο蟮母鞣N方法正在進(jìn)一步的發(fā)展，并形成了逐步合流的趨勢。總之，面向?qū)ο蟮某绦蛟O(shè)計(jì)是人們克服軟件危機(jī)的又一次努力。 1.7 系統(tǒng)開發(fā)方法的選擇 本次系統(tǒng)開發(fā)我選擇了結(jié)構(gòu)化生命周期開發(fā)方法。用結(jié) 構(gòu)化生命周期開發(fā)方法開發(fā)一個系統(tǒng)，將整個開發(fā)過程分為 5個依次連接的階段： 系統(tǒng)規(guī)劃階段：主要任務(wù)是明確系統(tǒng)的方法要求，并進(jìn)行逐步的調(diào)查，通過可行性的研究確定下一階段的實(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ù)是對組織結(jié)構(gòu)與功能進(jìn)行分析，理清企業(yè)業(yè)務(wù)流程和數(shù)據(jù)流 程的處理，并且將企業(yè)業(yè)務(wù)流程與數(shù)據(jù)流程抽象化，通過對功能數(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ù)庫系統(tǒng)的設(shè)計(jì)、輸入輸出界面的設(shè)計(jì)和編碼的設(shè)計(jì)等。 系統(tǒng)實(shí)施階段：主要任務(wù)是討論確定設(shè)計(jì)方案、對系統(tǒng)模塊進(jìn)行調(diào)試、進(jìn)行系統(tǒng)運(yùn)行所需數(shù)據(jù)的準(zhǔn)備、對相關(guān)人員進(jìn)行培訓(xùn)等。 系統(tǒng)運(yùn)行階段：主要任務(wù)是進(jìn)行系統(tǒng)的日常運(yùn)行管理，評價(jià)系統(tǒng)的運(yùn)行效率，無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 對運(yùn)行費(fèi)用和效果進(jìn)行監(jiān)理審計(jì)，如出現(xiàn)問題則對系 統(tǒng)進(jìn)行修改、調(diào)整。 這 5個階段共同構(gòu)成了系統(tǒng)開發(fā)的生命周期。結(jié)構(gòu)化生命周期開發(fā)方法嚴(yán)格區(qū)分了開發(fā)階段，非常重視文檔工作，對于開發(fā)過程中出現(xiàn)的問題可以得到及時(shí)的糾正，避免了出現(xiàn)混亂狀態(tài)。但是，該方法不可避免的出現(xiàn)開發(fā)周期長、系統(tǒng)預(yù)算超支的情況，而且在開發(fā)過程中用戶的需求一旦發(fā)生變化，系統(tǒng)將很難做出調(diào)整。 第二章 系統(tǒng)分析及需求分析 2.1 功能需求分析 為了房屋管理者更好地管理房屋的合同、租金等一系列問題，也為了讓租房者更方便地了解待租房屋的情況，現(xiàn)開發(fā)一個房屋出租管理系統(tǒng)。房屋出租管理系統(tǒng)是一個關(guān)于房 屋及其出租業(yè)務(wù)的管理信息系統(tǒng)。對于用戶來講，主要包括的功能模塊有：房屋管理、合同管理、租金管理、統(tǒng)計(jì)和系統(tǒng)維護(hù)等。對于租房者來說，主要的功能模塊有：基本房價(jià)查詢、房產(chǎn)咨詢和待出租房屋瀏覽。 本系統(tǒng)的設(shè)計(jì)就是根據(jù)房東和房客的需要，為房東提供主要以房產(chǎn)及出租業(yè)務(wù)管理為基本要求，為房客提供房產(chǎn)信息咨詢。 2.2 系統(tǒng)功能分析 本系統(tǒng)主要有以下功能要求： 1.用戶登錄模塊 : 主要用于用戶的登錄。當(dāng)用戶輸入用戶名和密碼后經(jīng)過確認(rèn)，才能進(jìn)入房產(chǎn)管理系統(tǒng)。如果不是用戶，拒絕進(jìn)入，但是，任何人都可以進(jìn)入游客瀏覽窗口，對房 屋的基本情況進(jìn)行了解。 2.房屋管理模塊 : 該模塊是用戶登錄后進(jìn)入的第一個模塊，主要用于用戶對房屋及其業(yè)務(wù)的情況進(jìn)行管理，其中包括： 房產(chǎn)信息管理模塊 : 主要用于房產(chǎn)信息的插入、刪除、修改、保存等基本操作。 房產(chǎn)總表瀏覽 : 用于查看房產(chǎn)信息的總體情況。 3.合同管理模塊 : 該模塊是用戶對合同信息的基本情況進(jìn)行管理。包括有： 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 合同信息管理 : 主要用于對合同信息進(jìn)行插入、修改、刪除、保存等基本的管理。 到期合同處理 : 主要對到期的合同進(jìn)行處理，若合同已到期，可結(jié)束其使用權(quán)。 合同信息查詢 : 用于查詢合同的使用情 況和基本信息。 合同總表瀏覽 : 用于查看合同信息的總體情況。 4.租金管理模塊 : 該模塊是用戶對租金信息的基本情況進(jìn)行管理。主要包括有： 租金收取 : 用于收取租金時(shí)對租金的收取情況的管理。 按合同號租金查詢 : 即輸入想要查詢的合同號，就可查看到有關(guān)此合同的租金收取情況。 按發(fā)票號租金查詢 : 輸入想要查詢的發(fā)票號，可查出該發(fā)票的租金相干情況。 5.統(tǒng)計(jì)模塊 : 該模塊用于對房產(chǎn)信息、合同信息、租金信息等的統(tǒng)計(jì)。具體包括有： 本月租金統(tǒng)計(jì) : 用于對所輸入年月的租金進(jìn)行統(tǒng)計(jì)。 履約金統(tǒng)計(jì) : 對未退還的履約金進(jìn)行統(tǒng)計(jì) 。 到期合同統(tǒng)計(jì) : 即對已到期的合同進(jìn)行統(tǒng)計(jì)。 空閑房屋統(tǒng)計(jì) : 對已空的房屋即可租用的房屋進(jìn)行統(tǒng)計(jì)。 6.系統(tǒng)維護(hù)模塊 : 該模塊用于對本系統(tǒng)的基本信息進(jìn)行管理。主要包括有： 數(shù)據(jù)備份 : 用于對相干數(shù)據(jù)進(jìn)行備份，將備份文件保存起來以防丟失。 數(shù)據(jù)恢復(fù) : 用于恢復(fù)文件和數(shù)據(jù)。 密碼管理 : 對用戶的密碼進(jìn)行修改、保存管理。 7.游客瀏覽模塊： 主要是讓想了解房產(chǎn)的人對所要了解的信息進(jìn)行查詢。包括有以下功能： 房價(jià)查詢 : 是對所要求的房屋進(jìn)行月租金查詢，看是否滿意。 房屋咨詢 : 對所想租的房屋類型進(jìn)行咨詢，看是否有 符合條件的。 8.有房出租：功能是可以查看所有可出租房屋的總體情況 無憂無慮畢設(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 以上硬盤空間（推薦 4G 以上，根據(jù)實(shí)際數(shù)據(jù)大小而定） ,10M 網(wǎng)卡（推薦 10M/100M網(wǎng)卡或 100M網(wǎng)卡，可加快數(shù)據(jù)傳輸速度） ,VGA 或更高分辨率的 顯示器 或?qū)I(yè)顯示器 。 ,鍵盤和鼠標(biāo)或?qū)Ｓ迷O(shè)備。 用戶登錄 房 屋 出 租 管 理 系 統(tǒng) 游客登錄 房產(chǎn)管理 合同管理 租金管理 統(tǒng)計(jì)模塊 系統(tǒng)維護(hù) 房價(jià)查詢 房屋咨詢 有房出租 退 出 房產(chǎn)信息管理 房產(chǎn)總表瀏覽 租金收取 按合同號查詢 按發(fā)票號查詢 本月租金統(tǒng)計(jì) 履約金統(tǒng)計(jì) 空閑房屋統(tǒng)計(jì) 合同信息管理 到期合同處理 合同信息查詢 合同總表瀏覽 房產(chǎn)信息管理 房產(chǎn)信息管理 房產(chǎn)信息管理 房產(chǎn)信息管理 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 服務(wù)器： Windows 2000 server、 SQL server 2000 個人版 服務(wù)器端 客戶端： Windows XP、 SQL server 2000 企業(yè)版 客戶端 開發(fā)工具： Delphi 7.0 企業(yè)版 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 第三章 系統(tǒng)數(shù)據(jù)庫的設(shè)計(jì) 計(jì)算機(jī)化的管理信息系統(tǒng)是一個以大量數(shù)據(jù)資源為基礎(chǔ)并以此為中心而建立起來的應(yīng)用系統(tǒng)。其目的是為一個組織中各個部門和各個管理層次提供必要的管理信息和決策數(shù)據(jù)，由于它涉及到應(yīng)用領(lǐng)域中一定的深度和廣度，因而必然要接觸大量的不同類型的數(shù)據(jù)。對這些數(shù)據(jù)的合理組織和有效的存儲是管理信息系統(tǒng)開發(fā)中一項(xiàng)重要的工作。 3.1 數(shù)據(jù)庫的需求分析 數(shù)據(jù)庫需求分析是數(shù)據(jù)庫設(shè)計(jì)的第一階段也是很重要的一個階段，它是收集基本數(shù)據(jù)以及數(shù)據(jù)處理的流程，為以后進(jìn)一步設(shè)計(jì)打下基礎(chǔ)，需求分析主要解決兩個問題： 處理要求 ,弄清應(yīng)用系統(tǒng)用戶需求對數(shù)據(jù)庫進(jìn)行什么樣的處理，及數(shù)據(jù)庫中各種數(shù)據(jù)之間的關(guān)系； 內(nèi)容要求 :弄清應(yīng)用系統(tǒng)用戶所需要操作的數(shù)據(jù)，決定在數(shù)據(jù)庫中存儲什么數(shù)據(jù)。 在數(shù)據(jù)庫需求分析后，應(yīng)該得到一個數(shù)據(jù)字典文檔，包括 3個方面的內(nèi)容： 數(shù)據(jù)項(xiàng) : 包括名 稱、含義、類型、取值范圍、長度以及和其它數(shù)據(jù)項(xiàng)之間的邏輯關(guān)系。 數(shù)據(jù)結(jié)構(gòu) : 若干數(shù)據(jù)項(xiàng)的有意義的集合，包括名稱、含義以及組成數(shù)據(jù)結(jié)構(gòu)的數(shù)據(jù)項(xiàng) 數(shù)據(jù)流 : 指數(shù)據(jù)庫中數(shù)據(jù)的處理過程，包括輸入、處理、輸出。 3.2 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì) 概念結(jié)構(gòu)設(shè)計(jì)的主要任務(wù)是根據(jù)用戶需求設(shè)計(jì)數(shù)據(jù)庫的概念數(shù)據(jù)模型（簡稱概念模型）。概念模型獨(dú)立于具體的數(shù)據(jù)庫管理系統(tǒng)，它描述的是從用戶角度看到的數(shù)據(jù)庫，反映了用戶的現(xiàn)實(shí)環(huán)境，而與數(shù)據(jù)庫將來怎樣實(shí)現(xiàn)無關(guān)。 本系統(tǒng)包括的數(shù)據(jù)項(xiàng)有： 用戶表：用戶號，用戶名，密碼。 房產(chǎn)表： 房屋號，坐落位置，面積，類型，狀態(tài)，合同號，基本月租金。 合同表：合同號，租期，起租日期，到期日期，付款期限，月租金，租金總額，押金，乙方單位，聯(lián)系人，電話，手機(jī)，備注，標(biāo)志。 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 租金表：發(fā)票號，合同號，應(yīng)收日期，實(shí)收日期，應(yīng)收金額，實(shí)收金額。 本系統(tǒng)采用實(shí)體聯(lián)系圖 ER圖來描述用戶需求的實(shí)體與聯(lián)系。 E_R圖如下所示： 實(shí)體 屬性 實(shí)體間聯(lián)系 圖 3-1 E_R 圖表示 用戶實(shí)體 E_R圖： 圖 3-2 用戶實(shí)體 E_R 圖 發(fā)票號 合同號 管理 用 戶 用戶號 密碼 用戶名 管理 管理 租 金 合 同 房 產(chǎn) 標(biāo) 志 房屋號 到期日期 起租日期 租金總額 聯(lián)系人 租期 合同號 應(yīng)收日期 應(yīng)收金額 實(shí)收金額 實(shí)收日期 房屋號 合同號 狀態(tài) 類 型 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 3.3 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì) 根據(jù)上面的 ER圖，需要 4個基本信息表 : 表 3-1 用戶表 字段名稱 類型 是否為空 用戶號 CHAR（ 2） 否 用戶名 CHAR（ 2） 否 密碼 CHAR（ 10） 否 表 3-2 房產(chǎn)表 字段名稱 類型 是否為空 房屋號 CHAR（ 2） 否 坐落位置 CHAR（ 2） 是 面積 CHAR（ 10） 是 類型 CHAR（ 10） 是 狀態(tài) CHAR（ 10） 是 合同號 CHAR（ 10） 是 基本月租金 MONEY（ 8） 是 表 3-3 合同表 字段名稱 類型 是否為空 合同號 CHAR（ 2） 否 租期 CHAR（ 2） 是 起租日期 CHAR（ 10） 是 到期日期 CHAR（ 10） 是 付款期限 CHAR（ 10） 是 月租金 MONEY（ 8） 是 租金總額 MONEY（ 8） 是 押金 MONEY（ 8） 是 乙方單位 CHAR（ 10） 是 聯(lián)系人 CHAR（ 10） 是 電話 CHAR（ 10） 是 手機(jī) CHAR（ 10） 是 備注 CHAR（ 10） 是 標(biāo)志 CHAR（ 10） 是 表 3-4 租金表 字段名稱 類型 是否為空 發(fā)票號 CHAR（ 2） 否 合同號 CHAR（ 2） 是 無憂無慮畢設(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ù)庫連接 本系統(tǒng)采用 ADO 組件連接數(shù)據(jù)庫。 ADO 組件頁介紹 ： TADOConnection 是用來建 立與 ADO 數(shù)據(jù)庫之間聯(lián)系的組件，各種 ADO 的數(shù)據(jù)集及操作組件可以共用這種聯(lián)系來執(zhí)行命令，讀取數(shù)據(jù)，并執(zhí)行相應(yīng)的操作。 TADOTable組件主要用來從單個數(shù)據(jù)表格中讀取數(shù)據(jù)，完成相應(yīng)操作。它可以直接與數(shù)據(jù)庫相聯(lián)，也可以通過 TADOConnection 來實(shí)現(xiàn)連接。 TADOQuery 組件通過使用常用的 SQL語句來讀取數(shù)據(jù)，完成相應(yīng)操作。和 TTable組件相比， TQuery組件的重要性體現(xiàn)在只有使用 SQL 語言才能完成查詢的時(shí)候必須使用該組件，它支持復(fù)雜得嵌套查詢，也就是 Select 中包含著 Select 子查詢。它還 可以使用 DDL SQL 語句，它可以直接與數(shù)據(jù)庫相聯(lián)，也可以通過 TADOConnection 來實(shí)現(xiàn)連接。 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 第四章 系統(tǒng)詳細(xì)設(shè)計(jì) 4.1 后臺數(shù)據(jù)庫的選擇 本系統(tǒng)需要多個用戶進(jìn)行訪問，因此，在多種數(shù)據(jù)庫軟件中，選擇了相對來說比較易用的 SQL server 2000 作為后臺數(shù)據(jù)庫。 Microsoft SQL server 是一個高性能的關(guān)系型數(shù)據(jù)庫管理系統(tǒng)，它具有客戶機(jī) /服務(wù)器體系結(jié)構(gòu)，能夠滿足大規(guī)模分布式計(jì)算環(huán)境的需要。 Microsoft SQL server 數(shù)據(jù)庫管理系統(tǒng)特點(diǎn)如下： （ 1）完全的客戶機(jī) /服務(wù)器體系結(jié)構(gòu)。 （ 2）簡單的圖形化管理工具。 （ 3）隱含的迸發(fā)控制能力。 （ 4）豐富的編程接口工具。 （ 5）多線程體系結(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ù)庫系統(tǒng)的功能，同時(shí)占用較少的資源。 （ 7） SQL server 數(shù)據(jù)庫系統(tǒng)各種對象的范圍 更加廣泛。 4.2 開發(fā)工具的選擇 在 PB、 VB、 DELPHI 中，我選擇 Delphi7.0 作為本系統(tǒng)的前端開發(fā)工具。今天， Delphi已經(jīng)是一個 Microsoft Window,Windows 強(qiáng)大的數(shù)據(jù)庫開發(fā)工具它除了能夠設(shè)計(jì)傳統(tǒng)的高性能、基于客戶 /服務(wù)器體系結(jié)構(gòu)的應(yīng)用系統(tǒng)外，也能夠用于開發(fā)基于 Internet的應(yīng)用系統(tǒng)。 Delphi7.0 支持應(yīng)用系統(tǒng)同時(shí)訪問多種數(shù)據(jù)庫為方便用戶截面的開發(fā)，Delphi7.0 提供了大量的控件，這既加快了項(xiàng)目的開發(fā)進(jìn)度。 Delphi7.0 還支持分布式的應(yīng)用系統(tǒng)的開發(fā)，形成多層 應(yīng)用系統(tǒng)結(jié)構(gòu)，也就是說， Delphi7.0 不僅可以開發(fā)客戶端應(yīng)用程序，并可以生成機(jī)器代碼的可執(zhí)行文件。 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 4.3 系統(tǒng)功能模塊的創(chuàng)建 在 DELPHI 中，應(yīng)用程序通過一個工程 Project 來實(shí)現(xiàn)，而工程通過多個窗體 Form來實(shí)現(xiàn)應(yīng)用程序所具有的功能。本系統(tǒng)工程中窗體結(jié)構(gòu)圖如下圖： 圖 4-1 功能結(jié)構(gòu)圖 本系統(tǒng)供兩種身份的用戶進(jìn)行操作，所以有兩大主窗口。在打開主窗口之前有一個登錄窗口供用戶選擇。 4.3.1 登錄窗體的創(chuàng)建 本程序的第一個窗體是登錄 窗體，主要用于驗(yàn)證是否為合法用戶，通過用戶名和密碼的確認(rèn)后才可進(jìn)入房產(chǎn)管理主窗體，否則只可進(jìn)入房客瀏覽窗體。登錄窗體布局如下： 房 屋 出 租 管 理 系統(tǒng) 用 戶 登 錄 窗 體 游客瀏覽主窗體 房屋管理主窗體 房價(jià)查詢窗體 房產(chǎn)咨詢窗體 有房出租窗體 房產(chǎn)管理窗體 合同管理窗體 租金管理窗體 信息統(tǒng)計(jì)窗體 系統(tǒng)維護(hù)窗體 幫助窗體 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 圖 4-2 登陸主窗口 表 4-1 窗體中主要的對象屬性所示 對象名 屬性 取值（說明） denglu (form) caption 登錄 position poscreencenter ADOConnection1 name ADOConnect1 (ADOConnection) Defaultdatabase house Connected true Loginprompt false ADOdataset1 (ADODataset) Name ADODataset1 Connection ADOconnection1 Active false Commandtext 用戶名，密碼 Edit1 (Edit) Text (空 )用于輸入用戶名 Edit2 (Edit) PasswordChar *(所有輸入都顯示為指定的字符 ) Button1(Button) Caption 用戶登錄 Button2(Button) Caption 游客瀏覽 Button3(Button) Caption 退出 用戶登錄在 Button1 的 OnClick 事件處理程序中完成，當(dāng)確認(rèn)用戶名和密碼后，登錄到房屋管理窗體；如不是用戶，可以進(jìn)入游客瀏覽窗體，代碼如下： procedure Tdenglu.Button1Click(Sender: TObject)； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： begin adodataset1.Close ； /關(guān)閉 ADOdataset adodataset1.CommandText :=select 密碼 from 用戶表 where 用戶名 =:name； adodataset1.Parameters.ParamByName(name).Value := edit1.Text ； /獲取用戶信息 adodataset1.Open； if (adodataset1.Recordset.RecordCount =1) and (trim(adodataset1.FieldByName(密碼).Value) =edit2.Text ) then /判斷密碼是否正確和用戶名是否存在 begin mainform1.show； /進(jìn)入房屋管理主窗口 denglu.hide ； end else ShowMessage(用戶名或密碼錯誤！請重新輸入 )； 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)主界面 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 菜單的設(shè)計(jì)如下圖： 圖 4-4 菜單設(shè)計(jì) 以下代碼主要用來顯示各窗體，具體代碼有： 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；/顯示合同信息查詢窗體 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)總表瀏覽 合同信息管理 到期合同處理 合同信息查詢 合同總表瀏覽 租金收取 按合同號查詢 按發(fā)票號查詢 租金信息統(tǒng)計(jì) 到期合同統(tǒng)計(jì) 履約金統(tǒng)計(jì) 空閑房屋統(tǒng) 計(jì) 數(shù)據(jù)備份 數(shù)據(jù)恢復(fù) 密碼管理 天堂 城堡 雪松 樓房一 樓房二 幫助主題 系統(tǒng)幫助 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： form13.showmodal； /顯示租金收取窗體 end； procedure Tmainform1.N11Click(Sender: TObject)； begin form14.showmodal； /顯示按合同號租金查詢窗體 end； procedure Tmainform1.N12Click(Sender: TObject)； begin form15.showmodal； /顯示按發(fā)票號查詢窗體 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； 無憂無慮畢設(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； 無憂無慮畢設(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； 無憂無慮畢設(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 信息管理窗體 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 表 4-4-3 主要控件對象屬性如下 對象名 屬性 取值（說明） 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 房屋號 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 合同號 Name DBEdit5 Readonly true DBEdit6 (DBEdit) Datasource Datasource1 Datafield 類型 Name DBEdit6 Readonly true 無憂無慮畢設(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； /對房產(chǎn)表進(jìn)行插入 end； procedure TForm4.Button6Click(Sender: TObject)； begin 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： if MessageDlg(如果刪除，記錄將不能恢復(fù)，是否確定？ ,mtConfirmation, mbYes, mbNo,0) = mrYes then adodataset1.Delete ； button7.Enabled := false； /對記錄進(jìn)行刪除操作，并先判斷是否確定刪除 end； procedure TForm4.Button7Click(Sender: TObject)； begin adodataset1.Post； showmessage(保存完畢 )； /對插入或修改的記錄進(jìn)行保存，保存后顯示“保存完畢” end； procedure TForm4.Button9Click(Sender: TObject)； begin form28.ADODataSet1.Close； form28.ADODataSet1.CommandText:=select * from 房產(chǎn)表 where 房屋號 =:fwh； form28.ADODataSet1.Parameters.ParamByName(fwh).Value:=dbedit1.Text； form28.ADODataSet1.Open； form28.QuickRep1.Preview； /對所顯示的記錄進(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； /對記錄進(jìn)行修改 end 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 4.3.4 房產(chǎn)總表瀏覽窗體的設(shè)計(jì) 該窗體主要用來瀏覽房產(chǎn)的總體信息，布局如下圖所示： 圖 4-6 房產(chǎn)總表瀏覽窗體 該窗體所用的主要控件屬性和與數(shù)據(jù)庫的連接跟房產(chǎn)信息管理窗體類似 。 本窗體能打印房產(chǎn)信息的總表，打印 按紐的 clicked事件的代碼為： procedure TForm5.Button1Click(Sender: TObject)； begin form27.QuickRep1.Preview； end； 4.3.5 房屋合同管理窗體的設(shè)計(jì) 該窗體主要是對合同信息進(jìn)行查詢，插入，修改等操作，窗體布局如下圖： 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 圖 4-7 合同管理窗體 4.3.6 到期合同處理窗體的創(chuàng)建 功能是對已到期的合同進(jìn)行處理，即對已到期的合同標(biāo)志為無效合同，窗體布局如下： 圖 4-8 到期合同處理窗體 實(shí)現(xiàn)功能的代碼： procedure TForm10.Button2Click(Sender: TObject)； begin if dbedit3.Text =dbedit4.Text then 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： begin adodataset2.Close ； adodataset2.CommandText := select * from 合同表 where 合同號 =:hth； adodataset2.Parameters.ParamByName(hth).Value := dbcombobox1.Text ； adodataset2.Open ； adodataset2.Edit ； adodataset2.FieldByName(標(biāo)志 ).Value := 1； adodataset2.FieldByName(備注 ).Value:=該合同已無效 ； adodataset2.Post ； showmessage(合同已結(jié)束 )； end； end； 4.3.7 合同信息查詢窗體的設(shè)計(jì) 該窗體實(shí)現(xiàn)的功能是對合同信息進(jìn)行查詢，包括三個選擇查 詢，分別是按合同號查詢、按租主名查詢、按租用單位查詢，當(dāng)點(diǎn)擊按合同號查詢時(shí) comboBox1 就會顯示供選擇的合同號，就可查詢所要查詢的信息，點(diǎn)擊按租主名查詢時(shí) ComboBox1 就顯示供選擇的聯(lián)系人，按租用單位查詢也一樣，點(diǎn)擊時(shí)顯示供選擇的租用單位。 窗體布局如圖： 圖 4-9 合同信息查詢窗體 本窗體的功能主要是通過“查詢“按鈕的 clicked 事件來實(shí)現(xiàn)的，具體代碼如下： procedure TForm11.Button1Click(Sender: TObject)； begin if radiobutton1.Checked then 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： begin adodataset1.Close ； adodataset1.CommandText :=select * from 合同表 where 合同號 =:hth； adodataset1.Parameters.ParamByName(hth).Value := combobox1.Text ； adodataset1.Open ； end； /按合同號查詢 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； /按租主名查詢 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； /按租用單位查詢 4.3.8 合同信息總表瀏覽窗體的設(shè)計(jì) 與房產(chǎn)信息 總表瀏覽窗體的設(shè)計(jì)類似。 4.3.9 租金收取窗體的創(chuàng)建 該窗體的功能是對租金的收取情況進(jìn)行管理、保存。 無憂無慮畢設(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； /對租金的收取進(jìn)行保存 procedure TForm13.Button3Click(Sender: TObject)； begin form31.ADODataSet1.Close； form31.ADODataSet1.CommandText:=select * from 租金表 where 發(fā)票號 =:fph； form31.ADODataSet1.Parameters.ParamByName(fph).Value:=edit7.Text； form31.ADODataSet1.Open； form31.QuickRep1.Preview； end； /打印租金收取單 4.3.10 按合同號租金查詢窗體的設(shè)計(jì) 該窗體的功能是輸入合同號后查詢該合同的租金情況，并且可以總結(jié)出該合同的總體上繳租金。 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 圖 4-11 按合同號租金查詢窗體 租金按合同查詢的系統(tǒng)窗口主要靠兩個數(shù)據(jù)庫連接控件跟租金表連接。 表 4-4 主要控件屬性如下 對象名 屬性 取值（說明） Form14 (form) caption 按合同號租金查詢 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 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： Commandtext Select * from 租金表 Datasource1 (Datasource) Name Datasource1 Dataset ADODataset1 Edit1 (Edit) Text (空 )用于輸入合同號 Edit2 (Edit) Text (空 )用于顯示所選合同號的租金收取總額 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 合同號 =:hth； adodataset1.Parameters.ParamByName(hth).Value :=edit1.Text ； adodataset1.Open ； /用于顯示所輸入合同號的租金情況 adodataset2.Close； adodataset2.CommandText:=select sum(實(shí)收金額 ) from 租金表 where 合同號 =:hth； adodataset2.Parameters.ParamByName(hth).Value:=edit1.Text； adodataset2.Open； edit2.Text:= adodataset2.Recordset.Fields.Item0.Value； /顯示所輸入合同號的租金收取總額 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)； 無憂無慮畢設(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 合同號 =:hth； form32.ADODataSet1.Parameters.ParamByName(hth).Value:=edit1.Text； form32.ADODataSet1.Open； form32.QuickRep1.Preview； end； end； /打印預(yù)覽租金表 end. 4.3.11 按發(fā)票號租金查詢窗口的設(shè)計(jì) 功能是輸入要查詢的發(fā)票號，可查看該發(fā)票號所對應(yīng)的租金情況， 圖 4-12 按發(fā)票號租金查詢窗口 具體功能的實(shí)現(xiàn)代碼與“按合同號租金查詢窗口”類似。 4.3.12 租金信息統(tǒng)計(jì)窗口的設(shè)計(jì) 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 該窗體是屬于“信息統(tǒng)計(jì)”模塊的其中一個窗口。 功能是統(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ì)”模塊中的一個窗體。 功能是統(tǒng)計(jì)和打印出已到期的合同情況，窗體設(shè)計(jì)如下； 圖 4-14 已到期合同的統(tǒng)計(jì)窗口 無憂無慮畢設(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)的代碼如下： 無憂無慮畢設(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ì)類似。 4.3.16 數(shù)據(jù)備份窗體的設(shè)計(jì) 數(shù)據(jù)備份窗體是“系統(tǒng)維護(hù)”模塊中的一個窗體，實(shí)現(xiàn)維護(hù)功能。 該窗體的功能理論上是對新數(shù)據(jù)進(jìn)行保存，防止數(shù)據(jù)的丟失。 窗體布局如下 ： 圖 4-16 數(shù)據(jù)備份窗體 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 4.3.17 數(shù)據(jù)恢復(fù)窗體的創(chuàng)建 該窗 體也是“系統(tǒng)維護(hù)”模塊的一部分，數(shù)據(jù)誤操作后，數(shù)據(jù)可能會破壞或丟失，該窗體的功能是恢復(fù)正確的數(shù)據(jù)。窗體布局如下圖： 圖 4-17 數(shù)據(jù)恢復(fù)窗口圖 4.3.18 密碼管理的窗體創(chuàng)建 該窗體也是“系統(tǒng)維護(hù)”模塊的一部分，能實(shí)現(xiàn)密碼的修改。 窗體布局如下： 圖 4-18 密碼管理的窗體 表 4-5 主要功能控件的屬性如下 對象名 屬性 取值（說明） Form22 caption 密碼管理 無憂無慮畢設(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 用戶表 Edit1 (TEdit) Text (空 )用于輸入用戶名 Edit2 (Tedit) PasswordChar *(所有輸入都顯示為指定的字符 )用于輸入原密碼 Edit3 (TEdit) PasswordChar *(所有輸入都顯示為指定的字符 )用于輸入新密碼 Edit4 (TEdit) Passwordchar *(所有輸入都顯示為指定 的字符 )用于確認(rèn)新密碼 Button1(Button) Caption 確定 Button2(Button) Caption 退出 功能是通過按紐“確定”來實(shí)現(xiàn)的，主要的代碼是： procedure TForm22.Button1Click(Sender: TObject)； begin adodataset2.Close ； adodataset2.CommandText :=select * from 用戶表 where 用戶名 =:name； adodataset2.Parameters.ParamByName(name).Value := edit1.Text ； adodataset2.Open； /打開用戶表 if (adodataset2.Recordset.RecordCount =0) or (trim(adodataset2.fieldbyname(密碼 ).Value) edit2.Text) then showmessage(用戶名或密碼錯誤 ) /判斷用戶名和密碼是否正確 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 4.3.19 主窗體游客瀏覽的創(chuàng)建 該窗體的設(shè)計(jì)是為了給租房者提供信息的，包括“房價(jià)查詢”“房產(chǎn)咨詢”“有房出租”三大模塊。該窗體可以為租房者提供了方便，也使房屋更好的出租。 圖 4-19 游客瀏覽窗體圖 4.3.20 房價(jià)查詢窗口的設(shè)計(jì) 功能是輸入要找房子的類型和坐落位置，便可查出房子的價(jià)格和 具體情況，方便尋房者更好的找到房子。窗體的布局如下： 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 圖 4-20 房價(jià)查詢窗口 功能實(shí)現(xiàn)的代碼如下： procedure TForm7.Button2Click(Sender: TObject)； begin adodataset2.Close； adodataset2.CommandText:=select * from 房產(chǎn)表 where 類型 =:lx and 坐落位置 =:zlwz ； adodataset2.Parameters.ParamByName(lx).Value:=combobox1.Text ； adodataset2.Parameters.ParamByName(zlwz).Value:=combobox3.Text； adodataset2.Open； end； /實(shí)現(xiàn)查詢條件后的記錄查詢 4.3.21 房產(chǎn)信息查詢窗體的設(shè)計(jì) 功能是提供了“按地理位置查詢”和“按房子類型查詢”的功能，選擇了“按地理位置查詢”時(shí)可按所選的地理環(huán)境查看房產(chǎn)情況，選擇“按房子類型查詢”也一樣，可查看不同類型的房產(chǎn)情況。 窗體布局如下 : 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 圖 4-21 房產(chǎ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:=房子類型： ； combobox1.Clear ； adodataset2.Close ； adodataset2.CommandText := select distinct 類型 from 房產(chǎn)表 ； adodataset2.Open ； adodataset2.First ； 無憂無慮畢設(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中顯示房子類型 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 ；