1、<p><b>　　售樓管理系統(tǒng)</b></p><p>　　【摘要】 房地產業(yè)的不斷發(fā)展，利用電腦的先進管理手段，把售樓人員從一大堆合同中解放出來，將樓盤的銷售推向“無紙化”已經成了解決當前房地產售樓管理的當務之急。售樓管理系統(tǒng)就是為了實現(xiàn)這一目標而設計的，管理人員通過該系統(tǒng)可以及時了解樓盤的動態(tài)銷售情況，還能充分利用電腦的可檢索性、方便、快速地了解有關銷售樓盤的其他各種詳細資料

2、，以便及時做出正確決策。</p><p>　　本系統(tǒng)主要實現(xiàn)以下功能：房產管理，管理所有的房產信息、對房產數(shù)據(jù)進行添加、修改、刪除等操作。此外，方便的查詢功能可以使客戶迅速地找到自己所需的房產信息；客戶管理，擁有完善的客戶管理功能，才能更加迅速地了解客戶的需求動態(tài)。客戶管理功能要實現(xiàn)對客戶各種數(shù)據(jù)的管理，包括客戶和購買動向等。收費管理，對于各種復雜的物業(yè)收費，完善的收費管理功能將使得收費管理更加便捷準確。售樓管理

3、，系統(tǒng)的核心，實現(xiàn)對樓盤銷售的數(shù)據(jù)、合同簽訂情況、客戶付費等情況的管理。</p><p>　　本系統(tǒng)以中文版Visual Basic 6.0為前臺開發(fā)工具，用中文版Access 2000作為后臺數(shù)據(jù)庫。Visual Basic 6.0，它是由美國微軟公司推出的小型數(shù)據(jù)庫開發(fā)語言，由于其使用方便，硬件要求不高，易學等特點，它還提供強有力的應用程序開發(fā)工具，為將來的維護提供必要的基礎。系統(tǒng)的操作對人員的素質的要求不高

4、，只需對他們稍加培訓便能勝任。</p><p><b>　　[關鍵字]</b></p><p>　　房地產|樓盤銷售| Visual Basic 6.0|數(shù)據(jù)庫</p><p><b>　　目 錄</b></p><p>　　摘要……………………………………………….…………………………………2&l

5、t;/p><p>　　引言………………………………………….……………………………….….4</p><p>　　1項目背景………………………………………………………………………4</p><p>　　2項目目標………………………………………………………………………4</p><p>　　第一章設計基礎………………………………………….……………

6、………..5</p><p>　　1.1管理信息系統(tǒng)的認識……………………………………………………….5</p><p>　　1.2管理信息系統(tǒng)的特點……………………………………………………….5</p><p>　　1.3管理信息系統(tǒng)的開發(fā)……………………………………………………….6</p><p>　　第二章系統(tǒng)功能分析與設計………….

7、………………………………………..6</p><p>　　2.1系統(tǒng)需求分析…….…………………………………………………………8</p><p>　　2.2系統(tǒng)功能分析……………………………………………….………………8</p><p>　　第三章數(shù)據(jù)庫設計……………………………………………………………..12</p><p>　　第四章創(chuàng)建

8、售樓管理系統(tǒng)工程………………………………………………..17</p><p>　　4.1創(chuàng)建登錄窗體………………………………………………………………18</p><p>　　4.2建立主窗體…………………………………………………………………22</p><p>　　4.3實現(xiàn)房產管理功能..………………………………………………………..24</p>&

9、lt;p>　　4.4實現(xiàn)客戶管理功能…………………………………………………………49</p><p>　　4.5實現(xiàn)收費管理功能…………………………………………………………59</p><p>　　4.6實現(xiàn)系統(tǒng)維護功能…………………………………………………………67</p><p>　　第五章小結………………………………………………………………….….69&

10、lt;/p><p>　　致謝……………………………………………………………………………..69</p><p>　　參考文獻………………………………………………………..………………70</p><p><b>　　售樓管理系統(tǒng)</b></p><p><b>　　引 言</b></p>

11、<p>　　[背景]企業(yè)的競爭逐漸整合為管理的競爭，隨著房地產業(yè)的不斷發(fā)展，利用電腦的先進管理手段，把售樓人員從一大堆合同中解放出來，將樓盤的銷售推向“無紙化”已經成了解決當前房地產售樓管理的當務之急。使用計算機對樓盤進行管理，具有檢索迅速、查找方便、可靠性高、存儲量大、保密性好、成本低等特點，能夠極大地提高樓盤資源管理的效率，也是企業(yè)科學化、正規(guī)化管理的重要條件。</p><p>　　[目標]大豐市

12、教育房產售樓管理系統(tǒng)，要為企業(yè)提供全面的樓盤管理解決方案，提供一個以人為中心，管理人員與樓盤之間互動的資源管理平臺。具體目標如下：</p><p>　　提高企業(yè)管理的效率，節(jié)約相關的管理成本，將樓盤的銷售推向“無紙化”，增強樓盤管理的安全性。</p><p>　　為企業(yè)建立規(guī)范化、人性化、實時互動化管理機制。</p><p>　　滿足企業(yè)戰(zhàn)略層、管理層、業(yè)務操作層和

13、企業(yè)全體員工的不同層次和不同方面的需要。</p><p>　　為企業(yè)將來的整體信息化提供必要的支持。</p><p>　　第一章 設計基礎</p><p>　　1.1管理信息系統(tǒng)的認識</p><p>　　管理信息系統(tǒng)就是我們常說的MIS（Management Information System），在強調管理，強調信息的現(xiàn)代社會中它變得

