【正文】 try if MessageDlg。 。39。).AsString+39。+(39。39。 str:=39。 begin scquery:=(nil)。 var str:string。 end。 setbuttonsfalse。 。 。 then :=true。]=39。 if [39。] 內(nèi)蒙古工業(yè)大學(xué)本科畢業(yè)設(shè)計(jì)說明書 38 else :=39。 then :=[39。]39。 if [39。]。 :=[39。name39。]。 :=[39。date39。 :=true。 :=true。 :=true。 begin itype:=2。 end。 setbuttonsfalse。 。 。000039。 setnilvalues。record_id39。39。record_id39。 。 :=false。 :=false。 var a:integer。 end。 end。],sender)。 while not do begin ([39。 (1)。itype_name39。 :=true。 :=true。 :=。 :=。 //登記收支 ——初始化 內(nèi)蒙古工業(yè)大學(xué)本科畢業(yè)設(shè)計(jì)說明書 36 procedure (Sender: TObject)。 :=false。 :=39。 :=39。 :=39。 :=39。 begin :=39。 end。收入 39。inorout39。39。memo39。39。memo39。]。 :=[39。money39。]。 :=[39。itype_name39。]。 begin :=[39。 end。 :=true。 內(nèi)蒙古工業(yè)大學(xué)本科畢業(yè)設(shè)計(jì)說明書 35 :=true。 :=true。 :=true。 :=true。 :=false。 //設(shè)置按紐為不可用狀態(tài) procedure setbuttonsfalse。 :=false。 :=false。 :=false。 :=false。 :=true。 :=false。 begin :=true。 同時(shí)也感謝在機(jī)房中一起努力過的同學(xué)， 由于你們的幫助、支持 和我們的共同交流，我才能克服一個(gè)一個(gè)的困難和疑惑，直至本文的順利完成。 內(nèi)蒙古工業(yè)大學(xué)本科畢業(yè)設(shè)計(jì)說明書 32 謝 辭 我的指導(dǎo)老師 呂巖 給予我很大的幫助， 呂巖 老師淵博的理論知識，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和誨人不倦的大家風(fēng)范讓我受益 匪淺。現(xiàn)代家庭生活的很多方面也都少不了與銀行打交道，如各 種存款查詢、 賬戶 詳細(xì)消費(fèi)記錄查詢 ， 通過 賬號 繳納各種費(fèi)用等等，如果將該系統(tǒng)進(jìn)一步改進(jìn)，使之能應(yīng)用于網(wǎng)絡(luò)環(huán)境，則可以大大提高工作效率，提高其時(shí)效性和應(yīng)用范圍。 由于時(shí)間的關(guān)系，本系統(tǒng)還存 在很多不盡如人意的地方。最終還是在請教了同學(xué)、老師之后，才明白最終原因。 在系統(tǒng)的開發(fā)過程中，我也遇到了很多困難， 有些技術(shù)在看書時(shí)似乎看懂了，明白了，但實(shí)際用到時(shí)卻產(chǎn)生了很多錯(cuò)誤。39。 and =39。select a.*, , 內(nèi)蒙古工業(yè)大學(xué)本科畢業(yè)設(shè)計(jì)說明書 31 from ine a, home_family b, item c where = and = and =39。就拿報(bào)表統(tǒng)計(jì)模塊來說，當(dāng)用戶選擇時(shí)段后，按下 GO 按鈕就會(huì)觸發(fā)相應(yīng)事件。 SQL 語句的語法我們都有學(xué)過，但真正使用起來就不是那么簡單了。本系統(tǒng)的重點(diǎn)難點(diǎn)應(yīng)該說在于 SQL 語句的使用上。所以后來就直接根據(jù)用戶登陸時(shí)的信息直接開通跟此用戶相關(guān)日記，既達(dá)到了安全性的目的，又方便了用戶。每完成一步，通過讓老師、同學(xué)們觀看系統(tǒng)的使用情況，旁觀者清，他們所給的意見都給了我很大的幫助。一個(gè)軟件從設(shè)計(jì)到實(shí)現(xiàn)，無論哪步，都應(yīng)該以用戶的需 求為中心，那些現(xiàn)存的軟件之所以不能普及或者說被淘汰，究其原因，還是這個(gè)所造成的，所以在考慮基本功能外，我在相關(guān)調(diào)查的基礎(chǔ)之上，還另外添加了通訊錄、備忘錄等功能模塊，希望在更大程度上能滿足用戶的需求，給他們帶去真正的方便。 大學(xué)四年，也做過一些課程設(shè)計(jì)，編過一些代碼，但這次畢業(yè)設(shè)計(jì)還是讓我感觸很深。同時(shí)站在用戶的角度，通過對當(dāng)前的各種家庭財(cái)務(wù)軟件的使用與比較，我深入了解到當(dāng)前軟件存在的不足之處以及它們與用戶需求之間的差距所在。 圖 414 月度收支分析窗口 內(nèi)蒙古工業(yè)大學(xué)本科畢業(yè)設(shè)計(jì)說明書 30 結(jié) 論 經(jīng)過大學(xué)四年的學(xué)習(xí)生活， 我們掌握了比較系統(tǒng)的專業(yè)知識，開發(fā)一套實(shí)用的管理軟件作為畢業(yè)設(shè)計(jì)，對于我們而言，是一次將計(jì)算機(jī)應(yīng)用于現(xiàn)實(shí)管理的非常有意 義的實(shí)踐活動(dòng)。反之，當(dāng)按下按成員分類或按收支類別分類按鈕時(shí)，采用 SQL語句中的聚合函數(shù)，其代碼實(shí)現(xiàn)同報(bào)表管理中的收入總計(jì)類似，對滿足條件的所有記內(nèi)蒙古工業(yè)大學(xué)本科畢業(yè)設(shè)計(jì)說明書 29 錄的金額進(jìn)行匯總，在表中顯現(xiàn)相關(guān)條件的字段與匯總金額，且在表的最下方也有收入總計(jì)、支出總計(jì)和收支平衡的統(tǒng)計(jì)欄。 其界面如圖 413所示 圖 413 月度報(bào)表窗口 （ 2） 月度報(bào)表分析 此功能實(shí)現(xiàn)主要分為按類型和按成員進(jìn)行分析兩大類。同時(shí)考慮到使用該系統(tǒng)的家庭，有可能沒有配置打印機(jī)，故在按下打印按鈕時(shí)，先使用打印預(yù)覽的方式，然后可以由用戶在條件允許下選擇進(jìn)行打印。 報(bào)表統(tǒng)計(jì)與分析的實(shí)現(xiàn) 由于月報(bào)表、年報(bào)表及月報(bào)表分析、年報(bào)表分析的實(shí)現(xiàn)方法分別相同，這里只介紹月報(bào)表和月報(bào)表分析。 圖 412 數(shù)據(jù)庫備份窗口 內(nèi)蒙古工業(yè)大學(xué)本科畢業(yè)設(shè)計(jì)說明書 28 當(dāng)按下備份按鈕時(shí)，組件 Opendialog 開始執(zhí)行，用戶只有在路徑選取對話框中選取有效路徑和文件名，并且確認(rèn)備份數(shù)據(jù)庫時(shí)，鼠標(biāo)處于忙狀態(tài)，備份工作正式開始，完成后提示備份成功信息且釋放鼠標(biāo)忙狀態(tài)。這里不再贅述。此時(shí)，用戶才可以將新增收支項(xiàng)目名稱填入，并將其保存。 圖 410 家庭財(cái)務(wù)管理窗口 （ 6）設(shè)置收支項(xiàng)目 用戶可以通過該窗口將新增的家庭收支項(xiàng)目添加入收支登記表中，方便用戶及時(shí)更新收支想項(xiàng)目。此時(shí)管理員一般是通過使用鮮明的標(biāo)題來提醒各家庭成員此項(xiàng)計(jì)劃有所變更，同時(shí)修改提交后，系統(tǒng)也會(huì)自動(dòng)把新修改的記錄列表放在表中的第一，引起大家的關(guān)注。 圖 49 銀行卡查詢窗口 內(nèi)蒙古工業(yè)大學(xué)本科畢業(yè)設(shè)計(jì)說明書 26 （ 5）家庭預(yù)算管理 系統(tǒng)根據(jù)用戶登陸信息，當(dāng)該用戶身份是普通用戶時(shí)，除了退出按鈕以外，其他按鈕都為不可用，即普通用戶只有查看預(yù)算計(jì)劃書的權(quán)限，按退出按鈕后，則退出預(yù)算管理界面；當(dāng)該用戶身份是管理者時(shí)，所有按鈕為可用狀態(tài)，按下查詢按鈕時(shí)，界 面上就會(huì)顯示所選時(shí)間段的所有記錄，通過移動(dòng)記錄，該條記錄的具體預(yù)算內(nèi)容就會(huì)在界面右邊的 DBMemo 組件中顯示。也可以通過顯示所有記錄按鈕來實(shí)現(xiàn)查詢結(jié)果與所有記錄的轉(zhuǎn)換。 內(nèi)蒙古工業(yè)大學(xué)本科畢業(yè)設(shè)計(jì)說明書 25 圖 48 銀行卡管理窗口 （ 4）銀行卡查詢 當(dāng)用戶輸入 所要查詢的銀行卡的相關(guān)信息后，體統(tǒng)根據(jù)銀行卡信息表中的記錄，按照姓名、開戶銀行、開戶時(shí)間、賬戶余額、銀行卡號和備注信息的 組合 方式查詢 結(jié)果。 圖48 收支查詢窗口 （ 3）銀行卡管理 根據(jù)用戶選擇的條件，有開戶行、開戶時(shí)間、銀行卡號、卡中余額及銀行卡的相關(guān)備注，在數(shù)據(jù)庫中搜索符合條件的銀行卡記錄來反饋給用戶，讓每個(gè)查詢者在任何種選擇條件組合下都能滿意，同時(shí)也間接地讓其對自己的銀行卡情況有所了解。在這里，我也對一些容錯(cuò)能力加以考慮，如當(dāng)查詢的起始時(shí)間大于截止時(shí)間時(shí)，就有出錯(cuò)提示。未按查詢按鈕前，顯示的是所有的收支記錄信息，按下查詢按鈕后，根據(jù)用戶的查詢條件表中顯示滿足條件的記錄。 4)退出：按下此按鈕后，退出賬簿管理功 能模塊。 3)刪除：系統(tǒng)提取用戶的登陸信息，并與數(shù)據(jù)庫中的家庭 記賬 表相聯(lián)系，從家庭賬戶 表中提取該用戶的權(quán)限，如是管理員，刪除按鈕為可見，反之是不可見的，因?yàn)槭玛P(guān)家庭財(cái)務(wù)的一些重要數(shù)據(jù)，只有管理員最清楚哪些是真正可以刪除的，哪些是必須保留的。 保存：按下該按鈕后，用戶的添加、修改等操作才能真正 提交給數(shù)據(jù)庫，添加和修改操作的有關(guān)字段的容錯(cuò)都是在按下保存按鈕后實(shí)現(xiàn)的。 金額：當(dāng)金額的輸入為字符或非正數(shù)時(shí)，我們都做出相應(yīng)的出錯(cuò)提示，提醒用戶輸入有效數(shù)據(jù)。記賬原 則要求及時(shí)性、準(zhǔn)確性、連續(xù)性，所以一旦 當(dāng)前日期小于記賬日期時(shí)，我們會(huì)提 示記錄添加不成功，這樣既有助于用戶養(yǎng)成良好的記賬習(xí)慣，也符合記賬 的真實(shí)性原則。當(dāng)成 員組合框中內(nèi)容無效時(shí)，則會(huì)有出錯(cuò)提示，當(dāng)類型組合框中沒有該項(xiàng)類型時(shí)，就會(huì)提示用戶去輔助表管理中添加相應(yīng)的類型項(xiàng)目，再進(jìn)行收支記錄的添加。其他所需輸入信息為：家庭成員姓名、收支類型名、收或支信息、日期、金額、備注（可為空）等。 其界面如圖 47 所示。其 查詢 界面如圖 46 所示。 如圖 45 所示。 也可以 通過顯示所有記錄按鈕來實(shí)現(xiàn)查詢結(jié)果與所有記錄的轉(zhuǎn)換。 圖 44 備忘錄窗口 內(nèi)蒙古工業(yè)大學(xué)本科畢業(yè)設(shè)計(jì)說明書 21 信息 查詢 的實(shí)現(xiàn) （ 1）備忘錄查詢 該模塊實(shí)現(xiàn)分為兩部分：一部分是完成選擇要查詢的字段或字段組合， 即通過DateTImePicker 組件 和 Combobox 組件 中所輸入的 查詢條件 ， 尋找相關(guān)信息 ；另一部分是顯示條件組合查詢的結(jié)果。此時(shí)，保存與取消按鈕尚未激活，只能進(jìn)行添加、退出和刪除操作。 內(nèi)蒙古工業(yè)大學(xué)本科畢業(yè)設(shè)計(jì)說明書 20 圖 43 日記 窗口 （ 2） 備忘錄 點(diǎn)擊文件下拉菜單中的備忘錄后，會(huì)出現(xiàn)如圖 44 所示窗口，系統(tǒng)會(huì)調(diào)用備忘安排表中的用戶編號、日期、標(biāo)題和事件信息。此時(shí)，保存與取消按鈕尚未激活，只能進(jìn)行添加 、退出 和刪除操作。 圖 42 主界面窗口 文件 管理的實(shí)現(xiàn) 文件管理主要包括兩 方面，一是日記的添加，二是備忘錄的添加； （ 1） 日記 點(diǎn)擊文件下拉菜單中的日記后，會(huì)出現(xiàn)如圖 43 所示窗口 ，系統(tǒng)會(huì)調(diào)用 日記信息表 中的用戶編號 、作者姓名、記錄時(shí)間及標(biāo)題信息 。 管理員：管理員一般也是由家庭成員中某一位來擔(dān)當(dāng)，所以他作為家庭成員中內(nèi)蒙古工業(yè)大學(xué)本科畢業(yè)設(shè)計(jì)說明書 19 的個(gè)體而言，所能操作的跟普通成員是一樣的，但是當(dāng)作為管理員的身份時(shí)，其負(fù)有更大的責(zé)任。除此之外，每個(gè) 成員也有權(quán)對自己的 賬戶信息進(jìn)行修改和更新。 圖 41 登錄窗口 普通成員：家庭的每個(gè)成員在數(shù)據(jù)庫中都有個(gè)合法的 賬戶 ，他們可以通過本系統(tǒng)進(jìn)行個(gè)人收支消費(fèi)的登記、存儲(chǔ)，什么事情都不排除會(huì)出錯(cuò)，在收支記錄過程中，也是如此，收支登記記錄設(shè)置的目的就是為了 提供歷史數(shù)據(jù)，所以用戶可以通過查詢系統(tǒng)查看滿足條件的相關(guān)記錄。當(dāng)按下退出按鈕時(shí)，調(diào)用 close 函數(shù)關(guān)閉整個(gè)應(yīng)用程序，退出本系統(tǒng)。同時(shí)系統(tǒng)會(huì)根據(jù)為用戶分配的權(quán)限，設(shè)置其對應(yīng)的功能為有效，用戶就可操作該功能。這些報(bào)表，對日后的家庭消費(fèi)觀、金錢的流向與使用對象都起了很重要的指引作用。 （ 4）數(shù)據(jù)還原 當(dāng)不小心或者其他意外發(fā)生時(shí)，可以通過數(shù)據(jù)還原來修復(fù)當(dāng)前數(shù)據(jù)庫。 內(nèi)蒙古工業(yè)大學(xué)本科畢業(yè)設(shè)計(jì)說明書 17 （ 2）用戶賬戶更新 用戶通過該功能能夠修改自己的登錄密碼、日記密碼及登錄名， 增強(qiáng)系統(tǒng)安全性，拒絕非法用戶訪問，保護(hù)了家庭成員的個(gè)人隱私。畢竟計(jì)劃只是手段，不應(yīng)成為枷鎖，當(dāng)客觀現(xiàn)實(shí)與實(shí)際出現(xiàn)重大不符時(shí)，管理員就應(yīng)該及時(shí)地調(diào)整計(jì)劃內(nèi)容，使預(yù)算計(jì)劃隨具體情況而做相應(yīng)變更，比較靈活且更具實(shí)際意義。全員參與家庭的經(jīng)濟(jì)管理，這樣既可以激發(fā)大家的積極性，又能慢慢統(tǒng)一針對消費(fèi)觀的價(jià)值取向，而且也能讓各個(gè)家庭成員對家庭的財(cái)務(wù)預(yù)算安排有個(gè)大致了解，引導(dǎo)個(gè)人的消費(fèi)，考慮到這點(diǎn)所以這個(gè)模塊允許普通成員有知情權(quán)，可以隨時(shí)關(guān)注查看，但主要的操作：制訂、修改、刪除預(yù)算計(jì)劃，還是由管理員來行使。 （ 4）銀行卡查詢 根據(jù)用戶選擇的條件，有開戶行、開戶時(shí)間、銀行卡號、卡中余額及銀行卡的相關(guān)備注，在數(shù)據(jù)庫中搜索符合 條件的銀行卡記錄來反饋給用戶，讓每個(gè)查詢者在任何種選擇條件組合下都能滿意，同時(shí)也間接地讓其對自己的銀行卡情況有所了解。 （ 2） 收支信息 查詢 根據(jù)用戶選擇的條 件，有日期、收支類別、用戶名、金額等，進(jìn)行組合，在數(shù)據(jù)庫中搜索符合條件的收支記錄來反饋給用戶，讓每個(gè)查詢者在任何種選擇條件組合下都能滿意，同時(shí)也間接地讓其對自己的收支有所了解，并且根據(jù)預(yù)算計(jì)劃，對今后的消費(fèi)有所控制。 管理 模塊 通過對日常財(cái)務(wù) 及銀行卡信息 的記錄，可以實(shí)現(xiàn)歷史財(cái)務(wù)信息的查詢 ，銀行卡查詢 ，統(tǒng)計(jì)與分析，并結(jié)合家庭預(yù)算計(jì)劃，根據(jù)統(tǒng)計(jì)分析結(jié)果，使管理者對 家庭的經(jīng)濟(jì)事物有個(gè)全局的了解與深入思考，并根據(jù)實(shí)際情況，及時(shí)做出 家庭預(yù)算的調(diào)整，從而實(shí)現(xiàn)對家庭財(cái)務(wù)的有效管理。系統(tǒng)提供了備忘安排與備忘提醒設(shè)置。 （ 1）日記查詢 根據(jù) 用戶選擇的條件，有姓名、密碼、標(biāo)題、起始日期、截止日期等，在數(shù)據(jù)庫