(精品)售樓管理系統(tǒng)(2013年優(yōu)秀畢業(yè)設(shè)計(jì))

售樓管理系統(tǒng) 【摘要】 房地產(chǎn)業(yè)的不斷發(fā)展，利用電腦的先進(jìn)管理手段，把售樓人員從一大堆合同中解放出來(lái)，將樓盤的銷售推向“無(wú)紙化”已經(jīng)成了解決當(dāng)前房地產(chǎn)售樓管理的當(dāng)務(wù)之急。售樓管理系統(tǒng)就是為了實(shí)現(xiàn)這一目標(biāo)而設(shè)計(jì)的，管理人員通過(guò)該系統(tǒng)可以及時(shí)了解樓盤的動(dòng)態(tài)銷售情況，還能充分利用電腦的可檢索性、方便、快速地了解有關(guān)銷售樓盤的其他各種詳細(xì)資料，以便及時(shí)做出正確決策。本系統(tǒng)主要實(shí)現(xiàn)以下功能：房產(chǎn)管理，管理所有的房產(chǎn)信息、對(duì)房產(chǎn)數(shù)據(jù)進(jìn)行添加、修改、刪除等操作。此外，方便的查詢功能可以使客戶迅速地找到自己所需的房產(chǎn)信息；客戶管理，擁有完善的客戶管理功能，才能更加迅速地了解客戶的需求動(dòng)態(tài)。客戶管理功能要實(shí)現(xiàn)對(duì)客戶各種數(shù)據(jù)的管理，包括客戶和購(gòu)買動(dòng)向等。收費(fèi)管理，對(duì)于各種復(fù)雜的物業(yè)收費(fèi)，完善的收費(fèi)管理功能將使得收費(fèi)管理更加便捷準(zhǔn)確。售樓管理，系統(tǒng)的核心，實(shí)現(xiàn)對(duì)樓盤銷售的數(shù)據(jù)、合同簽訂情況、客戶付費(fèi)等情況的管理。本系統(tǒng)以中文版Visual Basic 6.0為前臺(tái)開(kāi)發(fā)工具，用中文版Access 2000作為后臺(tái)數(shù)據(jù)庫(kù)。Visual Basic 6.0，它是由美國(guó)微軟公司推出的小型數(shù)據(jù)庫(kù)開(kāi)發(fā)語(yǔ)言，由于其使用方便，硬件要求不高，易學(xué)等特點(diǎn)，它還提供強(qiáng)有力的應(yīng)用程序開(kāi)發(fā)工具，為將來(lái)的維護(hù)提供必要的基礎(chǔ)。系統(tǒng)的操作對(duì)人員的素質(zhì)的要求不高，只需對(duì)他們稍加培訓(xùn)便能勝任。 關(guān)鍵字 房地產(chǎn)|樓盤銷售| Visual Basic 6.0|數(shù)據(jù)庫(kù)目 錄摘要.21、 引言.41項(xiàng)目背景42項(xiàng)目目標(biāo)42、 第一章設(shè)計(jì)基礎(chǔ).51.1管理信息系統(tǒng)的認(rèn)識(shí).51.2管理信息系統(tǒng)的特點(diǎn).51.3管理信息系統(tǒng)的開(kāi)發(fā).63、 第二章系統(tǒng)功能分析與設(shè)計(jì).62.1系統(tǒng)需求分析.82.2系統(tǒng)功能分析.84、 第三章數(shù)據(jù)庫(kù)設(shè)計(jì).125、 第四章創(chuàng)建售樓管理系統(tǒng)工程.174.1創(chuàng)建登錄窗體184.2建立主窗體224.3實(shí)現(xiàn)房產(chǎn)管理功能.244.4實(shí)現(xiàn)客戶管理功能494.5實(shí)現(xiàn)收費(fèi)管理功能594.6實(shí)現(xiàn)系統(tǒng)維護(hù)功能676、 第五章小結(jié).69致謝.697、 參考文獻(xiàn).70售樓管理系統(tǒng)引 言背景企業(yè)的競(jìng)爭(zhēng)逐漸整合為管理的競(jìng)爭(zhēng)，隨著房地產(chǎn)業(yè)的不斷發(fā)展，利用電腦的先進(jìn)管理手段，把售樓人員從一大堆合同中解放出來(lái)，將樓盤的銷售推向“無(wú)紙化”已經(jīng)成了解決當(dāng)前房地產(chǎn)售樓管理的當(dāng)務(wù)之急。使用計(jì)算機(jī)對(duì)樓盤進(jìn)行管理，具有檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、成本低等特點(diǎn)，能夠極大地提高樓盤資源管理的效率，也是企業(yè)科學(xué)化、正規(guī)化管理的重要條件。目標(biāo)大豐市教育房產(chǎn)售樓管理系統(tǒng)，要為企業(yè)提供全面的樓盤管理解決方案，提供一個(gè)以人為中心，管理人員與樓盤之間互動(dòng)的資源管理平臺(tái)。具體目標(biāo)如下：l 提高企業(yè)管理的效率，節(jié)約相關(guān)的管理成本，將樓盤的銷售推向“無(wú)紙化”，增強(qiáng)樓盤管理的安全性。l 為企業(yè)建立規(guī)范化、人性化、實(shí)時(shí)互動(dòng)化管理機(jī)制。l 滿足企業(yè)戰(zhàn)略層、管理層、業(yè)務(wù)操作層和企業(yè)全體員工的不同層次和不同方面的需要。l 為企業(yè)將來(lái)的整體信息化提供必要的支持。第一章 設(shè)計(jì)基礎(chǔ)1.1管理信息系統(tǒng)的認(rèn)識(shí)管理信息系統(tǒng)就是我們常說(shuō)的MIS（Management Information System），在強(qiáng)調(diào)管理，強(qiáng)調(diào)信息的現(xiàn)代社會(huì)中它變得越來(lái)越普及。MIS是一門新的學(xué)科，它跨越了若干個(gè)領(lǐng)域，比如管理科學(xué)、系統(tǒng)科學(xué)，運(yùn)籌學(xué)、統(tǒng)計(jì)學(xué)以及計(jì)算機(jī)科學(xué)。在這些學(xué)科的基礎(chǔ)上，形成信息收集和加工的方法，從而形成一個(gè)縱橫交織的系統(tǒng)。1.2 管理信息系統(tǒng)的特點(diǎn)1.2.1 管理信息系統(tǒng)的組成管理信息系統(tǒng)在企業(yè)中的應(yīng)用存在三個(gè)要素，這就是人、計(jì)算機(jī)和數(shù)據(jù)。人是指企業(yè)領(lǐng)導(dǎo)者、管理人員、技術(shù)人員，以及MIS建設(shè)的領(lǐng)導(dǎo)機(jī)構(gòu)和實(shí)施機(jī)構(gòu)，他們?cè)谙到y(tǒng)中起主導(dǎo)作用。MIS是一項(xiàng)系統(tǒng)工程，不是只靠一些計(jì)算機(jī)開(kāi)發(fā)人員就可以完成的，必須有企業(yè)管理人員，尤其是企業(yè)領(lǐng)導(dǎo)的積極參與。計(jì)算機(jī)技術(shù)是MIS得以實(shí)施的主要技術(shù)。在這些技術(shù)中，軟件開(kāi)發(fā)是MIS開(kāi)發(fā)的重點(diǎn)。第三個(gè)因素也不能忽視。企業(yè)的管理數(shù)據(jù)是MIS正常運(yùn)行的基礎(chǔ)。廣義地說(shuō)，各項(xiàng)管理制度是MIS建設(shè)成功的基礎(chǔ)。試想要計(jì)算一臺(tái)機(jī)床的成本，需要按時(shí)輸入每個(gè)部件、每個(gè)零件以及每個(gè)螺釘螺帽的費(fèi)用，涉及企業(yè)的生產(chǎn)車間、采購(gòu)、庫(kù)房、工藝設(shè)計(jì)和財(cái)務(wù)等多個(gè)部門，必須有一整套管理制度做保證。1.2.2 管理信息系統(tǒng)的界面特點(diǎn)在計(jì)算機(jī)軟件技術(shù)中，人機(jī)界面已經(jīng)發(fā)展成為一個(gè)重要的分支。MIS人機(jī)界面設(shè)計(jì)一般遵循以下一些基本原則：1以通信功能作為界面設(shè)計(jì)的核心人機(jī)界面設(shè)計(jì)的關(guān)鍵是使人與計(jì)算機(jī)之間能夠準(zhǔn)確地交流信息。一方面，人向計(jì)算機(jī)輸入信息時(shí)應(yīng)當(dāng)盡量采取自然的方式；另一方面，計(jì)算機(jī)向人傳遞的信息必須準(zhǔn)確，不致引起誤解或混亂。另外，不要把內(nèi)部的處理、加工與人機(jī)界面混在一起（人機(jī)界面程序只是通信），以免互相干擾，影響速度。設(shè)計(jì)MIS時(shí)，針對(duì)每一個(gè)功能，都要按照“I-P-O”的模塊化思想，使輸入、處理與輸出“涇渭分明”，充分體現(xiàn)人機(jī)界面的通信功能。這樣設(shè)計(jì)出來(lái)的程序不易出錯(cuò)，而且易于維護(hù)。報(bào)表打印是MIS必備的功能之一，而且打印之前常常需要計(jì)算。計(jì)算與打印分開(kāi)設(shè)計(jì)，雖然消耗時(shí)間，但易于整個(gè)MIS系統(tǒng)的維護(hù)。2界面必須始終一致統(tǒng)一的人機(jī)界面不致于會(huì)增加用戶的負(fù)擔(dān)，讓用戶始終用同一種方式思考與操作。最忌諱的是每換一個(gè)屏幕用戶就要換一套操作命令與操作方法。例如在整個(gè)系統(tǒng)可以以問(wèn)號(hào)圖標(biāo)表示幫助，以磁盤圖標(biāo)表示存盤，以打印機(jī)圖標(biāo)表示打印等。3界面必須使用戶隨時(shí)掌握任務(wù)的進(jìn)展情況人機(jī)界面應(yīng)該能夠告訴用戶軟件運(yùn)行的進(jìn)度。特別是在需要較長(zhǎng)時(shí)間的等待時(shí)，必須讓用戶了解工作進(jìn)展情況，如可以設(shè)計(jì)已經(jīng)完成了百分之幾的任務(wù)進(jìn)度條等。目前，Windows下的應(yīng)用軟件無(wú)論大小，其安裝程序幾乎均做到了這一點(diǎn)。開(kāi)發(fā)MIS軟件時(shí)，這一點(diǎn)很值得借鑒。4界面必須能夠提供幫助一個(gè)優(yōu)秀的MIS軟件應(yīng)該提供在線求助功能，甚至提供使用向?qū)В@將給用戶帶來(lái)極大的方便。在多媒體環(huán)境下，以語(yǔ)音提示作為操作向?qū)?，不?huì)干擾屏幕信息，是一個(gè)極佳的選擇。5界面友好、使用方便多數(shù)MIS軟件的數(shù)據(jù)輸入量較大。對(duì)于一些相對(duì)固定的數(shù)據(jù)，不應(yīng)讓用戶頻頻輸入（特別是漢字），而應(yīng)讓用戶用鼠標(biāo)輕松選擇。例如，人事管理系統(tǒng)中的“文化程度”是相對(duì)固定的數(shù)據(jù)，其值一般取“小學(xué)”、“初中”、“高中”、“大?！薄ⅰ按蟊尽?、“碩研”、“博研”等。錄入這類數(shù)據(jù)之前，MIS軟件應(yīng)在相應(yīng)位置彈出一個(gè)列表框，待用戶以鼠標(biāo)點(diǎn)擊，而不應(yīng)讓用戶每次都輸入這些漢字。另外，開(kāi)發(fā)者應(yīng)編寫(xiě)一個(gè)錯(cuò)誤實(shí)時(shí)記錄程序，自動(dòng)記錄何日、何時(shí)、何程序出了何種錯(cuò)誤?？傊?，所開(kāi)發(fā)的MIS在使用過(guò)程中，應(yīng)使用戶的數(shù)據(jù)輸入量降至最低限度，同時(shí)也要減少用戶的干預(yù)量。實(shí)踐證明，用戶干預(yù)愈少，MIS系統(tǒng)的滿意程度愈高。6輸入畫(huà)面盡可能接近實(shí)際如果某個(gè)電算會(huì)計(jì)軟件的憑證錄入畫(huà)面是表格式的，一屏可錄入多條記錄，而且與實(shí)際憑證一模一樣，甚至連顏色都無(wú)異，用戶在終端上錄入憑證，仿佛用筆在紙上填寫(xiě)憑證，以增加人機(jī)親和力。7具有較強(qiáng)的容錯(cuò)功能誤操作、按鍵連擊等均有可能導(dǎo)致數(shù)據(jù)誤錄。巧妙地進(jìn)行程序設(shè)計(jì)，可以避免此類因素造成的錯(cuò)誤。例如，錄入學(xué)生成績(jī)時(shí)，我們可以對(duì)其范圍進(jìn)行限定，使用戶無(wú)法輸入0100以外的數(shù)據(jù)；錄入學(xué)生年齡時(shí)，不妨根據(jù)實(shí)際情況將范圍限制在1520之間。1.3 管理信息系統(tǒng)的開(kāi)發(fā)1.3.1 管理信息系統(tǒng)的開(kāi)發(fā)方式管理信息系統(tǒng)的開(kāi)發(fā)方式主要有獨(dú)立開(kāi)發(fā)方式、委托開(kāi)發(fā)方式、合作開(kāi)發(fā)方式、購(gòu)買現(xiàn)成軟件方式等4種。這4種開(kāi)發(fā)方式各有優(yōu)點(diǎn)和不足，需要根據(jù)使用單位的技術(shù)力量、資金情況、外部環(huán)境等各種因素進(jìn)行綜合考慮和選擇。不論哪種開(kāi)放方式都需要有單位的領(lǐng)導(dǎo)和業(yè)務(wù)人員參加，并在管理信息系統(tǒng)的整個(gè)開(kāi)發(fā)過(guò)程中培養(yǎng)、鍛煉、壯大該系統(tǒng)的維護(hù)隊(duì)伍。1.3.2 系統(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)題：l 系統(tǒng)要解決的問(wèn)題：如采取何種方式解決組織管理和信息處理方面的問(wèn)題，對(duì)企業(yè)提出的新的管理需求該如何滿足等。l 系統(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ì)影響方面的考慮。 l 系統(tǒng)開(kāi)發(fā)的原則：在系統(tǒng)開(kāi)發(fā)過(guò)程中，要遵循領(lǐng)導(dǎo)參與、優(yōu)化創(chuàng)新、實(shí)用高效、處理規(guī)范化的原則。l 系統(tǒng)開(kāi)發(fā)前的準(zhǔn)備工作：作好開(kāi)發(fā)人員的組織準(zhǔn)備和企業(yè)基礎(chǔ)準(zhǔn)備工作。l 系統(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.3.3 管理信息系統(tǒng)的開(kāi)發(fā)過(guò)程管理信息系統(tǒng)的開(kāi)發(fā)過(guò)程一般包括系統(tǒng)開(kāi)發(fā)準(zhǔn)備、系統(tǒng)調(diào)查、系統(tǒng)分析、系統(tǒng)設(shè)計(jì)、系統(tǒng)實(shí)現(xiàn)、系統(tǒng)轉(zhuǎn)換、系統(tǒng)運(yùn)行與維護(hù)、系統(tǒng)評(píng)價(jià)等步驟。根據(jù)開(kāi)發(fā)系統(tǒng)的大小、復(fù)雜、投入、方式、方法等因素的不同，各步驟的要求和內(nèi)容也不同，用戶需要根據(jù)實(shí)際情況進(jìn)行取舍和計(jì)劃。第二章 系統(tǒng)功能分析與設(shè)計(jì)2.1系統(tǒng)需求分析 售樓管理職能主要分為房產(chǎn)管理，客戶管理，收費(fèi)管理，售樓管理。其中售樓管理是系統(tǒng)的核心，在系統(tǒng)開(kāi)發(fā)時(shí)應(yīng)考慮對(duì)以下職能的需求：l 房產(chǎn)管理，能夠管理所有的房產(chǎn)信息、對(duì)房產(chǎn)數(shù)據(jù)進(jìn)行添加、 修改、刪除等操作。此外，方便的查詢功能可以使客戶迅速地找到自己所需的房產(chǎn)信息。l 客戶管理，擁有完善的客戶管理功能，才能更加迅速地了解客戶的需求動(dòng)態(tài)?？蛻艄芾砉δ芤軌?qū)崿F(xiàn)對(duì)客戶各種數(shù)據(jù)的管理，包括客戶和購(gòu)買動(dòng)向等。l 收費(fèi)管理，對(duì)于各種復(fù)雜的物業(yè)收費(fèi)，完善的收費(fèi)管理功能將使得收費(fèi)管理更加便捷準(zhǔn)確。l 售樓管理，系統(tǒng)的核心，要能夠?qū)崿F(xiàn)對(duì)樓盤銷售的數(shù)據(jù)、合同簽訂情況、客戶付費(fèi)等情況的管理。2.2系統(tǒng)功能分析通過(guò)對(duì)用戶需求的具體調(diào)研和分析，確定本系統(tǒng)應(yīng)具備的功能包括房產(chǎn)管理、客戶管理、收費(fèi)管理、售樓管理、系統(tǒng)維護(hù)和退出系統(tǒng)。具體主要實(shí)現(xiàn)如下功能：l 房產(chǎn)管理部分 房產(chǎn)管理部分包括戶型登記、樓盤登記、戶型查詢和樓盤查詢，其功能是實(shí)現(xiàn)對(duì)樓盤各部分?jǐn)?shù)據(jù)內(nèi)容的添加、修改、刪除和查詢等操作。（1） 戶型登記管理：包括戶型信息的添加、修改和刪除3部分功能。其中，戶型信息包括戶型編號(hào)、建筑面積、套內(nèi)面積、房型、戶型簡(jiǎn)介以及圖片文件。（2） 樓盤登記管理：包括樓盤信息的添加、修改和刪除3部分功能。其中，樓盤信息包括樓盤編號(hào)、戶型編號(hào)以及單價(jià)等。其中樓盤編號(hào)的信息包括了樓號(hào)、單元、樓層和房號(hào)幾部分。（3） 戶型查詢：戶型查詢部分包括戶型編號(hào)、建筑面積、戶型結(jié)構(gòu)等查詢方式。（4） 樓盤查詢：樓盤查詢部分包括樓盤編號(hào)、樓號(hào)、樓層、單位報(bào)價(jià)和戶型等查詢方式。l 客戶管理部分 客戶管理部分包括客戶資料登記管理和客戶資料查詢管理，其功能是實(shí)現(xiàn)對(duì)各客戶部分?jǐn)?shù)據(jù)內(nèi)容的添加、修改、刪除、查詢等操作。（1）客戶資料登記管理：包括客戶資料的添加、修改、刪除3部分功能。其中，客戶資料包括姓名、身份證號(hào)、出生日期、性別、電子郵件、通信住址、電話號(hào)碼、手機(jī)、郵編、車牌號(hào)等。（2）客戶資料查詢管理：客戶資料查詢部分包括按照身份證號(hào)查詢、按照車牌號(hào)查詢、按照客戶姓名查詢和按照手機(jī)號(hào)查詢等。l 收費(fèi)管理部分 收費(fèi)管理部分包括收費(fèi)登記和收費(fèi)查詢管理，其功能是實(shí)現(xiàn)對(duì)各部分?jǐn)?shù)據(jù)內(nèi)容的添加、刪除、查詢等操作。（1）收費(fèi)登記管理：包括收費(fèi)資料的添加、刪除、打印3部分功能。其中，收費(fèi)信息包括收費(fèi)編號(hào)、樓盤編號(hào)、交費(fèi)時(shí)間、有線電視費(fèi)、電話調(diào)試費(fèi)、煤氣初裝費(fèi)、公用設(shè)施費(fèi)、其他費(fèi)用、押金、收款人、交款人等。 （2）收費(fèi)查詢管理：收費(fèi)資料查詢部分包括按照收費(fèi)單號(hào)查詢、按照樓盤號(hào)查詢號(hào)、按照交款人查詢和按照交費(fèi)時(shí)間范圍等。l 售樓管理部分 售樓管理部分包括售樓人員登記、售樓合同管理、收款管理、售樓人員查詢、售樓合同查詢、收費(fèi)情況查詢等，其功能是實(shí)現(xiàn)對(duì)各部分?jǐn)?shù)據(jù)內(nèi)容的添加、修改、刪除、查詢等操作。 （1）售樓人員登記管理：包括售樓人員資料的添加、修改、刪除3部分功能。其中，售樓人員資料包括姓名、身份證號(hào)、出生日期、性別、電子郵件、通信住址、電話號(hào)碼、手機(jī)、郵編、人員編號(hào)等。 （2）售樓合同管理：包括售樓合同資料的添加、修改、刪除3部分功能。其中，售樓合同資料包括合同編號(hào)、合同狀態(tài)、認(rèn)購(gòu)日期、合同簽訂日期、購(gòu)買樓盤編號(hào)、購(gòu)買人身份證號(hào)、銷售人員編號(hào)、合同單價(jià)、折扣率、現(xiàn)金折扣、車位編號(hào)、車位價(jià)款、地下室編號(hào)、地下室價(jià)款、付款方式、貸款銀行以及計(jì)劃的分期付款等。 （3）收款管理：包括收款資料的添加、打印、刪除3部分功能。其中收款資料包括樓盤編號(hào)、交款日期、收款單號(hào)、收款金額、付款方式、交款人等。 （4）售樓人員查詢：售樓人員查詢部分包括按照售樓人員編號(hào)查詢和按照售樓人員姓名查詢。 （5）售樓合同查詢：售樓合同查詢部分包括按照合同編號(hào)查詢、按照樓盤編號(hào)查詢、按照客戶身份證號(hào)查詢和按照簽訂時(shí)間表范圍查詢等。 （6）收款情況查詢：收款情況查詢部分包括按照收費(fèi)單號(hào)查詢、按照樓盤編號(hào)查詢、按照交款人查詢和按照交費(fèi)時(shí)間范圍查詢等。l 系統(tǒng)維護(hù)部分 系統(tǒng)維護(hù)部分包括數(shù)據(jù)備份和數(shù)據(jù)恢復(fù)，實(shí)現(xiàn)將現(xiàn)有數(shù)據(jù)庫(kù)進(jìn)行備份和恢復(fù)功能。l 退出系統(tǒng)部分 退出系統(tǒng)部分就是當(dāng)用戶發(fā)出關(guān)閉窗口的行為后，詢問(wèn)用戶是否確定要退出本系統(tǒng)，如果確定，則關(guān)閉本系統(tǒng)。2.3系統(tǒng)功能模塊設(shè)計(jì)通過(guò)對(duì)用戶需求的具體調(diào)研和分析，確定本系統(tǒng)應(yīng)具備的功能包括房產(chǎn)管理、客戶管理、收款管理、售樓管理、系統(tǒng)維護(hù)和退出系統(tǒng)。系統(tǒng)具體的模塊組織結(jié)構(gòu)如圖1所示。售樓管理系統(tǒng)退出系統(tǒng)系統(tǒng)維護(hù)售樓管理收款管理客戶管理房產(chǎn)管理數(shù)據(jù)庫(kù)恢復(fù)數(shù)據(jù)庫(kù)備份收款情況查詢售樓合同查詢售樓人員查詢收款管理售樓合同管理售樓人員查詢收費(fèi)查詢收費(fèi)登記客戶資料查詢客戶資料登記樓盤查詢戶型查詢樓盤登記戶型登記圖1 系統(tǒng)功能模塊圖第三章 數(shù)據(jù)庫(kù)設(shè)計(jì)數(shù)據(jù)庫(kù)在一個(gè)管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)的好壞將直接對(duì)應(yīng)用系統(tǒng)的效率以及實(shí)現(xiàn)的效果產(chǎn)生影響。合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)可以提高數(shù)據(jù)存儲(chǔ)的效率，保證數(shù)據(jù)的完整和一致。設(shè)計(jì)數(shù)據(jù)庫(kù)系統(tǒng)時(shí)應(yīng)該首先充分了解用戶各個(gè)方面的需求，包括現(xiàn)有的以及將來(lái)可能增加的需求。對(duì)于數(shù)據(jù)庫(kù)應(yīng)用程序來(lái)說(shuō)，數(shù)據(jù)庫(kù)的設(shè)計(jì)與創(chuàng)建是進(jìn)行程序設(shè)計(jì)的基石，對(duì)于Visual Foxpro來(lái)說(shuō)，其數(shù)據(jù)庫(kù)的創(chuàng)建一般要包括數(shù)據(jù)庫(kù)的設(shè)計(jì)和數(shù)據(jù)庫(kù)的創(chuàng)建兩個(gè)步驟。3.1設(shè)計(jì)數(shù)據(jù)庫(kù)根據(jù)功能分析，系統(tǒng)數(shù)據(jù)庫(kù)應(yīng)滿足戶型資料、樓盤資料、客戶資料、合同資料、收費(fèi)資料、收款登記、售樓人員、收款登記和系統(tǒng)管理9個(gè)功能的需求。所以，需要利用Access建立一個(gè)House數(shù)據(jù)庫(kù)，主要包括如下8個(gè)表。l “戶型資料”表：用于存放戶型資料；l “樓盤資料”表：用于存放樓盤資料；l “合同資料”表：用于存放合同資料；l “客戶資料”表：用于存放客戶資料；l “收費(fèi)信息”表：用于存放收費(fèi)信息；l “收款登記”表：用于存放收款登記信息；l “售樓人員”表：用于存放售樓人員信息；l “預(yù)計(jì)付款”表：用于存放預(yù)計(jì)付款信息。1、“戶型資料”表表1 戶型資料表字段名數(shù)據(jù)類型說(shuō)明Hst_ID文本戶型編號(hào)字段Hst_buildarea數(shù)字建筑面積Hst_usearea數(shù)字套內(nèi)面積Hst_type文本房型Hst_memo文本簡(jiǎn)介Hst_picture文本保存圖片2、“樓盤資料”表表2 樓盤資料表字段名數(shù)據(jù)類型說(shuō)明Hos_id文本樓盤編號(hào)Hos_hstid文本戶型Hos_price貨幣報(bào)價(jià)3、“合同資料”表表3 合同資料表字段名數(shù)據(jù)類型說(shuō)明Pct_ID數(shù)字合同編號(hào)Pct_houseID文本樓盤編號(hào)Pct_buyerid文本購(gòu)買人身份證號(hào)Pct_salesID文本銷售人員編號(hào)Pct_housequote貨幣樓盤單價(jià)Pct_discountrate數(shù)字折扣率Pct_discountcash貨幣折扣金額Pct_carplaceid文本車位號(hào)Pct_carplace貨幣車位價(jià)格Pct_basementid文本地下室編號(hào)Pct_basement貨幣付款方式Pct_paykind文本貨款銀行Pct_bookdate時(shí)間/日期認(rèn)購(gòu)日期Pct_pactdate時(shí)間/日期簽訂日期Pct_State數(shù)字標(biāo)記是否交款4、“客戶資料”表表4 客戶資料表字段名數(shù)據(jù)類型說(shuō)明Hon_ID文本身份證號(hào)Hon_name文本姓名Hon_sex文本性別Hon_tel文本電話Hon_tel文本手機(jī)Hon_job文本職業(yè)Hon_birthday日期/時(shí)間出生日期Hon_email文本電子郵件Hon_carcode文本車牌號(hào)Hon_zipcode文本郵編Hon_addr文本地址Hon_memo文本備注5、“收費(fèi)信息”表表5 收費(fèi)信息表字段名數(shù)據(jù)類型說(shuō)明fee_ID數(shù)字收費(fèi)編號(hào)Fee_houseID文本樓盤編號(hào)Fee_date日期/時(shí)間收費(fèi)時(shí)間Fee_tv貨幣有線電視費(fèi)Fee_tel貨幣電話調(diào)試費(fèi)Fee_gas貨幣煤氣初裝費(fèi)Fee_member貨幣公用設(shè)施費(fèi)Fee_other貨幣其他費(fèi)用Fee_deposit貨幣押金Fee_skr文本收款人Fee_jkr文本交款人6、“收款信息”表表6 收款登記表字段名數(shù)據(jù)類型說(shuō)明Icm_ID數(shù)字收款單號(hào)Icm_houseID文本樓盤編號(hào)Icm_date日期/時(shí)間收款日期Icm_money貨幣收款金額Icm_paykind文本付款方式Icm_skr文本收款人Icm_jkr文本交款人7、“售樓人員”表表7 售樓人員表字段名數(shù)據(jù)類型說(shuō)明Sal_ID文本人員編號(hào) Sal_sfz文本身份證號(hào)Sal_name文本姓名Sal_sex文本性別Sal_birthday日期/時(shí)間出生日期Sal_handset文本電話Sal_handset文本手機(jī)Sal_email文本電子郵件Sal_zipcode文本郵編Sal_addr文本地址8、“預(yù)計(jì)付款”表表8 預(yù)計(jì)付款表字段名數(shù)據(jù)類型說(shuō)明Add_pactid數(shù)字預(yù)計(jì)付款序號(hào) Add_date日期/時(shí)間預(yù)計(jì)付款日期Add_money貨幣付款錢數(shù)Shifoufukuan文本是否已付款標(biāo)記第四章 創(chuàng)建售樓管理系統(tǒng)工程經(jīng)過(guò)上述的分析和設(shè)計(jì)，就可以開(kāi)始系統(tǒng)的創(chuàng)建了。 在Visual Basic中，開(kāi)發(fā)系統(tǒng)的第一步就是需要?jiǎng)?chuàng)建一個(gè)管理系統(tǒng)資源的工程，系統(tǒng)中所有的窗口、菜單、工具欄等資源都是在此工程中添加和設(shè)計(jì)完成的。在Visual Basic的菜單欄中依次單擊“文件” “新建工程”菜單項(xiàng)，在彈出的“新建工程”對(duì)話框中選擇“標(biāo)準(zhǔn)EXE圖標(biāo)”，然后單擊“確定”按鈕，即可創(chuàng)建一個(gè)新的工程，默認(rèn)名稱為“工程1”。在菜單欄中依次單擊“工程” “工程1屬性”菜單項(xiàng)，出現(xiàn)如圖2所示的“工程1 工程屬性”對(duì)話框。圖2 “工程1工程屬性”對(duì)話框在“工程名稱”文本框中輸入“售樓管理系統(tǒng)”，然后單擊“確定”按鈕。這樣，就新創(chuàng)建了一個(gè)名稱為“售樓管理系統(tǒng)”的工程。4.1創(chuàng)建登錄窗體（frmLogin）在正式進(jìn)入系統(tǒng)之前，需要對(duì)用戶的身份進(jìn)行確認(rèn)，這是通過(guò)用戶登錄來(lái)實(shí)現(xiàn)的。所以系統(tǒng)中的第一個(gè)窗體也就應(yīng)該是登錄窗體。4.1.1界面設(shè)計(jì)在Visual Basic中創(chuàng)建工程的時(shí)候，系統(tǒng)會(huì)自動(dòng)建立一個(gè)新的窗體Form1。將這個(gè)窗體的名稱更改為frmLogin，就用它作為系統(tǒng)登錄窗體。在窗體上放置兩個(gè)Label控件、1個(gè)ComboBox控件、1個(gè)TextBox控件和2個(gè)CommandButton控件。設(shè)置frmLogin窗體及其中控件屬性，如表9所示。表9 frmLogin窗體及其中控件屬性列表控件名稱屬性屬性值說(shuō)明frmLoginBackColor&H00C0FFFF&設(shè)置窗體背景顏色frmLoginBorderStyleFixed Single設(shè)置窗體邊框樣式Caption“登錄”設(shè)置窗體標(biāo)題IconSystem.ico設(shè)置窗體圖標(biāo)StartUpPosition屏幕中心設(shè)置窗體初始位置Label1Caption“用戶名：”設(shè)置標(biāo)題BackColor&H00C0FFFF&設(shè)置背景顏色ForeColor&H00C000C0&設(shè)置字體顏色Label2Caption“密碼”設(shè)置標(biāo)題BackColor&H00C0FFFF&設(shè)置背景顏色ForeColor&H00C000C0&設(shè)置字體顏色cmbNameText“”設(shè)置組合框文本為空TxtPwdText“”設(shè)置文本框文本為空CmdOkCaption“確定”設(shè)置命令按鈕標(biāo)題cmdCancelCaptionn“取消”設(shè)置命令按鈕標(biāo)題調(diào)整控件的大小和位置，設(shè)計(jì)狀態(tài)效果如圖3所示。圖3 frmLogin窗體設(shè)計(jì)效果4.1.2 添加代碼（1） 定義模塊代碼Option ExplicitPublic conn As New ADODB.ConnectionPublic Const keyenter=13Public username as string（2） frmLogin窗體加載事件代碼Private Sub Form_Load() 定義連接字符串 connectionstring = provider=Microsoft.Jet.oledb.4.0; & _ data source= & App.Path & House.mdb conn.Open connectionstring 打開(kāi)數(shù)據(jù)庫(kù) sql = select * from 系統(tǒng)管理表 檢索系統(tǒng)管理表 rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic 打開(kāi)記錄集 If rs_login.EOF = False Then 有記錄時(shí)逐一添加到cmbName組合框 Do While rs_login.EOF = False cmbName.AddItem (rs_login.Fields(0) rs_login.MoveNext Loop cmbName.ListIndex = 0 默認(rèn)顯示第一個(gè)子項(xiàng) End If rs_login.Close cnt = 0 初始化輸入次數(shù)End Sub（3） “確定”按鈕代碼Private Sub cmdok_Click() If Trim(cmbName.Text) = Then 判斷輸入的用戶名是否為空 MsgBox 沒(méi)有這個(gè)用戶, vbOKOnly + vbExclamation cmbName.SetFocus Else 判斷用戶名和密碼是否正確 sql = select * from 系統(tǒng)管理表 where czyh= & cmbName.Text & rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox 沒(méi)有這個(gè)用戶, vbOKOnly + vbExclamation, cmbName.SetFocus Else 檢驗(yàn)密碼是否正確 If Trim(rs_login.Fields(1) = Trim(txtPwd.Text) Then userID = cmbName.Text username = rs_login.Fields(2) 記錄登錄用戶的類型，以便權(quán)限設(shè)置 Unload Me frmMain.Show rs_login.Close Exit Sub Else MsgBox 密碼不正確, vbOKOnly + vbExclamation, txtPwd.SetFocus End If End If End If cnt = cnt + 1 輸入次數(shù)加1 If cnt = 3 Then MsgBox 您輸入密碼錯(cuò)誤次數(shù)太多！, vbExclamation, Unload Me End If rs_login.CloseEnd Sub（4） “取消”按鈕代碼Private Sub cmdcancel_Click() conn.Close 關(guān)閉數(shù)據(jù)庫(kù)連接 Set conn = Nothing Unload MeEnd Sub4.2建立主窗體（frmMain）4.2.1創(chuàng)建主窗體在Visual Basic6.0的工程資源管理器中單擊鼠標(biāo)右鍵，彈出的快捷菜單中依次選擇“添加” “添加窗體”菜單項(xiàng)，彈出“添加窗體”對(duì)話框，單擊“打開(kāi)”按鈕，即可在售樓管理系統(tǒng)工程中添加一個(gè)窗體Form1，此窗體的各個(gè)屬性設(shè)置如表10所示。表10 系統(tǒng)主窗體屬性屬性屬性值說(shuō)明名稱frmMain設(shè)置窗體名稱Caption“售樓管理系統(tǒng)”設(shè)置窗體標(biāo)題IconSystem.ico設(shè)置窗體圖標(biāo)PictrueDesktop.bmp設(shè)置窗體背景圖案StartUpPosition2-CenterScreen設(shè)置窗體默認(rèn)位置Windowstate2-Maximized設(shè)置窗體默認(rèn)狀態(tài)主窗體的設(shè)置效果如圖4所示。圖4 主窗體設(shè)計(jì)效果圖4.2.2添加代碼 主窗體中的代碼不多，基本上都是實(shí)現(xiàn)單擊某個(gè)菜單選項(xiàng)即彈出相應(yīng)窗體的語(yǔ)句，這些語(yǔ)句將分別在各個(gè)窗體中介紹。單擊“系統(tǒng)管理” “退出系統(tǒng)”菜單，關(guān)閉系統(tǒng)的代碼如下：private Sub exitsys_click( )conn.Close 關(guān)閉數(shù)據(jù)庫(kù)連接set conn=NothingEndEnd sub由于主窗體中用到了工具欄。因此需要對(duì)工具欄內(nèi)的按鈕響應(yīng)進(jìn)行設(shè)置。雙擊Toolbar控件，在該控件的ButtonClick事件中設(shè)定各個(gè)按鈕響應(yīng)后的操作。這里使用“SelectCase”語(yǔ)句來(lái)分辨當(dāng)前單擊的是哪個(gè)按鈕。Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key 按關(guān)鍵字選擇 Case bt_loupan 如果單擊按鈕關(guān)鍵字為bt_loupan則顯示樓盤查詢窗體 frmBuildingFind.Show 1 Case bt_kehu frmKehuFind.Show 1 Case bt_shoufei frmShoufeiFind.Show 1 Case bt_shoulou frmHetongLogin.Show 1 Case bt_shoukuan frmShoukuanLogin.Show 1 Case bt_tuichu Unload Me End SelectEnd Sub另外，為了維護(hù)系統(tǒng)的安全，當(dāng)用戶以guest身份登錄時(shí)，部分功能是不可用的。在窗體的加載事件中輸入如下代碼：Private Sub Form_Load() If username = guest Then buildingsalebargain.Enabled = False 銷售合同管理不可用 databaserecovery.Enabled = False 數(shù)據(jù)庫(kù)恢復(fù)不可用 End IfEnd Sub4.3實(shí)現(xiàn)房產(chǎn)管理功能打開(kāi)“房產(chǎn)管理”菜單，下有“戶型登記”、“樓盤登記”、“戶型查詢”和“樓盤查詢”4個(gè)子菜單。4.3.1建立戶型登記窗體（frmHuxingLogin）主要用來(lái)對(duì)戶型資料進(jìn)行登記，包括添加、修改、刪除等各種操作。1、界面設(shè)計(jì)在工程中添加一個(gè)窗體，設(shè)置窗體的屬性，如表11所示。 表11 frmHuxingLogin窗體屬性屬性屬性值說(shuō)明名稱FrmHuxingLogin設(shè)置窗體名稱Caption“戶型登記”設(shè)置窗體標(biāo)題StartUpPosition2-CenterScreen設(shè)置窗體默認(rèn)位置WindowState2-Maximized設(shè)置窗體默認(rèn)狀態(tài)該窗體主要分為兩個(gè)部分。上半部分用一表格控件顯示當(dāng)前所有的戶型資料，這里用到MSHFlexgrid控件。此控件不是標(biāo)準(zhǔn)控件，需要用戶自行添加。按照前述方法打開(kāi)工程的“部件”對(duì)話框，勾選“Microsoft Hierachical Flexgrid Control6.0”項(xiàng)即可將其加入到工具箱中。該窗體下半部分用來(lái)顯示當(dāng)前選定的戶型資料，或者用來(lái)接收輸入的新戶型資料。首先添加一個(gè)Frame控件，然后在該控件上添加9個(gè)Label控件、5個(gè)Text控件、4個(gè)CommandButton控件、1個(gè)ComboBox控件和1個(gè)Image控件。添加完控件的窗體效果如圖5所示。圖5 “戶型登記”窗體效果圖2、工作流程窗體加載時(shí)使用ADO進(jìn)行數(shù)據(jù)庫(kù)的連接，同時(shí)在表格中顯示出數(shù)據(jù)。單擊“增加”按鈕時(shí)，所有的文本框?yàn)榭捎脿顟B(tài)，并且設(shè)置為空，“增加”按鈕變?yōu)椤氨４妗卑粹o。在輸入完信息后，單擊“保存”按鈕，判斷戶型編號(hào)是否重復(fù)，對(duì)于不重復(fù)的戶型保存入庫(kù)。單擊“刪除”按鈕時(shí)，詢問(wèn)是否確定刪除該記錄，得到確認(rèn)后根據(jù)戶型編號(hào)進(jìn)行刪除。單擊“修改”按鈕時(shí)，所有的文本框進(jìn)入可編輯狀態(tài)，“修改”按鈕變?yōu)椤氨４妗卑粹o。修改后，單擊“保存”按鈕，進(jìn)行數(shù)據(jù)的更新。3、添加代碼（1）在主窗體的菜單中添加代碼，以便用戶單擊菜單時(shí)，彈出這個(gè)窗體。單擊“戶型登記”菜單，添加如下代碼：Private sub housestylogin_click( ) frmhuxinglogin.showEnd sub（2）加載窗體時(shí)，需要在打開(kāi)戶型資料表之后，調(diào)用dispalygrid過(guò)程顯示記錄信息，然后將常用戶型名稱添加到Combo1組合框的子項(xiàng)中。在窗體加載事件中輸入如下代碼：Option ExplicitDim rs_huxing As New ADODB.RecordsetDim gridclick As BooleanDim getrow As LongPrivate Sub Form_Load() Dim sql As String On Error GoTo loaderror sql = select * from 戶型資料表 檢索戶型資料表 rs_huxing.CursorLocation = adUseClient rs_huxing.Open sql, conn, adOpenKeyset, adLockPessimistic displaygrid 調(diào)用displaygrid過(guò)程，顯示信息 Combo1.AddItem 二室二廳 將戶型資料加入Combo1控件子項(xiàng)中 Combo1.AddItem 一室二廳 Combo1.AddItem 一室二廳 Combo1.AddItem 復(fù) 式 Combo1.AddItem 三室二廳 gridclick = False 標(biāo)識(shí)未選擇記錄 cmdModify.Enabled = False 此時(shí)修改和刪除不可用 cmdDel.Enabled = False Exit Subloaderror: MsgBox Err.DescriptionEnd Sub（3）窗體加載時(shí)需要顯示所有記錄信息。考慮到代碼的可重用性，定義displaygrid過(guò)程。單擊“工具”菜單，選擇“添加過(guò)程”子菜單，添加displaygrid過(guò)程。顯示表格信息前應(yīng)該對(duì)表格格式進(jìn)行設(shè)置，如設(shè)置表格的行數(shù)和列數(shù)等，添加一個(gè)setgrid過(guò)程。Public Sub setgrid() 設(shè)置表格格式 Dim i As Integer On Error GoTo seterror With grdHuxing .ScrollBars = flexScrollBarBoth .FixedCols = 1 .Rows = rs_huxing.RecordCount + 1 .Cols = 6 .SelectionMode = flexSelectionByRow For i = 0 To .Rows - 1 設(shè)置行高 .RowHeight(i) = 315 Next For i = 0 To .Cols - 1 設(shè)置列寬 .ColWidth(i) = 1300 Next i End With Exit Subseterror: MsgBox Err.DescriptionEnd Sub其中，使用Rows和Cols屬性設(shè)置總行數(shù)和列數(shù)。FixedCols屬性的作用是凍結(jié)某列，也就是說(shuō)，如果表格的列數(shù)過(guò)多從而使表格帶有水平滾動(dòng)條時(shí)，被設(shè)置為凍結(jié)的列不會(huì)隨著滾動(dòng)條的滾動(dòng)而變化。表格表頭的格式是單獨(dú)設(shè)置的，以便區(qū)別于其他行。添加過(guò)程setgridhead用來(lái)設(shè)置表頭。Public Sub setgridhead() 設(shè)置表頭格式 On Error GoTo setheaderror grdHuxing.Row = 0 在第一行中逐列設(shè)置顯示文本，作為表頭 grdHuxing.Col = 0 grdHuxing.Text = 戶型編號(hào) grdHuxing.Col = 1 grdHuxing.Text = 建筑面積 grdHuxing.Col = 2 grdHuxing.Text = 套內(nèi)面積 grdHuxing.Col = 3 grdHuxing.Text = 戶型 grdHuxing.Col = 4 grdHuxing.Text = 圖片文件 grdHuxing.Col = 5 grdHuxing.Text = 戶型簡(jiǎn)介 Exit Subsetheaderror: MsgBox Err.DescriptionEnd Sub在dispalygrid過(guò)程中調(diào)用這兩個(gè)過(guò)程即可設(shè)置好表格的格式，然后逐行逐列地顯示數(shù)據(jù)。Public Sub displaygrid() 顯示表格信息 Dim i As Integer On Error GoTo displayerror setgrid 調(diào)用setgrid過(guò)程設(shè)置表格格式 setgridhead 調(diào)用setgridhead過(guò)程設(shè)置表頭格式 grdHuxing.Row = 0 If Not rs_huxing.EOF Then rs_huxing.MoveFirst Do While Not rs_huxing.EOF grdHuxing.Row = grdHuxing.Row + 1 從第二行開(kāi)始逐列取得字段值并顯示出來(lái) grdHuxing.Col = 0 If Not IsNull(rs_huxing.Fields(0) Then grdHuxing.Text = rs_huxing.Fields(0) _ Else grdHuxing.Text = grdHuxing.Col = 1 If Not IsNull(rs_huxing.Fields(1) Then grdHuxing.Text = rs_huxing.Fields(1) _ Else grdHuxing.Text = grdHuxing.Col = 2 If Not IsNull(rs_huxing.Fields(2) Then grdHuxing.Text = r