14、越來越普及。MIS是一門新的學科，它跨越了若干個領域，比如管理科學、系統(tǒng)科學，運籌學、統(tǒng)計學以及計算機科學。在這些學科的基礎上，形成信息收集和加工的方法，從而形成一個縱橫交織的系統(tǒng)。</p><p>　　1.2 管理信息系統(tǒng)的特點</p><p>　　1.2.1 管理信息系統(tǒng)的組成</p><p>　　管理信息系統(tǒng)在企業(yè)中的應用存在三個要素，這就是人、計算機和數(shù)據(jù)。

15、</p><p>　　人是指企業(yè)領導者、管理人員、技術人員，以及MIS建設的領導機構和實施機構，他們在系統(tǒng)中起主導作用。MIS是一項系統(tǒng)工程，不是只靠一些計算機開發(fā)人員就可以完成的，必須有企業(yè)管理人員，尤其是企業(yè)領導的積極參與。</p><p>　　計算機技術是MIS得以實施的主要技術。在這些技術中，軟件開發(fā)是MIS開發(fā)的重點。</p><p>　　第三個因素也不能

16、忽視。企業(yè)的管理數(shù)據(jù)是MIS正常運行的基礎。廣義地說，各項管理制度是MIS建設成功的基礎。試想要計算一臺機床的成本，需要按時輸入每個部件、每個零件以及每個螺釘螺帽的費用，涉及企業(yè)的生產車間、采購、庫房、工藝設計和財務等多個部門，必須有一整套管理制度做保證。</p><p>　　1.2.2 管理信息系統(tǒng)的界面特點</p><p>　　在計算機軟件技術中，人機界面已經發(fā)展成為一個重要的分支。&

17、lt;/p><p>　　MIS人機界面設計一般遵循以下一些基本原則：</p><p>　　1．以通信功能作為界面設計的核心</p><p>　　人機界面設計的關鍵是使人與計算機之間能夠準確地交流信息。一方面，人向計算機輸入信息時應當盡量采取自然的方式；另一方面，計算機向人傳遞的信息必須準確，不致引起誤解或混亂。另外，不要把內部的處理、加工與人機界面混在一起（人機界面程序

18、只是通信），以免互相干擾，影響速度。</p><p>　　設計MIS時，針對每一個功能，都要按照“I-P-O”的模塊化思想，使輸入、處理與輸出“涇渭分明”，充分體現(xiàn)人機界面的通信功能。這樣設計出來的程序不易出錯，而且易于維護。</p><p>　　報表打印是MIS必備的功能之一，而且打印之前常常需要計算。計算與打印分開設計，雖然消耗時間，但易于整個MIS系統(tǒng)的維護。</p>

19、<p>　　2．界面必須始終一致</p><p>　　統(tǒng)一的人機界面不致于會增加用戶的負擔，讓用戶始終用同一種方式思考與操作。最忌諱的是每換一個屏幕用戶就要換一套操作命令與操作方法。</p><p>　　例如在整個系統(tǒng)可以以問號圖標表示幫助，以磁盤圖標表示存盤，以打印機圖標表示打印等。</p><p>　　3．界面必須使用戶隨時掌握任務的進展情況</

20、p><p>　　人機界面應該能夠告訴用戶軟件運行的進度。特別是在需要較長時間的等待時，必須讓用戶了解工作進展情況，如可以設計已經完成了百分之幾的任務進度條等。目前，Windows下的應用軟件無論大小，其安裝程序幾乎均做到了這一點。開發(fā)MIS軟件時，這一點很值得借鑒。</p><p>　　4．界面必須能夠提供幫助</p><p>　　一個優(yōu)秀的MIS軟件應該提供在線求助功

21、能，甚至提供使用向導，這將給用戶帶來極大的方便。在多媒體環(huán)境下，以語音提示作為操作向導，不會干擾屏幕信息，是一個極佳的選擇。</p><p>　　5．界面友好、使用方便</p><p>　　多數(shù)MIS軟件的數(shù)據(jù)輸入量較大。對于一些相對固定的數(shù)據(jù)，不應讓用戶頻頻輸入（特別是漢字），而應讓用戶用鼠標輕松選擇。例如，人事管理系統(tǒng)中的“文化程度”是相對固定的數(shù)據(jù)，其值一般取“小學”、“初中”、“高

22、中”、“大專”、“大本”、“碩研”、“博研”等。錄入這類數(shù)據(jù)之前，MIS軟件應在相應位置彈出一個列表框，待用戶以鼠標點擊，而不應讓用戶每次都輸入這些漢字。</p><p>　　另外，開發(fā)者應編寫一個錯誤實時記錄程序，自動記錄何日、何時、何程序出了何種錯誤。</p><p>　　總之，所開發(fā)的MIS在使用過程中，應使用戶的數(shù)據(jù)輸入量降至最低限度，同時也要減少用戶的干預量。實踐證明，用戶干預愈

23、少，MIS系統(tǒng)的滿意程度愈高。</p><p>　　6．輸入畫面盡可能接近實際</p><p>　　如果某個電算會計軟件的憑證錄入畫面是表格式的，一屏可錄入多條記錄，而且與實際憑證一模一樣，甚至連顏色都無異，用戶在終端上錄入憑證，仿佛用筆在紙上填寫憑證，以增加人機親和力。</p><p>　　7．具有較強的容錯功能</p><p>　　誤操作

24、、按鍵連擊等均有可能導致數(shù)據(jù)誤錄。巧妙地進行程序設計，可以避免此類因素造成的錯誤。例如，錄入學生成績時，我們可以對其范圍進行限定，使用戶無法輸入0～100以外的數(shù)據(jù)；錄入學生年齡時，不妨根據(jù)實際情況將范圍限制在15～20之間。</p><p>　　1.3 管理信息系統(tǒng)的開發(fā)</p><p>　　1.3.1 管理信息系統(tǒng)的開發(fā)方式</p><p>　　管理信息系統(tǒng)的開

