版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐng)
文檔簡介
1、<p><b> X X 大 學(xué)</b></p><p> 畢 業(yè) 論 文</p><p> 題目 房屋租賃管理系統(tǒng) </p><p><b> 摘要</b></p><p> 隨著我國市場經(jīng)濟(jì)的快速發(fā)展和人們生活水平的不斷提高,
2、簡單的租憑服務(wù)已經(jīng)不能滿足人們的需求。如何利用先進(jìn)的管理手段,提高房屋租憑管理水平,是當(dāng)今社會所面臨的一個重要課題。本文通過用VB6.0編寫房屋租賃管理系統(tǒng),利用軟件工程原理,采用面向?qū)ο蟮木幊谭椒?,其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面,實現(xiàn)了房屋租賃管理的自動化和信息化.</p><p> 整個系統(tǒng)從符合操作簡便、界面友好、靈活、實用、安全的要求出發(fā),完成基本資料管理、客戶資料管
3、理、租憑合同管理、財務(wù)管理、統(tǒng)計報表管理等功能.經(jīng)過實際測試證明,本文所設(shè)計的房屋租賃管理系統(tǒng)可以用于物業(yè)管理部門從事房屋租賃信息管理方面的需要。</p><p> 論文主要介紹了本課題的開發(fā)背景,所要完成的功能和開發(fā)的全過程。重點的說明了系統(tǒng)設(shè)計的重點、設(shè)計思想、難點技術(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ā)工具的選擇及簡介6&
7、lt;/p><p> 3.1開發(fā)工具的選擇6</p><p> 3.2開發(fā)工具簡介7</p><p> 第四章 房屋租賃管理系統(tǒng)的詳細(xì)設(shè)計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è)計12</p><p> 4.3系統(tǒng)主界面的設(shè)計14</p><p> 4.3 各主要功能模塊的設(shè)計與實現(xiàn)17</p><p> 4.3.1基本資料管理模塊設(shè)計17</p><p>
9、 4.3.2 客戶資料管理模塊的設(shè)計24</p><p> 4.3.2.1租戶基本資料的設(shè)計24</p><p> 4.3.2.2求租戶基本資料的設(shè)計25</p><p> 4.3.3 租賃管理模塊的設(shè)計28</p><p> 4.3.3 .1簽訂合同的設(shè)計28</p><p> 4.3.3 .2
10、預(yù)定租房的設(shè)計35</p><p> 4.3.4財務(wù)管理模塊的設(shè)計36</p><p> 4.3.4 .1定金收取的設(shè)計36</p><p> 4.3.5 統(tǒng)計報表模塊的設(shè)計39</p><p> 4.3.5.1 房屋統(tǒng)計報表的設(shè)計39</p><p> 4.3.5.2 租戶信息表40</p
11、><p> 4.3.5.3 求租客戶信息表41</p><p> 4.3.5.3 租金統(tǒng)計表的設(shè)計42</p><p> 第五章 主菜單的設(shè)計及系統(tǒng)連編43</p><p> 5.1 主菜單的設(shè)計43</p><p> 5.2 系統(tǒng)的編譯與發(fā)行44</p><p> 第六章
12、畢業(yè)設(shè)計小結(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> 隨著我國市場經(jīng)濟(jì)的快速發(fā)展和信息化水平的不斷提高,如何利用先進(jìn)的管理手段,提高物業(yè)管理的水平,是當(dāng)今社會所面臨的一個課題。提高企業(yè)的管理水平,必須全方位地提高企業(yè)的管理意識。只有高標(biāo)準(zhǔn)、高質(zhì)量的管理才能滿足企業(yè)的發(fā)展需求。面對信息時代的挑戰(zhàn),利用高科技手段來提高房屋租賃管理無疑是一條行之有效的途徑。在某種意義上,信息與科技在企業(yè)管理與現(xiàn)代化建設(shè)中顯現(xiàn)出越來越重要的地位。房租租賃管理方面的信息化與科學(xué)化,已成為現(xiàn)代化生活
14、水平步入高臺階的重要標(biāo)志。</p><p> 隨著計算機(jī)技術(shù)不斷的飛速發(fā)展,計算機(jī)以及計算機(jī)控制的自動處理技術(shù)已融入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。對于當(dāng)今的科學(xué)信息是一次重大的飛越,為人們的生活、工作、學(xué)習(xí)帶來潛移默化的影響。今天我們使用計算機(jī)對房屋租賃信息進(jìn)行管理,具有手工管理所無法比擬的優(yōu)點。例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高房屋租
15、賃管理的效率。面對目前的實際狀況,迫切需要開發(fā)一個新系統(tǒng)來適應(yīng)這一些工作.</p><p> 1.2 開發(fā)背景和開發(fā)目的</p><p> 利用計算機(jī)實現(xiàn)物業(yè)管理中的房屋租賃管理勢在必行。對于物業(yè)管理企業(yè)來說,利用計算機(jī)支持企業(yè)高效率完成房屋租賃管理的日常事務(wù),是適應(yīng)現(xiàn)代企業(yè)制度要求、推動企業(yè)勞動型管理走向科學(xué)化、規(guī)范化的必要條件;而房屋租賃管理是一項瑣碎、復(fù)雜而又十分細(xì)致的工作,房屋
16、的基本資料,客戶資料的管理,房屋租賃管理,各項收費以及統(tǒng)計報表的管理,一般不允許出錯,如果實行手工操作,須手工填制大量的表格,這就會耗費工作人員大量的時間和精力,計算機(jī)進(jìn)行房屋租賃工作的管理,不僅能夠保證各項信息準(zhǔn)確無誤、快速輸出,同時計算機(jī)具有手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高物業(yè)管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。&l
17、t;/p><p> 開發(fā)本系統(tǒng)就是為了解決物業(yè)管理企業(yè)在房屋租賃信息管理中的一些不規(guī)范,使房屋租賃信息的管理向著規(guī)范化、簡單化、有效化的方向發(fā)展。</p><p><b> 1.3可行性分析</b></p><p> 1.3.1經(jīng)濟(jì)可行性分析</p><p> 本系統(tǒng)開發(fā)簡單但要耗去一定的時間,所用的開發(fā)工具和軟件
18、都差不多是免費的。而且,由于系統(tǒng)能夠在未來較長的一段時期內(nèi)穩(wěn)定地發(fā)揮作用,這對于學(xué)生房屋租賃信息的自動化管理,稱業(yè)管理企業(yè)的人力和財力都有很大的幫助。由此可見在,開發(fā)此系統(tǒng)在經(jīng)濟(jì)上是完全可行的。</p><p> 1.3.2操作可行性分析</p><p> 如今的計算機(jī)已經(jīng)走進(jìn)千家萬戶,硬件成本的下降,導(dǎo)致計算機(jī)購買成本的降低.我的這套系統(tǒng)是利用自己的計算機(jī)加Microsoft Vi
19、sual FoxPro6.0作為軟件的開發(fā)平臺,使開發(fā)出來的系統(tǒng)有友好的用戶界面、有良好的安全性設(shè)置、有詳細(xì)的操作說明書,這樣更使各類用戶很快地掌握系統(tǒng)的使用方法,操作友好因此在操作上是可行的.</p><p> 1.3.3技術(shù)可行性分析</p><p> 從目前IT業(yè)界比較流行的數(shù)據(jù)庫開發(fā)、管理軟件來看,對于比較簡單的中小型數(shù)據(jù)庫,Visual Basic 6.0和Windows
20、2000的結(jié)合無疑是在實際應(yīng)用中較為成功的一種解決方案。為用戶提供了業(yè)界軟件開發(fā)一直堅持的非常友好、操作簡單的用戶界面、完善強(qiáng)大的數(shù)據(jù)庫操作功能和簡潔明了的數(shù)據(jù)庫接口。所以技術(shù)實行起來相對會容易。</p><p> 1.4本文所做的工作</p><p> 第一章 緒論部分主要敘述課題來源、開發(fā)背景和開發(fā)目的,可行性分析,分析比較當(dāng)前開發(fā)工具,數(shù)據(jù)庫技術(shù)的比較。</p>&
21、lt;p> 第二章 結(jié)合軟件工程方法,對系統(tǒng)進(jìn)行需求分析、系統(tǒng)目標(biāo)和應(yīng)用現(xiàn)狀調(diào)查、系統(tǒng)總體流程圖與功能調(diào)查圖繪制與分析。</p><p> 第三章 在需求分析的基礎(chǔ)上選擇好開發(fā)工具,并對開發(fā)工具做簡要描述. </p><p> 第四章 根據(jù)需求分析的結(jié)果,對系統(tǒng)進(jìn)行概要設(shè)計,主要介紹用Visual Basic 6.0創(chuàng)建應(yīng)用程序的步驟,以及在本系統(tǒng)開發(fā)的所用到控件.實現(xiàn)每一個模
22、塊的具體功能。</p><p> 第五章 根據(jù)第四章的創(chuàng)建應(yīng)用程序步驟及Visual Basic6.0提供的控件進(jìn)行房屋租賃管理系統(tǒng)的詳細(xì)設(shè)計.重點分析數(shù)據(jù)庫的設(shè)計以及主要功能模塊的實現(xiàn).</p><p> 第六章 在完成了主要功能模塊的設(shè)計后,本章進(jìn)行的系統(tǒng)主程序的設(shè)計,以及怎樣在Visual Basic 6.0環(huán)境下生成應(yīng)用程序.</p><p> 第七章
23、 畢業(yè)設(shè)計小結(jié),總結(jié)部分介紹了設(shè)計體會和編程體會. 設(shè)計存在的不足,及今后的學(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),實現(xiàn)房屋租賃信息管理的計算機(jī)自動
24、化。</p><p> 系統(tǒng)應(yīng)符合物業(yè)管理企業(yè)原有的房屋租賃管理制度,并達(dá)到操作直觀、方便、實用、安全等要求。</p><p> 2.2 應(yīng)用現(xiàn)狀調(diào)查</p><p> 當(dāng)前,很多物業(yè)管理企業(yè)的房屋租賃信息管理都是以紙張為介質(zhì)作記錄,人力管理的比例比較大,往往是各個主要負(fù)責(zé)人以書面的形式管理房屋租賃信息,效率低下。數(shù)據(jù)打印,匯總,成績更新不及時,容易丟失,損壞
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> 整個系統(tǒng)從總體上分為基本資料管理、客戶資料管理、租賃管理、財務(wù)管理以及統(tǒng)計報表五大部分,每一部分實現(xiàn)
26、的功能如下:</p><p><b> 基本資料管理功能:</b></p><p> 實現(xiàn)房屋基本資料的管理.</p><p><b> 客戶資料管理:</b></p><p> 分租戶基本資料跟求租戶基本資料管理</p><p><b> 租賃管理:&l
27、t;/b></p><p> 分為合同簽訂,合同續(xù)簽,合同管理,預(yù)定租房,合同查詢,預(yù)定單查詢,出租到期提醒,預(yù)定到期提醒。</p><p><b> 財務(wù)管理功能</b></p><p> 分定金、押金、租金收取,租金管理,定金退還,押金退還。</p><p><b> 統(tǒng)計報表功能:</
28、b></p><p> 房屋統(tǒng)計報表,租戶統(tǒng)計報表,求租客戶信息表,歷史租戶表,現(xiàn)有合同表,歷史合同表,預(yù)定金統(tǒng)計,押金,定金統(tǒng)計,租金統(tǒng)計等功能</p><p> 2.5系統(tǒng)功能模塊圖</p><p> 第三章 開發(fā)工具的選擇及簡介</p><p> 3.1開發(fā)工具的選擇</p><p> 針對目前世
29、界上流行的大量軟件和開發(fā)工具,經(jīng)過認(rèn)真分析其優(yōu)缺點,結(jié)合數(shù)據(jù)庫管理系統(tǒng)的需要和目前的硬件環(huán)境,我們選用微軟WINDOWS平臺下的Visual Basic6.0(簡寫為VB6.0)作為房屋租賃管理系統(tǒng)的開發(fā)工具.</p><p><b> 3.2開發(fā)工具簡介</b></p><p> 現(xiàn)在,市場上可以選購的應(yīng)用開發(fā)產(chǎn)品很多,流行的也有數(shù)十種。目前在我國市場上最為流行
30、、使用最多、最為先進(jìn)的可用作企業(yè)級開發(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> 在目前市場上這些眾多的程序開發(fā)工具中,有些強(qiáng)調(diào)程序語言的彈性與執(zhí)行效率;有些則偏重于可視化程序開發(fā)工具所帶來的便利性與效率的得高,各有各的優(yōu)點和特色,也滿足了不同用戶的需求。然而,語言的彈性和工具的便利性是密不可分的,只有便利的工具,卻
32、沒有彈性的語言作支持,許多特殊化的處理動作必需要耗費數(shù)倍的工夫來處理,使得原來所標(biāo)榜的效率提高的優(yōu)點失去了作用;相反,如果只強(qiáng)調(diào)程序語言的彈性,卻沒有便利的工具作配合,會使一些即使非常簡單的界面處理動作,也會嚴(yán)重地浪費程序設(shè)計師的寶貴時間。</p><p> Visual Basic是美國微軟公司的第一個編程工具和系統(tǒng)開發(fā)的第一個產(chǎn)品,Visual Basic以優(yōu)良的性能、較強(qiáng)的系統(tǒng)開發(fā)功能、完美的視覺界面和簡
33、單易學(xué)的特點,已經(jīng)贏得了全世界廣大用戶的偏愛。Visual Basic的編程環(huán)境包含了快速有效的開發(fā)功能,尤其是數(shù)據(jù)窗口這一方便而簡潔操縱數(shù)據(jù)庫的智能化對象,使系統(tǒng)的開發(fā)更人性化,操作更簡便。</p><p> 作為管理信息系統(tǒng)的開發(fā),Visual Basic是一個非常理想選擇。Visual Basic是一種可視化的、面對對象和條用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設(shè)計,可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。
34、它簡單易學(xué)、效率高,且功能強(qiáng)大,可以與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ā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)
35、用軟件系統(tǒng)。</p><p> 總的來說,Visual Basic6.0具有以下特點:</p><p> Visual Basic是一種可視化的、面對對象和條用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設(shè)計,可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡單易學(xué)、效率高,且功能強(qiáng)大,可以與Windows的專業(yè)開發(fā)工具SDK相媲美,而且程序開發(fā)人員不必具有C/C++編程基礎(chǔ)。在Visual Basi
36、c環(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)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。</p><p><b> 可視化編程:</b></p><p>
37、; 用傳統(tǒng)程序設(shè)計語言設(shè)計程序時,都是通過編寫程序代碼來設(shè)計用戶界面,在設(shè)計過程中看不到界面的實際顯示效果,必須編譯后運行程序才能觀察。如果對界面的效果不滿意,還要回到程序中修改。有時候,這種編程-編譯-修改的操作可能要反復(fù)多次,大大影響了軟件開發(fā)效率。Visual Basic提供了可視化設(shè)計工具,把Windows界面設(shè)計的復(fù)雜性“封裝”起來,開發(fā)人員不必為界面設(shè)計而編寫大量程序代碼。只需要按設(shè)計要求的屏幕布局,用系統(tǒng)提供的工具,在屏
38、幕上畫出各種“部件”,即圖形對象,并設(shè)置這些圖形對象的屬性。Visual Basic自動產(chǎn)生界面設(shè)計代碼,程序設(shè)計人員只需要編寫實現(xiàn)程序功能的那部分代碼,從而可以大大提高程序設(shè)計的效率。</p><p><b> 面向?qū)ο蟮某绦蛟O(shè)計</b></p><p> 4.0版以后的Visual Basic支持面向?qū)ο蟮某绦蛟O(shè)計,但它與一般的面向?qū)ο蟮某绦蛟O(shè)計語言(C++)
39、不完全相同。在一般的面向?qū)ο蟪绦蛟O(shè)計語言中,對象由程序代碼和數(shù)據(jù)組成,是抽象的概念;而Visual Basic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計方法(OOP),把程序和數(shù)據(jù)封裝起來作為一個對象,并為每個對象賦予應(yīng)有的屬性,使對象成為實在的東西。在設(shè)計對象時,不必編寫建立和描述每個對象的程序代碼,而是用工具畫在界面上,Visual Basic自動生成對象的程序代碼并封裝起來。每個對象以圖形方式顯示在界面上,都是可視的。</p>&l
40、t;p><b> 結(jié)構(gòu)化程序設(shè)計語言</b></p><p> Visual Basic是在BASIC語言的基礎(chǔ)上發(fā)展起來的,具有高級程序設(shè)計語言的語句結(jié)構(gòu),接近于自然語言和人類的邏輯思維方式。Visual Basic語句簡單易懂,其編輯器支持彩色代碼,可自動進(jìn)行語法錯誤檢查,同時具有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器。</p><p> Visual B
41、asic是解釋型語言,在輸入代碼的同時,解釋系統(tǒng)將高級語言分解翻譯成計算機(jī)可以識別的機(jī)器指令,并判斷每個語句的語法錯誤。在設(shè)計Visual Basic程序的過程中,隨時可以運行程序,而在整個程序設(shè)計好之后,可以編譯生成可執(zhí)行文件(.EXE),脫離Visual Basic環(huán)境,直接在Windows環(huán)境下運行。</p><p><b> 事件驅(qū)動編程機(jī)制</b></p><
42、p> Visual Basic通過事件來執(zhí)行對象的操作。一個對象可能會產(chǎn)生多個事件,每個事件都可以通過一段程序來響應(yīng)。例如,命令按鈕是一個對象,當(dāng)用戶單擊該按鈕時,將產(chǎn)生一個“單擊”(CLICK)事件,而在產(chǎn)生該事件時將執(zhí)行一段程序,用來實現(xiàn)指定的操作。</p><p> 在用Visual Basic設(shè)計大型應(yīng)用軟件時,不必建立具有明顯開始和結(jié)束的程序,而是編寫若干個微小的子程序,即過程。這些過程分別面
43、向不同的對象,由用戶操作引發(fā)某個事件來驅(qū)動完成某種特定的功能,或者由事件驅(qū)動程序調(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ù)存儲和檢索功能。同時,Visual Basic還能直接編輯和訪問其他外部數(shù)據(jù)庫,如dBASE,F(xiàn)oxPro,Paradox等,這些數(shù)據(jù)庫格式都可以用Visual Basic編輯和處理。</p><p> Visual Basic提供開放式數(shù)據(jù)連接,即ODBC功能,可通過直接訪問或建立連接的方式使用并操作后臺大型網(wǎng)絡(luò)數(shù)據(jù)庫,如SQL Server,Oracle等。在應(yīng)用程序中,可以使用結(jié)構(gòu)化查詢語言SQL數(shù)據(jù)
45、標(biāo)準(zhǔn),直接訪問服務(wù)器上的數(shù)據(jù)庫,并提供了簡單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫訪問的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫的SQL的編程技術(shù),為單機(jī)上運行的數(shù)據(jù)庫提供了SQL網(wǎng)絡(luò)接口,以便在分布式環(huán)境中快速而有效地實現(xiàn)客戶/服務(wù)器(client/server)方案。</p><p> 動態(tài)數(shù)據(jù)交換(DDE)</p><p> 利用動態(tài)數(shù)據(jù)交換(Dynamic Data Exchange)技術(shù),可以把一
46、種應(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)行通信。</p><p> 對象的鏈接與嵌入(OLE)</p><p> 對象的鏈接與嵌入(OLE)將每個應(yīng)用程
47、序都看作是一個對象(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)用程序的對象
48、組成,文檔中的每個對象都與原來的應(yīng)用程序相聯(lián)系,并可執(zhí)行與原來應(yīng)用程序完全相同的操作。</p><p> 動態(tài)鏈接庫(DLL)</p><p> Visual Basic是一種高級程序設(shè)計語言,不具備低級語言的功能,對訪問機(jī)器硬件的操作不太容易實現(xiàn)。但它可以通過動態(tài)鏈接庫技術(shù)將C/C++或匯編語言編寫的程序加入到Visual Basic應(yīng)用程序中,可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫
49、的函數(shù)。此外,通過動態(tài)鏈接庫,還可以調(diào)用Windows應(yīng)用程序接口(API)函數(shù),實現(xiàn)SDK所具有的功能</p><p> 第四章 房屋租賃管理系統(tǒng)的詳細(xì)設(shè)計</p><p><b> 4.1數(shù)據(jù)庫概要</b></p><p> 4.1.1數(shù)據(jù)庫的含義</p><p> 所謂數(shù)據(jù)庫,就是為了滿足某些系統(tǒng)、某些用戶
50、的需要,在計算機(jī)系統(tǒng)中按照一定的數(shù)據(jù)模型、數(shù)據(jù)結(jié)構(gòu)等方式進(jìn)行組織、存儲和使用的互相關(guān)聯(lián)的數(shù)據(jù)集合,是數(shù)據(jù)按科學(xué)的結(jié)構(gòu)形式組織的“倉庫”。在實際中,人們把數(shù)據(jù)庫以文件形式存入于磁盤(軟盤、硬盤或磁帶)中,數(shù)據(jù)庫管理系統(tǒng)以文件形式對其進(jìn)行調(diào)度管理。</p><p> 4.1.2 數(shù)據(jù)庫管理系統(tǒng)</p><p> 數(shù)據(jù)庫管理系統(tǒng),簡稱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ù)完全獨立于應(yīng)用程序,并且能被多個用戶或程序共享,其關(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ù)庫,使之面對所有應(yīng)用程序的查詢和訪問。因此,作為訪問者的應(yīng)用程序相對于數(shù)據(jù)庫來說是獨立的,而作為被訪問的數(shù)據(jù)在數(shù)據(jù)庫中同樣是獨立的。當(dāng)要建立新的數(shù)據(jù)管理系統(tǒng)時,只要生成一個新的應(yīng)用程序即可,它可以立即使用現(xiàn)成的數(shù)據(jù)庫,而不必建立新的數(shù)據(jù)文件。</p><p> 數(shù)據(jù)庫管理系統(tǒng)是為數(shù)據(jù)庫的建立、使用、管理和維護(hù)而
53、配置的軟件。它建立在操作系統(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ù)庫的安全性和完整性。</p><p> 數(shù)據(jù)庫管理系統(tǒng)的功能體現(xiàn)在“管理”二字上。它針對不同的用戶及不同的使用目的,提供給用戶各種操作、管理數(shù)據(jù)庫的命令、函數(shù)、控件和對象,以幫助用戶完成任務(wù)。其主要功能如下:</p>
54、<p><b> 定義數(shù)據(jù)庫 </b></p><p> 根據(jù)用戶設(shè)計的數(shù)據(jù)結(jié)構(gòu),建立數(shù)據(jù)庫結(jié)構(gòu)組織.</p><p><b> 存取數(shù)據(jù) </b></p><p> 它包括很多基本操作:輸入、更新、插入、檢索、刪除、輸出、統(tǒng)計、排序、索引等。</p><p><b>
55、 數(shù)據(jù)庫運行管理 </b></p><p> 所有數(shù)據(jù)庫的操作都要在數(shù)據(jù)庫管理系統(tǒng)的餓控制程序的統(tǒng)一管理下進(jìn)行,以保證正確運行,保證數(shù)據(jù)庫正確有效。</p><p><b> 數(shù)據(jù)庫系統(tǒng)的維護(hù) </b></p><p> 系統(tǒng)維護(hù)是一項重要的工作,它包括數(shù)據(jù)庫的轉(zhuǎn)存、恢復(fù)、數(shù)據(jù)庫的重組及性能監(jiān)視、分析等。</p>
56、<p> 由上可見,數(shù)據(jù)庫管理系統(tǒng)是一個能使用和管理數(shù)據(jù)庫中數(shù)據(jù)的軟件。這是數(shù)據(jù)庫系統(tǒng)與文件系統(tǒng)的一個最大的區(qū)別。數(shù)據(jù)庫管理系統(tǒng)功能的強(qiáng)弱基本上決定了整個數(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)用程序,針對某一數(shù)據(jù)庫管理而編制的一組應(yīng)用程序形成該數(shù)據(jù)庫的應(yīng)用系統(tǒng),它是數(shù)據(jù)庫系統(tǒng)的一個重要組成部分,它們與數(shù)據(jù)庫上的數(shù)據(jù)構(gòu)成數(shù)據(jù)庫中最活躍的部分。</p><p> 4.2 數(shù)據(jù)庫的結(jié)構(gòu)設(shè)計</p><p> 為了實現(xiàn)管理信息系統(tǒng)的計算機(jī)化,僅僅用文字來描述信息的流動和存儲還遠(yuǎn)遠(yuǎn)不夠,還要進(jìn)一步調(diào)查分析舍去物質(zhì)流,抽象出
58、信息流,定義出數(shù)據(jù)庫,各數(shù)據(jù)表的結(jié)構(gòu),并對各種數(shù)據(jù)的屬性和各項處理功能進(jìn)行詳細(xì)分析。系統(tǒng)分析的主要成果是系統(tǒng)的邏輯模型。</p><p> 通過對該系統(tǒng)的研究,將系統(tǒng)數(shù)據(jù)分為以下幾個表:客戶信息表,定金表,房屋表,押金表,求租,預(yù)定表以及租金等幾個表,各表的具體設(shè)計結(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è)計</p><p> 啟動系統(tǒng)后,主界面設(shè)計效果圖如下:</p><p> 公用模塊的設(shè)計代碼分析如下:</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 作為查詢房屋信息時的sql語句</p><p> Public sqlqh As String</p><p>
62、; '定義全局變量querycf 作為判斷frmClient 窗體家庭租戶選項卡顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)</p><p> Public querycf As Boolean</p><p> '定義全局變量sqlqcf 作為查詢家庭租戶信息時的sql語句</p><p> Public sqlqcf As String</p>
63、<p> '定義全局變量querycg 作為判斷frmClient 窗體家公司戶選項卡顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)</p><p> Public querycg As Boolean</p><p> '定義全局變量sqlqcg 作為查詢公司租戶信息時的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 作為查詢員工信息時的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 作為查詢求租客戶信息時的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 作為查詢合同信息時的sql語句</p><p> Public
67、sqlqcon As String</p><p> '定義全局變量sqlqyd 作為查詢預(yù)定單信息時的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 作為查詢合同信息時的sql語句</p><p> Public sqlqzj As String</p><p>
72、9;定義全局變量sqlqdj 作為查詢定金信息時的sql語句</p><p> Public sqlqdj As String</p><p> '定義全局變量sqlqyj 作為查詢押金信息時的sql語句</p><p> Public sqlqyj As String</p><p> 4.3 各主要功能模塊的設(shè)計與實現(xiàn)&l
73、t;/p><p> 4.3.1基本資料管理模塊設(shè)計</p><p> 房屋基本資料管理的運行效果圖如下:</p><p> 其表單界面的屬性設(shè)計比較直觀,在此重點分析新增,修改,刪除,保存四個命令按鈕的源代碼設(shè)計:</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變量用于保存時判斷是從添加還是修改后保存</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è)置各個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)單擊刪除記錄時,需要彈出一個提示框,警告用戶</p><p> Dim answer As String</p><p> answer = MsgBox(&quo
93、t;確定要刪除嗎?", vbYesNo, "")</p><p><b> '確實刪除</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、;先移動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> '先移動rs_house記錄到第一條</p><p> rs_house.MoveFirst</p><p> '同時需要設(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 "對不起,已經(jīng)是第一條記錄了!", vbOKOnly + vbInformation, "注意"</p><p><b> Exit Sub</b></p><p> '如果不是,則個數(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è)計</p><p> 4.3.2.1租戶基本資料的設(shè)計</p><p> 運行效果圖如下所示:</p><p> 在租戶基本資料中,我們重點分析查找家庭租戶功能的
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è)計</p><p> 其保存按鈕的源碼分析如下:</p><p> Private Sub cmdSav
120、e_Click()</p><p><b> '檢測數(shù)據(jù)是否完整</b></p><p> If Text1(0).Text = "" Then</p><p> MsgBox "求租客戶編號不可為空!", 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 "意向價位不為空則應(yīng)為數(shù)字!", vbOKOnly + vbInformation, "注意"</p><p> T
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 眾賞文庫僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 畢業(yè)設(shè)計-房屋租賃管理系統(tǒng)
- 畢業(yè)設(shè)計---delphi房屋租賃管理系統(tǒng)
- 在線房屋租賃管理系統(tǒng)畢業(yè)設(shè)計
- 畢業(yè)設(shè)計房屋租賃管理系統(tǒng)開題報告書
- 《房屋租賃管理系統(tǒng)》畢業(yè)論文設(shè)計
- 畢業(yè)設(shè)計---在線房屋租賃系統(tǒng)的設(shè)計與實現(xiàn)
- 汽車租賃管理系統(tǒng)畢業(yè)設(shè)計
- 房屋租賃管理系統(tǒng),房屋租賃信息管理系統(tǒng)
- 房屋租賃管理系統(tǒng)畢業(yè)論文
- 房屋出租管理系統(tǒng)畢業(yè)設(shè)計
- 房屋租賃管理系統(tǒng)
- 房屋租賃管理系統(tǒng)設(shè)計與實現(xiàn)
- 房屋租賃管理系統(tǒng)課程設(shè)計
- 房屋管理租賃系統(tǒng)課程設(shè)計
- 畢業(yè)設(shè)計(汽車租賃管理系統(tǒng))開題報告
- 汽車租賃管理系統(tǒng)設(shè)計與開發(fā)畢業(yè)設(shè)計
- 汽車租賃管理系統(tǒng)設(shè)計與開發(fā)畢業(yè)設(shè)計
- 畢業(yè)設(shè)計——jsp的汽車租賃管理系統(tǒng)
- 房屋中介管理系統(tǒng)畢業(yè)設(shè)計
- 畢業(yè)論文范文——房屋租賃管理系統(tǒng)
評論
0/150
提交評論