《毕业设计论文Delphi金融借贷管理系统.doc》由会员分享，可在线阅读，更多相关《毕业设计论文Delphi金融借贷管理系统.doc（28页珍藏版）》请在三一办公上搜索。
1、摘 要金融借贷管理系统是各种投资咨询领域的基础，是进行各种金融操作的枢纽，贷款人和银行双方通过借贷管理系统，对各种信息进行管理，都表现在对客户登记，客户回防，审批进度，贷后管理，员工管理等信息的添加，删除，修改，查询，打印的操作上。因此，借贷管理系统质量的好坏直接影响到借贷双方的利益，必须提高借贷管理系统的质量。通过对系统的分析，本系统采用了著名的Borland公司的Delphi可视化软件开发工具，利用其提供的各种各样的可视化的开发工具，主要实现了客户登记，客户回防，审批进度，贷后管理，员工管理这五个功能模块，通过对各个功能模块的不断检测，修正和改进直到能够满足借贷双方的需求，达到操作过程中的
2、简洁，直观，方便，实用，稳定等要求。重要的是，本系统也是典型的信息管理系统（MIS），本软件采用纯Delphi技术，充分发挥了Delphi的适应于多种数据库结构，从客户机服务机模式到多层数据结构模式；高效率的数据库管理系统和新一代更先进的数据库引擎；最新的数据分析手段和提供大量的企业组件等特点。总之，本系统设计开发的过程，是对Delphi应用基础的实践和检验，也是对我们所学专业知识的具体应用和全面提高。关键词：Delphi 控件 借贷管理系统 可视化工具目 录摘 要I关键词：DELPHI 控件 借贷管理系统 可视化工具I第一章 引 言11.1 设计思想11.2 本课题的研究意义11.3 系统设
3、计目的11.4 开发和运行环境选择1第二章 DELPHI技术简介12.1 DELPHI的产生和发展12.2 DELPHI的特点DELPHI的语言特性1第三章借贷管理系统分析33.1金融投资公司工作过程描述3（1）客户登记：3（2）客户回访：3（3）审批进度：3（4）贷后管理：33.2借贷管理系统需求分析33.2.1编写目的：33.2.2功能结构：43.2.3功能实现：5（1）客户登记：5（2）客户回访：5（3）审批进度：6（4）贷后管理：6（5）员工管理：63.3借贷管理系统数据库设计63.3.1贷款人基本信息（creditor）：63.3.2联系人基本信息（linkman）：73.3.3联系
4、人电话记录信息(phonerecord)：73.3.4贷款人单位信息(department)：73.3.5单位商铺信息(store)：73.3.6抵押土地信息(morfield)：73.3.7联系信息(connection)：73.3.8回访记录(revertrecord)：73.3.9回访信息(revert)：73.3.10交费信息(charge)：73.3.11评估公司信息(evaluater)：73.3.12评估信息(evaluating)：73.3.13补充材料信息(addfile)：83.3.14考察信息(examination)：83.3.15抵押住房信息(morhouse)：83
5、.3.16银行信息(bank)：83.3.17贷款信息(credit)：83.3.18还款信息(repay)：83.3.19员工信息(worker)：8第四章借贷管理系统设计94.1借贷管理系统界面设计94.1.1主界面设计：94.1.2业务类界面设计：9（1）添加信息界面：9（2）查询信息界面：10（3）删除信息界面：11（4）打印信息界面：11（5）关于界面：124.2借贷管理系统代码设计124.2.1添加过程代码：124.2.2查询过程代码：154.2.3修改过程代码：164.2.4删除过程代码：184.2.5打印过程代码：19第五章 借贷管理系统测试及运行205.1系统测试205.2系
6、统运行20第六章：结论与展望216.1小结216.2展望21谢 辞23参考文献24III第一章 引 言1.1 设计思想本系统的选题是借贷管理系统，是针对现行较多的投资公司对借贷关系的管理而开发的，对该系统设计的指导思想是“清晰第一，效率第二”，一切方便用户，为每个操作者尽可能的提供方便，快捷，美观，稳定的软件，不仅如此还要有很好的容错性能，能够与用户进行及时的对话，当出现错误操作时能及时提出警告，方便用户进行及时地改正。针对本软件的操作领域，还应兼备良好的保密性能。具体表现为：（1）系统得符合借贷管理公司的规定，满足借贷管理公司员工的日常使用需求，达到操作过程中的直观，方便，实用安全等要求；（
7、2）系统具有数据库管理系统功能，能够通过对用户需求转化为信息添加到数据库，并且对其进行查询，修改，删除，打印等一系列的操作。（3）系统采用了模块化的程序设计方法，有利于各个功能模块的组合和修改，也便于后期维护人员的补充和维护。1.2 本课题的研究意义通过该借贷管理系统能够使金融投资公司的信息管理工作条理化，规范化，自动化，方便化，安全化，以致提高信息管理工作的效率，使工作人员能够便捷的完成各项任务。1.3 系统设计目的能够及时并准确的录入和操作借贷双方各种信息情况，建立和完善借贷管理系统，利用信息技术手段，应该大力提高管理系统的执行效率。1.4 开发和运行环境选择开发工具:Delphi7运行环
8、境: WindowsNT或Windows2000、XP1第二章 DELPHI技术简介2.1 DELPHI的产生和发展 Delphi是著名的Borland（现在已和Inprise合并）公司开发的可视化软件开发工具。“真正的程序员用c，聪明的程序员用Delphi”，这句话是对Delphi最经典、最实在的描述。Delphi被称为第四代编程语言，它具有简单、高效、功能强大的特点。和VC相比，Delphi更简单、更易于掌握，而在功能上却丝毫不逊色；和VB相比，Delphi则功能更强大、更实用。可以说Delphi同时兼备了VC功能强大和VB简单易学的特点。它一直是程序员至爱的编程工具。在Delphi众多的
9、优势当中，它在数据库方面的特长显得尤为突出：适应于多种数据库结构，从客户机服务机模式到多层数据结构模式；高效率的数据库管理系统和新一代更先进的数据库引擎；最新的数据分析手段和提供大量的企业组件。Delphi发展至今，从Delphi、Delphi到现在的Delphi7，不断添加和改进各种特性，功能越来越强大。Delphi7添加了对IDE（集成开发环境）的很多改进新特性，扩展了数据库支持（ADO和InterBase数据库），带有Internet支持的MIDAS改进版，TeamSouse版本控制工具，转换功能，框架概念以及很多的新组件与新特性。2.2 DELPHI的特点DELPHI的语言特性 Del
10、phi具有以下的特性：基于窗体和面向对象的方法，高速的编译器，强大的数据库支持，与Windows编程紧密结合，强大而成熟的组件技术。但最重要的还是Object Pascal语言，它才是一切的根本。 Object Pascal语言是在Pascal语言的基础上发展起来的，简单易学。Delphi提供了各种开发工具，包括集成环境、图像编辑（Image Editor），以及各种开发数据库的应用程序，如DesktopDataBase Expert等。除此之外，还允许用户挂接其它的应用程序开发工具，如Borland公司的资源编辑器（Resourse Workshop）。面向对象的程序设计(Object-Or
11、iented Programming，简记为OOP)是Delphi诞生的基础。OOP立意于创建软件重用代码，具备更好地模拟现实世界环境的能力，这使它被公认为是自上而下编程的优胜者。它通过给程序中加入扩展语句，把函数“封装”进Windows编程所必需的“对象”中。面向对象的编程语言使得复杂的工作条理清晰、编写容易。说它是一场革命，不是对对象本身而言，而是对它们处理工作的能力而言。对象并不与传统程序设计和编程方法兼容，只是部分面向对象反而会使情形更糟。除非整个开发环境都是面向对象的，否则对象产生的好处还没有带来的麻烦多。而Delphi是完全面向对象的，这就使得Delphi成为一种触手可及的促进软件
12、重用的开发工具，从而具有强大的吸引力。 一些早期的具有OOP性能的程序语言如C+,Pascal,Smalltalk等，虽然具有面向对象的特征，但不能轻松地画出可视化对象，与用户交互能力较差，程序员仍然要编写大量的代码。Delphi的推出，填补了这项空白。您不必自己建立对象，只要在提供的程序框架中加入完成功能的代码，其余的都交给Delphi去做。欲生成漂亮的界面和结构良好的程序丝毫不必绞尽脑汁，Delphi将帮助您轻松地完成。它允许在一个具有真正OOP扩展的可视化编程环境中，使用它的Object Pascal语言。这种革命性的组合，使得可视化编程与面向对象的开发框架紧密地结合起来。第三章借贷管理
13、系统分析3.1金融投资公司工作过程描述客户到金融投资公司申请贷款资金，主要有客户登记，客户回访，审批进度，贷后管理等工作流程。（1）客户登记：每个客户到金融投资公司申请贷款资金，必须经过客户登记，它必须填写大量的客户信息：1.贷款人基本信息2.贷款人单位基本信息3.贷款人单位商铺信息4.联系人基本信息5.联系人电话记录信息6.联系信息7.抵押土地信息8.抵押住房信息而投资公司也给每个客户相应的信息。（2）客户回访：投资公司对已经贷了款的客户，必须定期对其进行回访。在这个阶段，投资公司要对相应的回访信息进行添加，查询，修改，删除等操作。（3）审批进度：在这个阶段，投资公司必须对客户进行定期的评估
14、。而评估还需要指定的评估公司进行评估，待评估公司对贷款客户评估完后，填写相应的评估信息和考察信息，如果需要还要添加相应的补充材料信息。（4）贷后管理：在贷款之后的相关信息都要在贷后管理中进行操作，这些信息有：还款方式，月息，月还款额，固定提醒时间，提醒员，提醒日期等相关信息。3.2借贷管理系统需求分析3.2.1编写目的：需求分析，不仅仅是拿到客户的需求，更重要的是还需进行分析，了解细节，并就细节跟客户咨询，获取最详细的资料。客户所能提供给你的只是他们想到的功能需求，很多问题并不在他们考虑的范围之内，如果作为项目承担方没有去做分析，简单的按照功能要求去设计、规划，最终出来的系统是很难完全符合客户
15、的业务流程的，这时，自然需要更改，被看成了需求的更改。其实，都是缺乏分析所一手造成的。问题等到系统出来了才被发现，这样的系统本身就是先天不足的了。本说明书将全面描述本系统的各种功能、运行环境，使用户和开发者双方对本系统的初始规定有一个共同的理解，使之成为整个开发工作的基础。3.2.2功能结构： 本系统的主要工作是客户登记，客户回访，审批进度，贷后管理等功能模块。借贷管理系统客户登记客户回访审批进度贷后管理贷款人基本信息贷款人单位信息联系信息抵押信息回访信息回访记录评估管理交费信息考察信息补充材料信息贷后还款信息贷款信息3.2.3功能实现：（1）客户登记： 1.贷款人基本信息管理：主要是对贷款人
16、基本的一些资料进行管理，给出客户一个贷款人编号，这个是唯一的，以后的管理都要通过这个编号来进行。同时要输入贷款人的姓名，出生日期，户籍，贷款额，贷款年限，贷款用途，单位名称。公司会给出推荐贷款方案，联系编号和银行编号。联系编号是用来查询联系记录的信息。2.贷款人单位基本信息管理：通过贷款人基本信息里的单位名称来输入单位信息，有经营行业，公司性质；通过单位名称来查询单位基本信息，删除和打印信息。3.贷款人单位商铺信息管理：通过单位名称输入必要的贷款人单位商铺的信息，那信息有商铺名称，商铺地点，摊位号，商铺性质，租赁期限。4.联系人基本信息管理：通过贷款人编号来添加联系人编号和姓名，联系人编号是联
17、系人的凭证，也是唯一的，根据它来进行查询联系人基本信息。5.联系人电话记录信息管理：主要是记录联系人与借贷公司的联系记录：联系电话，来电时间，联系人编号。6.联系信息管理：管理的信息有：接线员编号，值班员编号，派单员编号，客户经理编号，客源。7.抵押土地信息管理：按照贷款人编号来管理的抵押的土地信息，其中包括土地位置，土地性质，产权性质，抵押人年龄，抵借关系。8.抵押住房信息管理：同上也是按照贷款人编号来管理抵押住房信息，其中包括抵押房产地址，房产价值，房产权性质，抵押比率，房产面积，房龄，房产用途。 （2）客户回访：1.客户记录管理：按照贷款人编号来添加回访记录：回访编号，回访员编号，回访时
18、间。2.回访信息管理：通过贷款人编号来查询回访编号，通过回访编号和贷款人编号两个编号来查询回访内容，对其进行管理。（3）审批进度：1.评估公司信息管理：评估公司的一些基本信息的管理，通过贷款人编号录入评估公司名称，评估公司电话，评估公司地址。2.评估信息管理：凭借贷款人编号和评估公司名称来对其进行管理，管理的信息包括评估值，评估日期，报件日期，审批单元，送件员编号。3.考察信息管理：借贷公司要对贷款人进行考察，考察后的信息要进行管理，也必须通过贷款人编号来进行管理考察信息，还包括有考察编号，考察时间，陪同考察员。4.补充材料信息管理：有时需要添加点补充材料，通过贷款人编号管理补充材料编号，补充
19、材料日期，上级审批时间，补充材料内容。5.交费信息管理：对交费信息（贷款人编号，交费编号，交费日期，交费额度）进行管理。6.银行信息管理：借贷公司是贷款人和银行的中介，所以对银行信息要进行大量管理。7.贷款信息管理：是审批进度中重要的环节，其内容包括有贷款人编号，银行编号，申请贷款额，申请贷款期限，放款日期，放款额度，到期日期，互清和经办人。（4）贷后管理：1.贷后还款信息管理：对已经申请下来的贷款人要对贷款进行定期的偿还，而如何偿还则需要管理，要管理的内容有贷款人编号，还款编号，还款方式，月息，月还款额，固定提醒时间，提醒员编号，提醒日期。（5）员工管理：1.对借贷公司员工进行信息管理。3.
20、3借贷管理系统数据库设计 这里包括十九个数据表如下：3.3.1贷款人基本信息（creditor）：贷款人编号creditor_id，姓名creditor_name，出生日期birthday，户籍door，贷款额credit_money，贷款年限credit_time，贷款用途credit_use，推荐贷款方案credit_way，单位名称dp_name3.3.2联系人基本信息（linkman）：联系人编号lman_id，姓名lman_name，贷款人编号creditor_id3.3.3联系人电话记录信息(phonerecord)：联系电话phone，来电时间ph_time，联系人编号lman_
21、id3.3.4贷款人单位信息(department)：单位名称dp_name，经营行业working，公司性质dp_kind3.3.5单位商铺信息(store)：商铺名称store_name，商铺地点store_place，摊位号stall，商铺性质store_kind，租赁期限leasehold，单位名称dp_name3.3.6抵押土地信息(morfield)：位置mf_position，土地性质mf_kind，产权性质mfright_kind，抵押人年龄morer_age，抵借关系dijie，贷款人编号creditor_id3.3.7联系信息(connection)：联系编号link_id
22、，接线员编号operator_id，值班员编号duty_id，派单员编号sender_id，客户经理编号clientm_id，客源root3.3.8回访记录(revertrecord)：回访编号rt_id，回访员编号revertor_id，回访时间rt_time，贷款人编号creditor_id3.3.9回访信息(revert)：贷款人编号creditor_id，回访编号rt_id，回访内容rt_content3.3.10交费信息(charge)：交费编号charge_id，交费日期charge_date，交费额度charge_money，贷款人编号creditor_id3.3.11评估公司信
23、息(evaluater)：评估公司名称evaluate_name，评估公司电话evaluate_phone，评估公司地址evaluate_address,贷款人编号 creditor_id3.3.12评估信息(evaluating)：贷款人编号creditor_id，评估公司名称evaluate_name，评估值opinion，评估日期evaluate_date，报件日期filedate，审批单元exam，送件员编号filesender_id3.3.13补充材料信息(addfile)：补充材料编号addfile_id，补充材料内容addfile_content，补充材料日期addfiledat
24、e，上级审批时间examdate，贷款人编号creditor_id3.3.14考察信息(examination)：考察编号exam_id，考察时间examtime，陪同考察员peitongexamer，贷款人编号creditor_id3.3.15抵押住房信息(morhouse)：抵押房产地址address，房产价值mh_valuate，房产权性质mh_rightkind，抵押比率morrate，房产面积mh_area，房龄mh_age，房产用途mh_use，贷款人编号creditor_id3.3.16银行信息(bank)：银行编号bank_id，a银行名称bank_name3.3.17贷款信息
25、(credit)：贷款人编号creditor_id，银行编号bank_id，申请贷款额apply_money，申请贷款期限apply_term，放款日期loan_date，放款额度loan_money，到期日期term，互清huqing，a经办人jingbanren3.3.18还款信息(repay)：还款编号repay_id，还款方式repay_way，月息mon_interest，月还款额mon_repaymoney，固定提醒时间fixed_awaketime，提醒员编号awaker_id，提醒日期awake_date，贷款人编号creditor_id3.3.19员工信息(worker)：员
26、工编号worker_id，员工姓名worker_name，员工性别worker_sex，员工年龄worker_age，员工籍贯worker_jiguan，员工电话worker_phone，备注beizhu第四章借贷管理系统设计4.1借贷管理系统界面设计4.1.1主界面设计： 4.1.2业务类界面设计：（1）添加信息界面：（2）查询信息界面：（3）删除信息界面：（4）打印信息界面：（5）关于界面：4.2借贷管理系统代码设计本借贷管理系统采用的是DELPHI技术开发的，主要用到了添加，查询，修改，删除和打印的基本程序所构成的，下面是取了贷款人基本信息管理为代表来书写的主要代码。4.2.1添加过程代
27、码：procedure TadddaikuanrenForm.Button1Click(Sender: TObject);var mycount:integer;beginif length(dkrbhedit.Text )=0 thenbeginmessagebeep(1);showmessage(请输入贷款人编号);dkrbhedit.SetFocus;dkrbhedit.Focused;endelsebeginstrtoint(dkrbhedit.Text );daikuanrenquery.Close;daikuanrenquery.SQL.Clear;daikuanrenquery.
28、Params.Clear;daikuanrenquery.Params.CreateParam(ftstring,dkrbh,ptinput).AsString:=dkrbhedit.Text;daikuanrenquery.SQL.Add(select * from creditor where creditor_id=:dkrbh;);daikuanrenquery.ExecSQL;daikuanrenquery.Open;mycount:=daikuanrenquery.RecordCount ;if mycount=1 thenbegin messagebeep(1); showmes
29、sage(此贷款人已经存在，请重新输入); dkrbhedit.Clear; dkrxmedit.Clear; csrqedit.Clear; hjedit.Clear; dkeedit.Clear; dknxedit.Clear; dkytedit.Clear; tjdkfaedit.Clear; dwmcedit.Clear;dkrbhedit.SetFocus;dkrbhedit.Focused;endelsebegindaikuanrenquery.Close;daikuanrenquery.SQL.Clear;daikuanrenquery.Params.Clear; daikuan
30、renquery.Params.CreateParam(ftstring,dkrbh,ptinput).AsString:=dkrbhedit.Text; daikuanrenquery.Params.CreateParam(ftstring,dkrxm,ptinput).AsString:=dkrxmedit.Text; daikuanrenquery.Params.CreateParam(ftstring,csrq,ptinput).AsString:=csrqedit.Text; daikuanrenquery.Params.CreateParam(ftstring,hj,ptinput
31、).AsString:=hjedit.Text ; daikuanrenquery.Params.CreateParam(ftstring,dke,ptinput).AsString:=dkeedit.Text; daikuanrenquery.Params.CreateParam(ftstring,dknx,ptinput).AsString:=dknxedit.Text; daikuanrenquery.Params.CreateParam(ftstring,dkyt,ptinput).AsString:=dkytedit.Text; daikuanrenquery.Params.Crea
32、teParam(ftstring,tjdkfa,ptinput).AsString:=tjdkfaedit.Text; daikuanrenquery.Params.CreateParam(ftstring,dwmc,ptinput).AsString:=dwmcedit.Text;daikuanrenquery.SQL.Add(insert into creditor values(:dkrbh,:dkrxm,:csrq,:hj,:dke,:dknx,:dkyt,:tjdkfa,:dwmc) ;); daikuanrenquery.ExecSQL; messagebeep(1); showm
33、essage(贷款人基本信息添加成功); 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.2查询过程代码：procedure TchaxundaikuanrenForm.Butto
34、n3Click(Sender: TObject);begindaikuanrenquery.Close;daikuanrenquery.SQL.Clear;daikuanrenquery.Params.Clear;daikuanrenquery.Params.CreateParam(ftstring,dkrbh,ptinput).AsString:=dkrbhcombobox.Text;daikuanrenquery.SQL.Add(select * from creditor where creditor_id=:dkrbh;);daikuanrenquery.ExecSQL;daikuan
35、renquery.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;tjdkfaed
36、it.Text:=daikuanrenquerycredit_way.Value;dwmcedit.Text:=daikuanrenquerydp_name.Value;daikuanrenquery.Close;dkrbhcombobox.SetFocus;dkrbhcombobox.Focused;end;4.2.3修改过程代码：procedure TchaxundaikuanrenForm.Button1Click(Sender: TObject);begin daikuanrenquery.Close; daikuanrenquery.SQL.Clear; daikuanrenquer
37、y.Params.Clear;daikuanrenquery.Params.CreateParam(ftstring,dkrbh,ptinput).AsString:=dkrbhcombobox.Text; daikuanrenquery.Params.CreateParam(ftstring,dkrxm,ptinput).AsString:=dkrxmedit.Text; daikuanrenquery.Params.CreateParam(ftstring,csrq,ptinput).AsString:=csrqedit.Text; daikuanrenquery.Params.Creat
38、eParam(ftstring,hj,ptinput).AsString:=hjedit.Text ; daikuanrenquery.Params.CreateParam(ftstring,dke,ptinput).AsString:=dkeedit.Text; daikuanrenquery.Params.CreateParam(ftstring,dknx,ptinput).AsString:=dknxedit.Text; daikuanrenquery.Params.CreateParam(ftstring,dkyt,ptinput).AsString:=dkytedit.Text; d
39、aikuanrenquery.Params.CreateParam(ftstring,tjdkfa,ptinput).AsString:=tjdkfaedit.Text; daikuanrenquery.Params.CreateParam(ftstring,dwmc,ptinput).AsString:=dwmcedit.Text; daikuanrenquery.SQL.Add(update creditor set creditor_id=:dkrbh,creditor_name=:dkrxm,birthday=:csrq,door=:hj,credit_money=:dke,credi
40、t_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; dkytedit.Clear; tjdkfaedit.Clear; dwmcedit.
41、Clear; dkrbhcombobox.SetFocus; dkrbhcombobox.Focused;end;4.2.4删除过程代码：procedure TshanchudaikuanrenForm.Button1Click(Sender: TObject);var i:integer;begindaikuanrenquery.Close;daikuanrenquery.SQL.Clear;daikuanrenquery.Params.Clear;daikuanrenquery.Params.CreateParam(ftstring,dkrbh,ptinput).AsString:=dkr
42、bhcombobox.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 dobegin dkrbhcombobox.Items.Insert(i,daikuanr
43、entablecreditor_id.Value ); daikuanrentable.Next; i:=i+1;end;daikuanrentable.Close;dkrbhcombobox.SetFocus;dkrbhcombobox.Focused;end;4.2.5打印过程代码：procedure TdayindaikuanrenForm.Button1Click(Sender: TObject);begincreditorquery.Close;creditorquery.Params.Clear;creditorquery.SQL.Clear;creditorquery.Param
44、s.CreateParam(ftstring,bh,ptinput).asstring:=bhcombobox.Text;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:=;bhc
45、ombobox.SetFocus;bhcombobox.Focused;end;第五章 借贷管理系统测试及运行5.1系统测试测试过程按4个步骤进行，即单元测试、集成测试、确认测试和系统测试及发版测试。 开始是单元测试，集中对用源代码实现的每一个程序单元进行测试，检查各个程序模块是否正确地实现了规定的功能。 集成测试把已测试过的模块组装起来，主要对与设计相关的软件体系结构的构造进行测试。 确认测试则是要检查已实现的软件是否满足了需求规格说明中确定了的各种需求，以及软件配置是否完全、正确。 系统测试把已经经过确认的软件纳入实际运行环境中，与其它系统成份组合在一起进行测试。5.2系统运行双击金融借贷管理系统快捷键启动本系统，立即看见本系统启动界面，过了三秒钟后便进入本系统的主界面-金融借贷管理系统，此时便可以对你所要管理的信息进行添加，查询，修改，删除和打印等操作了。第六章：结论与展望6.1小结DELPHI从诞生到现在的发展壮大，经历了相当长的一段时间，从DELPHI1，DELPH
