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

1、中信銀行個(gè)人購(gòu)房貸款合同打印程序設(shè)計(jì)摘要在21世紀(jì)，隨著計(jì)算機(jī)科學(xué)的發(fā)展，計(jì)算機(jī)在人們?nèi)粘Ｉ钪械膽?yīng)用越來(lái)越廣泛，為廣大用戶提供了更加周到和人性化的服務(wù)。合同是商品經(jīng)濟(jì)的產(chǎn)物，是商品交換的法律表現(xiàn)形式。而合同的打印也成了，交易是否成功的關(guān)鍵一環(huán)。長(zhǎng)期以來(lái)，由于在合同打印實(shí)行手工作業(yè)，存在各部門之間合同流轉(zhuǎn)時(shí)間長(zhǎng)而且特別容易出錯(cuò)等問題。合同打印系統(tǒng)就是針對(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í)了解

2、合同管理業(yè)務(wù)層的工作情況提供第一手資料。本系統(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 contr

3、act is the product 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 transf

4、er time and error 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 timel

5、y, accurate, comprehensive 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 th

6、e work of contract 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 l

7、oans目 錄第1章 緒論11.1 程序開發(fā)背景11.2 程序研究目的和意義11.3 可行性分析2第2章 系統(tǒng)需求分析32.1 程序需求分析32.2 程序性能要求4第3章 程序所采用技術(shù)53.1 開發(fā)工具簡(jiǎn)介53.1.1 visual basic 6.0開發(fā)工具53.2 運(yùn)用的控件和主要對(duì)象5第4章 程序詳細(xì)設(shè)計(jì)64.1 開發(fā)及運(yùn)行環(huán)境64.2 創(chuàng)建工程64.3 界面設(shè)計(jì)64.4 程序設(shè)計(jì)114.4.1 打印功能設(shè)置134.4.2 頁(yè)面初始化174.4.3 代碼編輯184.5 功能實(shí)現(xiàn)33第5章 軟件測(cè)試和調(diào)試365.1 白盒測(cè)試法365.2 黑盒測(cè)試法37第6章 工作總結(jié)和展望38參考文獻(xiàn)3

8、9致 謝4039第1章 緒論1.1 程序開發(fā)背景在21世紀(jì)，隨著計(jì)算機(jī)科學(xué)的發(fā)展，計(jì)算機(jī)在人們?nèi)粘Ｉ钪械膽?yīng)用越來(lái)越廣泛，為廣大用戶提供了更加周到和人性化的服務(wù)?，F(xiàn)代化的企業(yè)越來(lái)越重視科學(xué)技術(shù)，只有把科學(xué)技術(shù)應(yīng)用到企業(yè)中才能獲取更大的效益。合同是商品經(jīng)濟(jì)的產(chǎn)物，是商品交換的法律表現(xiàn)形式?，F(xiàn)代企業(yè)的經(jīng)濟(jì)往來(lái)，主要是通過(guò)合同形式進(jìn)行的。所以，合同的確立以書面簽字的形式體現(xiàn)，要確保合同有效，雙方的簽字必須是法人或者委托代理人。而合同的打印也成了，交易是否成功的關(guān)鍵一環(huán)。合同管理是企業(yè)經(jīng)營(yíng)管理中不可缺少的組成部分，無(wú)論是企業(yè)內(nèi)部人員管理，還是企業(yè)業(yè)務(wù)往來(lái)管理，都離不開合同。由于合同形式的多樣性，履行過(guò)

9、程的多變性，同時(shí)合同執(zhí)行周期長(zhǎng)，信息量大，重復(fù)性高，許多企業(yè)對(duì)合同打印一直沒有好的辦法。如果采用計(jì)算機(jī)管理合同，不但能對(duì)企業(yè)合同的起草、修改、審閱、簽訂和查詢等一系列工作明確化，簡(jiǎn)單化。并可以為企業(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)和商品交換高度發(fā)展的結(jié)果。合同管理即合同行為的

10、監(jiān)督管理，是規(guī)范、制約、完善合同行為的一種活動(dòng)，是國(guó)家法律賦予管理主體的一種職能，是企業(yè)在經(jīng)濟(jì)活動(dòng)中保證企業(yè)利益的重要環(huán)節(jié)。改革開放以來(lái)，我國(guó)的經(jīng)濟(jì)建設(shè)取得了長(zhǎng)足的發(fā)展，然而長(zhǎng)期以來(lái)，由于在合同管理中實(shí)行手工作業(yè)，合同審批流程不明確，造成合同管理過(guò)程中業(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è)合同管理智能化，提高辦公效率及人員的利用率

