房屋租賃管理系統(tǒng)_2

1、屆XXXX 班畢業(yè)論文存檔編號：XX大學(xué)畢業(yè)論文題目房屋租賃管理系統(tǒng)專業(yè)：計算機(jī)科學(xué)與技術(shù)年 級：2002學(xué)號：200000000000論文作者：XXX指導(dǎo)教師：XX X職 稱：教授XX大學(xué)計算機(jī)學(xué)院制完成時間：2017年03月20日摘要隨著我國市場經(jīng)濟(jì)的快速發(fā)展和人們生活水平的不斷提高，簡單的租憑服務(wù)已經(jīng)不能滿足人們的需求。如何利用先進(jìn)的管理手段，提高房屋租憑管理水平，是當(dāng)今社會所面臨的一個重要課題。本文通過用VB6.0 編寫房屋租賃管理系統(tǒng)，利用軟件工程原理，采用面向?qū)ο蟮木幊谭椒?，其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面，實現(xiàn)了房屋租賃管理的自動化和信息化.整個

2、系統(tǒng)從符合操作簡便、界面友好、靈活、實用、安全的要求出發(fā)，完成基本資料管理、客戶資料管理、租憑合同管理、財務(wù)管理、統(tǒng)計報表管理等功能. 經(jīng)過實際測試證明，本文所設(shè)計的房屋租賃管理系統(tǒng)可以用于物業(yè)管理部門從事房屋租賃信息管理方面的需要。論文主要介紹了本課題的開發(fā)背景，所要完成的功能和開發(fā)的全過程。重點的說明了系統(tǒng)設(shè)計的重點、設(shè)計思想、難點技術(shù)和解決方案。關(guān)鍵詞：數(shù)據(jù)庫Visual Basic 6.0 房屋租賃管理系統(tǒng)1摘要 1第一章 序論 11.1 課題來源 11.2 開發(fā)背景和開發(fā)目的 11.3 可行性分析 21.3.1 經(jīng)濟(jì)可行性分析 21.3.2 操作可行性分析 21.3.3 技術(shù)可行性分

3、析 21.4 本文所做的工作 2第二章 需求分析 42.1 系統(tǒng)目標(biāo) 42.2 應(yīng)用現(xiàn)狀調(diào)查 42.3 系統(tǒng)總體流程圖如下: 42.4 系統(tǒng)的數(shù)據(jù)流程圖及分析: 52.5 系統(tǒng)功能模塊圖 6第三章開發(fā)工具的選擇及簡介 73.1 開發(fā)工具的選擇 73.2 開發(fā)工具簡介 7第四章房屋租賃管理系統(tǒng)的詳細(xì)設(shè)計 104.1 數(shù)據(jù)庫概要 104.1.1 數(shù)據(jù)庫的含義 104.1.2 數(shù)據(jù)庫管理系統(tǒng)114.1.3 數(shù)據(jù)庫應(yīng)用系統(tǒng) 124.2 數(shù)據(jù)庫的結(jié)構(gòu)設(shè)計 124.3 系統(tǒng)主界面的設(shè)計 154.4 各主要功能模塊的設(shè)計與實現(xiàn) 17431 基本資料管理模塊設(shè)計 17432 客戶資料管理模塊的設(shè)計 24432

4、1租戶基本資料的設(shè)計 244322求租戶基本資料的設(shè)計 26433 租賃管理模塊的設(shè)計 29433.1 簽訂合同的設(shè)計 29433.2 預(yù)定租房的設(shè)計 36434 財務(wù)管理模塊的設(shè)計 37434 .1 定金收取的設(shè)計 37435 統(tǒng)計報表模塊的設(shè)計 404351房屋統(tǒng)計報表的設(shè)計 404352租戶信息表 414353求租客戶信息表 424353租金統(tǒng)計表的設(shè)計 43第五章主菜單的設(shè)計及系統(tǒng)連編 445.1 主菜單的設(shè)計 445.2 系統(tǒng)的編譯與發(fā)行 45第六章畢業(yè)設(shè)計小結(jié) 46參考文獻(xiàn) 46致 謝 472第一章 序論1.1 課題來源隨著我國市場經(jīng)濟(jì)的快速發(fā)展和信息化水平的不斷提高，如何利用先進(jìn)

5、的管理手段，提高物業(yè)管理的水平，是當(dāng)今社會所面臨的一個課題。提高企業(yè)的管理水平，必須全方位地提高企業(yè)的管理意識。只有高標(biāo)準(zhǔn)、高質(zhì)量的管理才能滿足企業(yè)的發(fā)展需求。面對信息時代的挑戰(zhàn)， 利用高科技手段來提高房屋租賃管理無疑是一條行之有效的途徑。在某種意義上，信息與科技在企業(yè)管理與現(xiàn)代化建設(shè)中顯現(xiàn)出越來越重要的地位。房租租賃管理方面的信息化與科學(xué)化，已成為現(xiàn)代化生活水平步入高臺階的重要標(biāo)志。隨著計算機(jī)技術(shù)不斷的飛速發(fā)展，計算機(jī)以及計算機(jī)控制的自動處理技術(shù)已融入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。對于當(dāng)今的科學(xué)信息是一次重大的飛越，為人們的生活、工作、 學(xué)習(xí)帶來潛移默化的影響。今天我們使用計算

