中信銀行個(gè)人購(gòu)房貸款合同模板打印程序設(shè)計(jì)

1、摘要在21世紀(jì)，隨著計(jì)算機(jī)科學(xué)的進(jìn)展，計(jì)算機(jī)在人們?nèi)粘Ｉ钪械膽?yīng)用越來越廣泛，為寬敞用戶提供了更加周到和人性化的服務(wù)。合同是商品經(jīng)濟(jì)的產(chǎn)物，是商品交換的法律表現(xiàn)形式。而合同的打印也成了，交易是否成功的關(guān)鍵一環(huán)。長(zhǎng)期以來，由于在合同打印實(shí)行手工作業(yè)，存在各部門之間合同流轉(zhuǎn)時(shí)刻長(zhǎng)而且特不容易出錯(cuò)等問題。合同打印系統(tǒng)確實(shí)是針對(duì)當(dāng)前的合同打印業(yè)務(wù)特點(diǎn)所定制的一套系統(tǒng)，該套系統(tǒng)本著進(jìn)一步完善企業(yè)內(nèi)部合同治理制度，規(guī)范合同治理機(jī)制的目的，更加及時(shí)、準(zhǔn)確、全面地反映合同信息，輔助企業(yè)治理決策，從而實(shí)現(xiàn)該企業(yè)合同治理智能化，降低治理成本，提高內(nèi)部治理水準(zhǔn)，為企業(yè)決策層及時(shí)了解合同治理業(yè)務(wù)層的工作情況提供第一手

2、資料。本系統(tǒng)是專注于合同治理的一環(huán)合同打印。并以中信銀行個(gè)人購(gòu)房貸款為背景的應(yīng)用實(shí)例。關(guān)鍵詞：合同；打??；中信銀行；購(gòu)房貸款 AbstractAbstract at the 21th Century , With the development of computer science, Computer science is widely used in the people life and work. This makes users can enjoy more convenient and individual services. The contract is the product

3、 of the commodity economy, is the legal form of commodity exchange. The contract print also became a key ring, While the transaction is successful.Long-term since, as a result of the manual operation in the contract to print, exist between the various departments of contract transfer time and error

4、prone problems. A system of contract printing system is aimed at the characteristics of the present contract print business custom, the system in the further perfect the internal enterprise management system, standardized mechanism for the purpose of contract management, more timely, accurate, compr

5、ehensive reflection of contract information, auxiliary enterprise management decision, in order to achieve the enterprise contract management intelligent, reduce the cost of management, improve the internal management level, for the enterprise decision-making layer to understand the work of contract

6、 management business layer to provide first-hand information.The system is focused on the contract management of a ring, the contract print. And to the individual house purchase loans CITIC Bank for the application background.Keywords: Contract ; Print; CITIC Bank; House purchase loans目 錄 TOC o 1-3

7、h z u HYPERLINK l _Toc168310671 第1章 緒論 PAGEREF _Toc168310671 h 1 HYPERLINK l _Toc168310672 1.1 程序開發(fā)背景 PAGEREF _Toc168310672 h 1 HYPERLINK l _Toc168310673 1.2 程序研究目的和意義 PAGEREF _Toc168310673 h 1 HYPERLINK l _Toc168310674 1.3 可行性分析 PAGEREF _Toc168310674 h 2 HYPERLINK l _Toc168310675 第2章 系統(tǒng)需求分析 PAGEREF

8、 _Toc168310675 h 3 HYPERLINK l _Toc168310676 2.1 程序需求分析 PAGEREF _Toc168310676 h 3 HYPERLINK l _Toc168310677 2.2 程序性能要求4 HYPERLINK l _Toc168310679 第3章 程序所采納技術(shù)5 HYPERLINK l _Toc168310680 3.1 開發(fā)工具簡(jiǎn)介5 HYPERLINK l _Toc168310681 3.1.1 Visual Basic 6.0開發(fā)工具5 HYPERLINK l _Toc168310687 3.2 運(yùn)用的控件和要緊對(duì)象5 HYPERLI

