【正文】 資產(chǎn)，投資情況的統(tǒng)計(jì)和查詢(xún)，一些理財(cái)功能的計(jì)算。整個(gè)系統(tǒng)基本能夠達(dá)到預(yù)期的理財(cái)實(shí)現(xiàn)的功能。 在其他的調(diào)試過(guò)程中，也出現(xiàn)過(guò)一些代碼上的問(wèn)題導(dǎo)致系統(tǒng)不能正常運(yùn)行，例如函數(shù)引用的錯(cuò)誤，語(yǔ)法格式的錯(cuò)誤，語(yǔ)法結(jié)構(gòu)的缺失等問(wèn)題，通過(guò)系統(tǒng)的提示和自己查閱相關(guān)方面的資料，基本已經(jīng)解決，在不斷的測(cè)試過(guò)程中將系統(tǒng)的一些功能也進(jìn)行了完善，例如輸入錯(cuò)誤信息時(shí)對(duì)用戶(hù)進(jìn)行提示，或者用戶(hù) 在輸入信息的時(shí)候一些關(guān)鍵的字段忘了輸入時(shí)候，會(huì)提示用戶(hù)輸入完整的信息，以免系統(tǒng)在運(yùn)行的時(shí)候出現(xiàn)錯(cuò)誤情況。如下： 圖 53收支統(tǒng)計(jì)模塊測(cè)試 第 17 頁(yè) 共 24 頁(yè) 圖 54 收支統(tǒng)計(jì)模塊測(cè)試 銀行貸款情況運(yùn)行測(cè)試 該模塊的功能實(shí)現(xiàn)原理和其他資產(chǎn) ,投資情況統(tǒng)計(jì)的設(shè)計(jì)原理比較類(lèi)似 ,因此 以該模塊的測(cè)試運(yùn)行作為代表性的測(cè)試 ..在該模塊中 ,通過(guò)輸入各個(gè)項(xiàng)所提供的輸入信息和備注 .由于在界面中列出的各個(gè)項(xiàng)目都是銀行貸款所必須統(tǒng)計(jì)的信息 ,因此這些信息不能缺少 ,或者格式錯(cuò)誤 ,在測(cè)試中 ,故意去少輸入一個(gè)以上的信息 ,點(diǎn)確定過(guò)后 ,系統(tǒng)提示用戶(hù)輸入所缺少的信息 .對(duì)于一些比較特殊的信息 ,對(duì)輸入格式有特殊的要求 ,例如時(shí)間方面的信息 ,在測(cè)試中 ,如果輸入了不正確的日期信息 ,則會(huì)提示輸入正確格式的信息 ,在所有的信息輸入完整正確以后 ,點(diǎn)確定鍵 ,會(huì)提示用戶(hù)信息統(tǒng)計(jì)成功。 圖 51 用戶(hù)注冊(cè)功能調(diào)試圖 密碼修改模塊測(cè)試運(yùn)行 為了測(cè)試驗(yàn)證舊密碼的驗(yàn)證是否有效，先輸入一個(gè)錯(cuò)誤的舊的密碼，點(diǎn)確認(rèn)按鍵以后，系統(tǒng)提示舊密碼輸入錯(cuò)誤，輸入正確的舊密碼后，再輸入兩次一致的新密碼，則系統(tǒng)提示密碼 修改成功。然后清空用戶(hù)名編輯框，用戶(hù)重新輸入。WINDOWS XP,系統(tǒng) . 建議用戶(hù) CPU:AMD2500+，內(nèi)存 256M 及以上，數(shù)據(jù)庫(kù)版本 SQL SERVER 2021， WIN2021/XP， 2021， WIN2021 SERVER 及 以上軟硬件平臺(tái)使用。 第 15 頁(yè) 共 24 頁(yè) 5．系統(tǒng)調(diào)試和系統(tǒng)測(cè)試 該系統(tǒng)測(cè)試環(huán)境為 CPU:AMD2800+。 begin := FloatToStr(StrToFloat()StrToFloat())。 end。 jt :=StrToFloat()。 begin hs :=StrToFloat()。 procedure (Sender: TObject)。 := Floattostr(gz + sy + qt) 。//字符類(lèi)型轉(zhuǎn)化，賦值 sy := StrToFloat()。 var gz,sy,qt:real。 end。 (‘beizhu’).Value := xt。 (‘huaizhaifei’).Value := 。 (‘shuishoufei39。 (‘shangyefei39。 (‘jiaotongfei39。 (‘fangfei39。 (‘yishifei39。 (‘qitatou39。 (‘daikuan39。 (‘lilv39。 (‘touzili39。 (‘shangyeli39。 第 14 頁(yè) 共 24 頁(yè) (‘gongzi39。//將所定義的數(shù)據(jù)插入數(shù)據(jù)庫(kù)中對(duì)應(yīng)的表當(dāng)中去 (‘year39。values(:year,:gongzi,:shangyeli,:touzili,:lilv,:daikuan,:qitatou,:yishifei,:fangfei,:jiaotongfei,:shangyefei,:shuishoufei,:huaizhaifei,:qitafei,:beizhu)39。insert Year(Ye_year,Ye_gongzi,Ye_shangyeli,Ye_touzili,Ye_lilv,Ye_daikuan,Ye_qitashou,Ye_yishifei,Ye_fangfei,Ye_jiaotongfei,Ye_shangyefei,Ye_shuishoufei,Ye_huaizaifei,Ye_qitafei,Ye_beizhu)39。 with do begin begin 。 exit。)。 begin if Length() 4 then begin ShowMessage(39。 end。//編輯框獲取焦點(diǎn) exit。)。 end else begin showmessage(39。,vararrayof([,t]),//對(duì)比數(shù)據(jù)庫(kù)中存放的帳戶(hù)密碼信息是否和輸入的一致 [locaseinsensitive]) then begin 。username。)。) then begin 投資情況查詢(xún) 輸入查詢(xún)信息 查詢(xún)條件是否完整 在數(shù)據(jù)庫(kù)中查找記錄 返回查詢(xún)結(jié)果 否 是 第 13 頁(yè) 共 24 頁(yè) showmessage(39。) or (=39。 if ( =39。 Active:=true。 begin CheckUser:=。在查詢(xún)的時(shí)候，通過(guò)輸入貸款的項(xiàng)目名稱(chēng)，系統(tǒng)通過(guò)數(shù)據(jù)庫(kù)查詢(xún)語(yǔ)句找到對(duì)應(yīng)的 ID號(hào)和項(xiàng)目名稱(chēng)所對(duì)應(yīng)的數(shù)據(jù)表，將相關(guān)的數(shù)據(jù)返回到查詢(xún)界面各個(gè) 相應(yīng)的編輯框中去。商業(yè)投資 基本上也是如此，其數(shù)據(jù)也是存儲(chǔ)在投資情況數(shù)據(jù)表的里面。查詢(xún)時(shí)，代碼語(yǔ)句將用戶(hù)的 ID和相關(guān)的統(tǒng)計(jì)字段作為關(guān)鍵字查詢(xún)，將查詢(xún)的結(jié)果返回到相應(yīng)的編輯框當(dāng)中去。在該模塊中，按所有統(tǒng)計(jì)字段的個(gè)數(shù)定義變量，通過(guò)加法函數(shù)和減法函數(shù)，來(lái)進(jìn)行總共收支統(tǒng)計(jì)的計(jì)算和凈收入的計(jì)算。查詢(xún)時(shí)候按照日期查詢(xún)，代碼通過(guò)用戶(hù)的ID 號(hào)，和用戶(hù)輸入的日期信息查詢(xún)數(shù)據(jù)庫(kù)，將查詢(xún)的結(jié)果分別輸出到各個(gè)字段所對(duì)應(yīng)的表上去。 圖 45 密碼修改模塊流程圖 收入統(tǒng)計(jì)和查詢(xún)模塊的設(shè)計(jì) 包括年，月，日統(tǒng)計(jì)的模塊，代碼判斷用戶(hù)是否輸入正確的年，月，日期，如果輸入不正確或者沒(méi)有填，則要提示用戶(hù)輸入正確的日期。下次用戶(hù)登陸的時(shí)候必須輸入新的密碼才可以進(jìn)入系統(tǒng)。 圖 44 用戶(hù)注冊(cè)模塊流程圖 密碼修改模塊功能的設(shè)計(jì) 在本模塊中，代碼先對(duì)用戶(hù)輸入的舊密碼進(jìn)行判斷，和原來(lái)的密碼進(jìn)行對(duì)比，如果是不同的，則提示用戶(hù)輸入密碼錯(cuò)誤，要求用戶(hù)重新輸入密碼，如果是相同的，則判斷兩次輸入的新密碼是否一致，如果不一致，要求用戶(hù)重新輸 登陸窗體 輸入用戶(hù)名密碼 判斷是否正確 進(jìn)入主界面 是 否 注冊(cè)窗體 輸用戶(hù)名稱(chēng)和密碼 是否存在的戶(hù) 戶(hù)名 兩次密碼輸是否一致 用戶(hù)信息存入數(shù)據(jù)庫(kù) 是 是 是 否 第 9 頁(yè) 共 24 頁(yè) 入新的密碼。 系統(tǒng)功能示例圖 第 6 頁(yè) 共 24 頁(yè) 圖 用戶(hù)登陸 理財(cái)功能 系統(tǒng)設(shè)置 收支 管理 資產(chǎn) 管理 理財(cái)計(jì)算 收支 統(tǒng)計(jì) 收支查詢(xún) 固定資產(chǎn) 銀行貸款 投資情況 本外幣換算 利率 計(jì)算 基金收益 新 用 戶(hù) 注冊(cè) 密碼修改 按日統(tǒng)計(jì) 按月統(tǒng)計(jì) 按年統(tǒng)計(jì) 銀行資產(chǎn) 物品房產(chǎn) 商業(yè)投資 證券投資 第 7 頁(yè) 共 24 頁(yè) 圖 42 數(shù)據(jù)庫(kù)表的關(guān)系圖 系統(tǒng)登陸模塊的設(shè)計(jì) 在該系統(tǒng)模塊中，用戶(hù)通過(guò)輸入用戶(hù)名和密碼，點(diǎn)確定之后，通過(guò)語(yǔ)句將輸入的用戶(hù)名稱(chēng)和密碼通過(guò)數(shù)據(jù)庫(kù)語(yǔ)句與用戶(hù)登陸數(shù)據(jù)表中的信息進(jìn)行對(duì)比，如果對(duì)比結(jié)果相同，則提示登陸 成功信息，用戶(hù)進(jìn)入主界面窗口，如果對(duì)比結(jié)果不相同，則提示用戶(hù)輸入信息錯(cuò)誤，信息提示框清空，提示用戶(hù)重新輸入。這三個(gè)模塊基本上是根據(jù)實(shí)際理財(cái)情況來(lái)設(shè)計(jì)，方便用戶(hù)計(jì)算自己經(jīng)濟(jì)上的收益。 銀行貸款統(tǒng)計(jì)查詢(xún)功能 該模塊的主要功能是統(tǒng)計(jì)自己所有的銀行貸款 ,為用戶(hù)提供的可統(tǒng)計(jì)信息有 ,貸款項(xiàng)目名稱(chēng) ,貸款數(shù)額 ,貸款銀行 ,貸款日期 ,還款期限 ,貸款利息 ,擔(dān)保人等信息 .在統(tǒng)計(jì)完以后可以通過(guò)貸款情況模塊里面的信息來(lái)對(duì) 自己相應(yīng)貸款情況信息的修改和刪除。 在固定資產(chǎn)模塊中 ,有物品財(cái)產(chǎn)和房產(chǎn)的信息添加和查 詢(xún) ,物品財(cái)產(chǎn)模塊為用戶(hù)提供了物品名稱(chēng) ,物品價(jià)值 ,購(gòu)買(mǎi)日期信息的添加 ,還有備注框用來(lái)補(bǔ)充信息 .房產(chǎn)模塊提供了用戶(hù)的房產(chǎn)證號(hào) ,房屋所在地 ,購(gòu)買(mǎi)日期 ,單位價(jià)格 ,建筑面積等基本信息 ,這些信息基本上可以比較完整的記錄一座房產(chǎn)的信息 ,添加完這些信息以后 ,在各自相應(yīng)的查詢(xún)模塊 ,輸入物品名稱(chēng)和房產(chǎn)證號(hào)的信息 ,來(lái)進(jìn)行固定資產(chǎn)信息的查詢(xún)。并且?guī)в行薷?,刪除所統(tǒng)計(jì)的數(shù)據(jù)的功能 .其他兩個(gè) ,按月 ,按日查詢(xún)也是如此 .該模塊和收入統(tǒng)計(jì)模塊 ,也可以算是一個(gè)整體的模塊 .一起完成收支統(tǒng)計(jì)的功能。 該模塊也是作為理財(cái)系統(tǒng)的模塊 ,和收入統(tǒng)計(jì)模塊一起 ,實(shí)現(xiàn)個(gè)人理財(cái)系統(tǒng)的重要功能 :收入支出的統(tǒng)計(jì) .在此查詢(xún)模塊中 ,分 為按日查詢(xún) ,按月查詢(xún) ,按年查詢(xún) ,分別對(duì)應(yīng)著統(tǒng)計(jì)記錄模塊中的按日統(tǒng)計(jì) ,按月統(tǒng)計(jì) ,按年統(tǒng)計(jì) 。 密碼修改功能 該模塊的功能是已經(jīng)登陸進(jìn)入系統(tǒng)的用戶(hù)對(duì)自己的密碼進(jìn)行修改 .進(jìn)入該界面以后 ,先輸入用戶(hù)自己的密碼 ,然后輸入兩次新的密碼 ,如果舊密碼輸入錯(cuò)誤的話(huà) ,會(huì)提示該信息 ,如果密碼輸入正確 ,新密碼兩次輸入一致 ,則更改該用戶(hù)的密碼信息。如果錯(cuò)誤 ,則提示用戶(hù)輸入的信息不正確 ,重新輸入信息 .該界面還為新用戶(hù)設(shè)置了專(zhuān)門(mén)的注冊(cè)組件 ,通過(guò)點(diǎn)擊注冊(cè)按鈕直接進(jìn)入新用戶(hù)的注冊(cè)界 面 .在登陸的時(shí)候 ,密碼框采用密文形式輸入 ,保護(hù)用戶(hù)登陸的安全性。本系統(tǒng)采用的就是 SQL 作為后臺(tái)數(shù)據(jù)庫(kù) .通過(guò) Delphi 專(zhuān)門(mén)提供的 ADO 組件來(lái)進(jìn)行數(shù)據(jù)庫(kù)的連接。程序運(yùn)行調(diào)用這些數(shù)據(jù)模型時(shí)，修改的結(jié)果會(huì)自動(dòng)反映在應(yīng)用程序中。 Delphi 提供的數(shù)據(jù)庫(kù)瀏覽器 ，則可使用用戶(hù)在 Delphi 的集成開(kāi)發(fā)環(huán)境中，方便瀏覽、修改、索引數(shù)據(jù)庫(kù)。 Delphi 中使用 Borland 公司提供的數(shù)據(jù)引擎 (BDE)功能，可以毫無(wú)障礙地使用多種數(shù)據(jù)庫(kù)，不論是大型數(shù)據(jù)庫(kù)還是 PC 機(jī)中的數(shù)據(jù)庫(kù)。 5. Delphi 是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言，因此可做到可視窗體的繼承。 3. Delphi 可充分發(fā)揮 Windwos95/98/2021/xp/2021 的強(qiáng)大功能。 2. Delphi 的編譯器是 32位本地代碼編譯器。 Delphi 的基礎(chǔ)語(yǔ)言對(duì)象 ，與其他語(yǔ)言相比，它提供了一個(gè)快速的編譯器，優(yōu)化的編譯模式在很大程度上提高了代碼質(zhì)量。 Delphi 的介紹 Delphi 是 Borland 公司推出的一種可視化的，方便快捷的 Windows 應(yīng)用程序開(kāi)發(fā)工具，目前它已經(jīng)成為與 Microsoft 公司的 Visual Basic,VC 等齊名的開(kāi)發(fā)工具。 最后，由于 C/S 在邏輯結(jié)構(gòu)速度快。而 C/S 只有兩層結(jié)構(gòu)，網(wǎng)絡(luò)通信量 只包括 Client 與 Server 之間的通信量。由于 C/S 是配對(duì)的點(diǎn)對(duì)點(diǎn)的結(jié)構(gòu)模式，采用適用于局域網(wǎng)、安全性比較好的網(wǎng)絡(luò)協(xié)議 (例如： NT 的 NetBEUI協(xié)議 )，安全性可以得到較好的保證。在 C/S 中，客戶(hù)端有一套完整的應(yīng)用程序，在出錯(cuò)提示、在線(xiàn)幫助等方面都有強(qiáng)大的功能，并且可以在子程序間自由切換。與 B/S（ Browser/Server，瀏覽器 /服務(wù)器）模式相比， C/S 模式的應(yīng)用系統(tǒng)最大的好處是不依賴(lài)企業(yè)外網(wǎng)環(huán)境，即無(wú)論企業(yè)是否能夠上網(wǎng)，都不影響應(yīng)用。 C/S 模式 C/S （ Client/Server，客戶(hù)機(jī) /服務(wù)器）模式又稱(chēng) C/S 結(jié)構(gòu)，是軟件系統(tǒng)系結(jié)構(gòu)的一種。 2．相關(guān)的理論 基礎(chǔ) 系統(tǒng)采用 C/S 模式，使用 完成客戶(hù)端界面的開(kāi)發(fā)，以及功能的實(shí)現(xiàn)，使用 SQL2021 作為后臺(tái)數(shù)據(jù)庫(kù)，在客戶(hù)端的程序編寫(xiě)中，通過(guò) delphi 相 第 2 頁(yè) 共 24 頁(yè) 應(yīng)的數(shù)據(jù)連接組件來(lái)進(jìn)行數(shù)據(jù)庫(kù)的搜索和連接。因此，文章將涵蓋以下內(nèi)容：介紹貫穿項(xiàng)目設(shè)計(jì)，開(kāi)發(fā)始終的 Delphi+SQL 技術(shù) 。 在記錄中有計(jì)算統(tǒng)計(jì)功能，避免用戶(hù)手動(dòng)計(jì)算出錯(cuò)；有相關(guān)的用戶(hù)登陸，密碼檢測(cè)，密碼修改的功能，保護(hù)用戶(hù)數(shù)據(jù)的安全性。 本系統(tǒng)的特點(diǎn)是：通過(guò)系統(tǒng)的數(shù)據(jù)錄入，可以將數(shù)據(jù) 保存在相應(yīng)的數(shù)據(jù)庫(kù)里面，而數(shù)據(jù)庫(kù)的設(shè)計(jì)方式，使錄入的數(shù)據(jù)