毕业设计（论文）-Delphi金融借贷管理系统.doc

I 摘摘 要要 金融借贷管理系统是各种投资咨询领域的基础，是进行各种金融操作的枢纽， 贷款人和银行双方通过借贷管理系统，对各种信息进行管理，都表现在对客户登记， 客户回防，审批进度，贷后管理，员工管理等信息的添加，删除，修改，查询，打印 的操作上。因此，借贷管理系统质量的好坏直接影响到借贷双方的利益，必须提高借 贷管理系统的质量。 通过对系统的分析，本系统采用了著名的 Borland 公司的 Delphi 可视化软件 开发工具，利用其提供的各种各样的可视化的开发工具，主要实现了客户登记，客户 回防，审批进度，贷后管理，员工管理这五个功能模块，通过对各个功能模块的不断 检测，修正和改进直到能够满足借贷双方的需求，达到操作过程中的简洁，直观，方 便，实用，稳定等要求。重要的是，本系统也是典型的信息管理系统（MIS），本软 件采用纯 Delphi 技术，充分发挥了 Delphi 的适应于多种数据库结构，从客户机服 务机模式到多层数据结构模式；高效率的数据库管理系统和新一代更先进的数据库引 擎；最新的数据分析手段和提供大量的企业组件等特点。总之，本系统设计开发的过 程，是对 Delphi 应用基础的实践和检验，也是对我们所学专业知识的具体应用和全 面提高。 关键词关键词：Delphi 控件 借贷管理系统 可视化工具 II 目目 录录 摘 要I 关键词：DELPHI 控件 借贷管理系统 可视化工具I 第一章 引 言.1 1.1 设计思想 .1 1.2 本课题的研究意义 .1 1.3 系统设计目的 .1 1.4 开发和运行环境选择 .1 第二章 DELPHI 技术简介1 2.1 DELPHI 的产生和发展.1 2.2 DELPHI 的特点 DELPHI 的语言特性 1 第三章 借贷管理系统分析3 3.1 金融投资公司工作过程描述3 （1）客户登记：3 （2）客户回访：3 （3）审批进度：3 （4）贷后管理：3 3.2 借贷管理系统需求分析3 3.2.1 编写目的：.3 3.2.2 功能结构：.4 3.2.3 功能实现：.5 （1）客户登记：5 （2）客户回访：5 （3）审批进度：6 （4）贷后管理：6 （5）员工管理：6 3.3 借贷管理系统数据库设计6 3.3.1 贷款人基本信息（creditor）：.6 3.3.2 联系人基本信息（linkman）：.7 3.3.3 联系人电话记录信息(phonerecord)：.7 3.3.4 贷款人单位信息(department)：.7 3.3.5 单位商铺信息(store)：.7 3.3.6 抵押土地信息(morfield)：.7 3.3.7 联系信息(connection)：.7 3.3.8 回访记录(revertrecord)：.7 3.3.9 回访信息(revert)：.7 3.3.10 交费信息(charge)：.7 3.3.11 评估公司信息(evaluater)：.7 III 3.3.12 评估信息(evaluating)：.7 3.3.13 补充材料信息(addfile)：.8 3.3.14 考察信息(examination)：.8 3.3.15 抵押住房信息(morhouse)：.8 3.3.16 银行信息(bank)：.8 3.3.17 贷款信息(credit)：.8 3.3.18 还款信息(repay)：.8 3.3.19 员工信息(worker)：.8 第四章 借贷管理系统设计9 4.1 借贷管理系统界面设计9 4.1.1 主界面设计 ：.9 4.1.2 业务类界面设计：.9 （1）添加信息界面：9 （2）查询信息界面：10 （3）删除信息界面：11 （4）打印信息界面：11 （5）关于界面：12 4.2 借贷管理系统代码设计12 4.2.1 添加过程代码：.12 4.2.2 查询过程代码：.15 4.2.3 修改过程代码：.16 4.2.4 删除过程代码：.18 4.2.5 打印过程代码：.19 第五章 借贷管理系统测试及运行20 5.1 系统测试20 5.2 系统运行20 第六章：结论与展望.21 6.1 小结21 6.2 展望21 谢 辞.23 参考文献.24 1 第一章第一章 引引 言言 1.11.1 设计思想设计思想 本系统的选题是借贷管理系统，是针对现行较多的投资公司对借贷关系的 管理而开发的，对该系统设计的指导思想是“清晰第一，效率第二” ，一切方便用户， 为每个操作者尽可能的提供方便，快捷，美观，稳定的软件，不仅如此还要有很好的 容错性能，能够与用户进行及时的对话，当出现错误操作时能及时提出警告，方便用 户进行及时地改正。针对本软件的操作领域，还应兼备良好的保密性能。 具体表现为： （1）系统得符合借贷管理公司的规定，满足借贷管理公司员工的日常使用需求， 达到操作过程中的直观，方便，实用安全等要求； （2）系统具有数据库管理系统功能，能够通过对用户需求转化为信息添加到数 据库，并且对其进行查询，修改，删除，打印等一系列的操作。 （3）系统采用了模块化的程序设计方法，有利于各个功能模块的组合和修改， 也便于后期维护人员的补充和维护。 1.21.2 本课题的研究意义本课题的研究意义 通过该借贷管理系统能够使金融投资公司的信息管理工作条理化，规范化，自 动化，方便化，安全化，以致提高信息管理工作的效率，使工作人员能够便捷的完成 各项任务。 1.31.3 系统设计目的系统设计目的 能够及时并准确的录入和操作借贷双方各种信息情况，建立和完善借贷管理系统， 利用信息技术手段，应该大力提高管理系统的执行效率。 1.41.4 开发和运行环境选择开发和运行环境选择 开发工具:Delphi7 运行环境: Windows NT 或 Windows 2000、XP 1 第二章第二章 DELPHI 技术简介技术简介 2.12.1 DELPHIDELPHI 的产生和发展的产生和发展 Delphi 是著名的 Borland（现在已和 Inprise 合并）公司开发的可视化软件开发 工具。 “真正的程序员用 c，聪明的程序员用 Delphi” ，这句话是对 Delphi 最经典、最 实在的描述。Delphi 被称为第四代编程语言，它具有简单、高效、功能强大的特点。 和 VC 相比，Delphi 更简单、更易于掌握，而在功能上却丝毫不逊色；和 VB 相比， Delphi 则功能更强大、更实用。可以说 Delphi 同时兼备了 VC 功能强大和 VB 简单易学 的特点。它一直是程序员至爱的编程工具。在 Delphi 众多的优势当中，它在数据库方 面的特长显得尤为突出：适应于多种数据库结构，从客户机服务机模式到多层数据结 构模式；高效率的数据库管理系统和新一代更先进的数据库引擎；最新的数据分析手段 和提供大量的企业组件。Delphi 发展至今，从 Delphi、Delphi到现在的 Delphi7，不断添加和改进各种特性，功能越来越强大。Delphi7 添加了对 IDE（集成开 发环境）的很多改进新特性，扩展了数据库支持（ADO 和 InterBase 数据库） ，带有 Internet 支持的 MIDAS 改进版，TeamSouse 版本控制工具，转换功能，框架概念以及很 多的新组件与新特性。 2.22.2 DELPHIDELPHI 的特点的特点 DELPHIDELPHI 的语言特性的语言特性 Delphi 具有以下的特性：基于窗体和面向对象的方法，高速的编译器，强大的数 据库支持，与 Windows 编程紧密结合，强大而成熟的组件技术。但最重要的还是 Object Pascal 语言，它才是一切的根本。 Object Pascal 语言是在 Pascal 语言的基础上发展 起来的，简单易学。Delphi 提供了各种开发工具，包括集成环境、图像编辑（Image Editor） ，以及各种开发数据库的应用程序，如 DesktopDataBase Expert 等。除此之外， 还允许用户挂接其它的应用程序开发工具，如 Borland 公司的资源编辑器（Resourse Workshop） 。面向对象的程序设计(Object-Oriented Programming，简记为 OOP)是 Delphi 诞生的基础。OOP 立意于创建软件重用代码，具备更好地模拟现实世界环境的能 力，这使它被公认为是自上而下编程的优胜者。它通过给程序中加入扩展语句，把函数 “封装”进 Windows 编程所必需的“对象”中。面向对象的编程语言使得复杂的工作条 理清晰、编写容易。说它是一场革命，不是对对象本身而言，而是对它们处理工作的能 力而言。对象并不与传统程序设计和编程方法兼容，只是部分面向对象反而会使情形更 2 糟。除非整个开发环境都是面向对象的，否则对象产生的好处还没有带来的麻烦多。而 Delphi 是完全面向对象的，这就使得 Delphi 成为一种触手可及的促进软件重用的开发工 具，从而具有强大的吸引力。 一些早期的具有 OOP 性能的程序语言如 C+,Pascal,Smalltalk 等，虽然具有面向对象的特征，但不能轻松地画出可视化对象， 与用户交互能力较差，程序员仍然要编写大量的代码。Delphi 的推出，填补了这项空白。 您不必自己建立对象，只要在提供的程序框架中加入完成功能的代码，其余的都交给 Delphi 去做。欲生成漂亮的界面和结构良好的程序丝毫不必绞尽脑汁，Delphi 将帮助您 轻松地完成。它允许在一个具有真正 OOP 扩展的可视化编程环境中，使用它的 Object Pascal 语言。这种革命性的组合，使得可视化编程与面向对象的开发框架紧密地结合起 来。 3 第三章第三章 借贷管理系统分析借贷管理系统分析 3.13.1 金融投资公司工作过程描述金融投资公司工作过程描述 客户到金融投资公司申请贷款资金，主要有客户登记，客户回访，审批进度，贷 后管理等工作流程。 （1）客户登记： 每个客户到金融投资公司申请贷款资金，必须经过客户登记，它必须填写大量的 客户信息：1.贷款人基本信息 2.贷款人单位基本信息 3.贷款人单位商铺信息 4.联系人 基本信息 5.联系人电话记录信息 6.联系信息 7.抵押土地信息 8.抵押住房信息 而投资公司也给每个客户相应的信息。 （2）客户回访： 投资公司对已经贷了款的客户，必须定期对其进行回访。在这个阶段，投资公司 要对相应的回访信息进行添加，查询，修改，删除等操作。 （3）审批进度： 在这个阶段，投资公司必须对客户进行定期的评估。而评估还需要指定的评估公 司进行评估，待评估公司对贷款客户评估完后，填写相应的评估信息和考察信息，如果 需要还要添加相应的补充材料信息。 （4）贷后管理： 在贷款之后的相关信息都要在贷后管理中进行操作，这些信息有：还款方式，月 息，月还款额，固定提醒时间，提醒员，提醒日期等相关信息。 3.23.2 借贷管理系统需求分析借贷管理系统需求分析 3.2.13.2.1 编写目的：编写目的： 需求分析，不仅仅是拿到客户的需求，更重要的是还需进行分析，了解细节，并 就细节跟客户咨询，获取最详细的资料。客户所能提供给你的只是他们想到的功能需求， 4 很多问题并不在他们考虑的范围之内，如果作为项目承担方没有去做分析，简单的按照 功能要求去设计、规划，最终出来的系统是很难完全符合客户的业务流程的，这时，自 然需要更改，被看成了需求的更改。其实，都是缺乏分析所一手造成的。问题等到系统 出来了才被发现，这样的系统本身就是先天不足的了。 本说明书将全面描述本系统的各种功能、运行环境，使用户和开发者双方对本系 统的初始规定有一个共同的理解，使之成为整个开发工作的基础。 3.2.23.2.2 功能结构：功能结构： 本系统的主要工作是客户登记，客户回访，审批进度，贷后管理等功能模块。 借贷管借贷管 理系统理系统 客户登记客户登记客户回访客户回访审批进度审批进度贷后管理贷后管理 贷款人基本信息贷款人基本信息 贷款人单位信息贷款人单位信息 联系信息联系信息 抵押信息抵押信息 回访信息回访信息 回访记录回访记录 评估管理评估管理 交费信息交费信息 考察信息考察信息 补充材料信息补充材料信息 贷后还款信息贷后还款信息 贷款信息贷款信息 5 3.2.33.2.3 功能实现：功能实现： （1）客户登记： 1.贷款人基本信息管理：主要是对贷款人基本的一些资料进行管理，给出客户 一个贷款人编号，这个是唯一的，以后的管理都要通过这个编号来进行。同时要输入贷 款人的姓名，出生日期，户籍，贷款额，贷款年限，贷款用途，单位名称。公司会给出 推荐贷款方案，联系编号和银行编号。联系编号是用来查询联系记录的信息。 2.贷款人单位基本信息管理：通过贷款人基本信息里的单位名称来输入单位信息， 有经营行业，公司性质；通过单位名称来查询单位基本信息，删除和打印信息。 3.贷款人单位商铺信息管理：通过单位名称输入必要的贷款人单位商铺的信息， 那信息有商铺名称，商铺地点，摊位号，商铺性质，租赁期限。 4.联系人基本信息管理：通过贷款人编号来添加联系人编号和姓名，联系人编号 是联系人的凭证，也是唯一的，根据它来进行查询联系人基本信息。 5.联系人电话记录信息管理：主要是记录联系人与借贷公司的联系记录：联系电 话，来电时间，联系人编号。 6.联系信息管理：管理的信息有：接线员编号，值班员编号，派单员编号，客户 经理编号，客源。 7.抵押土地信息管理：按照贷款人编号来管理的抵押的土地信息，其中包括土地 位置，土地性质，产权性质，抵押人年龄，抵借关系。 8.抵押住房信息管理：同上也是按照贷款人编号来管理抵押住房信息，其中包括 抵押房产地址，房产价值，房产权性质，抵押比率，房产面积，房龄，房产用途。 （2）客户回访： 1.客户记录管理：按照贷款人编号来添加回访记录：回访编号，回访员编号，回 访时间。 2.回访信息管理：通过贷款人编号来查询回访编号，通过回访编号和贷款人编号 两个编号来查询回访内容，对其进行管理。 6 （3）审批进度： 1.评估公司信息管理：评估公司的一些基本信息的管理，通过贷款人编号录入评 估公司名称，评估公司电话，评估公司地址。 2.评估信息管理：凭借贷款人编号和评估公司名称来对其进行管理，管理的信息 包括评估值，评估日期，报件日期，审批单元，送件员编号。 3.考察信息管理：借贷公司要对贷款人进行考察，考察后的信息要进行管理，也 必须通过贷款人编号来进行管理考察信息，还包括有考察编号，考察时间，陪同考察员。 4.补充材料信息管理：有时需要添加点补充材料，通过贷款人编号管理补充材料 编号，补充材料日期，上级审批时间，补充材料内容。 5.交费信息管理：对交费信息（贷款人编号，交费编号，交费日期，交费额度） 进行管理。 6.银行信息管理：借贷公司是贷款人和银行的中介，所以对银行信息要进行大量 管理。 7.贷款信息管理：是审批进度中重要的环节，其内容包括有贷款人编号，银行编 号，申请贷款额，申请贷款期限，放款日期，放款额度，到期日期，互清和经办人。 （4）贷后管理： 1.贷后还款信息管理：对已经申请下来的贷款人要对贷款进行定期的偿还，而如 何偿还则需要管理，要管理的内容有贷款人编号，还款编号，还款方式，月息，月还款 额，固定提醒时间，提醒员编号，提醒日期。 （5）员工管理： 1.对借贷公司员工进行信息管理。 3.33.3 借贷管理系统数据库设计借贷管理系统数据库设计 这里包括十九个数据表如下： 7 3.3.13.3.1 贷款人基本信息（贷款人基本信息（creditorcreditor）：）： 贷款人编号 creditor_id，姓名 creditor_name，出生日期 birthday，户籍 door，贷 款额 credit_money，贷款年限 credit_time，贷款用途 credit_use，推荐贷款方案 credit_way，单位名称 dp_name 3.3.23.3.2 联系人基本信息（联系人基本信息（linkmanlinkman）：）： 联系人编号 lman_id，姓名 lman_name，贷款人编号 creditor_id 3.3.33.3.3 联系人电话记录信息联系人电话记录信息(phonerecord)(phonerecord)： 联系电话 phone，来电时间 ph_time，联系人编号 lman_id 3.3.43.3.4 贷款人单位信息贷款人单位信息(department)(department)： 单位名称 dp_name，经营行业 working，公司性质 dp_kind 3.3.53.3.5 单位商铺信息单位商铺信息(store)(store)： 商铺名称 store_name，商铺地点 store_place，摊位号 stall，商铺性质 store_kind，租赁期限 leasehold，单位名称 dp_name 3.3.63.3.6 抵押土地信息抵押土地信息(morfield)(morfield)： 位置 mf_position，土地性质 mf_kind，产权性质 mfright_kind，抵押人年龄 morer_age，抵借关系 dijie，贷款人编号 creditor_id 3.3.73.3.7 联系信息联系信息(connection)(connection)： 联系编号 link_id，接线员编号 operator_id，值班员编号 duty_id，派单员编号 sender_id，客户经理编号 clientm_id，客源 root 3.3.83.3.8 回访记录回访记录(revertrecord)(revertrecord)： 回访编号 rt_id，回访员编号 revertor_id，回访时间 rt_time，贷款人编号 creditor_id 3.3.93.3.9 回访信息回访信息(revert)(revert)： 贷款人编号 creditor_id，回访编号 rt_id，回访内容 rt_content 3.3.103.3.10 交费信息交费信息(charge)(charge)： 交费编号 charge_id，交费日期 charge_date，交费额度 charge_money，贷款人编号 creditor_id 3.3.113.3.11 评估公司信息评估公司信息(evaluater)(evaluater)： 评估公司名称 evaluate_name，评估公司电话 evaluate_phone，评估公司地址 evaluate_address,贷款人编号 creditor_id 8 3.3.123.3.12 评估信息评估信息(evaluating)(evaluating)： 贷款人编号 creditor_id，评估公司名称 evaluate_name，评估值 opinion，评估日 期 evaluate_date，报件日期 filedate，审批单元 exam，送件员编号 filesender_id 3.3.133.3.13 补充材料信息补充材料信息(addfile)(addfile)： 补充材料编号 addfile_id，补充材料内容 addfile_content，补充材料日期 addfiledate，上级审批时间 examdate，贷款人编号 creditor_id 3.3.143.3.14 考察信息考察信息(examination)(examination)： 考察编号 exam_id，考察时间 examtime，陪同考察员 peitongexamer，贷款人编号 creditor_id 3.3.153.3.15 抵押住房信息抵押住房信息(morhouse)(morhouse)： 抵押房产地址 address，房产价值 mh_valuate，房产权性质 mh_rightkind，抵押比 率 morrate，房产面积 mh_area，房龄 mh_age，房产用途 mh_use，贷款人编号 creditor_id 3.3.163.3.16 银行信息银行信息(bank)(bank)： 银行编号 bank_id，a 银行名称 bank_name 3.3.173.3.17 贷款信息贷款信息(credit)(credit)： 贷款人编号 creditor_id，银行编号 bank_id，申请贷款额 apply_money，申请贷款 期限 apply_term，放款日期 loan_date，放款额度 loan_money，到期日期 term，互清 huqing，a 经办人 jingbanren 3.3.183.3.18 还款信息还款信息(repay)(repay)： 还款编号 repay_id，还款方式 repay_way，月息 mon_interest，月还款额 mon_repaymoney，固定提醒时间 fixed_awaketime，提醒员编号 awaker_id，提醒日期 awake_date，贷款人编号 creditor_id 3.3.193.3.19 员工信息员工信息(worker)(worker)： 员工编号 worker_id，员工姓名 worker_name，员工性别 worker_sex，员工年龄 worker_age，员工籍贯 worker_jiguan，员工电话 worker_phone，备注 beizhu 9 第四章第四章 借贷管理系统设计借贷管理系统设计 4.14.1 借贷管理系统界面设计借贷管理系统界面设计 4.1.14.1.1 主界面设计主界面设计 ： 4.1.24.1.2 业务类界面设计：业务类界面设计： （1）添加信息界面： 10 （2）查询信息界面： 11 （3）删除信息界面： （4）打印信息界面： 12 （5）关于界面： 4.24.2 借贷管理系统代码设计借贷管理系统代码设计 本借贷管理系统采用的是 DELPHI 技术开发的，主要用到了添加，查询，修改， 删除和打印的基本程序所构成的，下面是取了贷款人基本信息管理为代表来书写的主要 代码。 4.2.14.2.1 添加过程代码：添加过程代码： procedure TadddaikuanrenForm.Button1Click(Sender: TObject); var mycount:integer; begin if length(dkrbhedit.Text )=0 then begin messagebeep(1); showmessage('请输入贷款人编号'); dkrbhedit.SetFocus; dkrbhedit.Focused; 13 end else begin strtoint(dkrbhedit.Text ); daikuanrenquery.Close; daikuanrenquery.SQL.Clear; daikuanrenquery.Params.Clear; daikuanrenquery.Params.CreateParam(ftstring,'dkrbh',ptinput).AsString:=dkrbh edit.Text; daikuanrenquery.SQL.Add('select * from creditor where creditor_id=:dkrbh;'); daikuanrenquery.ExecSQL; daikuanrenquery.Open; mycount:=daikuanrenquery.RecordCount ; if mycount=1 then begin messagebeep(1); showmessage('此贷款人已经存在，请重新输入'); dkrbhedit.Clear; dkrxmedit.Clear; csrqedit.Clear; hjedit.Clear; dkeedit.Clear; dknxedit.Clear; dkytedit.Clear; tjdkfaedit.Clear; dwmcedit.Clear; dkrbhedit.SetFocus; dkrbhedit.Focused; end else 14 begin daikuanrenquery.Close; daikuanrenquery.SQL.Clear; daikuanrenquery.Params.Clear; daikuanrenquery.Params.CreateParam(ftstring,'dkrbh',ptinput).AsString:=dkrbh edit.Text; daikuanrenquery.Params.CreateParam(ftstring,'dkrxm',ptinput).AsString:=dkrxm edit.Text; daikuanrenquery.Params.CreateParam(ftstring,'csrq',ptinput).AsString:=csrqed it.Text; daikuanrenquery.Params.CreateParam(ftstring,'hj',ptinput).AsString:=hjedit.T ext ; daikuanrenquery.Params.CreateParam(ftstring,'dke',ptinput).AsString:=dkeedit.T ext; daikuanrenquery.Params.CreateParam(ftstring,'dknx',ptinput).AsString:=dknxed it.Text; daikuanrenquery.Params.CreateParam(ftstring,'dkyt',ptinput).AsString:=dkyted it.Text; daikuanrenquery.Params.CreateParam(ftstring,'tjdkfa',ptinput).AsString:=tjdk faedit.Text; daikuanrenquery.Params.CreateParam(ftstring,'dwmc',ptinput).AsString:=dwmced 15 it.Text; daikuanrenquery.SQL.Add('insert into creditor values(:dkrbh,:dkrxm,:csrq,:hj,:dke,:dknx,:dkyt,:tjdkfa,:dwmc) ;'); daikuanrenquery.ExecSQL; messagebeep(1); showmessage('贷款人基本信息添加成功'); dkrbhedit.Clear; dkrxmedit.Clear; csrqedit.Clear; hjedit.Clear; dkeedit.Clear; dknxedit.Clear; dkytedit.Clear; tjdkfaedit.Clear; dwmcedit.Clear; dkrbhedit.SetFocus; dkrbhedit.Focused; dkrbhedit.SetFocus; dkrbhedit.Focused; end; end; end; 4.2.24.2.2 查询过程代码：查询过程代码： procedure TchaxundaikuanrenForm.Button3Click(Sender: TObject); begin daikuanrenquery.Close; daikuanrenquery.SQL.Clear; daikuanrenquery.Params.Clear; daikuanrenquery.Params.CreateParam(ftstring,'dkrbh',ptinput).AsString:=dkrbh combobox.Text; 16 daikuanrenquery.SQL.Add('select * from creditor where creditor_id=:dkrbh;'); daikuanrenquery.ExecSQL; daikuanrenquery.Open; dkrxmedit.Text:=daikuanrenquerycreditor_name.Value; csrqedit.Text:=daikuanrenquerybirthday.Value; hjedit.Text:=daikuanrenquerydoor.Value; dkeedit.Text:=daikuanrenquerycredit_money.Value; dknxedit.Text:=daikuanrenquerycredit_time.Value; dkytedit.Text:=daikuanrenquerycredit_use.Value; tjdkfaedit.Text:=daikuanrenquerycredit_way.Value; dwmcedit.Text:=daikuanrenquerydp_name.Value; daikuanrenquery.Close; dkrbhcombobox.SetFocus; dkrbhcombobox.Focused; end; 4.2.34.2.3 修改过程代码：修改过程代码： procedure TchaxundaikuanrenForm.Button1Click(Sender: TObject); begin daikuanrenquery.Close; daikuanrenquery.SQL.Clear; daikuanrenquery.Params.Clear; daikuanrenquery.Params.CreateParam(ftstring,'dkrbh',ptinput).AsString:=d krbhcombobox.Text; daikuanrenquery.Params.CreateParam(ftstring,'dkrxm',ptinput).AsString:=dkrxm edit.Text; daikuanrenquery.Params.CreateParam(ftstring,'csrq',ptinput).AsString:=csrqed it.Text; 17 daikuanrenquery.Params.CreateParam(ftstring,'hj',ptinput).AsString:=hjedit.T ext ; daikuanrenquery.Params.CreateParam(ftstring,'dke',ptinput).AsString:=dkeedit.T ext; daikuanrenquery.Params.CreateParam(ftstring,'dknx',ptinput).AsString:=dknxed it.Text; daikuanrenquery.Params.CreateParam(ftstring,'dkyt',ptinput).AsString:=dkyted it.Text; daikuanrenquery.Params.CreateParam(ftstring,'tjdkfa',ptinput).AsString:=tjdk faedit.Text; daikuanrenquery.Params.CreateParam(ftstring,'dwmc',ptinput).AsString:=dwmced it.Text; daikuanrenquery.SQL.Add('update creditor set creditor_id=:dkrbh,creditor_name=:dkrxm,birthday=:csrq,door=:hj,credit_money =:dke,credit_time=:dknx,credit_use=:dkyt,credit_way=:tjdkfa,dp_name=:dwmc where creditor_id=:dkrbh'); daikuanrenquery.ExecSQL; messagebeep(1); showmessage('贷款人基本信息修改成功'); dkrbhcombobox.Text:='' dkrxmedit.Clear; csrqedit.Clear; hjedit.Clear; dkeedit.Clear; dknxedit.Clear; 18 dkytedit.Clear; tjdkfaedit.Clear; dwmcedit.Clear; dkrbhcombobox.SetFocus; dkrbhcombobox.Focused; end; 4.2.44.2.4 删除过程代码：删除过程代码： procedure TshanchudaikuanrenForm.Button1Click(Sender: TObject); var i:integer; begin daikuanrenquery.Close; daikuanrenquery.SQL.Clear; daikuanrenquery.Params.Clear; daikuanrenquery.Params.CreateParam(ftstring,'dkrbh',ptinput).AsString:=dkrbh combobox.Text; daikuanrenquery.SQL.Add('delete from creditor where creditor_id=:dkrbh;'); daikuanrenquery.ExecSQL; messagebeep(1); showmessage('贷款人基本信息删除成功'); i:=0; daikuanrentable.Open; dkrbhcombobox.Clear; daikuanrentable.First; while idaikuanrentable.RecordCount do begin dkrbhcombobox.Items.Insert(i,daikuanrentablecreditor_id.Value ); daikuanrentable.Next; i:=i+1; end; daikuanrentable.Close; 19 dkrbhcombobox.SetFocus; dkrbhcombobox.Focused; end; 4.2.54.2.5 打印过程代码：打印过程代码： procedure TdayindaikuanrenForm.Button1Click(Sender: TObject); begin creditorquery.Close; creditorquery.Params.Clear; creditorquery.SQL.Clear; creditorquery.Params.CreateParam(ftstring,'bh',ptinput).asstring:=bhcombobox.T ext; creditorquery.SQL.Add('select * from creditor where creditor_id=:bh ;'); creditorquery.ExecSQL; creditorquery.Open; qrlabel1.Caption:=bhcombobox.Text +'贷款人的基本信息清单' qrlabel1.Font.Size:=16; quickrep1.Preview; creditorquery.Close; bhcombobox.Text:='' bhcombobox.SetFocus; bhcombobox.Focused; end; 20 第五章第五章 借贷管理系统测试及运行借贷管理系统测试及运行 5.15.1 系统测试系统测试 测试过程按 4 个步骤进行，即单元测试、集成测试、确认测试和系统