11、成為促進(jìn)企業(yè)迅速發(fā)展的一支很好的催化劑。1.3 可行性分析該系統(tǒng)采用visual basic6.0軟件作為工具進(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)用程序創(chuàng)造了良好的條件。因此利用它作為合同打印系統(tǒng)的工具是完全可行的。傳統(tǒng)的合同打印方法，存在諸多缺點(diǎn)，如：效率低，保密性差，時(shí)間一長(zhǎng)就會(huì)產(chǎn)生大量的文件和數(shù)據(jù)積壓，這對(duì)于往后的合同管理帶來(lái)了不少困難，也造成了勞動(dòng)力的浪費(fèi)。使用計(jì)算機(jī)合同打印系統(tǒng)，可以促進(jìn)企業(yè)工作效率和經(jīng)營(yíng)管理能力的提高。此中信銀行個(gè)人借貸款合同

12、打印系統(tǒng)，使用方便，簡(jiǎn)單易讀，修改簡(jiǎn)便，非常便于顧客閱讀查詢。且對(duì)管理人員不需要太多的專業(yè)培訓(xùn)。主要可以應(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)行有效管理。并可以為銀行管理者提供科學(xué)的操作工具，為用戶提

13、供及時(shí)、完整的決策參考資料，提升銀行的管理水平和競(jìng)爭(zhēng)能力。 中信銀行個(gè)人購(gòu)房貸款合同打印程序設(shè)計(jì)第2章 程序需求分析2.1 程序需求分析設(shè)計(jì)系統(tǒng)時(shí)應(yīng)該首先充分了解用戶各個(gè)方面的需求，包括現(xiàn)有的以及將來(lái)可能增加的需求，本人通過(guò)對(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)房貸款一般都不是單人的，所有還要考慮有共同借款人

14、，也就需要這位共同借款人的各項(xiàng)身份證明，聯(lián)系電話和住址。借款為了保證銀行的利益，還要有個(gè)借款的保證人，保證人可以是個(gè)人也可是公司集體，需要保證人的身份證明和聯(lián)系方式。第二到第八頁(yè)都是個(gè)人申請(qǐng)住房貸款程序以及多方在購(gòu)房貸款中應(yīng)盡的義務(wù)和享有的權(quán)利。極少情況有需要變更的，是成文重復(fù)的規(guī)定，就不需要在系統(tǒng)中進(jìn)行贅述。第九頁(yè)：借款合同中最重要的就是貸款的金額。我們不止要用科學(xué)的計(jì)數(shù)法，還要明確規(guī)范金額的大寫。需要注意貸款當(dāng)年的貸款年利率，月利率。根據(jù)實(shí)際情況，利率會(huì)有所波動(dòng)，也就要明確貸款利率調(diào)整的情況下，可能采取的措施，供用戶進(jìn)行直觀有效的選擇?？偣灿兴姆N方法：（1）浮動(dòng)利率，本合同的利率以同簽訂日

15、中國(guó)人民銀行公布的同期同檔次貸款基準(zhǔn)利率為基礎(chǔ)；（2）階段固定利率，在某一固定時(shí)期，本合同貸款利率以中國(guó)人民銀行公布的同期同檔次利率為定價(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

16、）等比遞減還款法（8）等額遞增還款法（9）等額遞減還款法（10）寬限期等額本息還款法（11）寬限期等額本金還款法第十二頁(yè)：要明確借款人的還款賬戶，逾期貸款的相關(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í)獲取所需的信息

17、，又可以大大減輕鐵路工作人員的負(fù)擔(dān)，與人工服務(wù)相比效率得到了很大的提高。 3.便捷性本系統(tǒng)的界面友好,操作方便，能夠達(dá)到所見即所得的效果,方便用戶的使用。第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ā)工具，可用股開

18、發(fā)windows環(huán)境下的各類應(yīng)用程序，是一種可視化、真正面向?qū)ο?、采用事件?qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)語(yǔ)言和工具的完美集成。它編程簡(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ì)過(guò)程中主要用到的控件有：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)：window

