畢業(yè)設(shè)計(jì)（論文）Delphi金融借貸管理系統(tǒng)

1、i摘摘 要要金融借貸管理系統(tǒng)是各種投資咨詢領(lǐng)域的基礎(chǔ)，是進(jìn)行各種金融操作的樞紐，貸款人和銀行雙方通過借貸管理系統(tǒng)，對(duì)各種信息進(jìn)行管理，都表現(xiàn)在對(duì)客戶登記，客戶回防，審批進(jìn)度，貸后管理，員工管理等信息的添加，刪除，修改，查詢，打印的操作上。因此，借貸管理系統(tǒng)質(zhì)量的好壞直接影響到借貸雙方的利益，必須提高借貸管理系統(tǒng)的質(zhì)量。通過對(duì)系統(tǒng)的分析，本系統(tǒng)采用了著名的 borland 公司的 delphi 可視化軟件開發(fā)工具，利用其提供的各種各樣的可視化的開發(fā)工具，主要實(shí)現(xiàn)了客戶登記，客戶回防，審批進(jìn)度，貸后管理，員工管理這五個(gè)功能模塊，通過對(duì)各個(gè)功能模塊的不斷檢測(cè)，修正和改進(jìn)直到能夠滿足借貸雙方的需求，達(dá)

2、到操作過程中的簡(jiǎn)潔，直觀，方便，實(shí)用，穩(wěn)定等要求。重要的是，本系統(tǒng)也是典型的信息管理系統(tǒng)（mis），本軟件采用純 delphi 技術(shù)，充分發(fā)揮了 delphi 的適應(yīng)于多種數(shù)據(jù)庫結(jié)構(gòu)，從客戶機(jī)服務(wù)機(jī)模式到多層數(shù)據(jù)結(jié)構(gòu)模式；高效率的數(shù)據(jù)庫管理系統(tǒng)和新一代更先進(jìn)的數(shù)據(jù)庫引擎；最新的數(shù)據(jù)分析手段和提供大量的企業(yè)組件等特點(diǎn)?？傊鞠到y(tǒng)設(shè)計(jì)開發(fā)的過程，是對(duì) delphi 應(yīng)用基礎(chǔ)的實(shí)踐和檢驗(yàn)，也是對(duì)我們所學(xué)專業(yè)知識(shí)的具體應(yīng)用和全面提高。關(guān)鍵詞關(guān)鍵詞：delphi 控件 借貸管理系統(tǒng) 可視化工具ii目目 錄錄摘 要.i關(guān)鍵詞：delphi 控件 借貸管理系統(tǒng) 可視化工具.i第一章 引 言.11.1 設(shè)計(jì)

3、思想 .11.2 本課題的研究意義 .11.3 系統(tǒng)設(shè)計(jì)目的 .11.4 開發(fā)和運(yùn)行環(huán)境選擇 .1第二章 delphi 技術(shù)簡(jiǎn)介.12.1 delphi 的產(chǎn)生和發(fā)展.12.2 delphi 的特點(diǎn) delphi 的語言特性 .1第三章 借貸管理系統(tǒng)分析.33.1 金融投資公司工作過程描述.3（1）客戶登記：.3（2）客戶回訪：.3（3）審批進(jìn)度：.3（4）貸后管理：.33.2 借貸管理系統(tǒng)需求分析.33.2.1 編寫目的：.33.2.2 功能結(jié)構(gòu)：.43.2.3 功能實(shí)現(xiàn)：.5（1）客戶登記：.5（2）客戶回訪：.5（3）審批進(jìn)度：.6（4）貸后管理：.6（5）員工管理：.63.3 借貸管理

4、系統(tǒng)數(shù)據(jù)庫設(shè)計(jì).63.3.1 貸款人基本信息（creditor）：.63.3.2 聯(lián)系人基本信息（linkman）：.73.3.3 聯(lián)系人電話記錄信息(phonerecord)：.73.3.4 貸款人單位信息(department)：.73.3.5 單位商鋪信息(store)：.73.3.6 抵押土地信息(morfield)：.73.3.7 聯(lián)系信息(connection)：.73.3.8 回訪記錄(revertrecord)：.73.3.9 回訪信息(revert)：.73.3.10 交費(fèi)信息(charge)：.73.3.11 評(píng)估公司信息(evaluater)：.7iii3.3.12 評(píng)估

5、信息(evaluating)：.73.3.13 補(bǔ)充材料信息(addfile)：.83.3.14 考察信息(examination)：.83.3.15 抵押住房信息(morhouse)：.83.3.16 銀行信息(bank)：.83.3.17 貸款信息(credit)：.83.3.18 還款信息(repay)：.83.3.19 員工信息(worker)：.8第四章 借貸管理系統(tǒng)設(shè)計(jì).94.1 借貸管理系統(tǒng)界面設(shè)計(jì).94.1.1 主界面設(shè)計(jì) ：.94.1.2 業(yè)務(wù)類界面設(shè)計(jì)：.9（1）添加信息界面：.9（2）查詢信息界面：.10（3）刪除信息界面：.11（4）打印信息界面：.11（5）關(guān)于界面：

