畢業(yè)設(shè)計(jì)房屋租憑管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)

1、編編 號(hào)號(hào) 本本科科畢畢業(yè)業(yè)設(shè)設(shè)計(jì)計(jì)（論論文文） 題目：題目： 房屋租憑管理系統(tǒng)房屋租憑管理系統(tǒng) 學(xué)學(xué) 院院 （ 系系 ） 專專 業(yè)業(yè) 學(xué) 號(hào)： 學(xué)生姓名： 指導(dǎo)教師： （職稱： ） 201 年年 月月 摘要摘要 隨著我國(guó)市場(chǎng)經(jīng)濟(jì)的快速發(fā)展和人們生活水平的不斷提高，簡(jiǎn)單的租憑服 務(wù)已經(jīng)不能滿足人們的需求。如何利用先進(jìn)的管理手段，提高房屋租憑管理水 平，是當(dāng)今社會(huì)所面臨的一個(gè)重要課題。本文通過(guò)用 vb6.0 編寫房屋租賃管理 系統(tǒng)，利用軟件工程原理，采用面向?qū)ο蟮木幊谭椒ǎ溟_(kāi)發(fā)主要包括后臺(tái)數(shù) 據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面，實(shí)現(xiàn)了房屋租賃管理的 自動(dòng)化和信息化. 整個(gè)系統(tǒng)從符合

2、操作簡(jiǎn)便、界面友好、靈活、實(shí)用、安全的要求出發(fā)，完 成基本資料管理、客戶資料管理、租憑合同管理、財(cái)務(wù)管理、統(tǒng)計(jì)報(bào)表管理等 功能.經(jīng)過(guò)實(shí)際測(cè)試證明，本文所設(shè)計(jì)的房屋租賃管理系統(tǒng)可以用于物業(yè)管理部 門從事房屋租賃信息管理方面的需要。 論文主要介紹了本課題的開(kāi)發(fā)背景，所要完成的功能和開(kāi)發(fā)的全過(guò)程。重 點(diǎn)的說(shuō)明了系統(tǒng)設(shè)計(jì)的重點(diǎn)、設(shè)計(jì)思想、難點(diǎn)技術(shù)和解決方案。 關(guān)關(guān)鍵鍵詞詞：數(shù)數(shù)據(jù)據(jù)庫(kù)庫(kù) v vi is su ua al l b ba as si ic c 6 6. .0 0 房房屋屋租租賃賃管管理理系系統(tǒng)統(tǒng) abstract with the rapid development of the mark

3、et economy of our country and people living standard rise ceaselessly, the simplicity of the lease service already cant satisfy peoples needs. how to use the advanced management method, improve the level of management, the rental house facing society today is an important issue. this article through

4、 to write with vb6.0 house lease management system, the use of software engineering theory, by using object oriented programming method, and its development mainly includes the backstage database the establishment and the maintenance and development of front application program of two aspects, reali

5、zed the automation of house lease management and information. from the entire system to operate and friendly interface, flexible, practical, safe, complete the requirement of basic data management, customer data management, the rental contract management, financial management, statistics management

6、etc. function. after the actual test, this paper designed the house lease management system can be used in property management department engaged in house lease information management needs. paper mainly introduced this topic development background; want to complete the whole process of the function

7、 and development. the focus of the explanation of the system design, design thoughts, the focus of some technical and solutions. keywords: database visual basic 6.0 house lease management system 目目 錄錄 摘要摘要.1 第一章第一章 序論序論.1 1.1 課題來(lái)源 .1 1.2 開(kāi)發(fā)背景和開(kāi)發(fā)目的.1 1.3 本文所做的工作 .2 第二章第二章 需求分析需求分析.3 2.1 應(yīng)用現(xiàn)狀調(diào)查 .3 2.2

8、 系統(tǒng)目標(biāo) .3 2.3 可行性分析 .3 2.3.1經(jīng)濟(jì)可行性分析.3 2.3.2操作可行性分析.4 2.3.3技術(shù)可行性分析.4 2.4.1 業(yè)務(wù)流程圖.4 2.4.2 數(shù)據(jù)流分析.5 2.4.3 系統(tǒng)功能需求 .6 第三章第三章 總體設(shè)計(jì)總體設(shè)計(jì).7 3.2 系統(tǒng)模塊設(shè)計(jì).7 3.2.1 系統(tǒng)功能分析.7 3.2.2系統(tǒng)功能模塊圖.8 3.3 數(shù)據(jù)庫(kù)的設(shè)計(jì) .10 3.4 數(shù)據(jù)庫(kù)的選擇.10 第四章第四章 相關(guān)技術(shù)簡(jiǎn)介相關(guān)技術(shù)簡(jiǎn)介.10 4.1 microsoft visual basic 的技術(shù)簡(jiǎn)介.10 4.2microsoft access技術(shù)簡(jiǎn)介.14 第五章第五章 房屋租賃管理

9、系統(tǒng)的詳細(xì)設(shè)計(jì)房屋租賃管理系統(tǒng)的詳細(xì)設(shè)計(jì).15 5.1 數(shù)據(jù)庫(kù)的實(shí)現(xiàn) .15 5.2 系統(tǒng)主界面的設(shè)計(jì) .18 5.3 各主要功能模塊的設(shè)計(jì)與實(shí)現(xiàn) .20 531基本資料管理模塊設(shè)計(jì).20 532 客戶資料管理模塊的設(shè)計(jì).28 533 租賃管理模塊的設(shè)計(jì).33 534財(cái)務(wù)管理模塊的設(shè)計(jì).41 535 統(tǒng)計(jì)報(bào)表模塊的設(shè)計(jì).43 第六章第六章 主菜單的設(shè)計(jì)及系統(tǒng)連編主菜單的設(shè)計(jì)及系統(tǒng)連編.47 6.1 主菜單的設(shè)計(jì).47 6.2 系統(tǒng)的編譯與發(fā)行.48 第七章第七章 畢業(yè)設(shè)計(jì)小結(jié)畢業(yè)設(shè)計(jì)小結(jié).49 參考文獻(xiàn)參考文獻(xiàn).50 致致 謝謝.50 第一章第一章 序論序論 1.11.1 課題來(lái)源課題來(lái)源 隨

