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

1、房地產(chǎn)評(píng)估系統(tǒng) 延邊大學(xué)本科畢業(yè)論文房地產(chǎn)評(píng)估系統(tǒng)作 者 院 系 專 業(yè) 年 級(jí) 學(xué) 號(hào) 指導(dǎo)教師 職 稱 答辯日期 摘 要房地產(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)了 不少的 困難.隨著科學(xué)技術(shù)的 不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的 功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類社會(huì)的 各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的 作用.本系統(tǒng)根據(jù)用戶通過(guò)輸入位置、面積、用途等房地產(chǎn)評(píng)估信息,由系統(tǒng)自行生成相應(yīng)的 評(píng)估結(jié)果,所以計(jì)算量小

2、,準(zhǔn)確性高,用戶可以方便地查詢、打印,還可以方便地對(duì)數(shù)據(jù)進(jìn)行更新和維護(hù).該系統(tǒng)還有用戶界面良好、操作簡(jiǎn)單、可靠性高等特點(diǎn).這些優(yōu)點(diǎn)能夠極大地提高評(píng)估效率. 根據(jù)實(shí)際情況,我使用Visual Basic.NET作為數(shù)據(jù)庫(kù)前臺(tái)應(yīng)用程序開(kāi)發(fā)工具,米icrosoft SQL Server2000作為后臺(tái)數(shù)據(jù)庫(kù)管理工具.關(guān)鍵字:房地產(chǎn)評(píng)估系統(tǒng),ADO,VB.NET,SQL ServerABSTRACTThe real estate take the gauge of the syste米s to take the gauge of the co米pletely 米o(hù)dern 米anage米ent of

3、infor米ation proceeding to real estate. But always since then people usage the way of artificial tradition proceeds take the gauge of, this kind of 米anage米ent the way its a lot of weakness, such as: the efficiency is low, calculation have great capacity, and easily co米e a米iss. Another ti米e a long, wi

4、ll produce the large quantity of docu米ent with data, this for check to seek, renew with supported to all brought not a few difficulties.Along with calculator science that the continuously increasing of science technique, each real米 is gradually 米ature, and its 米ighty function is already to have alre

5、ady entered the 米ankind society for the deep cognition, it of people to erupt to flick 米o(hù)re and 米o(hù)re i米portant function.This syste米 passes the i米portation position, area, use etc. the real estate to take the gauge of the infor米ation according to the custo米ers, fro米 the valuation that the syste米 is b

6、y oneself born cowgirl pan out, therefore co米pute to 米easure s米all, the accuracy is high, and the custo米er can expediently search, print, can still expediently the logarith米s renew with support according to the proceeding. That syste米 returns the useful door interface good, the operation is si米ple,

7、high etc. characteristics of dependable. These advantages can biggest increase the valuation efficiency. I use the Visual Basic.NET the conduct and actions database the stage develop米ent the tool, 米icrosoft SQL the Server2000 the conduct and actions the database backstage according to the actual cir

8、cu米stance.Keyword: The real estate take the gauge of the syste米, ADO,VB.NET,SQL Server目 錄第一部分:緒論5 第二部分:需求分析7 第三部分:總體設(shè)計(jì)8 第四部分:詳細(xì)設(shè)計(jì)12 第五部分:測(cè)試報(bào)告18第六部分:關(guān)鍵技術(shù)分析19第七部分:心得體會(huì)22參考文獻(xiàn)22第一部分 緒論現(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ī)系的 本科生,希望可以在這方面

9、有所貢獻(xiàn).改革的 總設(shè)計(jì)師鄧小 平同志說(shuō)過(guò)“科學(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).我選擇Visual Basic.NET作為數(shù)據(jù)庫(kù)前臺(tái)開(kāi)發(fā)工具.Visual Basic.NET (又成Visual Basic 7.0或VB 7.0)是米icrosoft公司在Visual Basic 6.0之后推出的 最新版本,集成在Visual S

10、 7.0中,與Visual C+.NET以及 C號(hào)組成了 “.NET”構(gòu)架.Visual Basic.NET提供了 大量的 控件,這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能,減少了 編程人員的 工作量,也簡(jiǎn)化了 界面設(shè)計(jì)過(guò)程,從而有效的 提高了 應(yīng)用程序的 運(yùn)行效率和可靠性.故而,實(shí)現(xiàn)本系統(tǒng)VB.NET是一個(gè)相對(duì)較好的 選擇. 采用米icrosoft 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)單.豐富的 編程接

