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

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

AbstractAbstractatthe21thCentury,Withthedevelopmentofcomputerscience,Computerscienceiswidelyusedinthepeoplelifeandwork.Thismakesuserscanenjoymoreconvenientandindividualservices.Thecontractistheproductofthecommodityeconomy,isthelegalformofcommodityexchange.Thecontractprintalsobecameakeyring,Whilethetransactionissuccessful.Long-termsince,asaresultofthemanualoperationinthecontracttoprint,existbetweenthevariousdepartmentsofcontracttransfertimeanderrorproneproblems.Asystemofcontractprintingsystemisaimedatthecharacteristicsofthepresentcontractprintbusinesscustom,thesysteminthefurtherperfecttheinternalenterprisemanagementsystem,standardizedmechanismforthepurposeofcontractmanagement,moretimely,accurate,comprehensivereflectionofcontractinformation,auxiliaryenterprisemanagementdecision,inordertoachievetheenterprisecontractmanagementintelligent,reducethecostofmanagement,improvetheinternalmanagementlevel,fortheenterprisedecision-makinglayertounderstandtheworkofcontractmanagementbusinesslayertoprovidefirst-handinformation.Thesystemisfocusedonthecontractmanagementofaring,thecontractprint.AndtotheindividualhousepurchaseloansCITICBankfortheapplicationbackground.Keywords:Contract;Print;CITICBank;Housepurchaseloans

目录第1章绪论 11.1程序开发背景 11.2程序研究目的和意义 11.3可行性分析 2第2章系统需求分析 32.1程序需求分析 32.2程序性能要求 4第3章程序所采用技术 53.1开发工具简介 53.1.1VisualBasic6.0开发工具 53.2运用的控件和主要对象 5第4章程序详细设计 64.1开发及运行环境 64.2创建工程 64.3界面设计 64.4程序设计 114.4.1打印功能设置 134.4.2页面初始化 174.4.3代码编辑 184.5功能实现 33第5章软件测试和调试 365.1白盒测试法 365.2黑盒测试法 37第6章工作总结和展望 38参考文献 39致谢 40

