畢業(yè)設(shè)計(jì)-房屋租賃管理系統(tǒng)

1、<p><b>　　X X 大 學(xué)</b></p><p>　　畢 業(yè) 論 文</p><p>　　題目 房屋租賃管理系統(tǒng) </p><p><b>　　摘要</b></p><p>　　隨著我國市場(chǎng)經(jīng)濟(jì)的快速發(fā)展和人們生活水平的不斷提高，

2、簡(jiǎn)單的租憑服務(wù)已經(jīng)不能滿足人們的需求。如何利用先進(jìn)的管理手段，提高房屋租憑管理水平，是當(dāng)今社會(huì)所面臨的一個(gè)重要課題。本文通過用VB6.0編寫房屋租賃管理系統(tǒng)，利用軟件工程原理，采用面向?qū)ο蟮木幊谭椒ǎ溟_發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面，實(shí)現(xiàn)了房屋租賃管理的自動(dòng)化和信息化.</p><p>　　整個(gè)系統(tǒng)從符合操作簡(jiǎn)便、界面友好、靈活、實(shí)用、安全的要求出發(fā)，完成基本資料管理、客戶資料管

3、理、租憑合同管理、財(cái)務(wù)管理、統(tǒng)計(jì)報(bào)表管理等功能.經(jīng)過實(shí)際測(cè)試證明，本文所設(shè)計(jì)的房屋租賃管理系統(tǒng)可以用于物業(yè)管理部門從事房屋租賃信息管理方面的需要。</p><p>　　論文主要介紹了本課題的開發(fā)背景，所要完成的功能和開發(fā)的全過程。重點(diǎn)的說明了系統(tǒng)設(shè)計(jì)的重點(diǎn)、設(shè)計(jì)思想、難點(diǎn)技術(shù)和解決方案。</p><p>　　關(guān)鍵詞：數(shù)據(jù)庫 Visual Basic 6.0 房屋租賃管理系統(tǒng)</p

4、><p><b>　　目 錄</b></p><p><b>　　摘要1</b></p><p><b>　　第一章 序論1</b></p><p><b>　　1.1課題來源1</b></p><p>　　1.2 開發(fā)背景和

5、開發(fā)目的1</p><p>　　1.3可行性分析2</p><p>　　1.3.1經(jīng)濟(jì)可行性分析2</p><p>　　1.3.2操作可行性分析2</p><p>　　1.3.3技術(shù)可行性分析2</p><p>　　1.4本文所做的工作2</p><p>　　第二章 需求分析4&l

6、t;/p><p>　　2.1 系統(tǒng)目標(biāo)4</p><p>　　2.2 應(yīng)用現(xiàn)狀調(diào)查4</p><p>　　2.3系統(tǒng)總體流程圖如下:4</p><p>　　2.4 系統(tǒng)的數(shù)據(jù)流程圖及分析:5</p><p>　　2.5系統(tǒng)功能模塊圖5</p><p>　　第三章 開發(fā)工具的選擇及簡(jiǎn)介6&

7、lt;/p><p>　　3.1開發(fā)工具的選擇6</p><p>　　3.2開發(fā)工具簡(jiǎn)介7</p><p>　　第四章 房屋租賃管理系統(tǒng)的詳細(xì)設(shè)計(jì)10</p><p>　　4.1數(shù)據(jù)庫概要10</p><p>　　4.1.1數(shù)據(jù)庫的含義10</p><p>　　4.1.2 數(shù)據(jù)庫管理系統(tǒng)1

8、0</p><p>　　4.1.3 數(shù)據(jù)庫應(yīng)用系統(tǒng)12</p><p>　　4.2 數(shù)據(jù)庫的結(jié)構(gòu)設(shè)計(jì)12</p><p>　　4.3系統(tǒng)主界面的設(shè)計(jì)14</p><p>　　4.3 各主要功能模塊的設(shè)計(jì)與實(shí)現(xiàn)17</p><p>　　4．3．1基本資料管理模塊設(shè)計(jì)17</p><p>

9、　　4．3．2 客戶資料管理模塊的設(shè)計(jì)24</p><p>　　4．3．2．1租戶基本資料的設(shè)計(jì)24</p><p>　　4．3．2．2求租戶基本資料的設(shè)計(jì)25</p><p>　　4．3．3 租賃管理模塊的設(shè)計(jì)28</p><p>　　4．3．3 .1簽訂合同的設(shè)計(jì)28</p><p>　　4．3．3 .2

10、預(yù)定租房的設(shè)計(jì)35</p><p>　　4．3．4財(cái)務(wù)管理模塊的設(shè)計(jì)36</p><p>　　4．3．4 .1定金收取的設(shè)計(jì)36</p><p>　　4．3．5 統(tǒng)計(jì)報(bào)表模塊的設(shè)計(jì)39</p><p>　　4．3．5．1 房屋統(tǒng)計(jì)報(bào)表的設(shè)計(jì)39</p><p>　　4．3．5．2 租戶信息表40</p

11、><p>　　4．3．5．3 求租客戶信息表41</p><p>　　4．3．5．3 租金統(tǒng)計(jì)表的設(shè)計(jì)42</p><p>　　第五章 主菜單的設(shè)計(jì)及系統(tǒng)連編43</p><p>　　5.1 主菜單的設(shè)計(jì)43</p><p>　　5.2 系統(tǒng)的編譯與發(fā)行44</p><p>　　第六章

12、畢業(yè)設(shè)計(jì)小結(jié)45</p><p><b>　　參考文獻(xiàn)45</b></p><p><b>　　致 謝46</b></p><p><b>　　第一章 序論</b></p><p><b>　　1.1課題來源</b></p>&l

13、t;p>　　隨著我國市場(chǎng)經(jīng)濟(jì)的快速發(fā)展和信息化水平的不斷提高，如何利用先進(jìn)的管理手段，提高物業(yè)管理的水平，是當(dāng)今社會(huì)所面臨的一個(gè)課題。提高企業(yè)的管理水平，必須全方位地提高企業(yè)的管理意識(shí)。只有高標(biāo)準(zhǔn)、高質(zhì)量的管理才能滿足企業(yè)的發(fā)展需求。面對(duì)信息時(shí)代的挑戰(zhàn)，利用高科技手段來提高房屋租賃管理無疑是一條行之有效的途徑。在某種意義上，信息與科技在企業(yè)管理與現(xiàn)代化建設(shè)中顯現(xiàn)出越來越重要的地位。房租租賃管理方面的信息化與科學(xué)化，已成為現(xiàn)代化生活