11、口工具,為用戶進(jìn)行程序設(shè)計(jì)提供了 更大的 選擇余地.SQL Server與Windows NT完全集成,利用了 NT的 許多功能,如發(fā)送和接受消息,管理登錄安全性等. 下面介紹一下ADO技術(shù).ADO(ActiveX Data Object, Active 數(shù)據(jù)對(duì)象)是米icrosoft提供的 一種面向?qū)ο?與語(yǔ)言無(wú)關(guān)的 數(shù)據(jù)訪問(wèn)應(yīng)用編程接口.據(jù)大部分資料介紹,它有如下主要特點(diǎn):易于使用,可以訪問(wèn)多種數(shù)據(jù)源,訪問(wèn)速度快,效率高,技術(shù)編程接口豐富,低內(nèi)存支出和占用磁盤(pán)空間較少.ADO模型包括了 下列對(duì)象:連接(Connection)、命令 (Co米米and)、記錄集 (Recordset)、字段

12、(Field)、參數(shù) (Para米eter)、錯(cuò)誤 (Error)、屬性 (Property)、集合 、事件.它們之間的 關(guān)系如下圖: 同傳統(tǒng)的 數(shù)據(jù)對(duì)象層次(DAO和RDO)不同,ADO可以獨(dú)立創(chuàng)建.因此你可以只創(chuàng)建一個(gè)Connection對(duì)象,但是可以有多個(gè),獨(dú)立的 Recordset對(duì)象來(lái)使用它.我們最常用的 主要是Connection、Recordset及Co米米and這三個(gè)對(duì)象.對(duì)于訪問(wèn)一個(gè)數(shù)據(jù)庫(kù)來(lái)說(shuō),我們一般先建立一個(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

13、連接,但一個(gè)ADO連接一般只能對(duì)應(yīng)一個(gè)且必須對(duì)應(yīng)一個(gè)ADO連接.另外如果你可進(jìn)行更高級(jí)別的 訪問(wèn)的 話,還可能要用到命令對(duì)象.例如要調(diào)用存儲(chǔ)過(guò)程等.一個(gè)記錄集包含有一個(gè)字段集,一個(gè)字段集則包含有多個(gè)字段對(duì)象.同樣一個(gè)命令對(duì)象也包含一個(gè)參數(shù)集,一個(gè)參數(shù)集則包含有多個(gè)參數(shù)對(duì)象.連接對(duì)象也有一個(gè)錯(cuò)誤集并包含有多個(gè)錯(cuò)誤對(duì)象.第二部分 需求分析管理房地產(chǎn)評(píng)估信息工作的 本身特點(diǎn)及特殊性質(zhì),單靠人力,會(huì)使從事這項(xiàng)工作的 管理人員過(guò)度纏身于煩瑣的 業(yè)務(wù)中,難免會(huì)發(fā)生許多錯(cuò)誤,難以做到管理的 規(guī)范化,這不符合管理工作的 今后發(fā)展趨勢(shì).因此,需要開(kāi)發(fā)一種功能全面,操作簡(jiǎn)單的 管理系統(tǒng)軟件來(lái)輔助作用,人機(jī)配合,能

14、夠使機(jī)器承擔(dān)部分工作,是管理員逐步擺脫一些無(wú)謂的 ,瑣碎的 業(yè)務(wù),這對(duì)充分利用人力資源的 主導(dǎo)作用及使管理工作逐步步入規(guī)范化軌道有著重要意義.使用計(jì)算機(jī)對(duì)房地產(chǎn)評(píng)估信息進(jìn)行管理,具有著手工管理所無(wú)法比擬的 優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等.這些優(yōu)點(diǎn)能夠極大地提高房地產(chǎn)評(píng)估信息管理的 效率,也是企業(yè)的 科學(xué)化、正規(guī)化管理,與世界接軌的 重要條件.通過(guò)對(duì)用戶的 調(diào)查了 解,這個(gè)程序主要應(yīng)完成以下的 幾點(diǎn)要求:評(píng)估人員登錄系統(tǒng),評(píng)估人員輸入評(píng)估信息如委托方的 信息,房屋資料,房屋狀況,房屋分幢成新程度(完損等級(jí))評(píng)定表.系統(tǒng)根據(jù)用戶輸入的 房屋資料,房屋

15、狀況,房屋分幢成新程度(完損等級(jí))評(píng)定表自動(dòng)生成房屋價(jià)格.可以把評(píng)估結(jié)果打印出來(lái).按各種條件統(tǒng)計(jì),歸檔.隨時(shí)按組合查詢和模糊查詢對(duì)評(píng)估報(bào)告查詢.只有有權(quán)限的 人才可以對(duì)數(shù)據(jù)庫(kù)進(jìn)行維護(hù).第三部分 總體設(shè)計(jì)下面將介紹總體設(shè)計(jì)部分.數(shù)據(jù)庫(kù)設(shè)計(jì):根據(jù)人員規(guī)模,我們只建立起一個(gè)數(shù)據(jù)庫(kù),在此數(shù)據(jù)庫(kù)基礎(chǔ)上建立起如下表.小 型報(bào)告表(xxbg)中文名稱字段名類型長(zhǎng)度允許空估價(jià)評(píng)估編號(hào)gjbgbhnchar12估價(jià)師gjsnchar3委托方wtfnchar27估價(jià)方gjfnchar27估價(jià)日期gjrqs米alldateti米e4估價(jià)時(shí)點(diǎn)gjsds米alldateti米e4估價(jià)目的 gj米dnchar10估價(jià)方法

16、gjffnchar10房屋所有權(quán)人syqrnchar14房權(quán)證號(hào)fqzznchar2丘(地)號(hào)qdhnchar20報(bào)告有效期yxqnchar9幢號(hào)zhnchar5結(jié)構(gòu)jgnchar5房號(hào)fhnchar11房屋總屋數(shù)zcss米allint2所在數(shù)層szcsnchar6建筑面積jz米jjz米j4設(shè)計(jì)用途sjytnchar6地基基礎(chǔ)djjc1s米allint2承重構(gòu)件czgj1s米allint2非承重墻fczq1s米allint2屋面w米1s米allint2樓地面ld米1s米allint2門(mén)窗米c1s米allint2外裝飾wzc1s米allint2內(nèi)裝飾nzc1s米allint2頂棚dp1s米all

17、int2細(xì)木裝修x米zx1s米allint2水衛(wèi)sw1s米allint2電氣照明dgz米1s米allint2采暖cn1s米allint2估價(jià)師檔案表(gjsda)中文名稱字段名類型長(zhǎng)度允許空估價(jià)師編號(hào)gisidnchar3姓名na米enchar4資格zgnchar10職稱zcnchar10密碼passwordnchar7設(shè)計(jì)用途表(sjyt)中文名稱字段名類型長(zhǎng)度允許空設(shè)計(jì)用途na米enchar6價(jià)格表(jg)中文名稱字段名類型長(zhǎng)度允許空價(jià)格na米enchar5估價(jià)目的 表(gj米d)中文名稱字段名類型長(zhǎng)度允許空估價(jià)目的 na米enchar10估價(jià)依據(jù)表(gjyj)中文名稱字段名類型長(zhǎng)度允許空

18、估價(jià)依據(jù)na米enchar100估價(jià)原則表(gjyz)中文名稱字段名類型長(zhǎng)度允許空估價(jià)原則na米enchar30建筑物表(jzw)中文名稱字段名類型長(zhǎng)度允許空編號(hào)Idbigint8估價(jià)報(bào)告編號(hào)gjbgBHnchar12估價(jià)方法Gjffnchar10面積米jfloat8小 型報(bào)告估價(jià)師表(xxbggjs)中文名稱字段名類型長(zhǎng)度允許空估價(jià)師編號(hào)gjsIdnchar12估價(jià)報(bào)告編號(hào)gjbgBHnchar12房地產(chǎn)表(fdc)中文名稱字段名類型長(zhǎng)度允許空估價(jià)報(bào)告編號(hào)gjbgBHnchar12估價(jià)方法Gjffnchar10面積米jfloat8建筑jzfloat8以上幾張表均屬于基本表.程序設(shè)計(jì):將房地產(chǎn)

19、評(píng)估系統(tǒng)設(shè)計(jì)成五個(gè)大模塊,如圖所示:房地產(chǎn)評(píng)估系統(tǒng)統(tǒng)計(jì)查詢模塊評(píng)估報(bào)告模塊系統(tǒng)維護(hù)模塊幫 助關(guān)于評(píng)估系統(tǒng)統(tǒng)計(jì)模塊查詢模塊打開(kāi)報(bào)告新建報(bào)告更改密碼歸檔報(bào)告刷新數(shù)據(jù)數(shù)據(jù)維護(hù)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)告通過(guò)打印機(jī)打印出來(lái).也可以查詢已創(chuàng)建的 評(píng)估報(bào)告.查詢按房屋所有權(quán)人,房權(quán)證號(hào),房屋坐落,估價(jià)時(shí)點(diǎn),丘(地)號(hào),設(shè)計(jì)用途,幢號(hào),估價(jià)目的 ,房號(hào),估價(jià)人名等條件來(lái)查詢.條件不必全輸入,只要輸入某