25、發(fā)方式主要有獨立開發(fā)方式、委托開發(fā)方式、合作開發(fā)方式、購買現(xiàn)成軟件方式等4種。這4種開發(fā)方式各有優(yōu)點和不足，需要根據(jù)使用單位的技術力量、資金情況、外部環(huán)境等各種因素進行綜合考慮和選擇。不論哪種開放方式都需要有單位的領導和業(yè)務人員參加，并在管理信息系統(tǒng)的整個開發(fā)過程中培養(yǎng)、鍛煉、壯大該系統(tǒng)的維護隊伍。</p><p>　　1.3.2 系統(tǒng)開發(fā)的一般方法</p><p>　　管理信息系統(tǒng)的開發(fā)

26、是一個復雜的系統(tǒng)工程，它涉及到計算機處理技術、系統(tǒng)理論、組織結構、管理功能、管理知識等各方面的問題，至今沒有一種統(tǒng)一完備的開發(fā)方法。但是，每一種開發(fā)方法都要遵循相應的開發(fā)策略。任何一種開發(fā)策略都要明確以下問題：</p><p>　　系統(tǒng)要解決的問題：如采取何種方式解決組織管理和信息處理方面的問題，對企業(yè)提出的新的管理需求該如何滿足等。</p><p>　　系統(tǒng)可行性研究：確定系統(tǒng)所要實現(xiàn)的

27、目標。通過對企業(yè)狀況的初步調研得出現(xiàn)狀分析的結果，然后提出可行性方案并進行論證。系統(tǒng)可行性的研究包括目標和方案可行性、技術的可行性、經濟方面的可行性和社會影響方面的考慮。 </p><p>　　系統(tǒng)開發(fā)的原則：在系統(tǒng)開發(fā)過程中，要遵循領導參與、優(yōu)化創(chuàng)新、實用高效、處理規(guī)范化的原則。</p><p>　　系統(tǒng)開發(fā)前的準備工作：作好開發(fā)人員的組織準備和企業(yè)基礎準備工作。</p>

28、<p>　　系統(tǒng)開發(fā)方法的選擇和開發(fā)計劃的制定：針對己經確定的開發(fā)策略選定相應的開發(fā)方法，是結構化系統(tǒng)分析和設計方法，還是選擇原型法或面向對象的方法。開發(fā)計劃的制定是要明確系統(tǒng)開發(fā)的工作計劃、投資計劃、工程進度計劃和資源利用計劃。</p><p>　　管理信息系統(tǒng)開發(fā)方法主要有：結構化生命周期開發(fā)方法、原型法、面向對象的開發(fā)方</p><p>　　1.3.3 管理信息系統(tǒng)的開發(fā)過

29、程</p><p>　　管理信息系統(tǒng)的開發(fā)過程一般包括系統(tǒng)開發(fā)準備、系統(tǒng)調查、系統(tǒng)分析、系統(tǒng)設計、系統(tǒng)實現(xiàn)、系統(tǒng)轉換、系統(tǒng)運行與維護、系統(tǒng)評價等步驟。根據(jù)開發(fā)系統(tǒng)的大小、復雜、投入、方式、方法等因素的不同，各步驟的要求和內容也不同，用戶需要根據(jù)實際情況進行取舍和計劃。</p><p>　　第二章 系統(tǒng)功能分析與設計</p><p><b>　　2.1系

30、統(tǒng)需求分析</b></p><p>　　售樓管理職能主要分為房產管理，客戶管理，收費管理，售樓管理。其中售樓管理是系統(tǒng)的核心，在系統(tǒng)開發(fā)時應考慮對以下職能的需求：</p><p>　　房產管理，能夠管理所有的房產信息、對房產數(shù)據(jù)進行添加、 修改、刪除等操作。此外，方便的查詢功能可以使客戶迅速地找到自己所需的房產信息。</p><p>　　客戶管理，

31、擁有完善的客戶管理功能，才能更加迅速地了解客戶的需求動態(tài)。客戶管理功能要能夠實現(xiàn)對客戶各種數(shù)據(jù)的管理，包括客戶和購買動向等。</p><p>　　收費管理，對于各種復雜的物業(yè)收費，完善的收費管理功能將使得收費管理更加便捷準確。</p><p>　　售樓管理，系統(tǒng)的核心，要能夠實現(xiàn)對樓盤銷售的數(shù)據(jù)、合同簽訂情況、客戶付費等情況的管理。</p><p><b>

32、;　　2.2系統(tǒng)功能分析</b></p><p>　　通過對用戶需求的具體調研和分析，確定本系統(tǒng)應具備的功能包括房產管理、客戶管理、收費管理、售樓管理、系統(tǒng)維護和退出系統(tǒng)。</p><p>　　具體主要實現(xiàn)如下功能：</p><p>　　房產管理部分 房產管理部分包括戶型登記、樓盤登記、戶型查詢和樓盤查詢，其功能是實現(xiàn)對樓盤各部分數(shù)據(jù)內容的添加、修改、刪

33、除和查詢等操作。</p><p>　　戶型登記管理：包括戶型信息的添加、修改和刪除3部分功能。其中，戶型信息包括戶型編號、建筑面積、套內面積、房型、戶型簡介以及圖片文件。</p><p>　　樓盤登記管理：包括樓盤信息的添加、修改和刪除3部分功能。其中，樓盤信息包括樓盤編號、戶型編號以及單價等。其中樓盤編號的信息包括了樓號、單元、樓層和房號幾部分。</p><p>

