房地產(chǎn)評(píng)估系統(tǒng)畢業(yè)設(shè)計(jì)

1、<p><b>　　房地產(chǎn)評(píng)估系統(tǒng)</b></p><p><b>　　摘 要</b></p><p>　　房地產(chǎn)評(píng)估系統(tǒng)對(duì)房地產(chǎn)評(píng)估信息進(jìn)行全面現(xiàn)代化管理。但一直以來(lái)人們使用傳統(tǒng)人工的方式進(jìn)行評(píng)估，這種管理方式存在著許多缺點(diǎn),如:效率低、計(jì)算量大,容易出錯(cuò)。另外時(shí)間一長(zhǎng),將產(chǎn)生大量的文件和數(shù)據(jù),這對(duì)于查找、更新和維護(hù)都帶來(lái)了不

2、少的困難。</p><p>　　隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。</p><p>　　本系統(tǒng)根據(jù)用戶通過輸入位置、面積、用途等房地產(chǎn)評(píng)估信息,由系統(tǒng)自行生成相應(yīng)的評(píng)估結(jié)果，所以計(jì)算量小，準(zhǔn)確性高，用戶可以方便地查詢、打印，還可以方便地對(duì)數(shù)據(jù)進(jìn)行更新和維護(hù)。該系統(tǒng)還有用戶界面良好、操作簡(jiǎn)單、可靠性高

3、等特點(diǎn)。這些優(yōu)點(diǎn)能夠極大地提高評(píng)估效率。</p><p>　　根據(jù)實(shí)際情況，我使用Visual Basic.NET作為數(shù)據(jù)庫(kù)前臺(tái)應(yīng)用程序開發(fā)工具，Microsoft SQL Server2000作為后臺(tái)數(shù)據(jù)庫(kù)管理工具。</p><p>　　關(guān)鍵字：房地產(chǎn)評(píng)估系統(tǒng)，ADO,VB.NET，SQL Server</p><p><b>　　ABSTRACT<

4、;/b></p><p>　　The real estate take the gauge of the systems to take the gauge of the completely modern management of information proceeding to real estate. But always since then people usage the way of a

5、rtificial tradition proceeds take the gauge of, this kind of management the way its a lot of weakness, such as: the efficiency is low, calculation have great capacity, and easily come amiss. Another time a long, will pro

6、duce the large quantity of document with data, this for check to seek, renew with supporte</p><p>　　Along with calculator science that the continuously increasing of science technique, each realm is graduall

7、y mature, and its mighty function is already to have already entered the mankind society for the deep cognition, it of people to erupt to flick more and more important function.</p><p>　　This system passes t

8、he importation position, area, use etc. the real estate to take the gauge of the information according to the customers, from the valuation that the system is by oneself born cowgirl pan out, therefore compute to measure

9、 small, the accuracy is high, and the customer can expediently search, print, can still expediently the logarithms renew with support according to the proceeding. That system returns the useful door interface good, the o

10、peration is simple, high etc. characteri</p><p>　　I use the Visual Basic.NET the conduct and actions database the stage development the tool, Microsoft SQL the Server2000 the conduct and actions the database

11、 backstage according to the actual circumstance.</p><p>　　Keyword: The real estate take the gauge of the system, ADO,VB.NET，SQL Server</p><p><b>　　目 錄</b></p><p>　　第一部

12、分：緒論……………………………………………………………………………5 </p><p>　　第二部分：需求分析………………………………………………………………………7 </p><p>　　第三部分：總體設(shè)計(jì)………………………………………………………………………8 </p><p>　　第四部分：詳細(xì)設(shè)計(jì)………………………………………………………………………12&l

13、t;/p><p>　　第五部分：測(cè)試報(bào)告………………………………………………………………18</p><p>　　第六部分：關(guān)鍵技術(shù)分析…………………………………………………………19</p><p>　　第七部分：心得體會(huì)………………………………………………………………22</p><p>　　參考文獻(xiàn)………………………………………………………

14、……………………22</p><p><b>　　第一部分 緒論</b></p><p>　　現(xiàn)在我國(guó)的房地產(chǎn)評(píng)估管理水平還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機(jī)制已經(jīng)不能適應(yīng)時(shí)代的發(fā)展，因?yàn)樗速M(fèi)了許多人力和物力，在信息時(shí)代這種傳統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理所取代。 我作為一個(gè)計(jì)算機(jī)系的本科生，希望可以在這方面有所貢獻(xiàn)。改革的總設(shè)計(jì)師鄧小平同志說過“科

