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

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

2、时了解合同管理业务层的工作情况提供第一手资料。本系统是专注于合同管理的一环-合同打印。并以中信银行个人购房贷款为背景的应用实例。关键词：合同；打印；中信银行；购房贷款 洛阳师范学院 2009 届本科生毕业设计IIAbstractAbstract 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 indiv

3、idual services. The contract 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 depar

4、tments of contract transfer 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 contra

5、ct management, more timely, 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-maki

6、ng layer to understand the 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; CIT

7、IC Bank; House purchase loans中信银行个人购房贷款合同打印程序设计III目 录第 1 章 绪论.11.1 程序开发背景 .11.2 程序研究目的和意义 .11.3 可行性分析 .2第 2 章 系统需求分析.32.1 程序需求分析 .32.2 程序性能要求 .4第 3 章 程序所采用技术.53.1 开发工具简介 .53.1.1 Visual Basic 6.0 开发工具.53.2 运用的控件和主要对象 .5第 4 章 程序详细设计.64.1 开发及运行环境 .64.2 创建工程 .64.3 界面设计 .64.4 程序设计 .114.4.1 打印功能设置 .134.4.

8、2 页面初始化 .174.4.3 代码编辑 .184.5 功能实现 .33第 5 章 软件测试和调试.365.1 白盒测试法 .365.2 黑盒测试法 .37第 6 章 工作总结和展望.38参考文献.39致 谢.40中信银行个人购房贷款合同打印程序设计1第 1 章 绪论1.1 程序开发背景在 21 世纪，随着计算机科学的发展，计算机在人们日常生活中的应用越来越广泛，为广大用户提供了更加周到和人性化的服务。现代化的企业越来越重视科学技术，只有把科学技术应用到企业中才能获取更大的效益。合同是商品经济的产物，是商品交换的法律表现形式。现代企业的经济往来，主要是通过合同形式进行的。所以，合同的确立以书

9、面签字的形式体现，要确保合同有效，双方的签字必须是法人或者委托代理人。而合同的打印也成了，交易是否成功的关键一环。合同管理是企业经营管理中不可缺少的组成部分，无论是企业内部人员管理，还是企业业务往来管理，都离不开合同。由于合同形式的多样性，履行过程的多变性，同时合同执行周期长，信息量大，重复性高，许多企业对合同打印一直没有好的办法。如果采用计算机管理合同，不但能对企业合同的起草、修改、审阅、签订和查询等一系列工作明确化，简单化。并可以为企业管理者提供科学的操作工具，为决策者提供及时、完整的决策参考资料，提升企业的管理水平和竞争能力。本系统是专注于合同管理的一环-合同打印。并以中信银行个人购房贷

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

11、题，需要开发一套功能完整的智能化的合同管理系统软件，用于各行各业的大中小型企业的合同制定、评审、实施动态控制等方面的具体应用需求，并以先进成熟的计算机网络和通信技术为手段，覆盖整个企业的各部门，实现该企业合同管理智能化，提高办公效率及人员的利用率成为促进企业迅速发展的一支很好的催化剂。洛阳师范学院 2013 届本科生毕业设计21.3 可行性分析该系统采用 Visual Basic6.0 软件作为工具进行系统开发。Visual Basic6.0 工具软件以其功能强大、使用灵活的数据窗口，其面向对象的开发能力等优势在数据库应用程序开发领域占据了领先地位，这些特点为开发功能全面的应用程序创造了良好的

12、条件。因此利用它作为合同打印系统的工具是完全可行的。传统的合同打印方法，存在诸多缺点，如：效率低，保密性差，时间一长就会产生大量的文件和数据积压，这对于往后的合同管理带来了不少困难，也造成了劳动力的浪费。使用计算机合同打印系统，可以促进企业工作效率和经营管理能力的提高。此中信银行个人借贷款合同打印系统，使用方便，简单易读，修改简便，非常便于顾客阅读查询。且对管理人员不需要太多的专业培训。主要可以应用于中信银行个人购房借贷款合同的生成和打印。因此具有良好的操作可行性。在各大商业银行纷纷收紧贷款的大环境下，如何成功申请购房贷款成为眼下很多购方者必须重视的问题。不少以前能贷款的人，现在不符合贷款条件

