中信银行个人购房贷款合同打印程序设计

1、洛阳师范学院2009届本科生毕业设计中信银行个人购房贷款合同打印程序设计 PAGE 58 PAGE 59摘要在21世纪，随着计算机科学的发展，计算机在人们日常生活中的应用越来越广泛，为广大用户提供了更加周到和人性化的服务。合同是商品经济的产物，是商品交换的法律表现形式。而合同的打印也成了，交易是否成功的关键一环。长期以来，由于在合同打印实行手工作业，存在各部门之间合同流转时间长而且特别容易出错等问题。合同打印系统就是针对当前的合同打印业务特点所定制的一套系统，该套系统本着进一步完善企业内部合同管理制度，规范合同管理机制的目的，更加及时、准确、全面地反映合同信息，辅助企业管理决策，从而实现该企业

2、合同管理智能化，降低管理成本，提高内部管理水准，为企业决策层及时了解合同管理业务层的工作情况提供第一手资料。本系统是专注于于合同管理的的一环合同打打印。并以中中信银行个人人购房贷款为为背景的应用用实例。关键词：合同；打印；中信信银行；购房房贷款 AbstracctAbstracct at the 221th CCenturry , WWith tthe deeveloppment of coomputeer sciience, Compputer sciennce iss wideely ussed inn the peoplle liffe andd workk. Thiis makkes

3、ussers ccan ennjoy mmore cconvennient and iindiviidual serviices. The ccontraact iss the produuct off the commoodity econoomy, iis thee legaal forrm of commoodity exchaange. The coontracct priint allso beecame a keyy ringg, Whiile thhe traansacttion iis succcessfful.Long-teerm siince, as a resullt o

4、f the mmanuall operrationn in tthe coontracct to printt, exiist beetweenn the varioous deepartmments of coontracct traansferr timee and errorr pronne prooblemss. A ssystemm of ccontraact prrintinng sysstem iis aimmed att the charaacteriisticss of tthe prresentt conttract printt busiiness custoom, th

5、he sysstem iin thee furtther pperfecct thee inteernal enterrprisee manaagemennt sysstem, standdardizzed meechaniism foor thee purppose oof conntractt manaagemennt, moore tiimely, accuurate, compprehennsive refleectionn of ccontraact innformaation, auxiiliaryy enteerprisse mannagemeent deecisioon, in

6、n ordeer to achieeve thhe entterpriise coontracct mannagemeent inntelliigent, reduuce thhe cosst of managgementt, impprove the iinternnal maanagemment llevel, for the eenterpprise decission-mmakingg layeer to underrstandd the work of coontracct mannagemeent buusinesss layyer too provvide ffirst-hand

7、 inforrmatioon.The sysstem iis foccused on thhe conntractt manaagemennt of a rinng, thhe conntractt prinnt. Annd to the iindiviidual housee purcchase loanss CITIIC Bannk forr the appliicatioon bacckgrouund.Keywordds: Contrract ; Printt; CITICC Bankk; Housse purrchasee loanns目 录TOC o 1-3 h z u HYPERL

8、INK l _Toc168310671 第1章 绪论 PAGEREF _Toc168310671 h 1 HYPERLINK l _Toc168310672 1.1 程序开开发背景 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章 系统需需求分析 PAGEREF _Toc16

9、8310675 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 开发工工具简介5 HYPERLINK l _Toc168310681 3.1.1 VVisuall Basiic 6.00开发工具5 HYPERLINK l _Toc168310687 3.2 运用的的控件和主要要对象5 HYPE

10、RLINK l _Toc168310689 第4章 程序详详细设计6 HYPERLINK l _Toc168310690 4.1 开发及及运行环境6 HYPERLINK l _Toc168310691 4.2 创建工工程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

11、.3 代代码编辑18 HYPERLINK l _Toc168310692 4.5 功能实实现33 HYPERLINK l _Toc168310698 第5章 软件测测试和调试36 HYPERLINK l _Toc168310699 5.1 白盒测测试法36 HYPERLINK l _Toc168310700 5.2 黑盒测测试法37 HYPERLINK l _Toc168310701 第6章 工作总总结和展望38 HYPERLINK l _Toc168310702 参考文献399 HYPERLINK l _Toc168310703 致 谢400洛阳师范学院2013届本科生毕业设计第1章 绪论1