第1章绪论1.1程序开发背景在21世纪，随着计算机科学的发展，计算机在人们日常生活中的应用越来越广泛，为广大用户提供了更加周到和人性化的服务。现代化的企业越来越重视科学技术，只有把科学技术应用到企业中才能获取更大的效益。合同是商品经济的产物，是商品交换的法律表现形式。现代企业的经济往来，主要是通过合同形式进行的。所以，合同的确立以书面签字的形式体现，要确保合同有效，双方的签字必须是法人或者委托代理人。而合同的打印也成了，交易是否成功的关键一环。合同管理是企业经营管理中不可缺少的组成部分，无论是企业内部人员管理，还是企业业务往来管理，都离不开合同。由于合同形式的多样性，履行过程的多变性，同时合同执行周期长，信息量大，重复性高，许多企业对合同打印一直没有好的办法。如果采用计算机管理合同，不但能对企业合同的起草、修改、审阅、签订和查询等一系列工作明确化，简单化。并可以为企业管理者提供科学的操作工具，为决策者提供及时、完整的决策参考资料，提升企业的管理水平和竞争能力。本系统是专注于合同管理的一环合同打印。并以中信银行个人购房贷款为背景的应用实例。1.2程序研究目的和意义合同，又称契约，它是当事人双方或数方设立、变更和中止相互权利和义务关系的协议。合同制度在我国有着悠久的历史，合同作为一种企业之间横向联系的工具，是现代生产和商品交换高度发展的结果。合同管理即合同行为的监督管理，是规范、制约、完善合同行为的一种活动，是国家法律赋予管理主体的一种职能，是企业在经济活动中保证企业利益的重要环节。改革开放以来，我国的经济建设取得了长足的发展，然而长期以来，由于在合同管理中实行手工作业，合同审批流程不明确，造成合同管理过程中业务处理效率低，浪费了大量的人力、物力，各部门之间合同流转时间长而且特别容易出错等问题。为了解决这一问题，需要开发一套功能完整的智能化的合同管理系统软件，用于各行各业的大中小型企业的合同制定、评审、实施动态控制等方面的具体应用需求，并以先进成熟的计算机网络和通信技术为手段，覆盖整个企业的各部门，实现该企业合同管理智能化，提高办公效率及人员的利用率成为促进企业迅速发展的一支很好的催化剂。1.3可行性分析该系统采用VisualBasic6.0软件作为工具进行系统开发。VisualBasic6.0工具软件以其功能强大、使用灵活的数据窗口，其面向对象的开发能力等优势在数据库应用程序开发领域占据了领先地位，这些特点为开发功能全面的应用程序创造了良好的条件。因此利用它作为合同打印系统的工具是完全可行的。传统的合同打印方法，存在诸多缺点，如：效率低，保密性差，时间一长就会产生大量的文件和数据积压，这对于往后的合同管理带来了不少困难，也造成了劳动力的浪费。使用计算机合同打印系统，可以促进企业工作效率和经营管理能力的提高。此中信银行个人借贷款合同打印系统，使用方便，简单易读，修改简便，非常便于顾客阅读查询。且对管理人员不需要太多的专业培训。主要可以应用于中信银行个人购房借贷款合同的生成和打印。因此具有良好的操作可行性。在各大商业银行纷纷收紧贷款的大环境下，如何成功申请购房贷款成为眼下很多购方者必须重视的问题。不少以前能贷款的人，现在不符合贷款条件了；不少以前能获得优惠利率的人，现在只能按基准利率甚至上浮利率贷款。因此，在看中房屋签署相关购房协议前，了解贷款政策、确认贷款细节是购房者必不可少的一门功课。如果采用计算机管理合同，不但能对银行合同的起草，修改，审阅和签订等一系列工作进行有效管理。并可以为银行管理者提供科学的操作工具，为用户提供及时、完整的决策参考资料，提升银行的管理水平和竞争能力。第2章程序需求分析2.1程序需求分析设计系统时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求，本人通过对洛阳、郑州等站点进行详细的实地考察以及利用网络等多种渠道，了解了中信银行在个人购房贷款方面的一些现状以及政府出台的政策，对个人借贷款方面的调控，针对中信银行个人购房借贷款合同的各种要求，需要对合同的每一页都进行明确的规划，合同基本信息录入：第一页：要有借款人的姓名，身份证件和号码，家庭住址，联系电话，邮政编码。由于现在个人购房贷款一般都不是单人的，所有还要考虑有共同借款人，也就需要这位共同借款人的各项身份证明，联系电话和住址。借款为了保证银行的利益，还要有个借款的保证人，保证人可以是个人也可是公司集体，需要保证人的身份证明和联系方式。第二到第八页都是个人申请住房贷款程序以及多方在购房贷款中应尽的义务和享有的权利。极少情况有需要变更的，是成文重复的规定，就不需要在系统中进行赘述。第九页：借款合同中最重要的就是贷款的金额。我们不止要用科学的计数法，还要明确规范金额的大写。需要注意贷款当年的贷款年利率，月利率。根据实际情况，利率会有所波动，也就要明确贷款利率调整的情况下，可能采取的措施，供用户进行直观有效的选择。总共有四种方法：（1）浮动利率，本合同的利率以同签订日中国人民银行公布的同期同档次贷款基准利率为基础；（2）阶段固定利率，在某一固定时期，本合同贷款利率以中国人民银行公布的同期同档次利率为定价依据，期间内利率保持不变；（3）固定利率，借款合同履行期间，本合同贷款以中国人民银行公布的同期同档次贷款基准利率为定价依据，期间保持不变。第十页：标明合同的贷款期限，总共几个月，从某年某月某日到某年某月某日。要需要保证人的账户名称和账户号以作担保。第十一页：要明确借款人的还款方式。共有11种还款方式。（1）到期一次还本付息法（2）按月等额本息还款法（3）按月等额本金还款法（4）按单周或双周等额本息还款法（5）按单周或双周等额本金还款法（6）等比递增还款法（7）等比递减还款法（8）等额递增还款法（9）等额递减还款法（10）宽限期等额本息还款法（11）宽限期等额本金还款法第十二页：要明确借款人的还款账户，逾期贷款的相关举措，提前还款的相关规定和程序途径以及贷款所购买并作为抵押物的房屋也要有明确的标示。第十三页：确认合同的公平公正性。2.2程序性能要求1.安全性该系统的安全性主要是防止他人非法进入系统，从而保证了数据的安全性，数据存储的完整性和数据的可靠性。设置三种不同的身份进行登录，即特级管理员、一般管理员和普通用户；系统也设立了数据备份和恢复机制，从一定程度上可以降低数据的损坏程度。2.高效性使用此智能铁路查询系统既可以方便旅客及时获取所需的信息，又可以大大减轻铁路工作人员的负担，与人工服务相比效率得到了很大的提高。3.便捷性本系统的界面友好,操作方便，能够达到所见即所得的效果,方便用户的使用。第3章程序所采用技术3.1开发工具简介3.1.1VisualBasic6.0开发工具VisualBasic6.0作为VisualStudio家族中的一员，以其开发速度快、使用简单而被广泛使用。VisualBasic的主要功能特点：(1)可视化编程、（２）面向对象的程序设计、（３）结构化程序设计语言、（４）事件驱动编程机制、（５）访问数据库VisualBasic6.0是由微软公司推出的一套完整的windows系统软件开发工具，可用股开发windows环境下的各类应用程序，是一种可视化、真正面向对象、采用事件驱动方式的结构化高级程序设计语言和工具的完美集成。它编程简单方便、功能强大，具有与其他语言及环境的良好借口，不需要变成恶开发人员具备语言知识和特别高深的专业知识，只要懂得Windows的界面及基本操作，就可以迅速上手，而VB在程序界面设计、多媒体开发方面更是独具优势。3.2运用的控件和主要对象在程序设计过程中主要用到的控件有：Command控件；Lable控件；TextBox控件；TabStrip控件等。第4章程序详细设计4.1开发及运行环境系统开发平台：VisualBasic6.0运行平台：WindowsXP/Windows2000/Windows20034.2创建工程启动VisualBasic6.0后，在“新建工程”对话框中选择“标准EXE”文件，单击“确定”按钮。此时，工程资源管理器窗口中显示已创建了一个工程，默认名字为“工程1”，并创建了一个窗体，默认名称为“Form1”。4.3界面设计新建窗体后，利用工具箱可以在窗体上依次添加控件对象。选择工具箱中的标签，通过双击或鼠标拖动将其对象拖放在窗体的合适位置；用同样的方法创建文本框和命令按钮的对象放置在适当的位置，如图所示。第一页：图4-1第一页第九页：表4-2第九页3.第十页：图4-3第十页4.第十一页：图4-4第十一页5.第十二页：图4-5第十二页6.第十三页：图4-6第十三页4.4程序设计应用程序进行到现在仅仅只做了一个空壳，当程序运行，我们单击任何命令按钮，并没有事情发生，这是因为我们还没有进行最重要的一个步骤——代码编辑。根据程序需求，我们要在代码窗口中对每个命令按钮的单击事件编程。4.4.1打印功能设置1mand事件代码如下：/*…………………分别有Command1，Command2，Command3，Command4，Command5，Command6六个Command事件，功能类似，主要完成当前页的录入内容是否合法，页面设置，字体段落的确定，把打印内容送交打印机最后把计算单位改为默认值。下面以Command1为例的事件代码。…………………*/PrivateSubCommand1_Click()DimkAsIntegerDimiAsIntegerDimPrintStrAsString'清除输入框多余的空格ClrEmpty=ClearEmpty()PrintPages=Val(Trim(Text65.Text))IfPrintPages<0ThenText65.Text=""Text65.SetFocusExitSubEndIf'开始循环打印Fork=1ToPrintPagesOnErrorGoToerror'先判断输入内容是否合法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)'1行Printer.Font.Size=10PrintStr=makeSpace(44)&Trim(txtL1S1.Text)Printer.PrintPrintStr'2行Printer.Font.Size=14PrintSpaceY(0)Printer.Font.Size=10PrintStr=makeSpace(31)&Trim(txtL2S1.Text)Printer.PrintPrintStr'3行Printer.Font.Size=15PrintSpaceY(0)Printer.Font.Size=10PrintStr=makeSpace(17)&Trim(txtL3S1.Text)Printer.PrintPrintStr'4行Printer.Font.Size=15PrintSpaceY(0)Printer.Font.Size=10PrintStr=makeSpace(22)&Trim(txtL4S1.Text)Printer.PrintPrintStr'5行Printer.Font.Size=15PrintSpaceY(0)Printer.Font.Size=10PrintStr=makeSpace(22)&Trim(txtL5S1.Text)Printer.PrintPrintStr'6行Printer.Font.Size=12PrintSpaceY(2)Printer.Font.Size=10PrintStr=makeSpace(24)&Trim(txtL6S1.Text)Printer.PrintPrintStr'7行Printer.Font.Size=16PrintSpaceY(0)Printer.Font.Size=10PrintStr=makeSpace(31)&Trim(txtL7S1.Text)Printer.PrintPrintStr'8行Printer.Font.Size=16PrintSpaceY(0)Printer.Font.Size=10PrintStr=makeSpace(17)&Trim(txtL8S1.Text)Printer.PrintPrintStr'9行Printer.Font.Size=16PrintSpaceY(0)Printer.Font.Size=10PrintStr=makeSpace(22)&Trim(txtL9S1.Text)Printer.PrintPrintStr'10行Printer.Font.Size=16PrintSpaceY(0)Printer.Font.Size=10PrintStr=makeSpace(22)&Trim(txtL10S1.Text)Printer.PrintPrintStr'定位16行坐标Printer.Font.Size=12PrintSpaceY(13)'16行Printer.Font.Size=18PrintSpaceY(0)Printer.Font.Size=10PrintStr=makeSpace(35)&Trim(txtL16S1.Text)Printer.PrintPrintStr'17行Printer.Font.Size=16PrintSpaceY(0)Printer.Font.Size=10PrintStr=makeSpace(23)&Trim(txtL17S1.Text)Printer.PrintPrintStr'18行Printer.Font.Size=16PrintSpaceY(0)Printer.Font.Size=10PrintStr=makeSpace(17)&Trim(txtL18S1.Text)Printer.PrintPrintStr'19行Printer.Font.Size=16PrintSpaceY(0)Printer.Font.Size=10PrintStr=makeSpace(22)&Trim(txtL19S1.Text)Printer.PrintPrintStr'20行Printer.Font.Size=16PrintSpaceY(0)Printer.Font.Size=10PrintStr=makeSpace(22)&Trim(txtL20S1.Text)Printer.PrintPrintStr'将打印内容送交打印机Printer.EndDoc'将计算单位改回默认设置Printer.ScaleMode=vbTwipsNextCommand7.SetFocuserror:err.ClearEndSubPrivateSubCommand10_Click()Text43.Text=""Text44.Text=""Text45.Text=""Text50.Text=""Text51.Text=""Text52.Text=""Text53.Text=""Text54.Text=""Text55.Text=""Text43.SetFocusEndSub4.4.2页面初始化根据不同页面的内容不同，每次程序启动或打印结束时，要清楚缓存数据，给变量赋一个起始的满足实际需要的值。1.第九页初始化：'第九页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.SetFocusEndSub4.4.31.第九页：PrivateSubText30_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText31.SetFocusEndIfEndSubPrivateSubText31_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText33.SetFocusEndIfEndSubPrivateSubText33_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText32.SetFocusEndIfEndSubPrivateSubText32_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCmb21_2S3.SetFocusEndIfEndSubPrivateSubCmb21_2S3_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText35.SetFocusEndIfEndSubPrivateSubText35_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText36.SetFocusEndIfEndSubPrivateSubText36_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText37.SetFocusEndIfEndSubPrivateSubText37_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText38.SetFocusEndIfEndSubPrivateSubText38_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText39.SetFocusEndIfEndSubPrivateSubText39_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText40.SetFocusEndIfEndSubPrivateSubText40_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText65.SetFocusEndIfEndSub2.第十页PrivateSubText84_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText85.SetFocusEndIfEndSubPrivateSubText85_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText86.SetFocusEndIfEndSubPrivateSubText86_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCmb21_2_1_aS4.SetFocusEndIfEndSubPrivateSubCmb21_2_1_aS4_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText87(0).SetFocusEndIfEndSubPrivateSubText90_KeyPress(IndexAsInteger,KeyAsciiAsInteger)IfKeyAscii=13ThenText91(0).SetFocusEndIfEndSubPrivateSubText91_KeyPress(IndexAsInteger,KeyAsciiAsInteger)IfKeyAscii=13ThenText92(0).SetFocusEndIfEndSubPrivateSubText92_KeyPress(IndexAsInteger,KeyAsciiAsInteger)IfKeyAscii=13ThenText93.SetFocusEndIfEndSubPrivateSubText93_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText34.SetFocusEndIfEndSubPrivateSubText34_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText41.SetFocusEndIfEndSubPrivateSubText41_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText42.SetFocusEndIfEndSubPrivateSubText42_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCombo2.SetFocusEndIfEndSubPrivateSubCombo2_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText94.SetFocusEndIfEndSubPrivateSubText94_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText95.SetFocusEndIfEndSubPrivateSubText95_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText96.SetFocusEndIfEndSubPrivateSubText96_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText97.SetFocusEndIfEndSubPrivateSubText97_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText98.SetFocusEndIfEndSubPrivateSubText98_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText99.SetFocusEndIfEndSubPrivateSubText99_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText100.SetFocusEndIfEndSubPrivateSubText100_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText101.SetFocusEndIfEndSubPrivateSubText101_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText63.SetFocusEndIfEndSub3.第十一页PrivateSubText43_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText44.SetFocusEndIfEndSubPrivateSubText44_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText45.SetFocusEndIfEndSubPrivateSubText45_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCombo3.SetFocusEndIfEndSubPrivateSubCombo3_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText50.SetFocusEndIfEndSubPrivateSubText50_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText52.SetFocusEndIfEndSubPrivateSubText52_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText54.SetFocusEndIfEndSubPrivateSubText54_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText51.SetFocusEndIfEndSubPrivateSubText51_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText53.SetFocusEndIfEndSubPrivateSubText53_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText55.SetFocusEndIfEndSubPrivateSubText55_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText56.SetFocusEndIfEndSubPrivateSubText56_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText57.SetFocusEndIfEndSubPrivateSubText57_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText58.SetFocusEndIfEndSubPrivateSubText58_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText102.SetFocusEndIfEndSubPrivateSubText102_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText59.SetFocusEndIfEndSubPrivateSubText59_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText60.SetFocusEndIfEndSubPrivateSubText60_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText103.SetFocusEndIfEndSubPrivateSubText103_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText49.SetFocusEndIfEndSubPrivateSubText49_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText104.SetFocusEndIfEndSubPrivateSubText104_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText105.SetFocusEndIfEndSubPrivateSubText105_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText106.SetFocusEndIfEndSubPrivateSubText106_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText107.SetFocusEndIfEndSubPrivateSubText107_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText115.SetFocusEndIfEndSubPrivateSubText115_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText117.SetFocusEndIfEndSubPrivateSubText117_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText119.SetFocusEndIfEndSubPrivateSubText119_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText113.SetFocusEndIfEndSubPrivateSubText113_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText120.SetFocusEndIfEndSubPrivateSubText120_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText121.SetFocusEndIfEndSubPrivateSubText121_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText122.SetFocusEndIfEndSubPrivateSubText122_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText123.SetFocusEndIfEndSubPrivateSubText123_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText66.SetFocusEndIfEndSub4.第十二页PrivateSubText133_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText134.SetFocusEndIfEndSubPrivateSubText134_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText14.SetFocusEndIfEndSubPrivateSubText14_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText15.SetFocusEndIfEndSubPrivateSubText15_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText16.SetFocusEndIfEndSubPrivateSubText16_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText17.SetFocusEndIfEndSubPrivateSubText17_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText20.SetFocusEndIfEndSubPrivateSubText20_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText21.SetFocusEndIfEndSubPrivateSubText21_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText124.SetFocusEndIfEndSubPrivateSubText124_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText125.SetFocusEndIfEndSubPrivateSubText125_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText126.SetFocusEndIfEndSubPrivateSubText126_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText127.SetFocusEndIfEndSubPrivateSubText127_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText128.SetFocusEndIfEndSubPrivateSubText128_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText129.SetFocusEndIfEndSubPrivateSubText129_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText130.SetFocusEndIfEndSubPrivateSubText130_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText131.SetFocusEndIfEndSubPrivateSubText131_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText132.SetFocusEndIfEndSubPrivateSubText132_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText67.SetFocusEndIfEndSub5.第十三页PrivateSubText74_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText75.SetFocusEndIfEndSubPrivateSubText75_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText76.SetFocusEndIfEndSubPrivateSubText76_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText77.SetFocusEndIfEndSubPrivateSubText77_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText78.SetFocusEndIfEndSubPrivateSubText78_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText79.SetFocusEndIfEndSubPrivateSubText79_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText80.SetFocusEndIfEndSubPrivateSubText80_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText81.SetFocusEndIfEndSubPrivateSubText81_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText82.SetFocusEndIfEndSubPrivateSubText82_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText61.SetFocusEndIfEndSubPrivateSubText61_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText68.SetFocusEndIfEndSub4.5功能实现/*…………………该module把TextBox中录入的内容转换到页面上成为我们需要的内容，包含了验证数据，转换金额的大小写数字以及汉字的表达。…………………*/PublicFunctionstr(ByValTextAsTextBox,ByVallengthAsLong)AsLongstr=length-Len(Trim(Text.Text))EndFunctionPublicFunctionClearEmpty()DimaAsControlForEachaInForm1.ControlsIfLCase(TypeName(a))="textbox"ThenIfTrim(a.Text)<>"/"Thena.Text=Trim(a.Text)EndIfEndIfNextaEndFunctionFunctionmakeSpace(iAsInteger)AsStringDimjAsIntegerForj=1ToimakeSpace=makeSpace&""NextEndFunctionPublicFunctionEmptyStr(ByVallengthAsSingle,ByValstrAsString)AsStringDimeStrAsStringFori=0Tolength-LenB(str)eStr=eStr&""Next'指定返回值EmptyStr=eStrEndFunctionFunctionStrLen(strAsString)AsInteger'字符串长度StrLen=LenB(StrConv(str,vbFromUnicode))EndFunctionFunctionCChinese(StrEngAsString)AsString'验证数据IfNotIsNumeric(StrEng)ThenIfTrim(StrEng)<>""ThenMsgBox"无效的数字",,"提示信息"CChinese=""ExitFunctionEndIf'定义变量DimintLenAsInteger,intCounterAsIntegerDimstrChAsString,strTempChAsStringDimstrSeqCh1AsString,strSeqCh2AsStringDimstrEng2ChAsStringstrEng2Ch="零壹贰叁肆伍陆柒捌玖"strSeqCh1="拾佰仟拾佰仟拾佰仟拾佰仟"strSeqCh2="万亿兆"'转换为表示数值的字符串StrEng=CStr(CDec(StrEng))'记录数字的长度intLen=Len(StrEng)'转换为汉字ForintCounter=1TointLen'返回数字对应的汉字strTempCh=Mid(strEng2Ch,Mid(StrEng,intCounter,1)+1,1)'若某位是零IfstrTempCh="零"AndintLen<>1Then'若后一个也是零，或零出现在倒数第1、5、9、13等位，则不显示汉字“零”IfMid(StrEng,intCounter+1,1)="0"Or(intLen-intCounter+1)Mod4=1ThenstrTempCh=""ElsestrTempCh=strTempCh&Trim(Mid(strSeqCh1,intLen-intCounter+1,1))EndIf'对于出现在倒数第1、5、9、13等位的数字If(intLen-intCounter+1)Mod4=1Then'添加位"万亿兆"strTempCh=strTempCh&Trim(Mid(strSeqCh2,(intLen-intCounter)\4+1,1))EndIf'组成汉字表达式strCh=strCh&Trim(strTempCh)NextCChinese=strCh&"元整"EndFunctionPublicSubPrintSpaceY(iAsInteger)DimjAsIntegerForj=0ToiPrinter.Print""NextEndSub

