計算機畢業(yè)設計論文---家庭理財系統

1、<p><b>　　引 言</b></p><p><b>　　(更新版)</b></p><p>　　隨著現代計算機技術的發(fā)展與應用,計算機已經滲透到我們生活、工作、學習的每一個角落。當然,理財作為家庭生活的一個重要組成部分,也隨著計算機技術的發(fā)展發(fā)生了跨時代的變革。而這種變革的實質是由于手工式的家庭財務管理已不適應當今社會發(fā)展的

2、實際情況,利用計算機來管理家庭財務,已經成為趨勢。</p><p>　　現金社會發(fā)展越來越快，人民生活水平越來越高，人民的消費項目越來越多，使得我們對于怎樣合理地進行財務上的收支，債務的管理等工作很難做到完美無缺，以至于我們常常抱怨錢總是不夠。計算機的最大優(yōu)點在于利用它能夠高效準確地進行信息管理，使用計算機進行信息管理，即可輕松的解決這個問題，同時提高了工作效率，而且大大的提高了其安全性。家庭理財管理系統正是為滿

3、足當代家庭理財管理的需要而設計開發(fā)的一個信息管理系統。</p><p>　　本設計的系統的前臺采用Visual Basic 6.0作為開發(fā)工具，后臺數據庫采用的是Access 2000數據庫。系統主要實現了有關家庭收支記錄、報表統計、收支分析等功能，還附帶了日記管理、備忘管理等其他與家庭生活相關的輔助功能，是一個較具實用價值的管理軟件。為每一個家庭的管理者提供充足的信息和快捷的查詢手段，大的方便家庭的管理者的合理

4、理財。</p><p><b>　　第1章 緒論</b></p><p><b>　　1.1 課題來源</b></p><p>　　21世紀的中國，隨著人們生活水平的提高，個人家庭財富的不斷增長，人們迫切的需要進行家庭理財，但是大部分家庭又不知道怎樣去理財投資，以保持家庭財富的持續(xù)穩(wěn)定的增長。</p>&l

5、t;p>　　其實家庭理財規(guī)劃非但不神秘，而且與每個人和每個人家庭都密切相關，這種個人化的理財服務在20世紀八十年代已經在國際上比較發(fā)達的城市擁有成熟的市場。理財師為客戶進行的理財，主要是根據客戶的資產狀況與風險偏好，關注客戶的需求與目標，以“幫助客戶”為核心理念，采取一整套規(guī)范的模式，向客戶提供設計生活方方面面的的全面財務建議，并調用儲蓄、保險、股票、債券、基金、信托等金融產品，為客戶尋找一個最適合的理財組合方式，以確保其資產的保

6、值與增值。</p><p>　　家庭理財并不是一個新鮮詞，簡單地說就是開源節(jié)流、管理好家庭的錢財。想想看，您是如何管理好自己的錢財的？您家庭一定有些存款，還有可能買賣股票、債券，還可能給自己和家人買了保險---其實在日常生活中不自覺的運用這各種理財方法。因此開發(fā)一個家庭理財管理系統迎合了現代的家庭發(fā)展趨勢，對居民合理分配家庭財產起到重要意義。</p><p>　　一直以來人們使用傳統人工的

7、方式文件、紙張記帳管理模式，這種管理方式存在著許多缺點，如：效率低、保密性差，另外時間一長，將產生大量的文件和數據，這對于查找、更新和維護都帶來了不少的困難，所以利用計算機實現財務信息的管理的自動化將勢在必行。今天我們使用計算機對家庭財務信息進行管理，具有手工管理所無法比擬的優(yōu)點。例如：檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高家庭財務管理的效率，面對目前的實際狀況，迫切需要開發(fā)一個新系統

8、來適應這一些工作。</p><p>　　1.2 系統現狀及發(fā)展趨勢</p><p>　　家庭理財系統，即Family Conduct Financial Transactions System。它利用計算機應用技術，使家庭理財逐步信息化，從而形成由家庭成員與計算機共同構成服務于家庭的人機信息財務管理系統。</p><p>　　家庭理財系統在國內外很多地方使用已經相當

9、的普遍。國外的家庭理財管理系統發(fā)展的相對比較成熟，比如他們系統里包含有股票的預測、基金的分析等等。在國內，計算機使用盛行的當今社會，家庭理財管理系統已基本替代了傳統的手工記賬理財的方法，給消費者帶來極大的方便，但由于人們的生活水平越來越高，收支種類越來越多，家庭消費的內容日益豐富等，現行的許多家庭理財管理系統已不能滿足大家的需求，許多功能還亟待完善與更新。雖然國內的家庭理財管理系統功能較不完善，但在我國科技迅速發(fā)展的今天，其發(fā)展前景將十

10、分令人期待，尤其是在近幾年，伴隨著計算機在社會中的高速普及，家庭理財系統的使用范圍逐步擴大，從最早的簡單記錄家庭、個人財務的收支情況，到現在對財務的收支查詢、匯總、報表分析、預測等等。巨大的市場需求也促使了很多公司加大了對家庭理財系統的研究。</p><p>　　當今社會人們的生活水平和文化素質普遍提高，隨著市場經濟的快速發(fā)展，觀念的不斷更新，每個人的理財意識普遍增強，特別是家庭理財意識得到很大發(fā)展，人們對家庭各

11、方面消費不僅僅只有進行記錄和統計的愿望，各種收入消費途徑錯綜復雜，如何使用戶能更加方便的操作成為要求；同時伴隨精神和物質生活的提高，人們購置和使用計算機的能力也在增強，網絡越來越發(fā)達，一種新型網絡家庭理財管理系統軟件正等待出現。家庭理財管理系統是一個為方便處理家庭財務的一個軟件，它的作用是更好的滿足理財者對家庭財務管理的需要。目前社會上普遍使用的家庭理財管理系統基本都是單擊版的，隨著IT技術的進步和計算機網絡技術的發(fā)展，以及家庭收支范圍