12、.1 程序开开发背景在21世纪，随随着计算机科科学的发展，计计算机在人们们日常生活中中的应用越来来越广泛，为为广大用户提提供了更加周周到和人性化化的服务。现现代化的企业业越来越重视视科学技术，只只有把科学技技术应用到企企业中才能获获取更大的效效益。合同是是商品经济的的产物，是商商品交换的法法律表现形式式。现代企业业的经济往来来，主要是通通过合同形式式进行的。所所以，合同的的确立以书面面签字的形式式体现，要确确保合同有效效，双方的签签字必须是法法人或者委托托代理人。而而合同的打印印也成了，交交易是否成功功的关键一环环。合同管理是企业业经营管理中中不可缺少的的组成部分，无无论是企业内内部人员管理理

13、，还是企业业业务往来管管理，都离不不开合同。由由于合同形式式的多样性，履履行过程的多多变性，同时时合同执行周周期长，信息息量大，重复复性高，许多多企业对合同同打印一直没有有好的办法。如如果采用计算算机管理合同同，不但能对对企业合同的的起草、修改改、审阅、签签订和查询等等一系列工作作明确化，简简单化。并可可以为企业管管理者提供科科学的操作工工具，为决策策者提供及时时、完整的决决策参考资料料，提升企业业的管理水平平和竞争能力力。本系统是专注于于合同管理的的一环合同打打印。并以中中信银行个人人购房贷款为为背景的应用用实例。1.2 程序研研究目的和意意义合同，又称契约约，它是当事事人双方或数数方设立、

14、变变更和中止相相互权利和义义务关系的协协议。合同制制度在我国有有着悠久的历历史，合同作作为一种企业业之间横向联联系的工具，是是现代生产和和商品交换高高度发展的结结果。合同管理即合同同行为的监督督管理，是规规范、制约、完完善合同行为为的一种活动动，是国家法律赋予予管理主体的的一种职能，是是企业在经济济活动中保证证企业利益的的重要环节。改改革开放以来来，我国的经经济建设取得得了长足的发发展，然而长长期以来，由由于在合同管管理中实行手手工作业，合合同审批流程程不明确，造造成合同管理理过程中业务务处理效率低低，浪费了大大量的人力、物物力，各部门门之间合同流流转时间长而而且特别容易易出错等问题题。为了解

15、决决这一问题，需需要开发一套套功能完整的的智能化的合合同管理系统统软件，用于于各行各业的的大中小型企企业的合同制制定、评审、实实施动态控制制等方面的具具体应用需求求，并以先进进成熟的计算算机网络和通通信技术为手手段，覆盖整整个企业的各各部门，实现现该企业合同同管理智能化化，提高办公公效率及人员员的利用率成成为促进企业业迅速发展的的一支很好的的催化剂。1.3 可行性性分析该系统采用Viisual Basicc6.0软件件作为工具进进行系统开发发。Visuual Baasic6.0工具软件件以其功能强强大、使用灵灵活的数据窗窗口，其面向向对象的开发发能力等优势势在数据库应应用程序开发发领域占据了了

16、领先地位，这这些特点为开开发功能全面面的应用程序序创造了良好好的条件。因因此利用它作作为合同打印印系统的工具具是完全可行行的。传统的合同打印印方法，存在在诸多缺点，如如：效率低，保保密性差，时时间一长就会会产生大量的的文件和数据据积压，这对对于往后的合合同管理带来来了不少困难难，也造成了了劳动力的浪浪费。使用计计算机合同打打印系统，可可以促进企业业工作效率和和经营管理能能力的提高。此中信银行个人人借贷款合同同打印系统，使使用方便，简简单易读，修修改简便，非非常便于顾客客阅读查询。且对管理人员不需要太多的专业培训。主要可以应用于中信银行个人购房借贷款合同的生成和打印。因此具有良好的操作可行性。在

