程序设计类论文.docx

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

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

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

4、后期维护人员的补充和维护。1.2 本课题的研究意义 通过该借贷管理系统能够使金融投资公司的信息管理工作条理化，规范化，自动化，方便化，安全化，以致提高信息管理工作的效率，使工作人员能够便捷的完成各项任务。1.3 系统设计目的能够及时并准确的录入和操作借贷双方各种信息情况，建立和完善借贷管理系统，利用信息技术手段，应该大力提高管理系统的执行效率。1.4 开发和运行环境选择开发工具:Delphi7运行环境: WindowsNT或Windows2000、XP第二章 DELPHI技术简介2.1 DELPHI的产生和发展 Delphi是著名的Borland（现在已和Inprise合并）公司开发的可视化软

5、件开发工具。“真正的程序员用c，聪明的程序员用Delphi”，这句话是对Delphi最经典、最实在的描述。Delphi被称为第四代编程语言，它具有简单、高效、功能强大的特点。和VC相比，Delphi更简单、更易于掌握，而在功能上却丝毫不逊色；和VB相比，Delphi则功能更强大、更实用。可以说Delphi同时兼备了VC功能强大和VB简单易学的特点。它一直是程序员至爱的编程工具。在Delphi众多的优势当中，它在数据库方面的特长显得尤为突出：适应于多种数据库结构，从客户机服务机模式到多层数据结构模式；高效率的数据库管理系统和新一代更先进的数据库引擎；最新的数据分析手段和提供大量的企业组件。Del

6、phi发展至今，从Delphi、Delphi到现在的Delphi7，不断添加和改进各种特性，功能越来越强大。Delphi7添加了对IDE（集成开发环境）的很多改进新特性，扩展了数据库支持（ADO和InterBase数据库），带有Internet支持的MIDAS改进版，TeamSouse版本控制工具，转换功能，框架概念以及很多的新组件与新特性。2.2 DELPHI的特点DELPHI的语言特性 Delphi具有以下的特性：基于窗体和面向对象的方法，高速的编译器，强大的数据库支持，与Windows编程紧密结合，强大而成熟的组件技术。但最重要的还是Object Pascal语言，它才是一切的根本。 O

7、bject Pascal语言是在Pascal语言的基础上发展起来的，简单易学。Delphi提供了各种开发工具，包括集成环境、图像编辑（Image Editor），以及各种开发数据库的应用程序，如DesktopDataBase Expert等。除此之外，还允许用户挂接其它的应用程序开发工具，如Borland公司的资源编辑器（Resourse Workshop）。面向对象的程序设计(Object-Oriented Programming，简记为OOP)是Delphi诞生的基础。OOP立意于创建软件重用代码，具备更好地模拟现实世界环境的能力，这使它被公认为是自上而下编程的优胜者。它通过给程序中加入扩

8、展语句，把函数“封装”进Windows编程所必需的“对象”中。面向对象的编程语言使得复杂的工作条理清晰、编写容易。说它是一场革命，不是对对象本身而言，而是对它们处理工作的能力而言。对象并不与传统程序设计和编程方法兼容，只是部分面向对象反而会使情形更糟。除非整个开发环境都是面向对象的，否则对象产生的好处还没有带来的麻烦多。而Delphi是完全面向对象的，这就使得Delphi成为一种触手可及的促进软件重用的开发工具，从而具有强大的吸引力。 一些早期的具有OOP性能的程序语言如C+,Pascal,Smalltalk等，虽然具有面向对象的特征，但不能轻松地画出可视化对象，与用户交互能力较差，程序员仍然

9、要编写大量的代码。Delphi的推出，填补了这项空白。您不必自己建立对象，只要在提供的程序框架中加入完成功能的代码，其余的都交给Delphi去做。欲生成漂亮的界面和结构良好的程序丝毫不必绞尽脑汁，Delphi将帮助您轻松地完成。它允许在一个具有真正OOP扩展的可视化编程环境中，使用它的Object Pascal语言。这种革命性的组合，使得可视化编程与面向对象的开发框架紧密地结合起来。第三章借贷管理系统分析3.1金融投资公司工作过程描述客户到金融投资公司申请贷款资金，主要有客户登记，客户回访，审批进度，贷后管理等工作流程。（1）客户登记：每个客户到金融投资公司申请贷款资金，必须经过客户登记，它必

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

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