19、s xp / windows 2000 / windows 20034.2 創(chuàng)建工程啟動(dòng)visual basic 6.0后，在“新建工程”對(duì)話框中選擇“標(biāo)準(zhǔn)exe”文件，單擊“確定”按鈕。此時(shí)，工程資源管理器窗口中顯示已創(chuàng)建了一個(gè)工程，默認(rèn)名字為“工程1”，并創(chuàng)建了一個(gè)窗體，默認(rèn)名稱為“form1”。4.3界面設(shè)計(jì)新建窗體后，利用工具箱可以在窗體上依次添加控件對(duì)象。選擇工具箱中的標(biāo)簽，通過(guò)雙擊或鼠標(biāo)拖動(dòng)將其對(duì)象拖放在窗體的合適位置；用同樣的方法創(chuàng)建文本框和命令按鈕的對(duì)象放置在適當(dāng)?shù)奈恢?，如圖所示。1. 第一頁(yè)：圖4-1 第一頁(yè)2. 第九頁(yè)：表4-2 第九頁(yè)3. 第十頁(yè)：圖4-3 第十頁(yè)4. 第

20、十一頁(yè)：圖4-4 第十一頁(yè)5. 第十二頁(yè)：圖4-5 第十二頁(yè)6. 第十三頁(yè)：圖4-6 第十三頁(yè)4.4 程序設(shè)計(jì)應(yīng)用程序進(jìn)行到現(xiàn)在僅僅只做了一個(gè)空殼，當(dāng)程序運(yùn)行，我們單擊任何命令按鈕，并沒有事情發(fā)生，這是因?yàn)槲覀冞€沒有進(jìn)行最重要的一個(gè)步驟代碼編輯。根據(jù)程序需求，我們要在代碼窗口中對(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ī)最后把

21、計(jì)算單位改為默認(rèn)值。下面以command1為例的事件代碼。*/private sub command1_click() dim k as 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 e

22、rror 先判斷輸入內(nèi)容是否合法 printer.scalemode = vbcentimeters 設(shè)置計(jì)算單位為厘米 printer.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 初始化 定位第第一行的

23、y坐標(biāo) printspacey (14) 1行 printer.font.size = 10 printstr = makespace(44) & 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.

24、font.size = 10 printstr = makespace(17) & trim(txtl3s1.text) printer.print 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 = makesp

25、ace(22) & trim(txtl5s1.text) printer.print printstr 6行 printer.font.size = 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) pri

26、nter.print printstr 8行 printer.font.size = 16 printspacey (0) printer.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.

27、font.size = 16 printspacey (0) printer.font.size = 10 printstr = makespace(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 p

28、rintstr 17行 printer.font.size = 16 printspacey (0) printer.font.size = 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.siz

29、e = 16 printspacey (0) printer.font.size = 10 printstr = makespace(22) & 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.sc

30、alemode = vbtwips next command7.setfocuserror: err.clearend subprivate 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è)面初始化 根據(jù)不同頁(yè)面的內(nèi)容不同，每次程序啟動(dòng)或打印結(jié)束時(shí)，要清楚緩存數(shù)據(jù)，給變量賦一個(gè)起始的滿足實(shí)際需

31、要的值。1. 第九頁(yè)初始化：第九頁(yè)combo初始化 cmb21_2s3.text = (1) cmb21_2s3.additem (1) cmb21_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è)

32、初始化：第十一頁(yè)combo初始化 combol28s1.text = (1) combol28s1.additem (1) combol28s1.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

33、.setfocus end sub4.4.3 代碼編輯1.第九頁(yè)：private sub text30_keypress(keyascii 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 t

34、hen text32.setfocus end ifend subprivate sub text32_keypress(keyascii 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

35、= 13 then text36.setfocus end ifend subprivate sub text36_keypress(keyascii 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

36、= 13 then text39.setfocus end ifend subprivate sub text39_keypress(keyascii 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è)private sub text84_keypress(keyascii as integer) if keya

37、scii = 13 then text85.setfocus end ifend subprivate sub text85_keypress(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 in

38、teger) if keyascii = 13 then text87(0).setfocus end ifend subprivate sub 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

39、subprivate sub text92_keypress(index as integer, keyascii as integer) 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.s

40、etfocus end ifend subprivate sub text41_keypress(keyascii as integer) 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.s

41、etfocus end ifend subprivate sub text94_keypress(keyascii as integer) 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.s

42、etfocus end ifend subprivate sub text97_keypress(keyascii as integer) 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.

43、setfocus end ifend subprivate sub text100_keypress(keyascii as integer) 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è)private sub text43_keypress(keyascii as integer) if keyascii = 13 the

44、n text44.setfocus end ifend subprivate sub text44_keypress(keyascii as 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 the

45、n text50.setfocus end ifend subprivate sub text50_keypress(keyascii as 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 the

46、n text51.setfocus end ifend subprivate sub text51_keypress(keyascii as 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 the

47、n text56.setfocus end ifend subprivate sub text56_keypress(keyascii as 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 the

48、n text102.setfocus end ifend subprivate sub text102_keypress(keyascii 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(keyascii as integer)