6、機(jī)對房屋租賃信息進(jìn)行管理，具有手工管理所無法比擬的優(yōu)點。例如：檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高房屋租賃管理的效率。面對目前的實際狀況，迫切需要開發(fā)一個新系統(tǒng)來適應(yīng)這一些工作.1.2 開發(fā)背景和開發(fā)目的利用計算機(jī)實現(xiàn)物業(yè)管理中的房屋租賃管理勢在必行。對于物業(yè)管理企業(yè)來說，利用計算機(jī)支持企業(yè)高效率完成房屋租賃管理的日常事務(wù)，是適應(yīng)現(xiàn)代企業(yè)制度要求、推動企業(yè)勞動型管理走向科學(xué)化、規(guī)范化的必要條件；而房屋租賃管理是一項瑣碎、復(fù)雜而又十分細(xì)致的工作，房屋的基本資料, 客戶資料的管理, 房屋租賃管理，各項收費以及統(tǒng)計報表的管理,一般不允許出錯，如果

7、實行手工操作, 須手工填制大量的表格, 這就會耗費工作人員大量的時間和精力，計算機(jī)進(jìn)行房屋租賃工作的管理，不僅能夠保證各項信息準(zhǔn)確無誤、快速輸出，同時計算機(jī)具有手工管理所無法比擬的優(yōu)點. 例如 : 檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高物業(yè)管理的效率, 也是企業(yè)的科學(xué)化、正規(guī)化管理, 與世界接軌的重要條件。開發(fā)本系統(tǒng)就是為了解決物業(yè)管理企業(yè)在房屋租賃信息管理中的一些不規(guī)范，使房屋租賃信息的管理向著規(guī)范化、簡單化、有效化的方向發(fā)展。1.3 可行性分析1.3.1 經(jīng)濟(jì)可行性分析本系統(tǒng)開發(fā)簡單但要耗去一定的時間，所用的開發(fā)工具和軟件都差不多是免費的

8、。而且，由于系統(tǒng)能夠在未來較長的一段時期內(nèi)穩(wěn)定地發(fā)揮作用，這對于學(xué)生房屋租賃信息的自動化管理， 稱業(yè)管理企業(yè)的人力和財力都有很大的幫助。由此可見在，開發(fā)此系統(tǒng)在經(jīng)濟(jì)上是完全可行的。1.3.2 操作可行性分析如今的計算機(jī)已經(jīng)走進(jìn)千家萬戶，硬件成本的下降，導(dǎo)致計算機(jī)購買成本的降低. 我的這套系統(tǒng)是利用自己的計算機(jī)加Microsoft Visual FoxPro6.0 作為軟件的開發(fā)平臺，使開發(fā)出來的系統(tǒng)有友好的用戶界面、有良好的安全性設(shè)置、有詳細(xì)的操作說明書，這樣更使各類用戶很快地掌握系統(tǒng)的使用方法, 操作友好因此在操作上是可行的.1.3.3 技術(shù)可行性分析從目前 IT 業(yè)界比較流行的數(shù)據(jù)庫開發(fā)、

9、管理軟件來看，對于比較簡單的中小型數(shù)據(jù)庫，Visual Basic 6.0 和 Windows 2000 的結(jié)合無疑是在實際應(yīng)用中較為成功的一種解決方案。為用戶提供了業(yè)界軟件開發(fā)一直堅持的非常友好、操作簡單的用戶界面、完善強大的數(shù)據(jù)庫操作功能和簡潔明了的數(shù)據(jù)庫接口。所以技術(shù)實行起來相對會容易。1.4 本文所做的工作第一章 緒論部分主要敘述課題來源、開發(fā)背景和開發(fā)目的, 可行性分析, 分析比較當(dāng)前開發(fā)工具，數(shù)據(jù)庫技術(shù)的比較。第二章結(jié)合軟件工程方法，對系統(tǒng)進(jìn)行需求分析、系統(tǒng)目標(biāo)和應(yīng)用現(xiàn)狀調(diào)查、系統(tǒng)總體流程圖與功能調(diào)查圖繪制與分析。第三章在需求分析的基礎(chǔ)上選擇好開發(fā)工具, 并對開發(fā)工具做簡要描述.2