34、　　戶型查詢：戶型查詢部分包括戶型編號、建筑面積、戶型結構等查詢方式。</p><p>　　樓盤查詢：樓盤查詢部分包括樓盤編號、樓號、樓層、單位報價和戶型等查詢方式。</p><p>　　客戶管理部分 客戶管理部分包括客戶資料登記管理和客戶資料查詢管理，其功能是實現(xiàn)對各客戶部分數(shù)據(jù)內容的添加、修改、刪除、查詢等操作。</p><p>　?。?）客戶資料登記管理：包

35、括客戶資料的添加、修改、刪除3部分功能。其中，客戶資料包括姓名、身份證號、出生日期、性別、電子郵件、通信住址、電話號碼、手機、郵編、車牌號等。</p><p>　?。?）客戶資料查詢管理：客戶資料查詢部分包括按照身份證號查詢、按照車牌號查詢、按照客戶姓名查詢和按照手機號查詢等。</p><p>　　收費管理部分 收費管理部分包括收費登記和收費查詢管理，其功能是實現(xiàn)對各部分數(shù)據(jù)內容的添加、刪

36、除、查詢等操作。</p><p>　?。?）收費登記管理：包括收費資料的添加、刪除、打印3部分功能。其中，收費信息包括收費編號、樓盤編號、交費時間、有線電視費、電話調試費、煤氣初裝費、公用設施費、其他費用、押金、收款人、交款人等。</p><p>　?。?）收費查詢管理：收費資料查詢部分包括按照收費單號查詢、按照樓盤號查詢號、按照交款人查詢和按照交費時間范圍等。</p>&l

37、t;p>　　售樓管理部分 售樓管理部分包括售樓人員登記、售樓合同管理、收款管理、售樓人員查詢、售樓合同查詢、收費情況查詢等，其功能是實現(xiàn)對各部分數(shù)據(jù)內容的添加、修改、刪除、查詢等操作。 </p><p>　?。?）售樓人員登記管理：包括售樓人員資料的添加、修改、刪除3部分功能。其中，售樓人員資料包括姓名、身份證號、出生日期、性別、電子郵件、通信住址、電話號碼、手機、郵編、人員編號等。</p>

38、<p>　　（2）售樓合同管理：包括售樓合同資料的添加、修改、刪除3部分功能。其中，售樓合同資料包括合同編號、合同狀態(tài)、認購日期、合同簽訂日期、購買樓盤編號、購買人身份證號、銷售人員編號、合同單價、折扣率、現(xiàn)金折扣、車位編號、車位價款、地下室編號、地下室價款、付款方式、貸款銀行以及計劃的分期付款等。</p><p>　?。?）收款管理：包括收款資料的添加、打印、刪除3部分功能。其中收款資料包括樓盤編號

39、、交款日期、收款單號、收款金額、付款方式、交款人等。</p><p>　?。?）售樓人員查詢：售樓人員查詢部分包括按照售樓人員編號查詢和按照售樓人員姓名查詢。</p><p>　?。?）售樓合同查詢：售樓合同查詢部分包括按照合同編號查詢、按照樓盤編號查詢、按照客戶身份證號查詢和按照簽訂時間表范圍查詢等。</p><p>　?。?）收款情況查詢：收款情況查詢部分包括按

40、照收費單號查詢、按照樓盤編號查詢、按照交款人查詢和按照交費時間范圍查詢等。</p><p>　　系統(tǒng)維護部分 系統(tǒng)維護部分包括數(shù)據(jù)備份和數(shù)據(jù)恢復，實現(xiàn)將現(xiàn)有數(shù)據(jù)庫進行備份和恢復功能。</p><p>　　退出系統(tǒng)部分 退出系統(tǒng)部分就是當用戶發(fā)出關閉窗口的行為后，詢問用戶是否確定要退出本系統(tǒng)，如果確定，則關閉本系統(tǒng)。</p><p>　　2.3系統(tǒng)功能模塊設計&l

41、t;/p><p>　　通過對用戶需求的具體調研和分析，確定本系統(tǒng)應具備的功能包括房產管理、客戶管理、收款管理、售樓管理、系統(tǒng)維護和退出系統(tǒng)。系統(tǒng)具體的模塊組織結構如圖1所示。</p><p>　　圖1 系統(tǒng)功能模塊圖</p><p>　　第三章 數(shù)據(jù)庫設計</p><p>　　數(shù)據(jù)庫在一個管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結構設計的好壞將直接

42、對應用系統(tǒng)的效率以及實現(xiàn)的效果產生影響。合理的數(shù)據(jù)庫結構設計可以提高數(shù)據(jù)存儲的效率，保證數(shù)據(jù)的完整和一致。設計數(shù)據(jù)庫系統(tǒng)時應該首先充分了解用戶各個方面的需求，包括現(xiàn)有的以及將來可能增加的需求。</p><p>　　對于數(shù)據(jù)庫應用程序來說，數(shù)據(jù)庫的設計與創(chuàng)建是進行程序設計的基石，對于Visual Foxpro來說，其數(shù)據(jù)庫的創(chuàng)建一般要包括數(shù)據(jù)庫的設計和數(shù)據(jù)庫的創(chuàng)建兩個步驟。</p><p>

43、<b>　　3.1設計數(shù)據(jù)庫</b></p><p>　　根據(jù)功能分析，系統(tǒng)數(shù)據(jù)庫應滿足戶型資料、樓盤資料、客戶資料、合同資料、收費資料、收款登記、售樓人員、收款登記和系統(tǒng)管理9個功能的需求。所以，需要利用Access建立一個House數(shù)據(jù)庫，主要包括如下8個表。</p><p>　　“戶型資料”表：用于存放戶型資料；</p><p>　　“樓

44、盤資料”表：用于存放樓盤資料；</p><p>　　“合同資料”表：用于存放合同資料；</p><p>　　“客戶資料”表：用于存放客戶資料；</p><p>　　“收費信息”表：用于存放收費信息；</p><p>　　“收款登記”表：用于存放收款登記信息；</p><p>　　“售樓人員”表：用于存放售樓人員信息；&