14、水平步入高臺(tái)階的重要標(biāo)志。</p><p>　　隨著計(jì)算機(jī)技術(shù)不斷的飛速發(fā)展，計(jì)算機(jī)以及計(jì)算機(jī)控制的自動(dòng)處理技術(shù)已融入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。對(duì)于當(dāng)今的科學(xué)信息是一次重大的飛越，為人們的生活、工作、學(xué)習(xí)帶來潛移默化的影響。今天我們使用計(jì)算機(jī)對(duì)房屋租賃信息進(jìn)行管理，具有手工管理所無法比擬的優(yōu)點(diǎn)。例如：檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高房屋租

15、賃管理的效率。面對(duì)目前的實(shí)際狀況，迫切需要開發(fā)一個(gè)新系統(tǒng)來適應(yīng)這一些工作.</p><p>　　1.2 開發(fā)背景和開發(fā)目的</p><p>　　利用計(jì)算機(jī)實(shí)現(xiàn)物業(yè)管理中的房屋租賃管理勢(shì)在必行。對(duì)于物業(yè)管理企業(yè)來說，利用計(jì)算機(jī)支持企業(yè)高效率完成房屋租賃管理的日常事務(wù)，是適應(yīng)現(xiàn)代企業(yè)制度要求、推動(dòng)企業(yè)勞動(dòng)型管理走向科學(xué)化、規(guī)范化的必要條件；而房屋租賃管理是一項(xiàng)瑣碎、復(fù)雜而又十分細(xì)致的工作，房屋

16、的基本資料,客戶資料的管理,房屋租賃管理，各項(xiàng)收費(fèi)以及統(tǒng)計(jì)報(bào)表的管理,一般不允許出錯(cuò)，如果實(shí)行手工操作,須手工填制大量的表格,這就會(huì)耗費(fèi)工作人員大量的時(shí)間和精力，計(jì)算機(jī)進(jìn)行房屋租賃工作的管理，不僅能夠保證各項(xiàng)信息準(zhǔn)確無誤、快速輸出，同時(shí)計(jì)算機(jī)具有手工管理所無法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高物業(yè)管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。&l

17、t;/p><p>　　開發(fā)本系統(tǒng)就是為了解決物業(yè)管理企業(yè)在房屋租賃信息管理中的一些不規(guī)范，使房屋租賃信息的管理向著規(guī)范化、簡(jiǎn)單化、有效化的方向發(fā)展。</p><p><b>　　1.3可行性分析</b></p><p>　　1.3.1經(jīng)濟(jì)可行性分析</p><p>　　本系統(tǒng)開發(fā)簡(jiǎn)單但要耗去一定的時(shí)間，所用的開發(fā)工具和軟件

18、都差不多是免費(fèi)的。而且，由于系統(tǒng)能夠在未來較長的一段時(shí)期內(nèi)穩(wěn)定地發(fā)揮作用，這對(duì)于學(xué)生房屋租賃信息的自動(dòng)化管理，稱業(yè)管理企業(yè)的人力和財(cái)力都有很大的幫助。由此可見在，開發(fā)此系統(tǒng)在經(jīng)濟(jì)上是完全可行的。</p><p>　　1.3.2操作可行性分析</p><p>　　如今的計(jì)算機(jī)已經(jīng)走進(jìn)千家萬戶，硬件成本的下降，導(dǎo)致計(jì)算機(jī)購買成本的降低.我的這套系統(tǒng)是利用自己的計(jì)算機(jī)加Microsoft Vi

19、sual FoxPro6.0作為軟件的開發(fā)平臺(tái)，使開發(fā)出來的系統(tǒng)有友好的用戶界面、有良好的安全性設(shè)置、有詳細(xì)的操作說明書，這樣更使各類用戶很快地掌握系統(tǒng)的使用方法,操作友好因此在操作上是可行的.</p><p>　　1.3.3技術(shù)可行性分析</p><p>　　從目前IT業(yè)界比較流行的數(shù)據(jù)庫開發(fā)、管理軟件來看，對(duì)于比較簡(jiǎn)單的中小型數(shù)據(jù)庫，Visual Basic 6.0和Windows

20、2000的結(jié)合無疑是在實(shí)際應(yīng)用中較為成功的一種解決方案。為用戶提供了業(yè)界軟件開發(fā)一直堅(jiān)持的非常友好、操作簡(jiǎn)單的用戶界面、完善強(qiáng)大的數(shù)據(jù)庫操作功能和簡(jiǎn)潔明了的數(shù)據(jù)庫接口。所以技術(shù)實(shí)行起來相對(duì)會(huì)容易。</p><p>　　1.4本文所做的工作</p><p>　　第一章 緒論部分主要敘述課題來源、開發(fā)背景和開發(fā)目的,可行性分析,分析比較當(dāng)前開發(fā)工具，數(shù)據(jù)庫技術(shù)的比較。</p>&

21、lt;p>　　第二章 結(jié)合軟件工程方法，對(duì)系統(tǒng)進(jìn)行需求分析、系統(tǒng)目標(biāo)和應(yīng)用現(xiàn)狀調(diào)查、系統(tǒng)總體流程圖與功能調(diào)查圖繪制與分析。</p><p>　　第三章 在需求分析的基礎(chǔ)上選擇好開發(fā)工具,并對(duì)開發(fā)工具做簡(jiǎn)要描述. </p><p>　　第四章 根據(jù)需求分析的結(jié)果，對(duì)系統(tǒng)進(jìn)行概要設(shè)計(jì)，主要介紹用Visual Basic 6.0創(chuàng)建應(yīng)用程序的步驟,以及在本系統(tǒng)開發(fā)的所用到控件.實(shí)現(xiàn)每一個(gè)模

22、塊的具體功能。</p><p>　　第五章 根據(jù)第四章的創(chuàng)建應(yīng)用程序步驟及Visual Basic6.0提供的控件進(jìn)行房屋租賃管理系統(tǒng)的詳細(xì)設(shè)計(jì).重點(diǎn)分析數(shù)據(jù)庫的設(shè)計(jì)以及主要功能模塊的實(shí)現(xiàn).</p><p>　　第六章 在完成了主要功能模塊的設(shè)計(jì)后,本章進(jìn)行的系統(tǒng)主程序的設(shè)計(jì),以及怎樣在Visual Basic 6.0環(huán)境下生成應(yīng)用程序.</p><p>　　第七章