13、了；不少以前能获得优惠利率的人，现在只能按基准利率甚至上浮利率贷款。因此，在看中房屋签署相关购房协议前，了解贷款政策、确认贷款细节是购房者必不可少的一门功课。如果采用计算机管理合同，不但能对银行合同的起草，修改，审阅和签订等一系列工作进行有效管理。并可以为银行管理者提供科学的操作工具，为用户提供及时、完整的决策参考资料，提升银行的管理水平和竞争能力。 中信银行个人购房贷款合同打印程序设计3第 2 章 程序需求分析2.1 程序需求分析设计系统时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求，本人通过对洛阳、郑州等站点进行详细的实地考察以及利用网络等多种渠道，了解了中信银行在

14、个人购房贷款方面的一些现状以及政府出台的政策，对个人借贷款方面的调控，针对中信银行个人购房借贷款合同的各种要求，需要对合同的每一页都进行明确的规划，合同基本信息录入：第一页：要有借款人的姓名，身份证件和号码，家庭住址，联系电话，邮政编码。由于现在个人购房贷款一般都不是单人的，所有还要考虑有共同借款人，也就需要这位共同借款人的各项身份证明，联系电话和住址。借款为了保证银行的利益，还要有个借款的保证人，保证人可以是个人也可是公司集体，需要保证人的身份证明和联系方式。第二到第八页都是个人申请住房贷款程序以及多方在购房贷款中应尽的义务和享有的权利。极少情况有需要变更的，是成文重复的规定，就不需要在系统

15、中进行赘述。第九页：借款合同中最重要的就是贷款的金额。我们不止要用科学的计数法，还要明确规范金额的大写。需要注意贷款当年的贷款年利率，月利率。根据实际情况，利率会有所波动，也就要明确贷款利率调整的情况下，可能采取的措施，供用户进行直观有效的选择。总共有四种方法：（1）浮动利率，本合同的利率以同签订日中国人民银行公布的同期同档次贷款基准利率为基础；（2）阶段固定利率，在某一固定时期，本合同贷款利率以中国人民银行公布的同期同档次利率为定价依据，期间内利率保持不变；（3）固定利率，借款合同履行期间，本合同贷款以中国人民银行公布的同期同档次贷款基准利率为定价依据，期间保持不变。第十页：标明合同的贷款期

16、限，总共几个月，从某年某月某日到某年某月某日。要需要保证人的账户名称和账户号以作担保。第十一页：要明确借款人的还款方式。共有 11 种还款方式。（1）到期一次还本付息法（2）按月等额本息还款法（3）按月等额本金还款法（4）按单周或双周等额本息还款法（5）按单周或双周等额本金还款法（6）等比递增还款法洛阳师范学院 2013 届本科生毕业设计4（7）等比递减还款法（8）等额递增还款法（9）等额递减还款法（10）宽限期等额本息还款法（11）宽限期等额本金还款法第十二页：要明确借款人的还款账户，逾期贷款的相关举措，提前还款的相关规定和程序途径以及贷款所购买并作为抵押物的房屋也要有明确的标示。第十三页：

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

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

19、要变成恶开发人员具备语言知识和特别高深的专业知识，只要懂得 Windows 的界面及基本操作，就可以迅速上手，而 VB 在程序界面设计、多媒体开发方面更是独具优势。3.2 运用的控件和主要对象在程序设计过程中主要用到的控件有：Command 控件；Lable 控件；TextBox 控件；TabStrip 控件等。洛阳师范学院 2013 届本科生毕业设计6第 4 章 程序详细设计4.1 开发及运行环境系统开发平台：Visual Basic 6.0运行平台：Windows XP / Windows 2000 / Windows 20034.2 创建工程启动 Visual Basic 6.0 后，在