45、lt;/p><p>　　“預計付款”表：用于存放預計付款信息。</p><p><b>　　1、“戶型資料”表</b></p><p>　　表1 戶型資料表</p><p><b>　　2、“樓盤資料”表</b></p><p>　　表2

46、 樓盤資料表</p><p><b>　　3、“合同資料”表</b></p><p>　　表3 合同資料表</p><p><b>　　4、“客戶資料”表</b></p><p>　　表4 客戶資料表</p><

47、;p><b>　　5、“收費信息”表</b></p><p>　　表5 收費信息表</p><p><b>　　6、“收款信息”表</b></p><p>　　表6 收款登記表</p><p><b>　　7、“售樓人員”表&

48、lt;/b></p><p>　　表7 售樓人員表</p><p><b>　　8、“預計付款”表</b></p><p>　　表8 預計付款表</p><p>　　第四章 創(chuàng)建售樓管理系統(tǒng)工程</p><p>　　經過上述的分析和設計

49、，就可以開始系統(tǒng)的創(chuàng)建了。</p><p>　　在Visual Basic中，開發(fā)系統(tǒng)的第一步就是需要創(chuàng)建一個管理系統(tǒng)資源的工程，系統(tǒng)中所有的窗口、菜單、工具欄等資源都是在此工程中添加和設計完成的。</p><p>　　在Visual Basic的菜單欄中依次單擊“文件” “新建工程”菜單項，在彈出的“新建工程”對話框中選擇“標準EXE圖標”，然后單擊“確定”按鈕，即可創(chuàng)建一個新的工程，

50、默認名稱為“工程1”。</p><p>　　在菜單欄中依次單擊“工程” “工程1屬性”菜單項，出現(xiàn)如圖2所示的“工程1 工程屬性”對話框。</p><p>　　圖2 “工程1—工程屬性”對話框</p><p>　　在“工程名稱”文本框中輸入“售樓管理系統(tǒng)”，然后單擊“確定”按鈕。這樣，就新創(chuàng)建了一個名稱為“售樓管理系統(tǒng)”的工程。</p>&

51、lt;p>　　4.1創(chuàng)建登錄窗體（frmLogin）</p><p>　　在正式進入系統(tǒng)之前，需要對用戶的身份進行確認，這是通過用戶登錄來實現(xiàn)的。所以系統(tǒng)中的第一個窗體也就應該是登錄窗體。</p><p><b>　　4.1.1界面設計</b></p><p>　　在Visual Basic中創(chuàng)建工程的時候，系統(tǒng)會自動建立一個新的窗體Fo

52、rm1。將這個窗體的名稱更改為frmLogin，就用它作為系統(tǒng)登錄窗體。</p><p>　　在窗體上放置兩個Label控件、1個ComboBox控件、1個TextBox控件和2個CommandButton控件。設置frmLogin窗體及其中控件屬性，如表9所示。</p><p>　　表9 frmLogin窗體及其中控件屬性列表</p><p>

53、;　　調整控件的大小和位置，設計狀態(tài)效果如圖3所示。</p><p>　　圖3 frmLogin窗體設計效果</p><p>　　4.1.2 添加代碼</p><p><b>　　定義模塊代碼</b></p><p>　　Option Explicit</p><p>　　Public conn

54、As New ADODB.Connection</p><p>　　Public Const keyenter=13</p><p>　　Public username as string</p><p>　　frmLogin窗體加載事件代碼</p><p>　　Private Sub Form_Load()</p><p

55、><b>　　'定義連接字符串</b></p><p>　　connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _</p><p>　　"data source= " & App.Path & "\House.mdb&q

56、uot;</p><p>　　conn.Open connectionstring '打開數(shù)據(jù)庫</p><p>　　sql = "select * from 系統(tǒng)管理表 " '檢索系統(tǒng)管理表</p><p>　　rs_login.Open sql, conn, adOpenKeyset, adLockPe

57、ssimistic '打開記錄集</p><p>　　If rs_login.EOF = False Then '有記錄時逐一添加到cmbName組合框</p><p>　　Do While rs_login.EOF = False</p><p>　　cmbName.AddItem (rs_login.Fields(0))</

58、p><p>　　rs_login.MoveNext</p><p><b>　　Loop</b></p><p>　　cmbName.ListIndex = 0 '默認顯示第一個子項</p><p><b>　　End If</b></p><p>　

59、　rs_login.Close</p><p>　　cnt = 0 '初始化輸入次數(shù)</p><p><b>　　End Sub</b></p><p><b>　　“確定”按鈕代碼</b></p><p>　　Private Sub cmd

60、ok_Click()</p><p>　　If Trim(cmbName.Text) = "" Then '判斷輸入的用戶名是否為空</p><p>　　MsgBox "沒有這個用戶", vbOKOnly + vbExclamation</p><p>　　cmbName.SetFocus<

61、/p><p>　　Else '判斷用戶名和密碼是否正確</p><p>　　sql = "select * from 系統(tǒng)管理表 where czyh='" & cmbName.Text & "'"</p><p>　　r

62、s_login.Open sql, conn, adOpenKeyset, adLockPessimistic</p><p>　　If rs_login.EOF = True Then</p><p>　　MsgBox "沒有這個用戶", vbOKOnly + vbExclamation, ""</p><p>　　cmbN

63、ame.SetFocus</p><p>　　Else '檢驗密碼是否正確</p><p>　　If Trim(rs_login.Fields(1)) = Trim(txtPwd.Text) Then</p><p>　　userID = cmbName.Text</p><