9、NK l _Toc168310689 第4章 程序詳細(xì)設(shè)計(jì)6 HYPERLINK l _Toc168310690 4.1 開發(fā)及運(yùn)行環(huán)境6 HYPERLINK l _Toc168310691 4.2 創(chuàng)建工程6 HYPERLINK l _Toc168310692 4.3 界面設(shè)計(jì)6 HYPERLINK l _Toc168310690 4.4 程序設(shè)計(jì)11 HYPERLINK l _Toc168310693 4.4.1 打印功能設(shè)置13 HYPERLINK l _Toc168310694 4.4.2 頁(yè)面初始化17 HYPERLINK l _Toc168310695 4.4.3 代碼編輯18 H

10、YPERLINK l _Toc168310692 4.5 功能實(shí)現(xiàn)33 HYPERLINK l _Toc168310698 第5章 軟件測(cè)試和調(diào)試36 HYPERLINK l _Toc168310699 5.1 白盒測(cè)試法36 HYPERLINK l _Toc168310700 5.2 黑盒測(cè)試法37 HYPERLINK l _Toc168310701 第6章 工作總結(jié)和展望38 HYPERLINK l _Toc168310702 參考文獻(xiàn)39 HYPERLINK l _Toc168310703 致 謝40第1章 緒論1.1 程序開發(fā)背景在21世紀(jì)，隨著計(jì)算機(jī)科學(xué)的進(jìn)展，計(jì)算機(jī)在人們?nèi)粘Ｉ钪?/p>

11、的應(yīng)用越來越廣泛，為寬敞用戶提供了更加周到和人性化的服務(wù)?，F(xiàn)代化的企業(yè)越來越重視科學(xué)技術(shù)，只有把科學(xué)技術(shù)應(yīng)用到企業(yè)中才能獵取更大的效益。合同是商品經(jīng)濟(jì)的產(chǎn)物，是商品交換的法律表現(xiàn)形式?，F(xiàn)代企業(yè)的經(jīng)濟(jì)往來，要緊是通過合同形式進(jìn)行的。因此，合同的確立以書面簽字的形式體現(xiàn)，要確保合同有效，雙方的簽字必須是法人或者托付代理人。而合同的打印也成了，交易是否成功的關(guān)鍵一環(huán)。合同治理是企業(yè)經(jīng)營(yíng)治理中不可缺少的組成部分，不管是企業(yè)內(nèi)部人員治理，依舊企業(yè)業(yè)務(wù)往來治理，都離不開合同。由于合同形式的多樣性，履行過程的多變性，同時(shí)合同執(zhí)行周期長(zhǎng)，信息量大，重復(fù)性高，許多企業(yè)對(duì)合同打印一直沒有好的方法。假如采納計(jì)算機(jī)治

12、理合同，不但能對(duì)企業(yè)合同的起草、修改、批閱、簽訂和查詢等一系列工作明確化，簡(jiǎn)單化。并能夠?yàn)槠髽I(yè)治理者提供科學(xué)的操作工具，為決策者提供及時(shí)、完整的決策參考資料，提升企業(yè)的治理水平和競(jìng)爭(zhēng)能力。本系統(tǒng)是專注于合同治理的一環(huán)合同打印。并以中信銀行個(gè)人購(gòu)房貸款為背景的應(yīng)用實(shí)例。1.2 程序研究目的和意義合同，又稱契約，它是當(dāng)事人雙方或數(shù)方設(shè)立、變更和中止相互權(quán)利和義務(wù)關(guān)系的協(xié)議。合同制度在我國(guó)有著悠久的歷史，合同作為一種企業(yè)之間橫向聯(lián)系的工具，是現(xiàn)代生產(chǎn)和商品交換高度進(jìn)展的結(jié)果。合同治理即合同行為的監(jiān)督治理，是規(guī)范、制約、完善合同行為的一種活動(dòng)，是國(guó)家法律給予治理主體的一種職能，是企業(yè)在經(jīng)濟(jì)活動(dòng)中保證企