6、.124.2 借貸管理系統(tǒng)代碼設(shè)計(jì).124.2.1 添加過程代碼：.124.2.2 查詢過程代碼：.154.2.3 修改過程代碼：.164.2.4 刪除過程代碼：.184.2.5 打印過程代碼：.19第五章 借貸管理系統(tǒng)測(cè)試及運(yùn)行.205.1 系統(tǒng)測(cè)試.205.2 系統(tǒng)運(yùn)行.20第六章：結(jié)論與展望.216.1 小結(jié).216.2 展望.21謝 辭.23參考文獻(xiàn).241第一章第一章 引引 言言1.11.1 設(shè)計(jì)思想設(shè)計(jì)思想本系統(tǒng)的選題是借貸管理系統(tǒng)，是針對(duì)現(xiàn)行較多的投資公司對(duì)借貸關(guān)系的管理而開發(fā)的，對(duì)該系統(tǒng)設(shè)計(jì)的指導(dǎo)思想是“清晰第一，效率第二” ，一切方便用戶，為每個(gè)操作者盡可能的提供方便，快捷，

7、美觀，穩(wěn)定的軟件，不僅如此還要有很好的容錯(cuò)性能，能夠與用戶進(jìn)行及時(shí)的對(duì)話，當(dāng)出現(xiàn)錯(cuò)誤操作時(shí)能及時(shí)提出警告，方便用戶進(jìn)行及時(shí)地改正。針對(duì)本軟件的操作領(lǐng)域，還應(yīng)兼?zhèn)淞己玫谋Ｃ苄阅?。具體表現(xiàn)為：（1）系統(tǒng)得符合借貸管理公司的規(guī)定，滿足借貸管理公司員工的日常使用需求，達(dá)到操作過程中的直觀，方便，實(shí)用安全等要求；（2）系統(tǒng)具有數(shù)據(jù)庫管理系統(tǒng)功能，能夠通過對(duì)用戶需求轉(zhuǎn)化為信息添加到數(shù)據(jù)庫，并且對(duì)其進(jìn)行查詢，修改，刪除，打印等一系列的操作。（3）系統(tǒng)采用了模塊化的程序設(shè)計(jì)方法，有利于各個(gè)功能模塊的組合和修改，也便于后期維護(hù)人員的補(bǔ)充和維護(hù)。1.21.2 本課題的研究意義本課題的研究意義通過該借貸管理系統(tǒng)能夠

8、使金融投資公司的信息管理工作條理化，規(guī)范化，自動(dòng)化，方便化，安全化，以致提高信息管理工作的效率，使工作人員能夠便捷的完成各項(xiàng)任務(wù)。1.31.3 系統(tǒng)設(shè)計(jì)目的系統(tǒng)設(shè)計(jì)目的能夠及時(shí)并準(zhǔn)確的錄入和操作借貸雙方各種信息情況，建立和完善借貸管理系統(tǒng)，利用信息技術(shù)手段，應(yīng)該大力提高管理系統(tǒng)的執(zhí)行效率。1.41.4 開發(fā)和運(yùn)行環(huán)境選擇開發(fā)和運(yùn)行環(huán)境選擇開發(fā)工具:delphi7運(yùn)行環(huán)境: windowsnt 或 windows2000、xp1第二章第二章 delphi 技術(shù)簡(jiǎn)介技術(shù)簡(jiǎn)介2.12.1 delphidelphi 的產(chǎn)生和發(fā)展的產(chǎn)生和發(fā)展 delphi 是著名的 borland（現(xiàn)在已和 inpri

9、se 合并）公司開發(fā)的可視化軟件開發(fā)工具。 “真正的程序員用 c，聰明的程序員用 delphi” ，這句話是對(duì) delphi 最經(jīng)典、最實(shí)在的描述。delphi 被稱為第四代編程語言，它具有簡(jiǎn)單、高效、功能強(qiáng)大的特點(diǎn)。和 vc 相比，delphi 更簡(jiǎn)單、更易于掌握，而在功能上卻絲毫不遜色；和 vb 相比，delphi 則功能更強(qiáng)大、更實(shí)用?？梢哉f delphi 同時(shí)兼?zhèn)淞?vc 功能強(qiáng)大和 vb 簡(jiǎn)單易學(xué)的特點(diǎn)。它一直是程序員至愛的編程工具。在 delphi 眾多的優(yōu)勢(shì)當(dāng)中，它在數(shù)據(jù)庫方面的特長顯得尤為突出：適應(yīng)于多種數(shù)據(jù)庫結(jié)構(gòu)，從客戶機(jī)服務(wù)機(jī)模式到多層數(shù)據(jù)結(jié)構(gòu)模式；高效率的數(shù)據(jù)庫管理系統(tǒng)和