10、著我國(guó)市場(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)，利用高科技手段來(lái)提高房屋租 賃管理無(wú)疑是一條行之有效的途徑。在某種意義上，信息與科技在企業(yè)管理與 現(xiàn)代化建設(shè)中顯現(xiàn)出越來(lái)越重要的地位。房租租賃管理方面的信息化與科學(xué)化， 已成為現(xiàn)代化生活水平步入高臺(tái)階的重要標(biāo)志。 隨著計(jì)算機(jī)技術(shù)不斷的飛速發(fā)展，計(jì)算機(jī)以及計(jì)算機(jī)控制的自動(dòng)處理技術(shù) 已融入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。對(duì)于當(dāng)今的科學(xué)信息 是一

11、次重大的飛越，為人們的生活、工作、學(xué)習(xí)帶來(lái)潛移默化的影響。今天我 們使用計(jì)算機(jī)對(duì)房屋租賃信息進(jìn)行管理，具有手工管理所無(wú)法比擬的優(yōu)點(diǎn)。例 如：檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低 等。這些優(yōu)點(diǎn)能夠極大地提高房屋租賃管理的效率。面對(duì)目前的實(shí)際狀況，迫 切需要開(kāi)發(fā)一個(gè)新系統(tǒng)來(lái)適應(yīng)這一些工作. 1.21.2 開(kāi)發(fā)背景和開(kāi)發(fā)目的開(kāi)發(fā)背景和開(kāi)發(fā)目的 利用計(jì)算機(jī)實(shí)現(xiàn)物業(yè)管理中的房屋租賃管理勢(shì)在必行。對(duì)于物業(yè)管理企業(yè) 來(lái)說(shuō)，利用計(jì)算機(jī)支持企業(yè)高效率完成房屋租賃管理的日常事務(wù)，是適應(yīng)現(xiàn)代 企業(yè)制度要求、推動(dòng)企業(yè)勞動(dòng)型管理走向科學(xué)化、規(guī)范化的必要條件；而房屋 租賃管理是一項(xiàng)瑣碎、復(fù)雜而

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

13、 1.31.3 本文所做的工作本文所做的工作 第一章 緒論部分主要敘述課題來(lái)源、開(kāi)發(fā)背景和開(kāi)發(fā)目的,可行性分析,分 析比較當(dāng)前開(kāi)發(fā)工具，數(shù)據(jù)庫(kù)技術(shù)的比較。 第二章 結(jié)合軟件工程方法，對(duì)系統(tǒng)進(jìn)行需求分析、系統(tǒng)目標(biāo)和應(yīng)用現(xiàn)狀調(diào) 查、系統(tǒng)總體流程圖與功能調(diào)查圖繪制與分析。 第三章 在需求分析的基礎(chǔ)上選擇好開(kāi)發(fā)工具,并對(duì)開(kāi)發(fā)工具做簡(jiǎn)要描述. 第四章 根據(jù)需求分析的結(jié)果，對(duì)系統(tǒng)進(jìn)行概要設(shè)計(jì)，主要介紹用 visual basic 6.0 創(chuàng)建應(yīng)用程序的步驟,以及在本系統(tǒng)開(kāi)發(fā)的所用到控件.實(shí)現(xiàn)每一個(gè) 模塊的具體功能。 第五章 根據(jù)第四章的創(chuàng)建應(yīng)用程序步驟及 visual basic6.0 提供的控件進(jìn) 行房

14、屋租賃管理系統(tǒng)的詳細(xì)設(shè)計(jì).重點(diǎn)分析數(shù)據(jù)庫(kù)的設(shè)計(jì)以及主要功能模塊的實(shí) 現(xiàn). 第六章 在完成了主要功能模塊的設(shè)計(jì)后,本章進(jìn)行的系統(tǒng)主程序的設(shè)計(jì),以 及怎樣在 visual basic 6.0 環(huán)境下生成應(yīng)用程序. 第七章 畢業(yè)設(shè)計(jì)小結(jié)，總結(jié)部分介紹了設(shè)計(jì)體會(huì)和編程體會(huì). 設(shè)計(jì)存在的 不足,及今后的學(xué)習(xí)方向. 第二章第二章 需求分析需求分析 2.12.1 應(yīng)用現(xiàn)狀調(diào)查應(yīng)用現(xiàn)狀調(diào)查 當(dāng)前，很多物業(yè)管理企業(yè)的房屋租賃信息管理都是以紙張為介質(zhì)作記錄， 人力管理的比例比較大,往往是各個(gè)主要負(fù)責(zé)人以書面的形式管理房屋租賃信息,效 率低下。數(shù)據(jù)打印,匯總,成績(jī)更新不及時(shí)，容易丟失,損壞數(shù)據(jù)給學(xué)校學(xué)生帶來(lái) 損失,

15、不易保存且數(shù)據(jù)保密性較差。 2.22.2 系統(tǒng)目標(biāo)系統(tǒng)目標(biāo) 采用企業(yè)現(xiàn)有的軟硬件環(huán)境及科學(xué)的管理系統(tǒng)開(kāi)發(fā)方案，建立房屋租賃信 息管理系統(tǒng)，實(shí)現(xiàn)房屋租賃信息管理的計(jì)算機(jī)自動(dòng)化。 系統(tǒng)應(yīng)符合物業(yè)管理企業(yè)原有的房屋租賃管理制度，并達(dá)到操作直觀、方 便、實(shí)用、安全等要求。 2.32.3 可行性分析可行性分析 2.3.12.3.1 經(jīng)濟(jì)可行性分析經(jīng)濟(jì)可行性分析 本系統(tǒng)開(kāi)發(fā)簡(jiǎn)單但要耗去一定的時(shí)間，所用的開(kāi)發(fā)工具和軟件都差不多是 免費(fèi)的。而且，由于系統(tǒng)能夠在未來(lái)較長(zhǎng)的一段時(shí)期內(nèi)穩(wěn)定地發(fā)揮作用，這對(duì) 于學(xué)生房屋租賃信息的自動(dòng)化管理，稱業(yè)管理企業(yè)的人力和財(cái)力都有很大的幫 助。由此可見(jiàn)在，開(kāi)發(fā)此系統(tǒng)在經(jīng)濟(jì)上是完全