13、業(yè)利益的重要環(huán)節(jié)。改革開放以來，我國(guó)的經(jīng)濟(jì)建設(shè)取得了長(zhǎng)足的進(jìn)展，然而長(zhǎng)期以來，由于在合同治理中實(shí)行手工作業(yè)，合同審批流程不明確，造成合同治理過程中業(yè)務(wù)處理效率低，白費(fèi)了大量的人力、物力，各部門之間合同流轉(zhuǎn)時(shí)刻長(zhǎng)而且特不容易出錯(cuò)等問題。為了解決這一問題，需要開發(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è)迅速進(jìn)展的一支專門好的催化劑。1.3 可行性分析該系統(tǒng)采納Visual Basic6.0軟件作

14、為工具進(jìn)行系統(tǒng)開發(fā)。Visual Basic6.0工具軟件以其功能強(qiáng)大、使用靈活的數(shù)據(jù)窗口，其面向?qū)ο蟮拈_發(fā)能力等優(yōu)勢(shì)在數(shù)據(jù)庫(kù)應(yīng)用程序開發(fā)領(lǐng)域占據(jù)了領(lǐng)先地位，這些特點(diǎn)為開發(fā)功能全面的應(yīng)用程序制造了良好的條件。因此利用它作為合同打印系統(tǒng)的工具是完全可行的。傳統(tǒng)的合同打印方法，存在諸多缺點(diǎn)，如：效率低，保密性差，時(shí)刻一長(zhǎng)就會(huì)產(chǎn)生大量的文件和數(shù)據(jù)積壓，這關(guān)于往后的合同治理帶來了許多困難，也造成了勞動(dòng)力的白費(fèi)。使用計(jì)算機(jī)合同打印系統(tǒng)，能夠促進(jìn)企業(yè)工作效率和經(jīng)營(yíng)治理能力的提高。此中信銀行個(gè)人借貸款合同打印系統(tǒng)，使用方便，簡(jiǎn)單易讀，修改簡(jiǎn)便，特不便于顧客閱讀查詢。且對(duì)治理人員不需要太多的專業(yè)培訓(xùn)。要緊能夠

15、應(yīng)用于中信銀行個(gè)人購(gòu)房借貸款合同的生成和打印。因此具有良好的操作可行性。在各大商業(yè)銀行紛紛收緊貸款的大環(huán)境下，如何成功申請(qǐng)購(gòu)房貸款成為眼下專門多購(gòu)方者必須重視的問題。許多往常能貸款的人，現(xiàn)在不符合貸款條件了；許多往常能獲得優(yōu)惠利率的人，現(xiàn)在只能按基準(zhǔn)利率甚至上浮利率貸款。因此，在看中房屋簽署相關(guān)購(gòu)房協(xié)議前，了解貸款政策、確認(rèn)貸款細(xì)節(jié)是購(gòu)房者必不可少的一門功課。假如采納計(jì)算機(jī)治理合同，不但能對(duì)銀行合同的起草，修改，批閱和簽訂等一系列工作進(jìn)行有效治理。并能夠?yàn)殂y行治理者提供科學(xué)的操作工具，為用戶提供及時(shí)、完整的決策參考資料，提升銀行的治理水平和競(jìng)爭(zhēng)能力。 第2章 程序需求分析2.1 程序需求分析設(shè)

16、計(jì)系統(tǒng)時(shí)應(yīng)該首先充分了解用戶各個(gè)方面的需求，包括現(xiàn)有的以及今后可能增加的需求，本人通過對(duì)洛陽(yáng)、鄭州等站點(diǎn)進(jìn)行詳細(xì)的實(shí)地考察以及利用網(wǎng)絡(luò)等多種渠道，了解了中信銀行在個(gè)人購(gòu)房貸款方面的一些現(xiàn)狀以及政府出臺(tái)的政策，對(duì)個(gè)人借貸款方面的調(diào)控，針對(duì)中信銀行個(gè)人購(gòu)房借貸款合同的各種要求，需要對(duì)合同的每一頁(yè)都進(jìn)行明確的規(guī)劃，合同差不多信息錄入：第一頁(yè)：要有借款人的姓名，身份證件和號(hào)碼，家庭住址，聯(lián)系電話，郵政編碼。由于現(xiàn)在個(gè)人購(gòu)房貸款一般都不是單人的，所有還要考慮有共同借款人，也就需要這位共同借款人的各項(xiàng)身份證明，聯(lián)系電話和住址。借款為了保證銀行的利益，還要有個(gè)借款的保證人，保證人能夠是個(gè)人也但是公司集體，需

