【文章內(nèi)容簡介】 sGjry, Len(sGjry), 1) = ) End If sGjmd = like 39。%39。 If 0 Then sGjmd = in ( For i = 0 To 1 sGjmd = sGjmd amp。 39。 amp。 Trim((i)) amp。 39。, Next Mid(sGjmd, Len(sGjmd), 1) = ) End If sSjyt = like 39。%39。 If 0 Then sSjyt = in ( For i = 0 To 1 sSjyt = sSjyt amp。 39。 amp。 Trim((i)) amp。 39。, Next Mid(sSjyt, Len(sSjyt), 1) = ) End If Dim sStr As String = SELECT amp。 _ Count() AS vJs, amp。 _ Sum() AS vJzmj, amp。 _ Sum() AS vGje, amp。 _ Sum() AS vSfe, amp。 _ amp。 _ FROM xxbg INNER JOIN gjsda ON = WHERE ( amp。 _ ( Between 39。 amp。 amp。 39。 And 39。 amp。 amp。 39。) AND amp。 _ ( amp。 sGjmd amp。 ) AND amp。 _ ( amp。 sGjry amp。 ) AND amp。 _ ( amp。 sSjyt amp。 )) amp。 _ GROUP BY On Error Resume Next 此模塊除完成數(shù)據(jù)的一般性維護(hù)，如系統(tǒng)的初始化，另外還有密碼的修改和數(shù)據(jù)更新。 更改密碼： 更改系統(tǒng)登陸密碼模塊的主要功能是更改某個(gè)用戶密碼，以便不讓 人知道密碼。 部分代碼： Private Sub savXtsj() On Error Resume Next Dim i As Integer If gjsdaUpdated Then With tbl .Open(gjsda, serverDB, , ) For i = 1 To gjsNum .MoveFirst() .Find(gjsid=39。 amp。 (i, 0).Trim amp。 39。) If .EOF Then .AddNew() .Fields(gjsid).Value = (i, 0).Trim End If .Fields(name).Value = (i, 1).Trim .Fields(zg).Value = (i, 2).Trim .Fields(zc).Value = (i, 3).Trim .Fields(ksh).Value = (i, 4).Trim .Fields(enable).Value = IIf((i, 6).Trim = √ ,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).Value = gjsQx(i 1).canWh If .Fields(gjsid).Value = Then = CStr(.Fields(name).Value).Trim = CStr(.Fields(zg).Value).Trim 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)新數(shù)據(jù)的錄入、查詢現(xiàn)有數(shù)據(jù)、刪除過期數(shù)據(jù)等功能 。 部分代碼： .Open(xindainfo, serverDB, , ) If .EOF Then .AddNew() .Fields(fgz).Value = .Fields(fqzz).Value = .Fields(gjf).Value = .Fields(gjfe).Value = .Fields(fddbr).Value = .Fields(zs).Value = .Fields(zgdj).Value = .Fields(jfl1).Value = Val() .Fields(jfl2).Value = Val() .Fields(jfl3).Value = Val() .Fields(jfl4).Value = Val() .Fields(jfl5).Value = Val() .Fields(jfl6).Value = Val() .Fields(jfl7).Value = Val() .Fields(tdjfl1).Value = Val() .Fields(tdjfl2).Value = Val() .Fields(tdjfl3).Value = Val() .Fields(tdjfl4).Value = Val() .Fields(tdjfl5).Value = Val() .Fields(tdjfl6).Value = Val() .Fields(tdjfl7).Value = Val() .Update() .Close() 至此房地產(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ù)刪除密碼更新。 但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀，出錯(cuò)處理不夠等多方面問題。這些都有待進(jìn)一步改善。 第六部分 測(cè)試報(bào)告 軟件測(cè)試在開發(fā)軟件過程中是一個(gè)不可缺少的部分。因?yàn)樵陂_發(fā)軟件系統(tǒng)的漫長過程中，面對(duì)著極其錯(cuò)綜復(fù)雜的問題，人的主觀認(rèn)識(shí)不可能完美無缺，因此，在軟件生命周期的各個(gè)階段都 不可避免地產(chǎn)生差錯(cuò)。我們力求在每個(gè)階段結(jié)束之前通過嚴(yán)格的技術(shù)審查，盡可能早地發(fā)現(xiàn)并糾正錯(cuò)誤；但是，經(jīng)驗(yàn)表明審查并不能發(fā)現(xiàn)所有的差錯(cuò)，此外在編碼過程中還不可避免地會(huì)引入一些新的錯(cuò)誤。如果在軟件投入生產(chǎn)性運(yùn)行之前，沒有發(fā)現(xiàn)并糾正軟件中的大部分差錯(cuò)，則這些錯(cuò)誤遲早會(huì)在生產(chǎn)過程中暴露出來，那時(shí)不僅僅改正這些錯(cuò)誤的代價(jià)更高，而且往往會(huì)造成很惡劣的后果。測(cè)試的目的就是在軟件投入生產(chǎn)運(yùn)行之前，盡可能多地發(fā)現(xiàn)并糾正軟件中的錯(cuò)誤?；谏鲜龅脑?，我在編碼過程中進(jìn)行了模塊測(cè)試，編碼結(jié)束后進(jìn)行了系統(tǒng)測(cè)試和驗(yàn)收測(cè)試。下面將介紹測(cè)試 方案、測(cè)試過程和測(cè)試結(jié)果。 一 .模塊測(cè)試 采用了白盒測(cè)試，即按照程序內(nèi)部的邏輯結(jié)構(gòu)，檢驗(yàn)程序中的每條通路是否都按預(yù)定要求正常工作。 檢驗(yàn)?zāi)K之間的接口。 ◇每個(gè)被調(diào)用模塊是否正確接收參數(shù)。 ◇每個(gè)被調(diào)用模塊是否能調(diào)用自己想要調(diào)用的模塊。 測(cè)試結(jié)果表明，每個(gè)模塊之間的接口都吻合，即被調(diào)用模塊都能正確接收參數(shù)，調(diào)用模塊能調(diào)用自己想要調(diào)用的每個(gè)模塊。 二 .系統(tǒng)測(cè)試和驗(yàn)收測(cè)試 采用了墨盒測(cè)試，即檢查程序功能是否能按照規(guī)格說明書的規(guī)定正常使用，程序是否適 當(dāng)?shù)亟邮蛰斎霐?shù)據(jù)產(chǎn)生正確的輸出信息，并且保持外部信息的完整性。 主要檢驗(yàn)是否能正確實(shí)現(xiàn)每個(gè)功能。 ◇每個(gè)功能是否能按照規(guī)格說明書的要求正常使用。功能包括：輸入信息功能、查詢功能和維護(hù)功能。 ◇數(shù)據(jù)庫里的記錄是否符合要求。 ◇用戶界面是否友好。 結(jié)果表明，每個(gè)功能都能按照規(guī)格說明書里的要求正常使用且速度達(dá)到了預(yù)期的標(biāo)準(zhǔn)。數(shù)據(jù)庫里的記錄符合要求，用戶界面較友好。 當(dāng)然，整個(gè)系統(tǒng)在測(cè)試過程中仍發(fā)現(xiàn)了不少的錯(cuò)誤，但在指導(dǎo)老師和同組同學(xué)的幫助下改正并完善了所發(fā)現(xiàn)的錯(cuò)誤和不足之處，達(dá)到了測(cè)試 要求。 第七部分 關(guān)鍵技術(shù)分析 一． C/S 模式 C/S 模式是指：服務(wù)器檢查是否有客戶要求服務(wù)的請(qǐng)求，在滿足客戶的請(qǐng)求后將結(jié)果返回：客戶（可以為一個(gè)應(yīng)用程序或一個(gè)服務(wù)器）如果需要系統(tǒng)的服務(wù)，就發(fā)出請(qǐng)求服務(wù)的信息，內(nèi)核將信息傳遞給服務(wù)器，服務(wù)器執(zhí)行相應(yīng)的操作，并將其結(jié)果通過內(nèi)核返回給客戶。 傳統(tǒng)的 C/S 模式下應(yīng)用系統(tǒng)一般由服務(wù)器（ Server）和客戶端應(yīng)用程序（ Client App）組成。數(shù)據(jù)一般存放在服務(wù)器上，應(yīng)用程序存放在客戶端計(jì)算機(jī)上。采用 C/S 模式開發(fā)的系統(tǒng)具有信息共享性好、網(wǎng)絡(luò)的信息傳輸量小等優(yōu)點(diǎn) 。 二． ADO 連接 要先建立連接，一般先用 CreateInstance 方法創(chuàng)建 ADO 連接對(duì)象，然后就可以用 Open 方法連接到數(shù)據(jù)庫。它的原型是 Open(BSTR ConnectionString, BSTR UserID, BSTR Password, long Options)。 創(chuàng)建了 ADO 連接，我們就可以通過 ADO 記錄集來訪問數(shù)據(jù)庫了。同樣，在使用記錄集之前要先創(chuàng)建對(duì)象。然后調(diào)用 Open 方法打開記錄集。它不但可以執(zhí)行普通的 SQL 語句 ,還可以調(diào)用存儲(chǔ)過程等等。 一個(gè)記錄集通常包含多個(gè)字段，通過 訪問記錄 ,我們可以得到很多有用的信息，如字段名，字段的數(shù)據(jù)類型，定義的寬度，實(shí)際占有的寬度等等。 CursorType 參數(shù)指的是記錄集光標(biāo)類型 ,在官方的資料中是這樣說明它的取值類型的 : 僅向前游標(biāo)，默認(rèn)值。除了只能在記錄中向前滾動(dòng)外，與靜態(tài)游標(biāo)相同。當(dāng)只需要在記錄集中單向移動(dòng)時(shí)，使用它可提高性能。 鍵集游標(biāo)。盡管從您的記錄集不能訪問其他用戶刪除的記錄，但除無法查看其他用戶添加的記錄外，鍵集游標(biāo)與動(dòng)態(tài)游標(biāo)相似。仍然可以看見其他用戶更改的數(shù) 據(jù)。 動(dòng)態(tài)游標(biāo)?？梢钥匆娖渌脩羲鞯奶砑?、更改和刪除。