15、學(xué)技術(shù)是第一生產(chǎn)力”，我希望能用我四年的所學(xué)編制出一個(gè)實(shí)用的程序來(lái)幫助房地產(chǎn)評(píng)估機(jī)構(gòu)進(jìn)行更有效的管理。 歸納起來(lái)，好處大約有以下幾點(diǎn)：1．可以存儲(chǔ)已評(píng)估的報(bào)告，安全、高效；2．只需一到二名評(píng)估員即可操作系統(tǒng)，節(jié)省大量人力，減少計(jì)算量，準(zhǔn)確性高；3．可以迅速查到所需信息，還可以把所需的信息打印出來(lái)。</p><p>　　我選擇Visual Basic.NET作為數(shù)據(jù)庫(kù)前臺(tái)開發(fā)工具。Visual Basic.

16、NET (又成Visual Basic 7.0或VB 7.0)是Microsoft公司在Visual Basic 6.0之后推出的最新版本，集成在Visual Studio.net 7.0中，與Visual C++.NET以及 C#組成了“.NET”構(gòu)架。Visual Basic.NET提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。故而，

17、實(shí)現(xiàn)本系統(tǒng)VB.NET是一個(gè)相對(duì)較好的選擇。</p><p>　　采用Microsoft SQL Server2000作為數(shù)據(jù)庫(kù)后臺(tái)工具。數(shù)據(jù)庫(kù)能匯集各種信息以供查詢、存儲(chǔ)和檢索。SQL Server2000的優(yōu)點(diǎn)在于它是真正的客戶機(jī)/服務(wù)器體系結(jié)構(gòu)。圖形化用戶界面，使系統(tǒng)管理和數(shù)據(jù)庫(kù)管理更加直觀、簡(jiǎn)單。豐富的編程接口工具，為用戶進(jìn)行程序設(shè)計(jì)提供了更大的選擇余地。SQL Server與Windows NT完全集成

18、，利用了NT的許多功能，如發(fā)送和接受消息，管理登錄安全性等。</p><p>　　下面介紹一下ADO技術(shù)。</p><p>　　ADO（ActiveX Data Object, Active 數(shù)據(jù)對(duì)象）是Microsoft提供的一種面向?qū)ο螅c語(yǔ)言無(wú)關(guān)的數(shù)據(jù)訪問應(yīng)用編程接口。據(jù)大部分資料介紹，它有如下主要特點(diǎn)：易于使用,可以訪問多種數(shù)據(jù)源,訪問速度快，效率高,技術(shù)編程接口豐富,低內(nèi)存支出

19、和占用磁盤空間較少。</p><p>　　ADO模型包括了下列對(duì)象：連接（Connection）、命令 (Command)、記錄集 (Recordset)、字段 (Field)、參數(shù) (Parameter)、錯(cuò)誤 (Error)、屬性 (Property)、集合 、事件.它們之間的關(guān)系如下圖:</p><p>　　同傳統(tǒng)的數(shù)據(jù)對(duì)象層次（DAO和RDO）不同，ADO可以獨(dú)立創(chuàng)建。因此你可

20、以只創(chuàng)建一個(gè)"Connection"對(duì)象，但是可以有多個(gè)，獨(dú)立的"Recordset"對(duì)象來(lái)使用它。我們最常用的主要是Connection、Recordset及Command這三個(gè)對(duì)象。對(duì)于訪問一個(gè)數(shù)據(jù)庫(kù)來(lái)說，我們一般先建立一個(gè)ADO連接。ADO連接可以直接執(zhí)行SQL語(yǔ)句來(lái)操縱數(shù)據(jù)庫(kù)，但如果我們要對(duì)數(shù)據(jù)在應(yīng)用程序和數(shù)據(jù)源之間進(jìn)行存取的話，就需要用到記錄集對(duì)象。一個(gè)ADO連接可以有多個(gè)ADO連接，但