17、要保證人的身份證明和聯(lián)系方式。第二到第八頁(yè)差不多上個(gè)人申請(qǐng)住房貸款程序以及多方在購(gòu)房貸款中應(yīng)盡的義務(wù)和享有的權(quán)利。極少情況有需要變更的，是成文重復(fù)的規(guī)定，就不需要在系統(tǒng)中進(jìn)行贅述。第九頁(yè)：借款合同中最重要的確實(shí)是貸款的金額。我們不止要用科學(xué)的計(jì)數(shù)法，還要明確規(guī)范金額的大寫。需要注意貸款當(dāng)年的貸款年利率，月利率。依照實(shí)際情況，利率會(huì)有所波動(dòng)，也就要明確貸款利率調(diào)整的情況下，可能采取的措施，供用戶進(jìn)行直觀有效的選擇?？偣灿兴姆N方法：（1）浮動(dòng)利率，本合同的利率以同簽訂日中國(guó)人民銀行公布的同期同檔次貸款基準(zhǔn)利率為基礎(chǔ)；（2）時(shí)期固定利率，在某一固定時(shí)期，本合同貸款利率以中國(guó)人民銀行公布的同期同檔次利

18、率為定價(jià)依據(jù)，期間內(nèi)利率保持不變；（3）固定利率，借款合同履行期間，本合同貸款以中國(guó)人民銀行公布的同期同檔次貸款基準(zhǔn)利率為定價(jià)依據(jù)，期間保持不變。第十頁(yè)：標(biāo)明合同的貸款期限，總共幾個(gè)月，從某年某月某日到某年某月某日。要需要保證人的賬戶名稱和賬戶號(hào)以作擔(dān)保。第十一頁(yè)：要明確借款人的還款方式。共有11種還款方式。（1）到期一次還本付息法（2）按月等額本息還款法（3）按月等額本金還款法（4）按單周或雙周等額本息還款法（5）按單周或雙周等額本金還款法（6）等比遞增還款法（7）等比遞減還款法（8）等額遞增還款法（9）等額遞減還款法（10）寬限期等額本息還款法（11）寬限期等額本金還款法第十二頁(yè)：要明確借

19、款人的還款賬戶，逾期貸款的相關(guān)舉措，提早還款的相關(guān)規(guī)定和程序途徑以及貸款所購(gòu)買并作為抵押物的房屋也要有明確的標(biāo)示。第十三頁(yè)：確認(rèn)合同的公平公正性。2.2 程序性能要求1.安全性該系統(tǒng)的安全性要緊是防止他人非法進(jìn)入系統(tǒng)，從而保證了數(shù)據(jù)的安全性，數(shù)據(jù)存儲(chǔ)的完整性和數(shù)據(jù)的可靠性。設(shè)置三種不同的身份進(jìn)行登錄，即特級(jí)治理員、一般治理員和一般用戶；系統(tǒng)也設(shè)立了數(shù)據(jù)備份和恢復(fù)機(jī)制，從一定程度上能夠降低數(shù)據(jù)的損壞程度。2.高效性使用此智能鐵路查詢系統(tǒng)既能夠方便旅客及時(shí)獵取所需的信息，又能夠大大減輕鐵路工作人員的負(fù)擔(dān)，與人工服務(wù)相比效率得到了專門大的提高。 3.便捷性本系統(tǒng)的界面友好,操作方便，能夠達(dá)到所見即所

20、得的效果,方便用戶的使用。第3章 程序所采納技術(shù)3.1開發(fā)工具簡(jiǎn)介3.1.1 Visual Basic 6.0開發(fā)工具Visual Basic6.0作為Visual Studio 家族中的一員，以其開發(fā)速度快、使用簡(jiǎn)單而被廣泛使用。Visual Basic的要緊功能特點(diǎn)：(1)可視化編程、（）面向?qū)ο蟮某绦蛟O(shè)計(jì)、（）結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)言、（）事件驅(qū)動(dòng)編程機(jī)制、（）訪問數(shù)據(jù)庫(kù)Visual Basic6.0是由微軟公司推出的一套完整的windows系統(tǒng)軟件開發(fā)工具，可用股開發(fā)windows環(huán)境下的各類應(yīng)用程序，是一種可視化、真正面向?qū)ο?、采納事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)語(yǔ)言和工具的完美集成。它編

