【正文】 en If Trim(StrEng) Then MsgBox 無(wú)效的數(shù)字, , 提示信息 CChinese = Exit Function End If 39。第九頁(yè) Combo 初始化 = (1) ((1)) ((2)) ((3)) ((4))2. 第十頁(yè)初始化：39。 Trim() PrintStr 39。10 行 = 16 PrintSpaceY (0) = 10 PrintStr = makeSpace(22) amp。6 行 = 12 PrintSpaceY (2) = 10 PrintStr = makeSpace(24) amp。2 行 = 14 PrintSpaceY (0) = 10 PrintStr = makeSpace(31) amp。打印字體 39。清除輸入框多余的空格 ClrEmpty = ClearEmpty() PrintPages = Val(Trim()) If PrintPages 0 Then = Exit Sub End If 39。此時(shí)，工程資源管理器窗口中顯示已創(chuàng)建了一個(gè)工程，默認(rèn)名字為“工程 1”，并創(chuàng)建了一個(gè)窗體，默認(rèn)名稱為“Form1” 。設(shè)置三種不同的身份進(jìn)行登錄，即特級(jí)管理員、一般管理員和普通用戶；系統(tǒng)也設(shè)立了數(shù)據(jù)備份和恢復(fù)機(jī)制，從一定程度上可以降低數(shù)據(jù)的損壞程度?？偣灿兴姆N方法：（1）浮動(dòng)利率，本合同的利率以同簽訂日中國(guó)人民銀行公布的同期同檔次貸款基準(zhǔn)利率為基礎(chǔ)；（2）階段固定利率，在某一固定時(shí)期，本合同貸款利率以中國(guó)人民銀行公布的同期同檔次利率為定價(jià)依據(jù)，期間內(nèi)利率保持不變；（3）固定利率，借款合同履行期間，本合同貸款以中國(guó)人民銀行公布的同期同檔次貸款基準(zhǔn)利率為定價(jià)依據(jù)，期間保持不變。由于現(xiàn)在個(gè)人購(gòu)房貸款一般都不是單人的，所有還要考慮有共同借款人，也就需要這位共同借款人的各項(xiàng)身份證明，聯(lián)系電話和住址。主要可以應(yīng)用于中信銀行個(gè)人購(gòu)房借貸款合同的生成和打印。為了解決這一問(wèn)題，需要開(kāi)發(fā)一套功能完整的智能化的合同管理系統(tǒng)軟件，用于各行各業(yè)的大中小型企業(yè)的合同制定、評(píng)審、實(shí)施動(dòng)態(tài)控制等方面的具體應(yīng)用需求，并以先進(jìn)成熟的計(jì)算機(jī)網(wǎng)絡(luò)和通信技術(shù)為手段，覆蓋整個(gè)企業(yè)的各部門，實(shí)現(xiàn)該企業(yè)合同管理智能化，提高辦公效率及人員的利用率成為促進(jìn)企業(yè)迅速發(fā)展的一支很好的催化劑。如果采用計(jì)算機(jī)管理合同，不但能對(duì)企業(yè)合同的起草、修改、審閱、簽訂和查詢等一系列工作明確化，簡(jiǎn)單化。 House purchase loansIII / 43目 錄第 1 章 緒論 .............................................................1 程序開(kāi)發(fā)背景 ......................................................1 程序研究目的和意義 ................................................1 可行性分析 ........................................................2第 2 章 系統(tǒng)需求分析 .....................................................3 程序需求分析 ......................................................3 程序性能要求 ......................................................4第 3 章 程序所采用技術(shù) ...................................................5 開(kāi)發(fā)工具簡(jiǎn)介 ......................................................5 Visual Basic 開(kāi)發(fā)工具 ......................................5 運(yùn)用的控件和主要對(duì)象 ..............................................5第 4 章 程序詳細(xì)設(shè)計(jì) .....................................................6 開(kāi)發(fā)及運(yùn)行環(huán)境 ....................................................6 創(chuàng)建工程 ..........................................................6 界面設(shè)計(jì) ..........................................................6 程序設(shè)計(jì) .........................................................11 打印功能設(shè)置 .................................................13 頁(yè)面初始化 ...................................................17 代碼編輯 .....................................................18 功能實(shí)現(xiàn) .........................................................33第 5 章 軟件測(cè)試和調(diào)試 ..................................................36 白盒測(cè)試法 .......................................................36 黑盒測(cè)試法 .......................................................37第 6 章 工作總結(jié)和展望 ..................................................38參考文獻(xiàn) ...............................................................39致 謝 .................................................................401 / 43第 1 章 緒論 程序開(kāi)發(fā)背景在 21 世紀(jì)，隨著計(jì)算機(jī)科學(xué)的發(fā)展，計(jì)算機(jī)在人們?nèi)粘Ｉ钪械膽?yīng)用越來(lái)越廣泛，為廣大用戶提供了更加周到和人性化的服務(wù)。而合同的打印也成了，交易是否成功的關(guān)鍵一環(huán)。本系統(tǒng)是專注于合同管理的一環(huán)合同打印。現(xiàn)代企業(yè)的經(jīng)濟(jì)往來(lái)，主要是通過(guò)合同形式進(jìn)行的。并以中信銀行個(gè)人購(gòu)房貸款為背景的應(yīng)用實(shí)例。因此利用它作為合同打印系統(tǒng)的工具是完全可行的。不少以前能貸款的人，現(xiàn)在不符合貸款條件了；不少以前能獲得優(yōu)惠利率的人，現(xiàn)在只能按基準(zhǔn)利率甚至上浮利率貸款。極少情況有需要變更的，是成文重復(fù)的規(guī)定，就不需要在系統(tǒng)中進(jìn)行贅述。第十一頁(yè)：要明確借款人的還款方式。5 / 43第 3 章 程序所采用技術(shù) 開(kāi)發(fā)工具簡(jiǎn)介 Visual Basic 開(kāi)發(fā)工具Visual 作為 Visual Studio 家族中的一員，以其開(kāi)發(fā)速度快、使用簡(jiǎn)單而被廣泛使用。1. 第一頁(yè)：圖 41 第一頁(yè)7 / 432. 第九頁(yè)：表 42 第九頁(yè)3. 第十頁(yè)：圖 43 第十頁(yè)4. 第十一頁(yè)：圖 44 第十一頁(yè)9 / 435. 第十二頁(yè)：圖 45 第十二頁(yè)6. 第十三頁(yè)：圖 46 第十三頁(yè)Comment [U1]: 11 / 43 程序設(shè)計(jì)應(yīng)用程序進(jìn)行到現(xiàn)在僅僅只做了一個(gè)空殼，當(dāng)程序運(yùn)行，我們單擊任何命令按鈕，并沒(méi)有事情發(fā)生，這是因?yàn)槲覀冞€沒(méi)有進(jìn)行最重要的一個(gè)步驟——代碼編輯。設(shè)置計(jì)算單位為厘米 = 19 39。打印縱坐標(biāo)為 1 厘米 39。 Trim() PrintStr 39。 Trim() PrintStr 39。16 行 = 18 PrintSpaceY (0) = 10 PrintStr = makeSpace(35) amp。20 行 = 16 PrintSpaceY (0) = 10 PrintStr = makeSpace(22) amp?！?/Public Function str(ByVal Text As TextBox, ByVal length As Long) As Long str = length Len(Trim())End FunctionPublic Function ClearEmpty() Dim a As Control For Each a In If LCase(TypeName(a)) = textbox Then If Trim() / Then = Trim() End If End If Next aEnd FunctionFunction makeSpace(i As Integer) As String Dim j As Integer For j = 1 To i makeSpace = makeSpace amp。記錄數(shù)字的長(zhǎng)度 intLen = Len(StrEng) 39。 Trim(Mid(strSeqCh2, (intLen intCounter) \ 4 + 1, 1)) End If 39。通常在測(cè)試過(guò)程的早期階段主要使用白盒方法，而在測(cè)試過(guò)程的后期階段主要使用黑盒方法。下面以登錄模塊為例，來(lái)說(shuō)明調(diào)試的過(guò)程和方法：第一步:打開(kāi)工程1；第二步:在程序中設(shè)置斷點(diǎn)；第三步:在跟蹤模式下運(yùn)行應(yīng)用程序； 第四步:當(dāng)應(yīng)用程序在斷點(diǎn)處中斷執(zhí)行時(shí)，用戶可查看變量的值，檢查內(nèi)存中對(duì)象的屬性或者改變變量的值； 第五步:依次調(diào)試應(yīng)用程序，需要時(shí)在應(yīng)用程序中增加新的斷點(diǎn)或修改已存在的斷點(diǎn)；第六步:當(dāng)用戶找到問(wèn)題所在時(shí)，修改問(wèn)題的代碼并重新運(yùn)行該應(yīng)用程序。例如在空白情況下，系統(tǒng)應(yīng)能夠觸發(fā)錯(cuò)誤提示，如圖所示圖 51 錯(cuò)誤提示第 6 章 工作總結(jié)和展望該系統(tǒng)以中信銀行為例，實(shí)現(xiàn)企業(yè)的個(gè)人購(gòu)房借款合同打印。利用系統(tǒng)自身的初始化功能，可以將所有數(shù)據(jù)信息清空，輸入新的數(shù)據(jù)信息，就可以很快構(gòu)建成一個(gè)簡(jiǎn)單實(shí)用的合同打印系統(tǒng)，因此應(yīng)用前景廣