10、新一代更先進(jìn)的數(shù)據(jù)庫引擎；最新的數(shù)據(jù)分析手段和提供大量的企業(yè)組件。delphi 發(fā)展至今，從 delphi、delphi到現(xiàn)在的delphi7，不斷添加和改進(jìn)各種特性，功能越來越強(qiáng)大。delphi7 添加了對(duì) ide（集成開發(fā)環(huán)境）的很多改進(jìn)新特性，擴(kuò)展了數(shù)據(jù)庫支持（ado 和 interbase 數(shù)據(jù)庫） ，帶有internet 支持的 midas 改進(jìn)版，teamsouse 版本控制工具，轉(zhuǎn)換功能，框架概念以及很多的新組件與新特性。2.22.2 delphidelphi 的特點(diǎn)的特點(diǎn) delphidelphi 的語言特性的語言特性 delphi 具有以下的特性：基于窗體和面向?qū)ο蟮姆椒?，?/p>

11、速的編譯器，強(qiáng)大的數(shù)據(jù)庫支持，與 windows 編程緊密結(jié)合，強(qiáng)大而成熟的組件技術(shù)。但最重要的還是 object pascal 語言，它才是一切的根本。 object pascal 語言是在 pascal 語言的基礎(chǔ)上發(fā)展起來的，簡(jiǎn)單易學(xué)。delphi 提供了各種開發(fā)工具，包括集成環(huán)境、圖像編輯（image editor） ，以及各種開發(fā)數(shù)據(jù)庫的應(yīng)用程序，如 desktopdatabase expert 等。除此之外，還允許用戶掛接其它的應(yīng)用程序開發(fā)工具，如 borland 公司的資源編輯器（resourse workshop） 。面向?qū)ο蟮某绦蛟O(shè)計(jì)(object-oriented prog

12、ramming，簡(jiǎn)記為 oop)是delphi 誕生的基礎(chǔ)。oop 立意于創(chuàng)建軟件重用代碼，具備更好地模擬現(xiàn)實(shí)世界環(huán)境的能力，這使它被公認(rèn)為是自上而下編程的優(yōu)勝者。它通過給程序中加入擴(kuò)展語句，把函數(shù)“封裝”進(jìn) windows 編程所必需的“對(duì)象”中。面向?qū)ο蟮木幊陶Z言使得復(fù)雜的工作條理清晰、編寫容易。說它是一場(chǎng)革命，不是對(duì)對(duì)象本身而言，而是對(duì)它們處理工作的能力而言。對(duì)象并不與傳統(tǒng)程序設(shè)計(jì)和編程方法兼容，只是部分面向?qū)ο蠓炊鴷?huì)使情形更2糟。除非整個(gè)開發(fā)環(huán)境都是面向?qū)ο蟮?，否則對(duì)象產(chǎn)生的好處還沒有帶來的麻煩多。而delphi 是完全面向?qū)ο蟮?，這就使得 delphi 成為一種觸手可及的促進(jìn)軟件重用

13、的開發(fā)工具，從而具有強(qiáng)大的吸引力。 一些早期的具有 oop 性能的程序語言如c+,pascal,smalltalk 等，雖然具有面向?qū)ο蟮奶卣?，但不能輕松地畫出可視化對(duì)象，與用戶交互能力較差，程序員仍然要編寫大量的代碼。delphi 的推出，填補(bǔ)了這項(xiàng)空白。您不必自己建立對(duì)象，只要在提供的程序框架中加入完成功能的代碼，其余的都交給delphi 去做。欲生成漂亮的界面和結(jié)構(gòu)良好的程序絲毫不必絞盡腦汁，delphi 將幫助您輕松地完成。它允許在一個(gè)具有真正 oop 擴(kuò)展的可視化編程環(huán)境中，使用它的 object pascal 語言。這種革命性的組合，使得可視化編程與面向?qū)ο蟮拈_發(fā)框架緊密地結(jié)合起來

14、。3第三章第三章 借貸管理系統(tǒng)分析借貸管理系統(tǒng)分析3.13.1 金融投資公司工作過程描述金融投資公司工作過程描述客戶到金融投資公司申請(qǐng)貸款資金，主要有客戶登記，客戶回訪，審批進(jìn)度，貸后管理等工作流程。（1）客戶登記：每個(gè)客戶到金融投資公司申請(qǐng)貸款資金，必須經(jīng)過客戶登記，它必須填寫大量的客戶信息：1.貸款人基本信息 2.貸款人單位基本信息 3.貸款人單位商鋪信息 4.聯(lián)系人基本信息 5.聯(lián)系人電話記錄信息 6.聯(lián)系信息 7.抵押土地信息 8.抵押住房信息而投資公司也給每個(gè)客戶相應(yīng)的信息。（2）客戶回訪：投資公司對(duì)已經(jīng)貸了款的客戶，必須定期對(duì)其進(jìn)行回訪。在這個(gè)階段，投資公司要對(duì)相應(yīng)的回訪信息進(jìn)行添