第5章软件测试和调试目前软件测试仍然是保证软件可靠性的主要手段。测试阶段的根本任务是发现并改正软件中的错误。设计测试方案是测试阶段的关键技术问题，基本目标是选用最少量的高效测试数据，做到尽可能完善的测试，从而尽可能多的发现软件中的问题。白盒测试盒黑盒测试是软件测试的两类基本方法。一般来说，白盒测试检查程序现有的逻辑正确性；黑盒测试检查程序是否符合设计要求，是否存在隐患。通常在测试过程的早期阶段主要使用白盒方法，而在测试过程的后期阶段主要使用黑盒方法。两者各有所长，相互补充。该软件主要运用两者相结合的测试方法，以黑盒测试为主。下面将给出详细的测试过程：5.1白盒测试法白盒测试是指按照程序的执行逻辑进行路径检测，即在程序实际运行过程中所经历的每一路径都必须测试到，检查是否存在引起程序出现错误的语句。在进行白盒测试时，使用调试工具进行流程跟踪，确保操作经过每个流程。在测试过程中发现的软件错误必须及时改正，这就是调试的任务。为了改正错误，首先必须确定错误的准确位置，同时尽量避免在调试过程中引进新的错误。使用Debug调试器就可以很容易地找到错误并将它们改正。下面以登录模块为例，来说明调试的过程和方法：第一步:打开工程1；第二步:在程序中设置断点；第三步:在跟踪模式下运行应用程序；第四步:当应用程序在断点处中断执行时，用户可查看变量的值，检查内存中对象的属性或者改变变量的值；第五步:依次调试应用程序，需要时在应用程序中增加新的断点或修改已存在的断点；第六步:当用户找到问题所在时，修改问题的代码并重新运行该应用程序。通过调试我发现一般错误都出现在粗心马虎上，比如数据类型不符合，变量未定义等。再有的问题就是对一些函数、方法的使用错误。但最后经过认真分析、查阅资料，这些问题大部分都得以解决。5.2黑盒测试法黑盒测试是指不关心程序内部的逻辑结构，只检查其输入和输出的内容。对某段程序输入各类参数值，观察其结果。输入的数据可以根据设计内容而确定。设计黑盒测试方案时应考虑的问题如下：1.测试数据的有效性；如：年月日的合理性，钱数的识别性；2.测试数据结构错误或者数据库访问错误；3.功能不正确或不够完善等。例如在空白情况下，系统应能够触发错误提示，如图所示图5-1错误提示写图标，格式参考模板写图标，格式参考模板