21、一個(gè)ADO連接一般只能對(duì)應(yīng)一個(gè)且必須對(duì)應(yīng)一個(gè)ADO連接。另外如果你可進(jìn)行更高級(jí)別的訪問的話,還可能要用到命令對(duì)象。例如要調(diào)用存儲(chǔ)過程等。一個(gè)記錄集包含有一個(gè)字段集，一個(gè)字段集則包含有多個(gè)字段對(duì)象。同樣一個(gè)命令對(duì)象也包含一個(gè)參數(shù)集，一個(gè)參數(shù)集則包含有多個(gè)參數(shù)對(duì)象。連接對(duì)象也有一個(gè)錯(cuò)誤集并包含有多個(gè)錯(cuò)誤對(duì)象。</p><p>　　第二部分 需求分析</p><p>　　管理房地產(chǎn)評(píng)估信息工作

22、的本身特點(diǎn)及特殊性質(zhì)，單靠人力，會(huì)使從事這項(xiàng)工作的管理人員過度纏身于煩瑣的業(yè)務(wù)中，難免會(huì)發(fā)生許多錯(cuò)誤，難以做到管理的規(guī)范化，這不符合管理工作的今后發(fā)展趨勢(shì)。因此，需要開發(fā)一種功能全面，操作簡(jiǎn)單的管理系統(tǒng)軟件來(lái)輔助作用，人機(jī)配合，能夠使機(jī)器承擔(dān)部分工作，是管理員逐步擺脫一些無(wú)謂的，瑣碎的業(yè)務(wù)，這對(duì)充分利用人力資源的主導(dǎo)作用及使管理工作逐步步入規(guī)范化軌道有著重要意義。</p><p>　　使用計(jì)算機(jī)對(duì)房地產(chǎn)評(píng)估信息進(jìn)

23、行管理,具有著手工管理所無(wú)法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高房地產(chǎn)評(píng)估信息管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。</p><p>　　通過對(duì)用戶的調(diào)查了解，這個(gè)程序主要應(yīng)完成以下的幾點(diǎn)要求：</p><p>　　◇評(píng)估人員登錄系統(tǒng)，評(píng)估人員輸入評(píng)估信息如委托方的信息，房屋資料，房屋狀況，房

24、屋分幢成新程度（完損等級(jí)）評(píng)定表。</p><p>　　◇系統(tǒng)根據(jù)用戶輸入的房屋資料，房屋狀況，房屋分幢成新程度（完損等級(jí)）評(píng)定表自動(dòng)生成房屋價(jià)格?？梢园言u(píng)估結(jié)果打印出來(lái)。</p><p>　　◇按各種條件統(tǒng)計(jì)，歸檔。</p><p>　　◇隨時(shí)按組合查詢和模糊查詢對(duì)評(píng)估報(bào)告查詢。</p><p>　　◇只有有權(quán)限的人才可以對(duì)數(shù)據(jù)庫(kù)進(jìn)行維護(hù)。

25、</p><p>　　第三部分 總體設(shè)計(jì)</p><p>　　下面將介紹總體設(shè)計(jì)部分。</p><p><b>　　數(shù)據(jù)庫(kù)設(shè)計(jì)：</b></p><p>　　根據(jù)人員規(guī)模，我們只建立起一個(gè)數(shù)據(jù)庫(kù)，在此數(shù)據(jù)庫(kù)基礎(chǔ)上建立起如下表。</p><p>　　小型報(bào)告表(xxbg)</p>&

26、lt;p>　　估價(jià)師檔案表(gjsda)</p><p>　　設(shè)計(jì)用途表(sjyt)</p><p><b>　　價(jià)格表(jg)</b></p><p>　　估價(jià)目的表(gjmd)</p><p>　　估價(jià)依據(jù)表(gjyj)</p><p>　　估價(jià)原則表(gjyz)</p>

27、<p><b>　　建筑物表(jzw)</b></p><p>　　小型報(bào)告估價(jià)師表(xxbggjs)</p><p><b>　　房地產(chǎn)表（fdc）</b></p><p>　　以上幾張表均屬于基本表。</p><p><b>　　程序設(shè)計(jì)：</b></p&g

28、t;<p>　　將房地產(chǎn)評(píng)估系統(tǒng)設(shè)計(jì)成五個(gè)大模塊，如圖所示：</p><p>　　1.評(píng)估報(bào)告模塊：評(píng)估人員將獲得的評(píng)估信息輸入系統(tǒng)，評(píng)估信息依次輸入到房屋資料，房屋狀況，房屋分幢成新程度（完損等級(jí)）評(píng)定表，估價(jià)對(duì)象概況欄，根據(jù)以上信息自動(dòng)完成估價(jià)結(jié)果和估價(jià)分析與計(jì)算。這樣就形成了評(píng)估報(bào)告。根據(jù)需要也可以把評(píng)估報(bào)告通過打印機(jī)打印出來(lái)。也可以查詢已創(chuàng)建的評(píng)估報(bào)告。查詢按房屋所有權(quán)人，房權(quán)證號(hào)，房屋坐落

