Delphi金融借贷管理系统

1、摘摘 要要 金融借贷管理系统是各种投资咨询领域的基础，是进行各种金融操作的枢纽， 贷款人和银行双方通过借贷管理系统，对各种信息进行管理，都表现在对客户登记， 客户回防，审批进度，贷后管理，员工管理等信息的添加，删除，修改，查询，打印 的操作上。因此，借贷管理系统质量的好坏直接影响到借贷双方的利益，必须提高借 贷管理系统的质量。 通过对系统的分析，本系统采用了著名的 Borland 公司的 Delphi 可视化软件 开发工具，利用其提供的各种各样的可视化的开发工具，主要实现了客户登记，客户 回防，审批进度，贷后管理，员工管理这五个功能模块，通过对各个功能模块的不断 检测，修正和改进直到能够满足借

2、贷双方的需求，达到操作过程中的简洁，直观，方 便，实用，稳定等要求。重要的是，本系统也是典型的信息管理系统（MIS），本软 件采用纯 Delphi 技术，充分发挥了 Delphi 的适应于多种数据库结构，从客户机服 务机模式到多层数据结构模式；高效率的数据库管理系统和新一代更先进的数据库引 擎；最新的数据分析手段和提供大量的企业组件等特点。总之，本系统设计开发的过 程，是对 Delphi 应用基础的实践和检验，也是对我们所学专业知识的具体应用和全 面提高。 关键词关键词：Delphi 控件 借贷管理系统 可视化工具 目目 录录 摘 要.I 关键词：DELPHI 控件 借贷管理系统 可视化工具.

3、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 （

4、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 交费信息

5、(charge)：.7 3.3.11 评估公司信息(evaluater)：.7 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 业务类界面设计：.

6、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.11.1 设计思想设计思想 本系统的选题是借

7、贷管理系统，是针对现行较多的投资公司对借贷关系的 管理而开发的，对该系统设计的指导思想是“清晰第一，效率第二” ，一切方便用户， 为每个操作者尽可能的提供方便，快捷，美观，稳定的软件，不仅如此还要有很好的 容错性能，能够与用户进行及时的对话，当出现错误操作时能及时提出警告，方便用 户进行及时地改正。针对本软件的操作领域，还应兼备良好的保密性能。 具体表现为： （1）系统得符合借贷管理公司的规定，满足借贷管理公司员工的日常使用需求， 达到操作过程中的直观，方便，实用安全等要求； （2）系统具有数据库管理系统功能，能够通过对用户需求转化为信息添加到数 据库，并且对其进行查询，修改，删除，打印等一系

8、列的操作。 （3）系统采用了模块化的程序设计方法，有利于各个功能模块的组合和修改， 也便于后期维护人员的补充和维护。 1.21.2 本课题的研究意义本课题的研究意义 通过该借贷管理系统能够使金融投资公司的信息管理工作条理化，规范化，自 动化，方便化，安全化，以致提高信息管理工作的效率，使工作人员能够便捷的完成 各项任务。 1.31.3 系统设计目的系统设计目的 能够及时并准确的录入和操作借贷双方各种信息情况，建立和完善借贷管理系统， 利用信息技术手段，应该大力提高管理系统的执行效率。 1.41.4 开发和运行环境选择开发和运行环境选择 开发工具:Delphi7 运行环境: WindowsNT

9、或 Windows2000、XP 第二章第二章 DELPHI 技术简介技术简介 2.12.1 DELPHIDELPHI 的产生和发展的产生和发展 Delphi 是著名的 Borland（现在已和 Inprise 合并）公司开发的可视化软件开发 工具。 “真正的程序员用 c，聪明的程序员用 Delphi” ，这句话是对 Delphi 最经典、最 实在的描述。Delphi 被称为第四代编程语言，它具有简单、高效、功能强大的特点。 和 VC 相比，Delphi 更简单、更易于掌握，而在功能上却丝毫不逊色；和 VB 相比， Delphi 则功能更强大、更实用。可以说 Delphi 同时兼备了 VC 功