第6章工作总结和展望该系统以中信银行为例，实现企业的个人购房借款合同打印。它最基本的功能是对个人购房借款的用户提供合同的审阅和打印，例如借款方式，还款方式，当年的具体利率显示或打印出来供旅客参考，客户可以按照需要来选择自己的贷款模式，从而为银行节省了很多的人力资源。其中核心之处在于：操作便捷化，客户可以录入相关的信息后，选择需要的方式，迅速生成打印文件，便于银行的运作等。该系统在开发的过程中遇到了不少的困难，例如打印机的连接问题，数据正确合理性的问题等，但通过各种途径的学习请教，均得到了很好的解决。自身也从中学会了很多东西，体会很深，收获很大。不仅熟悉了软件开发的过程，而且提高了自己解决问题的能力，增强了信心和成就感。该系统以其方便、易操作及美观的界面给用户节省时间，全面实现对中信银行个人贷款合同打印功能，大大减轻了银行部门工作人员的工作量，提高了工作效率和工作服务质量。系统虽然是基于中信银行进行开发的，但是却具有广泛的适用性。利用系统自身的初始化功能，可以将所有数据信息清空，输入新的数据信息，就可以很快构建成一个简单实用的合同打印系统，因此应用前景广泛。但是由于时间等方面的原因，所开发的系统还不尽如人意：1.该系统仅应用于单机环境，使用范围受到了限制；2.系统的安全性没有限制。3.代码不够优化，系统商业化程度不高等。但是相信随着时间的推移和自身技术的不断提高，该智能查询系统将会越来越完善。