16、可行的。 2.3.22.3.2 操作可行性分析操作可行性分析 如今的計(jì)算機(jī)已經(jīng)走進(jìn)千家萬(wàn)戶，硬件成本的下降，導(dǎo)致計(jì)算機(jī)購(gòu)買成本 的降低.我的這套系統(tǒng)是利用自己的計(jì)算機(jī)加 microsoft visual foxpro6.0 作 為軟件的開(kāi)發(fā)平臺(tái)，使開(kāi)發(fā)出來(lái)的系統(tǒng)有友好的用戶界面、有良好的安全性設(shè) 置、有詳細(xì)的操作說(shuō)明書，這樣更使各類用戶很快地掌握系統(tǒng)的使用方法,操作 友好因此在操作上是可行的. 2.3.32.3.3 技術(shù)可行性分析技術(shù)可行性分析 從目前 it 業(yè)界比較流行的數(shù)據(jù)庫(kù)開(kāi)發(fā)、管理軟件來(lái)看，對(duì)于比較簡(jiǎn)單的中 小型數(shù)據(jù)庫(kù)，visual basic 6.0 和 windows 2000 的

17、結(jié)合無(wú)疑是在實(shí)際應(yīng)用中 較為成功的一種解決方案。為用戶提供了業(yè)界軟件開(kāi)發(fā)一直堅(jiān)持的非常友好、 操作簡(jiǎn)單的用戶界面、完善強(qiáng)大的數(shù)據(jù)庫(kù)操作功能和簡(jiǎn)潔明了的數(shù)據(jù)庫(kù)接口。 所以技術(shù)實(shí)行起來(lái)相對(duì)會(huì)容易。 2.42.4 系統(tǒng)需求分析系統(tǒng)需求分析 2.2.4.14.1 業(yè)務(wù)流程圖業(yè)務(wù)流程圖 圖 2-1 業(yè)務(wù)流程圖 2.4.22.4.2 數(shù)據(jù)流分析數(shù)據(jù)流分析 圖 2-2 數(shù)據(jù)流程圖 整個(gè)系統(tǒng)從總體上分為基本資料管理、客戶資料管理、租賃管理、財(cái)務(wù)管 理以及統(tǒng)計(jì)報(bào)表五大部分，每一部分實(shí)現(xiàn)的功能如下： 基本資料管理功能： 實(shí)現(xiàn)房屋基本資料的管理. 客戶資料管理： 分租戶基本資料跟求租戶基本資料管理 租賃管理： 分為

18、合同簽訂，合同續(xù)簽，合同管理，預(yù)定租房，合同查詢，預(yù)定單查詢， 出租到期提醒，預(yù)定到期提醒。 房屋登記 基本信息輸 入 定金管理 下定金，預(yù)定管理 合同簽訂 押金管理 租戶求租資 料 客戶登記信息 求租 財(cái)務(wù)管理功能 分定金、押金、租金收取，租金管理，定金退還，押金退還。 統(tǒng)計(jì)報(bào)表功能： 房屋統(tǒng)計(jì)報(bào)表，租戶統(tǒng)計(jì)報(bào)表，求租客戶信息表，歷史租戶表，現(xiàn)有合同 表，歷史合同表，預(yù)定金統(tǒng)計(jì)，押金，定金統(tǒng)計(jì)，租金統(tǒng)計(jì)等功能 2.4.32.4.3 系統(tǒng)功能系統(tǒng)功能需求需求 該系統(tǒng)主要完成房屋出租，合同簽訂，合同查詢，租金收取，租金統(tǒng)計(jì)等 功能。要求界面美觀、大方，且操作方便簡(jiǎn)易。 2.4.3.1 系統(tǒng)性能需

19、求 （1）界面友好化：界面簡(jiǎn)單，易操作； （2）操作簡(jiǎn)便：用鼠標(biāo)、鍵盤就能實(shí)現(xiàn)數(shù)據(jù)的采集、統(tǒng)計(jì)等功能； （3）功能強(qiáng)大：能進(jìn)行收集基本資料，合同簽訂，租金收取，租金統(tǒng)計(jì) 等。 （4）結(jié)構(gòu)合理：整個(gè)系統(tǒng)采用模塊化管理； （5）技術(shù)先進(jìn)：采用 microsoft 公司的 visual basic，microsoft 公司的 access 制作，技術(shù)成熟，維護(hù)方便。 2.4.3.2 系統(tǒng)運(yùn)行需求 （1）操作系統(tǒng)要求為 windows 98/nt/2000/xp。 （2）最低硬件要求為能運(yùn)行 windows 98 以上操作系統(tǒng)。 （3）系統(tǒng)中要求有 microsoft 公司的 visual basic

20、，microsoft 公司的 access 制作. （4）基本的支持硬件有：鼠標(biāo)，鍵盤，打印機(jī)等基本設(shè)備。 第三章第三章 總體設(shè)計(jì)總體設(shè)計(jì) 3.13.1 系統(tǒng)總體設(shè)計(jì)思想系統(tǒng)總體設(shè)計(jì)思想 本系統(tǒng)采用 b/s 結(jié)構(gòu)。該系統(tǒng)實(shí)現(xiàn)的主要功能有：基本房屋資料，租憑管 理，財(cái)務(wù)管理，統(tǒng)計(jì)報(bào)表，可以刪除數(shù)據(jù)等等。 該系統(tǒng)的界面應(yīng)該友好、大方、美觀，讓用戶能夠非常清楚地根據(jù)頁(yè) 面上的功能項(xiàng)知道它是實(shí)現(xiàn)什么功能的；同時(shí)，將相似的功能項(xiàng)目集結(jié)在一個(gè) 父項(xiàng)目下，使得頁(yè)面安排更加簡(jiǎn)潔明了,用戶更容易操作。 3.23.2 系統(tǒng)模塊設(shè)計(jì)系統(tǒng)模塊設(shè)計(jì) 3.2.13.2.1 系統(tǒng)功能分析系統(tǒng)功能分析 本系統(tǒng)主要有 6 個(gè)模

21、塊，分別是客戶信息模塊，定金模塊，房屋模塊，押金模 塊，求租模塊，預(yù)定模塊。 （1）客戶信息模塊 該模塊主要有：客戶編號(hào)，租戶姓名，工作單位，聯(lián)系電話，性別，租戶 人數(shù)，身份證編號(hào)，備注。 （2）定金模塊 該模塊主要有：收費(fèi)編號(hào)，定金金額，預(yù)定金編號(hào)，收費(fèi)日期，預(yù)定客戶， 預(yù)訂房屋編號(hào)，備注 （3）房屋模塊 該模塊主要有：房屋編號(hào)，物業(yè)地址，房型，建筑面積，使用面積，裝 修情況，出租價(jià)位，目前狀態(tài)，備注。 （4）押金模塊 該模塊主要有：收費(fèi)編號(hào)，押金金額，收費(fèi)日期，合同編號(hào)，客戶姓名， 房屋編號(hào)，備注。 （5）求租模塊 該模塊主要有：求租客戶編號(hào)，求租客戶姓名，電話，房型要求，面積 要求，裝修

