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

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

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

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

4、：.5 （3）審批進度：.6 （4）貸后管理：.6 （5）員工管理：.6 3.3 借貸管理系統(tǒng)數(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

5、 交費信息(charge)：.7 3.3.11 評估公司信息(evaluater)：.7 iii 3.3.12 評估信息(evaluating)：.7 3.3.13 補充材料信息(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)設計.9 4.1 借貸管理系統(tǒng)界面設計.9 4.1.1 主界面設計 ：.9 4.1.2

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

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

8、修改，刪除，打印等一系列的操作。 （3）系統(tǒng)采用了模塊化的程序設計方法，有利于各個功能模塊的組合和修改， 也便于后期維護人員的補充和維護。 1.21.2 本課題的研究意義本課題的研究意義 通過該借貸管理系統(tǒng)能夠使金融投資公司的信息管理工作條理化，規(guī)范化，自 動化，方便化，安全化，以致提高信息管理工作的效率，使工作人員能夠便捷的完成 各項任務。 1.31.3 系統(tǒng)設計目的系統(tǒng)設計目的 能夠及時并準確的錄入和操作借貸雙方各種信息情況，建立和完善借貸管理系統(tǒng)， 利用信息技術手段，應該大力提高管理系統(tǒng)的執(zhí)行效率。 1.41.4 開發(fā)和運行環(huán)境選擇開發(fā)和運行環(huán)境選擇 開發(fā)工具:delphi7 運行環(huán)境:

9、 windowsnt 或 windows2000、xp 1 第二章第二章 delphi 技術簡介技術簡介 2.12.1 delphidelphi 的產(chǎn)生和發(fā)展的產(chǎn)生和發(fā)展 delphi 是著名的 borland（現(xiàn)在已和 inprise 合并）公司開發(fā)的可視化軟件開發(fā) 工具。 “真正的程序員用 c，聰明的程序員用 delphi” ，這句話是對 delphi 最經(jīng)典、最 實在的描述。delphi 被稱為第四代編程語言，它具有簡單、高效、功能強大的特點。 和 vc 相比，delphi 更簡單、更易于掌握，而在功能上卻絲毫不遜色；和 vb 相比， delphi 則功能更強大、更實用。可以說 delp

10、hi 同時兼?zhèn)淞?vc 功能強大和 vb 簡單易學 的特點。它一直是程序員至愛的編程工具。在 delphi 眾多的優(yōu)勢當中，它在數(shù)據(jù)庫方 面的特長顯得尤為突出：適應于多種數(shù)據(jù)庫結構，從客戶機服務機模式到多層數(shù)據(jù)結 構模式；高效率的數(shù)據(jù)庫管理系統(tǒng)和新一代更先進的數(shù)據(jù)庫引擎；最新的數(shù)據(jù)分析手段 和提供大量的企業(yè)組件。delphi 發(fā)展至今，從 delphi、delphi到現(xiàn)在的 delphi7，不斷添加和改進各種特性，功能越來越強大。delphi7 添加了對 ide（集成開 發(fā)環(huán)境）的很多改進新特性，擴展了數(shù)據(jù)庫支持（ado 和 interbase 數(shù)據(jù)庫） ，帶有 internet 支持的 mi

11、das 改進版，teamsouse 版本控制工具，轉換功能，框架概念以及很 多的新組件與新特性。 2.22.2 delphidelphi 的特點的特點 delphidelphi 的語言特性的語言特性 delphi 具有以下的特性：基于窗體和面向對象的方法，高速的編譯器，強大的數(shù) 據(jù)庫支持，與 windows 編程緊密結合，強大而成熟的組件技術。但最重要的還是 object pascal 語言，它才是一切的根本。 object pascal 語言是在 pascal 語言的基礎上發(fā)展 起來的，簡單易學。delphi 提供了各種開發(fā)工具，包括集成環(huán)境、圖像編輯（image editor） ，以及各種

12、開發(fā)數(shù)據(jù)庫的應用程序，如 desktopdatabase expert 等。除此之外， 還允許用戶掛接其它的應用程序開發(fā)工具，如 borland 公司的資源編輯器（resourse workshop） 。面向對象的程序設計(object-oriented programming，簡記為 oop)是 delphi 誕生的基礎。oop 立意于創(chuàng)建軟件重用代碼，具備更好地模擬現(xiàn)實世界環(huán)境的能 力，這使它被公認為是自上而下編程的優(yōu)勝者。它通過給程序中加入擴展語句，把函數(shù) “封裝”進 windows 編程所必需的“對象”中。面向對象的編程語言使得復雜的工作條 理清晰、編寫容易。說它是一場革命，不是對對象