15、加，查詢，修改，刪除等操作。（3）審批進(jìn)度：在這個(gè)階段，投資公司必須對(duì)客戶進(jìn)行定期的評(píng)估。而評(píng)估還需要指定的評(píng)估公司進(jìn)行評(píng)估，待評(píng)估公司對(duì)貸款客戶評(píng)估完后，填寫相應(yīng)的評(píng)估信息和考察信息，如果需要還要添加相應(yīng)的補(bǔ)充材料信息。（4）貸后管理：在貸款之后的相關(guān)信息都要在貸后管理中進(jìn)行操作，這些信息有：還款方式，月息，月還款額，固定提醒時(shí)間，提醒員，提醒日期等相關(guān)信息。3.23.2 借貸管理系統(tǒng)需求分析借貸管理系統(tǒng)需求分析.1 編寫目的：編寫目的：需求分析，不僅僅是拿到客戶的需求，更重要的是還需進(jìn)行分析，了解細(xì)節(jié)，并就細(xì)節(jié)跟客戶咨詢，獲取最詳細(xì)的資料?？蛻羲芴峁┙o你的只是他們想到的功

16、能需求，4很多問題并不在他們考慮的范圍之內(nèi)，如果作為項(xiàng)目承擔(dān)方?jīng)]有去做分析，簡(jiǎn)單的按照功能要求去設(shè)計(jì)、規(guī)劃，最終出來的系統(tǒng)是很難完全符合客戶的業(yè)務(wù)流程的，這時(shí)，自然需要更改，被看成了需求的更改。其實(shí)，都是缺乏分析所一手造成的。問題等到系統(tǒng)出來了才被發(fā)現(xiàn)，這樣的系統(tǒng)本身就是先天不足的了。本說明書將全面描述本系統(tǒng)的各種功能、運(yùn)行環(huán)境，使用戶和開發(fā)者雙方對(duì)本系統(tǒng)的初始規(guī)定有一個(gè)共同的理解，使之成為整個(gè)開發(fā)工作的基礎(chǔ)。.2 功能結(jié)構(gòu)：功能結(jié)構(gòu)： 本系統(tǒng)的主要工作是客戶登記，客戶回訪，審批進(jìn)度，貸后管理等功能模塊。借貸管借貸管理系統(tǒng)理系統(tǒng)客戶登記客戶登記客戶回訪客戶回訪審批進(jìn)度審批進(jìn)度貸

17、后管理貸后管理貸款人基本信息貸款人基本信息貸款人單位信息貸款人單位信息聯(lián)系信息聯(lián)系信息抵押信息抵押信息回訪信息回訪信息回訪記錄回訪記錄評(píng)估管理評(píng)估管理交費(fèi)信息交費(fèi)信息考察信息考察信息補(bǔ)充材料信息補(bǔ)充材料信息貸后還款信息貸后還款信息貸款信息貸款信息.3 功能實(shí)現(xiàn)：功能實(shí)現(xiàn)：（1）客戶登記： 1.貸款人基本信息管理：主要是對(duì)貸款人基本的一些資料進(jìn)行管理，給出客戶一個(gè)貸款人編號(hào)，這個(gè)是唯一的，以后的管理都要通過這個(gè)編號(hào)來進(jìn)行。同時(shí)要輸入貸款人的姓名，出生日期，戶籍，貸款額，貸款年限，貸款用途，單位名稱。公司會(huì)給出推薦貸款方案，聯(lián)系編號(hào)和銀行編號(hào)。聯(lián)系編號(hào)是用來查詢聯(lián)系記錄的信息。2

18、.貸款人單位基本信息管理：通過貸款人基本信息里的單位名稱來輸入單位信息，有經(jīng)營行業(yè)，公司性質(zhì)；通過單位名稱來查詢單位基本信息，刪除和打印信息。3.貸款人單位商鋪信息管理：通過單位名稱輸入必要的貸款人單位商鋪的信息，那信息有商鋪名稱，商鋪地點(diǎn)，攤位號(hào)，商鋪性質(zhì)，租賃期限。4.聯(lián)系人基本信息管理：通過貸款人編號(hào)來添加聯(lián)系人編號(hào)和姓名，聯(lián)系人編號(hào)是聯(lián)系人的憑證，也是唯一的，根據(jù)它來進(jìn)行查詢聯(lián)系人基本信息。5.聯(lián)系人電話記錄信息管理：主要是記錄聯(lián)系人與借貸公司的聯(lián)系記錄：聯(lián)系電話，來電時(shí)間，聯(lián)系人編號(hào)。6.聯(lián)系信息管理：管理的信息有：接線員編號(hào)，值班員編號(hào)，派單員編號(hào)，客戶經(jīng)理編號(hào)，客源。7.抵押土地