29、，估價(jià)時(shí)點(diǎn)，丘（地）號(hào)，設(shè)計(jì)用途，幢號(hào)，估價(jià)目的，房號(hào)，估價(jià)人名等條件來(lái)查詢。條件不必全輸入，只要輸入某一項(xiàng)也能進(jìn)行查詢。查詢結(jié)束后在下面的窗口顯示結(jié)果，用戶可以雙擊結(jié)果進(jìn)行查看。</p><p>　　2.維護(hù)模塊：完成對(duì)系統(tǒng)數(shù)據(jù)和數(shù)據(jù)庫(kù)的維護(hù)，如用戶名、密碼的更新，歸檔評(píng)估報(bào)告，刷新系統(tǒng)數(shù)據(jù)等操作。</p><p>　　3.統(tǒng)計(jì)模塊：根據(jù)時(shí)間，估價(jià)人員，估價(jià)目的，設(shè)計(jì)用途等條件進(jìn)行統(tǒng)計(jì)。

30、把統(tǒng)計(jì)結(jié)果顯示到下面的窗口中。 </p><p><b>　　程序數(shù)據(jù)流圖：</b></p><p>　　獲得信息 輸入 查詢</p><p><b>　　維護(hù)</b></p><p>　　第五部分 詳細(xì)設(shè)計(jì)</p&g

31、t;<p>　　下面是詳細(xì)設(shè)計(jì)部分。</p><p><b>　　1.評(píng)估報(bào)告模塊</b></p><p>　　該模塊是完成對(duì)評(píng)估信息的輸入、查詢、并以此生成評(píng)估報(bào)告。此模塊主要包括2個(gè)窗口，新建評(píng)估報(bào)告窗口、查詢條件窗口。</p><p>　　新建評(píng)估報(bào)告主要功能是根據(jù)用戶輸入的信息計(jì)算出房屋價(jià)格。信息輸入主要是通過TextBo

32、x控件和ComboBox控件完成。首先要輸入委托方的基本信息。委托方的名稱，估價(jià)方名稱，房屋坐落位置，房屋所有權(quán)人房權(quán)證號(hào)，丘（地）號(hào)，報(bào)告有效期這些信息是通過TextBox控件輸入。估價(jià)日期，估價(jià)時(shí)點(diǎn)，估價(jià)目的，估價(jià)方法是通過ComboBox控件輸入。然后，輸入的是房屋狀況信息。幢號(hào)，房號(hào)，房屋總層數(shù)，所在層數(shù)，建筑面積（平方米）是通過TextBox控件輸入，而結(jié)構(gòu)和設(shè)計(jì)用途是通過ComboBox控件輸入。</p>&l

33、t;p>　　下面輸入的是用于計(jì)算房屋價(jià)格的信息。首先要計(jì)算成新程度，成新程度由結(jié)構(gòu)部分,裝修部分,設(shè)備部分組成。結(jié)構(gòu)部分是由地基基礎(chǔ)，承重構(gòu)件，非承重墻，屋面，樓地面組成。裝飾部分是由門窗，外裝飾，內(nèi)裝飾，頂棚，細(xì)木裝修組成。設(shè)備部分是由水衛(wèi)，電氣照明，采暖，組成。</p><p>　　結(jié)構(gòu)部分的合計(jì)是由用戶輸入的地基基礎(chǔ)值，承重構(gòu)件值，非承重墻值，屋面值，樓地面值計(jì)算。其他部分的計(jì)算類似。</p&g

34、t;<p><b>　　公式如下，</b></p><p>　　結(jié)構(gòu)部分的合計(jì)=（地基基礎(chǔ)值+承重構(gòu)件值+非承重墻值+屋面值，+樓地面值）*權(quán)重1</p><p>　　裝修部分的合計(jì)=（門窗值+外裝飾值+內(nèi)裝飾值+頂棚值+細(xì)木裝修值）*權(quán)重2</p><p>　　設(shè)備部分的合計(jì)=（水衛(wèi)值+外裝飾值+電氣照明值+采暖值）*權(quán)重3&l

