【正文】 值，則會有一個相應(yīng)的超支提醒。 內(nèi)蒙古工業(yè)大學(xué)本科畢業(yè)設(shè)計說明書 18 第四 章 系統(tǒng) 功能 說明 用戶登陸的實現(xiàn) 將該系統(tǒng)雙擊打開后 ， 出現(xiàn)登錄界面， 要求用戶輸入用戶名與登陸密碼 ，如圖41 所示 ，用戶 按回車鍵或登陸按扭后，系統(tǒng)自動調(diào)用數(shù)據(jù)庫中的家庭賬戶 表與用戶的輸入信息相對照，如果是合法用戶，則出現(xiàn)相應(yīng)的登陸信息提示框如‘歡迎您，0001 李政 ！’并且進入主界面，當(dāng)該用戶在數(shù)據(jù)庫中的備忘錄中存有備忘信息，而登陸日期又是備忘發(fā)生的日期時，通過 showmessage 函數(shù)則會跳出其對應(yīng)的備忘事件提醒。反之，如果輸入信息與數(shù)據(jù)庫中相應(yīng)表不能匹配，即用戶名或密碼 出錯，則出現(xiàn)提示 信息如：非有效用戶名請重輸?shù)?，提醒用戶信息輸入有誤。該系統(tǒng)的主界面如圖 42 所示。 同時家庭成員還可以進行日記、備忘錄等的管理，方便生活的同時也滿足個人的實際需要。對于家庭的重要財務(wù)計劃，每個家庭用戶通過查詢也可清楚了解。他肩負著家庭財務(wù)計劃的制定、具體實施、分析家庭財務(wù)狀況和使用情況等，表現(xiàn)在該系統(tǒng)中主要是負責(zé)家庭預(yù)算計劃 管理、報表統(tǒng)計管理、收支分析管理等等，同時系統(tǒng)維護管理這塊也是由 管理員來實施的。同時， 將其顯示在日記列表中。當(dāng)點擊添加按鈕后，保存與取消按鈕處于激活狀態(tài)，此時可以進行日記的添加操作。并且同時顯示于窗體的相 應(yīng)位置。當(dāng)點擊添加按鈕后，保存與取消按鈕處于激活狀態(tài)，此時可以進行備忘錄內(nèi)容的添加操作。未按查詢按鈕前，顯示的是所有的收支記錄信息，按下查詢按鈕后，根據(jù)用戶的查詢條件表中顯示滿足條件的記錄。在這里，我 對一些容錯能力加以考慮，如當(dāng)查詢的起始時間大于截止時間時，就有出錯提示。 圖 45 備忘錄查詢窗口 （ 2）日記查詢 日記查詢的基本方式和代碼的編寫是一樣的，這里就不再贅述。 內(nèi)蒙古工業(yè)大學(xué)本科畢業(yè)設(shè)計說明書 22 圖 46 日記查詢窗口 財務(wù)管理的實現(xiàn) （ 1）登記收支信息 選擇該功能后，系統(tǒng)會調(diào)用收支記錄表、家庭 賬戶 表、收支類型表，通過收支記錄表中的用戶編號與類型編號在家庭 賬戶 表與收支類型表中找到相應(yīng)的用戶姓 名與類型 名稱，屏幕中顯示收支記錄表中的所有記錄以及與記錄相關(guān)的用戶姓名與類型名稱，比較直觀。 圖 47 登記收支窗口 內(nèi)蒙古工業(yè)大學(xué)本科畢業(yè)設(shè)計說明書 23 同時，可進行如下的操作： 1） 添加：當(dāng)按下這個按鈕，新記錄號會根據(jù)表中的最后一條記錄的記錄號自動生成。重要實現(xiàn)細節(jié)如下： 家庭成員姓名、收支類型名： 為了減少用戶的輸入，特意采用 組合框組件，只要通過選取組合框的下拉框，就可以方便地選擇所要的收支類型和家庭成員姓名。 日期：采用 Datetimepicker組件 ， 供用戶選取相應(yīng)的日期，避免輸入的同時又統(tǒng)一了日期的格式。我們提倡的是記賬及時性，這樣可以避免遺漏，因為時間久了，很可能就忘了此筆收支，就算能想起，也容易引起金額等的誤差，對記賬 的準確性不利，但這是一個觀念與習(xí)慣問題，非一日可改，也可能是條件不許可，所以不可避免存在收支發(fā)生數(shù)段時間后才進行 記賬的行為，因此在此我們允許當(dāng)前日期大于記賬日期的記賬 行為。 2)修改：按下該按鈕后，可以修改指定的某條記錄，除記錄號外其他信息均可修改，修改完后只有按保存按鈕后方算提交給數(shù)據(jù)庫，其提交成功的各種限制條件與添加記錄是相同的，也可按取消按鈕取消所做的任何修改操作。 當(dāng)日期、成員姓名和類型名稱與已有記錄重復(fù)時，提示信息重復(fù)，提交不成功。當(dāng)該按鈕可見時，按下該按鈕后，跳出信息提示框，如用戶確認要刪除被選中的記錄，該條記錄才被最終刪除。 (2)查詢收支信息 內(nèi)蒙古工業(yè)大學(xué)本科畢業(yè)設(shè)計說明書 24 該模塊實現(xiàn)分為兩部分：一部分是完成選擇要查詢的字段或字段組合，其中收支記錄中的用戶編號和收支類型編號字段由成員姓名和類型名稱替代，因為文字比編號更方便，更直觀，通過代碼可以名稱與編號的轉(zhuǎn)換；另一部分是顯示條件組合查詢的結(jié)果。也可以通過顯示所有記錄按鈕來實現(xiàn)查詢結(jié)果與所有記錄的轉(zhuǎn)換。其界面如圖 48 所示。其界面如圖 48所示。未按查詢按鈕前，顯示的是 所有的 銀行卡的 信息，按下查詢按鈕后，根據(jù)用戶的查詢條件 ， 表中顯示滿足條件的記錄。 同樣 在這里，我也對一些容錯能力加以考慮，如當(dāng)查詢的起始時間大于截止時間時，就有出錯提示 ，如圖 49 所示。而按修改按鈕后，用戶可以對該記錄的所有內(nèi)容進行修改，完成修改后可按保存按鈕提交給數(shù)據(jù)庫。其界面如圖 410所示。 進 入改窗口后，保存與取消按鈕處于未激活狀態(tài)，用戶只有在按下新建收支項目、修改收支項目或刪除收支項目三個按鈕中的其中一個后，保存與修改按鈕才會被激活。 內(nèi)蒙古工業(yè)大學(xué)本科畢業(yè)設(shè)計說明書 27 圖 411 設(shè)置收支項目窗口 系統(tǒng)維護模塊的實現(xiàn) 系統(tǒng)維護分為設(shè)置家庭成員、用戶賬戶更新、系統(tǒng)備份和系統(tǒng)還原四個方面，設(shè)置家庭成員和用戶賬戶更新的實現(xiàn)方法與設(shè)置收支項目相同。系統(tǒng)備份和系統(tǒng)還原 這兩個功能來說， 其實現(xiàn)方法大致相同，所以在此就系統(tǒng)備份 的實現(xiàn) 進行 介紹 ，其界面如 412 圖所示 。反之，提示備份失敗信息。 （ 1）月度報表 在 該 報表中，完成選擇時段，按下 Go按鈕后，就會以表的形式顯現(xiàn)所查詢時段的相關(guān)記錄信息，并且在表的下方，系統(tǒng)通過使用 SQL語句來查詢并顯現(xiàn)所有記錄的收入總計、支出總計、收支平衡等的金額，當(dāng)支出超出預(yù)定計劃數(shù)時，系統(tǒng)就會及時提醒管理員。而支出總計、收支平衡等的實現(xiàn)跟收入總計的實現(xiàn)差不多。 當(dāng)未選取任何分析條件時，通過調(diào)用收支記錄表及家庭 賬戶 表中的成員姓名和收支類型列表中的類型 名稱，整個界面顯示完整的記錄信息。 其界面如圖 414所示。 在開發(fā)系統(tǒng)之前， 我通過圖書館和互聯(lián)網(wǎng)查閱了很多相關(guān)信息資料，廣泛了解了當(dāng)前實際應(yīng)用的各種家庭財務(wù)管理軟件。通過前期的這些準備工作，我完成了該系統(tǒng)的需求分析與設(shè)計工作。從需求分析到系統(tǒng)的實現(xiàn)，這一完整的過程，讓我對軟件開發(fā)有了一個更深的認識。而且在設(shè)計、實現(xiàn)過程中，我也時刻以此為原則。如一開始在實現(xiàn)日記管理這一模塊中，考慮到個人隱私問題，所以無論在查看或是寫日記的操作中，我都使用了密碼驗證，顯得很繁瑣，而這一步針對安全性考慮又是非常必要 的，但是對用戶而言，就是這個軟件的缺陷所在了。這些在使用其他軟件時我們都會認為是理所當(dāng)然的，但真正自己動手時，又往往是另一回事了。 SQL 作為所有數(shù)據(jù)庫通用的語言，熟練掌握它 ,在系統(tǒng)的實現(xiàn)過程中的確能帶來很大的方便，幾乎所有的代碼能通過 SQL 語句實現(xiàn)其要達到的功能，并且能保持數(shù)據(jù)的一致性、準確性等。針對具體的 數(shù)據(jù)庫，使用 SQL 語句都有特定的格式，如涉及到有關(guān)日期的格式時，在 SQL SERVER 2021數(shù)據(jù)庫中的 SQL 語句與其他數(shù)據(jù)庫是不一樣的。該事件就是統(tǒng)計所選時間段的所有記錄，是通過 SQL中的 select選擇語句來實現(xiàn)的，具體代碼為： str1:=39。+monthstart+39。+monthend+39。這些雖是細節(jié)問題，卻也是關(guān)鍵問題，不熟悉不掌握整段代碼就無法編譯成功 ， 系統(tǒng)的整體功能就不能實現(xiàn)，所以在系統(tǒng)的實現(xiàn)過程中，也是我學(xué)習(xí)的一個過程，是一次真正意義上的理論與實踐相結(jié)合的過程。比如在數(shù)據(jù)庫連接過程中，由于沒有把ADOTable、 ADOQuery、 ADOConnection 等組件放在同一模塊進行統(tǒng)一管理，導(dǎo)致系統(tǒng)在運行過程中老是出現(xiàn)數(shù)據(jù)更新滯后的問題，即比如當(dāng)在收支記錄中添加一條新的收支記錄時，當(dāng)前數(shù)據(jù)顯示控件并不能立即顯示新添加成功的記錄，只有當(dāng)?shù)诙螁酉到y(tǒng)時，才能看到該條新記錄，這個問題好長一段時間內(nèi)一直困擾著我，而排除了一系列其他因素之后，我還是找不到答案。在開發(fā)過程中，像這類問題普遍存在，同時也讓我深深的理解了 “紙上得來終覺淺，決知此事要躬行 ”的道理。比如在網(wǎng)絡(luò)應(yīng)用方面，大家都知道 隨著計算機科學(xué)日漸成熟 ,網(wǎng)上銀行業(yè)務(wù)正迅速發(fā)展，很多銀行系統(tǒng)都提供了與家庭銀行 賬戶 相掛鉤的業(yè)務(wù)處理。 所以相對而言本系統(tǒng)的設(shè)計與開發(fā)僅是一個嘗試性的工作，該系統(tǒng)還有許多足的地方，比如用戶界面不夠美觀，模塊設(shè)計不夠 完善 ，設(shè)計較簡單等多方面問題 ,這些都有待進 一步改善。無論在理論上還是在實踐中， 呂巖 老師都精心指導(dǎo)我， 幫助我進行論文的選題和選擇研究重點以及如何制作相關(guān)的系統(tǒng)等，尤其是在系統(tǒng)實現(xiàn)的具體過程中，更是不厭其煩的幫我解決各種問題， 使我的理論知識水平、實際操作能力以及理論聯(lián)系實際的能力都有很大的提高，這對于我以后的工作和學(xué)習(xí)都有著巨大的幫助，在此我謹向 呂巖 老師致以真摯的謝意。 內(nèi)蒙古工業(yè)大學(xué)本科畢業(yè)設(shè)計說明書 33 參考文獻 [1] 張京 ， 王卓 .Delphi 7 程序設(shè)計應(yīng)用教程 .中國鐵道出版社 . 2021： 3452 [2] 求是科技 .信息管理系統(tǒng)開發(fā)導(dǎo)航 .人民郵電出版社 .2021： 4589 [3] 李之明 . Delphi 7 經(jīng)典解析 .中國鐵道出版社 .2021： 67234 [4] 趙增敏 .數(shù)據(jù)庫應(yīng)用基礎(chǔ) SQL SERVER .2021： 3285 [5] 張堪 ， 侯世國 ， 所玉君 .SQL SERVER 2021 中文版入門與提高 .清華 出版社 . 2021： 26186 [6] 劉彥慶 .財務(wù)軟件開發(fā)必須走通用化道路 .黑龍江電子技術(shù) .2021， 42： 1233 [7] 佘友軍 .數(shù)字家庭理財面面通 .視窗世界期刊 .2021, 26： 7698 [8] 杜文英 .計算機財務(wù)軟件開發(fā)的方向 .河南機電高等?？茖W(xué)校學(xué)報 . 2021, 12：1743 [9] 張金城 .管理信息系統(tǒng) .北京大學(xué)出版社 .2021： 3246 [10] Julian Bucknall. The Tomes of Delphi Algorithms and Data Structures. Wordware :389456 [11] Ralph , Gee . Principles of Information Systems. :322385 [12] Jeffrey . Modern Systems Analysis and Design. Person Education. 1998: 663652 內(nèi)蒙古工業(yè)大學(xué)本科畢業(yè)設(shè)計說明書 34 附 錄 （ 1）登記收支核心代碼： //設(shè)置按紐為可用狀態(tài) procedure setbuttonstrue。 :=true。 :=true。 :=false。 :=false。 :=false。 :=false。 end。 begin :=false。 :=true。 :=false。 :=true。 :=true。 :=false。 :=true。 //設(shè)置 DBGrid 記錄所對應(yīng)的各文本框的有效值 procedure setvalues。date39。 :=[39。]。name39。 :=[39。]。record_id39。 if [39。]39。 then :=[39。] else :=39。 if [39。]=39。 then :=true。 //設(shè)置各文本框的值為空 procedure setnilvalues。39。39。39。39。39。 end。 begin :=。 :=。 :=true。 :=true。 while not do begin ([39。],sender)。 end。name39。 (1)。 setbuttonstrue。 //登記收支 添加按紐 procedure (Sender: TObject)。 begin itype:=1。 :=true。 內(nèi)蒙古工業(yè)大學(xué)本科畢業(yè)設(shè)計說明書 37 :=true。 if (39。).AsString39。 then a:=strtoint((39。).AsString)+1 else a:=1。 :=formatfloat(39。,a)。 。 。 。 //登記收支 修改按紐 procedure (Sender: TObject)。 :=false。 :=false。 :=false。 {:=[39。]。itype_name39。 :=[39。]。money39。 :=[5].AsString。memo39。39。memo39。39。inorout39。收入 39。 } setvalues。 。 。 。 //刪除按扭 procedure (Sender: TObject)。 scquery:TADOQuery。 :=。delete from ine where record_id=39。39。record_id39。39。39。 :=