12、开发者双方对本系统的初始规定有一个共同的理解，使之成为整个开发工作的基础。3.2.2功能结构： 本系统的主要工作是客户登记，客户回访，审批进度，贷后管理等功能模块。 3.2.3功能实现： （1）客户登记： 1.贷款人基本信息管理：主要是对贷款人基本的一些资料进行管理，给出客户一个贷款人编号，这个是唯一的，以后的管理都要通过这个编号来进行。同时要输入贷款人的姓名，出生日期，户籍，贷款额，贷款年限，贷款用途，单位名称。公司会给出推荐贷款方案，联系编号和银行编号。联系编号是用来查询联系记录的信息。 2.贷款人单位基本信息管理：通过贷款人基本信息里的单位名称来输入单位信息，有经营行业，公司性质；通过单

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

14、人年龄，抵借关系。 8.抵押住房信息管理：同上也是按照贷款人编号来管理抵押住房信息，其中包括抵押房产地址，房产价值，房产权性质，抵押比率，房产面积，房龄，房产用途。 （2）客户回访： 1.客户记录管理：按照贷款人编号来添加回访记录：回访编号，回访员编号，回访时间。 2.回访信息管理：通过贷款人编号来查询回访编号，通过回访编号和贷款人编号两个编号来查询回访内容，对其进行管理。 （3）审批进度： 1.评估公司信息管理：评估公司的一些基本信息的管理，通过贷款人编号录入评估公司名称，评估公司电话，评估公司地址。 2.评估信息管理：凭借贷款人编号和评估公司名称来对其进行管理，管理的信息包括评估值，评估日

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

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

17、redit_way，单位名称dp_name3.3.2联系人基本信息（linkman）： 联系人编号lman_id，姓名lman_name，贷款人编号creditor_id3.3.3联系人电话记录信息(phonerecord)：联系电话phone，来电时间ph_time，联系人编号lman_id3.3.4贷款人单位信息(department)： 单位名称dp_name，经营行业working，公司性质dp_kind3.3.5单位商铺信息(store)： 商铺名称store_name，商铺地点store_place，摊位号stall，商铺性质store_kind，租赁期限leasehold，单位名

18、称dp_name3.3.6抵押土地信息(morfield)： 位置mf_position，土地性质mf_kind，产权性质mfright_kind，抵押人年龄morer_age，抵借关系dijie，贷款人编号creditor_id3.3.7联系信息(connection)： 联系编号link_id，接线员编号operator_id，值班员编号duty_id，派单员编号sender_id，客户经理编号clientm_id，客源root3.3.8回访记录(revertrecord)： 回访编号rt_id，回访员编号revertor_id，回访时间rt_time，贷款人编号creditor_id3.

19、3.9回访信息(revert)： 贷款人编号creditor_id，回访编号rt_id，回访内容rt_content3.3.10交费信息(charge)： 交费编号charge_id，交费日期charge_date，交费额度charge_money，贷款人编号creditor_id3.3.11评估公司信息(evaluater)： 评估公司名称evaluate_name，评估公司电话evaluate_phone，评估公司地址evaluate_address,贷款人编号 creditor_id3.3.12评估信息(evaluating)： 贷款人编号creditor_id，评估公司名称evalua

20、te_name，评估值opinion，评估日期evaluate_date，报件日期filedate，审批单元exam，送件员编号filesender_id3.3.13补充材料信息(addfile)： 补充材料编号addfile_id，补充材料内容addfile_content，补充材料日期addfiledate，上级审批时间examdate，贷款人编号creditor_id3.3.14考察信息(examination)： 考察编号exam_id，考察时间examtime，陪同考察员peitongexamer，贷款人编号creditor_id3.3.15抵押住房信息(morhouse)： 抵押房