参考文献[1]王颖李敏业.VisualBasic+SQLSever数据库应用实例完全解析.人民邮电出版社,2006[2]刘炳文杨明福.陈定中二级教程——VisualBasic语言程序设计（修订版）.高等教育社2002[3]刘韬骆娟.VisualBasic数据库通用模块及典型系统开发.人民邮电出版社,2006-2[4]宋坤赵智勇等.VisualBasic信息系统开发实例精选.机械工业出版社，2005[5]赛奎春高春艳等.VisualBasic精彩编程200例。机械工业出版，2003.[6]中信银行bank.ecitic/[7]个人购房借款合同ebank.spdb/contract/special_1_2.html

致谢在整个毕业设计的过程中，老师和朋友给了我很大的帮助，特别是王听忠老师给我提供了很多的指导和帮助，从他身上我学到了很多东西，他认真负责的工作态度和深厚的理论水平都使我受益匪浅。此外，在系统的开发过程中，还有其他同学的热心帮助，共同解决了不少难点问题。在此不一一列举，谢谢她们对我的支持！精品文档精心整理精品文档可编辑的精品文档No.:SPDBankPersonalGuaranteeLoanContractContractversionNo.:SPDB201203

SPDBankPersonalGuaranteeLoanContractPersonalGuaranteeLoanContractSpecialNotes:ThemainbodyofthepresentcontractismadeupofContractTermsandConditionsaswellasSummarySheetofElementsoftheContractTermsandConditions.TheContractTermsandConditionsneedsnottobefilledin,andallofitsitemstobefilledinareindicatedwithspecificcodes;theSummarySheetofElementsoftheContractTermsandConditionsisattachedtothePart2ofthiscontractbycentralizedprintingorfillinginalltheinformationwhichneedstobefilledin.TheborrowerandtheLoanerhaveconfirmedthatallthecontentsoftheSummarySheetofElementsoftheContractTermsandConditionsarecorrect,andalsoacknowledgedthatthecontractelementswhichneedtobefilledintheContractTermsandConditionsaresubjecttothecontentsoftheSummarySheetofElementsoftheContractTermsandConditions.AllthecontentsoftheSummarySheetofElementsoftheContractTermsandConditionscorrespond