流动资金贷款业务系统.docx
《流动资金贷款业务系统.docx》由会员分享，可在线阅读，更多相关《流动资金贷款业务系统.docx（21页珍藏版）》请在冰豆网上搜索。
流动资金贷款业务系统
流动资金贷款业务系统
第一章概述
第一节流动资金贷款及其分类
一、流动资金贷款概念
（一）流动资金贷款是指商业银行向借款人发放的用于正常生产经营周转或临时性资金需求的本外币贷款。
（二）贷款对象是经国家工商行政管理机关（或主管机关）核准登记的企业（事业）法人、个体工商户、其他经济组织。
主要用于满足借款人正常生产经营过程中为耗用或销售而储存的各类存货。
季节性物资储备等生产经营周转性或临时性的资金需要。
借款人不得挤占挪用流动资金贷款用于固定资产投资或其他不符合流动资金贷款用途的活动。
第二节流动资金贷款操作程序
一、调查评价：
银行根据客户提出的申请进入调查评价阶段，
（一）申请材料的审查
1、借款用途和还款来源2、商务合同、订单或意向书3、人民银行颁布的贷款卡（经过年检）4、审查董事会决议
（二）确定贷款期限
1、生产经营周期2、还款能力3、贷款人的资金实力
对于到期的流动资金贷款转为中期流动资金贷款要严格掌握条件，凡属于生产经营正常，生产规模较大，产品有市场，有信誉，归还贷款本息有保证的企业，特别是大中型的企业的到期流动资金贷款中正常生产所需的经常性占用周转部分，可以转为中期流贷。
二、确定利率
执行人行规定的贷款利率，并在借款合同中注明。
三、审批
四、发放
五、贷后管理
（一）有无违反合同条款的情况；
（二）还本付息能力及落实还款情况；
（三）流动资金占用和存货是否正常合理；
（四）有无挤占、挪用流动资金贷款从事固定资产投资、房地产炒作、垫资承包工程、购买有价证券；
（五）有无违反国家外汇管理规定；
（六）保证人保证资格和保证能力；
（七）抵（质）物的变化；
（八）在他行存借款的情况。
六、回收
按用款实际期限，贷款即将到期时，借款客户应筹集资金以按时归还银行借款。
第三节流动资金贷款业务系统开发的意义
一、目前，计算机的价格已经十分低廉，性能却有了长足的进步。
它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面：
（一）计算机可以代替人工进行许多繁杂的劳动；
（二）计算机可以节省许多资源；
（三）计算机可以大大的提高人们的工作效率；
（四）计算机可以使敏感文档更加安全，等等
二、我国加入ＷＴＯ后，国家最终将放弃对国有商业银行提供无限量的信用支持，金融机构必然会在市场经济的"大海"中按自然规则"物竞天择"。
要想在激励的竞争中立于不败之地，银行业必须加快金融电子化的步伐，采取有效措施，迅速建立以决策支持系统为核心的管理信息系统，高效地处理和利用信息，提高信息化水平，增强竞争实力。
如何根据开发系统的规模、技术复杂的程度、管理水平的高低、技术人员的素质及开发时间的要求等不同要素，确定管理信息系统开发方法，确保以较小的投入取得最优的效果。
为了进一步提高管理水平，完善管理制度，建行提出了后台（财务）手工操作向财务信息化转变、松散管理向集中式网络化管理转变、核算型向管理型转变、分散的解决方案向多种管理层面集成的完整解决方案转变等要求，并且在此基础上，进一步提出要统一会计核算制度、财务制度、综合经营计划及管理会计方法，优化财务会计核算功能。
第二章系统分析
第一节编制业务流程图
流动资金贷款业务操作流程见图
第二节用户需求分析
用户需求分析就是在用户需求调研的基础上，确定系统的总体结构方案，完成相应的需求分析报告。
在确定系统的总体结构方案过程中，包括确定应用程序的结构、系统开发环境和系统的功能模块。
用户需求调研结束之后，应该立即进行用户需求分析。
第三节应用程序结构确定
一、从用户应用角度来看，可把应用程序系统的组成部分分成数据存储层、业务处理层和界面表示层等3个层次，而应用程序结构可归纳为：
集中式应用程序结构、单用户应用程序结构、多层服务器应用程序结构、浏览器／服务器应用程序结构、客户机／服务器应用程序结构等5种类型。
二、数据存储层放在服务器上，业务处理层和界面表示层放在客户机上，因此又被称为“灵敏的客户机”结构。
许多操作可以在本地的客户机上执行，只是当需要数据时，才向服务器发出请求。
并使应用程序的处理更接近用户，使整个系统具有较好的性能，可以并行地处理应用程序的请求、减少了数据传输量、降低了服务器的负荷。
由于条件所限，将此系统所有程序都置于一台计算机上，以便调试运行。
第三章系统设计
第一节系统设计目标
系统开发的总体任务是实现银行流动资金贷款业务管理的系统化、规范化和自动化，从而达到提高银行流动资金贷款业务管理效率的目的。
第二节开发设计思想
一、系统将银行的流动资金贷款业务经营与管理有机地结合在一起,实行了贷款审批与本金的发放、收回及利息核算的管理账务网络化、电子化"一条龙"的计算机联体操作,形成贷款审批的统一授信、授权,信贷额度与会计放款交易相互控制的运作机制。
在新的信贷管理系统中创建了客户档案管理子系统。
二、客户资料在系统中集中登录、存储、查询,改变了过去客户信息分散、独立、封闭的现象。
信贷业务人员可以利用系统随时掌握客户在招行所有机构结算往来、信用往来、授信额度等一切业务活动信息,同时通过对客户经营情况、财务报表、关联关系"家谱"资料进行汇集整合,形成全行庞大的客户信息资源网。
这一系统不仅提高了信息处理速度和质量,也使银行会计核算手段更为先进,实现了流动资金贷款业务信息化的操作处理。
其贷款业务本金放款、到期还款的扣收、利息计算与收取等帐务操作,由系统自动化处理。
第三节开发和运行环境选择
一、微软公司的VisualBasic6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。
VisualBasic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。
故而，实现本系统VB是一个相对较好的选择。
二、Access2000就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。
Access的优点在于它能使用数据表示图或自定义窗体收集信息。
数据表示图提供了一种类似于Excel的电子表格，可以使数据库一目了然。
另外，Access允许创建自定义报表用于打印或输出数据库中的信息。
Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。
Access是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。
如上所述，Access作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。
三、二者的结合
（一）微软的JET数据库引擎提供了与数据库打交道的途径，通过它以及VisualBasic来访问数据库并对其进行各种操作。
VisualBasic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而提供了丰富的数据类型。
（二）DATA控件在数据库中的信息与将信息显示给用户看的VisualBasic程序之间架起了一座桥梁。
可以通过设置DATA控件的各个属性，告诉它要调用那个数据库的哪个部分。
缺省情况下，DATA控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。
一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。
DATA控件还提供了用来浏览不同记录的各种跳转按钮。
将DATA控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。
（三）综上，可确定使用下面的开发环境：
1、网络操作系统：
WindowsXP；
2、数据库服务器：
MicrosoftAccess2000；
3、服务器平台：
WindowsXP；
4、客户机平台：
Windows95／98／NT／2000；
5、前端开发工具：
visualBasic6.0（企业版）；
第四节系统功能分析
一、本系统需要完成的功能主要有以下几点。
（一）银行流动资金贷款业务的各种信息的输入，包括贷款申请、贷前调查、贷款评估、贷款审批的输入等。
（二）流动资金贷款业务的各种信息的查询、修改、添加、浏览和维护。
（三）流程中涉及到的报表的生成。
（四）所有表单的相同项目的比较。
（五）流动资金贷款业务管理系统的使用帮助。
二、在本系统的设计过程中，为满足计算机管理的需要，采取了下面的一些原则：
（一）统一各种原始单据的格式，统一帐目和报表的格式。
（二）删除不必要的管理冗余，实现管理规范化、科学化。
（三）程序代码标准化，软件统一化，确保软件的可维护性和实用性。
（四）界面尽量简单化，做到实用、方便，尽量满足企业中不同层次人员的需要。
第五节系统功能模块设计
一、在系统功能分析的基础上，考虑VB和Access的特点，设计出如图4.1所示的系统功能模块图。
图3-1系统功能模块图
二、系统模块
（一）包括报表的打印及设置，申请贷款用户的信息和表单。
（二）管理员可以通过管理界面添加或删除用户。
（三）管理员或其他用户可以修改自己的密码。
（四）管理人员可以对所有申请贷款企业的所有信息进行添加、删除、修改。
三、流动资金贷款业务系统流程图
图3-2载入界面流程图
图3-5主界面流程图
图3-6贷款申请流程图
第四章数据库设计
第一节数据库需求分析
在仔细调查银行流动资金贷款业务管理过程的基础上，设计出本系统所处理的数据操作流程图
图4-1数据库操作流程图
第二节数据库概念结构设计
这一设计阶段是在需求分析的基础上，设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。
根据上面的设计规划出的各个模块实体的E-R图及其关系描述如下：
图4-2贷款申请书模块E-R图
图4-3贷前调查模块E-R图
第三节数据库逻辑结构设计
在上面的实体以及实体之间关系的基础上，形成各个表格之间的关系。
流动资金贷款业务管理系统数据库中的各个表的设计结果如下面的几个表格所示，每个表格表示数据库中的一个表。
字段名称
数据类型
可否为空
字段长度
用户名
文本
NULL
10
密码
文本
NULL
15
权限
文本
NULL
10
字段名称
数据类型
可否为空
字段长度
贷款申请文件号
文本
NOTNULL
6
贷款申请时间
日期/时间
NULL
无
申请单位信息
文本
NULL
20
市信保意见
文本
NULL
15
申请贷款金额
数字
NULL
INTEGER
贷款利息率
数字
NULL
INTEGER
调查人
文本
NULL
10
字段名称
数据类型
可否为空
字段长度
申请贷款号
文本
NOTNULL
6
贷款原因
文本
NULL
20
预计还款时间
日期/时间
NULL
无
还款能力
文本
NULL
20
调查人
文本
NULL
10
贷款金额
数字
NULL
INTEGER
企业代表
文本
NULL
10
用途
文本
NULL
20
第五章系统实施
第一节用户界面的实现
一、启动画面
启动画面是为了给用户一个良好的印象，加深软件的亲和力，没有实际的功能，在Form1窗体中加入了Image和Time组件。
启动画面的窗体
主要的源代码如下：
PrivateSubFrame1_DragDrop（SourceAsControl,XAsSingle,YAsSingle）
EndSub
PrivateSubForm_Click（）
UnloadMe
Loadfrmlogin
frmlogin.Show
EndSub
PrivateSubForm_Unload（CancelAsInteger）
UnloadMe
Loadfrmlogin
frmlogin.Show
EndSub
一、用户登录窗体的的实现
（一）本窗体是为了让工作人员按照用户名和密码进行登录，并且跟据用户名检查Keyer表中的“权限”字段，以分辩使用人员是否有权限进入管理界面。
窗体界面如下：
（二）源代码如下
PrivateSubcmdok_Click（）
Ifnamedacom=""Then
MsgBox"用户名不能为空！
",vbOKOnly+vbExclamation,"警告！
"
ExitSub
EndIf
Ifnamedacom<>"流动资金贷款"Then
MsgBox"没有该用户",vbOKOnly+vbExclamation
ExitSub
Else
IfpassTxt="111111"Then
Unloadfrmlogin
LoadForm1
Form1.Show
Else
Ifnum<2Then
num=num+1
MsgBox"口令不对，请重新输入！
你还有"&Str（3-num）&"次机会。
",vbOKOnly+vbExclamation
passTxt.SetFocus
ExitSub
Else
DoWhile1>0
Loop
EndIf
EndIf
EndIf
EndSub
（三）用户权限验证
第二节客户管理界面
一、用户界面包括：
打开文档、关闭文档、浏览文档、新增记录、删除记录、关于、帮助。
二、管理项目包括：
贷款申请、贷前调查、信用评价、公司受信业务、
贷款发放、贷款展期、贷款回收。
窗体界面如下：
二、贷款申请包括：
申请担保情况、申请担保企业提供文件、拟贷款银行建议、市信保中心意见，窗体如下：
第三节数据表格：
二、贷前调查
二、贷前调查源代码如下：
PrivateIndexAsInteger
PrivateDbNameAsString
PrivateTableAsString
PrivateSubForm_Load（）
loadInfo
DbName="dksqs.mdb"
Table="ndkyhyj"
EndSub
PrivateSubToolbar1_ButtonClick（ByValButtonAsMSComctlLib.Button）
OnErrorResumeNext
IfButton.Caption="打开档案"Then
loadInfo
ElseIfButton.Caption="关闭档案"Then
closeInfo
ElseIfButton.Caption="浏览档案"Then
browseInfo
ElseIfButton.Caption="新增记录"Then
newInfo
ElseIfButton.Caption="编辑记录"Then
ElseIfButton.Caption="删除记录"Then
Data1.Recordset.Delete
Data1.Recordset.MoveLast
Data1.Refresh
EndIf
EndSub
PrivateSubbrowseInfo（）
OnErrorResumeNext
Table=TableFrom（Index）
DbName=dbNameFrom（Index）
Data1.DatabaseName=App.Path+"\mdb\"+DbName
Data1.RecordSource=Table
Data1.Refresh
EndSub
PrivateSubnewInfo（）
OnErrorResumeNext
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
Data1.Refresh
EndSub
PrivateSubloadInfo（）
TreeView1.Nodes.Clear
Index=1
TreeView1.Nodes.Add,tvwLast,,"贷款申请书",5
TreeView1.Nodes.AddIndex,tvwChild,,"申请担保贷款情况",4
TreeView1.Nodes.AddIndex,tvwChild,,"申请担保企业提供文件",6
TreeView1.Nodes.AddIndex,tvwChild,,"拟贷款银行意见",3
TreeView1.Nodes.AddIndex,tvwChild,,"市信保中心意见",27
TreeView1.Nodes.Add,tvwLast,,"贷前调查情况",9
TreeView1.Nodes.Add6,tvwChild,,"调查人",30
TreeView1.Nodes.Add6,tvwChild,,"企业基本情况",11
TreeView1.Nodes.Add6,tvwChild,,"企业借款原因",15
TreeView1.Nodes.Add6,tvwChild,,"企业还款能力",29
TreeView1.Nodes.Add6,tvwChild,,"借款担保方式",33
TreeView1.Nodes.Add6,tvwChild,,"调查结论",8
TreeView1.Nodes.Add,tvwLast,,"信用评价",7
TreeView1.Nodes.Add,tvwLast,,"公司授信业务",18
TreeView1.Nodes.Add,tvwLast,,"贷款发放",14
TreeView1.Nodes.Add,tvwLast,,"贷款展期",2
TreeView1.Nodes.Add,tvwLast,,"贷款收回",31
EndSub
PrivateSubcloseInfo（）
TreeView1.Nodes.Clear
Index=1
EndSub
PrivateSubTreeView1_Click（）
OnErrorGoToerr
Index=TreeView1.SelectedItem.Index
err:
EndSub
PrivateFunctiondbNameFrom（IndexAsInteger）AsString
IfIndex>1AndIndex<6Then
dbNameFrom="dksqs.mdb"
ElseIfIndex>6AndIndex<13Then
dbNameFrom="dqdcqk.mdb"
ElseIfIndex=13Then
dbNameFrom="xypj.mdb"
ElseIfIndex=14Then
dbNameFrom="gssxyw.mdb"
ElseIfIndex=15Then
dbNameFrom="dkff.mdb"
ElseIfIndex=16Then
dbNameFrom="dkzq.mdb"
ElseIfIndex=17Then
dbNameFrom="dksh.mdb"
EndIf
EndFunction
PrivateFunctionTableFrom（IndexAsInteger）AsString
SelectCaseIndex
Case2:
TableFrom="sqdbdkqk"
Case3:
TableFrom="sqdbqytgwj"
Case4:
TableFrom="ndkyhyj"
Case5:
TableFrom="sxbzxyj"
Case7:
TableFrom="dcr"
Case8:
TableFrom="qyjbqk"
Case9:
TableFrom="qyjkyy"
Case10:
TableFrom="qyhknl"
Case11:
TableFrom="jkdbfs"
Case12:
TableFrom="dcjl"
Case13:
TableFrom="xypj"
Case14:
TableFrom="gssxyw"
Case15:
TableFrom="dkff"
Case16:
TableFrom="dkzq"
Case17:
TableFrom="dksh"
EndSelect
EndFunction
PrivateSubTreeView1_DblClick（）
browseInfo
EndSub
第四节系统的维护
为了让系统在投入使用以后，能够正确运行必须进行系统维护。
一、硬件维护
硬件维护主要从设备包养，规范使用等方面着手。
要维持设备正常工作，网络畅通。
及时够入新设备，以保证系统运行稳定。
二、软件维护
在系统运行时，发现的软件程序的不足，要进行程序修改，对软件作及时的升级，开发更多的补丁程序等。
三、数据维护
在系统运行过程中，必须对系统的数据进行必要的更新维护。
对系统数据的增、删、改等方面的维护工作。
参考文献
[1]BobReselman,RichardPeasley,WaynePruchniak.VisualBasic6.0使用指南.电子工业出版社
[2]NedSnell.中文版MicrosoftOffice97自学通.机械工业出版
[3]Microsoft.VisualBasic6.0中文版控件大全.电子工业出版社
[4]CraigEddy，TimothyBuchanan.中文Access200024学时教程.机械工业出版社
[5]黄梯云，管理信息系统，经济科学出版社
[6]甘仞初，信息系统开发，经济科学出版社
[7]宋刚.三和银行大连分行的外资企业贷款.大连理工大学,2001
[8]刘海方.论适应市场的商业银行信贷经营机制.中国社会科学院研究生院,2002
[9]于跃峰.乡镇企业贷款决策引致银行信贷风险研究.中国农业大学,2002
[10]完璧.东京三菱银行上海分行信息化推进方案的研究.上海海事大学,2003
[11]倪英洁.存款保险与我国银行业稳定性发展研究.河海大学,2005学,2003
[12]黄向庆.我国银行业不良资产成因分析及信贷资产质量管理体系的构建.南京农业大学,
[13]CharlesPetzold，Programming
升级会员 