Delphi金融借貸管理系統(tǒng)

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

2、貸雙方的需求，達(dá)到操作過程中的簡潔，直觀，方 便，實(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)。總之，本系統(tǒng)設(shè)計(jì)開發(fā)的過 程，是對 Delphi 應(yīng)用基礎(chǔ)的實(shí)踐和檢驗(yàn)，也是對我們所學(xué)專業(yè)知識的具體應(yīng)用和全 面提高。 關(guān)鍵詞關(guān)鍵詞：Delphi 控件 借貸管理系統(tǒng) 可視化工具 目目 錄錄 摘 要.I 關(guān)鍵詞：DELPHI 控件 借貸管理系統(tǒng) 可視化工具.

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

4、3）審批進(jìn)度：.6 （4）貸后管理：.6 （5）員工管理：.6 3.3 借貸管理系統(tǒng)數(shù)據(jù)庫設(shè)計(jì).6 3.3.1 貸款人基本信息（creditor）：.6 3.3.2 聯(lián)系人基本信息（linkman）：.7 3.3.3 聯(lián)系人電話記錄信息(phonerecord)：.7 3.3.4 貸款人單位信息(department)：.7 3.3.5 單位商鋪信息(store)：.7 3.3.6 抵押土地信息(morfield)：.7 3.3.7 聯(lián)系信息(connection)：.7 3.3.8 回訪記錄(revertrecord)：.7 3.3.9 回訪信息(revert)：.7 3.3.10 交費(fèi)信息

5、(charge)：.7 3.3.11 評估公司信息(evaluater)：.7 3.3.12 評估信息(evaluating)：.7 3.3.13 補(bǔ)充材料信息(addfile)：.8 3.3.14 考察信息(examination)：.8 3.3.15 抵押住房信息(morhouse)：.8 3.3.16 銀行信息(bank)：.8 3.3.17 貸款信息(credit)：.8 3.3.18 還款信息(repay)：.8 3.3.19 員工信息(worker)：.8 第四章 借貸管理系統(tǒng)設(shè)計(jì).9 4.1 借貸管理系統(tǒng)界面設(shè)計(jì).9 4.1.1 主界面設(shè)計(jì) ：.9 4.1.2 業(yè)務(wù)類界面設(shè)計(jì)：.

6、9 （1）添加信息界面：.9 （2）查詢信息界面：.10 （3）刪除信息界面：.11 （4）打印信息界面：.11 （5）關(guān)于界面：.12 4.2 借貸管理系統(tǒng)代碼設(shè)計(jì).12 4.2.1 添加過程代碼：.12 4.2.2 查詢過程代碼：.15 4.2.3 修改過程代碼：.16 4.2.4 刪除過程代碼：.18 4.2.5 打印過程代碼：.19 第五章 借貸管理系統(tǒng)測試及運(yùn)行.20 5.1 系統(tǒng)測試.20 5.2 系統(tǒng)運(yùn)行.20 第六章：結(jié)論與展望.21 6.1 小結(jié).21 6.2 展望.21 謝 辭.23 參考文獻(xiàn).24 第一章第一章 引引 言言 1.11.1 設(shè)計(jì)思想設(shè)計(jì)思想 本系統(tǒng)的選題是借

7、貸管理系統(tǒng)，是針對現(xiàn)行較多的投資公司對借貸關(guān)系的 管理而開發(fā)的，對該系統(tǒng)設(shè)計(jì)的指導(dǎo)思想是“清晰第一，效率第二” ，一切方便用戶， 為每個操作者盡可能的提供方便，快捷，美觀，穩(wěn)定的軟件，不僅如此還要有很好的 容錯性能，能夠與用戶進(jìn)行及時的對話，當(dāng)出現(xiàn)錯誤操作時能及時提出警告，方便用 戶進(jìn)行及時地改正。針對本軟件的操作領(lǐng)域，還應(yīng)兼?zhèn)淞己玫谋Ｃ苄阅堋?具體表現(xiàn)為： （1）系統(tǒng)得符合借貸管理公司的規(guī)定，滿足借貸管理公司員工的日常使用需求， 達(dá)到操作過程中的直觀，方便，實(shí)用安全等要求； （2）系統(tǒng)具有數(shù)據(jù)庫管理系統(tǒng)功能，能夠通過對用戶需求轉(zhuǎn)化為信息添加到數(shù) 據(jù)庫，并且對其進(jìn)行查詢，修改，刪除，打印等一系