19、信息管理：按照貸款人編號(hào)來管理的抵押的土地信息，其中包括土地位置，土地性質(zhì)，產(chǎn)權(quán)性質(zhì)，抵押人年齡，抵借關(guān)系。8.抵押住房信息管理：同上也是按照貸款人編號(hào)來管理抵押住房信息，其中包括抵押房產(chǎn)地址，房產(chǎn)價(jià)值，房產(chǎn)權(quán)性質(zhì)，抵押比率，房產(chǎn)面積，房齡，房產(chǎn)用途。 （2）客戶回訪：1.客戶記錄管理：按照貸款人編號(hào)來添加回訪記錄：回訪編號(hào)，回訪員編號(hào)，回訪時(shí)間。2.回訪信息管理：通過貸款人編號(hào)來查詢回訪編號(hào)，通過回訪編號(hào)和貸款人編號(hào)兩個(gè)編號(hào)來查詢回訪內(nèi)容，對(duì)其進(jìn)行管理。6（3）審批進(jìn)度：1.評(píng)估公司信息管理：評(píng)估公司的一些基本信息的管理，通過貸款人編號(hào)錄入評(píng)估公司名稱，評(píng)估公司電話，評(píng)估公司地址。2.評(píng)估信

20、息管理：憑借貸款人編號(hào)和評(píng)估公司名稱來對(duì)其進(jìn)行管理，管理的信息包括評(píng)估值，評(píng)估日期，報(bào)件日期，審批單元，送件員編號(hào)。3.考察信息管理：借貸公司要對(duì)貸款人進(jìn)行考察，考察后的信息要進(jìn)行管理，也必須通過貸款人編號(hào)來進(jìn)行管理考察信息，還包括有考察編號(hào)，考察時(shí)間，陪同考察員。4.補(bǔ)充材料信息管理：有時(shí)需要添加點(diǎn)補(bǔ)充材料，通過貸款人編號(hào)管理補(bǔ)充材料編號(hào)，補(bǔ)充材料日期，上級(jí)審批時(shí)間，補(bǔ)充材料內(nèi)容。5.交費(fèi)信息管理：對(duì)交費(fèi)信息（貸款人編號(hào)，交費(fèi)編號(hào)，交費(fèi)日期，交費(fèi)額度）進(jìn)行管理。6.銀行信息管理：借貸公司是貸款人和銀行的中介，所以對(duì)銀行信息要進(jìn)行大量管理。7.貸款信息管理：是審批進(jìn)度中重要的環(huán)節(jié)，其內(nèi)容包括有

21、貸款人編號(hào)，銀行編號(hào)，申請(qǐng)貸款額，申請(qǐng)貸款期限，放款日期，放款額度，到期日期，互清和經(jīng)辦人。（4）貸后管理：1.貸后還款信息管理：對(duì)已經(jīng)申請(qǐng)下來的貸款人要對(duì)貸款進(jìn)行定期的償還，而如何償還則需要管理，要管理的內(nèi)容有貸款人編號(hào)，還款編號(hào)，還款方式，月息，月還款額，固定提醒時(shí)間，提醒員編號(hào)，提醒日期。（5）員工管理：1.對(duì)借貸公司員工進(jìn)行信息管理。3.33.3 借貸管理系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)借貸管理系統(tǒng)數(shù)據(jù)庫設(shè)計(jì) 這里包括十九個(gè)數(shù)據(jù)表如下：.1 貸款人基本信息（貸款人基本信息（creditorcreditor）：）：貸款人編號(hào) creditor_id，姓名 creditor_name，出生

22、日期 birthday，戶籍 door，貸款額 credit_money，貸款年限 credit_time，貸款用途 credit_use，推薦貸款方案credit_way，單位名稱 dp_name.2 聯(lián)系人基本信息（聯(lián)系人基本信息（linkmanlinkman）：）：聯(lián)系人編號(hào) lman_id，姓名 lman_name，貸款人編號(hào) creditor_id.3 聯(lián)系人電話記錄信息聯(lián)系人電話記錄信息(phonerecord)(phonerecord)：聯(lián)系電話 phone，來電時(shí)間 ph_time，聯(lián)系人編號(hào) lman_id.4 貸款人單位信息貸

23、款人單位信息(department)(department)：?jiǎn)挝幻Q dp_name，經(jīng)營行業(yè) working，公司性質(zhì) dp_kind.5 單位商鋪信息單位商鋪信息(store)(store)：商鋪名稱 store_name，商鋪地點(diǎn) store_place，攤位號(hào) stall，商鋪性質(zhì)store_kind，租賃期限 leasehold，單位名稱 dp_name.6 抵押土地信息抵押土地信息(morfield)(morfield)：位置 mf_position，土地性質(zhì) mf_kind，產(chǎn)權(quán)性質(zhì) mfright_kind，抵押人年齡morer_age，抵借關(guān)