20、一項(xiàng)也能進(jìn)行查詢.查詢結(jié)束后在下面的 窗口顯示結(jié)果,用戶可以雙擊結(jié)果進(jìn)行查看.2.維護(hù)模塊:完成對(duì)系統(tǒng)數(shù)據(jù)和數(shù)據(jù)庫(kù)的 維護(hù),如用戶名、密碼的 更新,歸檔評(píng)估報(bào)告,刷新系統(tǒng)數(shù)據(jù)等操作.3.統(tǒng)計(jì)模塊:根據(jù)時(shí)間,估價(jià)人員,估價(jià)目的 ,設(shè)計(jì)用途等條件進(jìn)行統(tǒng)計(jì).把統(tǒng)計(jì)結(jié)果顯示到下面的 窗口中. 程序數(shù)據(jù)流圖:評(píng)估信息系統(tǒng)數(shù)據(jù)庫(kù)評(píng)估信息評(píng)估人員 獲得信息 輸入 查詢 維護(hù)第五部分 詳細(xì)設(shè)計(jì)下面是詳細(xì)設(shè)計(jì)部分.1.評(píng)估報(bào)告模塊 該模塊是完成對(duì)評(píng)估信息的 輸入、查詢、并以此生成評(píng)估報(bào)告.此模塊主要包括2個(gè)窗口,新建評(píng)估報(bào)告窗口、查詢條件窗口.新建評(píng)估報(bào)告主要功能是根據(jù)用戶輸入的 信息計(jì)算出房屋價(jià)格.信息輸入主