13、本身而言，而是對它們處理工作的能 力而言。對象并不與傳統(tǒng)程序設計和編程方法兼容，只是部分面向對象反而會使情形更 2 糟。除非整個開發(fā)環(huán)境都是面向對象的，否則對象產(chǎn)生的好處還沒有帶來的麻煩多。而 delphi 是完全面向對象的，這就使得 delphi 成為一種觸手可及的促進軟件重用的開發(fā)工 具，從而具有強大的吸引力。 一些早期的具有 oop 性能的程序語言如 c+,pascal,smalltalk 等，雖然具有面向對象的特征，但不能輕松地畫出可視化對象， 與用戶交互能力較差，程序員仍然要編寫大量的代碼。delphi 的推出，填補了這項空白。 您不必自己建立對象，只要在提供的程序框架中加入完成功能

14、的代碼，其余的都交給 delphi 去做。欲生成漂亮的界面和結構良好的程序絲毫不必絞盡腦汁，delphi 將幫助您 輕松地完成。它允許在一個具有真正 oop 擴展的可視化編程環(huán)境中，使用它的 object pascal 語言。這種革命性的組合，使得可視化編程與面向對象的開發(fā)框架緊密地結合起 來。 3 第三章第三章 借貸管理系統(tǒng)分析借貸管理系統(tǒng)分析 3.13.1 金融投資公司工作過程描述金融投資公司工作過程描述 客戶到金融投資公司申請貸款資金，主要有客戶登記，客戶回訪，審批進度，貸 后管理等工作流程。 （1）客戶登記： 每個客戶到金融投資公司申請貸款資金，必須經(jīng)過客戶登記，它必須填寫大量的 客戶

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

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

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

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

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

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

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

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

23、款用途 credit_use，推薦貸款方案 credit_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è)

24、 working，公司性質 dp_kind .5 單位商鋪信息單位商鋪信息(store)(store)： 商鋪名稱 store_name，商鋪地點 store_place，攤位號 stall，商鋪性質 store_kind，租賃期限 leasehold，單位名稱 dp_name .6 抵押土地信息抵押土地信息(morfield)(morfield)： 位置 mf_position，土地性質 mf_kind，產(chǎn)權性質 mfright_kind，抵押人年齡 morer_age，抵借關系 dijie，貸款人編號 creditor_id .7 聯(lián)系信息聯(lián)

25、系信息(connection)(connection)： 聯(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_c

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

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

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

29、3.3.17 貸款信息貸款信息(credit)(credit)： 貸款人編號 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，提醒員編號

30、awaker_id，提醒日期 awake_date，貸款人編號 creditor_id .19 員工信息員工信息(worker)(worker)： 員工編號 worker_id，員工姓名 worker_name，員工性別 worker_sex，員工年齡 worker_age，員工籍貫 worker_jiguan，員工電話 worker_phone，備注 beizhu 9 第四章第四章 借貸管理系統(tǒng)設計借貸管理系統(tǒng)設計 4.14.1 借貸管理系統(tǒng)界面設計借貸管理系統(tǒng)界面設計 .1 主界面設計主界面設計 ： .2 業(yè)務類界面設計：業(yè)務類界面設計：

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

32、hedit.text )=0 then begin messagebeep(1); showmessage(請輸入貸款人編號); dkrbhedit.setfocus; dkrbhedit.focused; 13 end else begin strtoint(dkrbhedit.text ); daikuanrenquery.close; daikuanrenquery.sql.clear; daikuanrenquery.params.clear; daikuanrenquery.params.createparam(ftstring,dkrbh,ptinput).asstring:=dk