17、各大商业银行行纷纷收紧贷贷款的大环境境下，如何成成功申请购房房贷款成为眼眼下很多购方方者必须重视视的问题。不不少以前能贷贷款的人，现现在不符合贷贷款条件了；不少以前能能获得优惠利利率的人，现现在只能按基基准利率甚至至上浮利率贷贷款。因此，在在看中房屋签签署相关购房房协议前，了了解贷款政策策、确认贷款款细节是购房房者必不可少少的一门功课课。如果采用用计算机管理理合同，不但但能对银行合合同的起草，修修改，审阅和和签订等一系系列工作进行行有效管理。并并可以为银行行管理者提供供科学的操作作工具，为用用户提供及时时、完整的决决策参考资料料，提升银行行的管理水平平和竞争能力力。 中信银行个人购房贷款合同打

18、印程序设计第2章 程序需需求分析2.1 程序需需求分析设计系统时应该该首先充分了了解用户各个个方面的需求求，包括现有有的以及将来来可能增加的的需求，本人人通过对洛阳阳、郑州等站站点进行详细细的实地考察察以及利用网网络等多种渠渠道，了解了了中信银行在在个人购房贷贷款方面的一一些现状以及及政府出台的的政策，对个个人借贷款方方面的调控，针针对中信银行行个人购房借借贷款合同的的各种要求，需需要对合同的的每一页都进进行明确的规规划，合同基基本信息录入入：第一页：要有借借款人的姓名名，身份证件件和号码，家家庭住址，联联系电话，邮邮政编码。由由于现在个人人购房贷款一一般都不是单单人的，所有有还要考虑有有共同

19、借款人人，也就需要要这位共同借借款人的各项项身份证明，联联系电话和住住址。借款为为了保证银行行的利益，还还要有个借款款的保证人，保保证人可以是是个人也可是是公司集体，需需要保证人的的身份证明和和联系方式。第二到第八页都都是个人申请请住房贷款程程序以及多方方在购房贷款款中应尽的义义务和享有的的权利。极少少情况有需要要变更的，是是成文重复的的规定，就不不需要在系统统中进行赘述述。第九页：借款合合同中最重要要的就是贷款款的金额。我我们不止要用用科学的计数数法，还要明明确规范金额额的大写。需需要注意贷款款当年的贷款款年利率，月月利率。根据据实际情况，利利率会有所波波动，也就要要明确贷款利利率调整的情情

20、况下，可能能采取的措施施，供用户进进行直观有效效的选择。总总共有四种方方法：（1）浮动利率率，本合同的的利率以同签签订日中国人人民银行公布布的同期同档档次贷款基准准利率为基础础；（2）阶段固定定利率，在某某一固定时期期，本合同贷贷款利率以中中国人民银行行公布的同期期同档次利率率为定价依据据，期间内利利率保持不变变；（3）固定利率率，借款合同同履行期间，本本合同贷款以以中国人民银银行公布的同同期同档次贷贷款基准利率率为定价依据据，期间保持持不变。第十页：标明合合同的贷款期期限，总共几几个月，从某某年某月某日日到某年某月月某日。要需需要保证人的的账户名称和和账户号以作作担保。第十一页：要明明确借款

21、人的的还款方式。共共有11种还还款方式。（1）到期一次次还本付息法法（2）按月等额额本息还款法法（3）按月等额额本金还款法法（4）按单周或或双周等额本本息还款法（5）按单周或或双周等额本本金还款法（6）等比递增增还款法（7）等比递减减还款法（8）等额递增增还款法（9）等额递减减还款法（10）宽限期期等额本息还还款法（11）宽限期期等额本金还还款法第十二页：要明明确借款人的的还款账户，逾逾期贷款的相相关举措，提提前还款的相相关规定和程程序途径以及及贷款所购买买并作为抵押押物的房屋也也要有明确的的标示。第十三页：确认认合同的公平平公正性。2.2 程序性性能要求1.安全性该系统的安全性性主要是防止止