10、能强大和 VB 简单易学 的特点。它一直是程序员至爱的编程工具。在 Delphi 众多的优势当中，它在数据库方 面的特长显得尤为突出：适应于多种数据库结构，从客户机服务机模式到多层数据结 构模式；高效率的数据库管理系统和新一代更先进的数据库引擎；最新的数据分析手段 和提供大量的企业组件。Delphi 发展至今，从 Delphi、Delphi到现在的 Delphi7，不断添加和改进各种特性，功能越来越强大。Delphi7 添加了对 IDE（集成开 发环境）的很多改进新特性，扩展了数据库支持（ADO 和 InterBase 数据库） ，带有 Internet 支持的 MIDAS 改进版，TeamS

11、ouse 版本控制工具，转换功能，框架概念以及很 多的新组件与新特性。 2.22.2 DELPHIDELPHI 的特点的特点 DELPHIDELPHI 的语言特性的语言特性 Delphi 具有以下的特性：基于窗体和面向对象的方法，高速的编译器，强大的数 据库支持，与 Windows 编程紧密结合，强大而成熟的组件技术。但最重要的还是 Object Pascal 语言，它才是一切的根本。 Object Pascal 语言是在 Pascal 语言的基础上发展 起来的，简单易学。Delphi 提供了各种开发工具，包括集成环境、图像编辑（Image Editor） ，以及各种开发数据库的应用程序，如

12、DesktopDataBase Expert 等。除此之外， 还允许用户挂接其它的应用程序开发工具，如 Borland 公司的资源编辑器（Resourse Workshop） 。面向对象的程序设计(Object-Oriented Programming，简记为 OOP)是 Delphi 诞生的基础。OOP 立意于创建软件重用代码，具备更好地模拟现实世界环境的能 力，这使它被公认为是自上而下编程的优胜者。它通过给程序中加入扩展语句，把函数 “封装”进 Windows 编程所必需的“对象”中。面向对象的编程语言使得复杂的工作条 理清晰、编写容易。说它是一场革命，不是对对象本身而言，而是对它们处理工

13、作的能 力而言。对象并不与传统程序设计和编程方法兼容，只是部分面向对象反而会使情形更 糟。除非整个开发环境都是面向对象的，否则对象产生的好处还没有带来的麻烦多。而 Delphi 是完全面向对象的，这就使得 Delphi 成为一种触手可及的促进软件重用的开发工 具，从而具有强大的吸引力。 一些早期的具有 OOP 性能的程序语言如 C+,Pascal,Smalltalk 等，虽然具有面向对象的特征，但不能轻松地画出可视化对象， 与用户交互能力较差，程序员仍然要编写大量的代码。Delphi 的推出，填补了这项空白。 您不必自己建立对象，只要在提供的程序框架中加入完成功能的代码，其余的都交给 Delp

14、hi 去做。欲生成漂亮的界面和结构良好的程序丝毫不必绞尽脑汁，Delphi 将帮助您 轻松地完成。它允许在一个具有真正 OOP 扩展的可视化编程环境中，使用它的 Object Pascal 语言。这种革命性的组合，使得可视化编程与面向对象的开发框架紧密地结合起 来。 第三章第三章 借贷管理系统分析借贷管理系统分析 3.13.1 金融投资公司工作过程描述金融投资公司工作过程描述 客户到金融投资公司申请贷款资金，主要有客户登记，客户回访，审批进度，贷 后管理等工作流程。 （1）客户登记： 每个客户到金融投资公司申请贷款资金，必须经过客户登记，它必须填写大量的 客户信息：1.贷款人基本信息 2.贷款