22、要求，意向價(jià)位，意向房屋編號(hào)，備注。 （6）租金模塊 該模塊主要有：收費(fèi)編號(hào)，租金年份，租金月份，應(yīng)交租金，已交租金， 久費(fèi)金額，客戶姓名，交費(fèi)日期，備注。 3.2.23.2.2 系統(tǒng)功能模塊圖系統(tǒng)功能模塊圖 房屋租賃管理系統(tǒng) 基本資料客戶資料租賃管理財(cái)務(wù)管理統(tǒng)計(jì)報(bào)表 房屋基本管理 租戶基本資料 求租客戶資料 合同續(xù)簽 合同管理 預(yù)定租房 合同查詢 預(yù)定單查詢 出租到期提醒 預(yù)定到期提醒 合同簽定 財(cái)務(wù)管理 財(cái)務(wù)財(cái)務(wù)管理 定金收取 租金收取 押金收取 租金管理 定金退還 押金退還 統(tǒng)計(jì)報(bào)表 財(cái)務(wù)財(cái)務(wù)管理 基本資料 基本資料 基本資料 基本資料 基本資料 預(yù)定單統(tǒng)計(jì) 租戶信息表 求租客戶 房屋統(tǒng)

23、計(jì) 歷史租戶 現(xiàn)有合同 歷史合同 定金統(tǒng)計(jì) 租金統(tǒng)計(jì) 圖 3-1 系統(tǒng)功能模塊圖 3.33.3 數(shù)據(jù)庫(kù)的設(shè)計(jì)數(shù)據(jù)庫(kù)的設(shè)計(jì) 根據(jù)前面的分析，數(shù)據(jù)庫(kù)的關(guān)系模式設(shè)計(jì)如下： 客戶信息（客戶編號(hào)，租戶姓名，工作單位，聯(lián)系電話，性別，租戶人數(shù)，身 份證編號(hào)） 定金（收費(fèi)編號(hào)，定金金額，預(yù)定金編號(hào)，收費(fèi)日期，預(yù)定客戶，預(yù)訂房屋編 號(hào)） 房屋（房屋編號(hào)，物業(yè)地址，房型，建筑面積，使用面積，裝修情況，出租價(jià) 位，目前狀態(tài)） 押金（收費(fèi)編號(hào)，押金金額，收費(fèi)日期，合同編號(hào)，客戶姓名，房屋編號(hào)） 求租（求租客戶編號(hào)，求租客戶姓名，電話，房型要求，面積要求，裝修要求， 意向價(jià)位，意向房屋編號(hào)） 租金（收費(fèi)編號(hào)，租金年份

24、，租金月份，應(yīng)交租金，已交租金，久費(fèi)金額，客 戶姓名，交費(fèi)日期） 3.43.4 數(shù)據(jù)庫(kù)的選擇數(shù)據(jù)庫(kù)的選擇 根據(jù)前面的要求,我選擇的開(kāi)發(fā)平臺(tái)是 windowsxp，后臺(tái)數(shù)據(jù)庫(kù)選的是 microsoft access. 第四章第四章 相關(guān)技術(shù)簡(jiǎn)介相關(guān)技術(shù)簡(jiǎn)介 4.1 microsoft visual basic 的技術(shù)簡(jiǎn)介的技術(shù)簡(jiǎn)介 現(xiàn)在，市場(chǎng)上可以選購(gòu)的應(yīng)用開(kāi)發(fā)產(chǎn)品很多，流行的也有數(shù)十種。目前在 我國(guó)市場(chǎng)上最為流行、使用最多、最為先進(jìn)的可用作企業(yè)級(jí)開(kāi)發(fā)工具的產(chǎn)品有： microsoft 公司的 visual basic microsoft 公司的 visual c microsoft 公司的 v

25、isual foxpro borland 公司的 delphi powersoft 公司的 powerbulider java 等等 在目前市場(chǎng)上這些眾多的程序開(kāi)發(fā)工具中，有些強(qiáng)調(diào)程序語(yǔ)言的彈性與執(zhí) 行效率；有些則偏重于可視化程序開(kāi)發(fā)工具所帶來(lái)的便利性與效率的得高，各 有各的優(yōu)點(diǎn)和特色，也滿足了不同用戶的需求。然而，語(yǔ)言的彈性和工具的便 利性是密不可分的，只有便利的工具，卻沒(méi)有彈性的語(yǔ)言作支持，許多特殊化 的處理動(dòng)作必需要耗費(fèi)數(shù)倍的工夫來(lái)處理，使得原來(lái)所標(biāo)榜的效率提高的優(yōu)點(diǎn) 失去了作用；相反，如果只強(qiáng)調(diào)程序語(yǔ)言的彈性，卻沒(méi)有便利的工具作配合， 會(huì)使一些即使非常簡(jiǎn)單的界面處理動(dòng)作，也會(huì)嚴(yán)重地浪費(fèi)

26、程序設(shè)計(jì)師的寶貴時(shí) 間。 visual basic 是美國(guó)微軟公司的第一個(gè)編程工具和系統(tǒng)開(kāi)發(fā)的第一個(gè)產(chǎn)品， visual basic 以優(yōu)良的性能、較強(qiáng)的系統(tǒng)開(kāi)發(fā)功能、完美的視覺(jué)界面和簡(jiǎn)單易 學(xué)的特點(diǎn)，已經(jīng)贏得了全世界廣大用戶的偏愛(ài)。visual basic 的編程環(huán)境包含 了快速有效的開(kāi)發(fā)功能，尤其是數(shù)據(jù)窗口這一方便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化 對(duì)象，使系統(tǒng)的開(kāi)發(fā)更人性化，操作更簡(jiǎn)便。 作為管理信息系統(tǒng)的開(kāi)發(fā)，visual basic 是一個(gè)非常理想選擇。visual basic 是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)， 可用于開(kāi)發(fā) windows 環(huán)境下的種類應(yīng)用程序。