8、列的操作。 （3）系統(tǒng)采用了模塊化的程序設(shè)計(jì)方法，有利于各個功能模塊的組合和修改， 也便于后期維護(hù)人員的補(bǔ)充和維護(hù)。 1.21.2 本課題的研究意義本課題的研究意義 通過該借貸管理系統(tǒng)能夠使金融投資公司的信息管理工作條理化，規(guī)范化，自 動化，方便化，安全化，以致提高信息管理工作的效率，使工作人員能夠便捷的完成 各項(xiàng)任務(wù)。 1.31.3 系統(tǒng)設(shè)計(jì)目的系統(tǒng)設(shè)計(jì)目的 能夠及時并準(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

9、或 Windows2000、XP 第二章第二章 DELPHI 技術(shù)簡介技術(shù)簡介 2.12.1 DELPHIDELPHI 的產(chǎn)生和發(fā)展的產(chǎn)生和發(fā)展 Delphi 是著名的 Borland（現(xiàn)在已和 Inprise 合并）公司開發(fā)的可視化軟件開發(fā) 工具。 “真正的程序員用 c，聰明的程序員用 Delphi” ，這句話是對 Delphi 最經(jīng)典、最 實(shí)在的描述。Delphi 被稱為第四代編程語言，它具有簡單、高效、功能強(qiáng)大的特點(diǎn)。 和 VC 相比，Delphi 更簡單、更易于掌握，而在功能上卻絲毫不遜色；和 VB 相比， Delphi 則功能更強(qiáng)大、更實(shí)用。可以說 Delphi 同時兼?zhèn)淞?VC 功

10、能強(qiáng)大和 VB 簡單易學(xué) 的特點(diǎn)。它一直是程序員至愛的編程工具。在 Delphi 眾多的優(yōu)勢當(dāng)中，它在數(shù)據(jù)庫方 面的特長顯得尤為突出：適應(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è)組件。Delphi 發(fā)展至今，從 Delphi、Delphi到現(xiàn)在的 Delphi7，不斷添加和改進(jìn)各種特性，功能越來越強(qiáng)大。Delphi7 添加了對 IDE（集成開 發(fā)環(huán)境）的很多改進(jìn)新特性，擴(kuò)展了數(shù)據(jù)庫支持（ADO 和 InterBase 數(shù)據(jù)庫） ，帶有 Internet 支持的 MIDAS 改進(jìn)版，TeamS

11、ouse 版本控制工具，轉(zhuǎn)換功能，框架概念以及很 多的新組件與新特性。 2.22.2 DELPHIDELPHI 的特點(diǎn)的特點(diǎn) DELPHIDELPHI 的語言特性的語言特性 Delphi 具有以下的特性：基于窗體和面向?qū)ο蟮姆椒ǎ咚俚木幾g器，強(qiáng)大的數(shù) 據(jù)庫支持，與 Windows 編程緊密結(jié)合，強(qiáng)大而成熟的組件技術(shù)。但最重要的還是 Object Pascal 語言，它才是一切的根本。 Object Pascal 語言是在 Pascal 語言的基礎(chǔ)上發(fā)展 起來的，簡單易學(xué)。Delphi 提供了各種開發(fā)工具，包括集成環(huán)境、圖像編輯（Image Editor） ，以及各種開發(fā)數(shù)據(jù)庫的應(yīng)用程序，如

12、DesktopDataBase Expert 等。除此之外， 還允許用戶掛接其它的應(yīng)用程序開發(fā)工具，如 Borland 公司的資源編輯器（Resourse Workshop） 。面向?qū)ο蟮某绦蛟O(shè)計(jì)(Object-Oriented Programming，簡記為 OOP)是 Delphi 誕生的基礎(chǔ)。OOP 立意于創(chuàng)建軟件重用代碼，具備更好地模擬現(xiàn)實(shí)世界環(huán)境的能 力，這使它被公認(rèn)為是自上而下編程的優(yōu)勝者。它通過給程序中加入擴(kuò)展語句，把函數(shù) “封裝”進(jìn) Windows 編程所必需的“對象”中。面向?qū)ο蟮木幊陶Z言使得復(fù)雜的工作條 理清晰、編寫容易。說它是一場革命，不是對對象本身而言，而是對它們處理工