15、人单位基本信息 3.贷款人单位商铺信息 4.联系人 基本信息 5.联系人电话记录信息 6.联系信息 7.抵押土地信息 8.抵押住房信息 而投资公司也给每个客户相应的信息。 （2）客户回访： 投资公司对已经贷了款的客户，必须定期对其进行回访。在这个阶段，投资公司 要对相应的回访信息进行添加，查询，修改，删除等操作。 （3）审批进度： 在这个阶段，投资公司必须对客户进行定期的评估。而评估还需要指定的评估公 司进行评估，待评估公司对贷款客户评估完后，填写相应的评估信息和考察信息，如果 需要还要添加相应的补充材料信息。 （4）贷后管理： 在贷款之后的相关信息都要在贷后管理中进行操作，这些信息有：还款方

16、式，月 息，月还款额，固定提醒时间，提醒员，提醒日期等相关信息。 3.23.2 借贷管理系统需求分析借贷管理系统需求分析 .1 编写目的：编写目的： 需求分析，不仅仅是拿到客户的需求，更重要的是还需进行分析，了解细节，并 就细节跟客户咨询，获取最详细的资料。客户所能提供给你的只是他们想到的功能需求， 很多问题并不在他们考虑的范围之内，如果作为项目承担方没有去做分析，简单的按照 功能要求去设计、规划，最终出来的系统是很难完全符合客户的业务流程的，这时，自 然需要更改，被看成了需求的更改。其实，都是缺乏分析所一手造成的。问题等到系统 出来了才被发现，这样的系统本身就是先天不足的了。

17、 本说明书将全面描述本系统的各种功能、运行环境，使用户和开发者双方对本系 统的初始规定有一个共同的理解，使之成为整个开发工作的基础。 .2 功能结构：功能结构： 本系统的主要工作是客户登记，客户回访，审批进度，贷后管理等功能模块。 借贷管借贷管 理系统理系统 客户登记客户登记客户回访客户回访审批进度审批进度贷后管理贷后管理 贷款人基本信息贷款人基本信息 贷款人单位信息贷款人单位信息 联系信息联系信息 抵押信息抵押信息 回访信息回访信息 回访记录回访记录 评估管理评估管理 交费信息交费信息 考察信息考察信息 补充材料信息补充材料信息 贷后还款信息贷后还款信息 贷款信息贷款信息 3

18、. 功能实现：功能实现： （1）客户登记： 1.贷款人基本信息管理：主要是对贷款人基本的一些资料进行管理，给出客户 一个贷款人编号，这个是唯一的，以后的管理都要通过这个编号来进行。同时要输入贷 款人的姓名，出生日期，户籍，贷款额，贷款年限，贷款用途，单位名称。公司会给出 推荐贷款方案，联系编号和银行编号。联系编号是用来查询联系记录的信息。 2.贷款人单位基本信息管理：通过贷款人基本信息里的单位名称来输入单位信息， 有经营行业，公司性质；通过单位名称来查询单位基本信息，删除和打印信息。 3.贷款人单位商铺信息管理：通过单位名称输入必要的贷款人单位商铺的信息， 那信息有商铺名称，商

19、铺地点，摊位号，商铺性质，租赁期限。 4.联系人基本信息管理：通过贷款人编号来添加联系人编号和姓名，联系人编号 是联系人的凭证，也是唯一的，根据它来进行查询联系人基本信息。 5.联系人电话记录信息管理：主要是记录联系人与借贷公司的联系记录：联系电 话，来电时间，联系人编号。 6.联系信息管理：管理的信息有：接线员编号，值班员编号，派单员编号，客户 经理编号，客源。 7.抵押土地信息管理：按照贷款人编号来管理的抵押的土地信息，其中包括土地 位置，土地性质，产权性质，抵押人年龄，抵借关系。 8.抵押住房信息管理：同上也是按照贷款人编号来管理抵押住房信息，其中包括 抵押房产地址，房产价值，房产权性质