21、产地址address，房产价值mh_valuate，房产权性质mh_rightkind，抵押比率morrate，房产面积mh_area，房龄mh_age，房产用途mh_use，贷款人编号creditor_id3.3.16银行信息(bank)： 银行编号bank_id，a银行名称bank_name3.3.17贷款信息(credit)： 贷款人编号creditor_id，银行编号bank_id，申请贷款额apply_money，申请贷款期限apply_term，放款日期loan_date，放款额度loan_money，到期日期term，互清huqing，a经办人jingbanren3.3.18还款

22、信息(repay)： 还款编号repay_id，还款方式repay_way，月息mon_interest，月还款额mon_repaymoney，固定提醒时间fixed_awaketime，提醒员编号awaker_id，提醒日期awake_date，贷款人编号creditor_id3.3.19员工信息(worker)： 员工编号worker_id，员工姓名worker_name，员工性别worker_sex，员工年龄worker_age，员工籍贯worker_jiguan，员工电话worker_phone，备注beizhu第四章借贷管理系统设计4.1借贷管理系统界面设计4.1.1主界面设计： 4

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

24、;showmessage(请输入贷款人编号);dkrbhedit.SetFocus;dkrbhedit.Focused;endelsebeginstrtoint(dkrbhedit.Text );daikuanrenquery.Close;daikuanrenquery.SQL.Clear;daikuanrenquery.Params.Clear;daikuanrenquery.Params.CreateParam(ftstring,dkrbh,ptinput).AsString:=dkrbhedit.Text;daikuanrenquery.SQL.Add(select * from cre

25、ditor where creditor_id=:dkrbh;);daikuanrenquery.ExecSQL;daikuanrenquery.Open;mycount:=daikuanrenquery.RecordCount ;if mycount=1 thenbegin messagebeep(1); showmessage(此贷款人已经存在，请重新输入); dkrbhedit.Clear; dkrxmedit.Clear; csrqedit.Clear; hjedit.Clear; dkeedit.Clear; dknxedit.Clear; dkytedit.Clear; tjdkf

26、aedit.Clear; dwmcedit.Clear;dkrbhedit.SetFocus;dkrbhedit.Focused;endelsebegindaikuanrenquery.Close;daikuanrenquery.SQL.Clear;daikuanrenquery.Params.Clear; daikuanrenquery.Params.CreateParam(ftstring,dkrbh,ptinput).AsString:=dkrbhedit.Text; daikuanrenquery.Params.CreateParam(ftstring,dkrxm,ptinput).A

27、sString:=dkrxmedit.Text; daikuanrenquery.Params.CreateParam(ftstring,csrq,ptinput).AsString:=csrqedit.Text; daikuanrenquery.Params.CreateParam(ftstring,hj,ptinput).AsString:=hjedit.Text ; daikuanrenquery.Params.CreateParam(ftstring,dke,ptinput).AsString:=dkeedit.Text; daikuanrenquery.Params.CreatePa

28、ram(ftstring,dknx,ptinput).AsString:=dknxedit.Text; daikuanrenquery.Params.CreateParam(ftstring,dkyt,ptinput).AsString:=dkytedit.Text; daikuanrenquery.Params.CreateParam(ftstring,tjdkfa,ptinput).AsString:=tjdkfaedit.Text; daikuanrenquery.Params.CreateParam(ftstring,dwmc,ptinput).AsString:=dwmcedit.T

29、ext;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; tjdkfa

30、edit.Clear; dwmcedit.Clear;dkrbhedit.SetFocus;dkrbhedit.Focused;dkrbhedit.SetFocus;dkrbhedit.Focused;end;end;end;4.2.2查询过程代码：procedure TchaxundaikuanrenForm.Button3Click(Sender: TObject);begindaikuanrenquery.Close;daikuanrenquery.SQL.Clear;daikuanrenquery.Params.Clear;daikuanrenquery.Params.CreatePa

31、ram(ftstring,dkrbh,ptinput).AsString:=dkrbhcombobox.Text;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:=daik