27、它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng) 大，可以與 windows 的專業(yè)開(kāi)發(fā)工具 sdk 相媲美，而且程序開(kāi)發(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) 鏈接庫(kù)(dll)、動(dòng)態(tài)數(shù)據(jù)交換(dde)、對(duì)象的鏈接與嵌入(ole)、開(kāi)放式數(shù)據(jù)訪問(wèn) (odbc)等技術(shù)，可以高效、快速地開(kāi)發(fā)出 windows 環(huán)境下功能強(qiáng)大、圖形界面 豐富的應(yīng)用軟件系統(tǒng)。 總的來(lái)說(shuō)，visual basic6.0 具有以下特點(diǎn)： visual basic 是一種可視化的、面對(duì)對(duì)象和條用事

28、件驅(qū)動(dòng)方式的結(jié)構(gòu)化高 級(jí)程序設(shè)計(jì)，可用于開(kāi)發(fā) windows 環(huán)境下的種類應(yīng)用程序。它簡(jiǎn)單易學(xué)、效率 高，且功能強(qiáng)大，可以與 windows 的專業(yè)開(kāi)發(fā)工具 sdk 相媲美，而且程序開(kāi)發(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)鏈接庫(kù)(dll)、動(dòng)態(tài)數(shù)據(jù)交換(dde)、對(duì)象的鏈接與嵌入(ole)、開(kāi) 放式數(shù)據(jù)訪問(wèn)(odbc)等技術(shù)，可以高效、快速地開(kāi)發(fā)出 windows 環(huán)境下功能強(qiáng) 大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。 可視化編程： 用傳統(tǒng)程序設(shè)計(jì)語(yǔ)

29、言設(shè)計(jì)程序時(shí)，都是通過(guò)編寫程序代碼來(lái)設(shè)計(jì)用戶界面， 在設(shè)計(jì)過(guò)程中看不到界面的實(shí)際顯示效果，必須編譯后運(yùn)行程序才能觀察。如 果對(duì)界面的效果不滿意，還要回到程序中修改。有時(shí)候，這種編程-編譯-修改 的操作可能要反復(fù)多次，大大影響了軟件開(kāi)發(fā)效率。visual basic 提供了可視 化設(shè)計(jì)工具，把 windows 界面設(shè)計(jì)的復(fù)雜性“封裝”起來(lái)，開(kāi)發(fā)人員不必為界 面設(shè)計(jì)而編寫大量程序代碼。只需要按設(shè)計(jì)要求的屏幕布局，用系統(tǒng)提供的工 具，在屏幕上畫出各種“部件” ，即圖形對(duì)象，并設(shè)置這些圖形對(duì)象的屬性。 visual basic 自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫實(shí)現(xiàn)程序功能 的那部分代碼，從

30、而可以大大提高程序設(shè)計(jì)的效率。 面向?qū)ο蟮某绦蛟O(shè)計(jì) 4.0 版以后的 visual basic 支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，但它與一般的面向 對(duì)象的程序設(shè)計(jì)語(yǔ)言(c+)不完全相同。在一般的面向?qū)ο蟪绦蛟O(shè)計(jì)語(yǔ)言中，對(duì) 象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而 visual basic 則是應(yīng)用面向?qū)ο?的程序設(shè)計(jì)方法(oop)，把程序和數(shù)據(jù)封裝起來(lái)作為一個(gè)對(duì)象，并為每個(gè)對(duì)象賦 予應(yīng)有的屬性，使對(duì)象成為實(shí)在的東西。在設(shè)計(jì)對(duì)象時(shí)，不必編寫建立和描述 每個(gè)對(duì)象的程序代碼，而是用工具畫在界面上，visual basic 自動(dòng)生成對(duì)象的 程序代碼并封裝起來(lái)。每個(gè)對(duì)象以圖形方式顯示在界面上，都是可視的。 結(jié)構(gòu)化

31、程序設(shè)計(jì)語(yǔ)言 visual basic 是在 basic 語(yǔ)言的基礎(chǔ)上發(fā)展起來(lái)的，具有高級(jí)程序設(shè)計(jì)語(yǔ) 言的語(yǔ)句結(jié)構(gòu)，接近于自然語(yǔ)言和人類的邏輯思維方式。visual basic 語(yǔ)句簡(jiǎn) 單易懂，其編輯器支持彩色代碼，可自動(dòng)進(jìn)行語(yǔ)法錯(cuò)誤檢查，同時(shí)具有功能強(qiáng) 大且使用靈活的調(diào)試器和編譯器。 visual basic 是解釋型語(yǔ)言，在輸入代碼的同時(shí)，解釋系統(tǒng)將高級(jí)語(yǔ)言分 解翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令，并判斷每個(gè)語(yǔ)句的語(yǔ)法錯(cuò)誤。在設(shè)計(jì) visual basic 程序的過(guò)程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì)好之后， 可以編譯生成可執(zhí)行文件(.exe)，脫離 visual basic 環(huán)境，直接在

32、 windows 環(huán) 境下運(yùn)行。 事件驅(qū)動(dòng)編程機(jī)制 visual basic 通過(guò)事件來(lái)執(zhí)行對(duì)象的操作。一個(gè)對(duì)象可能會(huì)產(chǎn)生多個(gè)事件， 每個(gè)事件都可以通過(guò)一段程序來(lái)響應(yīng)。例如，命令按鈕是一個(gè)對(duì)象，當(dāng)用戶單 擊該按鈕時(shí)，將產(chǎn)生一個(gè)“單擊”(click)事件，而在產(chǎn)生該事件時(shí)將執(zhí)行一段 程序，用來(lái)實(shí)現(xiàn)指定的操作。 在用 visual basic 設(shè)計(jì)大型應(yīng)用軟件時(shí)，不必建立具有明顯開(kāi)始和結(jié)束的 程序，而是編寫若干個(gè)微小的子程序，即過(guò)程。這些過(guò)程分別面向不同的對(duì)象， 由用戶操作引發(fā)某個(gè)事件來(lái)驅(qū)動(dòng)完成某種特定的功能，或者由事件驅(qū)動(dòng)程序調(diào) 用通用過(guò)程來(lái)執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。 訪問(wèn)