23、 畢業(yè)設(shè)計(jì)小結(jié)，總結(jié)部分介紹了設(shè)計(jì)體會(huì)和編程體會(huì). 設(shè)計(jì)存在的不足,及今后的學(xué)習(xí)方向.</p><p><b>　　第二章 需求分析</b></p><p><b>　　2.1 系統(tǒng)目標(biāo)</b></p><p>　　采用企業(yè)現(xiàn)有的軟硬件環(huán)境及科學(xué)的管理系統(tǒng)開發(fā)方案，建立房屋租賃信息管理系統(tǒng)，實(shí)現(xiàn)房屋租賃信息管理的計(jì)算機(jī)自動(dòng)

24、化。</p><p>　　系統(tǒng)應(yīng)符合物業(yè)管理企業(yè)原有的房屋租賃管理制度，并達(dá)到操作直觀、方便、實(shí)用、安全等要求。</p><p>　　2.2 應(yīng)用現(xiàn)狀調(diào)查</p><p>　　當(dāng)前，很多物業(yè)管理企業(yè)的房屋租賃信息管理都是以紙張為介質(zhì)作記錄，人力管理的比例比較大,往往是各個(gè)主要負(fù)責(zé)人以書面的形式管理房屋租賃信息,效率低下。數(shù)據(jù)打印,匯總,成績更新不及時(shí)，容易丟失,損壞

25、數(shù)據(jù)給學(xué)校學(xué)生帶來損失,不易保存且數(shù)據(jù)保密性較差。</p><p>　　2.3系統(tǒng)總體流程圖如下:</p><p>　　2.4 系統(tǒng)的數(shù)據(jù)流程圖及分析:</p><p><b>　　數(shù)據(jù)流程圖</b></p><p>　　整個(gè)系統(tǒng)從總體上分為基本資料管理、客戶資料管理、租賃管理、財(cái)務(wù)管理以及統(tǒng)計(jì)報(bào)表五大部分，每一部分實(shí)現(xiàn)

26、的功能如下：</p><p><b>　　基本資料管理功能：</b></p><p>　　實(shí)現(xiàn)房屋基本資料的管理.</p><p><b>　　客戶資料管理：</b></p><p>　　分租戶基本資料跟求租戶基本資料管理</p><p><b>　　租賃管理：&l

27、t;/b></p><p>　　分為合同簽訂，合同續(xù)簽，合同管理，預(yù)定租房，合同查詢，預(yù)定單查詢，出租到期提醒，預(yù)定到期提醒。</p><p><b>　　財(cái)務(wù)管理功能</b></p><p>　　分定金、押金、租金收取，租金管理，定金退還，押金退還。</p><p><b>　　統(tǒng)計(jì)報(bào)表功能：</

28、b></p><p>　　房屋統(tǒng)計(jì)報(bào)表，租戶統(tǒng)計(jì)報(bào)表，求租客戶信息表，歷史租戶表，現(xiàn)有合同表，歷史合同表，預(yù)定金統(tǒng)計(jì)，押金，定金統(tǒng)計(jì)，租金統(tǒng)計(jì)等功能</p><p>　　2.5系統(tǒng)功能模塊圖</p><p>　　第三章 開發(fā)工具的選擇及簡(jiǎn)介</p><p>　　3.1開發(fā)工具的選擇</p><p>　　針對(duì)目前世

29、界上流行的大量軟件和開發(fā)工具，經(jīng)過認(rèn)真分析其優(yōu)缺點(diǎn)，結(jié)合數(shù)據(jù)庫管理系統(tǒng)的需要和目前的硬件環(huán)境，我們選用微軟WINDOWS平臺(tái)下的Visual Basic6.0（簡(jiǎn)寫為VB6.0）作為房屋租賃管理系統(tǒng)的開發(fā)工具.</p><p><b>　　3.2開發(fā)工具簡(jiǎn)介</b></p><p>　　現(xiàn)在，市場(chǎng)上可以選購的應(yīng)用開發(fā)產(chǎn)品很多，流行的也有數(shù)十種。目前在我國市場(chǎng)上最為流行

30、、使用最多、最為先進(jìn)的可用作企業(yè)級(jí)開發(fā)工具的產(chǎn)品有：</p><p>　　Microsoft公司的Visual Basic</p><p>　　Microsoft公司的Visual C</p><p>　　Microsoft公司的Visual FoxPro</p><p>　　Borland公司的Delphi </p><

31、p>　　Powersoft公司的PowerBulider</p><p><b>　　Java等等</b></p><p>　　在目前市場(chǎng)上這些眾多的程序開發(fā)工具中，有些強(qiáng)調(diào)程序語言的彈性與執(zhí)行效率；有些則偏重于可視化程序開發(fā)工具所帶來的便利性與效率的得高，各有各的優(yōu)點(diǎn)和特色，也滿足了不同用戶的需求。然而，語言的彈性和工具的便利性是密不可分的，只有便利的工具，卻

32、沒有彈性的語言作支持，許多特殊化的處理動(dòng)作必需要耗費(fèi)數(shù)倍的工夫來處理，使得原來所標(biāo)榜的效率提高的優(yōu)點(diǎn)失去了作用；相反，如果只強(qiáng)調(diào)程序語言的彈性，卻沒有便利的工具作配合，會(huì)使一些即使非常簡(jiǎn)單的界面處理動(dòng)作，也會(huì)嚴(yán)重地浪費(fèi)程序設(shè)計(jì)師的寶貴時(shí)間。</p><p>　　Visual Basic是美國微軟公司的第一個(gè)編程工具和系統(tǒng)開發(fā)的第一個(gè)產(chǎn)品，Visual Basic以優(yōu)良的性能、較強(qiáng)的系統(tǒng)開發(fā)功能、完美的視覺界面和簡(jiǎn)

33、單易學(xué)的特點(diǎn)，已經(jīng)贏得了全世界廣大用戶的偏愛。Visual Basic的編程環(huán)境包含了快速有效的開發(fā)功能，尤其是數(shù)據(jù)窗口這一方便而簡(jiǎn)潔操縱數(shù)據(jù)庫的智能化對(duì)象，使系統(tǒng)的開發(fā)更人性化，操作更簡(jiǎn)便。</p><p>　　作為管理信息系統(tǒng)的開發(fā)，Visual Basic是一個(gè)非常理想選擇。Visual Basic是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。

34、它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C/C++編程基礎(chǔ)。在Visual Basic環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用Windows內(nèi)部的應(yīng)用程序接口(API)函數(shù)，以及動(dòng)態(tài)鏈接庫(DLL)、動(dòng)態(tài)數(shù)據(jù)交換(DDE)、對(duì)象的鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術(shù)，可以高效、快速地開發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)