13、作的能 力而言。對象并不與傳統(tǒng)程序設(shè)計(jì)和編程方法兼容，只是部分面向?qū)ο蠓炊鴷骨樾胃?糟。除非整個開發(fā)環(huán)境都是面向?qū)ο蟮?，否則對象產(chǎn)生的好處還沒有帶來的麻煩多。而 Delphi 是完全面向?qū)ο蟮?，這就使得 Delphi 成為一種觸手可及的促進(jìn)軟件重用的開發(fā)工 具，從而具有強(qiáng)大的吸引力。 一些早期的具有 OOP 性能的程序語言如 C+,Pascal,Smalltalk 等，雖然具有面向?qū)ο蟮奶卣鳎荒茌p松地畫出可視化對象， 與用戶交互能力較差，程序員仍然要編寫大量的代碼。Delphi 的推出，填補(bǔ)了這項(xiàng)空白。 您不必自己建立對象，只要在提供的程序框架中加入完成功能的代碼，其余的都交給 Delp

14、hi 去做。欲生成漂亮的界面和結(jié)構(gòu)良好的程序絲毫不必絞盡腦汁，Delphi 將幫助您 輕松地完成。它允許在一個具有真正 OOP 擴(kuò)展的可視化編程環(huán)境中，使用它的 Object Pascal 語言。這種革命性的組合，使得可視化編程與面向?qū)ο蟮拈_發(fā)框架緊密地結(jié)合起 來。 第三章第三章 借貸管理系統(tǒng)分析借貸管理系統(tǒng)分析 3.13.1 金融投資公司工作過程描述金融投資公司工作過程描述 客戶到金融投資公司申請貸款資金，主要有客戶登記，客戶回訪，審批進(jìn)度，貸 后管理等工作流程。 （1）客戶登記： 每個客戶到金融投資公司申請貸款資金，必須經(jīng)過客戶登記，它必須填寫大量的 客戶信息：1.貸款人基本信息 2.貸款

15、人單位基本信息 3.貸款人單位商鋪信息 4.聯(lián)系人 基本信息 5.聯(lián)系人電話記錄信息 6.聯(lián)系信息 7.抵押土地信息 8.抵押住房信息 而投資公司也給每個客戶相應(yīng)的信息。 （2）客戶回訪： 投資公司對已經(jīng)貸了款的客戶，必須定期對其進(jìn)行回訪。在這個階段，投資公司 要對相應(yīng)的回訪信息進(jìn)行添加，查詢，修改，刪除等操作。 （3）審批進(jìn)度： 在這個階段，投資公司必須對客戶進(jìn)行定期的評估。而評估還需要指定的評估公 司進(jìn)行評估，待評估公司對貸款客戶評估完后，填寫相應(yīng)的評估信息和考察信息，如果 需要還要添加相應(yīng)的補(bǔ)充材料信息。 （4）貸后管理： 在貸款之后的相關(guān)信息都要在貸后管理中進(jìn)行操作，這些信息有：還款方

16、式，月 息，月還款額，固定提醒時間，提醒員，提醒日期等相關(guān)信息。 3.23.2 借貸管理系統(tǒng)需求分析借貸管理系統(tǒng)需求分析 .1 編寫目的：編寫目的： 需求分析，不僅僅是拿到客戶的需求，更重要的是還需進(jìn)行分析，了解細(xì)節(jié)，并 就細(xì)節(jié)跟客戶咨詢，獲取最詳細(xì)的資料?？蛻羲芴峁┙o你的只是他們想到的功能需求， 很多問題并不在他們考慮的范圍之內(nèi)，如果作為項(xiàng)目承擔(dān)方?jīng)]有去做分析，簡單的按照 功能要求去設(shè)計(jì)、規(guī)劃，最終出來的系統(tǒng)是很難完全符合客戶的業(yè)務(wù)流程的，這時，自 然需要更改，被看成了需求的更改。其實(shí)，都是缺乏分析所一手造成的。問題等到系統(tǒng) 出來了才被發(fā)現(xiàn)，這樣的系統(tǒng)本身就是先天不足的了。

17、 本說明書將全面描述本系統(tǒng)的各種功能、運(yùn)行環(huán)境，使用戶和開發(fā)者雙方對本系 統(tǒng)的初始規(guī)定有一個共同的理解，使之成為整個開發(fā)工作的基礎(chǔ)。 .2 功能結(jié)構(gòu)：功能結(jié)構(gòu)： 本系統(tǒng)的主要工作是客戶登記，客戶回訪，審批進(jìn)度，貸后管理等功能模塊。 借貸管借貸管 理系統(tǒng)理系統(tǒng) 客戶登記客戶登記客戶回訪客戶回訪審批進(jìn)度審批進(jìn)度貸后管理貸后管理 貸款人基本信息貸款人基本信息 貸款人單位信息貸款人單位信息 聯(lián)系信息聯(lián)系信息 抵押信息抵押信息 回訪信息回訪信息 回訪記錄回訪記錄 評估管理評估管理 交費(fèi)信息交費(fèi)信息 考察信息考察信息 補(bǔ)充材料信息補(bǔ)充材料信息 貸后還款信息貸后還款信息 貸款信息貸款信息 3

