程序设计类论文.docx
《程序设计类论文.docx》由会员分享，可在线阅读，更多相关《程序设计类论文.docx（27页珍藏版）》请在冰豆网上搜索。
程序设计类论文
程序设计类论文
摘要
金融借贷管理系统是各种投资咨询领域的基础，是进行各种金融操作的枢纽，贷款人和银行双方通过借贷管理系统，对各种信息进行管理，都表现在对客户登记，客户回防，审批进度，贷后管理，员工管理等信息的添加，删除，修改，查询，打印的操作上。
因此，借贷管理系统质量的好坏直接影响到借贷双方的利益，必须提高借贷管理系统的质量。
通过对系统的分析，本系统采用了著名的Borland公司的Delphi可视化软件开发工具，利用其提供的各种各样的可视化的开发工具，主要实现了客户登记，客户回防，审批进度，贷后管理，员工管理这五个功能模块，通过对各个功能模块的不断检测，修正和改进直到能够满足借贷双方的需求，达到操作过程中的简洁，直观，方便，实用，稳定等要求。
重要的是，本系统也是典型的信息管理系统（MIS），本软件采用纯Delphi技术，充分发挥了Delphi的适应于多种数据库结构，从客户机／服务机模式到多层数据结构模式；高效率的数据库管理系统和新一代更先进的数据库引擎；最新的数据分析手段和提供大量的企业组件等特点。
总之，本系统设计开发的过程，是对Delphi应用基础的实践和检验，也是对我们所学专业知识的具体应用和全面提高。
关键词：
Delphi控件借贷管理系统可视化工具
第一章引言
1.1设计思想
本系统的选题是借贷管理系统，是针对现行较多的投资公司对借贷关系的管理而开发的，对该系统设计的指导思想是“清晰第一，效率第二”，一切方便用户，为每个操作者尽可能的提供方便，快捷，美观，稳定的软件，不仅如此还要有很好的容错性能，能够与用户进行及时的对话，当出现错误操作时能及时提出警告，方便用户进行及时地改正。
针对本软件的操作领域，还应兼备良好的保密性能。
具体表现为：
（1）系统得符合借贷管理公司的规定，满足借贷管理公司员工的日常使用需求，达到操作过程中的直观，方便，实用安全等要求；
（2）系统具有数据库管理系统功能，能够通过对用户需求转化为信息添加到数据库，并且对其进行查询，修改，删除，打印等一系列的操作。
（3）系统采用了模块化的程序设计方法，有利于各个功能模块的组合和修改，也便于后期维护人员的补充和维护。
1.2本课题的研究意义
通过该借贷管理系统能够使金融投资公司的信息管理工作条理化，规范化，自动化，方便化，安全化，以致提高信息管理工作的效率，使工作人员能够便捷的完成各项任务。
1.3系统设计目的
能够及时并准确的录入和操作借贷双方各种信息情况，建立和完善借贷管理系统，利用信息技术手段，应该大力提高管理系统的执行效率。
1.4开发和运行环境选择
开发工具:
Delphi7
运行环境:
Windows NT或Windows 2000、XP
第二章DELPHI技术简介
2.1DELPHI的产生和发展
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.2DELPHI的特点DELPHI的语言特性
Delphi具有以下的特性：
基于窗体和面向对象的方法，高速的编译器，强大的数据库支持，与Windows编程紧密结合，强大而成熟的组件技术。
但最重要的还是ObjectPascal语言，它才是一切的根本。
ObjectPascal语言是在Pascal语言的基础上发展起来的，简单易学。
Delphi提供了各种开发工具，包括集成环境、图像编辑（ImageEditor），以及各种开发数据库的应用程序，如DesktopDataBaseExpert等。
除此之外，还允许用户挂接其它的应用程序开发工具，如Borland公司的资源编辑器（ResourseWorkshop）。
面向对象的程序设计（Object-OrientedProgramming，简记为OOP）是Delphi诞生的基础。
OOP立意于创建软件重用代码，具备更好地模拟现实世界环境的能力，这使它被公认为是自上而下编程的优胜者。
它通过给程序中加入扩展语句，把函数“封装”进Windows编程所必需的“对象”中。
面向对象的编程语言使得复杂的工作条理清晰、编写容易。
说它是一场革命，不是对对象本身而言，而是对它们处理工作的能力而言。
对象并不与传统程序设计和编程方法兼容，只是部分面向对象反而会使情形更糟。
除非整个开发环境都是面向对象的，否则对象产生的好处还没有带来的麻烦多。
而Delphi是完全面向对象的，这就使得Delphi成为一种触手可及的促进软件重用的开发工具，从而具有强大的吸引力。
一些早期的具有OOP性能的程序语言如C++,Pascal,Smalltalk等，虽然具有面向对象的特征，但不能轻松地画出可视化对象，与用户交互能力较差，程序员仍然要编写大量的代码。
Delphi的推出，填补了这项空白。
您不必自己建立对象，只要在提供的程序框架中加入完成功能的代码，其余的都交给Delphi去做。
欲生成漂亮的界面和结构良好的程序丝毫不必绞尽脑汁，Delphi将帮助您轻松地完成。
它允许在一个具有真正OOP扩展的可视化编程环境中，使用它的ObjectPascal语言。
这种革命性的组合，使得可视化编程与面向对象的开发框架紧密地结合起来。
第三章 借贷管理系统分析
3.1金融投资公司工作过程描述
客户到金融投资公司申请贷款资金，主要有客户登记，客户回访，审批进度，贷后管理等工作流程。
（1）客户登记：
每个客户到金融投资公司申请贷款资金，必须经过客户登记，它必须填写大量的客户信息：
1.贷款人基本信息2.贷款人单位基本信息3.贷款人单位商铺信息4.联系人基本信息5.联系人电话记录信息6.联系信息7.抵押土地信息8.抵押住房信息
而投资公司也给每个客户相应的信息。
（2）客户回访：
投资公司对已经贷了款的客户，必须定期对其进行回访。
在这个阶段，投资公司要对相应的回访信息进行添加，查询，修改，删除等操作。
（3）审批进度：
在这个阶段，投资公司必须对客户进行定期的评估。
而评估还需要指定的评估公司进行评估，待评估公司对贷款客户评估完后，填写相应的评估信息和考察信息，如果需要还要添加相应的补充材料信息。
（4）贷后管理：
在贷款之后的相关信息都要在贷后管理中进行操作，这些信息有：
还款方式，月息，月还款额，固定提醒时间，提醒员，提醒日期等相关信息。
3.2借贷管理系统需求分析
3.2.1编写目的：
需求分析，不仅仅是拿到客户的需求，更重要的是还需进行分析，了解细节，并就细节跟客户咨询，获取最详细的资料。
客户所能提供给你的只是他们想到的功能需求，很多问题并不在他们考虑的范围之内，如果作为项目承担方没有去做分析，简单的按照功能要求去设计、规划，最终出来的系统是很难完全符合客户的业务流程的，这时，自然需要更改，被看成了需求的更改。
其实，都是缺乏分析所一手造成的。
问题等到系统出来了才被发现，这样的系统本身就是先天不足的了。
本说明书将全面描述本系统的各种功能、运行环境，使用户和开发者双方对本系统的初始规定有一个共同的理解，使之成为整个开发工作的基础。
3.2.2功能结构：
本系统的主要工作是客户登记，客户回访，审批进度，贷后管理等功能模块。
3.2.3功能实现：
（1）客户登记：
1.贷款人基本信息管理：
主要是对贷款人基本的一些资料进行管理，给出客户一个贷款人编号，这个是唯一的，以后的管理都要通过这个编号来进行。
同时要输入贷款人的姓名，出生日期，户籍，贷款额，贷款年限，贷款用途，单位名称。
公司会给出推荐贷款方案，联系编号和银行编号。
联系编号是用来查询联系记录的信息。
2.贷款人单位基本信息管理：
通过贷款人基本信息里的单位名称来输入单位信息，有经营行业，公司性质；通过单位名称来查询单位基本信息，删除和打印信息。
3.贷款人单位商铺信息管理：
通过单位名称输入必要的贷款人单位商铺的信息，那信息有商铺名称，商铺地点，摊位号，商铺性质，租赁期限。
4.联系人基本信息管理：
通过贷款人编号来添加联系人编号和姓名，联系人编号是联系人的凭证，也是唯一的，根据它来进行查询联系人基本信息。
5.联系人电话记录信息管理：
主要是记录联系人与借贷公司的联系记录：
联系电话，来电时间，联系人编号。
6.联系信息管理：
管理的信息有：
接线员编号，值班员编号，派单员编号，客户经理编号，客源。
7.抵押土地信息管理：
按照贷款人编号来管理的抵押的土地信息，其中包括土地位置，土地性质，产权性质，抵押人年龄，抵借关系。
8.抵押住房信息管理：
同上也是按照贷款人编号来管理抵押住房信息，其中包括抵押房产地址，房产价值，房产权性质，抵押比率，房产面积，房龄，房产用途。
（2）客户回访：
1.客户记录管理：
按照贷款人编号来添加回访记录：
回访编号，回访员编号，回访时间。
2.回访信息管理：
通过贷款人编号来查询回访编号，通过回访编号和贷款人编号两个编号来查询回访内容，对其进行管理。
（3）审批进度：
1.评估公司信息管理：
评估公司的一些基本信息的管理，通过贷款人编号录入评估公司名称，评估公司电话，评估公司地址。
2.评估信息管理：
凭借贷款人编号和评估公司名称来对其进行管理，管理的信息包括评估值，评估日期，报件日期，审批单元，送件员编号。
3.考察信息管理：
借贷公司要对贷款人进行考察，考察后的信息要进行管理，也必须通过贷款人编号来进行管理考察信息，还包括有考察编号，考察时间，陪同考察员。
4.补充材料信息管理：
有时需要添加点补充材料，通过贷款人编号管理补充材料编号，补充材料日期，上级审批时间，补充材料内容。
5.交费信息管理：
对交费信息（贷款人编号，交费编号，交费日期，交费额度）进行管理。
6.银行信息管理：
借贷公司是贷款人和银行的中介，所以对银行信息要进行大量管理。
7.贷款信息管理：
是审批进度中重要的环节，其内容包括有贷款人编号，银行编号，申请贷款额，申请贷款期限，放款日期，放款额度，到期日期，互清和经办人。
（4）贷后管理：
1.贷后还款信息管理：
对已经申请下来的贷款人要对贷款进行定期的偿还，而如何偿还则需要管理，要管理的内容有贷款人编号，还款编号，还款方式，月息，月还款额，固定提醒时间，提醒员编号，提醒日期。
（5）员工管理：
1.对借贷公司员工进行信息管理。
3.3借贷管理系统数据库设计
这里包括十九个数据表如下：
3.3.1贷款人基本信息（creditor）：
贷款人编号creditor_id，姓名creditor_name，出生日期birthday，户籍door，贷款额credit_money，贷款年限credit_time，贷款用途credit_use，推荐贷款方案credit_way，单位名称dp_name
3.3.2联系人基本信息（linkman）：
联系人编号lman_id，姓名lman_name，贷款人编号creditor_id
3.3.3联系人电话记录信息（phonerecord）：
联系电话phone，来电时间ph_time，联系人编号lman_id
3.3.4贷款人单位信息（department）：
单位名称dp_name，经营行业working，公司性质dp_kind
3.3.5单位商铺信息（store）：
商铺名称store_name，商铺地点store_place，摊位号stall，商铺性质store_kind，租赁期限leasehold，单位名称dp_name
3.3.6抵押土地信息（morfield）：
位置mf_position，土地性质mf_kind，产权性质mfright_kind，抵押人年龄morer_age，抵借关系dijie，贷款人编号creditor_id
3.3.7联系信息（connection）：
联系编号link_id，接线员编号operator_id，值班员编号duty_id，派单员编号sender_id，客户经理编号clientm_id，客源root
3.3.8回访记录（revertrecord）：
回访编号rt_id，回访员编号revertor_id，回访时间rt_time，贷款人编号creditor_id
3.3.9回访信息（revert）：
贷款人编号creditor_id，回访编号rt_id，回访内容rt_content
3.3.10交费信息（charge）：
交费编号charge_id，交费日期charge_date，交费额度charge_money，贷款人编号creditor_id
3.3.11评估公司信息（evaluater）：
评估公司名称evaluate_name，评估公司电话evaluate_phone，评估公司地址evaluate_address,贷款人编号creditor_id
3.3.12评估信息（evaluating）：
贷款人编号creditor_id，评估公司名称evaluate_name，评估值opinion，评估日期evaluate_date，报件日期filedate，审批单元exam，送件员编号filesender_id
3.3.13补充材料信息（addfile）：
补充材料编号addfile_id，补充材料内容addfile_content，补充材料日期addfiledate，上级审批时间examdate，贷款人编号creditor_id
3.3.14考察信息（examination）：
考察编号exam_id，考察时间examtime，陪同考察员peitongexamer，贷款人编号creditor_id
3.3.15抵押住房信息（morhouse）：
抵押房产地址address，房产价值mh_valuate，房产权性质mh_rightkind，抵押比率morrate，房产面积mh_area，房龄mh_age，房产用途mh_use，贷款人编号creditor_id
3.3.16银行信息（bank）：
银行编号bank_id，a银行名称bank_name
3.3.17贷款信息（credit）：
贷款人编号creditor_id，银行编号bank_id，申请贷款额apply_money，申请贷款期限apply_term，放款日期loan_date，放款额度loan_money，到期日期term，互清huqing，a经办人jingbanren
3.3.18还款信息（repay）：
还款编号repay_id，还款方式repay_way，月息mon_interest，月还款额mon_repaymoney，固定提醒时间fixed_awaketime，提醒员编号awaker_id，提醒日期awake_date，贷款人编号creditor_id
3.3.19员工信息（worker）：
员工编号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添加过程代码：
procedureTadddaikuanrenForm.Button1Click（Sender:
TObject）;
varmycount:
integer;
begin
iflength（dkrbhedit.Text）=0then
begin
messagebeep
（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:
=dkrbhedit.Text;
daikuanrenquery.SQL.Add（'select*fromcreditorwherecreditor_id=:
dkrbh;'）;
daikuanrenquery.ExecSQL;
daikuanrenquery.Open;
mycount:
=daikuanrenquery.RecordCount;
ifmycount=1then
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
begin
daikuanrenquery.Close;
daikuanrenquery.SQL.Clear;
daikuanrenquery.Params.Clear;
daikuanrenquery.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）.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.CreateParam（ftstring,'tjdkfa',ptinput）.AsString:
=tjdkfaedit.Text;
daikuanrenquery.Params.CreateParam（ftstring,'dwmc',ptinput）.AsString:
=dwmcedit.Text;
daikuanrenquery.SQL.Add（'insertintocreditorvalues（:
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.2查询过程代码：
procedureTchaxundaikuanrenForm.Button3Click（Sender:
TObject）;
begin
daikuanrenquery.Close;
daikuanrenquery.SQL.Clear;
daikuanrenquery.Params.Clear;
daikuanrenquery.Params.CreateParam（ftstring,'dkrbh',ptinput）.AsString:
=dkrbhcombobox.Text;
daikuanrenquery.SQL.Add（'select*fromcreditorwherecreditor_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
升级会员 