35、用軟件系統(tǒng)。</p><p>　　總的來說，Visual Basic6.0具有以下特點(diǎn)：</p><p>　　Visual Basic是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C/C++編程基礎(chǔ)。在Visual Basi

36、c環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用Windows內(nèi)部的應(yīng)用程序接口(API)函數(shù)，以及動(dòng)態(tài)鏈接庫(DLL)、動(dòng)態(tài)數(shù)據(jù)交換(DDE)、對(duì)象的鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術(shù)，可以高效、快速地開發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。</p><p><b>　　可視化編程：</b></p><p>

37、;　　用傳統(tǒng)程序設(shè)計(jì)語言設(shè)計(jì)程序時(shí)，都是通過編寫程序代碼來設(shè)計(jì)用戶界面，在設(shè)計(jì)過程中看不到界面的實(shí)際顯示效果，必須編譯后運(yùn)行程序才能觀察。如果對(duì)界面的效果不滿意，還要回到程序中修改。有時(shí)候，這種編程-編譯-修改的操作可能要反復(fù)多次，大大影響了軟件開發(fā)效率。Visual Basic提供了可視化設(shè)計(jì)工具，把Windows界面設(shè)計(jì)的復(fù)雜性“封裝”起來，開發(fā)人員不必為界面設(shè)計(jì)而編寫大量程序代碼。只需要按設(shè)計(jì)要求的屏幕布局，用系統(tǒng)提供的工具，在屏

38、幕上畫出各種“部件”，即圖形對(duì)象，并設(shè)置這些圖形對(duì)象的屬性。Visual Basic自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫實(shí)現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計(jì)的效率。</p><p><b>　　面向?qū)ο蟮某绦蛟O(shè)計(jì)</b></p><p>　　4.0版以后的Visual Basic支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計(jì)語言(C++)

39、不完全相同。在一般的面向?qū)ο蟪绦蛟O(shè)計(jì)語言中，對(duì)象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而Visual Basic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法(OOP)，把程序和數(shù)據(jù)封裝起來作為一個(gè)對(duì)象，并為每個(gè)對(duì)象賦予應(yīng)有的屬性，使對(duì)象成為實(shí)在的東西。在設(shè)計(jì)對(duì)象時(shí)，不必編寫建立和描述每個(gè)對(duì)象的程序代碼，而是用工具畫在界面上，Visual Basic自動(dòng)生成對(duì)象的程序代碼并封裝起來。每個(gè)對(duì)象以圖形方式顯示在界面上，都是可視的。</p>&l

40、t;p><b>　　結(jié)構(gòu)化程序設(shè)計(jì)語言</b></p><p>　　Visual Basic是在BASIC語言的基礎(chǔ)上發(fā)展起來的，具有高級(jí)程序設(shè)計(jì)語言的語句結(jié)構(gòu)，接近于自然語言和人類的邏輯思維方式。Visual Basic語句簡(jiǎn)單易懂，其編輯器支持彩色代碼，可自動(dòng)進(jìn)行語法錯(cuò)誤檢查，同時(shí)具有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器。</p><p>　　Visual B

41、asic是解釋型語言，在輸入代碼的同時(shí)，解釋系統(tǒng)將高級(jí)語言分解翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令，并判斷每個(gè)語句的語法錯(cuò)誤。在設(shè)計(jì)Visual Basic程序的過程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì)好之后，可以編譯生成可執(zhí)行文件(.EXE)，脫離Visual Basic環(huán)境，直接在Windows環(huán)境下運(yùn)行。</p><p><b>　　事件驅(qū)動(dòng)編程機(jī)制</b></p><

42、p>　　Visual Basic通過事件來執(zhí)行對(duì)象的操作。一個(gè)對(duì)象可能會(huì)產(chǎn)生多個(gè)事件，每個(gè)事件都可以通過一段程序來響應(yīng)。例如，命令按鈕是一個(gè)對(duì)象，當(dāng)用戶單擊該按鈕時(shí)，將產(chǎn)生一個(gè)“單擊”(CLICK)事件，而在產(chǎn)生該事件時(shí)將執(zhí)行一段程序，用來實(shí)現(xiàn)指定的操作。</p><p>　　在用Visual Basic設(shè)計(jì)大型應(yīng)用軟件時(shí)，不必建立具有明顯開始和結(jié)束的程序，而是編寫若干個(gè)微小的子程序，即過程。這些過程分別面

43、向不同的對(duì)象，由用戶操作引發(fā)某個(gè)事件來驅(qū)動(dòng)完成某種特定的功能，或者由事件驅(qū)動(dòng)程序調(diào)用通用過程來執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。</p><p><b>　　訪問數(shù)據(jù)庫</b></p><p>　　Visual Basic具有強(qiáng)大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理Microsoft Access格式的數(shù)據(jù)庫，并提供了強(qiáng)大的

44、數(shù)據(jù)存儲(chǔ)和檢索功能。同時(shí)，Visual Basic還能直接編輯和訪問其他外部數(shù)據(jù)庫，如dBASE，F(xiàn)oxPro，Paradox等，這些數(shù)據(jù)庫格式都可以用Visual Basic編輯和處理。</p><p>　　Visual Basic提供開放式數(shù)據(jù)連接，即ODBC功能，可通過直接訪問或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫，如SQL Server，Oracle等。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語言SQL數(shù)據(jù)

45、標(biāo)準(zhǔn)，直接訪問服務(wù)器上的數(shù)據(jù)庫，并提供了簡(jiǎn)單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫訪問的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫的SQL的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫提供了SQL網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶/服務(wù)器(client/server)方案。</p><p>　　動(dòng)態(tài)數(shù)據(jù)交換(DDE)</p><p>　　利用動(dòng)態(tài)數(shù)據(jù)交換(Dynamic Data Exchange)技術(shù)，可以把一

46、種應(yīng)用程序中的數(shù)據(jù)動(dòng)態(tài)地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)用程序建立起一條動(dòng)態(tài)數(shù)據(jù)鏈路。當(dāng)原始數(shù)據(jù)變化時(shí)，可以自動(dòng)更新鏈接的數(shù)據(jù)。Visual Basic提供了動(dòng)態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他Windows應(yīng)用程序建立動(dòng)態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。</p><p>　　對(duì)象的鏈接與嵌入(OLE)</p><p>　　對(duì)象的鏈接與嵌入(OLE)將每個(gè)應(yīng)用程