33、rbh edit.text; daikuanrenquery.sql.add(select * 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; hjedi

34、t.clear; dkeedit.clear; dknxedit.clear; dkytedit.clear; tjdkfaedit.clear; dwmcedit.clear; dkrbhedit.setfocus; dkrbhedit.focused; end else 14 begin daikuanrenquery.close; daikuanrenquery.sql.clear; daikuanrenquery.params.clear; daikuanrenquery.params.createparam(ftstring,dkrbh,ptinput).asstring:=dkrb

35、h edit.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:=hjedit.t ext ; daikuanrenquery.params.createparam(f

36、tstring,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(ftstring,tjdkfa,ptinput).asstring:=tjdk faedit.text

37、; daikuanrenquery.params.createparam(ftstring,dwmc,ptinput).asstring:=dwmced 15 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

38、; 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; .2 查詢過程代碼：查詢過程代碼： procedure tchaxundaikuanrenform.button3click(sender: tobject); begin

39、 daikuanrenquery.close; daikuanrenquery.sql.clear; daikuanrenquery.params.clear; daikuanrenquery.params.createparam(ftstring,dkrbh,ptinput).asstring:=dkrbh combobox.text; 16 daikuanrenquery.sql.add(select * from creditor where creditor_id=:dkrbh;); daikuanrenquery.execsql; daikuanrenquery.open; dkrx

40、medit.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:=dai

41、kuanrenquerycredit_way.value; dwmcedit.text:=daikuanrenquerydp_name.value; daikuanrenquery.close; dkrbhcombobox.setfocus; dkrbhcombobox.focused; end; .3 修改過程代碼：修改過程代碼： procedure tchaxundaikuanrenform.button1click(sender: tobject); begin daikuanrenquery.close; daikuanrenquery.sql.clear; daiku

42、anrenquery.params.clear; daikuanrenquery.params.createparam(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; 17 daikuanrenqu

43、ery.params.createparam(ftstring,hj,ptinput).asstring:=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).asstrin

44、g:=dkyted it.text; daikuanrenquery.params.createparam(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,c

45、redit_money =:dke,credit_time=:dknx,credit_use=:dkyt,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; 18 dkytedit.clear; t

46、jdkfaedit.clear; dwmcedit.clear; dkrbhcombobox.setfocus; dkrbhcombobox.focused; end; .4 刪除過程代碼：刪除過程代碼： procedure tshanchudaikuanrenform.button1click(sender: tobject); var i:integer; begin daikuanrenquery.close; daikuanrenquery.sql.clear; daikuanrenquery.params.clear; daikuanrenquery.params.c

47、reateparam(ftstring,dkrbh,ptinput).asstring:=dkrbh combobox.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

48、.recordcount do begin dkrbhcombobox.items.insert(i,daikuanrentablecreditor_id.value ); daikuanrentable.next; i:=i+1; end; daikuanrentable.close; 19 dkrbhcombobox.setfocus; dkrbhcombobox.focused; end; .5 打印過程代碼：打印過程代碼： procedure tdayindaikuanrenform.button1click(sender: tobject); begin credit

49、orquery.close; creditorquery.params.clear; creditorquery.sql.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 +貸

50、款人的基本信息清單; qrlabel1.font.size:=16; quickrep1.preview; creditorquery.close; bhcombobox.text:=; bhcombobox.setfocus; bhcombobox.focused; end; 20 第五章第五章 借貸管理系統(tǒng)測試及運行借貸管理系統(tǒng)測試及運行 5.15.1 系統(tǒng)測試系統(tǒng)測試 測試過程按 4 個步驟進行，即單元測試、集成測試、確認測試和系統(tǒng)測試及發(fā)版 測試。 開始是單元測試，集中對用源代碼實現(xiàn)的每一個程序單元進行測試，檢查各個程 序模塊是否正確地實現(xiàn)了規(guī)定的功能。 集成測試把已測試過的模塊組裝起

51、來，主要對與設計相關的軟件體系結構的構造 進行測試。 確認測試則是要檢查已實現(xiàn)的軟件是否滿足了需求規(guī)格說明中確定了的各種需求， 以及軟件配置是否完全、正確。 系統(tǒng)測試把已經(jīng)經(jīng)過確認的軟件納入實際運行環(huán)境中，與其它系統(tǒng)成份組合在一 起進行測試。 5.25.2 系統(tǒng)運行系統(tǒng)運行 雙擊金融借貸管理系統(tǒng)快捷鍵啟動本系統(tǒng)，立即看見本系統(tǒng)啟動界面，過了三秒 鐘后便進入本系統(tǒng)的主界面-金融借貸管理系統(tǒng)，此時便可以對你所要管理的信息進行 添加，查詢，修改，刪除和打印等操作了。 21 第六章：結論與展望第六章：結論與展望 6.16.1 小結小結 delphi 從誕生到現(xiàn)在的發(fā)展壯大，經(jīng)歷了相當長的一段時間，從

52、delphi1，delphi2，一直到今天的 delphi7 已經(jīng)是越來越強大起來，通過人們的不斷對 其了解，熟知和不斷的深入，我想 delphi 定會像其他先進的技術一樣矗立于軟件行業(yè) 之巔。而通過這次的畢業(yè)設計，使我對 delphi 有了更多的興趣和了解，我將繼續(xù)對其 進行不斷探究，深入，為以后能夠開發(fā)更好更方便的軟件而努力著。 6.26.2 展望展望 一個 turbo pascal 和 delphi 的時代已經(jīng)過去了，但是一個偉大技術，一個偉大 的社區(qū)，一個新 delphi 公司將帶領 delphi 來到了新時代。新時代的 delphi 將是 什么樣的呢？ 面向更多平臺面向更多平臺 在未

53、來的 10 年，delphi 需要面向更多的平臺，例如：64 位，avalon，pockpc 等這些 無疑是非常吸引人的，同時新的 macintel，firefox 瀏覽器平臺，linux 服務器平臺 等等 ，r&d 應該更好的觀察發(fā)生在周圍的一切，然后比以往更快的將適合的技術整合 到 delphi 中。 更好的面向更好的面向 webweb delphi 應該有自己的 web 開發(fā)策略而不是跟著微軟的 asp.net 。例如 webbroker ，ajax-precursor，這些都是目前最好的 web 技術，你可以在 ruby on rails 和 asp.net 之外有更多的選擇。 更加開

54、放更加開放 一個公司不能完全依靠自己，應該與其它的公司和社區(qū)建立同盟，但是這并不是意味 著 delphi 一定要開源，而是變成一個開放的平臺兼容更多的技術，雖然跟隨著微軟很 不錯，但是在我們周圍同樣很多其它優(yōu)秀的技術（mono，ajax，google 和 amazon web 服務平臺等等）。 22 更好的連通性更好的連通性 像，jbuilder， delphiide 應該能與本地和異地的 jbuilder，delphi ide 有更好的 連通性，無論我在什么地方都應該可以方便的看到開發(fā)項目的源代碼。 更加集成的軟件更加集成的軟件 delphi 已經(jīng)開始融入來自開源社區(qū)的部分，這是一個很好的方

55、向。例如 context editor 邦定到 delphi，以及 beyond compare 等更多的組件邦定到 delphi 中，但是 還需要做的更多。 更多的訂閱級別更多的訂閱級別 delphi 目前仍然走著發(fā)布的銷售道路，但是現(xiàn)在是 2006 年，應該加入 online 的銷售。 在社區(qū)中加入更多的社區(qū)訂閱級別，例如：第一級，可以得到基本的工具和免費的新 聞組合，第二級，可以得到電子書和視頻培訓等等，第三級，可以得到單獨的訂閱者 培訓，第四級，可以為公司提供更多的許可以及更多的擴展組件和咨詢服務。 23 謝謝 辭辭 俗話說得好“一個籬笆三個樁，一個好漢三個幫” ，一個人的成功不代表著

56、是一 個人的功勞。我能夠完成這篇論文，光靠我自己的力量是遠遠不夠的，應該說它是許多 人共同完成的。在這里我要由衷感謝我們學校的丁兆海丁老師，丁老師是我班 delphi 課程的主講老師，他學識廣博，對 delphi 的教學已經(jīng)有十多年的經(jīng)驗了，可以說在 delphi 這門學科已經(jīng)是相當透徹了，同時他治學也相當?shù)膰乐?，不允許同學犯低級的 錯誤，更不允許同學犯同樣的錯誤，正是在他這樣的嚴厲的治學態(tài)度下，我們的 delphi 學得還算可以。就這樣我還經(jīng)常打擾老師的休息時間，請教老師低級問題，可 老師總是耐心教我，真是讓我受益匪淺，所以在這我要再次感謝丁老師，也希望您繼續(xù) 努力培養(yǎng)出更優(yōu)秀的學生來。 與

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