35、t;/p><p>　　注：權(quán)重值加起來(lái)必須等于1。</p><p>　　成新程度就是把結(jié)構(gòu)部分的合計(jì)，裝修部分的合計(jì)，設(shè)備部分的合計(jì)加起來(lái)的值。</p><p>　　下面要計(jì)算房屋價(jià)格。房屋價(jià)格是根據(jù)估價(jià)分析與計(jì)算里的重置價(jià)，房屋價(jià)格調(diào)節(jié)系數(shù)，其它調(diào)節(jié)系數(shù)（包括環(huán)境，裝修設(shè)備，樓層，營(yíng)業(yè)房）計(jì)算。</p><p><b>　　公式如下，

36、</b></p><p>　　房屋價(jià)格=重置價(jià)*成新系數(shù)（成新程度/10）*（1+其它調(diào)節(jié)系數(shù)合計(jì)）*（1+房屋價(jià)格調(diào)節(jié)系數(shù)）*面積</p><p>　　系統(tǒng)計(jì)算后在自動(dòng)在估價(jià)分析與計(jì)算，估價(jià)結(jié)果里顯示出相應(yīng)的信息。</p><p>　　查詢條件功能是根據(jù)用戶輸入的信息在現(xiàn)有的報(bào)告當(dāng)中查詢并顯示在窗口上。</p><p>　　此功

37、能是通過調(diào)用SQL語(yǔ)句當(dāng)中的Select命令來(lái)實(shí)現(xiàn)。首先用open方法跟數(shù)據(jù)庫(kù)建立連接，連接完成以后用select命令處理結(jié)果。</p><p><b>　　部分代碼：</b></p><p>　　srchStr = "SELECT TOP 100 PERCENT Xxbg.gjbgBH,Gjsda.Name, Xxbg.Gjsd, Xxbg.Syqr,

38、Xxbg.Fqzh, Xxbg.Qdh, Xxbg.Zh, Xxbg.Fh,Xxbg.Fwzl, Xxbg.Gd " & _</p><p>　　"FROM Xxbg INNER JOIN gjsda ON Xxbg.gjs = gjsda.gjsID WHERE (" & _ </p><p>　　"(Gjsda.Name LIKE

39、 '%" & cmoGjs.Text.Trim & "%') AND " & _</p><p>　　"(Xxbg.Gjsd BETWEEN '" & datGjsd1.Value & "' AND '" & datGjsd2.Value & &qu

40、ot;') AND " & _ "(Xxbg.Syqr LIKE '%" & txtSyqr.Text.Trim & "%') AND " & _</p><p>　　"(Xxbg.Fqzh LIKE '%" & txtFqzh.Text.Trim & "

41、%') AND " & _</p><p>　　"(Xxbg.Qdh Like '%" & txtQdh.Text.Trim & "%') And " & _</p><p>　　"(Xxbg.Zh Like '%" & txtZh.Text.Tri

42、m & "%') And " & _</p><p>　　"(Xxbg.Fh Like '%" & txtFh.Text.Trim & "%') AND " & _</p><p>　　"(Xxbg.Gjmd LIKE '%" &

43、cmoGjmd.Text.Trim & "%') AND " & _</p><p>　　"(Xxbg.Sjyt LIKE '%" & cmoSjyt.Text.Trim & "%') AND " & _</p><p>　　"(Xxbg.Fwzl Like

44、 '%" & txtFwzl.Text.Trim & "%')) " & _</p><p>　　"ORDER BY xxbg.gjsd DESC,Xxbg.gjs"</p><p>　　“估價(jià)分析與計(jì)算”和“估價(jià)結(jié)果”文本框與其他文本框不同，自動(dòng)生成其內(nèi)容?！肮纼r(jià)分析與計(jì)算”文本框中的內(nèi)容根據(jù)重置價(jià)

45、、成新系數(shù)、計(jì)算方法的不同其內(nèi)容自動(dòng)變換?！肮纼r(jià)結(jié)果”文本框中的內(nèi)容根據(jù)所選擇時(shí)間點(diǎn)和所計(jì)算出的價(jià)格，顯示不同的文本內(nèi)容。</p><p><b>　　部分代碼如下</b></p><p>　　自動(dòng)生成“估價(jià)分析與計(jì)算”和“估價(jià)結(jié)果”的TextBox內(nèi)容的源代碼</p><p>　　Private Sub chgFXJSandGJJG()<