10、第四章 根據(jù)需求分析的結(jié)果，對系統(tǒng)進(jìn)行概要設(shè)計，主要介紹用Visual Basic 6.0創(chuàng)建應(yīng)用程序的步驟, 以及在本系統(tǒng)開發(fā)的所用到控件. 實現(xiàn)每一個模塊的具體功能。第五章 根據(jù)第四章的創(chuàng)建應(yīng)用程序步驟及Visual Basic6.0 提供的控件進(jìn)行房屋租賃管理系統(tǒng)的詳細(xì)設(shè)計. 重點分析數(shù)據(jù)庫的設(shè)計以及主要功能模塊的實現(xiàn).第六章 在完成了主要功能模塊的設(shè)計后, 本章進(jìn)行的系統(tǒng)主程序的設(shè)計, 以及怎樣在Visual Basic 6.0 環(huán)境下生成應(yīng)用程序.第七章 畢業(yè)設(shè)計小結(jié)，總結(jié)部分介紹了設(shè)計體會和編程體會. 設(shè)計存在的不足, 及今后的學(xué)習(xí)方向.41第二章需求分析2.1 系統(tǒng)目標(biāo)采用企業(yè)現(xiàn)

11、有的軟硬件環(huán)境及科學(xué)的管理系統(tǒng)開發(fā)方案，建立房屋租賃信息管理系統(tǒng), 實現(xiàn)房屋租賃信息管理的計算機(jī)自動化。系統(tǒng)應(yīng)符合物業(yè)管理企業(yè)原有的房屋租賃管理制度，并達(dá)到操作直觀、方便、實用、安 全等要求。2.2 應(yīng)用現(xiàn)狀調(diào)查當(dāng)前，很多物業(yè)管理企業(yè)的房屋租賃信息管理都是以紙張為介質(zhì)作記錄，人力管理的比,效率低下。數(shù)據(jù)打印，匯例比較大，往往是各個主要負(fù)責(zé)人以書面的形式管理房屋租賃信息總，成績更新不及時，容易丟失，損壞數(shù)據(jù)給學(xué)校學(xué)生帶來損失，不易保存且數(shù)據(jù)保密性較差。2.3 系統(tǒng)總體流程圖如下用戶身份驗證用戶的功能選擇讀數(shù)據(jù)數(shù)據(jù)庫各功能模塊的使用2.4 系統(tǒng)的數(shù)據(jù)流程圖及分析數(shù)據(jù)流程圖整個系統(tǒng)從總體上分為基本資

12、料管理、客戶資料管理、租賃管理、財務(wù)管理以及統(tǒng)計報表五大部分，每一部分實現(xiàn)的功能如下：基本資料管理功能：實現(xiàn)房屋基本資料的管理.客戶資料管理：分租戶基本資料跟求租戶基本資料管理租賃管理：分為合同簽訂，合同續(xù)簽，合同管理，預(yù)定租房，合同查詢，預(yù)定單查詢，出租到期提醒，預(yù)定到期提醒。財務(wù)管理功能 分定金、押金、租金收取，租金管理，定金退還，押金退還。統(tǒng)計報表功能：房屋統(tǒng)計報表，租戶統(tǒng)計報表，求租客戶信息表，歷史租戶表，現(xiàn)有合同表，歷史合同表,預(yù)定金統(tǒng)計，押金，定金統(tǒng)計，租金統(tǒng)計等功能2.5 系統(tǒng)功能模塊圖客戶資料基本資料租賃管理財務(wù)管理統(tǒng)計報表財務(wù)財務(wù)管理房屋基本管理財務(wù)管理租戶基本資料求租客戶資

13、料定金收取 押金收取 租金收取 租金管理 定金退還 押金退還財務(wù)財務(wù)管理統(tǒng)計報表fc-房屋統(tǒng)計,1.翟犀賁恩表塞稹蜜料H典6料題需資同預(yù)定單統(tǒng)計定金統(tǒng)計租金統(tǒng)計第三章 開發(fā)工具的選擇及簡介3.1 開發(fā)工具的選擇針對目前世界上流行的大量軟件和開發(fā)工具，經(jīng)過認(rèn)真分析其優(yōu)缺點，結(jié)合數(shù)據(jù)庫管理系統(tǒng)的需要和目前的硬件環(huán)境，我們選用微軟WINDOWS臺下的Visual Basic6.0 （簡寫為VB6.0）作為房屋租賃管理系統(tǒng)的開發(fā)工具.3.2 開發(fā)工具簡介現(xiàn)在， 市場上可以選購的應(yīng)用開發(fā)產(chǎn)品很多，流行的也有數(shù)十種。目前在我國市場上最為流行、使用最多、最為先進(jìn)的可用作企業(yè)級開發(fā)工具的產(chǎn)品有：Microso

14、ft公司的VisualBasicMicrosoft公司的VisualCMicrosoft公司的VisualFoxProBorland 公司的 DelphiPowersoft公司的PowerBuliderJava 等等在目前市場上這些眾多的程序開發(fā)工具中，有些強調(diào)程序語言的彈性與執(zhí)行效率；有些則偏重于可視化程序開發(fā)工具所帶來的便利性與效率的得高，各有各的優(yōu)點和特色，也滿足了不同用戶的需求。然而，語言的彈性和工具的便利性是密不可分的，只有便利的工具，卻沒有彈性的語言作支持，許多特殊化的處理動作必需要耗費數(shù)倍的工夫來處理，使得原來所標(biāo)榜的效率提高的優(yōu)點失去了作用；相反， 如果只強調(diào)程序語言的彈性，卻