24、系 dijie，貸款人編號(hào) creditor_id.7 聯(lián)系信息聯(lián)系信息(connection)(connection)：聯(lián)系編號(hào) link_id，接線員編號(hào) operator_id，值班員編號(hào) duty_id，派單員編號(hào)sender_id，客戶經(jīng)理編號(hào) clientm_id，客源 root.8 回訪記錄回訪記錄(revertrecord)(revertrecord)：回訪編號(hào) rt_id，回訪員編號(hào) revertor_id，回訪時(shí)間 rt_time，貸款人編號(hào)creditor_id.9 回訪信息回訪信息(revert)(revert)：貸款人編

25、號(hào) creditor_id，回訪編號(hào) rt_id，回訪內(nèi)容 rt_content.10 交費(fèi)信息交費(fèi)信息(charge)(charge)：交費(fèi)編號(hào) charge_id，交費(fèi)日期 charge_date，交費(fèi)額度 charge_money，貸款人編號(hào)creditor_id.11 評(píng)估公司信息評(píng)估公司信息(evaluater)(evaluater)：評(píng)估公司名稱 evaluate_name，評(píng)估公司電話 evaluate_phone，評(píng)估公司地址evaluate_address,貸款人編號(hào) creditor_id.12 評(píng)估信息評(píng)估信息(ev

26、aluating)(evaluating)：貸款人編號(hào) creditor_id，評(píng)估公司名稱 evaluate_name，評(píng)估值 opinion，評(píng)估日期 evaluate_date，報(bào)件日期 filedate，審批單元 exam，送件員編號(hào) filesender_id.13 補(bǔ)充材料信息補(bǔ)充材料信息(addfile)(addfile)：補(bǔ)充材料編號(hào) addfile_id，補(bǔ)充材料內(nèi)容 addfile_content，補(bǔ)充材料日期addfiledate，上級(jí)審批時(shí)間 examdate，貸款人編號(hào) creditor_id.14 考察信息考察信息(examina

27、tion)(examination)：考察編號(hào) exam_id，考察時(shí)間 examtime，陪同考察員 peitongexamer，貸款人編號(hào)creditor_id.15 抵押住房信息抵押住房信息(morhouse)(morhouse)：抵押房產(chǎn)地址 address，房產(chǎn)價(jià)值 mh_valuate，房產(chǎn)權(quán)性質(zhì) mh_rightkind，抵押比率 morrate，房產(chǎn)面積 mh_area，房齡 mh_age，房產(chǎn)用途 mh_use，貸款人編號(hào)creditor_id.16 銀行信息銀行信息(bank)(bank)：銀行編號(hào) bank_id，a 銀行名稱 bank

28、_name.17 貸款信息貸款信息(credit)(credit)：貸款人編號(hào) creditor_id，銀行編號(hào) bank_id，申請(qǐng)貸款額 apply_money，申請(qǐng)貸款期限 apply_term，放款日期 loan_date，放款額度 loan_money，到期日期 term，互清huqing，a 經(jīng)辦人 jingbanren.18 還款信息還款信息(repay)(repay)：還款編號(hào) repay_id，還款方式 repay_way，月息 mon_interest，月還款額mon_repaymoney，固定提醒時(shí)間 fixed_awaketime，提

29、醒員編號(hào) awaker_id，提醒日期awake_date，貸款人編號(hào) creditor_id.19 員工信息員工信息(worker)(worker)：?jiǎn)T工編號(hào) worker_id，員工姓名 worker_name，員工性別 worker_sex，員工年齡worker_age，員工籍貫 worker_jiguan，員工電話 worker_phone，備注 beizhu9第四章第四章 借貸管理系統(tǒng)設(shè)計(jì)借貸管理系統(tǒng)設(shè)計(jì)4.14.1 借貸管理系統(tǒng)界面設(shè)計(jì)借貸管理系統(tǒng)界面設(shè)計(jì) .1 主界面設(shè)計(jì)主界面設(shè)計(jì) ： .2 業(yè)務(wù)類界面設(shè)計(jì)：業(yè)務(wù)類界面設(shè)計(jì)： （1

30、）添加信息界面：10（2）查詢信息界面：11（3）刪除信息界面：（4）打印信息界面：12（5）關(guān)于界面：4.24.2 借貸管理系統(tǒng)代碼設(shè)計(jì)借貸管理系統(tǒng)代碼設(shè)計(jì)本借貸管理系統(tǒng)采用的是 delphi 技術(shù)開發(fā)的，主要用到了添加，查詢，修改，刪除和打印的基本程序所構(gòu)成的，下面是取了貸款人基本信息管理為代表來書寫的主要代碼。.1 添加過程代碼：添加過程代碼：procedure tadddaikuanrenform.button1click(sender: tobject);var mycount:integer;beginif length(dkrbhedit.text )=0 the