47、序都看作是一個(gè)對(duì)象(object)，將不同的對(duì)象鏈接(link)起來，再嵌入(embed)某個(gè)應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動(dòng)畫、文字等各種信息的集合式的文件。OLE技術(shù)是Microsoft公司對(duì)象技術(shù)的戰(zhàn)略，它把多個(gè)應(yīng)用程序合為一體，將每個(gè)應(yīng)用程序看作是一個(gè)對(duì)象進(jìn)行鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。利用OLE技術(shù)，可以方便地建立復(fù)合式文檔(compound document)，這種文檔由來自多個(gè)不同應(yīng)用程序的對(duì)象

48、組成，文檔中的每個(gè)對(duì)象都與原來的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來應(yīng)用程序完全相同的操作。</p><p>　　動(dòng)態(tài)鏈接庫(DLL)</p><p>　　Visual Basic是一種高級(jí)程序設(shè)計(jì)語言，不具備低級(jí)語言的功能，對(duì)訪問機(jī)器硬件的操作不太容易實(shí)現(xiàn)。但它可以通過動(dòng)態(tài)鏈接庫技術(shù)將C/C++或匯編語言編寫的程序加入到Visual Basic應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫

49、的函數(shù)。此外，通過動(dòng)態(tài)鏈接庫，還可以調(diào)用Windows應(yīng)用程序接口(API)函數(shù)，實(shí)現(xiàn)SDK所具有的功能</p><p>　　第四章 房屋租賃管理系統(tǒng)的詳細(xì)設(shè)計(jì)</p><p><b>　　4.1數(shù)據(jù)庫概要</b></p><p>　　4.1.1數(shù)據(jù)庫的含義</p><p>　　所謂數(shù)據(jù)庫，就是為了滿足某些系統(tǒng)、某些用戶

50、的需要，在計(jì)算機(jī)系統(tǒng)中按照一定的數(shù)據(jù)模型、數(shù)據(jù)結(jié)構(gòu)等方式進(jìn)行組織、存儲(chǔ)和使用的互相關(guān)聯(lián)的數(shù)據(jù)集合，是數(shù)據(jù)按科學(xué)的結(jié)構(gòu)形式組織的“倉庫”。在實(shí)際中，人們把數(shù)據(jù)庫以文件形式存入于磁盤（軟盤、硬盤或磁帶）中，數(shù)據(jù)庫管理系統(tǒng)以文件形式對(duì)其進(jìn)行調(diào)度管理。</p><p>　　4.1.2 數(shù)據(jù)庫管理系統(tǒng)</p><p>　　數(shù)據(jù)庫管理系統(tǒng)，簡(jiǎn)稱DBMS，是為數(shù)據(jù)庫的建立，使用和維護(hù)而配置的軟件，它提供

51、了安全性和完整性等統(tǒng)一控制機(jī)制，方便用戶管理和存取大量的數(shù)據(jù)資源。例如，Visual Basic 6.0就是微機(jī)上使用的一種數(shù)據(jù)管理系統(tǒng)。</p><p>　　在數(shù)據(jù)庫管理系統(tǒng)的支持下，數(shù)據(jù)完全獨(dú)立于應(yīng)用程序，并且能被多個(gè)用戶或程序共享，其關(guān)系如圖所示。</p><p>　　應(yīng)用程序與數(shù)據(jù)庫的關(guān)系</p><p>　　數(shù)據(jù)庫管理系統(tǒng)一般具備數(shù)據(jù)庫的定義、操作、查詢及

52、控制等功能。</p><p>　　它將所有應(yīng)用程序使用的數(shù)據(jù)匯集起來，建立數(shù)據(jù)庫，使之面對(duì)所有應(yīng)用程序的查詢和訪問。因此，作為訪問者的應(yīng)用程序相對(duì)于數(shù)據(jù)庫來說是獨(dú)立的，而作為被訪問的數(shù)據(jù)在數(shù)據(jù)庫中同樣是獨(dú)立的。當(dāng)要建立新的數(shù)據(jù)管理系統(tǒng)時(shí)，只要生成一個(gè)新的應(yīng)用程序即可，它可以立即使用現(xiàn)成的數(shù)據(jù)庫，而不必建立新的數(shù)據(jù)文件。</p><p>　　數(shù)據(jù)庫管理系統(tǒng)是為數(shù)據(jù)庫的建立、使用、管理和維護(hù)而

53、配置的軟件。它建立在操作系統(tǒng)的基礎(chǔ)上，對(duì)數(shù)據(jù)庫進(jìn)行統(tǒng)一的管理和控制。用戶使用的各種數(shù)據(jù)庫命令以及應(yīng)用程序的執(zhí)行都要通過數(shù)據(jù)庫管理系統(tǒng)。數(shù)據(jù)庫管理系統(tǒng)還承擔(dān)著數(shù)據(jù)庫的維護(hù)工作，保證數(shù)據(jù)庫的安全性和完整性。</p><p>　　數(shù)據(jù)庫管理系統(tǒng)的功能體現(xiàn)在“管理”二字上。它針對(duì)不同的用戶及不同的使用目的，提供給用戶各種操作、管理數(shù)據(jù)庫的命令、函數(shù)、控件和對(duì)象，以幫助用戶完成任務(wù)。其主要功能如下：</p>

54、<p><b>　　定義數(shù)據(jù)庫 </b></p><p>　　根據(jù)用戶設(shè)計(jì)的數(shù)據(jù)結(jié)構(gòu),建立數(shù)據(jù)庫結(jié)構(gòu)組織.</p><p><b>　　存取數(shù)據(jù) </b></p><p>　　它包括很多基本操作:輸入、更新、插入、檢索、刪除、輸出、統(tǒng)計(jì)、排序、索引等。</p><p><b>　

55、　數(shù)據(jù)庫運(yùn)行管理 </b></p><p>　　所有數(shù)據(jù)庫的操作都要在數(shù)據(jù)庫管理系統(tǒng)的餓控制程序的統(tǒng)一管理下進(jìn)行，以保證正確運(yùn)行，保證數(shù)據(jù)庫正確有效。</p><p><b>　　數(shù)據(jù)庫系統(tǒng)的維護(hù) </b></p><p>　　系統(tǒng)維護(hù)是一項(xiàng)重要的工作，它包括數(shù)據(jù)庫的轉(zhuǎn)存、恢復(fù)、數(shù)據(jù)庫的重組及性能監(jiān)視、分析等。</p>