64、;p>　　username = rs_login.Fields(2) '記錄登錄用戶的類型，以便權限設置</p><p><b>　　Unload Me</b></p><p>　　frmMain.Show</p><p>　　rs_login.Close</p><p><b>　　Exit

65、 Sub</b></p><p><b>　　Else</b></p><p>　　MsgBox "密碼不正確", vbOKOnly + vbExclamation, ""</p><p>　　txtPwd.SetFocus</p><p><b>　　End

66、 If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　cnt = cnt + 1 '輸入次數(shù)加1</p><p>　　If cnt = 3 Then</p>

67、<p>　　MsgBox "您輸入密碼錯誤次數(shù)太多！", vbExclamation, ""</p><p><b>　　Unload Me</b></p><p><b>　　End If</b></p><p>　　rs_login.Close</p>

68、<p><b>　　End Sub</b></p><p><b>　　“取消”按鈕代碼</b></p><p>　　Private Sub cmdcancel_Click()</p><p>　　conn.Close '關閉數(shù)據(jù)庫連接</p><p>　　Set co

69、nn = Nothing</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　4.2建立主窗體（frmMain）</p><p>　　4.2.1創(chuàng)建主窗體</p><p>　　在Visual Basi

70、c6.0的工程資源管理器中單擊鼠標右鍵，彈出的快捷菜單中依次選擇“添加” “添加窗體”菜單項，彈出“添加窗體”對話框，單擊“打開”按鈕，即可在售樓管理系統(tǒng)工程中添加一個窗體Form1，此窗體的各個屬性設置如表10所示。</p><p>　　表10 系統(tǒng)主窗體屬性</p><p>　　主窗體的設置效果如圖4所示。</p><p>　　圖4

71、 主窗體設計效果圖</p><p><b>　　4.2.2添加代碼</b></p><p>　　主窗體中的代碼不多，基本上都是實現(xiàn)單擊某個菜單選項即彈出相應窗體的語句，這些語句將分別在各個窗體中介紹。單擊“系統(tǒng)管理” “退出系統(tǒng)”菜單，關閉系統(tǒng)的代碼如下：</p><p>　　private Sub exitsys_click( )&l

72、t;/p><p>　　conn.Close ‘關閉數(shù)據(jù)庫連接</p><p>　　set conn=Nothing</p><p><b>　　End</b></p><p><b>　　End sub</b></p><p>　　由于主窗體中用到了工具欄。因此需要對工具欄內

73、的按鈕響應進行設置。</p><p>　　雙擊Toolbar控件，在該控件的ButtonClick事件中設定各個按鈕響應后的操作。這里使用“Select……Case”語句來分辨當前單擊的是哪個按鈕。</p><p>　　Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)</p><p&

74、gt;　　Select Case Button.Key '按關鍵字選擇</p><p>　　Case "bt_loupan" '如果單擊按鈕關鍵字為bt_loupan則顯示樓盤查詢窗體</p><p>　　frmBuildingFind.Show 1</p><p>　　Case "b

75、t_kehu"</p><p>　　frmKehuFind.Show 1</p><p>　　Case "bt_shoufei"</p><p>　　frmShoufeiFind.Show 1</p><p>　　Case "bt_shoulou"</p><p>　　

76、frmHetongLogin.Show 1</p><p>　　Case "bt_shoukuan"</p><p>　　frmShoukuanLogin.Show 1</p><p>　　Case "bt_tuichu"</p><p><b>　　Unload Me</b>&l

77、t;/p><p>　　End Select</p><p><b>　　End Sub</b></p><p>　　另外，為了維護系統(tǒng)的安全，當用戶以guest身份登錄時，部分功能是不可用的。在窗體的加載事件中輸入如下代碼：</p><p>　　Private Sub Form_Load()</p><p

78、>　　If username = "guest" Then</p><p>　　buildingsalebargain.Enabled = False '銷售合同管理不可用</p><p>　　databaserecovery.Enabled = False '數(shù)據(jù)庫恢復不可用</p><p><b&g

79、t;　　End If</b></p><p><b>　　End Sub</b></p><p>　　4.3實現(xiàn)房產管理功能</p><p>　　打開“房產管理”菜單，下有“戶型登記”、“樓盤登記”、“戶型查詢”和“樓盤查詢”4個子菜單。</p><p>　　4.3.1建立戶型登記窗體（frmHuxingLo

80、gin）</p><p>　　主要用來對戶型資料進行登記，包括添加、修改、刪除等各種操作。</p><p><b>　　1、界面設計</b></p><p>　　在工程中添加一個窗體，設置窗體的屬性，如表11所示。</p><p>　　表11 frmHuxingLogin窗體屬性</p>

81、<p>　　該窗體主要分為兩個部分。上半部分用一表格控件顯示當前所有的戶型資料，這里用到MSHFlexgrid控件。此控件不是標準控件，需要用戶自行添加。按照前述方法打開工程的“部件”對話框，勾選“Microsoft Hierachical Flexgrid Control6.0”項即可將其加入到工具箱中。</p><p>　　該窗體下半部分用來顯示當前選定的戶型資料，或者用來接收輸入的新戶型資料。首先

82、添加一個Frame控件，然后在該控件上添加9個Label控件、5個Text控件、4個CommandButton控件、1個ComboBox控件和1個Image控件。添加完控件的窗體效果如圖5所示。</p><p>　　圖5 “戶型登記”窗體效果圖</p><p><b>　　2、工作流程</b></p><p>　　窗體加載時使用ADO進行數(shù)據(jù)庫

