中信銀行個人購房貸款合同模板打印程序設計

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

2、資料。本系統(tǒng)是專注于合同治理的一環(huán)合同打印。并以中信銀行個人購房貸款為背景的應用實例。關鍵詞：合同；打??；中信銀行；購房貸款 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章 程序所采納技術5 HYPERLINK l _Toc168310680 3.1 開發(fā)工具簡介5 HYPERLINK l _Toc168310681 3.1.1 Visual Basic 6.0開發(fā)工具5 HYPERLINK l _Toc168310687 3.2 運用的控件和要緊對象5 HYPERLI

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

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

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

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

13、業(yè)利益的重要環(huán)節(jié)。改革開放以來，我國的經(jīng)濟建設取得了長足的進展，然而長期以來，由于在合同治理中實行手工作業(yè)，合同審批流程不明確，造成合同治理過程中業(yè)務處理效率低，白費了大量的人力、物力，各部門之間合同流轉(zhuǎn)時刻長而且特不容易出錯等問題。為了解決這一問題，需要開發(fā)一套功能完整的智能化的合同治理系統(tǒng)軟件，用于各行各業(yè)的大中小型企業(yè)的合同制定、評審、實施動態(tài)操縱等方面的具體應用需求，并以先進成熟的計算機網(wǎng)絡和通信技術為手段，覆蓋整個企業(yè)的各部門，實現(xiàn)該企業(yè)合同治理智能化，提高辦公效率及人員的利用率成為促進企業(yè)迅速進展的一支專門好的催化劑。1.3 可行性分析該系統(tǒng)采納Visual Basic6.0軟件作

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

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

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

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

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

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

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

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

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

23、了一個空殼，當程序運行，我們單擊任何命令按鈕，并沒有情況發(fā)生，這是因為我們還沒有進行最重要的一個步驟代碼編輯。依照程序需求，我們要在代碼窗口中對每個命令按鈕的單擊事件編程。4.4.1 打印功能設置1.Command事件代碼如下：/*分不有Command1，Command2，Command3，Command4，Command5，Command6六個Command事件，功能類似，要緊完成當前頁的錄入內(nèi)容是否合法，頁面設置，字體段落的確定，把打印內(nèi)容送交打印機最后把計算單位改為默認值。下面以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 設置計算單位為厘米 Printer

25、.ScaleWidth = 19 紙張寬度 Printer.ScaleHeight = 27 紙張高度 Printer.Font.Size = 12 打印字號 Printer.FontBold = True 字體不加粗 Printer.Font.Name = 宋體 打印字體 其它類似 Printer.CurrentX = 0 打印橫坐標為1厘米 Printer.CurrentY = 0 打印縱坐標為1厘米 Printer.Print 初始化 定位第第一行的Y坐標 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行坐標 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)容送交打印機 Printer.EndDoc 將計算單位改回默認設置 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 頁面初始化 依照不同頁面的內(nèi)容不同，每次程序啟動或打印結束時，要清晰緩存數(shù)據(jù)，給變量賦一個起始的滿足實際需要的值。1. 第九頁初始化：第九頁Combo初始化 Cmb21_2S3.Text = (1) Cmb21_2S3.AddItem (1) C

34、mb21_2S3.AddItem (2) Cmb21_2S3.AddItem (3) Cmb21_2S3.AddItem (4)2. 第十頁初始化：第十頁Combo初始化 Cmb21_2_1_aS4.Text = 1個月 Cmb21_2_1_aS4.AddItem (1個月) Cmb21_2_1_aS4.AddItem (3個月) Cmb21_2_1_aS4.AddItem (6個月) Cmb21_2_1_aS4.AddItem (12個月)3. 第十一頁初始化：第十一頁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.第九頁：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.第十頁Private 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.第十一頁Private 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.第十二頁Private 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