【文章內(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ù)的一般性維護，如系統(tǒng)的初始化，另外還有密碼的修改和數(shù)據(jù)更新。 更改密碼： 更改系統(tǒng)登陸密碼模塊的主要功能是更改某個用戶密碼，以便不讓 人知道密碼。 部分代碼： 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 歸檔：歸檔評估報告模塊的主要功能是按不同時間段和不同估價師查找其所有評估報告，然后在找到的結(jié)果中再選擇所需的評估報告保存到相關(guān)目錄中。 系統(tǒng)數(shù)據(jù)維護： 系統(tǒng)數(shù)據(jù)維護模塊實現(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)評估系統(tǒng)基本開發(fā)完畢。其功能基本符合用戶需求，能夠 完成評估信息的輸入和統(tǒng)計。以及各類相關(guān)報表的打印。并提供部分系統(tǒng)維護功能 ,使用戶方便進行數(shù)據(jù)備份和恢復、數(shù)據(jù)刪除密碼更新。 但是由于畢業(yè)設(shè)計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機文檔比較少，用戶界面不夠美觀，出錯處理不夠等多方面問題。這些都有待進一步改善。 第六部分 測試報告 軟件測試在開發(fā)軟件過程中是一個不可缺少的部分。因為在開發(fā)軟件系統(tǒng)的漫長過程中，面對著極其錯綜復雜的問題，人的主觀認識不可能完美無缺，因此，在軟件生命周期的各個階段都 不可避免地產(chǎn)生差錯。我們力求在每個階段結(jié)束之前通過嚴格的技術(shù)審查，盡可能早地發(fā)現(xiàn)并糾正錯誤；但是，經(jīng)驗表明審查并不能發(fā)現(xiàn)所有的差錯，此外在編碼過程中還不可避免地會引入一些新的錯誤。如果在軟件投入生產(chǎn)性運行之前，沒有發(fā)現(xiàn)并糾正軟件中的大部分差錯，則這些錯誤遲早會在生產(chǎn)過程中暴露出來，那時不僅僅改正這些錯誤的代價更高，而且往往會造成很惡劣的后果。測試的目的就是在軟件投入生產(chǎn)運行之前，盡可能多地發(fā)現(xiàn)并糾正軟件中的錯誤?；谏鲜龅脑?，我在編碼過程中進行了模塊測試，編碼結(jié)束后進行了系統(tǒng)測試和驗收測試。下面將介紹測試 方案、測試過程和測試結(jié)果。 一 .模塊測試 采用了白盒測試，即按照程序內(nèi)部的邏輯結(jié)構(gòu)，檢驗程序中的每條通路是否都按預定要求正常工作。 檢驗模塊之間的接口。 ◇每個被調(diào)用模塊是否正確接收參數(shù)。 ◇每個被調(diào)用模塊是否能調(diào)用自己想要調(diào)用的模塊。 測試結(jié)果表明，每個模塊之間的接口都吻合，即被調(diào)用模塊都能正確接收參數(shù)，調(diào)用模塊能調(diào)用自己想要調(diào)用的每個模塊。 二 .系統(tǒng)測試和驗收測試 采用了墨盒測試，即檢查程序功能是否能按照規(guī)格說明書的規(guī)定正常使用，程序是否適 當?shù)亟邮蛰斎霐?shù)據(jù)產(chǎn)生正確的輸出信息，并且保持外部信息的完整性。 主要檢驗是否能正確實現(xiàn)每個功能。 ◇每個功能是否能按照規(guī)格說明書的要求正常使用。功能包括：輸入信息功能、查詢功能和維護功能。 ◇數(shù)據(jù)庫里的記錄是否符合要求。 ◇用戶界面是否友好。 結(jié)果表明，每個功能都能按照規(guī)格說明書里的要求正常使用且速度達到了預期的標準。數(shù)據(jù)庫里的記錄符合要求，用戶界面較友好。 當然，整個系統(tǒng)在測試過程中仍發(fā)現(xiàn)了不少的錯誤，但在指導老師和同組同學的幫助下改正并完善了所發(fā)現(xiàn)的錯誤和不足之處，達到了測試 要求。 第七部分 關(guān)鍵技術(shù)分析 一． C/S 模式 C/S 模式是指：服務器檢查是否有客戶要求服務的請求，在滿足客戶的請求后將結(jié)果返回：客戶（可以為一個應用程序或一個服務器）如果需要系統(tǒng)的服務，就發(fā)出請求服務的信息，內(nèi)核將信息傳遞給服務器，服務器執(zhí)行相應的操作，并將其結(jié)果通過內(nèi)核返回給客戶。 傳統(tǒng)的 C/S 模式下應用系統(tǒng)一般由服務器（ Server）和客戶端應用程序（ Client App）組成。數(shù)據(jù)一般存放在服務器上，應用程序存放在客戶端計算機上。采用 C/S 模式開發(fā)的系統(tǒng)具有信息共享性好、網(wǎng)絡(luò)的信息傳輸量小等優(yōu)點 。 二． ADO 連接 要先建立連接，一般先用 CreateInstance 方法創(chuàng)建 ADO 連接對象，然后就可以用 Open 方法連接到數(shù)據(jù)庫。它的原型是 Open(BSTR ConnectionString, BSTR UserID, BSTR Password, long Options)。 創(chuàng)建了 ADO 連接，我們就可以通過 ADO 記錄集來訪問數(shù)據(jù)庫了。同樣，在使用記錄集之前要先創(chuàng)建對象。然后調(diào)用 Open 方法打開記錄集。它不但可以執(zhí)行普通的 SQL 語句 ,還可以調(diào)用存儲過程等等。 一個記錄集通常包含多個字段，通過 訪問記錄 ,我們可以得到很多有用的信息，如字段名，字段的數(shù)據(jù)類型，定義的寬度，實際占有的寬度等等。 CursorType 參數(shù)指的是記錄集光標類型 ,在官方的資料中是這樣說明它的取值類型的 : 僅向前游標，默認值。除了只能在記錄中向前滾動外，與靜態(tài)游標相同。當只需要在記錄集中單向移動時，使用它可提高性能。 鍵集游標。盡管從您的記錄集不能訪問其他用戶刪除的記錄，但除無法查看其他用戶添加的記錄外，鍵集游標與動態(tài)游標相似。仍然可以看見其他用戶更改的數(shù) 據(jù)。 動態(tài)游標?？梢钥匆娖渌脩羲鞯奶砑?、更改和刪除。