18、. 功能實(shí)現(xiàn)：功能實(shí)現(xiàn)： （1）客戶登記： 1.貸款人基本信息管理：主要是對貸款人基本的一些資料進(jìn)行管理，給出客戶 一個貸款人編號，這個是唯一的，以后的管理都要通過這個編號來進(jìn)行。同時要輸入貸 款人的姓名，出生日期，戶籍，貸款額，貸款年限，貸款用途，單位名稱。公司會給出 推薦貸款方案，聯(lián)系編號和銀行編號。聯(lián)系編號是用來查詢聯(lián)系記錄的信息。 2.貸款人單位基本信息管理：通過貸款人基本信息里的單位名稱來輸入單位信息， 有經(jīng)營行業(yè)，公司性質(zhì)；通過單位名稱來查詢單位基本信息，刪除和打印信息。 3.貸款人單位商鋪信息管理：通過單位名稱輸入必要的貸款人單位商鋪的信息， 那信息有商鋪名稱，商

19、鋪地點(diǎn)，攤位號，商鋪性質(zhì)，租賃期限。 4.聯(lián)系人基本信息管理：通過貸款人編號來添加聯(lián)系人編號和姓名，聯(lián)系人編號 是聯(lián)系人的憑證，也是唯一的，根據(jù)它來進(jìn)行查詢聯(lián)系人基本信息。 5.聯(lián)系人電話記錄信息管理：主要是記錄聯(lián)系人與借貸公司的聯(lián)系記錄：聯(lián)系電 話，來電時間，聯(lián)系人編號。 6.聯(lián)系信息管理：管理的信息有：接線員編號，值班員編號，派單員編號，客戶 經(jīng)理編號，客源。 7.抵押土地信息管理：按照貸款人編號來管理的抵押的土地信息，其中包括土地 位置，土地性質(zhì)，產(chǎn)權(quán)性質(zhì)，抵押人年齡，抵借關(guān)系。 8.抵押住房信息管理：同上也是按照貸款人編號來管理抵押住房信息，其中包括 抵押房產(chǎn)地址，房產(chǎn)價值，房產(chǎn)權(quán)性質(zhì)

20、，抵押比率，房產(chǎn)面積，房齡，房產(chǎn)用途。 （2）客戶回訪： 1.客戶記錄管理：按照貸款人編號來添加回訪記錄：回訪編號，回訪員編號，回 訪時間。 2.回訪信息管理：通過貸款人編號來查詢回訪編號，通過回訪編號和貸款人編號 兩個編號來查詢回訪內(nèi)容，對其進(jìn)行管理。 （3）審批進(jìn)度： 1.評估公司信息管理：評估公司的一些基本信息的管理，通過貸款人編號錄入評 估公司名稱，評估公司電話，評估公司地址。 2.評估信息管理：憑借貸款人編號和評估公司名稱來對其進(jìn)行管理，管理的信息 包括評估值，評估日期，報(bào)件日期，審批單元，送件員編號。 3.考察信息管理：借貸公司要對貸款人進(jìn)行考察，考察后的信息要進(jìn)行管理，也 必須通

21、過貸款人編號來進(jìn)行管理考察信息，還包括有考察編號，考察時間，陪同考察員。 4.補(bǔ)充材料信息管理：有時需要添加點(diǎn)補(bǔ)充材料，通過貸款人編號管理補(bǔ)充材料 編號，補(bǔ)充材料日期，上級審批時間，補(bǔ)充材料內(nèi)容。 5.交費(fèi)信息管理：對交費(fèi)信息（貸款人編號，交費(fèi)編號，交費(fèi)日期，交費(fèi)額度） 進(jìn)行管理。 6.銀行信息管理：借貸公司是貸款人和銀行的中介，所以對銀行信息要進(jìn)行大量 管理。 7.貸款信息管理：是審批進(jìn)度中重要的環(huán)節(jié)，其內(nèi)容包括有貸款人編號，銀行編 號，申請貸款額，申請貸款期限，放款日期，放款額度，到期日期，互清和經(jīng)辦人。 （4）貸后管理： 1.貸后還款信息管理：對已經(jīng)申請下來的貸款人要對貸款進(jìn)行定期的償還