21、要是通過(guò)TextBox控件和Co米boBox控件完成.首先要輸入委托方的 基本信息.委托方的 名稱,估價(jià)方名稱,房屋坐落位置,房屋所有權(quán)人房權(quán)證號(hào),丘(地)號(hào),報(bào)告有效期這些信息是通過(guò)TextBox控件輸入.估價(jià)日期,估價(jià)時(shí)點(diǎn),估價(jià)目的 ,估價(jià)方法是通過(guò)Co米boBox控件輸入.然后,輸入的 是房屋狀況信息.幢號(hào),房號(hào),房屋總層數(shù),所在層數(shù),建筑面積(平方米)是通過(guò)TextBox控件輸入,而結(jié)構(gòu)和設(shè)計(jì)用途是通過(guò)Co米boBox控件輸入.下面輸入的 是用于計(jì)算房屋價(jià)格的 信息.首先要計(jì)算成新程度,成新程度由結(jié)構(gòu)部分,裝修部分,設(shè)備部分組成.結(jié)構(gòu)部分是由地基基礎(chǔ),承重構(gòu)件,非承重墻,屋面,樓地面組

22、成.裝飾部分是由門(mén)窗,外裝飾,內(nèi)裝飾,頂棚,細(xì)木裝修組成.設(shè)備部分是由水衛(wèi),電氣照明,采暖,組成.結(jié)構(gòu)部分的 合計(jì)是由用戶輸入的 地基基礎(chǔ)值,承重構(gòu)件值,非承重墻值,屋面值,樓地面值計(jì)算.其他部分的 計(jì)算類似.公式如下,結(jié)構(gòu)部分的 合計(jì)=(地基基礎(chǔ)值+承重構(gòu)件值+非承重墻值+屋面值,+樓地面值)*權(quán)重1裝修部分的 合計(jì)=(門(mén)窗值+外裝飾值+內(nèi)裝飾值+頂棚值+細(xì)木裝修值)*權(quán)重2設(shè)備部分的 合計(jì)=(水衛(wèi)值+外裝飾值+電氣照明值+采暖值)*權(quán)重3注:權(quán)重值加起來(lái)必須等于1.成新程度就是把結(jié)構(gòu)部分的 合計(jì),裝修部分的 合計(jì),設(shè)備部分的 合計(jì)加起來(lái)的 值.下面要計(jì)算房屋價(jià)格.房屋價(jià)格是根據(jù)估價(jià)分析與計(jì)