46、;/p><p>　　Dim sStr, sStr1, s1, s2 As String, i As Short</p><p>　　sStr = "根據(jù)估價(jià)依據(jù)和有關(guān)因素，估價(jià)對(duì)象的房地產(chǎn)重置價(jià)確定為" & _</p><p>　　Format(Val(txtCbfCzj.Text), "0.00#") & &qu

47、ot;元/平方米，成新系數(shù)為" & Format(Val(lblCx.Text) / 10, "0.00#")</p><p>　　sStr1 = vbCrLf & Trim(cmoJzdy.Text) & vbCrLf & "=" & Format(Val(txtCbfCzj.Text), "0.00#"

48、;) & "×" & Format(Val(lblCx.Text) / 10, "0.00") & "×(1"</p><p>　　If Val(txtCbftjxsV1.Text) <> 0 Then</p><p>　　sStr = sStr & "，&

49、quot; & Trim(txtCbftjxs1.Text) & "調(diào)節(jié)系數(shù)" & IIf(Val(txtCbftjxsV1.Text) > 0, "+", "") & Trim(txtCbftjxsV1.Text) & "%"</p><p>　　sStr1 = sStr1 &

50、IIf(Val(txtCbftjxsV1.Text) > 0, "+", "") & Trim(txtCbftjxsV1.Text) & "%"</p><p><b>　　End If</b></p><p>　　……………………………………</p><p>　

51、　s1 = Format(Val(lblCbfScjz.Text), "#,###,###,###,##0.00")</p><p>　　s2 = rmbDaXie(Val(Trim(lblCbfScjz.Text)))</p><p>　　sStr1 = sStr1 & "×" & Format(Val(txtJzmj.T

52、ext), "#,###,###,###,##0.00#") & vbCrLf & "=" & _</p><p>　　s1 & "(元)。" & vbCrLf & "大寫人民幣" & s2 & "。"</p><p>　　tx

53、tFxJs1.Text = sStr & sStr1</p><p>　　txtGjJg.Text = "估價(jià)對(duì)象在估價(jià)時(shí)點(diǎn)" & Format(datGjsd.Value, "yyyy年MM月dd日") & "的" & Trim(cmoJzdy.Text) & "評(píng)估為" & s1 &

54、amp; "元，" & vbCrLf & "大寫人民幣" & s2 & "。"</p><p><b>　　2.統(tǒng)計(jì)模塊</b></p><p>　　根據(jù)用戶輸入的信息在數(shù)據(jù)庫(kù)中查找，找到以后顯示在窗體上。</p><p>　　用open方法跟數(shù)據(jù)庫(kù)建立

55、連接，連接完成以后用select命令處理結(jié)果。</p><p><b>　　部分代碼：</b></p><p><b>　　With tbl</b></p><p>　　.Open("gjsda", serverDB, ADODB.CursorTypeEnum.adOpenForwardOnly, AD

56、ODB.LockTypeEnum.adLockReadOnly)</p><p>　　Do While Not .EOF</p><p>　　chkGjry.Items.Add(CStr(.Fields("name").Value).Trim)</p><p>　　.MoveNext()</p><p><b>

57、　　Loop</b></p><p><b>　　.Close()</b></p><p>　　.Open("gjmd", serverDB, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly)</p><p>　　

58、Do While Not .EOF</p><p>　　chkGjmd.Items.Add(CStr(.Fields("name").Value).Trim)</p><p>　　.MoveNext()</p><p><b>　　Loop</b></p><p><b>　　.Close(

59、)</b></p><p>　　.Open("sjyt", serverDB, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly)</p><p>　　Do While Not .EOF</p><p>　　chkSjyt.Items.A

60、dd(CStr(.Fields("name").Value).Trim)</p><p>　　.MoveNext()</p><p><b>　　Loop</b></p><p><b>　　.Close()</b></p><p><b>　　End With<

61、/b></p><p>　　Me.Top += 20</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click

62、</p><p>　　Me.Close()</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStart.Click</p

63、><p>　　Dim sGjry, sGjmd, sSjyt As String</p><p>　　Dim i As Short</p><p>　　Dim tJs, tGje, tSfe As Long</p><p>　　Dim tJzmj As Single</p><p>　　sGjry = " lik