56、<p>　　由上可見，數(shù)據(jù)庫管理系統(tǒng)是一個(gè)能使用和管理數(shù)據(jù)庫中數(shù)據(jù)的軟件。這是數(shù)據(jù)庫系統(tǒng)與文件系統(tǒng)的一個(gè)最大的區(qū)別。數(shù)據(jù)庫管理系統(tǒng)功能的強(qiáng)弱基本上決定了整個(gè)數(shù)據(jù)庫系統(tǒng)功能。</p><p>　　4.1.3 數(shù)據(jù)庫應(yīng)用系統(tǒng)</p><p>　　數(shù)據(jù)庫應(yīng)用系統(tǒng)是指系統(tǒng)開發(fā)人員利用數(shù)據(jù)庫系統(tǒng)資源開發(fā)出來的，面向某一類信息處理問題而建立的軟件系統(tǒng)。</p><p&g

57、t;　　數(shù)據(jù)庫系統(tǒng)的用戶自己編寫的、基于數(shù)據(jù)庫數(shù)據(jù)的程序稱為應(yīng)用程序，針對(duì)某一數(shù)據(jù)庫管理而編制的一組應(yīng)用程序形成該數(shù)據(jù)庫的應(yīng)用系統(tǒng)，它是數(shù)據(jù)庫系統(tǒng)的一個(gè)重要組成部分，它們與數(shù)據(jù)庫上的數(shù)據(jù)構(gòu)成數(shù)據(jù)庫中最活躍的部分。</p><p>　　4.2 數(shù)據(jù)庫的結(jié)構(gòu)設(shè)計(jì)</p><p>　　為了實(shí)現(xiàn)管理信息系統(tǒng)的計(jì)算機(jī)化，僅僅用文字來描述信息的流動(dòng)和存儲(chǔ)還遠(yuǎn)遠(yuǎn)不夠，還要進(jìn)一步調(diào)查分析舍去物質(zhì)流，抽象出

58、信息流，定義出數(shù)據(jù)庫,各數(shù)據(jù)表的結(jié)構(gòu)，并對(duì)各種數(shù)據(jù)的屬性和各項(xiàng)處理功能進(jìn)行詳細(xì)分析。系統(tǒng)分析的主要成果是系統(tǒng)的邏輯模型。</p><p>　　通過對(duì)該系統(tǒng)的研究,將系統(tǒng)數(shù)據(jù)分為以下幾個(gè)表:客戶信息表,定金表,房屋表,押金表,求租，預(yù)定表以及租金等幾個(gè)表,各表的具體設(shè)計(jì)結(jié)構(gòu)如下:</p><p><b>　　客戶信息表:</b></p><p>

59、<b>　　定金表:</b></p><p><b>　　房屋表:</b></p><p><b>　　押金表:</b></p><p><b>　　求租表:</b></p><p><b>　　租金表:</b></p>

60、<p>　　4.3系統(tǒng)主界面的設(shè)計(jì)</p><p>　　啟動(dòng)系統(tǒng)后，主界面設(shè)計(jì)效果圖如下:</p><p>　　公用模塊的設(shè)計(jì)代碼分析如下:</p><p>　　Option Explicit</p><p>　　Public conn As New ADODB.Connection</p><p>　　&

61、#39;定義全局變量queryhouse 作為判斷frmHouse 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)</p><p>　　Public queryhouse As Boolean</p><p>　　'定義全局變量sqlqh 作為查詢房屋信息時(shí)的sql語句</p><p>　　Public sqlqh As String</p><p>

62、;　　'定義全局變量querycf 作為判斷frmClient 窗體家庭租戶選項(xiàng)卡顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)</p><p>　　Public querycf As Boolean</p><p>　　'定義全局變量sqlqcf 作為查詢家庭租戶信息時(shí)的sql語句</p><p>　　Public sqlqcf As String</p>

63、<p>　　'定義全局變量querycg 作為判斷frmClient 窗體家公司戶選項(xiàng)卡顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)</p><p>　　Public querycg As Boolean</p><p>　　'定義全局變量sqlqcg 作為查詢公司租戶信息時(shí)的sql語句</p><p>　　Public sqlqcg As String

64、</p><p>　　'定義全局變量queryemp 作為判斷frmEmp 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)</p><p>　　Public queryemp As Boolean</p><p>　　'定義全局變量sqlqe 作為查詢員工信息時(shí)的sql語句</p><p>　　Public sqlqe As String&l

65、t;/p><p>　　'定義全局變量queryqzc 作為判斷frmQZClient 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)</p><p>　　Public queryqzc As Boolean</p><p>　　'定義全局變量sqlqzc 作為查詢求租客戶信息時(shí)的sql語句</p><p>　　Public sqlqzc As S

66、tring</p><p>　　'定義全局變量querycon 作為判斷frmAdminContract 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)</p><p>　　Public querycon As Boolean</p><p>　　'定義全局變量sqlqcon 作為查詢合同信息時(shí)的sql語句</p><p>　　Public

67、sqlqcon As String</p><p>　　'定義全局變量sqlqyd 作為查詢預(yù)定單信息時(shí)的sql語句</p><p>　　Public sqlqyd As String</p><p>　　'定義全局變量fromqzc 作為判斷frmYuDing 窗體是從frmQZClient窗體中單擊下定金預(yù)定調(diào)用的</p><

68、p>　　'還是直接菜單調(diào)用的</p><p>　　Public fromqzc As Boolean</p><p>　　'定義全局變量fromYuding 作為判斷frmPayDingJin 窗體是從frmYuDing窗體中單擊收取定金調(diào)用的</p><p>　　'還是直接菜單調(diào)用的</p><p>　　Pub

69、lic fromYuding As Boolean</p><p>　　'定義全局變量fromContract 作為判斷frmPayYaJin 窗體是從frmSignContract窗體中單擊收取押金調(diào)用的</p><p>　　'還是直接菜單調(diào)用的</p><p>　　Public fromContract As Boolean</p>

70、<p>　　'定義全局變量ZuJinfromContract 作為判斷frmPayZuJin 窗體是從frmSignContract窗體中單擊收取租金調(diào)用的</p><p>　　'還是直接菜單調(diào)用的</p><p>　　Public ZuJinfromContract As Boolean</p><p>　　'定義全局變量que

71、ryZuJin 作為判斷frmAdminZuJin 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)</p><p>　　Public queryZuJin As Boolean</p><p>　　'定義全局變量sqlqzj 作為查詢合同信息時(shí)的sql語句</p><p>　　Public sqlqzj As String</p><p>　　

72、9;定義全局變量sqlqdj 作為查詢定金信息時(shí)的sql語句</p><p>　　Public sqlqdj As String</p><p>　　'定義全局變量sqlqyj 作為查詢押金信息時(shí)的sql語句</p><p>　　Public sqlqyj As String</p><p>　　4.3 各主要功能模塊的設(shè)計(jì)與實(shí)現(xiàn)&l