12、的擴大，家庭理財管理系統將逐漸從傳統的桌面管理向網絡集成的方向發(fā)展，從局部、靜態(tài)、事后核算到全局、動態(tài)、實時的管理，基于不同軟硬件平臺、不同網絡架構的各級財務管理子系統需要有機地協同工作。因此基于Internet的家庭理財管理系統必然成為未來家庭理財管理系統的發(fā)展趨勢。</p><p>　　1.3 系統的開發(fā)目的和意義</p><p>　　家庭理財管理系統是為滿足當代家庭理財管理的需要而設

13、計開發(fā)的一個財務管理系統。它針對家庭理財的需要，開發(fā)出一個能實現管理家庭財務收支以及統計分析等功能的實用型軟件，能夠為每一個家庭的管理者提供充足的信息和快捷的查詢手段，大大方便家庭管理者合理科學有效的理財。</p><p>　　伴隨著信息時代的到來，信息的種類、數量越來越多，容量也越來越大，在競爭越來越激烈的今天，隨著科學技術的不斷提高,計算機科學日漸成熟，其強大的功能已為人們深刻認識,它已進入人類社會的各個領域

14、并發(fā)揮著越來越重要的作用。而使用計算機對家庭財務進行管理,已經成為一種趨勢，與傳統的手工式家庭財務管理相比，利用計算機軟件對家庭財務實行管理具有檢索迅速、查找方便、可行性高、存儲量大、保密性好、壽命長、成本低等優(yōu)點。家庭理財管理系統正是在這種環(huán)境下應運而生，其開發(fā)的整體任務是實現家庭財務管理的系統化、規(guī)范化、科學化，從而達到有效管理家庭財務的目的。因此，開發(fā)這樣一個系統在當今社會中是很有必要的。</p><p>

15、　　1.4 系統開發(fā)工具與數據庫介紹</p><p>　　編程環(huán)境的選擇微軟公司的Visual Basic 6.0是Windows應用程序開發(fā)工具，是目前最為廣泛的、易學易用的面向對象的開發(fā)工具。Visual Basic提供了大量的控件，這些控件可用于設計界面和實現各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應用程序的運行效率和可靠性。故而，實現本系統VB是一個相對較好的選擇。<

16、/p><p>　　1.4.1 Visual Basic介紹</p><p>　　Visual Basic是微軟公司出品的一個快速可視化程序開發(fā)工具軟件，借助微軟在操作系統和辦公軟件的壟斷地位，VB在斷斷的幾年內風靡全球。Visual Basic是極有特色和功能強大的軟件，主要表現在：所見即所得的界面設計，基于對象的設計方法，極短的軟件開發(fā)周期，交易維護的生成代碼。Visual Basic提供了

17、開發(fā)Windows® 應用程序最迅速、最簡捷的方法。不論是Windows應用程序的資深專業(yè)開發(fā)人員還是初學者，Visual Basic都為他們提供了整套工具，以方便開發(fā)應用程序。</p><p>　　Visual Basic是一種可視化的編程語言，利用可視化技術進行編程，可使應用程序的開發(fā)簡單、快捷；程序員不需要了解更多的關于面向對象的程序設計的細節(jié)，即可編寫出界面友好、功能強大的應用程序。因此，Vi

18、sual Basic在國內外各個領域中應用非常廣泛。由于其容易學習、功能強、編程效率高，無論是專業(yè)人員還是非專業(yè)人員，都可以非常容易地掌握好Visual Basic的使用。它還提供了眾多的Active X控件，提高了軟件開發(fā)人員的編程效率，Visual Basic 6.0主要特點如下：</p><p><b>　?、?可視化設計</b></p><p>　　Visua

19、l Basic具有“所見即所得”的功能。在程序設計時，頭腦中所想象的應用程序界面，完全可以鍵盤與鼠標完成，而不用編制大量的代碼。如修改，也可利用鍵盤或鼠標完成，而底層的一些程序代碼可由Visual Basic自動生成或修改。Visual Basic為用戶提供了大量的控件，這些控件對于熟悉Windows應用程序的用戶而言是一點也不陌生，如“標簽”、“組合框”、“命令按鈕”、“文本框”等等，用戶只需用鼠標或鍵盤把這些控件拖到所需的位置，并設

20、置它們的大小、形狀屬性等，即可得到所需的應用程序界面。</p><p><b>　?、?事件驅動編程</b></p><p>　　在Visual Basic中把窗體及控件稱為對象。這些對象組成了與用戶交互的圖形界面（也稱為用戶接口或用戶界面）。在設計應用程序時，必須考慮到用戶如何與程序進行交互。用戶通過鼠標和鍵盤與應用程序進行交互是最直接、最方便的，這時那些對象必須對

21、鼠標、鍵盤操作所引起的事件作出響應。因此，Visual Basic編程重點是編寫事件驅動過程的代碼。</p><p>　?、?面向對象程序設計</p><p>　　Visual Basic是面向對象的程序設計語言，它將代碼和數據結合在一個個對象中，用戶只需了解每個對象能完成何種任務，而不需知道對象是如何工作的。軟件開發(fā)人員主要編寫操作驅動過程的代碼，使對象對用戶的操作作出響應。但因Visu

22、al Basic沒有多態(tài)等面向對象的特性，所以也有人稱 Visual Basic是一種準面向對象的程序設計語言。</p><p>　?、?Visual Basic是一種32位的開發(fā)工具</p><p>　　Visual Basic 5.0以前的開發(fā)工具很多是在DOS和Windows3X下使用，因而它們基本上是16位的開發(fā)工具，Visual Basic 6.0是運行在Windows9X或Wi