33、數(shù)據(jù)庫(kù) visual basic 具有強(qiáng)大的數(shù)據(jù)庫(kù)管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫(kù)管理窗 口，可以直接建立或處理 microsoft access 格式的數(shù)據(jù)庫(kù)，并提供了強(qiáng)大的數(shù) 據(jù)存儲(chǔ)和檢索功能。同時(shí)，visual basic 還能直接編輯和訪問(wèn)其他外部數(shù)據(jù)庫(kù)， 如 dbase，foxpro，paradox 等，這些數(shù)據(jù)庫(kù)格式都可以用 visual basic 編輯 和處理。 visual basic 提供開(kāi)放式數(shù)據(jù)連接，即 odbc 功能，可通過(guò)直接訪問(wèn)或建 立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫(kù)，如 sql server，oracle 等。在 應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語(yǔ)言 sql

34、數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問(wèn)服務(wù)器上的數(shù) 據(jù)庫(kù)，并提供了簡(jiǎn)單的面向?qū)ο蟮膸?kù)操作指令和多用戶數(shù)據(jù)庫(kù)訪問(wèn)的加鎖機(jī)制 和網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的 sql 的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫(kù)提供了 sql 網(wǎng)絡(luò)接口， 以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶/服務(wù)器(client/server)方案。 動(dòng)態(tài)數(shù)據(jù)交換(dde) 利用動(dòng)態(tài)數(shù)據(jù)交換(dynamic data exchange)技術(shù)，可以把一種應(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)用程序中與其他 wind

35、ows 應(yīng) 用程序建立動(dòng)態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。 對(duì)象的鏈接與嵌入(ole) 對(duì)象的鏈接與嵌入(ole)將每個(gè)應(yīng)用程序都看作是一個(gè)對(duì)象(object)，將不 同的對(duì)象鏈接(link)起來(lái)，再嵌入(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)，這種文檔由來(lái)自多個(gè) 不同應(yīng)用程序的對(duì)象組成，文

36、檔中的每個(gè)對(duì)象都與原來(lái)的應(yīng)用程序相聯(lián)系，并 可執(zhí)行與原來(lái)應(yīng)用程序完全相同的操作。 動(dòng)態(tài)鏈接庫(kù)(dll) visual basic 是一種高級(jí)程序設(shè)計(jì)語(yǔ)言，不具備低級(jí)語(yǔ)言的功能，對(duì)訪問(wèn) 機(jī)器硬件的操作不太容易實(shí)現(xiàn)。但它可以通過(guò)動(dòng)態(tài)鏈接庫(kù)技術(shù)將 c/c+或匯編 語(yǔ)言編寫的程序加入到 visual basic 應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào) 用其他語(yǔ)言編寫的函數(shù)。此外，通過(guò)動(dòng)態(tài)鏈接庫(kù)，還可以調(diào)用 windows 應(yīng)用程 序接口(api)函數(shù)，實(shí)現(xiàn) sdk 所具有的功能 4.2microsoft access技術(shù)簡(jiǎn)介技術(shù)簡(jiǎn)介 使用 microsoft access，可以在單一的數(shù)據(jù)庫(kù)文件中管理所

37、有的信息。 在這個(gè)文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨(dú)立的存儲(chǔ)空間中，這些 空間稱作表；可以使用聯(lián)機(jī)窗體來(lái)查看、添加及更新表中的數(shù)據(jù)；使用查詢來(lái)查 找并檢索所要的數(shù)據(jù)；也可以使用報(bào)表以特定的版面布置來(lái)分析及打印數(shù)據(jù)。 如果要保存數(shù)據(jù)，請(qǐng)為每一種類型的信息創(chuàng)建一個(gè)表。如果要從查詢、窗體 或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就要定義各個(gè)表之間的關(guān)系。 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來(lái)自多個(gè)表中的數(shù)據(jù)，就要?jiǎng)?chuàng) 建查詢。查詢的同時(shí)也可以更新或刪除多條記錄，并對(duì)數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的 計(jì)算。 如果要簡(jiǎn)單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，請(qǐng)創(chuàng)建一個(gè)窗體。在 打開(kāi)一個(gè)窗體時(shí)，micro

38、soft access 將從一個(gè)或多個(gè)表中檢索數(shù)據(jù)，并使用用 戶在“窗體向?qū)А边x擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來(lái)，請(qǐng)創(chuàng)建一個(gè)報(bào)表。例如， 可以打印一份將數(shù)據(jù)分組并計(jì)算數(shù)據(jù)總和的報(bào)表，也可以打印另一份帶有各種數(shù) 據(jù)格式的打印郵件標(biāo)簽的報(bào)表。 第五章第五章 房屋租賃管理系統(tǒng)的詳細(xì)設(shè)計(jì)房屋租賃管理系統(tǒng)的詳細(xì)設(shè)計(jì) 5.15.1 數(shù)據(jù)庫(kù)的實(shí)現(xiàn)數(shù)據(jù)庫(kù)的實(shí)現(xiàn) 為了實(shí)現(xiàn)管理信息系統(tǒng)的計(jì)算機(jī)化，僅僅用文字來(lái)描述信息的流動(dòng)和存 儲(chǔ)還遠(yuǎn)遠(yuǎn)不夠，還要進(jìn)一步調(diào)查分析舍去物質(zhì)流，抽象出信息流，定義出數(shù)據(jù) 庫(kù),各數(shù)據(jù)表的結(jié)構(gòu)，并對(duì)各種數(shù)據(jù)的屬性和各項(xiàng)處理功能進(jìn)

39、行詳細(xì)分析。系統(tǒng) 分析的主要成果是系統(tǒng)的邏輯模型。 通過(guò)對(duì)該系統(tǒng)的研究,將系統(tǒng)數(shù)據(jù)分為以下幾個(gè)表:客戶信息表,定金表,房 屋表,押金表,求租，預(yù)定表以及租金等幾個(gè)表,各表的具體設(shè)計(jì)結(jié)構(gòu)如下: 表 5-1 客戶信息表 字段名 類型 寬度 小數(shù)位數(shù) 客戶編號(hào)字符型 10 租戶姓名字符型 6 工作單位字符型 20 聯(lián)系電話字符型 2 性別字符型 8 租戶人數(shù)字符型 20 身份證編號(hào)字符型 20 備注備注型 4 表 5-2 定金表 字段名類型寬度小數(shù)位數(shù) 收費(fèi)編號(hào)字符型 10 定金金額字符型 10 預(yù)定金編號(hào)字符型 10 收費(fèi)日期日期型 8 預(yù)定客戶字符型 10 預(yù)定房屋編號(hào)字符型 10 備注備注型