15、沒有便利的工具作配合，會使一些即使非常簡單的界面處理動作，也會嚴(yán)重地浪費程序設(shè)計師的寶貴時間。Visual Basic 是美國微軟公司的第一個編程工具和系統(tǒng)開發(fā)的第一個產(chǎn)品，VisualBasic 以優(yōu)良的性能、較強的系統(tǒng)開發(fā)功能、完美的視覺界面和簡單易學(xué)的特點，已經(jīng)贏得了全世界廣大用戶的偏愛。Visual Basic 的編程環(huán)境包含了快速有效的開發(fā)功能，尤其是數(shù)據(jù)窗口這一方便而簡潔操縱數(shù)據(jù)庫的智能化對象，使系統(tǒng)的開發(fā)更人性化，操作更簡便。作為管理信息系統(tǒng)的開發(fā)，Visual Basic 是一個非常理想選擇。Visual Basic 是一種可視化的、面對對象和條用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設(shè)

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

17、視化的、面對對象和條用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設(shè)計，可用于開發(fā)Windows 環(huán)境下的種類應(yīng)用程序。它簡單易學(xué)、效率高，且功能強大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C/C+編程基礎(chǔ)。在VisualBasic環(huán)境下，利用事件驅(qū)動的編程機(jī)制、新穎易用的可視化設(shè)計工具，使用 Windows內(nèi)部 的應(yīng)用程序接口 (API)函數(shù)，以及動態(tài)鏈接庫(DLL)、動態(tài)數(shù)據(jù)交換(DDE)、對象的鏈接與嵌 入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術(shù)，可以高效、快速地開發(fā)出Windows環(huán)境下功能強大、圖形界面豐富的應(yīng)用軟件系統(tǒng)?？梢暬幊蹋河脗鹘y(tǒng)程序設(shè)計語言設(shè)計程序時

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

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

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

21、asic 通過事件來執(zhí)行對象的操作。一個對象可能會產(chǎn)生多個事件，每個事件都可以通過一段程序來響應(yīng)。例如，命令按鈕是一個對象，當(dāng)用戶單擊該按鈕時，將產(chǎn)生一個“單擊”(CLICK) 事件，而在產(chǎn)生該事件時將執(zhí)行一段程序，用來實現(xiàn)指定的操作。在用 Visual Basic 設(shè)計大型應(yīng)用軟件時，不必建立具有明顯開始和結(jié)束的程序，而是編寫若干個微小的子程序，即過程。這些過程分別面向不同的對象，由用戶操作引發(fā)某個事件來驅(qū)動完成某種特定的功能，或者由事件驅(qū)動程序調(diào)用通用過程來執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。訪問數(shù)據(jù)庫Visual Basic 具有強大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理

22、窗口，可以直接建立或處理Microsoft Access 格式的數(shù)據(jù)庫，并提供了強大的數(shù)據(jù)存儲和檢索功能。同時， Visual Basic 還能直接編輯和訪問其他外部數(shù)據(jù)庫，如dBASE， FoxPro， Paradox 等，這些數(shù)據(jù)庫格式都可以用Visual Basic 編輯和處理。Visual Basic提供開放式數(shù)據(jù)連接，即ODBC)能，可通過直接訪問或建立連接的方式使用并操作后臺大型網(wǎng)絡(luò)數(shù)據(jù)庫，如SQL Server ， Oracle 等。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語言SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問服務(wù)器上的數(shù)據(jù)庫，并提供了簡單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫訪問的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)

23、據(jù)庫的SQL的編程技術(shù)，為單機(jī)上運行的數(shù)據(jù) 庫 提 供 了 SQL 網(wǎng) 絡(luò) 接 口 ， 以 便 在 分 布 式 環(huán) 境 中 快 速 而 有 效 地 實 現(xiàn) 客 戶 / 服 務(wù) 器 (client/server) 方案。動態(tài)數(shù)據(jù)交換(DDE)利用動態(tài)數(shù)據(jù)交換(Dynamic Data Exchange) 技術(shù)，可以把一種應(yīng)用程序中的數(shù)據(jù)動態(tài)地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)用程序建立起一條動態(tài)數(shù)據(jù)鏈路。當(dāng)原始數(shù)據(jù)變化時，可以自動更新鏈接的數(shù)據(jù)。Visual Basic 提供了動態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他Windows應(yīng)用程序建立動態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通

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

