售樓管理系統(tǒng)畢業(yè)設(shè)計(jì)

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

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

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

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

5、t;/p><p>　　引言………………………………………….……………………………….….4</p><p>　　1項(xiàng)目背景………………………………………………………………………4</p><p>　　2項(xiàng)目目標(biāo)………………………………………………………………………4</p><p>　　第一章設(shè)計(jì)基礎(chǔ)………………………………………….……………

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

7、………………………………………..6</p><p>　　2.1系統(tǒng)需求分析…….…………………………………………………………8</p><p>　　2.2系統(tǒng)功能分析……………………………………………….………………8</p><p>　　第三章數(shù)據(jù)庫設(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實(shí)現(xiàn)房產(chǎn)管理功能..………………………………………………………..24</p>&

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

28、<p>　　系統(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ì)劃。</p><p>　　管理信息系統(tǒng)開發(fā)方法主要有：結(jié)構(gòu)化生命周期開發(fā)方法、原型法、面向?qū)ο蟮拈_發(fā)方</p><p>　　1.3.3 管理信息系統(tǒng)的開發(fā)過

29、程</p><p>　　管理信息系統(tǒng)的開發(fā)過程一般包括系統(tǒng)開發(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)評價(jià)等步驟。根據(jù)開發(fā)系統(tǒng)的大小、復(fù)雜、投入、方式、方法等因素的不同，各步驟的要求和內(nèi)容也不同，用戶需要根據(jù)實(shí)際情況進(jìn)行取舍和計(jì)劃。</p><p>　　第二章 系統(tǒng)功能分析與設(shè)計(jì)</p><p><b>　　2.1系

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

45、lt;/p><p>　　“預(yù)計(jì)付款”表：用于存放預(yù)計(jì)付款信息。</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、“收費(fèi)信息”表</b></p><p>　　表5 收費(fèi)信息表</p><p><b>　　6、“收款信息”表</b></p><p>　　表6 收款登記表</p><p><b>　　7、“售樓人員”表&

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

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

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

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

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

53、;　　調(diào)整控件的大小和位置，設(shè)計(jì)狀態(tài)效果如圖3所示。</p><p>　　圖3 frmLogin窗體設(shè)計(jì)效果</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 '有記錄時(shí)逐一添加到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 '默認(rèn)顯示第一個(gè)子項(xiàng)</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 "沒有這個(gè)用戶", 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 "沒有這個(gè)用戶", vbOKOnly + vbExclamation, ""</p><p>　　cmbN

63、ame.SetFocus</p><p>　　Else '檢驗(yàn)密碼是否正確</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) '記錄登錄用戶的類型，以便權(quán)限設(shè)置</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 "您輸入密碼錯(cuò)誤次數(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 '關(guān)閉數(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的工程資源管理器中單擊鼠標(biāo)右鍵，彈出的快捷菜單中依次選擇“添加” “添加窗體”菜單項(xiàng)，彈出“添加窗體”對話框，單擊“打開”按鈕，即可在售樓管理系統(tǒng)工程中添加一個(gè)窗體Form1，此窗體的各個(gè)屬性設(shè)置如表10所示。</p><p>　　表10 系統(tǒng)主窗體屬性</p><p>　　主窗體的設(shè)置效果如圖4所示。</p><p>　　圖4

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

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

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

74、gt;　　Select Case Button.Key '按關(guān)鍵字選擇</p><p>　　Case "bt_loupan" '如果單擊按鈕關(guān)鍵字為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>　　另外，為了維護(hù)系統(tǒng)的安全，當(dāng)用戶以guest身份登錄時(shí)，部分功能是不可用的。在窗體的加載事件中輸入如下代碼：</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ù)庫恢復(fù)不可用</p><p><b&g

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

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

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

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

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

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

85、lick( )</p><p>　　frmhuxinglogin.show</p><p><b>　　End sub</b></p><p>　?。?）加載窗體時(shí)，需要在打開戶型資料表之后，調(diào)用dispalygrid過程顯示記錄信息，然后將常用戶型名稱添加到Combo1組合框的子項(xiàng)中。在窗體加載事件中輸入如下代碼：</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 '調(diào)用displaygrid過程，顯示信息</p><p>　　Combo1.AddItem "二室二廳" '將戶型資料加入Comb

89、o1控件子項(xiàng)中</p><p>　　Combo1.AddItem "一室二廳"</p><p>　　Combo1.AddItem "一室二廳"</p><p>　　Combo1.AddItem "復(fù) 式"</p><p>　　Combo1.AddItem "三室二廳&

90、quot;</p><p>　　gridclick = False '標(biāo)識未選擇記錄</p><p>　　cmdModify.Enabled = False '此時(shí)修改和刪除不可用</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>　?。?）窗體加載時(shí)需要顯示所有記錄信息。考慮到代碼的可重用性，定義displaygrid過程。單擊“工具”菜

92、單，選擇“添加過程”子菜單，添加displaygrid過程。</p><p>　　顯示表格信息前應(yīng)該對表格格式進(jìn)行設(shè)置，如設(shè)置表格的行數(shù)和列數(shù)等，添加一個(gè)setgrid過程。</p><p>　　Public Sub setgrid()</p><p><b>　　' 設(shè)置表格格式</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 '設(shè)置行高</p><p>

95、　　.RowHeight(i) = 315</p><p><b>　　Next</b></p><p>　　For i = 0 To .Cols - 1 '設(shè)置列寬</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ù)和列數(shù)。FixedCols屬性的作用是凍結(jié)某列，也就是說，如果表格的列數(shù)過多從而使表格帶有水平滾動條時(shí)，被設(shè)置為凍結(jié)的列不會隨著滾動條的滾動而變化。</p><p>　　表格表頭的格式是單獨(dú)設(shè)置的，以便區(qū)別于其他行。添加過程setgridhead用來設(shè)置表頭。</p

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

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 = "套內(nèi)面積"</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過程中調(diào)用這兩個(gè)過程即可設(shè)置好表格的格式，然后逐行逐列地顯示數(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 '調(diào)用setgrid過程設(shè)置表格格式</p>

104、<p>　　setgridhead '調(diào)用setgridhead過程設(shè)置表頭格式</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>　?。?）當(dāng)單擊表格控件的某條戶型記錄時(shí)，即在下面的明細(xì)欄內(nèi)顯示該條記錄的詳細(xì)信息。此時(shí)還可以對此記錄進(jìn)行修改和刪除操作。在grdHuxing_Click事件中添加代碼實(shí)現(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 '記錄當(dāng)前行</p&g

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

115、　displaymingxi '調(diào)用displaymingxi過程將記錄的詳細(xì)信息顯示出來</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ù)內(nèi)容添加到各個(gè)文本框中。需要特別說明的是，每個(gè)記錄中的“圖片文件”字段存儲了對應(yīng)戶型的示意圖文件名。這些示意圖存放在系統(tǒng)路徑下的ICON文件夾內(nèi)，如果存在需要使用Image控件顯示該戶型的示意圖。</p><p>　　Public

117、 Sub displaymingxi()</p><p>　　txtHuxingnum.Text = grdHuxing.TextMatrix(getrow, 0) '取的當(dāng)前行的第一列</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>　　下面編輯各個(gè)按鈕的功能。</p><p>　　（6）雙擊cmdAdd控件，在cmdAdd_Click事件中處理對該按鈕的響應(yīng)。</p><p>

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

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