20、，抵押比率，房产面积，房龄，房产用途。 （2）客户回访： 1.客户记录管理：按照贷款人编号来添加回访记录：回访编号，回访员编号，回 访时间。 2.回访信息管理：通过贷款人编号来查询回访编号，通过回访编号和贷款人编号 两个编号来查询回访内容，对其进行管理。 （3）审批进度： 1.评估公司信息管理：评估公司的一些基本信息的管理，通过贷款人编号录入评 估公司名称，评估公司电话，评估公司地址。 2.评估信息管理：凭借贷款人编号和评估公司名称来对其进行管理，管理的信息 包括评估值，评估日期，报件日期，审批单元，送件员编号。 3.考察信息管理：借贷公司要对贷款人进行考察，考察后的信息要进行管理，也 必须通

21、过贷款人编号来进行管理考察信息，还包括有考察编号，考察时间，陪同考察员。 4.补充材料信息管理：有时需要添加点补充材料，通过贷款人编号管理补充材料 编号，补充材料日期，上级审批时间，补充材料内容。 5.交费信息管理：对交费信息（贷款人编号，交费编号，交费日期，交费额度） 进行管理。 6.银行信息管理：借贷公司是贷款人和银行的中介，所以对银行信息要进行大量 管理。 7.贷款信息管理：是审批进度中重要的环节，其内容包括有贷款人编号，银行编 号，申请贷款额，申请贷款期限，放款日期，放款额度，到期日期，互清和经办人。 （4）贷后管理： 1.贷后还款信息管理：对已经申请下来的贷款人要对贷款进行定期的偿还

22、，而如 何偿还则需要管理，要管理的内容有贷款人编号，还款编号，还款方式，月息，月还款 额，固定提醒时间，提醒员编号，提醒日期。 （5）员工管理： 1.对借贷公司员工进行信息管理。 3.33.3 借贷管理系统数据库设计借贷管理系统数据库设计 这里包括十九个数据表如下： .1 贷款人基本信息（贷款人基本信息（creditorcreditor）：）： 贷款人编号 creditor_id，姓名 creditor_name，出生日期 birthday，户籍 door，贷 款额 credit_money，贷款年限 credit_time，贷款用途 credit_use，推荐贷款方案 cre

23、dit_way，单位名称 dp_name .2 联系人基本信息（联系人基本信息（linkmanlinkman）：）： 联系人编号 lman_id，姓名 lman_name，贷款人编号 creditor_id .3 联系人电话记录信息联系人电话记录信息(phonerecord)(phonerecord)： 联系电话 phone，来电时间 ph_time，联系人编号 lman_id .4 贷款人单位信息贷款人单位信息(department)(department)： 单位名称 dp_name，经营行业 working，公司性质 dp_kind 3.3

24、.53.3.5 单位商铺信息单位商铺信息(store)(store)： 商铺名称 store_name，商铺地点 store_place，摊位号 stall，商铺性质 store_kind，租赁期限 leasehold，单位名称 dp_name .6 抵押土地信息抵押土地信息(morfield)(morfield)： 位置 mf_position，土地性质 mf_kind，产权性质 mfright_kind，抵押人年龄 morer_age，抵借关系 dijie，贷款人编号 creditor_id .7 联系信息联系信息(connection)(connectio

25、n)： 联系编号 link_id，接线员编号 operator_id，值班员编号 duty_id，派单员编号 sender_id，客户经理编号 clientm_id，客源 root .8 回访记录回访记录(revertrecord)(revertrecord)： 回访编号 rt_id，回访员编号 revertor_id，回访时间 rt_time，贷款人编号 creditor_id .9 回访信息回访信息(revert)(revert)： 贷款人编号 creditor_id，回访编号 rt_id，回访内容 rt_content .10 交费信息交

26、费信息(charge)(charge)： 交费编号 charge_id，交费日期 charge_date，交费额度 charge_money，贷款人编号 creditor_id .11 评估公司信息评估公司信息(evaluater)(evaluater)： 评估公司名称 evaluate_name，评估公司电话 evaluate_phone，评估公司地址 evaluate_address,贷款人编号 creditor_id .12 评估信息评估信息(evaluating)(evaluating)： 贷款人编号 creditor_id，评估公司名称 evalu