25、態(tài)鏈接庫(DLL)Visual Basic 是一種高級程序設(shè)計語言，不具備低級語言的功能，對訪問機(jī)器硬件的操作不太容易實現(xiàn)。但它可以通過動態(tài)鏈接庫技術(shù)將C/C+或匯編語言編寫的程序加入到Visual Basic 應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。此外，通過動態(tài)鏈接庫，還可以調(diào)用Windows應(yīng)用程序接口 (API)函數(shù)，實現(xiàn)SDK所具有的功能第四章 房屋租賃管理系統(tǒng)的詳細(xì)設(shè)計4.1 數(shù)據(jù)庫概要4.1.1 數(shù)據(jù)庫的含義所謂數(shù)據(jù)庫，就是為了滿足某些系統(tǒng)、某些用戶的需要，在計算機(jī)系統(tǒng)中按照一定的數(shù)據(jù)模型、數(shù)據(jù)結(jié)構(gòu)等方式進(jìn)行組織、存儲和使用的互相關(guān)聯(lián)的數(shù)據(jù)集合，是數(shù)據(jù)按科學(xué)的結(jié)

26、構(gòu)形式組織的“倉庫”。在實際中，人們把數(shù)據(jù)庫以文件形式存入于磁盤(軟盤、硬盤或磁帶)中，數(shù)據(jù)庫管理系統(tǒng)以文件形式對其進(jìn)行調(diào)度管理。4.1.2 數(shù)據(jù)庫管理系統(tǒng)數(shù)據(jù)庫管理系統(tǒng)，簡稱DBMS是為數(shù)據(jù)庫的建立，使用和維護(hù)而配置的軟件，它提供了安全性和完整性等統(tǒng)一控制機(jī)制，方便用戶管理和存取大量的數(shù)據(jù)資源。例如，VisualBasic 6.0 就是微機(jī)上使用的一種數(shù)據(jù)管理系統(tǒng)。在數(shù)據(jù)庫管理系統(tǒng)的支持下，數(shù)據(jù)完全獨立于應(yīng)用程序， 并且能被多個用戶或程序共享，其關(guān)系如圖所示。應(yīng)用程序與數(shù)據(jù)庫的關(guān)系數(shù)據(jù)庫管理系統(tǒng)一般具備數(shù)據(jù)庫的定義、操作、查詢及控制等功能。它將所有應(yīng)用程序使用的數(shù)據(jù)匯集起來，建立數(shù)據(jù)庫，使之

27、面對所有應(yīng)用程序的查詢和訪問。因此，作為訪問者的應(yīng)用程序相對于數(shù)據(jù)庫來說是獨立的，而作為被訪問的數(shù)據(jù)在數(shù)據(jù)庫中同樣是獨立的。當(dāng)要建立新的數(shù)據(jù)管理系統(tǒng)時，只要生成一個新的應(yīng)用程序即可，它可以立即使用現(xiàn)成的數(shù)據(jù)庫，而不必建立新的數(shù)據(jù)文件。數(shù)據(jù)庫管理系統(tǒng)是為數(shù)據(jù)庫的建立、使用、管理和維護(hù)而配置的軟件。它建立在操作系統(tǒng)的基礎(chǔ)上，對數(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ù)庫的安全性和完整性。數(shù)據(jù)庫管理系統(tǒng)的功能體現(xiàn)在“管理”二字上。它針對不同的用戶及不同的使用目的，提供給用戶各種操作、管理數(shù)據(jù)庫的命令、

28、函數(shù)、控件和對象，以幫助用戶完成任務(wù)。其主要功能如下：定義數(shù)據(jù)庫根據(jù)用戶設(shè)計的數(shù)據(jù)結(jié)構(gòu), 建立數(shù)據(jù)庫結(jié)構(gòu)組織.存取數(shù)據(jù)它包括很多基本操作: 輸入、更新、插入、檢索、刪除、輸出、統(tǒng)計、排序、索引等。數(shù)據(jù)庫運行管理所有數(shù)據(jù)庫的操作都要在數(shù)據(jù)庫管理系統(tǒng)的餓控制程序的統(tǒng)一管理下進(jìn)行，以保證正確運行，保證數(shù)據(jù)庫正確有效。數(shù)據(jù)庫系統(tǒng)的維護(hù)系統(tǒng)維護(hù)是一項重要的工作，它包括數(shù)據(jù)庫的轉(zhuǎn)存、恢復(fù)、數(shù)據(jù)庫的重組及性能監(jiān)視、分析等。由上可見，數(shù)據(jù)庫管理系統(tǒng)是一個能使用和管理數(shù)據(jù)庫中數(shù)據(jù)的軟件。這是數(shù)據(jù)庫系統(tǒng)與文件系統(tǒng)的一個最大的區(qū)別。數(shù)據(jù)庫管理系統(tǒng)功能的強弱基本上決定了整個數(shù)據(jù)庫系統(tǒng)功能。4.1.3 數(shù)據(jù)庫應(yīng)用系統(tǒng)數(shù)