23、ndowsXP操作系統下的，因此它是典型的32位開發(fā)工具。</p><p>　　⑤ 易學易用、開發(fā)周期短</p><p>　　Visual Basic簡單易學，界面友好，容易使用。Visual Basic提供的大量功能強大的控件，能幫助開發(fā)人員在較短時間內用少量語句編寫出應用程序，縮短了開發(fā)周期。</p><p>　　1.4.2 Access數據庫介紹</p&

24、gt;<p>　　Microsoft Access 2000 是Microsoft Office 的系列產品之一，是關系型數據庫管理系統。并且伴隨著其功能不斷完善，操作的日趨簡單化，現在已得到了廣泛的應用，成為當今世界上最流行的關系桌面數據庫管理系統。</p><p>　　Access最大的優(yōu)點是用戶不用編寫代碼就可以在很短的時間里開發(fā)出一個功能強大而且相當專業(yè)的數據庫應用程序，并且這一過程是完全可

25、視的。</p><p>　　應用Access中的各種工具可以方便、高效地處理數據，它不僅是適用于有經驗的數據庫設計人員，也適用于剛接觸數據庫管理系統的新手[12]。</p><p>　　Access的主要特點有以下幾個方面：</p><p>　?。?）在Access中，可以方便地存取由dBASE、Foxpro、Paradox等各種數據庫系統產生的數據庫，并且支持OD

26、BC(open Database Connectivity)標準；</p><p>　?。?）Access提供了強大的引導向導。利用引導向導，用戶可以方便、輕松地創(chuàng)建對向。同時Access為用戶提供了大量常用的數據庫模板，用戶可以非常方便地在此基礎上創(chuàng)建自己的數據庫系統；</p><p>　　（3）Access提供了功能強大的VBA(Visual Basic for Application

27、)語言。使用它用戶可編寫更為復雜的數據庫應用程序；</p><p>　?。?）使用技術，用戶還可以在數據庫中插入各種對象，增加數據庫的效果。</p><p>　?。?）用戶還可以在窗體或報表中使用圖形控制組件，將資料用圖標的方式表示出來。</p><p>　　1.5 系統開發(fā)理論介紹</p><p>　　軟件的生命周期指從提出軟件產品開始，直

28、到該軟件產品被淘汰的全過程。信息系統在使用過程中隨著其生存環(huán)境的變化，要不斷維護、修改，當它不再適應的時候就要被淘汰，就要有新系統代替老系統，這種周期循環(huán)稱為信息系統的生命周期。</p><p>　　信息系統的生命周期可以分為系統規(guī)劃、系統分析、系統設計、系統實施、系統運行和維護等五個階段。</p><p>　　1.5.1 系統規(guī)劃階段</p><p>　　系統規(guī)劃

29、階段的任務是對各家庭理財的環(huán)境、目標及現行系統的狀況進行初步調查，根據家庭理財目標和發(fā)展戰(zhàn)略，確定信息系統的發(fā)展戰(zhàn)略，對建設新系統的需求做出分析和預測，同時考慮建設新系統所受的各種約束，研究建設新系統的必要性和可能性。根據需要與可能，給出擬建系統的備選方案。對這些方案進行可行性分析，寫出可行性分析報告。可行性分析報告審議通過后，將新系統建設方案及實施計劃編寫成系統設計任務書。</p><p>　　1.5.2 系統

30、分析階段</p><p>　　系統分析階段的任務是根據系統設計任務書所確定的范圍，對現行系統進行詳細調查，描述現行系統的業(yè)務流程，指出現行系統的局限性和不足之處，確定新系統的基本目標和邏輯功能要求，即提出新系統的邏輯模型。這個階段又稱為邏輯設計階段，他是整個系統建設的關鍵階段，也是信息系統建設與一般工程項目的重要區(qū)別所在。該階段的工作成果體現在系統說明書中，這是系統建設的必備文件。它既是給用戶看的，也是下一階段的

31、工作依據。因此，系統說明書既要通俗，又要準確。用戶通過說明書可以了解未來系統的功能，判斷是不是其所要求的系統。系統說明書一旦討論通過，就是系統設計的依據，也是將來驗收系統的依據。</p><p>　　1.5.3 系統設計階段</p><p>　　簡單地講，系統分析階段的任務是回答系統“做什么”的問題，而系統設計階段要回答的問題是“怎么做”。該階段的任務是根據系統說明書中規(guī)定的功能要求，考慮

32、實際條件，具體設計實現邏輯模型的技術方案，也即設計新系統的物理模型。這個階段又稱為物理設計階段，可分為總體設計和詳細設計兩個階段。這個階段的技術文檔是“系統設計說明書”。</p><p>　　1.5.4 系統實施階段</p><p>　　系統實施階段是將設計的系統付諸實施的階段。這一階段的任務包括計算機等設備的購置、安裝和調試，程序的編寫和調試，人員培訓，數據文件轉換，系統調試與轉換等。這

33、個階段的特點是幾個互相聯系、互相制約的任務同時展開，必須精心安排、合理組織。系統實施是按實施計劃分階段完成的，每個階段應寫出實施進度報告。系統測試之后寫出系統測試分析報告。</p><p>　　1.5.5 系統運行和維護階段</p><p>　　系統投入運行后，需要經常進行維護和評價，記錄系統運行的情況，根據一定的規(guī)格對系統進行必要的修改，評價系統的工作質量和經濟效益。</p>

34、<p><b>　　1.6 運行環(huán)境</b></p><p><b>　　①硬件環(huán)境</b></p><p>　　內存：768M ，CUP：賽揚 2.4G ，硬盤：120G。</p><p><b>　?、诓僮飨到y</b></p><p>　　Microsoft