27、ate_name，评估值 opinion，评估日 期 evaluate_date，报件日期 filedate，审批单元 exam，送件员编号 filesender_id .13 补充材料信息补充材料信息(addfile)(addfile)： 补充材料编号 addfile_id，补充材料内容 addfile_content，补充材料日期 addfiledate，上级审批时间 examdate，贷款人编号 creditor_id .14 考察信息考察信息(examination)(examination)： 考察编号 exam_id，考察时间 examtime，

28、陪同考察员 peitongexamer，贷款人编号 creditor_id .15 抵押住房信息抵押住房信息(morhouse)(morhouse)： 抵押房产地址 address，房产价值 mh_valuate，房产权性质 mh_rightkind，抵押比 率 morrate，房产面积 mh_area，房龄 mh_age，房产用途 mh_use，贷款人编号 creditor_id .16 银行信息银行信息(bank)(bank)： 银行编号 bank_id，a 银行名称 bank_name .17 贷款信息贷款信息(credit)(cre

29、dit)： 贷款人编号 creditor_id，银行编号 bank_id，申请贷款额 apply_money，申请贷款 期限 apply_term，放款日期 loan_date，放款额度 loan_money，到期日期 term，互清 huqing，a 经办人 jingbanren .18 还款信息还款信息(repay)(repay)： 还款编号 repay_id，还款方式 repay_way，月息 mon_interest，月还款额 mon_repaymoney，固定提醒时间 fixed_awaketime，提醒员编号 awaker_id，提醒日期 awake_date，贷

30、款人编号 creditor_id .19 员工信息员工信息(worker)(worker)： 员工编号 worker_id，员工姓名 worker_name，员工性别 worker_sex，员工年龄 worker_age，员工籍贯 worker_jiguan，员工电话 worker_phone，备注 beizhu 第四章第四章 借贷管理系统设计借贷管理系统设计 4.14.1 借贷管理系统界面设计借贷管理系统界面设计 .1 主界面设计主界面设计 ： .2 业务类界面设计：业务类界面设计： （1）添加信息界面： （2）查询信息界面： （3）删除信息