20、“新建工程”对话框中选择“标准 EXE”文件，单击“确定”按钮。此时，工程资源管理器窗口中显示已创建了一个工程，默认名字为“工程 1” ，并创建了一个窗体，默认名称为“Form1” 。4.3 界面设计新建窗体后，利用工具箱可以在窗体上依次添加控件对象。选择工具箱中的标签，通过双击或鼠标拖动将其对象拖放在窗体的合适位置；用同样的方法创建文本框和命令按钮的对象放置在适当的位置，如图所示。1. 第一页：图图 4-14-1 第一页第一页中信银行个人购房贷款合同打印程序设计72. 第九页：表表 4-24-2 第九页第九页3. 第十页：图图 4-34-3 第十页第十页洛阳师范学院 2013 届本科生毕业设

21、计84. 第十一页：图图 4-44-4 第十一页第十一页中信银行个人购房贷款合同打印程序设计95. 第十二页：图图 4-54-5 第十二页第十二页洛阳师范学院 2013 届本科生毕业设计106. 第十三页：图图 4-64-6 第十三页第十三页Comment U1: 中信银行个人购房贷款合同打印程序设计114.4 程序设计应用程序进行到现在仅仅只做了一个空壳，当程序运行，我们单击任何命令按钮，并没有事情发生，这是因为我们还没有进行最重要的一个步骤代码编辑。根据程序需求，我们要在代码窗口中对每个命令按钮的单击事件编程。4.4.1 打印功能设置1.Command 事件代码如下：洛阳师范学院 2013

22、 届本科生毕业设计12/*分别有 Command1，Command2，Command3，Command4，Command5，Command6 六个 Command事件，功能类似，主要完成当前页的录入内容是否合法，页面设置，字体段落的确定，把打印内容送交打印机最后把计算单位改为默认值。下面以 Command1 为例的事件代码。*/Private Sub Command1_Click() Dim k As Integer Dim i As Integer Dim PrintStr As String 清除输入框多余的空格 ClrEmpty = ClearEmpty() PrintPages = V

23、al(Trim(Text65.Text) If PrintPages 0 Then Text65.Text = Text65.SetFocus Exit Sub End If 开始循环打印 For k = 1 To PrintPages On Error GoTo error 先判断输入内容是否合法 Printer.ScaleMode = vbCentimeters 设置计算单位为厘米 Printer.ScaleWidth = 19 纸张宽度 Printer.ScaleHeight = 27 纸张高度 Printer.Font.Size = 12 打印字号 Printer.FontBold =

24、 True 字体不加粗 Printer.Font.Name = 宋体 打印字体 .其它类似. Printer.CurrentX = 0 打印横坐标为 1 厘米 Printer.CurrentY = 0 打印纵坐标为 1 厘米 Printer.Print 初始化 定位第第一行的 Y 坐标 PrintSpaceY (14)中信银行个人购房贷款合同打印程序设计13 1 行 Printer.Font.Size = 10 PrintStr = makeSpace(44) & Trim(txtL1S1.Text) Printer.Print PrintStr 2 行 Printer.Font.Si

25、ze = 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.Print PrintStr 4 行 Printer.Font.Size = 15 PrintSpaceY (0

26、) 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 行洛阳师范学院 2013 届本科生毕业设计14 Printer.Font.Size = 12 PrintSpaceY (2

27、) 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.Font.Size =

28、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 = makeSpa

29、ce(22) & Trim(txtL10S1.Text) Printer.Print PrintStr 中信银行个人购房贷款合同打印程序设计15 定位 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 Prin

30、tSpaceY (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.Size = 16 PrintSpaceY (0) Printe

31、r.Font.Size = 10 PrintStr = makeSpace(22) & Trim(txtL19S1.Text) Printer.Print PrintStr 20 行 Printer.Font.Size = 16洛阳师范学院 2013 届本科生毕业设计16 PrintSpaceY (0) Printer.Font.Size = 10 PrintStr = makeSpace(22) & Trim(txtL20S1.Text) Printer.Print PrintStr 将打印内容送交打印机 Printer.EndDoc 将计算单位改回默认设置 Printer.

32、ScaleMode = 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 页面初始化 根据不同页面的内容不同，每次程序启动或打印结束时，要清楚缓存数据，给变量赋一个起始的满足实

33、际需要的值。1. 第九页初始化：中信银行个人购房贷款合同打印程序设计17第九页 Combo 初始化 Cmb21_2S3.Text = (1) Cmb21_2S3.AddItem (1) Cmb21_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

34、_2_1_aS4.AddItem (12 个月)3. 第十一页初始化：第十一页 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 (1

35、0) ComboL28S1.AddItem (11) SSTab2.SetFocus End Sub4.4.3 代码编辑1.第九页：Private Sub Text30_KeyPress(KeyAscii As Integer)洛阳师范学院 2013 届本科生毕业设计18 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

36、Text33_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 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 SubPrivat

37、e Sub Text35_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text36.SetFocus End IfEnd Sub中信银行个人购房贷款合同打印程序设计19Private 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

38、 End IfEnd SubPrivate Sub Text38_KeyPress(KeyAscii As Integer) If KeyAscii = 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

39、 End IfEnd Sub2.第十页Private Sub Text84_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text85.SetFocus End If洛阳师范学院 2013 届本科生毕业设计20End SubPrivate Sub Text85_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text86.SetFocus End IfEnd SubPrivate Sub Text86_KeyPress(KeyAscii As Integer) If KeyAsci

40、i = 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 Sub Text90_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then Text91(0).SetFocus End IfEnd SubPrivate Sub Text91_Ke

41、yPress(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) If KeyAscii = 13 Then中信银行个人购房贷款合同打印程序设计21 Text93.SetFocus End IfEnd SubPrivate Sub Text93_KeyPress(KeyAscii As Integer) If KeyAscii =

42、 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) If KeyAscii = 13 Then Text42.SetFocus End IfEnd SubPrivate Sub Text42_KeyPress(KeyAscii As Integer) If KeyAscii =

43、 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)洛阳师范学院 2013 届本科生毕业设计22 If KeyAscii = 13 Then Text95.SetFocus End IfEnd SubPrivate Sub Text95_KeyPress(KeyAscii As

44、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) If KeyAscii = 13 Then Text98.SetFocus End IfEnd SubPrivate Sub Text98_KeyPress(KeyAscii As

45、Integer) If KeyAscii = 13 Then Text99.SetFocus End IfEnd SubPrivate Sub Text99_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text100.SetFocus End IfEnd Sub中信银行个人购房贷款合同打印程序设计23Private Sub Text100_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text101.SetFocus End IfEnd SubPrivate Sub Text1