40、表 5-3 房屋表 字段名類型寬度小數(shù)位數(shù) 房屋編號(hào)字符型 8 物業(yè)地址字符型 10 房型字符型 20 建筑面積數(shù)值型 52 使用面積數(shù)值型 52 裝修情況字符型 10 出租價(jià)位數(shù)值型 52 目前狀態(tài)字符型字符型 備注備注型 表 5-4 押金表 字段名類型寬度小數(shù)位數(shù) 收費(fèi)編號(hào)字符型 10 押金金額數(shù)值型 52 收費(fèi)日期日期型 8 合同編號(hào)字符型 10 客戶姓名字符型 8 房屋編號(hào)字符型 10 備注備注型 表 5-5 求租表 字段名類型寬度小數(shù)位數(shù) 求租客戶編號(hào)字符型 10 求租客戶姓名字符型 10 電話字符型 15 房型要求字符型 50 面積要求數(shù)值型 52 裝修要求字符型 50 意向價(jià)位數(shù)

41、值型 52 意向房屋編號(hào)字符型 10 備注備注 表 5-6 租金表 字段名類型寬度小數(shù)位數(shù) 收費(fèi)編號(hào)字符型 10 租金年份日期型 8 租金月份日期型 8 應(yīng)交租金數(shù)值型 52 已交租金數(shù)值型 52 久費(fèi)金額數(shù)值型 52 客戶姓名字符型 10 交費(fèi)日期日期型 8 備注備注 5.25.2 系統(tǒng)主界面的設(shè)計(jì)系統(tǒng)主界面的設(shè)計(jì) 啟動(dòng)系統(tǒng)后，主界面設(shè)計(jì)效果圖如下: 圖 5-1 系統(tǒng)主界面 說(shuō)明：在這個(gè)界面我們可以根據(jù)不同的條件來(lái)選擇. 公用模塊的設(shè)計(jì)代碼分析如下: option explicit public conn as new adodb.connection 定義全局變量 queryhouse 作

42、為判斷 frmhouse 窗體顯示查詢的數(shù)據(jù)還是全體 數(shù)據(jù) public queryhouse as boolean 定義全局變量 sqlqh 作為查詢房屋信息時(shí)的 sql 語(yǔ)句 public sqlqh as string 定義全局變量 querycf 作為判斷 frmclient 窗體家庭租戶選項(xiàng)卡顯示查詢的 數(shù)據(jù)還是全體數(shù)據(jù) public querycf as boolean 定義全局變量 sqlqcf 作為查詢家庭租戶信息時(shí)的 sql 語(yǔ)句 public sqlqcf as string 定義全局變量 querycg 作為判斷 frmclient 窗體家公司戶選項(xiàng)卡顯示查詢的 數(shù)據(jù)還是

43、全體數(shù)據(jù) public querycg as boolean 定義全局變量 sqlqcg 作為查詢公司租戶信息時(shí)的 sql 語(yǔ)句 public sqlqcg as string 定義全局變量 queryemp 作為判斷 frmemp 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù) public queryemp as boolean 定義全局變量 sqlqe 作為查詢員工信息時(shí)的 sql 語(yǔ)句 public sqlqe as string 定義全局變量 queryqzc 作為判斷 frmqzclient 窗體顯示查詢的數(shù)據(jù)還是全體 數(shù)據(jù) public queryqzc as boolean 定義全局變量 sq

44、lqzc 作為查詢求租客戶信息時(shí)的 sql 語(yǔ)句 public sqlqzc as string 定義全局變量 querycon 作為判斷 frmadmincontract 窗體顯示查詢的數(shù)據(jù)還 是全體數(shù)據(jù) public querycon as boolean 定義全局變量 sqlqcon 作為查詢合同信息時(shí)的 sql 語(yǔ)句 public sqlqcon as string 定義全局變量 sqlqyd 作為查詢預(yù)定單信息時(shí)的 sql 語(yǔ)句 public sqlqyd as string 定義全局變量 fromqzc 作為判斷 frmyuding 窗體是從 frmqzclient 窗體中單 擊下

45、定金預(yù)定調(diào)用的 還是直接菜單調(diào)用的 public fromqzc as boolean 定義全局變量 fromyuding 作為判斷 frmpaydingjin 窗體是從 frmyuding 窗體 中單擊收取定金調(diào)用的 還是直接菜單調(diào)用的 public fromyuding as boolean 定義全局變量 fromcontract 作為判斷 frmpayyajin 窗體是從 frmsigncontract 窗體中單擊收取押金調(diào)用的 還是直接菜單調(diào)用的 public fromcontract as boolean 定義全局變量 zujinfromcontract 作為判斷 frmpayzuj

46、in 窗體是從 frmsigncontract 窗體中單擊收取租金調(diào)用的 還是直接菜單調(diào)用的 public zujinfromcontract as boolean 定義全局變量 queryzujin 作為判斷 frmadminzujin 窗體顯示查詢的數(shù)據(jù)還是 全體數(shù)據(jù) public queryzujin as boolean 定義全局變量 sqlqzj 作為查詢合同信息時(shí)的 sql 語(yǔ)句 public sqlqzj as string 定義全局變量 sqlqdj 作為查詢定金信息時(shí)的 sql 語(yǔ)句 public sqlqdj as string 定義全局變量 sqlqyj 作為查詢押金信息

47、時(shí)的 sql 語(yǔ)句 public sqlqyj as string 5.35.3 各主要功能模塊的設(shè)計(jì)與實(shí)現(xiàn)各主要功能模塊的設(shè)計(jì)與實(shí)現(xiàn) 5 53 31 1 基本資料管理模塊設(shè)計(jì)基本資料管理模塊設(shè)計(jì) 房屋基本資料管理的運(yùn)行效果圖如下: 圖 5-2 房屋基本資料 說(shuō)明：我們通過(guò)這個(gè)界面可以對(duì)房屋的整體資料有所了解，也可以添加和刪除 房屋資料 其表單界面的屬性設(shè)計(jì)比較直觀,在此重點(diǎn)分析新增,修改,刪除,保存四個(gè)命令 按鈕的源代碼設(shè)計(jì)： 新增按鈕源碼: private sub cmdadd_click() 設(shè)置除保存和取消按鈕外的其他按鈕不可用 cmdadd.enabled = false cmded