35、Windows XP Professional sp2</p><p><b>　　③軟件環(huán)境</b></p><p>　　數據庫：Access 2000</p><p>　　開發(fā)工具：Visual Basic 6.0</p><p>　　第2章 系統需求分析</p><p><b>　

36、　2.1系統目標</b></p><p>　　本系統要達到的目標有以下幾點：</p><p>　　驗證用戶和密碼的正確性再登入，以及修改密碼和退出系統；</p><p>　　保存每次輸入的收支記錄，并提供兩種查詢方式：種類法和編號法；</p><p>　　家庭現金和信用卡的收入/支出進行管理，實現費用的增加，修改，查詢，刪除；&l

37、t;/p><p>　　整個收支記錄庫可以導出為文本文件，以便做其它工作；</p><p>　　給出理財報告，對數據報表進行分析預測、給出理財建議，報表輸出；</p><p>　　能夠提供一定的安全機制，提供數據信息授權訪問，防止隨意刪改，同時提供信息備份的服務。</p><p>　　2.2 系統可行性分析</p><p>

38、　　可行性研究的目的是用最小的代價在盡可能短的時間內確定問題是否能夠解決。從現在應用的技術方面、管理者和用戶的操作方式方面研究智能家庭理財系統的可行性和必要性。智能家庭理財系統的實施，將很大程度上提高現代家庭的理財效率，使得現代家庭能夠更加方便的對自己的財務進行個性化的管理。</p><p>　　2.1.1 技術可行性</p><p>　　技術可行性研究的任務，是從總體上鑒別和選擇技術系統

39、，是研究現有的技術條件能否順利完成開發(fā)工作，硬、軟件配置能否滿足開發(fā)的需求等等。本系統的開發(fā)使用Visual Basic 6.0 作為系統開發(fā)的開發(fā)環(huán)境，它作為一種現代化的編程語言，提供完善的指令控制語句、類與對象的支持及豐富的數據類型，給開發(fā)高性能系統提供了保障，為開發(fā)滿足客戶要求的系統保證了代碼的模塊化要求，而代碼模塊化的提高，非常有利于以后對新系統的擴展與修改。</p><p>　　綜上所述，本系統為一個小

40、型的家庭理財系統，所耗費的資源非常的小，現行的電腦無論是硬件還是軟件都能夠滿足條件，因此，本系統在技術上是可行的。</p><p>　　2.1.2 經濟可行性 </p><p>　　進行軟件開發(fā)項目成本的估算以及了解取得效益的評估，確定要開發(fā)的項目是否值得投資開發(fā)，這些即為經濟可行性。</p><p>　　如今，隨著計算機的大量普及，各種軟件的開發(fā)成本越來越低，價

41、格也越來越底。本系統也是這樣，開發(fā)成本較低，只是需要一臺配置一般的計算機，該系統運行時占計算機的資源也不多，但并不會因為開發(fā)成本低而造成系統功能性能的下降。相反，隨著計算機技術的發(fā)展,各種實用軟件的性能日漸提高。家庭理財管理系統廉價的開發(fā)成本，卻能夠為居民帶來相當大的實惠和方便。主要表現在：</p><p>　　(1)本系統是一個擁有多種實用功能的家庭理財管理信息系統，它集成了家庭成員管理、收入管理、支出管理、密

42、碼管理等多種功能，具有較強的實用性和方便性。</p><p>　　(2)本系統的運行可以大大提高居民管理財務的效率，減少不必要的人力和物力。</p><p>　　(3)本系統還具有查詢和統計功能，能夠查詢到用戶在一段特定時間內收入和支出的情況，特別是支出情況，有時往往會讓用戶在月底嚇一跳，大大超出預算，還弄不清錢都花到哪里了。有了家庭理財系統，不僅使用戶對口袋里錢的去向一目了然，而且可以幫

43、助用戶漸漸感悟到一些心得，摸清哪些花費是必要的，哪些“意外開支”是可以避免的，哪筆開支是可繼續(xù)評估其必要性的。</p><p>　　(4)本系統的運行可以大大的提高家庭的工作效率，并可以使敏感文檔更加安全。</p><p>　　由此可以得出，本系統在經濟上是具有可行性的。</p><p>　　2.3系統需求分析方法</p><p>　　2.3

44、.1系統需求分析概述</p><p>　　在軟件工程中，需求分析指的是在建立一個新的或改變一個現存的電腦系統時，為描寫新系統的目的、范圍和定義所要做的所有的工作。需求分析的任務是通過詳細調查現實世界要處理的對象，充分了解原系統的工作概況，明確用戶的各種需求，然后在此基礎上確定新系統的功能。它是軟件工程中的一個關鍵過程。在這個過程中，系統分析員和軟件工程師必須確定顧客的需要。只有在確定了這些需要后，他們才能夠分析和

45、尋求新系統的解決方法。如果在需求分析時分析者們未能正確地認識到顧客的需要的話，那么最后的軟件實際上不可能達到顧客的需要，或者軟件無法在規(guī)定的時間里完工。</p><p>　　2.3.2系統需求分析方法</p><p>　　在管理信息系統開發(fā)實踐中，系統分析人員使用了多種系統分析方法，主要有結構化分析方法(Structured Analysis簡稱SA)、面向數據結構的分析方法以及面向對象的

46、分析方法等。其中，結構化分析方法自從20世紀70年代末提出以后，由于其簡單、清晰、易于學習、掌握和使用的特點，成為長期以來被廣泛使用的分析方法。</p><p>　　結構化系統分析是指用一組標準的準則和工具從事分析工作，即有組織、有計劃、有規(guī)律地進行分析。它是一種利用系統工程的思想和有關結構的概念、自頂向下劃分模塊、逐步求精的分析方法。該方法把研究對象看成一個系統，用分解和抽象這兩個基本策略來控制系統的復雜性。它