83、的連接，同時在表格中顯示出數(shù)據(jù)。</p><p>　　單擊“增加”按鈕時，所有的文本框為可用狀態(tài)，并且設置為空，“增加”按鈕變?yōu)椤氨４妗卑粹o。在輸入完信息后，單擊“保存”按鈕，判斷戶型編號是否重復，對于不重復的戶型保存入庫。</p><p>　　單擊“刪除”按鈕時，詢問是否確定刪除該記錄，得到確認后根據(jù)戶型編號進行刪除。</p><p>　　單擊“修改”按鈕時，所有

84、的文本框進入可編輯狀態(tài)，“修改”按鈕變?yōu)椤氨４妗卑粹o。修改后，單擊“保存”按鈕，進行數(shù)據(jù)的更新。</p><p><b>　　3、添加代碼</b></p><p>　?。?）在主窗體的菜單中添加代碼，以便用戶單擊菜單時，彈出這個窗體。單擊“戶型登記”菜單，添加如下代碼：</p><p>　　Private sub housestylogin_c

85、lick( )</p><p>　　frmhuxinglogin.show</p><p><b>　　End sub</b></p><p>　?。?）加載窗體時，需要在打開戶型資料表之后，調用dispalygrid過程顯示記錄信息，然后將常用戶型名稱添加到Combo1組合框的子項中。在窗體加載事件中輸入如下代碼：</p>&l

86、t;p>　　Option Explicit</p><p>　　Dim rs_huxing As New ADODB.Recordset</p><p>　　Dim gridclick As Boolean</p><p>　　Dim getrow As Long</p><p>　　Private Sub Form_Load()<

87、;/p><p>　　Dim sql As String</p><p>　　On Error GoTo loaderror</p><p>　　sql = "select * from 戶型資料表" '檢索戶型資料表</p><p>　　rs_huxing.CursorLocation = adUseCli

88、ent</p><p>　　rs_huxing.Open sql, conn, adOpenKeyset, adLockPessimistic</p><p>　　displaygrid '調用displaygrid過程，顯示信息</p><p>　　Combo1.AddItem "二室二廳" '將戶型資料加入Comb

89、o1控件子項中</p><p>　　Combo1.AddItem "一室二廳"</p><p>　　Combo1.AddItem "一室二廳"</p><p>　　Combo1.AddItem "復 式"</p><p>　　Combo1.AddItem "三室二廳&

90、quot;</p><p>　　gridclick = False '標識未選擇記錄</p><p>　　cmdModify.Enabled = False '此時修改和刪除不可用</p><p>　　cmdDel.Enabled = False</p><p><b>　　E

91、xit Sub</b></p><p>　　loaderror:</p><p>　　MsgBox Err.Description</p><p><b>　　End Sub</b></p><p>　?。?）窗體加載時需要顯示所有記錄信息?？紤]到代碼的可重用性，定義displaygrid過程。單擊“工具”菜

92、單，選擇“添加過程”子菜單，添加displaygrid過程。</p><p>　　顯示表格信息前應該對表格格式進行設置，如設置表格的行數(shù)和列數(shù)等，添加一個setgrid過程。</p><p>　　Public Sub setgrid()</p><p><b>　　' 設置表格格式</b></p><p>　　D

93、im i As Integer</p><p>　　On Error GoTo seterror</p><p>　　With grdHuxing</p><p>　　.ScrollBars = flexScrollBarBoth</p><p>　　.FixedCols = 1</p><p>　　.Rows = r

94、s_huxing.RecordCount + 1</p><p><b>　　.Cols = 6</b></p><p>　　.SelectionMode = flexSelectionByRow</p><p>　　For i = 0 To .Rows - 1 '設置行高</p><p>

95、　　.RowHeight(i) = 315</p><p><b>　　Next</b></p><p>　　For i = 0 To .Cols - 1 '設置列寬</p><p>　　.ColWidth(i) = 1300</p><p><b>　　Next i</b&

96、gt;</p><p><b>　　End With</b></p><p><b>　　Exit Sub</b></p><p><b>　　seterror:</b></p><p>　　MsgBox Err.Description</p><p>

97、<b>　　End Sub</b></p><p>　　其中，使用Rows和Cols屬性設置總行數(shù)和列數(shù)。FixedCols屬性的作用是凍結某列，也就是說，如果表格的列數(shù)過多從而使表格帶有水平滾動條時，被設置為凍結的列不會隨著滾動條的滾動而變化。</p><p>　　表格表頭的格式是單獨設置的，以便區(qū)別于其他行。添加過程setgridhead用來設置表頭。</p

98、><p>　　Public Sub setgridhead()</p><p><b>　　'設置表頭格式</b></p><p>　　On Error GoTo setheaderror</p><p>　　grdHuxing.Row = 0</p><p>　　'在第一行中逐列設置

99、顯示文本，作為表頭</p><p>　　grdHuxing.Col = 0</p><p>　　grdHuxing.Text = "戶型編號"</p><p>　　grdHuxing.Col = 1</p><p>　　grdHuxing.Text = "建筑面積"</p><p&g

100、t;　　grdHuxing.Col = 2</p><p>　　grdHuxing.Text = "套內面積"</p><p>　　grdHuxing.Col = 3</p><p>　　grdHuxing.Text = "戶型"</p><p>　　grdHuxing.Col = 4</p>

101、;<p>　　grdHuxing.Text = " 圖片文件"</p><p>　　grdHuxing.Col = 5</p><p>　　grdHuxing.Text = "戶型簡介"</p><p><b>　　Exit Sub</b></p><p>　　se

102、theaderror:</p><p>　　MsgBox Err.Description</p><p><b>　　End Sub</b></p><p>　　在dispalygrid過程中調用這兩個過程即可設置好表格的格式，然后逐行逐列地顯示數(shù)據(jù)。</p><p>　　Public Sub displaygrid()

103、</p><p><b>　　'顯示表格信息</b></p><p>　　Dim i As Integer</p><p>　　On Error GoTo displayerror</p><p>　　setgrid '調用setgrid過程設置表格格式</p>

