【正文】 最后還要感謝在這次課程設(shè)計(jì)中給予我?guī)椭耐瑢W(xué)，謝謝大家！ 參考文獻(xiàn) [1] 賽奎春 陳紫鴻 宋坤 編著， Delphi數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用 [2] Gee Schussel, Client/Server: Past, Present and Future, 2021 [3] 黃荔 , 基于客戶 /中間服務(wù)器 /數(shù)據(jù)庫服務(wù)器的三層結(jié)構(gòu) , 兵工自動(dòng)化，2021,(4):1517 [4] Delphi8實(shí)用教程，中國鐵道出版社 [5] The ThinClient/Server Computing, [6]數(shù)據(jù)庫系統(tǒng)概念 Abraham Silberschatz Henry 著，高等教育出版社 。再一個(gè)就要感謝老師利用假期幫助我們，輔導(dǎo)我們，解決課程設(shè)計(jì)中疑惑與問題。這對(duì)我們鞏 固已學(xué)知識(shí)，鍛煉實(shí)踐動(dòng)手能力大有裨益。我們通過克服這一個(gè)個(gè)困難，讓我們重新又對(duì)目前腦子里所掌握的知識(shí)進(jìn)行審理，進(jìn)行了再次的糾正或者完善，這些都是書本上學(xué)不來的。培養(yǎng)了我們由書面文字要求到轉(zhuǎn)化這種要求到現(xiàn)實(shí)模型的能力，即很大程度上培養(yǎng)了我們的建模能力，分析問題，總結(jié)歸納問題的能力。在 SQL 數(shù)據(jù)庫中，我們把在數(shù)據(jù)庫理論上的知識(shí)予以運(yùn)用，如：建立視圖，數(shù)據(jù)庫銀行管理系統(tǒng) 30 創(chuàng)建存儲(chǔ)過程，應(yīng)用事務(wù) 等，在一些基本的數(shù)據(jù)庫操作中，熟悉并鞏固了 SQL的語法知識(shí)。通過這次課程設(shè)計(jì)，我掌握了 DELPHI與數(shù)據(jù)庫結(jié)合起來編程的一般技術(shù)。以前較早的便接觸到 DELPHI 只是注重在書本上，從來沒有認(rèn)真的去用 DELPHI編寫程序，更不用說應(yīng)用在數(shù)據(jù)庫中。 DELPHI程序代碼也就是對(duì)還貸存儲(chǔ)過程的調(diào)用，一般格式與前面所述的存儲(chǔ)過程調(diào)用一樣，只是參數(shù)的傳遞問題。數(shù)據(jù)的更新在 loan_pack和 payoff_pack表中。還有在更新貸款信息之前，要查詢還貸記錄來確定是第幾次還貸。要能知道此次的還貸是第幾次還貸。那么 最大貸款額 ＝ 用戶的經(jīng)濟(jì)能力 ＝ 曾經(jīng)最大的一次存款額 10 該功能 的工作界面如下：圖 12 圖 13 圖 12 圖 13 事務(wù)處理，主要是插入信息 小于 5 年，利率為 5－ 10，利率為 10－ 20，利率為 20－～，利率為 數(shù)據(jù)庫銀行管理系統(tǒng) 28 圖 12 和圖 13 分別是在貸款期限為 4 年和 10 年的時(shí)候的貸款情況，如程序所寫，他們的利率分別顯示為 。貸款時(shí)的事務(wù)操作過程代碼如下： 對(duì)于不同年限設(shè)置不同的利率代碼： if(strtoint()5)then rate:= else if strtoint()10 then rate:= else if strtoint()20 then rate:= else rate:=。對(duì)于貸款號(hào)的生成類似于開戶時(shí)存款時(shí)的卡號(hào)生成（詳細(xì)情況見存款時(shí)的 卡號(hào)生成代碼 ） 。故減去 1000元，再減去 20的轉(zhuǎn)賬費(fèi)，則轉(zhuǎn)了 1000還有 65666還有 計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院數(shù)據(jù)庫課程設(shè)計(jì) 27 關(guān)鍵是怎樣模擬現(xiàn)實(shí)的轉(zhuǎn)賬功能，體現(xiàn)在代碼上，就是操作的執(zhí)行順序問題。轉(zhuǎn)賬功能的存儲(chǔ)過程書寫如下： 如果超過了還透支期限（ 100天），則信譽(yù)度減 1 更新透支額，減除還去的一部分 數(shù)據(jù)庫銀行管理系統(tǒng) 26 下面以數(shù)據(jù)庫中的兩組數(shù)據(jù)展示，這兩組數(shù)據(jù)的原記錄如下： 轉(zhuǎn)賬的工作界面如下： 圖 11 在轉(zhuǎn)賬的數(shù)據(jù)流中，就只有在表中 FUND_BILL 中有數(shù)據(jù)的處理， 數(shù)據(jù)沒有流出。 所以重點(diǎn)在于轉(zhuǎn)賬存儲(chǔ)過程的書寫，怎樣以事務(wù)的形式實(shí)現(xiàn)轉(zhuǎn)賬功能。 解決方案 ： 對(duì)于轉(zhuǎn)賬費(fèi)率的判斷主要是前提條件的確定。還有 轉(zhuǎn)賬金額不能超過該卡上的存款金額。還有計(jì)算其中的利率。所做的工作主要是事務(wù)的存儲(chǔ)過程的 創(chuàng)立和 DELPHI 中條件的判斷。 該透支記錄為 工作界面如下圖 9，圖 10，圖 11（界面分析見圖上注釋） 圖 9 圖 10 提示用戶的透支 額 一次還清透支額后多余轉(zhuǎn)化為存款 計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院數(shù)據(jù)庫課程設(shè)計(jì) 25 ③ 有透支，但這次的存款不能還清。 調(diào)用存儲(chǔ)過程時(shí)也只是傳遞參數(shù)。 此處的 20是算的利息 計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院數(shù)據(jù)庫課程設(shè)計(jì) 23 圖 8 ② 有透支，但透支額小于存款額即這一次存款能還清全部透支額 存儲(chǔ)過程如下： (分析見圖中的注釋 ) 在存儲(chǔ)過程中把需要更新修改的地方全部更新。 以下是以以前有 2021元存款的 CK20210219001卡號(hào)為例說存款的工作界面：（圖 7，圖 8） 圖 7 如果以前有存款則把截至到存款這天的利息一并算出來 作為其原來的本金。提示 39。存款成功?。?！ 39。 。TT39。).Value:=id。).Value:=strtofloat() (39。 (39。date39。).Value:=。 (39。type39。 。 調(diào)用上述存儲(chǔ)過程的程序?yàn)椋?（主要是傳遞存儲(chǔ)過程的參數(shù)） :=39。 先在 overdraft表中查詢存不存在與所輸入卡型和卡號(hào)相同的記錄，如有，則表 明有透支。 [1].Value:=。)。 (39。并且每次存款 /取款前都要計(jì)算利息并把以前的本金和利息一起作為此次操作的本金。同時(shí)存款時(shí)還應(yīng)解決以前所存款的利息問題。所寫的表也不同。 ② 根據(jù)用戶的信譽(yù)度用戶的最大透支額為多少 ③ 怎樣保證一系列的操作的原子性 解決方案兼代碼分析： 〔存款〕存款的不同情況應(yīng)分別用不同的存儲(chǔ)過程。 取款〕由于透支是在所取款額小于用戶卡上的金額，且沒有透支的情況下，在預(yù)給的最大透支額范圍內(nèi)的取款過程。同時(shí)還要計(jì)算你 這次是否全部還清了透支。在還貸區(qū)能支持分期付款的功能。在客戶轉(zhuǎn)賬 /貸款區(qū)，要實(shí)現(xiàn)轉(zhuǎn)賬費(fèi)用的收取，還有貸款號(hào)的隨機(jī)生成，還要根據(jù)用戶不同的貸款年限分 配給貸款不同的利率，在貸款時(shí)候還要根據(jù)用戶的經(jīng)濟(jì)能力，給出用戶的最大貸款額。是銀行的主要功能的體現(xiàn)。 這一過程的工作界面如圖 6 消除在銀行的金額 消除以前的存 /取款日志 數(shù)據(jù)庫銀行管理系統(tǒng) 20 圖 6 167。 解決方案： 在 消戶以前應(yīng)該對(duì)用戶的卡上是否有余額，是否處于透支狀態(tài)進(jìn)行查詢。 需要解決的問題 ：如果用戶有透支情況就不許管理員刪除客戶。所以這也是幾個(gè)操作的組合。這一模塊基本不存在難度。 。39。39。39。select card_type,card_no,fortune_amount as amount from fund_bill where card_type=39。程序運(yùn)行的界面如下： 圖 3 數(shù)據(jù)庫銀行管理系統(tǒng) 18 圖 4 而實(shí)現(xiàn)這一部分的代碼就主要是幾個(gè)查詢語句： 。來判斷 CHECKBOX后的選項(xiàng) 是否作為組合查詢的條件之一。還有就是模糊查詢的語句書寫。 在組合查詢中，選中一項(xiàng)的查詢結(jié)果沒有選中兩項(xiàng)的查詢結(jié)果細(xì)。 下面是“開設(shè)賬戶”的工作界面：（圖 2） 圖 2 分析三 、 客戶業(yè)務(wù)查詢 功能簡介 ：在這里的客戶業(yè)務(wù)查詢中，主要是實(shí)現(xiàn)數(shù)據(jù)庫中的模糊查詢和組合查詢。+inttostr(i+1) else s:=s+inttostr(i+1)。+inttostr(i+1) else if i100 then s:=s+39。 計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院數(shù)據(jù)庫課程設(shè)計(jì) 17 if i10 then s:=s+39。).Value)。 else begin m:=Trim((39。).Value=null)then s:=s+39。 //選擇最大的卡號(hào) if((39。 。select max(Card_no) as ss from Fund_bill39。 with adoquery1 do begin 。yyyymmdd39。CK39。然后判斷該字符串占幾位，如果占一位，則在前面加“ 00”，兩位加“ 0”，三位就不加。如果返回為空（ NULL），可以將有數(shù)字組成的字符串設(shè)置為“ 001”，然后將指定的字符串（如： CK20210220） 與之連接組成新的字符串“ CK20210220211” ；如果返回不為空，如返回“ CK20210220214” ,則截取字符串的后幾位字符，即由數(shù) 字組成的字符 。 ② 對(duì)隨機(jī)生成客戶對(duì)應(yīng)卡號(hào)問題的解決方案：卡號(hào)形式為“字母 CK(存款的首字母