48、it.enabled = false cmddel.enabled = false cmdsave.enabled = true cmdcancel.enabled = true cmdfirst.enabled = false cmdprev.enabled = false cmdnext.enabled = false cmdlast.enabled = false cmdquery.enabled = false 需要清空所有 text 框，并且設(shè)置它們可寫 for i = 0 to 7 text1(i).text = text1(i).enabled = true next i com

49、bo1.enabled = true add 變量用于保存時(shí)判斷是從添加還是修改后保存 add = 1 text1(0).setfocus end sub private sub cmdcancel_click() 取消按鈕用于用戶添加或修改過(guò)程中放棄添加或修改操作 cmdsave.enabled = false cmdcancel.enabled = false cmdadd.enabled = true cmdquery.enabled = true 如果是從添加后取消 if add = 1 then 如果當(dāng)前 house 表中有數(shù)據(jù)則顯示第一條數(shù)據(jù) if not rs_house.eof

50、 and not rs_house.bof then for i = 0 to 7 text1(i).text = rs_house.fields(i) next i if rs_house.fields(8) = 已租 then combo1.listindex = 0 elseif rs_house.fields(8) = 未租 then combo1.listindex = 1 elseif rs_house.fields(8) = 意向 then combo1.listindex = 2 end if cmdedit.enabled = true cmddel.enabled = tr

51、ue cmdfirst.enabled = true cmdprev.enabled = true cmdnext.enabled = true cmdlast.enabled = true 如果沒(méi)有數(shù)據(jù)，則顯示空 else for i = 0 to 7 text1(i).text = next i cmdedit.enabled = false cmddel.enabled = false cmdfirst.enabled = false cmdprev.enabled = false cmdnext.enabled = false cmdlast.enabled = false end i

52、f 如果是修改后取消，則恢復(fù)到修改前的數(shù)據(jù) elseif add = 0 then for i = 0 to 7 text1(i).text = rs_house.fields(i) next i if rs_house.fields(8) = 已租 then combo1.listindex = 0 elseif rs_house.fields(8) = 未租 then combo1.listindex = 1 elseif rs_house.fields(8) = 意向 then combo1.listindex = 2 end if end if 開(kāi)始時(shí)設(shè)置各個(gè) text 框不可寫 fo

53、r i = 0 to 7 text1(i).enabled = false next i 先設(shè)置 combobox 的默認(rèn)值及不可改 combo1.enabled = false end sub private sub cmdclose_click() unload me end sub 刪除按鈕的源代碼： private sub cmddel_click() 當(dāng)單擊刪除記錄時(shí)，需要彈出一個(gè)提示框，警告用戶 dim answer as string answer = msgbox(確定要?jiǎng)h除嗎？, vbyesno, ) 確實(shí)刪除 if answer = vbyes then rs_house.

54、delete 刪除當(dāng)前記錄 rs_house.update 更新刪除 msgbox 成功刪除！, vbokonly + vbexclamation, else exit sub end if 刪除之后，顯示總信息條數(shù)需要減 1 text2.text = val(text2.text) - 1 刪除當(dāng)前記錄后，需要顯示下一條記錄，如果刪除的是最后一條記錄，則 顯示上一條記錄 先移動(dòng) rs_house 記錄到后一條 rs_house.movenext if rs_house.eof then rs_house.moveprevious 如果沒(méi)有到記錄首則顯示該記錄 if not rs_house.

55、bof then for i = 0 to 7 text1(i).text = rs_house.fields(i) next i if rs_house.fields(8) = 已租 then combo1.listindex = 0 elseif rs_house.fields(8) = 未租 then combo1.listindex = 1 elseif rs_house.fields(8) = 意向 then combo1.listindex = 2 end if 如果到記錄首，則表格已經(jīng)為空，置所有 text 框顯示為空 elseif rs_house.bof then for i

56、 = 0 to 7 text1(i).text = next i cmdfirst.enabled = false cmdprev.enabled = false cmdnext.enabled = false cmdlast.enabled = false end if 如果刪除的不是首尾記錄，則顯示當(dāng)前記錄即可 else for i = 0 to 7 text1(i).text = rs_house.fields(i) next i if rs_house.fields(8) = 已租 then combo1.listindex = 0 elseif rs_house.fields(8)

57、= 未租 then combo1.listindex = 1 elseif rs_house.fields(8) = 意向 then combo1.listindex = 2 end if end if end sub 保存按鈕的源代碼： private sub cmdedit_click() 設(shè)置除保存和取消按鈕外的其他按鈕不可用 cmdadd.enabled = false cmdedit.enabled = false cmddel.enabled = false cmdsave.enabled = true cmdcancel.enabled = true cmdfirst.enabl

58、ed = false cmdprev.enabled = false cmdnext.enabled = false cmdlast.enabled = false cmdquery.enabled = false 需要設(shè)置除主鍵之外的 text 框可寫 for i = 1 to 7 text1(i).enabled = true next i combo1.enabled = true add = 0 end sub private sub cmdfirst_click() 先移動(dòng) rs_house 記錄到第一條 rs_house.movefirst 同時(shí)需要設(shè)置相應(yīng)按鈕為不可用和不可用 c

59、mdprev.enabled = false cmdfirst.enabled = false cmdnext.enabled = true cmdlast.enabled = true 如果已經(jīng)是第一條記錄，則提示用戶 if rs_house.bof = true then msgbox 對(duì)不起，已經(jīng)是第一條記錄了！, vbokonly + vbinformation, 注意 exit sub 如果不是，則個(gè)數(shù)據(jù)表的記錄位置移到第一條記錄，并且顯示之 else for i = 0 to 7 text1(i).text = rs_house.fields(i) next i if rs_hou

60、se.fields(8) = 已租 then combo1.listindex = 0 elseif rs_house.fields(8) = 未租 then combo1.listindex = 1 elseif rs_house.fields(8) = 意向 then combo1.listindex = 2 end if end if end subprev 檢索按鈕的源代碼： 5 53 32 2 客戶資料管理模塊的設(shè)計(jì)客戶資料管理模塊的設(shè)計(jì) 5321 租戶基本資料的設(shè)計(jì) 運(yùn)行效果圖如下所示: 圖 5-3 租戶基本資料 說(shuō)明：通過(guò)這個(gè)界面我們可以對(duì)租戶的資料修改，查詢，添加等指令。 在租