31、界面： （4）打印信息界面： （5）关于界面： 4.24.2 借贷管理系统代码设计借贷管理系统代码设计 本借贷管理系统采用的是 DELPHI 技术开发的，主要用到了添加，查询，修改， 删除和打印的基本程序所构成的，下面是取了贷款人基本信息管理为代表来书写的主要 代码。 .1 添加过程代码：添加过程代码： procedure TadddaikuanrenForm.Button1Click(Sender: TObject); var mycount:integer; begin if length(dkrbhedit.Text )=0 then begin messagebeep(

32、1); showmessage(请输入贷款人编号); dkrbhedit.SetFocus; dkrbhedit.Focused; 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(se

33、lect * 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; d

34、kytedit.Clear; tjdkfaedit.Clear; dwmcedit.Clear; dkrbhedit.SetFocus; dkrbhedit.Focused; end else begin daikuanrenquery.Close; daikuanrenquery.SQL.Clear; daikuanrenquery.Params.Clear; daikuanrenquery.Params.CreateParam(ftstring,dkrbh,ptinput).AsString:=dkrbh edit.Text; daikuanrenquery.Params.CreatePa

35、ram(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

36、; 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(ftstrin

37、g,dwmc,ptinput).AsString:=dwmced 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;

38、dknxedit.Clear; dkytedit.Clear; tjdkfaedit.Clear; dwmcedit.Clear; dkrbhedit.SetFocus; dkrbhedit.Focused; dkrbhedit.SetFocus; dkrbhedit.Focused; end; end; end; .2 查询过程代码：查询过程代码： procedure TchaxundaikuanrenForm.Button3Click(Sender: TObject); begin daikuanrenquery.Close; daikuanrenquery.SQL.Cle

39、ar; daikuanrenquery.Params.Clear; daikuanrenquery.Params.CreateParam(ftstring,dkrbh,ptinput).AsString:=dkrbh combobox.Text; daikuanrenquery.SQL.Add(select * from creditor where creditor_id=:dkrbh;); daikuanrenquery.ExecSQL; daikuanrenquery.Open; dkrxmedit.Text:=daikuanrenquerycreditor_name.Value; cs

40、rqedit.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:=daiku

41、anrenquerydp_name.Value; daikuanrenquery.Close; dkrbhcombobox.SetFocus; dkrbhcombobox.Focused; end; .3 修改过程代码：修改过程代码： procedure TchaxundaikuanrenForm.Button1Click(Sender: TObject); begin daikuanrenquery.Close; daikuanrenquery.SQL.Clear; daikuanrenquery.Params.Clear; daikuanrenquery.Params.Cr

42、eateParam(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; daikuanrenquery.Params.CreateParam(ftstring,hj,ptinput).AsString:

43、=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

44、(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,

45、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; dkytedit.Clear; tjdkfaedit.Clear; dwmcedit.Clear; dkrbhcombobox.SetFocus;

46、 dkrbhcombobox.Focused; end; .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 combo

47、box.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,daiku

48、anrentablecreditor_id.Value ); daikuanrentable.Next; i:=i+1; end; daikuanrentable.Close; dkrbhcombobox.SetFocus; dkrbhcombobox.Focused; end; .5 打印过程代码：打印过程代码： procedure TdayindaikuanrenForm.Button1Click(Sender: TObject); begin creditorquery.Close; creditorquery.Params.Clear; creditorquery.SQ

49、L.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; credi

50、torquery.Close; bhcombobox.Text:=; bhcombobox.SetFocus; bhcombobox.Focused; end; 第五章第五章 借贷管理系统测试及运行借贷管理系统测试及运行 5.15.1 系统测试系统测试 测试过程按 4 个步骤进行，即单元测试、集成测试、确认测试和系统测试及发版 测试。 开始是单元测试，集中对用源代码实现的每一个程序单元进行测试，检查各个程 序模块是否正确地实现了规定的功能。 集成测试把已测试过的模块组装起来，主要对与设计相关的软件体系结构的构造 进行测试。 确认测试则是要检查已实现的软件是否满足了需求规格说明中确定了的各种需求

51、， 以及软件配置是否完全、正确。 系统测试把已经经过确认的软件纳入实际运行环境中，与其它系统成份组合在一 起进行测试。 5.25.2 系统运行系统运行 双击金融借贷管理系统快捷键启动本系统，立即看见本系统启动界面，过了三秒 钟后便进入本系统的主界面-金融借贷管理系统，此时便可以对你所要管理的信息进行 添加，查询，修改，删除和打印等操作了。 第六章：结论与展望第六章：结论与展望 6.16.1 小结小结 DELPHI 从诞生到现在的发展壮大，经历了相当长的一段时间，从 DELPHI1，DELPHI2，一直到今天的 DELPHI7 已经是越来越强大起来，通过人们的不断对 其了解，熟知和不断的深入，我

52、想 DELPHI 定会像其他先进的技术一样矗立于软件行业 之巅。而通过这次的毕业设计，使我对 DELPHI 有了更多的兴趣和了解，我将继续对其 进行不断探究，深入，为以后能够开发更好更方便的软件而努力着。 6.26.2 展望展望 一个 Turbo Pascal 和 Delphi 的时代已经过去了，但是一个伟大技术，一个伟大 的社区，一个新 Delphi 公司将带领 Delphi 来到了新时代。新时代的 Delphi 将是 什么样的呢？ 面向更多平台面向更多平台 在未来的 10 年，delphi 需要面向更多的平台，例如：64 位，Avalon，PockPC 等这些 无疑是非常吸引人的，同时新的

53、 MacIntel，Firefox 浏览器平台，Linux 服务器平台 等等 ，R&D 应该更好的观察发生在周围的一切，然后比以往更快的将适合的技术整合 到 Delphi 中。 更好的面向更好的面向 WebWeb Delphi 应该有自己的 Web 开发策略而不是跟着微软的 ASP.NET 。例如 WebBroker ，AJAX-precursor，这些都是目前最好的 Web 技术，你可以在 Ruby on Rails 和 ASP.NET 之外有更多的选择。 更加开放更加开放 一个公司不能完全依靠自己，应该与其它的公司和社区建立同盟，但是这并不是意味 着 delphi 一定要开源，而是变成一个

54、开放的平台兼容更多的技术，虽然跟随着微软很 不错，但是在我们周围同样很多其它优秀的技术（Mono，AJAX，Google 和 Amazon Web 服务平台等等）。 更好的连通性更好的连通性 像，Jbuilder， DelphiIDE 应该能与本地和异地的 Jbuilder，Delphi IDE 有更好的 连通性，无论我在什么地方都应该可以方便的看到开发项目的源代码。 更加集成的软件更加集成的软件 Delphi 已经开始融入来自开源社区的部分，这是一个很好的方向。例如 Context Editor 邦定到 Delphi，以及 Beyond Compare 等更多的组件邦定到 Delphi 中，

55、但是 还需要做的更多。 更多的订阅级别更多的订阅级别 Delphi 目前仍然走着发布的销售道路，但是现在是 2006 年，应该加入 Online 的销售。 在社区中加入更多的社区订阅级别，例如：第一级，可以得到基本的工具和免费的新 闻组合，第二级，可以得到电子书和视频培训等等，第三级，可以得到单独的订阅者 培训，第四级，可以为公司提供更多的许可以及更多的扩展组件和咨询服务。 谢谢 辞辞 俗话说得好“一个篱笆三个桩，一个好汉三个帮” ，一个人的成功不代表着是一 个人的功劳。我能够完成这篇论文，光靠我自己的力量是远远不够的，应该说它是许多 人共同完成的。在这里我要由衷感谢我们学校的丁兆海丁老师，丁

56、老师是我班 DELPHI 课程的主讲老师，他学识广博，对 DELPHI 的教学已经有十多年的经验了，可以说在 DELPHI 这门学科已经是相当透彻了，同时他治学也相当的严谨，不允许同学犯低级的 错误，更不允许同学犯同样的错误，正是在他这样的严厉的治学态度下，我们的 DELPHI 学得还算可以。就这样我还经常打扰老师的休息时间，请教老师低级问题，可 老师总是耐心教我，真是让我受益匪浅，所以在这我要再次感谢丁老师，也希望您继续 努力培养出更优秀的学生来。 与此同时，我还要感谢王秀红老师，王老师是我班的 JAVA 和.NET 的两门专业课 的授课老师，在和她的两个学期的相处过程中真的是得到了不小的收

57、获，她不仅仅是我 们的老师更是我们的好朋友，有很多话我们可以交谈，她也很乐意聆听，真是我们的良 师益友，她教会我们更多的是课本以外许多的知识，就这个项目也是她给我推荐的，所 以正是有了王老师的帮忙，才有了现在这个金融借贷管理系统，所以我要感谢王秀红老 师。 还有就是要感谢赛煜老师，赛老师是曾经教过我们 C 语言和软件工程的。赛老师 她专业知识很渊博治学也严谨，是她让我对语言类得到深刻了解，让我们养成良好的编 程习惯，也正是她授课软件工程，才让我们更深刻的了解了软件开发的主要流程，才有 了今天我的软件的模样，真的很感谢她。 最后我还要感谢的是带领我们班完成三年大学生活的辅导员李娟老师，李老师真 的是一名责任心很强的辅导员，这三年来