22、，而如 何償還則需要管理，要管理的內(nèi)容有貸款人編號，還款編號，還款方式，月息，月還款 額，固定提醒時間，提醒員編號，提醒日期。 （5）員工管理： 1.對借貸公司員工進(jìn)行信息管理。 3.33.3 借貸管理系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)借貸管理系統(tǒng)數(shù)據(jù)庫設(shè)計(jì) 這里包括十九個數(shù)據(jù)表如下： .1 貸款人基本信息（貸款人基本信息（creditorcreditor）：）： 貸款人編號 creditor_id，姓名 creditor_name，出生日期 birthday，戶籍 door，貸 款額 credit_money，貸款年限 credit_time，貸款用途 credit_use，推薦貸款方案 cre

23、dit_way，單位名稱 dp_name .2 聯(lián)系人基本信息（聯(lián)系人基本信息（linkmanlinkman）：）： 聯(lián)系人編號 lman_id，姓名 lman_name，貸款人編號 creditor_id .3 聯(lián)系人電話記錄信息聯(lián)系人電話記錄信息(phonerecord)(phonerecord)： 聯(lián)系電話 phone，來電時間 ph_time，聯(lián)系人編號 lman_id .4 貸款人單位信息貸款人單位信息(department)(department)： 單位名稱 dp_name，經(jīng)營行業(yè) working，公司性質(zhì) dp_kind 3.3

24、.53.3.5 單位商鋪信息單位商鋪信息(store)(store)： 商鋪名稱 store_name，商鋪地點(diǎn) store_place，攤位號 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)系 dijie，貸款人編號 creditor_id .7 聯(lián)系信息聯(lián)系信息(connection)(connectio

25、n)： 聯(lián)系編號 link_id，接線員編號 operator_id，值班員編號 duty_id，派單員編號 sender_id，客戶經(jīng)理編號 clientm_id，客源 root .8 回訪記錄回訪記錄(revertrecord)(revertrecord)： 回訪編號 rt_id，回訪員編號 revertor_id，回訪時間 rt_time，貸款人編號 creditor_id .9 回訪信息回訪信息(revert)(revert)： 貸款人編號 creditor_id，回訪編號 rt_id，回訪內(nèi)容 rt_content .10 交費(fèi)信息交

26、費(fèi)信息(charge)(charge)： 交費(fèi)編號 charge_id，交費(fèi)日期 charge_date，交費(fèi)額度 charge_money，貸款人編號 creditor_id .11 評估公司信息評估公司信息(evaluater)(evaluater)： 評估公司名稱 evaluate_name，評估公司電話 evaluate_phone，評估公司地址 evaluate_address,貸款人編號 creditor_id .12 評估信息評估信息(evaluating)(evaluating)： 貸款人編號 creditor_id，評估公司名稱 evalu

27、ate_name，評估值 opinion，評估日 期 evaluate_date，報(bào)件日期 filedate，審批單元 exam，送件員編號 filesender_id .13 補(bǔ)充材料信息補(bǔ)充材料信息(addfile)(addfile)： 補(bǔ)充材料編號 addfile_id，補(bǔ)充材料內(nèi)容 addfile_content，補(bǔ)充材料日期 addfiledate，上級審批時間 examdate，貸款人編號 creditor_id .14 考察信息考察信息(examination)(examination)： 考察編號 exam_id，考察時間 examtime，

28、陪同考察員 peitongexamer，貸款人編號 creditor_id .15 抵押住房信息抵押住房信息(morhouse)(morhouse)： 抵押房產(chǎn)地址 address，房產(chǎn)價值 mh_valuate，房產(chǎn)權(quán)性質(zhì) mh_rightkind，抵押比 率 morrate，房產(chǎn)面積 mh_area，房齡 mh_age，房產(chǎn)用途 mh_use，貸款人編號 creditor_id .16 銀行信息銀行信息(bank)(bank)： 銀行編號 bank_id，a 銀行名稱 bank_name .17 貸款信息貸款信息(credit)(cre

29、dit)： 貸款人編號 creditor_id，銀行編號 bank_id，申請貸款額 apply_money，申請貸款 期限 apply_term，放款日期 loan_date，放款額度 loan_money，到期日期 term，互清 huqing，a 經(jīng)辦人 jingbanren .18 還款信息還款信息(repay)(repay)： 還款編號 repay_id，還款方式 repay_way，月息 mon_interest，月還款額 mon_repaymoney，固定提醒時間 fixed_awaketime，提醒員編號 awaker_id，提醒日期 awake_date，貸