22、他人非法进进入系统，从从而保证了数数据的安全性性，数据存储储的完整性和和数据的可靠靠性。设置三三种不同的身身份进行登录录，即特级管管理员、一般般管理员和普普通用户；系系统也设立了了数据备份和和恢复机制，从从一定程度上上可以降低数数据的损坏程程度。2.高效性使用此智能铁路路查询系统既既可以方便旅旅客及时获取取所需的信息息，又可以大大大减轻铁路路工作人员的的负担，与人人工服务相比比效率得到了了很大的提高高。 3.便捷性本系统的界面友友好,操作方方便，能够达达到所见即所所得的效果,方便用户的的使用。第3章 程序所所采用技术3.1开发工具具简介3.1.1 VVisuall Basiic 6.00开发工

23、具Visual Basicc6.0作为VVisuall Studdio 家族中的一一员，以其开开发速度快、使使用简单而被被广泛使用。Visual Basicc的主要功能能特点：(11)可视化编编程、（）面面向对象的程程序设计、（）结构化程程序设计语言言、（）事事件驱动编程程机制、（）访问数据据库Visual Basicc6.0是由由微软公司推推出的一套完完整的winndows系系统软件开发发工具，可用用股开发wiindowss环境下的各各类应用程序序，是一种可可视化、真正正面向对象、采采用事件驱动动方式的结构构化高级程序序设计语言和和工具的完美美集成。它编编程简单方便便、功能强大大，具有与其其

24、他语言及环环境的良好借借口，不需要要变成恶开发发人员具备语语言知识和特特别高深的专专业知识，只只要懂得Wiindowss的界面及基基本操作，就就可以迅速上上手，而VBB在程序界面面设计、多媒媒体开发方面面更是独具优优势。3.2 运用的的控件和主要要对象在程序设计过程程中主要用到到的控件有：Commaand控件；Lablee 控件；TTextBoox 控件；TabSttrip 控控件等。第4章 程序详详细设计4.1 开发及及运行环境系统开发平台：Visuaal Bassic 6.0运行平台：Wiindowss XP / Windoows 20000 / Windoows 200034.2 创建工

25、工程启动Visuaal Bassic 6.0后，在“新建工程”对话框中选选择“标准EXEE”文件，单击击“确定”按钮。此时时，工程资源源管理器窗口口中显示已创创建了一个工工程，默认名名字为“工程1”，并创建了了一个窗体，默默认名称为“Form11”。4.3界面设计计新建窗体后，利利用工具箱可可以在窗体上上依次添加控控件对象。选选择工具箱中中的标签，通通过双击或鼠鼠标拖动将其其对象拖放在在窗体的合适适位置；用同同样的方法创创建文本框和和命令按钮的的对象放置在在适当的位置置，如图所示示。第一页：图4-1 第一一页第九页：表4-2 第九九页3. 第十页：图4-3 第十十页4. 第十一页页：图4-4