73、t;/p><p>　　4．3．1基本資料管理模塊設(shè)計(jì)</p><p>　　房屋基本資料管理的運(yùn)行效果圖如下:</p><p>　　其表單界面的屬性設(shè)計(jì)比較直觀,在此重點(diǎn)分析新增,修改,刪除,保存四個(gè)命令按鈕的源代碼設(shè)計(jì)：</p><p><b>　　新增按鈕源碼:</b></p><p>　　Priv

74、ate Sub cmdAdd_Click()</p><p>　　'設(shè)置除保存和取消按鈕外的其他按鈕不可用</p><p>　　cmdAdd.Enabled = False</p><p>　　cmdEdit.Enabled = False</p><p>　　cmdDel.Enabled = False</p><

75、;p>　　cmdSave.Enabled = True</p><p>　　cmdCancel.Enabled = True</p><p>　　cmdFirst.Enabled = False</p><p>　　cmdPrev.Enabled = False</p><p>　　cmdNext.Enabled = False<

76、/p><p>　　cmdLast.Enabled = False</p><p>　　cmdQuery.Enabled = False</p><p>　　'需要清空所有text框，并且設(shè)置它們可寫</p><p>　　For i = 0 To 7</p><p>　　Text1(i).Text = "&

77、quot;</p><p>　　Text1(i).Enabled = True</p><p><b>　　Next i</b></p><p>　　Combo1.Enabled = True</p><p>　　'add變量用于保存時(shí)判斷是從添加還是修改后保存</p><p><b

78、>　　add = 1</b></p><p>　　Text1(0).SetFocus</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdCancel_Click()</p><p>　　'取消按鈕用于用戶添加或修改過程中放棄添加或修改操作<

79、;/p><p>　　cmdSave.Enabled = False</p><p>　　cmdCancel.Enabled = False</p><p>　　cmdAdd.Enabled = True</p><p>　　cmdQuery.Enabled = True</p><p>　　'如果是從添加后取消&l

80、t;/p><p>　　If add = 1 Then</p><p>　　'如果當(dāng)前House表中有數(shù)據(jù)則顯示第一條數(shù)據(jù)</p><p>　　If Not rs_house.EOF And Not rs_house.BOF Then</p><p>　　For i = 0 To 7</p><p>　　Text1(

81、i).Text = rs_house.Fields(i)</p><p><b>　　Next i</b></p><p>　　If rs_house.Fields(8) = "已租" Then</p><p>　　Combo1.ListIndex = 0</p><p>　　ElseIf rs_ho

82、use.Fields(8) = "未租" Then</p><p>　　Combo1.ListIndex = 1</p><p>　　ElseIf rs_house.Fields(8) = "意向" Then</p><p>　　Combo1.ListIndex = 2</p><p><b>

83、;　　End If</b></p><p>　　cmdEdit.Enabled = True</p><p>　　cmdDel.Enabled = True</p><p>　　cmdFirst.Enabled = True</p><p>　　cmdPrev.Enabled = True</p><p>

84、　　cmdNext.Enabled = True</p><p>　　cmdLast.Enabled = True</p><p>　　'如果沒有數(shù)據(jù)，則顯示空</p><p><b>　　Else</b></p><p>　　For i = 0 To 7</p><p>　　Text1(

85、i).Text = ""</p><p><b>　　Next i</b></p><p>　　cmdEdit.Enabled = False</p><p>　　cmdDel.Enabled = False</p><p>　　cmdFirst.Enabled = False</p>

86、<p>　　cmdPrev.Enabled = False</p><p>　　cmdNext.Enabled = False</p><p>　　cmdLast.Enabled = False</p><p><b>　　End If</b></p><p>　　'如果是修改后取消，則恢復(fù)到修改前的數(shù)

87、據(jù)</p><p>　　ElseIf add = 0 Then</p><p>　　For i = 0 To 7</p><p>　　Text1(i).Text = rs_house.Fields(i)</p><p><b>　　Next i</b></p><p>　　If rs_house.

88、Fields(8) = "已租" Then</p><p>　　Combo1.ListIndex = 0</p><p>　　ElseIf rs_house.Fields(8) = "未租" Then</p><p>　　Combo1.ListIndex = 1</p><p>　　ElseIf rs_

89、house.Fields(8) = "意向" Then</p><p>　　Combo1.ListIndex = 2</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　'開始時(shí)設(shè)置各個(gè)text框不可寫&

90、lt;/p><p>　　For i = 0 To 7</p><p>　　Text1(i).Enabled = False</p><p><b>　　Next i</b></p><p>　　'先設(shè)置ComboBox的默認(rèn)值及不可改</p><p>　　Combo1.Enabled = Fa

91、lse</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdClose_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p

92、><b>　　刪除按鈕的源代碼：</b></p><p>　　Private Sub cmdDel_Click()</p><p>　　'當(dāng)單擊刪除記錄時(shí)，需要彈出一個(gè)提示框，警告用戶</p><p>　　Dim answer As String</p><p>　　answer = MsgBox(&quo

93、t;確定要?jiǎng)h除嗎？", vbYesNo, "")</p><p><b>　　'確實(shí)刪除</b></p><p>　　If answer = vbYes Then</p><p>　　rs_house.Delete '刪除當(dāng)前記錄</p><p>　　rs_house.Up

94、date '更新刪除</p><p>　　MsgBox "成功刪除！", vbOKOnly + vbExclamation, ""</p><p><b>　　Else</b></p><p><b>　　Exit Sub</b></p><p>&

95、lt;b>　　End If</b></p><p>　　'刪除之后，顯示總信息條數(shù)需要減 1</p><p>　　Text2.Text = Val(Text2.Text) - 1</p><p>　　'刪除當(dāng)前記錄后，需要顯示下一條記錄，如果刪除的是最后一條記錄，則顯示上一條記錄</p><p>　　'

96、;先移動(dòng)rs_house記錄到后一條</p><p>　　rs_house.MoveNext</p><p>　　If rs_house.EOF Then</p><p>　　rs_house.MovePrevious</p><p>　　'如果沒有到記錄首則顯示該記錄</p><p>　　If Not rs_

97、house.BOF Then</p><p>　　For i = 0 To 7</p><p>　　Text1(i).Text = rs_house.Fields(i)</p><p><b>　　Next i</b></p><p>　　If rs_house.Fields(8) = "已租" Th

98、en</p><p>　　Combo1.ListIndex = 0</p><p>　　ElseIf rs_house.Fields(8) = "未租" Then</p><p>　　Combo1.ListIndex = 1</p><p>　　ElseIf rs_house.Fields(8) = "意向&qu