21、程簡(jiǎn)單方便、功能強(qiáng)大，具有與其他語(yǔ)言及環(huán)境的良好借口，不需要變成惡開發(fā)人員具備語(yǔ)言知識(shí)和特不高深的專業(yè)知識(shí)，只要明白得Windows的界面及差不多操作，就能夠迅速上手，而VB在程序界面設(shè)計(jì)、多媒體開發(fā)方面更是獨(dú)具優(yōu)勢(shì)。3.2 運(yùn)用的控件和要緊對(duì)象在程序設(shè)計(jì)過程中要緊用到的控件有：Command控件；Lable 控件；TextBox 控件；TabStrip 控件等。第4章 程序詳細(xì)設(shè)計(jì)4.1 開發(fā)及運(yùn)行環(huán)境系統(tǒng)開發(fā)平臺(tái)：Visual Basic 6.0運(yùn)行平臺(tái)：Windows XP / Windows 2000 / Windows 20034.2 創(chuàng)建工程啟動(dòng)Visual Basic 6.0后，

22、在“新建工程”對(duì)話框中選擇“標(biāo)準(zhǔn)EXE”文件，單擊“確定”按鈕。現(xiàn)在，工程資源治理器窗口中顯示已創(chuàng)建了一個(gè)工程，默認(rèn)名字為“工程1”，并創(chuàng)建了一個(gè)窗體，默認(rèn)名稱為“Form1”。4.3界面設(shè)計(jì)新建窗體后，利用工具箱能夠在窗體上依次添加控件對(duì)象。選擇工具箱中的標(biāo)簽，通過雙擊或鼠標(biāo)拖動(dòng)將其對(duì)象拖放在窗體的合適位置；用同樣的方法創(chuàng)建文本框和命令按鈕的對(duì)象放置在適當(dāng)?shù)奈恢?，如圖所示。第一頁(yè)：圖4-1 第一頁(yè)第九頁(yè)：表4-2 第九頁(yè)3. 第十頁(yè)：圖4-3 第十頁(yè)4. 第十一頁(yè)：圖4-4 第十一頁(yè)5. 第十二頁(yè)：圖4-5 第十二頁(yè)6. 第十三頁(yè)：圖4-6 第十三頁(yè)4.4 程序設(shè)計(jì)應(yīng)用程序進(jìn)行到現(xiàn)在僅僅只做

23、了一個(gè)空殼，當(dāng)程序運(yùn)行，我們單擊任何命令按鈕，并沒有情況發(fā)生，這是因?yàn)槲覀冞€沒有進(jìn)行最重要的一個(gè)步驟代碼編輯。依照程序需求，我們要在代碼窗口中對(duì)每個(gè)命令按鈕的單擊事件編程。4.4.1 打印功能設(shè)置1.Command事件代碼如下：/*分不有Command1，Command2，Command3，Command4，Command5，Command6六個(gè)Command事件，功能類似，要緊完成當(dāng)前頁(yè)的錄入內(nèi)容是否合法，頁(yè)面設(shè)置，字體段落的確定，把打印內(nèi)容送交打印機(jī)最后把計(jì)算單位改為默認(rèn)值。下面以Command1為例的事件代碼。*/Private Sub Command1_Click() Dim k As