31、nbeginmessagebeep(1);showmessage(請(qǐng)輸入貸款人編號(hào));dkrbhedit.setfocus;dkrbhedit.focused;13endelsebeginstrtoint(dkrbhedit.text );daikuanrenquery.close;daikuanrenquery.sql.clear;daikuanrenquery.params.clear;daikuanrenquery.params.createparam(ftstring,dkrbh,ptinput).asstring:=dkrbhedit.text;daikuanrenquery.sql

32、.add(select * from creditor where creditor_id=:dkrbh;);daikuanrenquery.execsql;daikuanrenquery.open;mycount:=daikuanrenquery.recordcount ;if mycount=1 thenbegin messagebeep(1); showmessage(此貸款人已經(jīng)存在，請(qǐng)重新輸入); dkrbhedit.clear; dkrxmedit.clear; csrqedit.clear; hjedit.clear; dkeedit.clear; dknxedit.clear;

33、 dkytedit.clear; tjdkfaedit.clear; dwmcedit.clear;dkrbhedit.setfocus;dkrbhedit.focused;endelse14begindaikuanrenquery.close;daikuanrenquery.sql.clear;daikuanrenquery.params.clear; daikuanrenquery.params.createparam(ftstring,dkrbh,ptinput).asstring:=dkrbhedit.text; daikuanrenquery.params.createparam(f

34、tstring,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; daikuan

35、renquery.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,ptinp

36、ut).asstring:=dwmced15it.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; dknxedit.cle

37、ar; dkytedit.clear; tjdkfaedit.clear; dwmcedit.clear;dkrbhedit.setfocus;dkrbhedit.focused;dkrbhedit.setfocus;dkrbhedit.focused;end;end;end;.2 查詢過程代碼：查詢過程代碼：procedure tchaxundaikuanrenform.button3click(sender: tobject);begindaikuanrenquery.close;daikuanrenquery.sql.clear;daikuanrenquery.param

38、s.clear;daikuanrenquery.params.createparam(ftstring,dkrbh,ptinput).asstring:=dkrbhcombobox.text;16daikuanrenquery.sql.add(select * from creditor where creditor_id=:dkrbh;);daikuanrenquery.execsql;daikuanrenquery.open;dkrxmedit.text:=daikuanrenquerycreditor_name.value;csrqedit.text:=daikuanrenquerybi

39、rthday.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:=daikuanrenquerydp_name.value;daikuanrenqu

40、ery.close;dkrbhcombobox.setfocus;dkrbhcombobox.focused;end;.3 修改過程代碼：修改過程代碼：procedure tchaxundaikuanrenform.button1click(sender: tobject);begin daikuanrenquery.close; daikuanrenquery.sql.clear; daikuanrenquery.params.clear;daikuanrenquery.params.createparam(ftstring,dkrbh,ptinput).asstring:=

41、dkrbhcombobox.text; daikuanrenquery.params.createparam(ftstring,dkrxm,ptinput).asstring:=dkrxmedit.text; daikuanrenquery.params.createparam(ftstring,csrq,ptinput).asstring:=csrqedit.text; 17daikuanrenquery.params.createparam(ftstring,hj,ptinput).asstring:=hjedit.text ; daikuanrenquery.params.createp

42、aram(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.te

43、xt; 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,credit_time=:dknx,credit_use=:dkyt,credit_way=:tjdkfa,dp_name=:dwmc where creditor_id=:

44、dkrbh); daikuanrenquery.execsql; messagebeep(1); showmessage(貸款人基本信息修改成功); dkrbhcombobox.text:=; dkrxmedit.clear; csrqedit.clear; hjedit.clear; dkeedit.clear; dknxedit.clear;18 dkytedit.clear; tjdkfaedit.clear; dwmcedit.clear; dkrbhcombobox.setfocus; dkrbhcombobox.focused;end;.4 刪除過程代碼：刪除過程代

45、碼：procedure tshanchudaikuanrenform.button1click(sender: tobject);var i:integer;begindaikuanrenquery.close;daikuanrenquery.sql.clear;daikuanrenquery.params.clear;daikuanrenquery.params.createparam(ftstring,dkrbh,ptinput).asstring:=dkrbhcombobox.text;daikuanrenquery.sql.add(delete from creditor where

46、creditor_id=:dkrbh;);daikuanrenquery.execsql;messagebeep(1);showmessage(貸款人基本信息刪除成功);i:=0;daikuanrentable.open;dkrbhcombobox.clear;daikuanrentable.first;while idaikuanrentable.recordcount dobegin dkrbhcombobox.items.insert(i,daikuanrentablecreditor_id.value ); daikuanrentable.next; i:=i+1;end;daikua

47、nrentable.close;19dkrbhcombobox.setfocus;dkrbhcombobox.focused;end;.5 打印過程代碼：打印過程代碼：procedure tdayindaikuanrenform.button1click(sender: tobject);begincreditorquery.close;creditorquery.params.clear;creditorquery.sql.clear;creditorquery.params.createparam(ftstring,bh,ptinput).asstring:=bhcombo