104、<p>　　setgridhead '調用setgridhead過程設置表頭格式</p><p>　　grdHuxing.Row = 0</p><p>　　If Not rs_huxing.EOF Then</p><p>　　rs_huxing.MoveFirst</p><p>　　Do While

105、Not rs_huxing.EOF</p><p>　　grdHuxing.Row = grdHuxing.Row + 1</p><p>　　' 從第二行開始逐列取得字段值并顯示出來</p><p>　　grdHuxing.Col = 0 If Not IsNull(rs_huxing.Fields(0)) Then grdHuxing.Text =

106、rs_huxing.Fields(0) _</p><p>　　Else grdHuxing.Text = ""</p><p>　　grdHuxing.Col = 1</p><p>　　If Not IsNull(rs_huxing.Fields(1)) Then grdHuxing.Text = rs_huxing.Fields(1) _&

107、lt;/p><p>　　Else grdHuxing.Text = ""</p><p>　　grdHuxing.Col = 2</p><p>　　If Not IsNull(rs_huxing.Fields(2)) Then grdHuxing.Text = rs_huxing.Fields(2) _</p><p>　　

108、Else grdHuxing.Text = ""</p><p>　　grdHuxing.Col = If Not IsNull(rs_huxing.Fields(3)) Then grdHuxing.Text = rs_huxing.Fields(3) _</p><p>　　Else grdHuxing.Text = ""</p>

109、<p>　　grdHuxing.Col = 4</p><p>　　If Not IsNull(rs_huxing.Fields(5)) Then grdHuxing.Text = rs_huxing.Fields(5) _</p><p>　　Else grdHuxing.Text = ""</p><p>　　grdHuxing

110、.Col = </p><p>　　If Not IsNull(rs_huxing.Fields(4)) Then grdHuxing.Text = rs_huxing.Fields(4) _</p><p>　　Else: grdHuxing.Text = ""</p><p>　　rs_huxing.MoveNext</p>&

111、lt;p><b>　　Loop</b></p><p><b>　　End If</b></p><p>　　displayerror:</p><p>　　If Err.Number <> 0 Then MsgBox Err.Description</p><p><b&g

112、t;　　End Sub</b></p><p>　?。?）當單擊表格控件的某條戶型記錄時，即在下面的明細欄內顯示該條記錄的詳細信息。此時還可以對此記錄進行修改和刪除操作。在grdHuxing_Click事件中添加代碼實現(xiàn)這一功能。</p><p>　　Private Sub grdHuxing_Click()</p><p>　　On Error GoT

113、o griderror</p><p>　　gridclick = True</p><p>　　cmdModify.Enabled = True</p><p>　　cmdDel.Enabled = True</p><p>　　getrow = grdHuxing.Row '記錄當前行</p&g

114、t;<p>　　If grdHuxing.Rows = 1 Then '只有表頭一行</p><p>　　MsgBox "無相關紀錄", vbOKOnly + vbExclamation, ""</p><p><b>　　Else</b></p><p>　

115、　displaymingxi '調用displaymingxi過程將記錄的詳細信息顯示出來</p><p><b>　　End If</b></p><p>　　griderror:</p><p>　　If Err.Number <> 0 Then MsgBox Err.Description&l

116、t;/p><p><b>　　End Sub</b></p><p>　?。?）diaplaymingxi過程依次將數(shù)據(jù)內容添加到各個文本框中。需要特別說明的是，每個記錄中的“圖片文件”字段存儲了對應戶型的示意圖文件名。這些示意圖存放在系統(tǒng)路徑下的ICON文件夾內，如果存在需要使用Image控件顯示該戶型的示意圖。</p><p>　　Public

117、 Sub displaymingxi()</p><p>　　txtHuxingnum.Text = grdHuxing.TextMatrix(getrow, 0) '取的當前行的第一列</p><p>　　txtJianzhumianji.Text = grdHuxing.TextMatrix(getrow, 1)</p><p>　　txtTao

118、mianji.Text = grdHuxing.TextMatrix(getrow, 2)</p><p>　　txtFangxing.Text = grdHuxing.TextMatrix(getrow, 3)</p><p>　　txtJianjie.Text = grdHuxing.TextMatrix(getrow, 5)</p><p>　　Dim pic

119、 As String</p><p>　　If grdHuxing.TextMatrix(getrow, 4) <> "" Then '第五列不為空，說明有圖片文件</p><p>　　pic = grdHuxing.TextMatrix(getrow, 4) '取得圖片名稱</p><p>　　I

120、mage1.Picture = LoadPicture(App.Path & "\ICON\" & pic & ".bmp") '加載圖片</p><p><b>　　Else</b></p><p>　　Image1.Picture = LoadPicture() '加載文件為空，即

121、將圖像清空</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　下面編輯各個按鈕的功能。</p><p>　?。?）雙擊cmdAdd控件，在cmdAdd_Click事件中處理對該按鈕的響應。</p><p>

122、;　　這個按鈕有兩個狀態(tài)，分別是“增加”和“保存”。首先應該判斷當前按鈕的狀態(tài)。</p><p>　　如果當前的按鈕狀態(tài)為“增加”，則窗體各部分接受新的數(shù)據(jù)輸入。此時清空所有的文本框的內容，同時將“修改”和“刪除”按鈕設置為不可用。</p><p>　　Private Sub cmdadd_Click()</p><p>　　On Error GoTo adderr

123、or</p><p>　　If cmdAdd.Caption = "保 存" Then</p><p>　　'下面對輸入的有效性進行驗證</p><p>　　If Trim(txtHuxingnum.Text) = "" Then</p><p>　　MsgBox "戶型編號不能為空