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

中信银行个人购房贷款合同打印程序设计 I 摘要 在 21 世纪，随着计算机科学的发展，计算机在人们日常生活中的应用越来越广 泛，为广大用户提供了更加周到和人性化的服务。合同是商品经济的产物，是商品 交换的法律表现形式。而合同的打印也成了，交易是否成功的关键一环。 长期以来，由于在合同打印实行手工作业，存在各部门之间合同流转时间长而 且特别容易出错等问题。合同打印系统就是针对当前的合同打印业务特点所定制的 一套系统，该套系统本着进一步完善企业内部合同管理制度，规范合同管理机制的 目的，更加及时、准确、全面地反映合同信息，辅助企业管理决策，从而实现该企 业合同管理智能化，降低管理成本，提高内部管理水准，为企业决策层及时了解合 同管理业务层的工作情况提供第一手资料。 本系统是专注于合同管理的一环-合同打印。并以中信银行个人购房贷款为 背景的应用实例。 关键词：合同；打印；中信银行；购房贷款 洛阳师范学院 2009 届本科生毕业设计 II Abstract Abstract 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 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 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, 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 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; CITIC Bank; House purchase loans 中信银行个人购房贷款合同打印程序设计 III 目 录 第 1 章 绪论.1 1.1 程序开发背景 1 1.2 程序研究目的和意义 1 1.3 可行性分析 2 第 2 章 系统需求分析.3 2.1 程序需求分析 3 2.2 程序性能要求 4 第 3 章 程序所采用技术.5 3.1 开发工具简介 5 3.1.1 Visual Basic 6.0 开发工具5 3.2 运用的控件和主要对象 5 第 4 章 程序详细设计.6 4.1 开发及运行环境 6 4.2 创建工程 6 4.3 界面设计 6 4.4 程序设计 .11 4.4.1 打印功能设置 .13 4.4.2 页面初始化 .17 4.4.3 代码编辑 .18 4.5 功能实现 .33 第 5 章 软件测试和调试36 5.1 白盒测试法 .36 5.2 黑盒测试法 .37 第 6 章 工作总结和展望38 参考文献.39 致 谢.40 中信银行个人购房贷款合同打印程序设计 1 第 1 章 绪论 1.1 程序开发背景 在 21 世纪，随着计算机科学的发展，计算机在人们日常生活中的应用越来越广 泛，为广大用户提供了更加周到和人性化的服务。现代化的企业越来越重视科学技 术，只有把科学技术应用到企业中才能获取更大的效益。合同是商品经济的产物， 是商品交换的法律表现形式。现代企业的经济往来，主要是通过合同形式进行的。 所以，合同的确立以书面签字的形式体现，要确保合同有效，双方的签字必须是法 人或者委托代理人。而合同的打印也成了，交易是否成功的关键一环。 合同管理是企业经营管理中不可缺少的组成部分，无论是企业内部人员管理， 还是企业业务往来管理，都离不开合同。由于合同形式的多样性，履行过程的多变 性，同时合同执行周期长，信息量大，重复性高，许多企业对合同打印一直没有好 的办法。如果采用计算机管理合同，不但能对企业合同的起草、修改、审阅、签订 和查询等一系列工作明确化，简单化。并可以为企业管理者提供科学的操作工具， 为决策者提供及时、完整的决策参考资料，提升企业的管理水平和竞争能力。 本系统是专注于合同管理的一环-合同打印。并以中信银行个人购房贷款 为背景的应用实例。 1.2 程序研究目的和意义 合同，又称契约，它是当事人双方或数方设立、变更和中止相互权利和义务关 系的协议。合同制度在我国有着悠久的历史，合同作为一种企业之间横向联系的工 具，是现代生产和商品交换高度发展的结果。 合同管理即合同行为的监督管理，是规范、制约、完善合同行为的一种活动， 是国家法律赋予管理主体的一种职能，是企业在经济活动中保证企业利益的重 要环节。改革开放以来，我国的经济建设取得了长足的发展，然而长期以来，由于 在合同管理中实行手工作业，合同审批流程不明确，造成合同管理过程中业务处理 效率低，浪费了大量的人力、物力，各部门之间合同流转时间长而且特别容易出错 等问题。为了解决这一问题，需要开发一套功能完整的智能化的合同管理系统软件， 用于各行各业的大中小型企业的合同制定、评审、实施动态控制等方面的具体应用 需求，并以先进成熟的计算机网络和通信技术为手段，覆盖整个企业的各部门，实 现该企业合同管理智能化，提高办公效率及人员的利用率成为促进企业迅速发展的 一支很好的催化剂。 洛阳师范学院 2013 届本科生毕业设计 2 1.3 可行性分析 该系统采用 Visual Basic6.0 软件作为工具进行系统开发。Visual Basic6.0 工具 软件以其功能强大、使用灵活的数据窗口，其面向对象的开发能力等优势在数据库应用 程序开发领域占据了领先地位，这些特点为开发功能全面的应用程序创造了良好的条件。 因此利用它作为合同打印系统的工具是完全可行的。 传统的合同打印方法，存在诸多缺点，如：效率低，保密性差，时间一长就会 产生大量的文件和数据积压，这对于往后的合同管理带来了不少困难，也造成了劳 动力的浪费。使用计算机合同打印系统，可以促进企业工作效率和经营管理能力的 提高。 此中信银行个人借贷款合同打印系统，使用方便，简单易读，修改简便，非常 便于顾客阅读查询。且对管理人员不需要太多的专业培训。主要可以应用于中信银 行个人购房借贷款合同的生成和打印。因此具有良好的操作可行性。 在各大商业银行纷纷收紧贷款的大环境下，如何成功申请购房贷款成为眼下很 多购方者必须重视的问题。不少以前能贷款的人，现在不符合贷款条件了；不少以 前能获得优惠利率的人，现在只能按基准利率甚至上浮利率贷款。因此，在看中房 屋签署相关购房协议前，了解贷款政策、确认贷款细节是购房者必不可少的一门功 课。如果采用计算机管理合同，不但能对银行合同的起草，修改，审阅和签订等一 系列工作进行有效管理。并可以为银行管理者提供科学的操作工具，为用户提供及 时、完整的决策参考资料，提升银行的管理水平和竞争能力。 中信银行个人购房贷款合同打印程序设计 3 第 2 章 程序需求分析 2.1 程序需求分析 设计系统时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能增加 的需求，本人通过对洛阳、郑州等站点进行详细的实地考察以及利用网络等多种渠道， 了解了中信银行在个人购房贷款方面的一些现状以及政府出台的政策，对个人借贷款方 面的调控，针对中信银行个人购房借贷款合同的各种要求，需要对合同的每一页都进行 明确的规划，合同基本信息录入： 第一页：要有借款人的姓名，身份证件和号码，家庭住址，联系电话，邮政编码。 由于现在个人购房贷款一般都不是单人的，所有还要考虑有共同借款人，也就需要这位 共同借款人的各项身份证明，联系电话和住址。借款为了保证银行的利益，还要有个借 款的保证人，保证人可以是个人也可是公司集体，需要保证人的身份证明和联系方式。 第二到第八页都是个人申请住房贷款程序以及多方在购房贷款中应尽的义务和享有 的权利。极少情况有需要变更的，是成文重复的规定，就不需要在系统中进行赘述。 第九页：借款合同中最重要的就是贷款的金额。我们不止要用科学的计数法，还要 明确规范金额的大写。需要注意贷款当年的贷款年利率，月利率。根据实际情况，利率 会有所波动，也就要明确贷款利率调整的情况下，可能采取的措施，供用户进行直观有 效的选择。总共有四种方法： （1）浮动利率，本合同的利率以同签订日中国人民银行公布的同期同档次贷款基准 利率为基础； （2）阶段固定利率，在某一固定时期，本合同贷款利率以中国人民银行公布的同期 同档次利率为定价依据，期间内利率保持不变； （3）固定利率，借款合同履行期间，本合同贷款以中国人民银行公布的同期同档次 贷款基准利率为定价依据，期间保持不变。 第十页：标明合同的贷款期限，总共几个月，从某年某月某日到某年某月某日。要 需要保证人的账户名称和账户号以作担保。 第十一页：要明确借款人的还款方式。共有 11 种还款方式。 （1）到期一次还本付息法 （2）按月等额本息还款法 （3）按月等额本金还款法 （4）按单周或双周等额本息还款法 （5）按单周或双周等额本金还款法 （6）等比递增还款法 洛阳师范学院 2013 届本科生毕业设计 4 （7）等比递减还款法 （8）等额递增还款法 （9）等额递减还款法 （10）宽限期等额本息还款法 （11）宽限期等额本金还款法 第十二页：要明确借款人的还款账户，逾期贷款的相关举措，提前还款的相关 规定和程序途径以及贷款所购买并作为抵押物的房屋也要有明确的标示。 第十三页：确认合同的公平公正性。 2.2 程序性能要求 1.安全性 该系统的安全性主要是防止他人非法进入系统，从而保证了数据的安全性，数据存 储的完整性和数据的可靠性。设置三种不同的身份进行登录，即特级管理员、一般管理 员和普通用户；系统也设立了数据备份和恢复机制，从一定程度上可以降低数据的损坏 程度。 2.高效性 使用此智能铁路查询系统既可以方便旅客及时获取所需的信息，又可以大大减轻铁 路工作人员的负担，与人工服务相比效率得到了很大的提高。 3.便捷性 本系统的界面友好,操作方便，能够达到所见即所得的效果,方便用户的使用。 中信银行个人购房贷款合同打印程序设计 5 第 3 章 程序所采用技术 3.1 开发工具简介 3.1.1 Visual Basic 6.0 开发工具 Visual Basic6.0 作为 Visual Studio 家族中的一员，以其开发速度快、使用简单 而被广泛使用。 Visual Basic 的主要功能特点：(1)可视化编程、 （）面向对象的程序设计、 （）结构化程序设计语言、 （）事件驱动编程机制、 （）访问数据库 Visual Basic6.0 是由微软公司推出的一套完整的 windows 系统软件开发工具，可 用股开发 windows 环境下的各类应用程序，是一种可视化、真正面向对象、采用事件驱 动方式的结构化高级程序设计语言和工具的完美集成。它编程简单方便、功能强大，具 有与其他语言及环境的良好借口，不需要变成恶开发人员具备语言知识和特别高深的专 业知识，只要懂得 Windows 的界面及基本操作，就可以迅速上手，而 VB 在程序界面设计、 多媒体开发方面更是独具优势。 3.2 运用的控件和主要对象 在程序设计过程中主要用到的控件有：Command 控件；Lable 控件；TextBox 控件； TabStrip 控件等。 洛阳师范学院 2013 届本科生毕业设计 6 第 4 章 程序详细设计 4.1 开发及运行环境 系统开发平台：Visual Basic 6.0 运行平台：Windows XP / Windows 2000 / Windows 2003 4.2 创建工程 启动 Visual Basic 6.0 后，在“新建工程”对话框中选择“标准 EXE”文件，单击 “确定”按钮。此时，工程资源管理器窗口中显示已创建了一个工程，默认名字为“工 程 1” ，并创建了一个窗体，默认名称为“Form1” 。 4.3 界面设计 新建窗体后，利用工具箱可以在窗体上依次添加控件对象。选择工具箱中的标签， 通过双击或鼠标拖动将其对象拖放在窗体的合适位置；用同样的方法创建文本框和命令 按钮的对象放置在适当的位置，如图所示。 1. 第一页： 图图 4-14-1 第一页第一页 中信银行个人购房贷款合同打印程序设计 7 2. 第九页： 表表 4-24-2 第九页第九页 3. 第十页： 图图 4-34-3 第十页第十页 洛阳师范学院 2013 届本科生毕业设计 8 4. 第十一页： 图图 4-44-4 第十一页第十一页 中信银行个人购房贷款合同打印程序设计 9 5. 第十二页： 图图 4-54-5 第十二页第十二页 洛阳师范学院 2013 届本科生毕业设计 10 6. 第十三页： 图图 4-64-6 第十三页第十三页 Comment U1: 中信银行个人购房贷款合同打印程序设计 11 4.4 程序设计 应用程序进行到现在仅仅只做了一个空壳，当程序运行，我们单击任何命令按钮， 并没有事情发生，这是因为我们还没有进行最重要的一个步骤代码编辑。 根据程序需求，我们要在代码窗口中对每个命令按钮的单击事件编程。 4.4.1 打印功能设置 1.Command 事件代码如下： 洛阳师范学院 2013 届本科生毕业设计 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 = Val(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 = 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.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.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 = makeSpace(22) & Trim(txtL5S1.Text) Printer.Print PrintStr 6 行 洛阳师范学院 2013 届本科生毕业设计 14 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) Printer.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.Font.Size = 16 PrintSpaceY (0) Printer.Font.Size = 10 PrintStr = makeSpace(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 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.Size = 16 PrintSpaceY (0) Printer.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.ScaleMode = vbTwips Next Command7.SetFocus error: err.Clear End Sub Private Sub Command10_Click() Text43.Text = “ Text44.Text = “ Text45.Text = “ Text50.Text = “ Text51.Text = “ Text52.Text = “ Text53.Text = “ Text54.Text = “ Text55.Text = “ Text43.SetFocus End Sub 4.4.2 页面初始化 根据不同页面的内容不同，每次程序启动或打印结束时，要清楚缓存数据，给变量 赋一个起始的满足实际需要的值。 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_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 (“(10)“) ComboL28S1.AddItem (“(11)“) SSTab2.SetFocus End Sub 4.4.3 代码编辑 1.第九页： Private Sub Text30_KeyPress(KeyAscii As Integer) 洛阳师范学院 2013 届本科生毕业设计 18 If KeyAscii = 13 Then Text31.SetFocus End If End Sub Private Sub Text31_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text33.SetFocus End If End Sub Private Sub Text33_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text32.SetFocus End If End Sub Private Sub Text32_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Cmb21_2S3.SetFocus End If End Sub Private Sub Cmb21_2S3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text35.SetFocus End If End Sub Private Sub Text35_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text36.SetFocus End If End Sub 中信银行个人购房贷款合同打印程序设计 19 Private Sub Text36_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text37.SetFocus End If End Sub Private Sub Text37_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text38.SetFocus End If End Sub Private Sub Text38_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text39.SetFocus End If End Sub Private Sub Text39_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text40.SetFocus End If End Sub Private Sub Text40_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text65.SetFocus End If End Sub 2.第十页 Private Sub Text84_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text85.SetFocus End If 洛阳师范学院 2013 届本科生毕业设计 20 End Sub Private Sub Text85_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text86.SetFocus End If End Sub Private Sub Text86_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Cmb21_2_1_aS4.SetFocus End If End Sub Private Sub Cmb21_2_1_aS4_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text87(0).SetFocus End If End Sub Private Sub Text90_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then Text91(0).SetFocus End If End Sub Private Sub Text91_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then Text92(0).SetFocus End If End Sub Private Sub Text92_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then 中信银行个人购房贷款合同打印程序设计 21 Text93.SetFocus End If End Sub Private Sub Text93_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text34.SetFocus End If End Sub Private Sub Text34_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text41.SetFocus End If End Sub Private Sub Text41_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text42.SetFocus End If End Sub Private Sub Text42_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Combo2.SetFocus End If End Sub Private Sub Combo2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text94.SetFocus End If End Sub Private Sub Text94_KeyPress(KeyAscii As Integer) 洛阳师范学院 2013 届本科生毕业设计 22 If KeyAscii = 13 Then Text95.SetFocus End If End Sub Private Sub Text95_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text96.SetFocus End If End Sub Private Sub Text96_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text97.SetFocus End If End Sub Private Sub Text97_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text98.SetFocus End If End Sub Private Sub Text98_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text99.SetFocus End If End Sub Private Sub Text99_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text100.SetFocus End If End Sub 中信银行个人购房贷款合同打印程序设计 23 Private Sub Text100_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text101.SetFocus End If End Sub Private Sub Text101_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text63.SetFocus End If End Sub 3.第十一页 Private Sub Text43_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text44.SetFocus End If End Sub Private Sub Text44_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text45.SetFocus End If End Sub Private Sub Text45_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Combo3.SetFocus End If End Sub Private Sub Combo3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text50.SetFocus 洛阳师范学院 2013 届本科生毕业设计 24 End If End Sub Private Sub Text50_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text52.SetFocus End If End Sub Private Sub Text52_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text54.SetFocus End If End Sub Private Sub Text54_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text51.SetFocus End If End Sub Private Sub Text51_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text53.SetFocus End If End Sub Private Sub Text53_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text55.SetFocus End If End Sub Private Sub Text55_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 中信银行个人购房贷款合同打印程序设计 25 Text56.SetFocus End If End Sub Private Sub Text56_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text57.SetFocus End If End Sub Private Sub Text57_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text58.SetFocus End If End Sub Private Sub Text58_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text102.SetFocus End If End Sub Private Sub Text102_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text59.SetFocus End If End Sub Private Sub Text59_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text60.SetFocus End If End Sub Private Sub Text60_KeyPress(KeyAscii As Integer) 洛阳师范学院 2013 届本科生毕业设计 26 If KeyAscii = 13 Then Text103.SetFocus End If End Sub Private Sub Text103_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text49.SetFocus End If End Sub Private Sub Text49_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text104.SetFocus End If End Sub Private Sub Text104_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text105.SetFocus End If End Sub Private Sub Text105_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text106.SetFocus End If End Sub Private Sub Text106_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text107.SetFocus End If End Sub 中信银行个人购房贷款合同打印程序设计 27 Private Sub Text107_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text115.SetFocus End If End Sub Private Sub Text115_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text117.SetFocus End If End Sub Private Sub Text117_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text119.SetFocus End If End Sub Private Sub Text119_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text113.SetFocus End If End Sub Private Sub Text113_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text120.SetFocus End If End Sub Private Sub Text120_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text121.SetFocus End If End Sub 洛阳师范学院 2013 届本科生毕业设计 28 Private Sub Text121_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text122.SetFocus End If End Sub Private Sub Text122_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text123.SetFocus End If End Sub Private Sub Text123_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text66.SetFocus End If End Sub 4.第十二页 Private Sub Text133_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text134.SetFocus End If End Sub Private Sub Text134_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text14.SetFocus End If End Sub Private Sub Text14_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text15.SetFocus 中信银行个人购房贷款合同打印程序设计 29 End If End Sub Private Sub Text15_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text16.SetFocus End If End Sub Private Sub Text16_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text17.SetFocus End If End Sub Private Sub Text17_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text20.SetFocus End If End Sub Private Sub Text20_KeyPress(KeyAscii As Integer) If KeyAscii