47、有三個要點：(1)分解和抽象；(2)圖表描述；(3)模型轉換。</p><p>　　結構化系統分析常用的工具有:數據流程圖(DFD)、數據字典(DD)、數據庫存儲結構規(guī)范化法；數據立即存取圖；處理邏輯的表達方法(決策樹、判定表、結構式語言)</p><p>　　2.4系統功能需求分析</p><p>　　家庭理財管理系統是典型的信息管理系統，其開發(fā)功能主要包括：通過

48、計算機管理個人財務，實現無紙化理財；通過查詢分析，統計出各項數據，分析出生活中的浪費和節(jié)約的地方，通過強大的查詢和索檢高效的索檢出數據，提高辦事效率。本系統主要有以下功能：</p><p>　　對家庭成員資料的管理及對喜用權限的管理。相關信息存在“家庭成員信息表”中，普通用戶可以對自己的密碼進行修改，系統管理員在密碼修改功能上的基礎上可以添加或刪除成員；</p><p>　　對理財項目可以

49、進行編輯。理財項目包括日常收入來源和支出類型，活期銀行賬戶和定期銀行賬戶；相關信息存在“收入來源表”、“支出類型表”、“活期賬戶信息表”和“定期賬戶信息表”中，均可以實現添加、刪除、修改功能；</p><p>　　日常財務管理，包括日常收入和日常支出，即記下日常的收入和日常的支出。相關信息存入“收入信息表”和“支出信息表”中，均可以實現添加、刪除、修改功能。</p><p>　　銀行儲蓄管

50、理：包括活期銀行賬戶和定期儲蓄，即記錄下銀行賬戶的存取款記錄，相關信息存入“活期存取信息表”和“定期存款信息表”中，均可以實現添加、刪除、修改功能；</p><p>　　債務管理，包括借出款和借入款。相關信息存入“借出信息表”和“借入信息表”中，均可以實現添加、刪除、修改功能；</p><p>　　理財分析，實現分類查詢，即按類別查詢收支明細，而且可以看到收支的財務分析報告，并可打印；&l

51、t;/p><p>　　數據維護：包括數據庫的備份、數據庫的導入/出，方便用戶保存和早期查詢；</p><p>　　其他功能：附加記事本、通訊錄和計算器等常用工具。</p><p>　　第3章 系統總體設計</p><p>　　3.1 系統設計方法</p><p>　　系統設計是對整個管理系統功能進行分析，并劃分和構建系統

52、功能模塊。模塊化程序設計就是把一個大程序按一個人能理解的規(guī)模進行分解的一種方法。模塊化指的是把一個程序按功能分解成若干彼此具有一定獨立性同時也具有一定聯系的組成部分，這些組成部分稱為模塊。</p><p>　　系統設計是本系統開發(fā)的重要階段，它直接影響到目標系統的質量，是整個開發(fā)工作的核心。系統設計階段的主要任務是：在系統分析提出的邏輯模型的基礎上，科學合理地進行物理模型設計。</p><p&

53、gt;　　本系統在設計過程中，充分考慮了系統的穩(wěn)健性、適應性和效率性，符合系統設計的原則。</p><p><b>　　3.2 系統架構</b></p><p>　　通過對家庭理財功能的分析，本系統分為系統登錄界面、系統主程序界面、導出數據庫界面、導入數據庫界面、收支項目管理界面、家庭成員管理界面、日常收入管理界面、日常支出管理界面、活期存款界面、定期存款界面、借入款

54、界面、借出款界面、查詢明細界面、以及報表輸出餅圖界面。系統結構設計圖如下：</p><p>　　3.3 系統功能模塊細分</p><p>　　根據上述系統總體架構思想的分析，可將系統分為以下六大部分：</p><p>　　系統管理模塊負責對用戶和數據庫進行管理</p><p>　　基礎數據管理模塊負責對收支項目和家庭成員進行管理</

55、p><p>　　日常收支管理模塊負責對日常收入和日常支出進行管理</p><p>　　銀行儲蓄管理模塊負責對活期賬戶和定期儲蓄進行管理</p><p>　　借貸管理模塊負責對借出款和借入款進行管理</p><p>　　理財分析模塊負責明細查詢和理財報告功能</p><p>　　最后得到如圖示系統功能模塊圖：<

56、/p><p>　　3.4 系統數據庫的設計</p><p>　　開發(fā)數據庫應用系統，大部分可分為數據庫的分析、設計和應用程序的分析、設計兩部分。后臺數據庫的合理設計在本系統中占有十分重要的地位，數據庫設計的優(yōu)劣將會直接影響系統的準確性、效率及實現效果，合理的設計能提高數據存儲效率，保證數據的完整和一致。</p><p>　　3.4.1 數據庫相關理論</p>

57、<p>　　在數據庫應用系統開發(fā)之前，對開發(fā)數據庫的基本概念應當了解，對數據庫的結構、開發(fā)數據庫應用程序的步驟、開發(fā)體系及方法都應當有相當清晰的了解和認識。數據庫應用系統開發(fā)的目標是建立一個滿足用戶長期需求的產品。開發(fā)的主要過程為：理解用戶的需求，然后，把它們轉變?yōu)橛行У臄祿煸O計。把設計轉變?yōu)閷嶋H的數據庫，并且這些數據庫帶有功能完備、高效能的應用。數據庫技術在計算機軟件領域研究中一直是非常重要的主題，產生于60年代，30

