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

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

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

3、等特點。這些優(yōu)點能夠極大地提高評估效率。</p><p>　　根據(jù)實際情況，我使用Visual Basic.NET作為數(shù)據(jù)庫前臺應用程序開發(fā)工具，Microsoft SQL Server2000作為后臺數(shù)據(jù)庫管理工具。</p><p>　　關(guān)鍵字：房地產(chǎn)評估系統(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è)計………………………………………………………………………8 </p><p>　　第四部分：詳細設(shè)計………………………………………………………………………12&l

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

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

15、學技術(shù)是第一生產(chǎn)力”，我希望能用我四年的所學編制出一個實用的程序來幫助房地產(chǎn)評估機構(gòu)進行更有效的管理。 歸納起來，好處大約有以下幾點：1．可以存儲已評估的報告，安全、高效；2．只需一到二名評估員即可操作系統(tǒng)，節(jié)省大量人力，減少計算量，準確性高；3．可以迅速查到所需信息，還可以把所需的信息打印出來。</p><p>　　我選擇Visual Basic.NET作為數(shù)據(jù)庫前臺開發(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è)計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計過程，從而有效的提高了應用程序的運行效率和可靠性。故而，

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

37、能是通過調(diào)用SQL語句當中的Select命令來實現(xiàn)。首先用open方法跟數(shù)據(jù)庫建立連接，連接完成以后用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é)果”文本框與其他文本框不同，自動生成其內(nèi)容?！肮纼r分析與計算”文本框中的內(nèi)容根據(jù)重置價

45、、成新系數(shù)、計算方法的不同其內(nèi)容自動變換。“估價結(jié)果”文本框中的內(nèi)容根據(jù)所選擇時間點和所計算出的價格，顯示不同的文本內(nèi)容。</p><p><b>　　部分代碼如下</b></p><p>　　自動生成“估價分析與計算”和“估價結(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ù)估價依據(jù)和有關(guān)因素，估價對象的房地產(chǎn)重置價確定為" & _</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 = "估價對象在估價時點" & Format(datGjsd.Value, "yyyy年MM月dd日") & "的" & Trim(cmoJzdy.Text) & "評估為" & s1 &

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

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.維護模塊</b></p><p>　　此模塊除完成

76、數(shù)據(jù)的一般性維護，如系統(tǒng)的初始化，另外還有密碼的修改和數(shù)據(jù)更新。</p><p>　　更改密碼：更改系統(tǒng)登陸密碼模塊的主要功能是更改某個用戶密碼，以便不讓人知道密碼。</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>　　歸檔：歸檔評估報告模塊的主要功能是按不同時間段和不同估價師查找其所有評估報告，然后在找到的結(jié)果中再選擇所需的評估報告保存到相關(guān)目錄中。</p><p><b>　　系統(tǒng)數(shù)據(jù)維護：</b>

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