99、ot; Then</p><p>　　Combo1.ListIndex = 2</p><p><b>　　End If</b></p><p>　　'如果到記錄首，則表格已經(jīng)為空，置所有text框顯示為空</p><p>　　ElseIf rs_house.BOF Then</p><p&g

100、t;　　For i = 0 To 7</p><p>　　Text1(i).Text = ""</p><p><b>　　Next i</b></p><p>　　cmdFirst.Enabled = False</p><p>　　cmdPrev.Enabled = False</p>

101、<p>　　cmdNext.Enabled = False</p><p>　　cmdLast.Enabled = False</p><p><b>　　End If</b></p><p>　　'如果刪除的不是首尾記錄，則顯示當(dāng)前記錄即可</p><p><b>　　Else</

102、b></p><p>　　For i = 0 To 7</p><p>　　Text1(i).Text = rs_house.Fields(i)</p><p><b>　　Next i</b></p><p>　　If rs_house.Fields(8) = "已租" Then</p&

103、gt;<p>　　Combo1.ListIndex = 0</p><p>　　ElseIf rs_house.Fields(8) = "未租" Then</p><p>　　Combo1.ListIndex = 1</p><p>　　ElseIf rs_house.Fields(8) = "意向" Then&

104、lt;/p><p>　　Combo1.ListIndex = 2</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p><b>　　保

105、存按鈕的源代碼：</b></p><p>　　Private Sub cmdEdit_Click()</p><p>　　'設(shè)置除保存和取消按鈕外的其他按鈕不可用</p><p>　　cmdAdd.Enabled = False</p><p>　　cmdEdit.Enabled = False</p>&l

106、t;p>　　cmdDel.Enabled = False</p><p>　　cmdSave.Enabled = True</p><p>　　cmdCancel.Enabled = True</p><p>　　cmdFirst.Enabled = False</p><p>　　cmdPrev.Enabled = False<

107、/p><p>　　cmdNext.Enabled = False</p><p>　　cmdLast.Enabled = False</p><p>　　cmdQuery.Enabled = False</p><p>　　'需要設(shè)置除主鍵之外的text框可寫</p><p>　　For i = 1 To 7<

108、;/p><p>　　Text1(i).Enabled = True</p><p><b>　　Next i</b></p><p>　　Combo1.Enabled = True</p><p><b>　　add = 0</b></p><p><b>　　End

109、Sub</b></p><p>　　Private Sub cmdFirst_Click()</p><p>　　'先移動(dòng)rs_house記錄到第一條</p><p>　　rs_house.MoveFirst</p><p>　　'同時(shí)需要設(shè)置相應(yīng)按鈕為不可用和不可用</p><p>　　c

110、mdPrev.Enabled = False</p><p>　　cmdFirst.Enabled = False</p><p>　　cmdNext.Enabled = True</p><p>　　cmdLast.Enabled = True</p><p>　　'如果已經(jīng)是第一條記錄，則提示用戶</p><p

111、>　　If rs_house.BOF = True Then</p><p>　　MsgBox "對(duì)不起，已經(jīng)是第一條記錄了！", vbOKOnly + vbInformation, "注意"</p><p><b>　　Exit Sub</b></p><p>　　'如果不是，則個(gè)數(shù)據(jù)表的

112、記錄位置移到第一條記錄，并且顯示之</p><p><b>　　Else</b></p><p>　　For i = 0 To 7</p><p>　　Text1(i).Text = rs_house.Fields(i)</p><p><b>　　Next i</b></p><

113、;p>　　If rs_house.Fields(8) = "已租" Then</p><p>　　Combo1.ListIndex = 0</p><p>　　ElseIf rs_house.Fields(8) = "未租" Then</p><p>　　Combo1.ListIndex = 1</p>&

114、lt;p>　　ElseIf rs_house.Fields(8) = "意向" Then</p><p>　　Combo1.ListIndex = 2</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　E

115、nd SubPREV</p><p><b>　　檢索按鈕的源代碼：</b></p><p>　　4．3．2 客戶資料管理模塊的設(shè)計(jì)</p><p>　　4．3．2．1租戶基本資料的設(shè)計(jì)</p><p>　　運(yùn)行效果圖如下所示:</p><p>　　在租戶基本資料中，我們重點(diǎn)分析查找家庭租戶功能的

116、源碼，如下:</p><p>　　Private Sub cmdQuery_Click()</p><p>　　If Text1.Text = "" Then</p><p>　　MsgBox "查詢條件不可為空！", vbOKOnly + vbInformation, "注意"</p>&l

117、t;p>　　Text1.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　'設(shè)置查詢家庭租戶變量為真</p><p>　　querycf = True</p><p>　

118、　sqlqcf = " where " & Combo1.Text & " = " & "'" & Text1.Text & "'"</p><p>　　frmClient.Show</p><p><b>　　'關(guān)閉本窗體</b&

119、gt;</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　4．3．2．2求租戶基本資料的設(shè)計(jì)</p><p>　　其保存按鈕的源碼分析如下：</p><p>　　Private Sub cmdSav

120、e_Click()</p><p><b>　　'檢測(cè)數(shù)據(jù)是否完整</b></p><p>　　If Text1(0).Text = "" Then</p><p>　　MsgBox "求租客戶編號(hào)不可為空！", vbOKOnly + vbInformation, "注意"&l

121、t;/p><p>　　Text1(0).SetFocus</p><p><b>　　Exit Sub</b></p><p>　　ElseIf Text1(1).Text = "" Then</p><p>　　MsgBox "求租客戶姓名不可為空！", vbOKOnly + vbI

122、nformation, "注意"</p><p>　　Text1(1).SetFocus</p><p><b>　　Exit Sub</b></p><p>　　ElseIf Text1(2).Text = "" Then</p><p>　　MsgBox "求租客戶電

123、話不可為空！", vbOKOnly + vbInformation, "注意"</p><p>　　Text1(2).SetFocus</p><p><b>　　Exit Sub</b></p><p>　　ElseIf Not Text1(4).Text = "" And IsNumeric

124、(Text1(4).Text) = False Then</p><p>　　MsgBox "面積要求不為空則應(yīng)為數(shù)字！", vbOKOnly + vbInformation, "注意"</p><p>　　Text1(4).SetFocus</p><p><b>　　Exit Sub</b></

125、p><p>　　ElseIf Not Text1(6).Text = "" And IsNumeric(Text1(6).Text) = False Then</p><p>　　MsgBox "意向價(jià)位不為空則應(yīng)為數(shù)字！", vbOKOnly + vbInformation, "注意"</p><p>　　T