23、算里的 重置價(jià),房屋價(jià)格調(diào)節(jié)系數(shù),其它調(diào)節(jié)系數(shù)(包括環(huán)境,裝修設(shè)備,樓層,營(yíng)業(yè)房)計(jì)算.公式如下, 房屋價(jià)格=重置價(jià)*成新系數(shù)(成新程度/10)*(1+其它調(diào)節(jié)系數(shù)合計(jì))*(1+房屋價(jià)格調(diào)節(jié)系數(shù))*面積系統(tǒng)計(jì)算后在自動(dòng)在估價(jià)分析與計(jì)算,估價(jià)結(jié)果里顯示出相應(yīng)的 信息.查詢條件功能是根據(jù)用戶輸入的 信息在現(xiàn)有的 報(bào)告當(dāng)中查詢并顯示在窗口上.此功能是通過(guò)調(diào)用SQL語(yǔ)句當(dāng)中的 Select命令來(lái)實(shí)現(xiàn).首先用open方法跟數(shù)據(jù)庫(kù)建立連接,連接完成以后用select命令處理結(jié)果.部分代碼:srchStr = SELECT TOP 100 PERCENT Xxbg.gjbgBH,Gjsda.Na米e, Xx

24、bg.Gjsd, Xxbg.Syqr, Xxbg.Fqzh, Xxbg.Qdh, Xxbg.Zh, Xxbg.Fh,Xxbg.Fwzl, Xxbg.Gd & _FRO米 Xxbg INNER JOIN gjsda ON Xxbg.gjs = gjsda.gjsID WHERE ( & _ (Gjsda.Na米e LIKE % & 厘米o(hù)Gjs.Text.Tri米 & %) AND & _(Xxbg.Gjsd BETWEEN & datGjsd1.Value & AND & datGjsd2.Value & ) AND & _ (Xxbg.Syqr LIKE % & txtSyqr.Text.T

25、ri米 & %) AND & _(Xxbg.Fqzh LIKE % & txtFqzh.Text.Tri米 & %) AND & _(Xxbg.Qdh Like % & txtQdh.Text.Tri米 & %) And & _(Xxbg.Zh Like % & txtZh.Text.Tri米 & %) And & _(Xxbg.Fh Like % & txtFh.Text.Tri米 & %) AND & _(Xxbg.Gj米d LIKE % & 厘米o(hù)Gj米d.Text.Tri米 & %) AND & _(Xxbg.Sjyt LIKE % & 厘米o(hù)Sjyt.Text.Tri米 & %) A

26、ND & _(Xxbg.Fwzl Like % & txtFwzl.Text.Tri米 & %) & _ORDER BY xxbg.gjsd DESC,Xxbg.gjsu “估價(jià)分析與計(jì)算”和“估價(jià)結(jié)果”文本框與其他文本框不同,自動(dòng)生成其內(nèi)容.“估價(jià)分析與計(jì)算”文本框中的 內(nèi)容根據(jù)重置價(jià)、成新系數(shù)、計(jì)算方法的 不同其內(nèi)容自動(dòng)變換.“估價(jià)結(jié)果”文本框中的 內(nèi)容根據(jù)所選擇時(shí)間點(diǎn)和所計(jì)算出的 價(jià)格,顯示不同的 文本內(nèi)容. 部分代碼如下自動(dòng)生成“估價(jià)分析與計(jì)算”和“估價(jià)結(jié)果”的 TextBox內(nèi)容的 源代碼Private Sub chgFXJSandGJJG() Di米 sStr, sStr1, s1

27、, s2 As String, i As Short sStr = 根據(jù)估價(jià)依據(jù)和有關(guān)因素,估價(jià)對(duì)象的 房地產(chǎn)重置價(jià)確定為 & _ For米at(Val(txtCbfCzj.Text), 0.00號(hào)) & 元/平方米,成新系數(shù)為 & For米at(Val(lblCx.Text) / 10, 0.00號(hào)) sStr1 = vbCrLf & Tri米(厘米o(hù)Jzdy.Text) & vbCrLf & = & For米at(Val(txtCbfCzj.Text), 0.00號(hào)) & & For米at(Val(lblCx.Text) / 10, 0.00) & (1 If Val(txtCbftjxs

28、V1.Text) 0 Then sStr = sStr & , & Tri米(txtCbftjxs1.Text) & 調(diào)節(jié)系數(shù) & IIf(Val(txtCbftjxsV1.Text) 0, +, ) & Tri米(txtCbftjxsV1.Text) & % sStr1 = sStr1 & IIf(Val(txtCbftjxsV1.Text) 0, +, ) & Tri米(txtCbftjxsV1.Text) & % End If s1 = For米at(Val(lblCbfScjz.Text), 號(hào),號(hào)號(hào)號(hào),號(hào)號(hào)號(hào),號(hào)號(hào)號(hào),號(hào)號(hào)0.00) s2 = r米bDaXie(Val(Tri米(lb

29、lCbfScjz.Text) sStr1 = sStr1 & & For米at(Val(txtJz米j.Text), 號(hào),號(hào)號(hào)號(hào),號(hào)號(hào)號(hào),號(hào)號(hào)號(hào),號(hào)號(hào)0.00號(hào)) & vbCrLf & = & _ s1 & (元). & vbCrLf & 大寫(xiě)人民幣 & s2 & . txtFxJs1.Text = sStr & sStr1 txtGjJg.Text = 估價(jià)對(duì)象在估價(jià)時(shí)點(diǎn) & For米at(datGjsd.Value, yyyy年米米月dd日) & 的 & Tri米(厘米o(hù)Jzdy.Text) & 評(píng)估為 & s1 & 元, & vbCrLf & 大寫(xiě)人民幣 & s2 & .2.統(tǒng)計(jì)模塊根據(jù)

30、用戶輸入的 信息在數(shù)據(jù)庫(kù)中查找,找到以后顯示在窗體上.用open方法跟數(shù)據(jù)庫(kù)建立連接,連接完成以后用select命令處理結(jié)果.部分代碼:With tbl .Open(gjsda, serverDB, ADODB.CursorTypeEnu米.adOpenForwardOnly, ADODB.LockTypeEnu米.adLockReadOnly) Do While Not .EOF ch千克jry.Ite米s.Add(CStr(.Fields(na米e).Value).Tri米) .米o(hù)veNext() Loop .Close() .Open(gj米d, serverDB, ADODB.Cur

31、sorTypeEnu米.adOpenForwardOnly, ADODB.LockTypeEnu米.adLockReadOnly) Do While Not .EOF ch千克j米d.Ite米s.Add(CStr(.Fields(na米e).Value).Tri米) .米o(hù)veNext() Loop .Close() .Open(sjyt, serverDB, ADODB.CursorTypeEnu米.adOpenForwardOnly, ADODB.LockTypeEnu米.adLockReadOnly) Do While Not .EOF chkSjyt.Ite米s.Add(CStr(.F

32、ields(na米e).Value).Tri米) .米o(hù)veNext() Loop .Close() End With 米e.Top += 20 End Sub Private Sub 厘米dExit_Click(ByVal sender As Syste米.Object, ByVal e As Syste米.EventArgs) Handles 厘米dExit.Click 米e.Close() End Sub Private Sub 厘米dStart_Click(ByVal sender As Syste米.Object, ByVal e As Syste米.EventArgs) Handl

33、es 厘米dStart.Click Di米 sGjry, sGj米d, sSjyt As String Di米 i As Short Di米 tJs, tGje, tSfe As Long Di米 tJz米j As Single sGjry = like % If ch千克jry.CheckedIte米s.Count 0 Then sGjry = in ( For i = 0 To ch千克jry.CheckedIte米s.Count - 1 sGjry = sGjry & & Tri米(ch千克jry.CheckedIte米s(i) & , Next 米id(sGjry, Len(sGjry

34、), 1) = ) End If sGj米d = like % If ch千克j米d.CheckedIte米s.Count 0 Then sGj米d = in ( For i = 0 To ch千克j米d.CheckedIte米s.Count - 1 sGj米d = sGj米d & & Tri米(ch千克j米d.CheckedIte米s(i) & , Next 米id(sGj米d, Len(sGj米d), 1) = ) End If sSjyt = like % If chkSjyt.CheckedIte米s.Count 0 Then sSjyt = in ( For i = 0 To chk

35、Sjyt.CheckedIte米s.Count - 1 sSjyt = sSjyt & & Tri米(chkSjyt.CheckedIte米s(i) & , Next 米id(sSjyt, Len(sSjyt), 1) = ) End If Di米 sStr As String = SELECT & _ Count(xxbg.gjbgBH) AS vJs, & _ Su米(Xxbg.Jz米j) AS vJz米j, & _ Su米(xxbg.Fdcjz) AS vGje, & _ Su米(xxbg.Gjfwf) AS vSfe, & _ Xxbg.Gj米d & _ FRO米 xxbg INNER

36、 JOIN gjsda ON Xxbg.gjs = gjsda.gjsID WHERE ( & _ (Xxbg.Gjrq Between & datGjrq1.Value & And & datGjrq2.Value & ) AND & _ (Xxbg.Gj米d & sGj米d & ) AND & _ (gjsda.na米e & sGjry & ) AND & _ (Xxbg.Sjyt & sSjyt & ) & _ GROUP BY Xxbg.Gj米d On Error Resu米e Next3.維護(hù)模塊此模塊除完成數(shù)據(jù)的 一般性維護(hù),如系統(tǒng)的 初始化,另外還有密碼的 修改和數(shù)據(jù)更新.更改密

37、碼:更改系統(tǒng)登陸密碼模塊的 主要功能是更改某個(gè)用戶密碼,以便不讓人知道密碼.部分代碼:Private Sub savXtsj() On Error Resu米e Next Di米 i As Integer If gjsdaUpdated Then With tbl .Open(gjsda, serverDB, ADODB.CursorTypeEnu米.adOpenDyna米ic, ADODB.LockTypeEnu米.adLockOpti米istic) For i = 1 To gjsNu米 .米o(hù)veFirst() .Find(gjsid= & flxGjsda.get_Text米atrix

38、(i, 0).Tri米 & ) If .EOF Then .AddNew() .Fields(gjsid).Value = flxGjsda.get_Text米atrix(i, 0).Tri米 End If .Fields(na米e).Value = flxGjsda.get_Text米atrix(i, 1).Tri米 .Fields(zg).Value = flxGjsda.get_Text米atrix(i, 2).Tri米 .Fields(zc).Value = flxGjsda.get_Text米atrix(i, 3).Tri米 .Fields(ksh).Value = flxGjsda

39、.get_Text米atrix(i, 4).Tri米 .Fields(enable).Value = IIf(flxGjsda.get_Text米atrix(i, 6).Tri米 = ,0, 1) .Fields(canedit).Value = gjsQx(i - 1).canEdit .Fields(canview).Value = gjsQx(i - 1).canView .Fields(cantotal).Value = gjsQx(i - 1).canTotal .Fields(cangd).Value = gjsQx(i - 1).canGd .Fields(canwh).Valu

40、e = gjsQx(i - 1).canWh If .Fields(gjsid).Value = currentUser.ID Then currentUser.Na米e = CStr(.Fields(na米e).Value).Tri米 currentUser.Gjzg = CStr(.Fields(zg).Value).Tri米 End If Next .Update() .Close() End With End If歸檔:歸檔評(píng)估報(bào)告模塊的 主要功能是按不同時(shí)間段和不同估價(jià)師查找其所有評(píng)估報(bào)告,然后在找到的 結(jié)果中再選擇所需的 評(píng)估報(bào)告保存到相關(guān)目錄中.系統(tǒng)數(shù)據(jù)維護(hù):系統(tǒng)數(shù)據(jù)維護(hù)模塊實(shí)現(xiàn)

41、新數(shù)據(jù)的 錄入、查詢現(xiàn)有數(shù)據(jù)、刪除過(guò)期數(shù)據(jù)等功能.部分代碼:.Open(xindainfo, serverDB, ADODB.CursorTypeEnu米.adOpenDyna米ic, ADODB.LockTypeEnu米.adLockOpti米istic) If .EOF Then .AddNew() .Fields(fgz).Value = txtFgz.Text.Tri米 .Fields(fqzz).Value = txtFqzz.Text.Tri米 .Fields(gjf).Value = txt米c.Text.Tri米 .Fields(gjfe).Value = txt米cE.Tex

42、t.Tri米 .Fields(fddbr).Value = txtDbr.Text.Tri米 .Fields(zs).Value = txtZs.Text.Tri米 .Fields(zgdj).Value = txtZgdj.Text.Tri米 .Fields(jfl1).Value = Val(txtJfl1.Text.Tri米) .Fields(jfl2).Value = Val(txtJfl2.Text.Tri米) .Fields(jfl3).Value = Val(txtJfl3.Text.Tri米) .Fields(jfl4).Value = Val(txtJfl4.Text.Tri

43、米) .Fields(jfl5).Value = Val(txtJfl5.Text.Tri米) .Fields(jfl6).Value = Val(txtJfl6.Text.Tri米) .Fields(jfl7).Value = Val(txtJfl7.Text.Tri米) .Fields(tdjfl1).Value = Val(txtTdJfl1.Text.Tri米) .Fields(tdjfl2).Value = Val(txtTdJfl2.Text.Tri米) .Fields(tdjfl3).Value = Val(txtTdJfl3.Text.Tri米) .Fields(tdjfl4)

44、.Value = Val(txtTdJfl4.Text.Tri米) .Fields(tdjfl5).Value = Val(txtTdJfl5.Text.Tri米) .Fields(tdjfl6).Value = Val(txtTdJfl6.Text.Tri米) .Fields(tdjfl7).Value = Val(txtTdJfl7.Text.Tri米) .Update() .Close()至此房地產(chǎn)評(píng)估系統(tǒng)基本開(kāi)發(fā)完畢.其功能基本符合用戶需求,能夠完成評(píng)估信息的 輸入和統(tǒng)計(jì).以及各類相關(guān)報(bào)表的 打印.并提供部分系統(tǒng)維護(hù)功能,使用戶方便進(jìn)行數(shù)據(jù)備份和恢復(fù)、數(shù)據(jù)刪除密碼更新. 但是由于畢業(yè)設(shè)

45、計(jì)時(shí)間較短,所以該系統(tǒng)還有許多不盡如人意的 地方,比如聯(lián)機(jī)文檔比較少,用戶界面不夠美觀,出錯(cuò)處理不夠等多方面問(wèn)題.這些都有待進(jìn)一步改善.第六部分 測(cè)試報(bào)告軟件測(cè)試在開(kāi)發(fā)軟件過(guò)程中是一個(gè)不可缺少的 部分.因?yàn)樵陂_(kāi)發(fā)軟件系統(tǒng)的 漫長(zhǎng)過(guò)程中,面對(duì)著極其錯(cuò)綜復(fù)雜的 問(wèn)題,人的 主觀認(rèn)識(shí)不可能完美無(wú)缺,因此,在軟件生命周期的 各個(gè)階段都不可避免地產(chǎn)生差錯(cuò).我們力求在每個(gè)階段結(jié)束之前通過(guò)嚴(yán)格的 技術(shù)審查,盡可能早地發(fā)現(xiàn)并糾正錯(cuò)誤;但是,經(jīng)驗(yàn)表明審查并不能發(fā)現(xiàn)所有的 差錯(cuò),此外在編碼過(guò)程中還不可避免地會(huì)引入一些新的 錯(cuò)誤.如果在軟件投入生產(chǎn)性運(yùn)行之前,沒(méi)有發(fā)現(xiàn)并糾正軟件中的 大部分差錯(cuò),則這些錯(cuò)誤遲早會(huì)在生

46、產(chǎn)過(guò)程中暴露出來(lái),那時(shí)不僅僅改正這些錯(cuò)誤的 代價(jià)更高,而且往往會(huì)造成很惡劣的 后果.測(cè)試的 目的 就是在軟件投入生產(chǎn)運(yùn)行之前,盡可能多地發(fā)現(xiàn)并糾正軟件中的 錯(cuò)誤.基于上述的 原因,我在編碼過(guò)程中進(jìn)行了 模塊測(cè)試,編碼結(jié)束后進(jìn)行了 系統(tǒng)測(cè)試和驗(yàn)收測(cè)試.下面將介紹測(cè)試方案、測(cè)試過(guò)程和測(cè)試結(jié)果.一.模塊測(cè)試1.測(cè)試方案 采用了 白盒測(cè)試,即按照程序內(nèi)部的 邏輯結(jié)構(gòu),檢驗(yàn)程序中的 每條通路是否都按預(yù)定要求正常工作.2.測(cè)試過(guò)程檢驗(yàn)?zāi)K之間的 接口.每個(gè)被調(diào)用模塊是否正確接收參數(shù).每個(gè)被調(diào)用模塊是否能調(diào)用自己想要調(diào)用的 模塊.3.測(cè)試結(jié)果測(cè)試結(jié)果表明,每個(gè)模塊之間的 接口都吻合,即被調(diào)用模塊都能正確接收參數(shù),調(diào)用模塊能調(diào)用自己想要調(diào)用的 每個(gè)模塊.二.系統(tǒng)測(cè)試和驗(yàn)收測(cè)試1.測(cè)試方案采用了 墨盒測(cè)試,即檢查程序功能是否能按照規(guī)格說(shuō)明書(shū)的 規(guī)定正常使用,程序是否適當(dāng)?shù)亟邮蛰斎霐?shù)據(jù)產(chǎn)生正確的 輸出信息,并且保持外部信息的 完整性.2.測(cè)試過(guò)程主要檢驗(yàn)是否能正確實(shí)現(xiàn)每個(gè)功能.每個(gè)功能是否能按照規(guī)格說(shuō)明書(shū)的 要求正常使用.功能包括:輸入信息功能、查詢功能和維護(hù)功能.數(shù)據(jù)庫(kù)里