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

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