46、01_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 Integer) If KeyAscii = 13 Then Text45.SetFocus End IfEnd SubPrivate Su

47、b 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洛阳师范学院 2013 届本科生毕业设计24 End IfEnd SubPrivate Sub Text50_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text52.SetFocus E

48、nd 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 Integer) If KeyAscii = 13 Then Text53.SetFocus E

49、nd 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中信银行个人购房贷款合同打印程序设计25 Text56.SetFocus End IfEnd SubPrivate Sub Text56_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Th

50、en 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 As Integer) If KeyAscii = 13

51、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)洛阳师范学院 2013 届本科生毕业设计26 If KeyAscii = 13 Then Text103.SetFocus End IfEnd SubPrivate Sub Text103_KeyPress(KeyAscii As In

52、teger) 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(KeyAscii A

53、s Integer) If KeyAscii = 13 Then Text106.SetFocus End IfEnd SubPrivate Sub Text106_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text107.SetFocus End IfEnd Sub中信银行个人购房贷款合同打印程序设计27Private Sub Text107_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text115.SetFocus End IfEnd SubPrivate Sub T

54、ext115_KeyPress(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

55、 Sub Text113_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 Sub洛阳师范学院 2013 届本科生毕业设计28Private Sub Text121_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text122.S

56、etFocus End IfEnd SubPrivate Sub Text122_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 The

57、n Text134.SetFocus End IfEnd SubPrivate 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中信银行个人购房贷款合同打印程序设计29 End IfEnd SubPrivate Sub Text15_KeyPress(KeyAscii As Integer

58、) If KeyAscii = 13 Then Text16.SetFocus End IfEnd SubPrivate 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

59、) If KeyAscii = 13 Then Text21.SetFocus End IfEnd SubPrivate 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洛阳师范学院 2013 届本科生毕业设计30 Text125.SetFocus End IfEnd SubPrivate Sub Text125_Ke

60、yPress(KeyAscii As Integer) If KeyAscii = 13 Then Text126.SetFocus End IfEnd 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 Te