24、 Integer Dim i As Integer Dim PrintStr As String 清除輸入框多余的空格 ClrEmpty = ClearEmpty() PrintPages = Val(Trim(Text65.Text) If PrintPages 0 Then Text65.Text = Text65.SetFocus Exit Sub End If 開始循環(huán)打印 For k = 1 To PrintPages On Error GoTo error 先推斷輸入內(nèi)容是否合法 Printer.ScaleMode = vbCentimeters 設(shè)置計(jì)算單位為厘米 Printer

25、.ScaleWidth = 19 紙張寬度 Printer.ScaleHeight = 27 紙張高度 Printer.Font.Size = 12 打印字號(hào) Printer.FontBold = True 字體不加粗 Printer.Font.Name = 宋體 打印字體 其它類似 Printer.CurrentX = 0 打印橫坐標(biāo)為1厘米 Printer.CurrentY = 0 打印縱坐標(biāo)為1厘米 Printer.Print 初始化 定位第第一行的Y坐標(biāo) PrintSpaceY (14) 1行 Printer.Font.Size = 10 PrintStr = makeSpace(44

26、) & Trim(txtL1S1.Text) Printer.Print PrintStr 2行 Printer.Font.Size = 14 PrintSpaceY (0) Printer.Font.Size = 10 PrintStr = makeSpace(31) & Trim(txtL2S1.Text) Printer.Print PrintStr 3行 Printer.Font.Size = 15 PrintSpaceY (0) Printer.Font.Size = 10 PrintStr = makeSpace(17) & Trim(txtL3S1.Text) Printer.P

27、rint PrintStr 4行 Printer.Font.Size = 15 PrintSpaceY (0) Printer.Font.Size = 10 PrintStr = makeSpace(22) & Trim(txtL4S1.Text) Printer.Print PrintStr 5行 Printer.Font.Size = 15 PrintSpaceY (0) Printer.Font.Size = 10 PrintStr = makeSpace(22) & Trim(txtL5S1.Text) Printer.Print PrintStr 6行 Printer.Font.Si

28、ze = 12 PrintSpaceY (2) Printer.Font.Size = 10 PrintStr = makeSpace(24) & Trim(txtL6S1.Text) Printer.Print PrintStr 7行 Printer.Font.Size = 16 PrintSpaceY (0) Printer.Font.Size = 10 PrintStr = makeSpace(31) & Trim(txtL7S1.Text) Printer.Print PrintStr 8行 Printer.Font.Size = 16 PrintSpaceY (0) Printer.

29、Font.Size = 10 PrintStr = makeSpace(17) & Trim(txtL8S1.Text) Printer.Print PrintStr 9行 Printer.Font.Size = 16 PrintSpaceY (0) Printer.Font.Size = 10 PrintStr = makeSpace(22) & Trim(txtL9S1.Text) Printer.Print PrintStr 10行 Printer.Font.Size = 16 PrintSpaceY (0) Printer.Font.Size = 10 PrintStr = makeS

30、pace(22) & Trim(txtL10S1.Text) Printer.Print PrintStr 定位16行坐標(biāo) Printer.Font.Size = 12 PrintSpaceY (13) 16行 Printer.Font.Size = 18 PrintSpaceY (0) Printer.Font.Size = 10 PrintStr = makeSpace(35) & Trim(txtL16S1.Text) Printer.Print PrintStr 17行 Printer.Font.Size = 16 PrintSpaceY (0) Printer.Font.Size =

31、 10 PrintStr = makeSpace(23) & Trim(txtL17S1.Text) Printer.Print PrintStr 18行 Printer.Font.Size = 16 PrintSpaceY (0) Printer.Font.Size = 10 PrintStr = makeSpace(17) & Trim(txtL18S1.Text) Printer.Print PrintStr 19行 Printer.Font.Size = 16 PrintSpaceY (0) Printer.Font.Size = 10 PrintStr = makeSpace(22)

32、 & Trim(txtL19S1.Text) Printer.Print PrintStr 20行 Printer.Font.Size = 16 PrintSpaceY (0) Printer.Font.Size = 10 PrintStr = makeSpace(22) & Trim(txtL20S1.Text) Printer.Print PrintStr 將打印內(nèi)容送交打印機(jī) Printer.EndDoc 將計(jì)算單位改回默認(rèn)設(shè)置 Printer.ScaleMode = vbTwips Next Command7.SetFocuserror: err.ClearEnd SubPrivate

33、 Sub Command10_Click() Text43.Text = Text44.Text = Text45.Text = Text50.Text = Text51.Text = Text52.Text = Text53.Text = Text54.Text = Text55.Text = Text43.SetFocusEnd Sub4.4.2 頁(yè)面初始化 依照不同頁(yè)面的內(nèi)容不同，每次程序啟動(dòng)或打印結(jié)束時(shí)，要清晰緩存數(shù)據(jù)，給變量賦一個(gè)起始的滿足實(shí)際需要的值。1. 第九頁(yè)初始化：第九頁(yè)Combo初始化 Cmb21_2S3.Text = (1) Cmb21_2S3.AddItem (1) C

34、mb21_2S3.AddItem (2) Cmb21_2S3.AddItem (3) Cmb21_2S3.AddItem (4)2. 第十頁(yè)初始化：第十頁(yè)Combo初始化 Cmb21_2_1_aS4.Text = 1個(gè)月 Cmb21_2_1_aS4.AddItem (1個(gè)月) Cmb21_2_1_aS4.AddItem (3個(gè)月) Cmb21_2_1_aS4.AddItem (6個(gè)月) Cmb21_2_1_aS4.AddItem (12個(gè)月)3. 第十一頁(yè)初始化：第十一頁(yè)Combo初始化 ComboL28S1.Text = (1) ComboL28S1.AddItem (1) ComboL28

35、S1.AddItem (2) ComboL28S1.AddItem (3) ComboL28S1.AddItem (4) ComboL28S1.AddItem (5) ComboL28S1.AddItem (6) ComboL28S1.AddItem (7) ComboL28S1.AddItem (8) ComboL28S1.AddItem (9) ComboL28S1.AddItem (10) ComboL28S1.AddItem (11) SSTab2.SetFocus End Sub4.4.3 代碼編輯1.第九頁(yè)：Private Sub Text30_KeyPress(KeyAscii

36、As Integer) If KeyAscii = 13 Then Text31.SetFocus End IfEnd SubPrivate Sub Text31_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text33.SetFocus End IfEnd SubPrivate Sub Text33_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text32.SetFocus End IfEnd SubPrivate Sub Text32_KeyPress(KeyAscii

37、As Integer) If KeyAscii = 13 Then Cmb21_2S3.SetFocus End IfEnd SubPrivate Sub Cmb21_2S3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text35.SetFocus End IfEnd SubPrivate Sub Text35_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text36.SetFocus End IfEnd SubPrivate Sub Text36_KeyPress(Key

38、Ascii As Integer) If KeyAscii = 13 Then Text37.SetFocus End IfEnd SubPrivate Sub Text37_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text38.SetFocus End IfEnd SubPrivate Sub Text38_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text39.SetFocus End IfEnd SubPrivate Sub Text39_KeyPress(Key

39、Ascii As Integer) If KeyAscii = 13 Then Text40.SetFocus End IfEnd SubPrivate Sub Text40_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text65.SetFocus End IfEnd Sub2.第十頁(yè)P(yáng)rivate Sub Text84_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text85.SetFocus End IfEnd SubPrivate Sub Text85_KeyPres

40、s(KeyAscii As Integer) If KeyAscii = 13 Then Text86.SetFocus End IfEnd SubPrivate Sub Text86_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Cmb21_2_1_aS4.SetFocus End IfEnd SubPrivate Sub Cmb21_2_1_aS4_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text87(0).SetFocus End IfEnd SubPrivate S

41、ub Text90_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then Text91(0).SetFocus End IfEnd SubPrivate Sub Text91_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then Text92(0).SetFocus End IfEnd SubPrivate Sub Text92_KeyPress(Index As Integer, KeyAscii As Integer)

42、If KeyAscii = 13 Then Text93.SetFocus End IfEnd SubPrivate Sub Text93_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text34.SetFocus End IfEnd SubPrivate Sub Text34_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text41.SetFocus End IfEnd SubPrivate Sub Text41_KeyPress(KeyAscii As Integer)

43、If KeyAscii = 13 Then Text42.SetFocus End IfEnd SubPrivate Sub Text42_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Combo2.SetFocus End IfEnd SubPrivate Sub Combo2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text94.SetFocus End IfEnd SubPrivate Sub Text94_KeyPress(KeyAscii As Integer)

44、If KeyAscii = 13 Then Text95.SetFocus End IfEnd SubPrivate Sub Text95_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text96.SetFocus End IfEnd SubPrivate Sub Text96_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text97.SetFocus End IfEnd SubPrivate Sub Text97_KeyPress(KeyAscii As Integer)

45、If KeyAscii = 13 Then Text98.SetFocus End IfEnd SubPrivate Sub Text98_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text99.SetFocus End IfEnd SubPrivate Sub Text99_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text100.SetFocus End IfEnd SubPrivate Sub Text100_KeyPress(KeyAscii As Integer

46、) If KeyAscii = 13 Then Text101.SetFocus End IfEnd SubPrivate Sub Text101_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text63.SetFocus End IfEnd Sub3.第十一頁(yè)P(yáng)rivate Sub Text43_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text44.SetFocus End IfEnd SubPrivate Sub Text44_KeyPress(KeyAscii As

47、 Integer) If KeyAscii = 13 Then Text45.SetFocus End IfEnd SubPrivate Sub Text45_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Combo3.SetFocus End IfEnd SubPrivate Sub Combo3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text50.SetFocus End IfEnd SubPrivate Sub Text50_KeyPress(KeyAscii As

48、 Integer) If KeyAscii = 13 Then Text52.SetFocus End IfEnd SubPrivate Sub Text52_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text54.SetFocus End IfEnd SubPrivate Sub Text54_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text51.SetFocus End IfEnd SubPrivate Sub Text51_KeyPress(KeyAscii As

49、 Integer) If KeyAscii = 13 Then Text53.SetFocus End IfEnd SubPrivate Sub Text53_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text55.SetFocus End IfEnd SubPrivate Sub Text55_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text56.SetFocus End IfEnd SubPrivate Sub Text56_KeyPress(KeyAscii As

50、 Integer) If KeyAscii = 13 Then Text57.SetFocus End IfEnd SubPrivate Sub Text57_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text58.SetFocus End IfEnd SubPrivate Sub Text58_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text102.SetFocus End IfEnd SubPrivate Sub Text102_KeyPress(KeyAscii

51、As Integer) If KeyAscii = 13 Then Text59.SetFocus End IfEnd SubPrivate Sub Text59_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text60.SetFocus End IfEnd SubPrivate Sub Text60_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text103.SetFocus End IfEnd SubPrivate Sub Text103_KeyPress(KeyAsci

52、i As Integer) If KeyAscii = 13 Then Text49.SetFocus End IfEnd SubPrivate Sub Text49_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text104.SetFocus End IfEnd SubPrivate Sub Text104_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text105.SetFocus End IfEnd SubPrivate Sub Text105_KeyPress(Key

53、Ascii As Integer) If KeyAscii = 13 Then Text106.SetFocus End IfEnd SubPrivate Sub Text106_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text107.SetFocus End IfEnd SubPrivate Sub Text107_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text115.SetFocus End IfEnd SubPrivate Sub Text115_KeyPre

54、ss(KeyAscii As Integer) If KeyAscii = 13 Then Text117.SetFocus End IfEnd SubPrivate Sub Text117_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text119.SetFocus End IfEnd SubPrivate Sub Text119_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text113.SetFocus End IfEnd SubPrivate Sub Text113_

55、KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text120.SetFocus End IfEnd SubPrivate Sub Text120_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text121.SetFocus End IfEnd SubPrivate Sub Text121_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text122.SetFocus End IfEnd SubPrivate Sub Te

56、xt122_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text123.SetFocus End IfEnd SubPrivate Sub Text123_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text66.SetFocus End IfEnd Sub4.第十二頁(yè)P(yáng)rivate Sub Text133_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text134.SetFocus End IfEnd SubPri

57、vate Sub Text134_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text14.SetFocus End IfEnd SubPrivate Sub Text14_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text15.SetFocus End IfEnd SubPrivate Sub Text15_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text16.SetFocus End IfEnd SubPr

58、ivate Sub Text16_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text17.SetFocus End IfEnd SubPrivate Sub Text17_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text20.SetFocus End IfEnd SubPrivate Sub Text20_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text21.SetFocus End IfEnd SubPr

59、ivate Sub Text21_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text124.SetFocus End IfEnd SubPrivate Sub Text124_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text125.SetFocus End IfEnd SubPrivate Sub Text125_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text126.SetFocus End IfEnd

60、SubPrivate Sub Text126_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text127.SetFocus End IfEnd SubPrivate Sub Text127_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text128.SetFocus End IfEnd SubPrivate Sub Text128_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text129.SetFocus End