26、第十十一页5. 第十二页页：图4-5 第十十二页6. 第十三页页：图4-6 第十十三页4.4 程序设设计应用程序进行到到现在仅仅只只做了一个空空壳，当程序序运行，我们们单击任何命命令按钮，并并没有事情发发生，这是因因为我们还没没有进行最重重要的一个步步骤代码编辑辑。根据程序需求，我我们要在代码码窗口中对每每个命令按钮钮的单击事件件编程。4.4.1 打打印功能设置置1.Commaand事件代代码如下：/*分别有Commmand1，CCommannd2，Coommandd3，Commmand44，Commmand5，CCommannd6六个CCommannd事件，功功能类似，主主要完成当前前页的录

27、入内内容是否合法法，页面设置置，字体段落的的确定，把打打印内容送交交打印机最后后把计算单位位改为默认值值。下面以CCommannd1为例的的事件代码。*/Privatee Sub Commaand1_CClick() Dimm k Ass Inteeger Dimm i Ass Inteeger Dimm PrinntStr As Sttring 清除除输入框多余余的空格 ClrrEmptyy = CllearEmmpty() PriintPagges = Val(TTrim(TText655.Textt) If PrinttPagess 0 Then Text665.Texxt = Text

28、665.SettFocuss Exit Sub Endd If 开始始循环打印 Forr k = 1 To PrinttPagess On Errorr GoToo erroor 先判判断输入内容容是否合法 Prinnter.SScaleMMode = vbCeentimeeters 设置计算算单位为厘米米 Prinnter.SScaleWWidth = 19 纸张宽度度 Prinnter.SScaleHHeightt = 277 纸张高度度 Prinnter.FFont.SSize = 12 打印字号 Prinnter.FFontBoold = True 字体不加加粗 Prinnter.FF

29、ont.NName = 宋体 打打印字体 其它类似似 Prinnter.CCurrenntX = 0 打印横坐标标为1厘米 Prinnter.CCurrenntY = 0 打印纵坐坐标为1厘米米 Prinnter.PPrint 初始化化 定位第第第一行的YY坐标 PriintSpaaceY (14) 1行行 Priinter.Font.Size = 10 PriintStrr = maakeSpaace(444) & TTrim(ttxtL1SS1.Texxt) Priinter.Printt PrinntStr 22行 Priinter.Font.Size = 14 PriintSpaace

30、Y (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(311) & TTrim(ttxtL2SS1.Texxt) Priinter.Printt PrinntStr 3行 Priinter.Font.Size = 15 PriintSpaaceY (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(177) & TTrim(ttxtL3SS1.Texxt) Priinter.Printt PrinntStr 4行 Priinter.Font.Size = 15 PriintSpaace

31、Y (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(222) & TTrim(ttxtL4SS1.Texxt) Priinter.Printt PrinntStr 5行 Priinter.Font.Size = 15 PriintSpaaceY (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(222) & TTrim(ttxtL5SS1.Texxt) Priinter.Printt PrinntStr 6行行 Priinter.Font.Size = 12 PriintSpaac

32、eY (2) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(244) & TTrim(ttxtL6SS1.Texxt) Priinter.Printt PrinntStr 77行 Priinter.Font.Size = 16 PriintSpaaceY (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(311) & TTrim(ttxtL7SS1.Texxt) Priinter.Printt PrinntStr 8行 Priinter.Font.Size = 16 PriintSpaa

33、ceY (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(177) & TTrim(ttxtL8SS1.Texxt) Priinter.Printt PrinntStr 9行 Priinter.Font.Size = 16 PriintSpaaceY (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(222) & TTrim(ttxtL9SS1.Texxt) Priinter.Printt PrinntStr 10行 Priinter.Font.Size = 16 PriintSpa

34、aceY (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(222) & TTrim(ttxtL100S1.Teext) Priinter.Printt PrinntStr 定位位16行坐标标 Prrinterr.Fontt.Sizee = 122 PriintSpaaceY (13) 16行行 Priinter.Font.Size = 18 PriintSpaaceY (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(355) & TTrim(ttxtL166S1.Teext) P

35、riinter.Printt PrinntStr 17行 Priinter.Font.Size = 16 PriintSpaaceY (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(233) & TTrim(ttxtL177S1.Teext) Priinter.Printt PrinntStr 188行 Priinter.Font.Size = 16 PriintSpaaceY (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(177) & TTrim(ttxtL188S1.Tee

36、xt) Priinter.Printt PrinntStr 19行行 Priinter.Font.Size = 16 PriintSpaaceY (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(222) & TTrim(ttxtL199S1.Teext) Priinter.Printt PrinntStr 20行行 Priinter.Font.Size = 16 PriintSpaaceY (0) Priinter.Font.Size = 10 PriintStrr = maakeSpaace(222) & TTrim(ttxtL200

37、S1.Teext) Priinter.Printt PrinntStr 将打印印内容送交打打印机 Prinnter.EEndDocc 将计算算单位改回默默认设置 Prinnter.SScaleMMode = vbTwwips Nexxt Commmand77.SetFFocuserror: errr.CleaarEnd SubbPrivatee Sub Commaand10_Clickk() Texxt43.TText = Texxt44.TText = Texxt45.TText = TText500.Textt = Texxt51.TText = Texxt52.TText = Texxt

38、53.TText = Texxt54.TText = Texxt55.TText = Teext43.SetFoocusEnd Subb4.4.2 页页面初始化 根据不不同页面的内内容不同，每每次程序启动动或打印结束束时，要清楚楚缓存数据，给给变量赋一个个起始的满足足实际需要的的值。1. 第九页初初始化：第九页Commbo初始化化 Cmbb21_2SS3.Texxt = (1) Cmbb21_2SS3.AdddItem (1) Cmbb21_2SS3.AdddItem (2) Cmbb21_2SS3.AdddItem (3) Cmbb21_2SS3.AdddItem (4)2. 第十页初初始化

39、：第十页Commbo初始化化 Cmbb21_2_1_aS44.Textt = 11个月 Cmbb21_2_1_aS44.AddIItem (1个月) Cmbb21_2_1_aS44.AddIItem (3个月) Cmbb21_2_1_aS44.AddIItem (6个月) Cmbb21_2_1_aS44.AddIItem (12个月月)3. 第十一页页初始化：第十一页Coombo初始始化 CommboL288S1.Teext = (1) CommboL288S1.AdddItemm (11) CommboL288S1.AdddItemm (22) CommboL288S1.AdddItemm

40、(33) CommboL288S1.AdddItemm (44) CommboL288S1.AdddItemm (55) CommboL288S1.AdddItemm (66) CommboL288S1.AdddItemm (77) CommboL288S1.AdddItemm (88) CommboL288S1.AdddItemm (99) CommboL288S1.AdddItemm (110) CommboL288S1.AdddItemm (111) SSTTab2.SSetFoccus Endd Sub4.4.3 代代码编辑1.第九页：Privatee Sub Text330_Keyy

41、Presss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt31.SeetFocuus Endd IfEnd SubbPrivatee Sub Text331_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt33.SeetFocuus Endd IfEnd SubbPrivatee Sub Text333_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt32.SeetFocuu

42、s Endd IfEnd SubbPrivatee Sub Text332_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Cmb221_2S33.SetFFocus Endd IfEnd SubbPrivatee Sub Cmb211_2S3_KeyPrress(KKeyAsccii Ass Inteeger) If KeyAsscii = 13 TThen Textt35.SeetFocuus Endd IfEnd SubbPrivatee Sub Text335_KeyyPresss(KeyAAscii As Innt

43、egerr) If KeyAsscii = 13 TThen Textt36.SeetFocuus Endd IfEnd SubbPrivatee Sub Text336_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt37.SeetFocuus Endd IfEnd SubbPrivatee Sub Text337_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt38.SeetFocuus Endd IfEnd SubbPrivate

44、e Sub Text338_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt39.SeetFocuus Endd IfEnd SubbPrivatee Sub Text339_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt40.SeetFocuus Endd IfEnd SubbPrivatee Sub Text440_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen

45、 Textt65.SeetFocuus Endd IfEnd Subb2.第十页Privatee Sub Text884_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt85.SeetFocuus Endd IfEnd SubbPrivatee Sub Text885_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt86.SeetFocuus Endd IfEnd SubbPrivatee Sub Text886_KeyyPresss(

46、KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Cmb221_2_11_aS4.SetFoocus Endd IfEnd SubbPrivatee Sub Cmb211_2_1_aS4_KKeyPreess(KeeyAsciii As Integger) If KeyAsscii = 13 TThen Textt87(0).SetFFocus Endd IfEnd SubbPrivatee Sub Text990_KeyyPresss(Indeex As Integger, KKeyAsccii Ass Inteeger) If KeyAssci

47、i = 13 TThen Textt91(0).SetFFocus Endd IfEnd SubbPrivatee Sub Text991_KeyyPresss(Indeex As Integger, KKeyAsccii Ass Inteeger) If KeyAsscii = 13 TThen Textt92(0).SetFFocus Endd IfEnd SubbPrivatee Sub Text992_KeyyPresss(Indeex As Integger, KKeyAsccii Ass Inteeger) If KeyAsscii = 13 TThen Textt93.SeetF

48、ocuus Endd IfEnd SubbPrivatee Sub Text993_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt34.SeetFocuus Endd IfEnd SubbPrivatee Sub Text334_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt41.SeetFocuus Endd IfEnd SubbPrivatee Sub Text441_KeyyPresss(KeyAAscii As Innteg

49、err) If KeyAsscii = 13 TThen Textt42.SeetFocuus Endd IfEnd SubbPrivatee Sub Text442_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Combbo2.SeetFocuus Endd IfEnd SubbPrivatee Sub Comboo2_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt94.SeetFocuus Endd IfEnd SubbPrivatee

50、Sub Text994_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt95.SeetFocuus Endd IfEnd SubbPrivatee Sub Text995_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt96.SeetFocuus Endd IfEnd SubbPrivatee Sub Text996_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen T

51、extt97.SeetFocuus Endd IfEnd SubbPrivatee Sub Text997_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt98.SeetFocuus Endd IfEnd SubbPrivatee Sub Text998_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt99.SeetFocuus Endd IfEnd SubbPrivatee Sub Text999_KeyyPresss(KeyAAsc

52、ii As Inntegerr) If KeyAsscii = 13 TThen Textt100.SSetFoccus Endd IfEnd SubbPrivatee Sub Text1100_KeeyPresss(KeyyAsciii As IIntegeer) If KeyAsscii = 13 TThen Textt101.SSetFoccus Endd IfEnd SubbPrivatee Sub Text1101_KeeyPresss(KeyyAsciii As IIntegeer) If KeyAsscii = 13 TThen Textt63.SeetFocuus Endd I

53、fEnd Subb3.第十一页Privatee Sub Text443_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt44.SeetFocuus Endd IfEnd SubbPrivatee Sub Text444_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt45.SeetFocuus Endd IfEnd SubbPrivatee Sub Text445_KeyyPresss(KeyAAscii As Inntegerr) I

54、f KeyAsscii = 13 TThen Combbo3.SeetFocuus Endd IfEnd SubbPrivatee Sub Comboo3_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt50.SeetFocuus Endd IfEnd SubbPrivatee Sub Text550_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt52.SeetFocuus Endd IfEnd SubbPrivatee Sub Te

55、xt552_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt54.SeetFocuus Endd IfEnd SubbPrivatee Sub Text554_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt51.SeetFocuus Endd IfEnd SubbPrivatee Sub Text551_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt53

56、.SeetFocuus Endd IfEnd SubbPrivatee Sub Text553_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt55.SeetFocuus Endd IfEnd SubbPrivatee Sub Text555_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt56.SeetFocuus Endd IfEnd SubbPrivatee Sub Text556_KeyyPresss(KeyAAscii As

57、Inntegerr) If KeyAsscii = 13 TThen Textt57.SeetFocuus Endd IfEnd SubbPrivatee Sub Text557_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt58.SeetFocuus Endd IfEnd SubbPrivatee Sub Text558_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt102.SSetFoccus Endd IfEnd SubbPr

58、ivatee Sub Text1102_KeeyPresss(KeyyAsciii As IIntegeer) If KeyAsscii = 13 TThen Textt59.SeetFocuus Endd IfEnd SubbPrivatee Sub Text559_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt60.SeetFocuus Endd IfEnd SubbPrivatee Sub Text660_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 1

59、3 TThen Textt103.SSetFoccus Endd IfEnd SubbPrivatee Sub Text1103_KeeyPresss(KeyyAsciii As IIntegeer) If KeyAsscii = 13 TThen Textt49.SeetFocuus Endd IfEnd SubbPrivatee Sub Text449_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Textt104.SSetFoccus Endd IfEnd SubbPrivatee Sub Text1104_Keey

60、Presss(KeyyAsciii As IIntegeer) If KeyAsscii = 13 TThen Textt105.SSetFoccus Endd IfEnd SubbPrivatee Sub Text1105_KeeyPresss(KeyyAsciii As IIntegeer) If KeyAsscii = 13 TThen Textt106.SSetFoccus Endd IfEnd SubbPrivatee Sub Text1106_KeeyPresss(KeyyAsciii As IIntegeer) If KeyAsscii = 13 TThen Textt107.S