58、多年來數據庫技術得到了迅速發(fā)展，并已形成較為完整的理論體系和一大批實用系統。</p><p><b>　　數據庫</b></p><p>　　數據庫由DBMS（數據庫管理系統）處理，DBMS則由開發(fā)人員和用戶通過應用程序直接或間接地使用。它主要包括四個要素：用戶數據、元數據、索引和應用元數據。</p><p><b>　　用戶數據&l

59、t;/b></p><p>　　目前，大多數主流數據庫管理系統把用戶數據表示為關系?，F在把關系看作數據表。表的列包含域或屬性，表的行包含對應業(yè)務環(huán)境中的實體的記錄。并非所有的關系都同樣符合要求，有些關系比其它關系更結構化一些。一個用以產生良好結構關系的過程，稱作規(guī)范化。</p><p><b>　　元數據</b></p><p>　　數據

60、庫是自描述的，這就意味著它自身包含了它的結構的描述，這種結構的描述稱作元數據。因為DBMS產品是用來存儲和操縱表的，所以大多數產品把元數據以表的形式存儲，有時稱作系統表。這些系統表存儲了數據庫中表的情況，指出每一個表中有多少列，那一列是主關鍵字，每一列的數據類型的描述，它也存儲索引、關鍵字、規(guī)則和數據庫結構的其他部分。在表中存儲元數據不僅對DBMS是有效的，對用戶也是方便的，因為他們可以使用與查詢用戶數據同樣的查詢工具來查詢元數據。&l

61、t;/p><p><b>　　索引</b></p><p>　　第三種類型的數據改進了數據庫的性能和可訪問性，這種數據經常稱作開銷數據，盡管有時也采用其他類型的數據結構，如鏈表，但它主要還是索引。索引可以用來排序和快速訪問數據。</p><p><b>　　應用元數據</b></p><p>　　存儲在

62、數據庫中的第四種數據是應用元數據，它用來存儲用戶窗體、報表、查詢和其他形式的查詢組件。并非所有的DBMS都支持應用組件，支持組件的DBMS也不一定把全部組件的結構作為應用元數據存儲在數據庫中。然而，大多數現代的DBMS產品存儲這種數據作為數據庫的一部分。一般來說，數據庫開發(fā)人員和用戶都不直接訪問應用元數據，相反，他們通過DBMS中的工具來處理這些數據。</p><p>　　3.4.1 數據庫分析</p>

63、;<p>　　根據以上分析，設計出下列數據項和數據結構：</p><p>　　成員信息：編號，稱呼，姓名，密碼，權限；</p><p>　　收入項目信息：編號，收入來源；</p><p>　　支出項目信息：編號，支出類型；</p><p>　　日常收入信息：編號，日期，方式，金額，項目，來源，人員，備注；</p>

64、<p>　　日常支出信息：編號，日期，方式，金額，項目，去向，人員，備注；</p><p>　　活期賬戶信息：開戶日期，銀行名稱，銀行地址，銀行賬號，款額，開戶人；</p><p>　　活期存取信息：編號，賬號，存取，數目，日期，姓名，余額；</p><p>　　定期存款信息：編號，開戶日期，銀行名稱，銀行地址，銀行賬號，款額，期限，開戶人，是否已??；&l

65、t;/p><p>　　借出款信息：得款人，金額，出借人，日期，是否已還，備注；</p><p>　　借入款信息：借入人，金額，出借人，日期，是否已還，備注；</p><p>　　3.2 數據庫概念結構設計</p><p>　　得到上面的數據項和數據結構后，即可設計滿足用戶需求的各種實體，以及它們之間的關系。根據上述設計規(guī)劃出以下各個實體及其E-R

66、圖：</p><p><b>　　a)</b></p><p><b>　　b)</b></p><p><b>　　c)</b></p><p><b>　　d)</b></p><p><b>　　e)</b&g

67、t;</p><p><b>　　f)</b></p><p><b>　　g)</b></p><p><b>　　h)</b></p><p><b>　　i)</b></p><p><b>　　j)</b&g

68、t;</p><p>　　綜合以上E-R模型，得到整個系統的E-R關系圖，如下示：</p><p>　　3.3 數據庫邏輯結構設計</p><p>　　系統模型的邏輯結構設計的任務是把概念結構設計好的基本的E-R圖轉換為支持關系模型的DBMS相符合的邏輯結構。</p><p>　　家庭理財管理系統數據庫各表具體定義如下：</p>

69、<p>　　表3.1 用戶信息表</p><p>　　表3.2 成員信息表</p><p>　　表3.3 收入項目信息表</p><p>　　表3.4 支出項目信息表</p><p>　　表3.5 收入信息表</p><p>　　表3.6 支出信息表</p><p>　　表3.7 活

70、期賬戶信息表</p><p>　　表3.8 活期存取信息表</p><p>　　表3.9 定期存款信息表</p><p>　　表3.10 借出信息表</p><p>　　表3.11 借入信息表</p><p>　　第4章 系統設計和實現</p><p>　　4.1 系統設計方法</p>

71、;<p>　　系統設計是對整個管理系統功能進行分析，并劃分和構建系統功能模塊。模塊化程序設計就是把一個大程序按一個人能理解的規(guī)模進行分解的一種方法。模塊化指的是把一個程序按功能分解成若干彼此具有一定獨立性同時也具有一定聯系的組成部分，這些組成部分稱為模塊。</p><p>　　系統設計是本系統開發(fā)的重要階段，它直接影響到目標系統的質量，是整個開發(fā)工作的核心。系統設計階段的主要任務是：在系統分析提出的