29、據(jù)庫應(yīng)用系統(tǒng)是指系統(tǒng)開發(fā)人員利用數(shù)據(jù)庫系統(tǒng)資源開發(fā)出來的，面向某一類信息處理問題而建立的軟件系統(tǒng)。數(shù)據(jù)庫系統(tǒng)的用戶自己編寫的、基于數(shù)據(jù)庫數(shù)據(jù)的程序稱為應(yīng)用程序，針對某一數(shù)據(jù)庫管理而編制的一組應(yīng)用程序形成該數(shù)據(jù)庫的應(yīng)用系統(tǒng)，它是數(shù)據(jù)庫系統(tǒng)的一個重要組成部分，它們與數(shù)據(jù)庫上的數(shù)據(jù)構(gòu)成數(shù)據(jù)庫中最活躍的部分。4.2 數(shù)據(jù)庫的結(jié)構(gòu)設(shè)計為了實現(xiàn)管理信息系統(tǒng)的計算機(jī)化，僅僅用文字來描述信息的流動和存儲還遠(yuǎn)遠(yuǎn)不夠，還要進(jìn)一步調(diào)查分析舍去物質(zhì)流，抽象出信息流，定義出數(shù)據(jù)庫, 各數(shù)據(jù)表的結(jié)構(gòu)，并對各種數(shù)據(jù)的屬性和各項處理功能進(jìn)行詳細(xì)分析。系統(tǒng)分析的主要成果是系統(tǒng)的邏輯模型。通過對該系統(tǒng)的研究，將系統(tǒng)數(shù)據(jù)分為以下幾

30、個表：客戶信息表，定金表，房屋表，押金表求租，預(yù)定表以及租金等幾個表 ，各表的具體設(shè)計結(jié)構(gòu)如下客戶信息表字段名寬度小數(shù)位數(shù)客戶編號字符型10租戶姓名字符型6工作單位字符型20聯(lián)系電話字符型2性別字符型8租戶人數(shù)字符型20身份證編號字符型20備注備注型4字段名寬度小數(shù)位數(shù)收費編號字符型10定金金額字符型10預(yù)定金編號字符型10收費日期日期型8預(yù)定客戶字符型10預(yù)定房屋編號字符型10備注備注型房屋表:字段名寬度小數(shù)位數(shù)房屋編號字符型8物業(yè)地址字符型10房型字符型20建筑面積數(shù)值型52使用面積數(shù)值型52裝修情況字符型10出租價位數(shù)值型52目前狀態(tài)字符型字符型備注備注型押金表：字段名寬度小數(shù)位數(shù)收費編

31、號字符型10押金金額數(shù)值型52收費日期日期型8合同編號字符型10客戶姓名字符型8房屋編號字符型10備注備注型求租表：字段名寬度小數(shù)位數(shù)求租客戶編號字符型10求租客戶姓名字符型10電話字符型15房型要求字符型50面積要求數(shù)值型52裝修要求字符型50息向儕位數(shù)值型52意向房屋編號字符型10備注備注租金表：字段名寬度小數(shù)位數(shù)收費編號字符型10租金年份日期型8租金月份日期型8應(yīng)交租金數(shù)值型52已交租金數(shù)值型52久費金額數(shù)值型52客戶姓名字符型10交費日期日期型8備注備注4.3 系統(tǒng)主界面的設(shè)計啟動系統(tǒng)后，主界面設(shè)計效果圖如下公用模塊的設(shè)計代碼分析如下：Option ExplicitPublic con

32、n As New ADODB.Connection定義全局變量queryhouse作為判斷frmHouse窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public queryhouse As Boolean定義全局變量sqlqh作為查詢房屋信息時的sql語句Public sqlqh As String' 定義全局變量querycf 作為判斷frmClient 窗體家庭租戶選項卡顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public querycf As Boolean' 定義全局變量sqlqcf 作為查詢家庭租戶信息時的sql 語句Public sqlqcf As String' 定義全局變量que

33、rycg 作為判斷frmClient 窗體家公司戶選項卡顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public querycg As Boolean' 定義全局變量sqlqcg 作為查詢公司租戶信息時的sql 語句Public sqlqcg As String' 定義全局變量queryemp 作為判斷frmEmp 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public queryemp As Boolean' 定義全局變量sqlqe 作為查詢員工信息時的sql 語句Public sqlqe As String' 定義全局變量queryqzc 作為判斷frmQZClient 窗體顯示查詢的數(shù)

34、據(jù)還是全體數(shù)據(jù)Public queryqzc As Boolean' 定義全局變量sqlqzc 作為查詢求租客戶信息時的sql 語句Public sqlqzc As String' 定義全局變量querycon 作為判斷frmAdminContract 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public querycon As Boolean' 定義全局變量sqlqcon 作為查詢合同信息時的sql 語句Public sqlqcon As String' 定義全局變量sqlqyd 作為查詢預(yù)定單信息時的sql 語句Public sqlqyd As String'

35、 定義全局變量fromqzc 作為判斷frmYuDing 窗體是從frmQZClient 窗體中單擊下定金預(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)用的Publ

36、ic fromContract As Boolean' 定義全局變量ZuJinfromContract 作為判斷frmPayZuJin 窗體是從frmSignContract 窗體中單擊收取租金調(diào)用的' 還是直接菜單調(diào)用的Public ZuJinfromContract As Boolean' 定義全局變量queryZuJin 作為判斷frmAdminZuJin 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public queryZuJin As Boolean' 定義全局變量sqlqzj 作為查詢合同信息時的sql 語句Public sqlqzj As String'