48、box.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:=;bhcombobox.setfocus;bhcombobox.focused;end;20第五章第五章 借貸管

49、理系統(tǒng)測(cè)試及運(yùn)行借貸管理系統(tǒng)測(cè)試及運(yùn)行5.15.1 系統(tǒng)測(cè)試系統(tǒng)測(cè)試測(cè)試過程按 4 個(gè)步驟進(jìn)行，即單元測(cè)試、集成測(cè)試、確認(rèn)測(cè)試和系統(tǒng)測(cè)試及發(fā)版測(cè)試。 開始是單元測(cè)試，集中對(duì)用源代碼實(shí)現(xiàn)的每一個(gè)程序單元進(jìn)行測(cè)試，檢查各個(gè)程序模塊是否正確地實(shí)現(xiàn)了規(guī)定的功能。 集成測(cè)試把已測(cè)試過的模塊組裝起來，主要對(duì)與設(shè)計(jì)相關(guān)的軟件體系結(jié)構(gòu)的構(gòu)造進(jìn)行測(cè)試。 確認(rèn)測(cè)試則是要檢查已實(shí)現(xiàn)的軟件是否滿足了需求規(guī)格說明中確定了的各種需求，以及軟件配置是否完全、正確。 系統(tǒng)測(cè)試把已經(jīng)經(jīng)過確認(rèn)的軟件納入實(shí)際運(yùn)行環(huán)境中，與其它系統(tǒng)成份組合在一起進(jìn)行測(cè)試。5.25.2 系統(tǒng)運(yùn)行系統(tǒng)運(yùn)行雙擊金融借貸管理系統(tǒng)快捷鍵啟動(dòng)本系統(tǒng)，立即看見本

50、系統(tǒng)啟動(dòng)界面，過了三秒鐘后便進(jìn)入本系統(tǒng)的主界面-金融借貸管理系統(tǒng)，此時(shí)便可以對(duì)你所要管理的信息進(jìn)行添加，查詢，修改，刪除和打印等操作了。21第六章：結(jié)論與展望第六章：結(jié)論與展望6.16.1 小結(jié)小結(jié)delphi 從誕生到現(xiàn)在的發(fā)展壯大，經(jīng)歷了相當(dāng)長的一段時(shí)間，從delphi1，delphi2，一直到今天的 delphi7 已經(jīng)是越來越強(qiáng)大起來，通過人們的不斷對(duì)其了解，熟知和不斷的深入，我想 delphi 定會(huì)像其他先進(jìn)的技術(shù)一樣矗立于軟件行業(yè)之巔。而通過這次的畢業(yè)設(shè)計(jì)，使我對(duì) delphi 有了更多的興趣和了解，我將繼續(xù)對(duì)其進(jìn)行不斷探究，深入，為以后能夠開發(fā)更好更方便的軟件而努力著。6.26.

51、2 展望展望一個(gè) turbo pascal 和 delphi 的時(shí)代已經(jīng)過去了，但是一個(gè)偉大技術(shù)，一個(gè)偉大的社區(qū)，一個(gè)新 delphi 公司將帶領(lǐng) delphi 來到了新時(shí)代。新時(shí)代的 delphi 將是什么樣的呢？面向更多平臺(tái)面向更多平臺(tái)在未來的 10 年，delphi 需要面向更多的平臺(tái)，例如：64 位，avalon，pockpc 等這些無疑是非常吸引人的，同時(shí)新的 macintel，firefox 瀏覽器平臺(tái)，linux 服務(wù)器平臺(tái)等等 ，r&d 應(yīng)該更好的觀察發(fā)生在周圍的一切，然后比以往更快的將適合的技術(shù)整合到 delphi 中。更好的面向更好的面向 webwebdelphi 應(yīng)該有自

52、己的 web 開發(fā)策略而不是跟著微軟的 asp.net 。例如 webbroker ，ajax-precursor，這些都是目前最好的 web 技術(shù)，你可以在 ruby on rails 和 asp.net 之外有更多的選擇。更加開放更加開放一個(gè)公司不能完全依靠自己，應(yīng)該與其它的公司和社區(qū)建立同盟，但是這并不是意味著 delphi 一定要開源，而是變成一個(gè)開放的平臺(tái)兼容更多的技術(shù)，雖然跟隨著微軟很不錯(cuò)，但是在我們周圍同樣很多其它優(yōu)秀的技術(shù)（mono，ajax，google 和 amazon web服務(wù)平臺(tái)等等）。22更好的連通性更好的連通性像，jbuilder， delphiide 應(yīng)該能與本地和異地的 jbuilder，delphi ide 有更好的連通性，無論我在什么地方都應(yīng)該可以方便的看到開發(fā)項(xiàng)目的源代碼。更加集成的軟件更加集成的軟件delphi 已經(jīng)開始融入來自開源社區(qū)的部分，這是一個(gè)很好的方向。例如 context editor 邦定到 delphi，以及 beyo