64、e '%' "</p><p>　　If chkGjry.CheckedItems.Count <> 0 Then</p><p>　　sGjry = " in ("</p><p>　　For i = 0 To chkGjry.CheckedItems.Count - 1</p><p&

65、gt;　　sGjry = sGjry & "'" & Trim(chkGjry.CheckedItems(i)) & "',"</p><p><b>　　Next</b></p><p>　　Mid(sGjry, Len(sGjry), 1) = ")"</p&

66、gt;<p><b>　　End If</b></p><p>　　sGjmd = " like '%' "</p><p>　　If chkGjmd.CheckedItems.Count <> 0 Then</p><p>　　sGjmd = " in ("&l

67、t;/p><p>　　For i = 0 To chkGjmd.CheckedItems.Count - 1</p><p>　　sGjmd = sGjmd & "'" & Trim(chkGjmd.CheckedItems(i)) & "',"</p><p><b>　　Nex

68、t</b></p><p>　　Mid(sGjmd, Len(sGjmd), 1) = ")"</p><p><b>　　End If</b></p><p>　　sSjyt = " like '%' "</p><p>　　If chkSjyt.Ch

69、eckedItems.Count <> 0 Then</p><p>　　sSjyt = " in ("</p><p>　　For i = 0 To chkSjyt.CheckedItems.Count - 1</p><p>　　sSjyt = sSjyt & "'" & Trim(ch

70、kSjyt.CheckedItems(i)) & "',"</p><p><b>　　Next</b></p><p>　　Mid(sSjyt, Len(sSjyt), 1) = ")"</p><p><b>　　End If</b></p><

71、;p>　　Dim sStr As String = "SELECT " & _</p><p>　　"Count(xxbg.gjbgBH) AS vJs, " & _</p><p>　　"Sum(Xxbg.Jzmj) AS vJzmj, " & _</p><p>　　&qu

72、ot;Sum(xxbg.Fdcjz) AS vGje, " & _</p><p>　　"Sum(xxbg.Gjfwf) AS vSfe, " & _</p><p>　　"Xxbg.Gjmd " & _</p><p>　　"FROM xxbg INNER JOIN gjsda O

73、N Xxbg.gjs = gjsda.gjsID WHERE (" & _</p><p>　　"(Xxbg.Gjrq Between '" & datGjrq1.Value & "' And '" & datGjrq2.Value & "') AND " & _&

74、lt;/p><p>　　"(Xxbg.Gjmd" & sGjmd & ") AND " & _</p><p>　　"(gjsda.name" & sGjry & ") AND " & _</p><p>　　"(Xxbg.Sjyt&

75、quot; & sSjyt & ")) " & _</p><p>　　"GROUP BY Xxbg.Gjmd"</p><p>　　On Error Resume Next</p><p><b>　　3.維護(hù)模塊</b></p><p>　　此模塊除完成

76、數(shù)據(jù)的一般性維護(hù)，如系統(tǒng)的初始化，另外還有密碼的修改和數(shù)據(jù)更新。</p><p>　　更改密碼：更改系統(tǒng)登陸密碼模塊的主要功能是更改某個(gè)用戶密碼，以便不讓人知道密碼。</p><p>　　部分代碼：Private Sub savXtsj()</p><p>　　On Error Resume Next</p><p>　　Dim i As I

77、nteger</p><p>　　If gjsdaUpdated Then</p><p><b>　　With tbl</b></p><p>　　.Open("gjsda", serverDB, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOp

78、timistic)</p><p>　　For i = 1 To gjsNum</p><p>　　.MoveFirst()</p><p>　　.Find("gjsid='" & flxGjsda.get_TextMatrix(i, 0).Trim & "'")</p><

79、p>　　If .EOF Then</p><p><b>　　.AddNew()</b></p><p>　　.Fields("gjsid").Value = flxGjsda.get_TextMatrix(i, 0).Trim</p><p><b>　　End If</b></p>

80、<p>　　.Fields("name").Value = flxGjsda.get_TextMatrix(i, 1).Trim</p><p>　　.Fields("zg").Value = flxGjsda.get_TextMatrix(i, 2).Trim</p><p>　　.Fields("zc").Val

81、ue = flxGjsda.get_TextMatrix(i, 3).Trim</p><p>　　.Fields("ksh").Value = flxGjsda.get_TextMatrix(i, 4).Trim</p><p>　　.Fields("enable").Value = IIf(flxGjsda.get_TextMatrix(i, 6

82、).Trim = "√",0, 1)</p><p>　　.Fields("canedit").Value = gjsQx(i - 1).canEdit</p><p>　　.Fields("canview").Value = gjsQx(i - 1).canView</p><p>　　.Fields(&

83、quot;cantotal").Value = gjsQx(i - 1).canTotal</p><p>　　.Fields("cangd").Value = gjsQx(i - 1).canGd</p><p>　　.Fields("canwh").Value = gjsQx(i - 1).canWh</p><p&

84、gt;　　If .Fields("gjsid").Value = currentUser.ID Then</p><p>　　currentUser.Name = CStr(.Fields("name").Value).Trim</p><p>　　currentUser.Gjzg = CStr(.Fields("zg").Val

85、ue).Trim</p><p><b>　　End If</b></p><p><b>　　Next</b></p><p><b>　　.Update()</b></p><p><b>　　.Close()</b></p><p

86、><b>　　End With</b></p><p><b>　　End If</b></p><p>　　歸檔：歸檔評(píng)估報(bào)告模塊的主要功能是按不同時(shí)間段和不同估價(jià)師查找其所有評(píng)估報(bào)告，然后在找到的結(jié)果中再選擇所需的評(píng)估報(bào)告保存到相關(guān)目錄中。</p><p><b>　　系統(tǒng)數(shù)據(jù)維護(hù)：</b>

87、</p><p>　　系統(tǒng)數(shù)據(jù)維護(hù)模塊實(shí)現(xiàn)新數(shù)據(jù)的錄入、查詢現(xiàn)有數(shù)據(jù)、刪除過期數(shù)據(jù)等功能。</p><p><b>　　部分代碼：</b></p><p>　　.Open("xindainfo", serverDB, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum

88、.adLockOptimistic)</p><p>　　If .EOF Then .AddNew()</p><p>　　.Fields("fgz").Value = txtFgz.Text.Trim</p><p>　　.Fields("fqzz").Value = txtFqzz.Text.Trim</p>

89、<p>　　.Fields("gjf").Value = txtMc.Text.Trim</p><p>　　.Fields("gjfe").Value = txtMcE.Text.Trim</p><p>　　.Fields("fddbr").Value = txtDbr.Text.Trim</p>&

90、lt;p>　　.Fields("zs").Value = txtZs.Text.Trim</p><p>　　.Fields("zgdj").Value = txtZgdj.Text.Trim</p><p>　　.Fields("jfl1").Value = Val(txtJfl1.Text.Trim)</p>

91、<p>　　.Fields("jfl2").Value = Val(txtJfl2.Text.Trim)</p><p>　　.Fields("jfl3").Value = Val(txtJfl3.Text.Trim)</p><p>　　.Fields("jfl4").Value = Val(txtJfl4.Tex

92、t.Trim)</p><p>　　.Fields("jfl5").Value = Val(txtJfl5.Text.Trim)</p><p>　　.Fields("jfl6").Value = Val(txtJfl6.Text.Trim)</p><p>　　.Fields("jfl7").Value

93、= Val(txtJfl7.Text.Trim)</p><p>　　.Fields("tdjfl1").Value = Val(txtTdJfl1.Text.Trim)</p><p>　　.Fields("tdjfl2").Value = Val(txtTdJfl2.Text.Trim)</p><p>　　.Fields

94、("tdjfl3").Value = Val(txtTdJfl3.Text.Trim)</p><p>　　.Fields("tdjfl4").Value = Val(txtTdJfl4.Text.Trim)</p><p>　　.Fields("tdjfl5").Value = Val(txtTdJfl5.Text.Trim)&

95、lt;/p><p>　　.Fields("tdjfl6").Value = Val(txtTdJfl6.Text.Trim)</p><p>　　.Fields("tdjfl7").Value = Val(txtTdJfl7.Text.Trim)</p><p><b>　　.Update()</b><

96、/p><p><b>　　.Close()</b></p><p>　　至此房地產(chǎn)評(píng)估系統(tǒng)基本開發(fā)完畢。其功能基本符合用戶需求，能夠完成評(píng)估信息的輸入和統(tǒng)計(jì)。以及各類相關(guān)報(bào)表的打印。并提供部分系統(tǒng)維護(hù)功能,使用戶方便進(jìn)行數(shù)據(jù)備份和恢復(fù)、數(shù)據(jù)刪除密碼更新。</p><p>　　但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