37、; 定義全局變量sqlqdj作為查詢定金信息時的sql 語句Public sqlqdj As String' 定義全局變量sqlqyj作為查詢押金信息時的sql 語句Public sqlqyj As String4.3 各主要功能模塊的設(shè)計與實現(xiàn)4 3 1 基本資料管理模塊設(shè)計房屋基本資料管理的運行效果圖如下其表單界面的屬性設(shè)計比較直觀，在此重點分析新增，修改，刪除，保存四個命令按鈕的源代碼設(shè)計： 新增按鈕源碼Private Sub cmdAdd_Click()設(shè)置除保存和取消按鈕外的其他按鈕不可用cmdAdd.Enabled = FalsecmdEdit.Enabled = Fals

38、e cmdDel.Enabled = False cmdSave.Enabled = True cmdCancel.Enabled = True cmdFirst.Enabled = False cmdPrev.Enabled = False cmdNext.Enabled = FalsecmdLast.Enabled = FalsecmdQuery.Enabled = False'需要清空所有text框，并且設(shè)置它們可寫Fori = 0 To 7Text1(i).Text = ""Text1(i).Enabled = TrueNext iCombo1.Enable

39、d = True'add 變量用于保存時判斷是從添加還是修改后保存add = 1Text1(0).SetFocusEnd SubPrivate Sub cmdCancel_Click()' 取消按鈕用于用戶添加或修改過程中放棄添加或修改操作cmdSave.Enabled = FalsecmdCancel.Enabled = FalsecmdAdd.Enabled = TruecmdQuery.Enabled = True' 如果是從添加后取消If add = 1 Then'如果當(dāng)前House表中有數(shù)據(jù)則顯示第一條數(shù)據(jù)If Not rs_house.EOF And

40、 Not rs_house.BOF ThenFor i = 0 To 7Text1(i).Text = rs_house.Fields(i)Next iIf rs_house.Fields(8) = "已租 " ThenCombo1.ListIndex = 0ElseIf rs_house.Fields(8) = "未租" ThenCombo1.ListIndex = 1ElseIf rs_house.Fields(8) = "意向" ThenCombo1.ListIndex = 2End IfcmdEdit.Enabled = Tr

41、uecmdDel.Enabled = TruecmdFirst.Enabled = TruecmdPrev.Enabled = TruecmdNext.Enabled = TruecmdLast.Enabled = True' 如果沒有數(shù)據(jù)，則顯示空ElseFor i = 0 To 7Text1(i).Text = ""Next icmdEdit.Enabled = FalsecmdDel.Enabled = FalsecmdFirst.Enabled = FalsecmdPrev.Enabled = FalsecmdNext.Enabled = FalsecmdL

42、ast.Enabled = FalseEnd If' 如果是修改后取消，則恢復(fù)到修改前的數(shù)據(jù)ElseIf add = 0 ThenFor i = 0 To 7Text1(i).Text = rs_house.Fields(i)Next iIf rs_house.Fields(8) = "已租 " ThenCombo1.ListIndex = 0ElseIf rs_house.Fields(8) = "未租" ThenCombo1.ListIndex = 1ElseIf rs_house.Fields(8) = "意向" The