72、邏輯模型的基礎上，科學合理地進行物理模型設計。</p><p>　　本系統在設計過程中，充分考慮了系統的穩(wěn)健性、適應性和效率性，符合系統設計的原則。</p><p>　　4.2 系統模塊設計</p><p>　　4.2.1 系統主界面</p><p>　　用戶進入系統時要輸入正確的用戶名和密碼，系統從數據庫用戶表中檢索是否有相對應的數據信息，

73、若輸入正確則進入主界面，否則提示錯誤，需重新輸入。選擇取消退出登陸系統。若連續(xù)三次輸入的用戶名和密碼都無法與數據庫中的數據匹配，則強制推出系統。</p><p>　　模塊流程圖如圖4-1所示：</p><p>　　圖4.1 登錄模塊流程圖</p><p>　　登陸窗體如圖4.3所示：</p><p><b>　　圖4.2 登錄窗體&

74、lt;/b></p><p>　　輸入正確的用戶名和密碼登錄，進入系統主界面，如下圖示：</p><p>　　圖4.3 系統主界面</p><p>　　此模塊主要的相關代碼如下：</p><p>　　Private Sub Command1_Click()</p><p>　　On Error Resume Ne

75、xt</p><p>　　Static I As Integer '記數器</p><p>　　Static L As Integer '記數器</p><p>　　Dim Str_name As String</p><p>　　Dim Str_password As String</p><p>　

76、　Dim Str_username As String</p><p>　　Dim Str_userpassword As String</p><p>　　Dim Remainday As Long</p><p>　　Str_name = txt_name.Text</p><p>　　Str_password = txt_passwor

77、d.Text</p><p>　　Set Mydb = ExeCutesql("select user from user1 where user='" & Str_name & "'", Str_text)</p><p>　　If Mydb.EOF Then</p><p>　　MsgBox

78、 "你輸入的用戶名不存在，請重新輸入！", vbOKOnly + 32, "注意"</p><p><b>　　L = L + 1</b></p><p>　　txt_name.SetFocus</p><p>　　If L = 5 Then</p><p>　　MsgBox &q

79、uot;你已經多次輸入錯誤的用戶名,請查證后重新登陸！", vbOKOnly + 48, "注意"</p><p><b>　　End</b></p><p><b>　　End If</b></p><p><b>　　Exit Sub</b></p>&

80、lt;p><b>　　Else</b></p><p>　　Set Mydb1 = ExeCutesql("select user,pass from user1 where user='" & Str_name & "'", Str_text)</p><p>　　Str_username

81、 = Trim(Mydb1.Fields(0))</p><p>　　Str_userpassword = Trim(Mydb1.Fields(1))</p><p>　　If Trim(Str_password) = Str_userpassword Then</p><p>　　frm_main.Show</p><p>　　Mydb.C

82、lose</p><p>　　Mydb1.Close</p><p>　　Set Mydb = Nothing</p><p>　　Set Mydb1 = Nothing</p><p><b>　　Unload Me</b></p><p><b>　　Else</b>&l

83、t;/p><p>　　MsgBox "你輸入的密碼錯誤，請重新輸入！", vbOKOnly + 32, "注意"</p><p><b>　　I = I + 1</b></p><p>　　txt_password.SetFocus</p><p>　　If I = 3 Then<

84、;/p><p>　　MsgBox "你輸入的密碼三次都不正確，本系統將關閉！", vbOKOnly + 48, "注意"</p><p><b>　　End</b></p><p><b>　　End If</b></p><p><b>　　Exit

85、Sub</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　4.2.2 系統管理模塊</p><p>　　進入系統

86、主界面后點擊菜單欄中“系統管理”，彈出“導出數據庫”、“導入數據庫”、“修改密碼”、“重新登錄”和“退出”四個選項，各選項窗體如下圖所示：</p><p>　　圖4.4 導出數據庫窗體</p><p>　　圖4.5 導入數據庫窗體</p><p>　　圖4.6 修改密碼窗體</p><p><b>　　相關代碼如下：</b&g

87、t;</p><p>　　Private Function FileGo()/*-------------------------數據庫導出---------------------------*/</p><p>　　On Error GoTo 1</p><p>　　Dim A, B As String</p><p>　　CommonD

88、ialog1.ShowSave</p><p>　　A = CommonDialog1.FileName</p><p>　　B = App.Path & "\" & "database\MoneyMIS.mdb"</p><p>　　Set fs = CreateObject("Scripting.

89、FileSystemObject")</p><p>　　fs.CopyFile B, A</p><p>　　MsgBox "數據庫導出成功！", vbOKOnly + 64, "成功"</p><p>　　Exit Function</p><p><b>　　1:</b&

90、gt;</p><p>　　MsgBox "數據庫導出失?。?quot;, vbOKOnly + 64, "失敗"</p><p>　　End Function</p><p>　　Private Function FileIn()/*-------------------------數據庫導入---------------------

91、------*/</p><p>　　On Error GoTo 1</p><p>　　Dim A, B, C, D As String</p><p>　　C = MsgBox("是否真的導入數據庫，導入新數據庫后，將覆蓋原來的所有錄？", vbYesNo + 48 + 256, "警告")</p><

92、p>　　If C = vbYes Then</p><p>　　CommonDialog1.ShowOpen</p><p>　　A = CommonDialog1.FileName</p><p>　　B = App.Path & "\" & "database\MoneyMIS.mdb"</p&

93、gt;<p>　　'D = CurDir() & "\" & "MoneyMIS.mdb"</p><p>　　Set Fs1 = CreateObject("Sfcripting.FileSystemObject")</p><p>　　'Fs1.DeleteFile D, True

94、</p><p>　　Fs1.CopyFile A, B</p><p>　　MsgBox "數據庫導入成功！", vbOKOnly + 64, "成功"</p><p><b>　　Else</b></p><p>　　MsgBox "數據庫導入失??！", v