30、款人編號 creditor_id .19 員工信息員工信息(worker)(worker)： 員工編號 worker_id，員工姓名 worker_name，員工性別 worker_sex，員工年齡 worker_age，員工籍貫 worker_jiguan，員工電話 worker_phone，備注 beizhu 第四章第四章 借貸管理系統(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）添加信息界面： （2）查詢信息界面： （3）刪除信息

31、界面： （4）打印信息界面： （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; begin if length(dkrbhedit.Text )=0 then begin messagebeep(

32、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:=dkrbh edit.Text; daikuanrenquery.SQL.Add(se

33、lect * from creditor where creditor_id=:dkrbh;); daikuanrenquery.ExecSQL; daikuanrenquery.Open; mycount:=daikuanrenquery.RecordCount ; if mycount=1 then begin messagebeep(1); showmessage(此貸款人已經(jīng)存在，請重新輸入); dkrbhedit.Clear; dkrxmedit.Clear; csrqedit.Clear; hjedit.Clear; dkeedit.Clear; dknxedit.Clear; d

34、kytedit.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:=dkrbh edit.Text; daikuanrenquery.Params.CreatePa

35、ram(ftstring,dkrxm,ptinput).AsString:=dkrxm edit.Text; daikuanrenquery.Params.CreateParam(ftstring,csrq,ptinput).AsString:=csrqed it.Text; daikuanrenquery.Params.CreateParam(ftstring,hj,ptinput).AsString:=hjedit.T ext ; daikuanrenquery.Params.CreateParam(ftstring,dke,ptinput).AsString:=dkeedit.T ext

36、; daikuanrenquery.Params.CreateParam(ftstring,dknx,ptinput).AsString:=dknxed it.Text; daikuanrenquery.Params.CreateParam(ftstring,dkyt,ptinput).AsString:=dkyted it.Text; daikuanrenquery.Params.CreateParam(ftstring,tjdkfa,ptinput).AsString:=tjdk faedit.Text; daikuanrenquery.Params.CreateParam(ftstrin

37、g,dwmc,ptinput).AsString:=dwmced it.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;

38、dknxedit.Clear; dkytedit.Clear; tjdkfaedit.Clear; dwmcedit.Clear; dkrbhedit.SetFocus; dkrbhedit.Focused; dkrbhedit.SetFocus; dkrbhedit.Focused; end; end; end; .2 查詢過程代碼：查詢過程代碼： procedure TchaxundaikuanrenForm.Button3Click(Sender: TObject); begin daikuanrenquery.Close; daikuanrenquery.SQL.Cle

39、ar; daikuanrenquery.Params.Clear; daikuanrenquery.Params.CreateParam(ftstring,dkrbh,ptinput).AsString:=dkrbh combobox.Text; daikuanrenquery.SQL.Add(select * from creditor where creditor_id=:dkrbh;); daikuanrenquery.ExecSQL; daikuanrenquery.Open; dkrxmedit.Text:=daikuanrenquerycreditor_name.Value; cs

40、rqedit.Text:=daikuanrenquerybirthday.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:=daiku

41、anrenquerydp_name.Value; daikuanrenquery.Close; dkrbhcombobox.SetFocus; dkrbhcombobox.Focused; end; .3 修改過程代碼：修改過程代碼： procedure TchaxundaikuanrenForm.Button1Click(Sender: TObject); begin daikuanrenquery.Close; daikuanrenquery.SQL.Clear; daikuanrenquery.Params.Clear; daikuanrenquery.Params.Cr

42、eateParam(ftstring,dkrbh,ptinput).AsString:=d krbhcombobox.Text; daikuanrenquery.Params.CreateParam(ftstring,dkrxm,ptinput).AsString:=dkrxm edit.Text; daikuanrenquery.Params.CreateParam(ftstring,csrq,ptinput).AsString:=csrqed it.Text; daikuanrenquery.Params.CreateParam(ftstring,hj,ptinput).AsString:

43、=hjedit.T ext ; daikuanrenquery.Params.CreateParam(ftstring,dke,ptinput).AsString:=dkeedit.T ext; daikuanrenquery.Params.CreateParam(ftstring,dknx,ptinput).AsString:=dknxed it.Text; daikuanrenquery.Params.CreateParam(ftstring,dkyt,ptinput).AsString:=dkyted it.Text; daikuanrenquery.Params.CreateParam

44、(ftstring,tjdkfa,ptinput).AsString:=tjdk faedit.Text; daikuanrenquery.Params.CreateParam(ftstring,dwmc,ptinput).AsString:=dwmced it.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,

45、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.Clear; dkrbhcombobox.SetFocus;

46、 dkrbhcombobox.Focused; end; .4 刪除過程代碼：刪除過程代碼： procedure TshanchudaikuanrenForm.Button1Click(Sender: TObject); var i:integer; begin daikuanrenquery.Close; daikuanrenquery.SQL.Clear; daikuanrenquery.Params.Clear; daikuanrenquery.Params.CreateParam(ftstring,dkrbh,ptinput).AsString:=dkrbh combo

47、box.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 do begin dkrbhcombobox.Items.Insert(i,daiku

48、anrentablecreditor_id.Value ); daikuanrentable.Next; i:=i+1; end; daikuanrentable.Close; dkrbhcombobox.SetFocus; dkrbhcombobox.Focused; end; .5 打印過程代碼：打印過程代碼： procedure TdayindaikuanrenForm.Button1Click(Sender: TObject); begin creditorquery.Close; creditorquery.Params.Clear; creditorquery.SQ

49、L.Clear; creditorquery.Params.CreateParam(ftstring,bh,ptinput).asstring:=bhcombobox.T ext; creditorquery.SQL.Add(select * from creditor where creditor_id=:bh ;); creditorquery.ExecSQL; creditorquery.Open; qrlabel1.Caption:=bhcombobox.Text +貸款人的基本信息清單; qrlabel1.Font.Size:=16; quickrep1.Preview; credi

50、torquery.Close; bhcombobox.Text:=; bhcombobox.SetFocus; bhcombobox.Focused; end; 第五章第五章 借貸管理系統(tǒng)測試及運(yùn)行借貸管理系統(tǒng)測試及運(yùn)行 5.15.1 系統(tǒng)測試系統(tǒng)測試 測試過程按 4 個步驟進(jìn)行，即單元測試、集成測試、確認(rèn)測試和系統(tǒng)測試及發(fā)版 測試。 開始是單元測試，集中對用源代碼實(shí)現(xiàn)的每一個程序單元進(jìn)行測試，檢查各個程 序模塊是否正確地實(shí)現(xiàn)了規(guī)定的功能。 集成測試把已測試過的模塊組裝起來，主要對與設(shè)計(jì)相關(guān)的軟件體系結(jié)構(gòu)的構(gòu)造 進(jìn)行測試。 確認(rèn)測試則是要檢查已實(shí)現(xiàn)的軟件是否滿足了需求規(guī)格說明中確定了的各種需求

51、， 以及軟件配置是否完全、正確。 系統(tǒng)測試把已經(jīng)經(jīng)過確認(rèn)的軟件納入實(shí)際運(yùn)行環(huán)境中，與其它系統(tǒng)成份組合在一 起進(jìn)行測試。 5.25.2 系統(tǒng)運(yùn)行系統(tǒng)運(yùn)行 雙擊金融借貸管理系統(tǒng)快捷鍵啟動本系統(tǒng)，立即看見本系統(tǒng)啟動界面，過了三秒 鐘后便進(jìn)入本系統(tǒng)的主界面-金融借貸管理系統(tǒng)，此時便可以對你所要管理的信息進(jìn)行 添加，查詢，修改，刪除和打印等操作了。 第六章：結(jié)論與展望第六章：結(jié)論與展望 6.16.1 小結(jié)小結(jié) DELPHI 從誕生到現(xiàn)在的發(fā)展壯大，經(jīng)歷了相當(dāng)長的一段時間，從 DELPHI1，DELPHI2，一直到今天的 DELPHI7 已經(jīng)是越來越強(qiáng)大起來，通過人們的不斷對 其了解，熟知和不斷的深入，我

52、想 DELPHI 定會像其他先進(jìn)的技術(shù)一樣矗立于軟件行業(yè) 之巔。而通過這次的畢業(yè)設(shè)計(jì)，使我對 DELPHI 有了更多的興趣和了解，我將繼續(xù)對其 進(jìn)行不斷探究，深入，為以后能夠開發(fā)更好更方便的軟件而努力著。 6.26.2 展望展望 一個 Turbo Pascal 和 Delphi 的時代已經(jīng)過去了，但是一個偉大技術(shù)，一個偉大 的社區(qū)，一個新 Delphi 公司將帶領(lǐng) Delphi 來到了新時代。新時代的 Delphi 將是 什么樣的呢？ 面向更多平臺面向更多平臺 在未來的 10 年，delphi 需要面向更多的平臺，例如：64 位，Avalon，PockPC 等這些 無疑是非常吸引人的，同時新的

53、 MacIntel，F(xiàn)irefox 瀏覽器平臺，Linux 服務(wù)器平臺 等等 ，R&D 應(yīng)該更好的觀察發(fā)生在周圍的一切，然后比以往更快的將適合的技術(shù)整合 到 Delphi 中。 更好的面向更好的面向 WebWeb Delphi 應(yīng)該有自己的 Web 開發(fā)策略而不是跟著微軟的 ASP.NET 。例如 WebBroker ，AJAX-precursor，這些都是目前最好的 Web 技術(shù)，你可以在 Ruby on Rails 和 ASP.NET 之外有更多的選擇。 更加開放更加開放 一個公司不能完全依靠自己，應(yīng)該與其它的公司和社區(qū)建立同盟，但是這并不是意味 著 delphi 一定要開源，而是變成一個

54、開放的平臺兼容更多的技術(shù)，雖然跟隨著微軟很 不錯，但是在我們周圍同樣很多其它優(yōu)秀的技術(shù)（Mono，AJAX，Google 和 Amazon Web 服務(wù)平臺等等）。 更好的連通性更好的連通性 像，Jbuilder， DelphiIDE 應(yīng)該能與本地和異地的 Jbuilder，Delphi IDE 有更好的 連通性，無論我在什么地方都應(yīng)該可以方便的看到開發(fā)項(xiàng)目的源代碼。 更加集成的軟件更加集成的軟件 Delphi 已經(jīng)開始融入來自開源社區(qū)的部分，這是一個很好的方向。例如 Context Editor 邦定到 Delphi，以及 Beyond Compare 等更多的組件邦定到 Delphi 中，

55、但是 還需要做的更多。 更多的訂閱級別更多的訂閱級別 Delphi 目前仍然走著發(fā)布的銷售道路，但是現(xiàn)在是 2006 年，應(yīng)該加入 Online 的銷售。 在社區(qū)中加入更多的社區(qū)訂閱級別，例如：第一級，可以得到基本的工具和免費(fèi)的新 聞組合，第二級，可以得到電子書和視頻培訓(xùn)等等，第三級，可以得到單獨(dú)的訂閱者 培訓(xùn)，第四級，可以為公司提供更多的許可以及更多的擴(kuò)展組件和咨詢服務(wù)。 謝謝 辭辭 俗話說得好“一個籬笆三個樁，一個好漢三個幫” ，一個人的成功不代表著是一 個人的功勞。我能夠完成這篇論文，光靠我自己的力量是遠(yuǎn)遠(yuǎn)不夠的，應(yīng)該說它是許多 人共同完成的。在這里我要由衷感謝我們學(xué)校的丁兆海丁老師，丁

56、老師是我班 DELPHI 課程的主講老師，他學(xué)識廣博，對 DELPHI 的教學(xué)已經(jīng)有十多年的經(jīng)驗(yàn)了，可以說在 DELPHI 這門學(xué)科已經(jīng)是相當(dāng)透徹了，同時他治學(xué)也相當(dāng)?shù)膰?yán)謹(jǐn)，不允許同學(xué)犯低級的 錯誤，更不允許同學(xué)犯同樣的錯誤，正是在他這樣的嚴(yán)厲的治學(xué)態(tài)度下，我們的 DELPHI 學(xué)得還算可以。就這樣我還經(jīng)常打擾老師的休息時間，請教老師低級問題，可 老師總是耐心教我，真是讓我受益匪淺，所以在這我要再次感謝丁老師，也希望您繼續(xù) 努力培養(yǎng)出更優(yōu)秀的學(xué)生來。 與此同時，我還要感謝王秀紅老師，王老師是我班的 JAVA 和.NET 的兩門專業(yè)課 的授課老師，在和她的兩個學(xué)期的相處過程中真的是得到了不小的收

57、獲，她不僅僅是我 們的老師更是我們的好朋友，有很多話我們可以交談，她也很樂意聆聽，真是我們的良 師益友，她教會我們更多的是課本以外許多的知識，就這個項(xiàng)目也是她給我推薦的，所 以正是有了王老師的幫忙，才有了現(xiàn)在這個金融借貸管理系統(tǒng)，所以我要感謝王秀紅老 師。 還有就是要感謝賽煜老師，賽老師是曾經(jīng)教過我們 C 語言和軟件工程的。賽老師 她專業(yè)知識很淵博治學(xué)也嚴(yán)謹(jǐn)，是她讓我對語言類得到深刻了解，讓我們養(yǎng)成良好的編 程習(xí)慣，也正是她授課軟件工程，才讓我們更深刻的了解了軟件開發(fā)的主要流程，才有 了今天我的軟件的模樣，真的很感謝她。 最后我還要感謝的是帶領(lǐng)我們班完成三年大學(xué)生活的輔導(dǎo)員李娟老師，李老師真 的是一名責(zé)任心很強(qiáng)的輔導(dǎo)員，這三年來