43、nCombo1.ListIndex = 2End IfEnd If開始時設(shè)置各個text 框不可寫For i = 0 To 7Text1(i).Enabled = FalseNext i'先設(shè)置ComboBoxM默認(rèn)值及不可改Combo1.Enabled = FalseEnd SubPrivate Sub cmdClose_Click()Unload MeEnd Sub刪除按鈕的源代碼：Private Sub cmdDel_Click()' 當(dāng)單擊刪除記錄時，需要彈出一個提示框，警告用戶Dim answer As Stringanswer = MsgBox(" 確定要

44、刪除嗎？", vbYesNo, "")' 確實刪除If answer = vbYes Thenrs_house.Delete '刪除當(dāng)前記錄rs_house.Update '更新刪除MsgBox " 成功刪除！", vbOKOnly + vbExclamation, ""ElseExit SubEnd If' 刪除之后，顯示總信息條數(shù)需要減1Text2.Text = Val(Text2.Text) - 1則顯示上一條記' 刪除當(dāng)前記錄后，需要顯示下一條記錄，如果刪除的是最后一條記錄，錄

45、' 先移動 rs_house 記錄到后一條rs_house.MoveNextIf rs_house.EOF Thenrs_house.MovePrevious如果沒有到記錄首則顯示該記錄If Not rs_house.BOF ThenFor i = 0 To 7Text1(i).Text = rs_house.Fields(i)Next iIf rs_house.Fields(8) = "已租 " ThenCombo1.ListIndex = 0ElseIf rs_house.Fields(8) = "未租" ThenCombo1.ListInd

46、ex = 1ElseIf rs_house.Fields(8) = "意向" ThenCombo1.ListIndex = 2End If' 如果到記錄首，則表格已經(jīng)為空，置所有text 框顯示為空ElseIf rs_house.BOF ThenFor i = 0 To 7Text1(i).Text = ""Next icmdFirst.Enabled = FalsecmdPrev.Enabled = FalsecmdNext.Enabled = FalsecmdLast.Enabled = FalseEnd If' 如果刪除的不是首尾記

47、錄，則顯示當(dāng)前記錄即可ElseFor i = 0 To 7Text1(i).Text = rs_house.Fields(i)Next iIf rs_house.Fields(8) = "已租 " ThenCombo1.ListIndex = 0ElseIf rs_house.Fields(8) = "未租 " ThenCombo1.ListIndex = 1ElseIf rs_house.Fields(8) = "意向 " ThenCombo1.ListIndex = 2End IfEnd IfEnd Sub保存按鈕的源代碼：Pri

48、vate Sub cmdEdit_Click()' 設(shè)置除保存和取消按鈕外的其他按鈕不可用cmdAdd.Enabled = FalsecmdEdit.Enabled = FalsecmdDel.Enabled = FalsecmdSave.Enabled = TruecmdCancel.Enabled = TruecmdFirst.Enabled = FalsecmdPrev.Enabled = FalsecmdNext.Enabled = FalsecmdLast.Enabled = FalsecmdQuery.Enabled = False' 需要設(shè)置除主鍵之外的text

49、框可寫For i = 1 To 7Text1(i).Enabled = TrueNext iCombo1.Enabled = Trueadd = 0End SubPrivate Sub cmdFirst_Click()' 先移動 rs_house 記錄到第一條rs_house.MoveFirst同時需要設(shè)置相應(yīng)按鈕為不可用和不可用cmdPrev.Enabled = FalsecmdFirst.Enabled = FalsecmdNext.Enabled = TruecmdLast.Enabled = True' 如果已經(jīng)是第一條記錄，則提示用戶If rs_house.BOF =

50、 True ThenMsgBox " 對不起，已經(jīng)是第一條記錄了！", vbOKOnly + vbInformation, " 注意 "Exit Sub' 如果不是，則個數(shù)據(jù)表的記錄位置移到第一條記錄，并且顯示之ElseFor i = 0 To 7Text1(i).Text = rs_house.Fields(i)Next iIf rs_house.Fields(8) = "已租 " ThenCombo1.ListIndex = 0ElseIf rs_house.Fields(8) = "未租" ThenC

51、ombo1.ListIndex = 1ElseIf rs_house.Fields(8) = "意向" ThenCombo1.ListIndex = 2End IfEnd IfEnd SubPREV檢索按鈕的源代碼：43 2 客戶資料管理模塊的設(shè)計43 2 1 租戶基本資料的設(shè)計運行效果圖如下所示在租戶基本資料中，我們重點分析查找家庭租戶功能的源碼，如下 ：Private Sub cmdQuery_Click()If Textl.Text = "" ThenMsgBox "查詢條件不可為空！", vbOKOnly + vbInform

52、ation," 注意Textl.SetFocusExit SubEnd If設(shè)置查詢家庭租戶變量為真querycf = Truesqlqcf = " where " & Combo1.Text & " = " & "”' & Text1.Text & "”frmClient.Show關(guān)閉本窗體Unload MeEnd Sub4. 3. 2. 2求租戶基本資料的設(shè)計其保存按鈕的源碼分析如下:Private Sub cmdSave_Click()檢測數(shù)據(jù)是否完整If Text1(0

53、).Text = "" ThenMsgBox "求租客戶編號不可為空！", vbOKOnly + vbInformation," 注意"Text1(0).SetFocusExit SubElseIf Text1(1).Text = "" ThenMsgBox "求租客戶姓名不可為空！", vbOKOnly + vbInformation," 注意"Text1.SetFocusExit SubElseIf Text1(2).Text = "" ThenMsg

54、Box "求租客戶電話不可為空！", vbOKOnly + vbInformation," 注意"Text1(2).SetFocusExit SubElseIf Not Text1(4).Text = "" And IsNumeric(Text1(4).Text) = False ThenMsgBox " 面積要求不為空則應(yīng)為數(shù)字！", vbOKOnly + vbInformation, " 注意 "Text1(4).SetFocusExit SubElseIf Not Text1(6).Tex

55、t = "" And IsNumeric(Text1(6).Text) = False ThenMsgBox " 意向價位不為空則應(yīng)為數(shù)字！", vbOKOnly + vbInformation, " 注意 "Text1(6).SetFocusExit SubElseIf Not Text1(7).Text = "" And IsNumeric(Text1(7).Text) = False ThenMsgBox " 意向租期不為空則應(yīng)為數(shù)字！", vbOKOnly + vbInformation, " 注意 "Text1(7).SetFocusExit SubEnd If' 如果意向房屋編號不為空，需要檢查是否存