95、bOKOnly + 64, "失敗"</p><p><b>　　End If</b></p><p>　　Exit Function</p><p><b>　　1:</b></p><p>　　MsgBox "數據庫導入失??！", vbOKOnly + 6

96、4, "失敗"</p><p>　　End Function</p><p>　　Private Sub Command1_Click()/*-------------------------修改密碼---------------------------*/</p><p>　　On Error Resume Next</p>&l

97、t;p>　　Dim Password As String</p><p>　　Dim Newpassword As String</p><p>　　Password = Text1.Text</p><p>　　Newpassword = Text2.Text</p><p>　　Set Mydb = ExeCutesql("

98、;SELECT pass from user1 WHERE user='" & Cname & "'", Str_text)</p><p>　　'MsgBox "select pass from user1 where user='" & Cname & "'"</

99、p><p>　　If Not Password = Mydb.Fields(0) Then</p><p>　　MsgBox "原密碼輸入錯誤！", vbOKOnly + 32, "注意"</p><p>　　Text2.Text = ""</p><p>　　Text3.Text =

100、""</p><p>　　Text2.SetFocus</p><p><b>　　Else</b></p><p>　　If Text3.Text <> Newpassword Then</p><p>　　MsgBox "你兩次輸入密碼不一致，請重新輸入！", vb

101、OKOnly + 32, "注意"</p><p>　　Text1.SetFocus</p><p><b>　　Else</b></p><p>　　ExeCutesql "UPDATE user1 SET pass= '" & Newpassword & "'

102、 where user='" & Cname & "'", ""</p><p>　　MsgBox "密碼更改成功！", vbOKOnly + 64, "注意"</p><p><b>　　Unload Me</b></p><

103、p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　4.2.3 基礎數據管理模塊</p><p>　　進入系統主界面后點擊菜單欄中“基礎數據管理”，彈出“收支項目管

104、理”和“家庭成員管理”兩個選項，窗體設計分別如下圖所示：</p><p>　　圖4.7 收入項目窗體</p><p>　　圖4.8 支出項目窗體</p><p>　　圖4.9 成員信息窗體</p><p><b>　　相關代碼如下：</b></p><p>　　Private Sub cmd_sa

105、ve_Click()/*-------------------------添加項目---------------------------*/</p><p>　　On Error Resume Next</p><p>　　Dim A As Boolean</p><p>　　If SSTab1.Tab = 0 Then</p><p>　　

106、A = MsgBox("是否添加前記錄?", vbYesNo + 32, "添加記錄")</p><p>　　If A = True Then</p><p>　　ExeCutesql "insert into 收入項目 values('" & Text1.Text & "')"

107、, Str_text</p><p>　　Mydb1.MoveLast</p><p><b>　　Call Db1</b></p><p>　　MsgBox "收入項目添加成功！", vbOKOnly + 64, ""</p><p>　　Text1.Text = "&

108、quot;</p><p><b>　　End If</b></p><p><b>　　Else</b></p><p>　　A = MsgBox("是否添加前記錄?", vbYesNo + 32, "添加記錄")</p><p>　　If A = True

109、 Then</p><p>　　ExeCutesql "insert into 支出項目 values('" & Text1.Text & "')", Str_text</p><p>　　Mydb2.MoveLast</p><p><b>　　Call Db2</b>&

110、lt;/p><p>　　MsgBox "支出項目添加成功！", vbOKOnly + 64, ""</p><p>　　Text1.Text = ""</p><p><b>　　End If</b></p><p><b>　　End If</b&

111、gt;</p><p><b>　　End Sub</b></p><p>　　Private Sub cmd_del_Click()/*-------------------------刪除項目---------------------------*/</p><p>　　On Error Resume Next</p><

112、;p>　　Dim A As Boolean</p><p>　　Set Mydb3 = ExeCutesql("select * from 收入項目 where value='" & Text1.Text & "' ", Str_text)</p><p>　　If SSTab1.Tab = 0 Then<

113、/p><p>　　A = MsgBox("是否刪除當前記錄", vbYesNo + 32 + 256, "刪除記錄")</p><p>　　If A = True Then</p><p>　　Mydb3.Delete</p><p>　　Mydb3.MoveNext</p><p>

114、;　　If Mydb3.EOF Then Mydb.MoveLast</p><p>　　Mydb3.Requery</p><p><b>　　Call Db1</b></p><p><b>　　End If</b></p><p><b>　　Else</b></p

115、><p>　　Set Mydb4 = ExeCutesql("select * from 支出項目 where value='" & Text1.Text & "' ", Str_text)</p><p>　　A = MsgBox("是否刪除當前記錄", vbYesNo + 32 + 256, &qu

116、ot;刪除記錄")</p><p>　　If A = True Then</p><p>　　Mydb4.Delete</p><p>　　Mydb4.MoveNext</p><p>　　If Mydb4.EOF Then Mydb2.MoveLast</p><p>　　Mydb4.Requery<

117、/p><p><b>　　Call Db2</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Privat

118、e Sub cmd_add_Click()/*-------------------------添加成員---------------------------*/</p><p>　　On Error Resume Next</p><p><b>　　Dim A, B</b></p><p><b>　　B = 1</b>

119、;</p><p>　　Set Count1 = ExeCutesql("select * from 成員 ", Str_text)</p><p>　　Count1.MoveLast</p><p>　　B = Count1.Fields(4) + 1</p><p>　　A = MsgBox("是否添加前記錄

120、?", vbYesNo + 32, "修改記錄")</p><p>　　If A = vbYes Then</p><p>　　ExeCutesql "insert into 成員 values('" & Text1.Text & "','" & Text2.Text &a

121、mp; "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "'," & B & ") ", Str_text</p><p&