家庭理財管理畢業(yè)設計

1、PAGE 家庭財務管理系統(tǒng)【摘 要】： 家庭財務管理系統(tǒng)就是我們常說的管理信息系統(tǒng)MIS(Management Information System)中的一種，它是一個計算機軟硬件資源以及數(shù)據(jù)庫的人-機系統(tǒng)。隨著信息技術，計算機技術的發(fā)展，在社會各領域都已經(jīng)離不開信息系統(tǒng)的支持。家庭財務管理系統(tǒng)針對個人用戶設計，是一個單用戶系統(tǒng)，它提供各全方位的財務數(shù)據(jù)統(tǒng)計、數(shù)據(jù)查詢、數(shù)據(jù)打印，方便個人理財，做出正確的財務決策?！娟P鍵詞】：財務管理系統(tǒng)，面向?qū)ο缶幊蹋攧諞Q策。 1概 述在社會經(jīng)濟不斷發(fā)展的今天，人們生活水平越來越高，個人合理理財也變得越來越重要，它直接影響著人們的生活。各種財務管理軟件也層出

2、不窮，本系統(tǒng)僅應用于個人理財，提供財務數(shù)據(jù)統(tǒng)一管理，以便做出合理的財務決策。其界面友好，操作簡單，除具備基本的財務信息管理外，還提供了數(shù)據(jù)統(tǒng)計，數(shù)據(jù)查詢，圖表統(tǒng)計，報表打印等。為方便操作，設置有部分常用功能快捷工具欄，菜單項都設置有快捷鍵。它多方面把握用戶的財務情況，科學的統(tǒng)計數(shù)據(jù)。本系統(tǒng)可根據(jù)使用者的實際情況，設置收入、支出類型，以適應社會不同階層，不同行業(yè)人士的應用。本軟件為單用戶系統(tǒng)，沒有權限設置，更保證了數(shù)據(jù)的安全性。數(shù)據(jù)分為兩大模塊，即收支明細和轉(zhuǎn)賬明細，詳細反映了各經(jīng)濟業(yè)務，往來賬的情況。本家庭財務管理系統(tǒng)的主要功能有：用戶管理：即使用者資料管理，主要功能為登錄系統(tǒng)用戶名和密碼的修

3、改，用戶基本資料的設置。收支類型設置：即根據(jù)使用者實際情況設置收入和支出的項目名稱，如收入類型有：工資、補貼、股票收入等，反映經(jīng)濟來源的詳細情況。如支出類型有：電話費、伙食、購物、水電費等，詳細反映資金的花費去向，花費時間，發(fā)生金額等。快捷調(diào)用Windows提供的“記事本”和“計算器”。方便用戶進行日志記載和財務計算操作。數(shù)據(jù)維護：即各項經(jīng)濟業(yè)務數(shù)據(jù)的增加、編輯、刪除操作。收支明細和轉(zhuǎn)賬明細分開操作，根據(jù)當前標簽顯示的數(shù)據(jù)所屬模塊自動判斷操作數(shù)據(jù)對象。且可通過雙擊數(shù)據(jù)列表，對當前數(shù)據(jù)進行編輯修改。數(shù)據(jù)導入及圖表統(tǒng)計功能：通過導入功能可以獲取外部數(shù)據(jù)，以達到添加數(shù)據(jù)的目的，如Excel電子表格數(shù)

4、據(jù)的導入，分為收支數(shù)據(jù)和轉(zhuǎn)賬數(shù)據(jù)的導入。圖表統(tǒng)計是指用立方圖的形式顯示數(shù)據(jù)量，分別顯示收入、支出、轉(zhuǎn)入、轉(zhuǎn)出圖例，使統(tǒng)計數(shù)據(jù)的查看更加直觀。數(shù)據(jù)查詢功能：該功能根據(jù)標簽當有顯示的是收支明細還是轉(zhuǎn)賬明細判斷查詢功能。查詢條件可根據(jù)收入/支出、收支類型、轉(zhuǎn)入/轉(zhuǎn)出、發(fā)生金額、發(fā)生日期、錄入日期查詢。查詢結果顯示在標簽的相應數(shù)據(jù)表格中，以便對其進行操作維護。其中發(fā)生日期和錄入日期以及發(fā)生金額可根據(jù)區(qū)間查詢。數(shù)據(jù)統(tǒng)計：統(tǒng)計總收入額、總支出額、總轉(zhuǎn)出額、總轉(zhuǎn)入額，根據(jù)總的收支，轉(zhuǎn)賬額計算統(tǒng)計余額。報表打?。杭刺峁?shù)據(jù)的打印輸出。 3系統(tǒng)介紹31 面向?qū)ο缶幊探榻B面向?qū)ο螅∣bject-Oriented，

5、OO）方法是一種非常實用的軟件開發(fā)方法，他一出現(xiàn)就受到軟件技術人員的青睞，現(xiàn)已經(jīng)成為計算機科學研究的一個重要領域，并逐漸成為軟件開發(fā)的主要方法。面向?qū)ο蠓椒ㄒ钥陀^世界中的對象為中心，起分析和設計思想符合人們的思維方式，分析和結果與客觀世界的實際比較接近，容易被人們所接受。 本系統(tǒng)就是使用面向?qū)ο蟮拈_發(fā)語言Visual C+6.0開發(fā)環(huán)境，自然就應當采用面向?qū)ο蟮南嚓P方法來分析和設計系統(tǒng)；再者，把系統(tǒng)中的實體對象化，使分析和設計的結果更容易讓人理解。Peter Coad 和 Edward Yourdon 提出下列等式識別面向?qū)ο蠓椒ǎ好嫦驅(qū)ο?對象（Object）+ 分類（classificat

6、ion）+ 繼承（inheritance）+ 消息通信（communication with message）對象：在計算機系統(tǒng)中，對象是指一組屬性以及這組屬性上的專用操作的封裝體。屬性可以是一些數(shù)據(jù)，也可以是另一個對象。每個對象都有它自己的屬性值，表示該對象的狀態(tài)。對象中的屬性只能通過該對象所提供的操作來存取或修改。操作也稱為方法或服務，它規(guī)定了對象的行為，表示對象所能提供的服務。一個對象通?？捎蓪ο竺傩院筒僮魅糠纸M成。類：類是一組具有相同屬性和相同操作的對象的集合。一個類總的每個對象都是這個類的一個實例（Instance）。封裝性：封裝是一種信息隱蔽技術，用戶只能看到對象封裝界面上的

7、信息，對象的內(nèi)部實現(xiàn)對用戶是隱蔽的。也就是說要將對象的信息（也就是對象的屬性）和對象所能執(zhí)行的動作（也就是對象的方法）包裝起來，這樣就可以讓使用者可以用深入不了解內(nèi)部的運作原理，就可以對其進行操作。例如：在vc中我們要使用的一個控件，我們不必了解其中給一個屬性是怎樣傳給對象的，也不要知道當我們調(diào)用一個對象控件的方法時，對象在其中為我們作了些什么，我們所要作的僅僅是要符合它的使用規(guī)范對其進行簡單的使用即可。封裝的目的是使用者和生產(chǎn)者分離，使對象的定義和實現(xiàn)分開。繼承：繼承是類間的一種基本關系，是在某個類的層次關聯(lián)中不同的類共享屬性和操作的一種機制。一個父類可以有多個子類，這些子類都是父類的特例，

8、父類描述了子類的公共屬性何操作。一個子類可以繼承它的父類總的屬性和操作，這些屬性和操作在子類中不必定義，子類中還可以定義自己的屬性和操作。子類只有惟一的一個父類，這種繼承成為單一繼承。一個子類也可以有多個父類，可以從多個父類中繼承特性，這種繼承稱為多重繼承。消息：消息是對象間通信的手段，一個對象通過向另一對象發(fā)送消息來請求其服務。消息只告訴接收對象需要完成什么操作，但并不指示接收者怎樣完成操作。消息完全由接收者解釋，接收者獨立決定采用什么方法來完成所需的操作。多態(tài)性：多態(tài)性是指同一個操作作用于不同的對象可以有不同的解釋，并產(chǎn)生不同的執(zhí)行結果。與多態(tài)性密切相關的一個概念就是動態(tài)綁定。傳統(tǒng)的程序設

9、計語言把過程調(diào)用與目標代碼的連接放在程序運行前進行(稱為靜態(tài)綁定)，而動態(tài)綁定則是把這種連接推遲到運行時才進行。在一般與特殊關系中，子類是父類的一個特例，所以父類對象可以出現(xiàn)的地方，也允許其子類對象出現(xiàn)。因此再運行過程中，當一個對象發(fā)送消息請求服務時，要根據(jù)接收對象的具體情況將請求的操作與實現(xiàn)的方法進行連接，即動態(tài)綁定。5.系統(tǒng)詳細設計實施5.2 登錄界面與主界面設計1.登錄模塊用于用戶身份及密碼的驗證，一個系統(tǒng)僅供一個用戶使用。點擊“確定”按鈕對用戶所輸入的用戶名和密碼進行驗證，首先打開數(shù)據(jù)庫中存有用戶資料的數(shù)據(jù)表，對數(shù)據(jù)庫中用戶名，密碼和用戶輸入的進行比較，如果一致則載入主窗體，否則彈出對

10、話框提示密碼或用戶名錯誤，登錄失敗，并清空用戶名和密碼文本框。實現(xiàn)代碼如下：Set db = OpenDatabase(App.Path & data.mdb) 連接數(shù)據(jù)庫Set re = db.OpenRecordset(user)打開用戶數(shù)據(jù)表If Text1.Text = re.Fields(0) And Text2.Text = re.Fields(1) Then Unload Me Load Form_main Form_main.ShowElse MsgBox 對不起,用戶名或密碼不正確!, 16, 錯誤 Text1.Text = Text2.Text = Text1.SetFoc

11、usEnd If輸入框檢測是否按回車確認，該功能是為方便操作設計，代碼如下：Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Command1_ClickEnd Sub主界面設計，即主要操作界面，工作區(qū)。主窗體的載入需對該系統(tǒng)進行初始化，包括數(shù)據(jù)庫中數(shù)據(jù)的統(tǒng)計及信息的顯示等，初始顯示全部數(shù)據(jù)庫中數(shù)據(jù)記錄，對資金合計，收支統(tǒng)計值顯示在主窗體左側的統(tǒng)計數(shù)據(jù)區(qū)。并在左下載顯示系統(tǒng)當前的詳細時間，利用時間控件實現(xiàn)時間以秒為單位變化。選項框標簽選擇，即在標簽框中選擇是瀏覽收支明細還是轉(zhuǎn)賬明細，根據(jù)所選判斷數(shù)據(jù)網(wǎng)格中顯

12、示數(shù)據(jù)。同時根據(jù)用戶當前所選擇瀏覽的數(shù)據(jù)區(qū)，菜單中搜索部分會自動變化自身的可用性。這樣增強了系統(tǒng)的功能的邏輯性。實現(xiàn)代碼如下：Private Sub SSTab1_Click(PreviousTab As Integer)dbname = App.PathIf Right(dbname, 1) Then dbname = dbname + dbname = dbname + data.mdbconnSTR = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & dbname & ;Persist Security Info=FalseAdodc1.C

13、onnectionString = connSTRSelect Case PreviousTab 判斷當前所選標簽 Case 0 Adodc1.RecordSource = select * from jzmx Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh inorout.Enabled = False 將部分菜單項設為不可用 inouttype.Enabled = False zrorzc.Enabled = True dg2 Case 1 Adodc1.RecordSource = select * f

14、rom szmx Adodc1.Refresh Set DataGrid2.DataSource = Adodc1 DataGrid2.Refresh inorout.Enabled = True inouttype.Enabled = True zrorzc.Enabled = False dg1End SelectEnd Sub當用戶在數(shù)據(jù)網(wǎng)絡顯示區(qū)中選擇某項數(shù)據(jù)后，選擇了菜單或者工具欄中的“刪除數(shù)據(jù)”功能，首先判斷用戶當前選擇的數(shù)據(jù)是屬于收支明細的還是轉(zhuǎn)賬明細的數(shù)據(jù)，且在數(shù)據(jù)庫中搜索是否有該數(shù)據(jù)，如果有然后對數(shù)據(jù)庫中數(shù)據(jù)進行刪除操作，在刪除之前會彈出對話框需要用戶確實是否真要刪除數(shù)據(jù)，如

15、果點“是”刪除數(shù)據(jù)后，將不可恢復。刪除數(shù)據(jù)代碼：Private Sub deldata_Click()dbname = App.PathIf Right(dbname, 1) Then dbname = dbname + dbname = dbname + data.mdbconnSTR = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & dbname & ;Persist Security Info=FalseAdodc1.ConnectionString = connSTRSelect Case SSTab1.Tab Case 0 Set d

16、b = OpenDatabase(App.Path & data.mdb) Set re = db.OpenRecordset(szmx) Do While Not re.EOF 判斷在網(wǎng)格中當前選擇的數(shù)據(jù)項 If re.Fields(0) = Trim(Str(DataGrid1.Row + 1) Then yesorno = MsgBox(您確定要刪除這條數(shù)據(jù)嗎?, 33, 確認) If yesorno = 1 Then re.Delete MsgBox 數(shù)據(jù)已經(jīng)成功刪除., , 刪除成功 重新在數(shù)據(jù)網(wǎng)格中顯示數(shù)據(jù)開始strsql = select * from szmxAdodc1.Re

17、cordSource = strsqlAdodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.Refresh Exit Do Else Exit Sub End If End If re.MoveNext Loop If re.EOF = True Then MsgBox 對不起,沒有該項., , 錯誤 End If Case 1 Set db = OpenDatabase(App.Path & data.mdb) Set re = db.OpenRecordset(jzmx) Do While Not re.EOF If re.Fie

18、lds(0) = Trim(Str(DataGrid2.Row + 1) Then yesorno = MsgBox(您確定要刪除這條數(shù)據(jù)嗎?, 33, 確認) If yesorno = 1 Then re.Delete MsgBox 數(shù)據(jù)已經(jīng)成功刪除., , 刪除成功 strsql = select * from jzmxAdodc1.RecordSource = strsqlAdodc1.RefreshSet DataGrid2.DataSource = Adodc1DataGrid2.Refresh Exit Do End IfEnd Ifre.MoveNextLoopIf re.EOF

19、 = True ThenMsgBox “對不起,沒有該項.”, , “錯誤”End IfEnd SelectEnd Sub 增加新的記錄rptdata.AddNewrptdata.Fields(“序號”) = rptDBUsers.Fields(“序號”)rptdata.Fields(“收入支出”) = rptDBUsers.Fields(“收入支出”)rptdata.Fields(“收支類型”) = rptDBProfile.Fields(“收支類型”)rptdata.Fields(“發(fā)生日期”) = rptDBProfile.Fields(“發(fā)生日期”)rptdata.Fields(“發(fā)生

20、金額”) = rptDBProfile.Fields(“發(fā)生金額”)rptdata.Fields(“錄入日期”) = rptDBProfile.Fields(“錄入日期”)rptdata.Fields(“備注”) = rptDBProfile.Fields(“備注”) 對數(shù)據(jù)更新操作 rptdata.Update 移到下一條記錄 rptDBUsers.MoveNextWend Set UnboundReport.DataSource = rptdata UnboundReport.Show Case “1” rptdata.Fields.Append “序號”, adChar, 20, adF

21、ldFixed rptdata.Fields.Append “轉(zhuǎn)入轉(zhuǎn)出”, adChar, 30, adFldFixed rptdata.Fields.Append “轉(zhuǎn)賬日期”, adDate, 40, adFldFixed rptdata.Fields.Append “轉(zhuǎn)賬金額”, adSingle, 40, adFldFixed rptdata.Fields.Append “錄入日期”, adDate, 40, adFldFixed rptdata.Fields.Append “備注”, adChar, 50, adFldFixed If rptDBUsers.State = adSta

22、teOpen Then rptDBUsers.CloserptDBUsers.Open “Select * from jzmx”, dbConnect, adOpenDynamic 將數(shù)據(jù)記錄指針移到第一條 If Not rptDBUsers.EOF ThenrptDBUsers.MoveFirst End If打開數(shù)據(jù)記錄集rptdata.Open遍歷數(shù)據(jù)所有記錄 While Not rptDBUsers.EOF If rptDBProfile.State = adStateOpen Then rptDBProfile.Close rptDBProfile.Open “Select * fr

23、om jzmx where 序號 = ” & rptDBUsers.Fields(“序號”) & “”, dbConnect, adOpenDynamic 移動指針到第一條記錄 If Not rptDBProfile.EOF ThenrptDBProfile.MoveFirst End If增加新的記錄rptdata.AddNewrptdata.Fields(“序號”) = rptDBUsers.Fields(“序號”)rptdata.Fields(“轉(zhuǎn)入轉(zhuǎn)出”) = rptDBUsers.Fields(“轉(zhuǎn)入轉(zhuǎn)出”)rptdata.Fields(“轉(zhuǎn)賬日期”) = rptDBProfile.

24、Fields(“轉(zhuǎn)賬日期”)rptdata.Fields(“轉(zhuǎn)賬金額”) = rptDBProfile.Fields(“轉(zhuǎn)賬金額”)rptdata.Fields(“錄入日期”) = rptDBProfile.Fields(“錄入日期”)rptdata.Fields(“備注”) = rptDBProfile.Fields(“備注”)對數(shù)據(jù)更新操作rptdata.Update移到下一條記錄rptDBUsers.MoveNextWendSet DataReport2.DataSource = rptdata顯示打印窗體DataReport2.ShowEnd SelectEnd Sub打開Window

25、s記事本代碼（計算器代碼類似）：Private Sub notpad_Click()Dim pid As Longpid = Shell(App.Path + notepad.exe, vbNormalFocus)If pid = 0 Then MsgBox 無法打開記事本！, vbOKOnly + vbExclamation, 打開程序出錯End IfEnd Sub5.3 系統(tǒng)基本設置模塊設計用戶設置，包括用戶資料及登錄密碼的修改。其中密碼修改部分首先要求輸入舊密碼，并對“新密碼”及“確認新密碼”進行對比，如果這兩項驗證其中有一項不成立，即不能進行密碼的修改。實現(xiàn)代碼如下： Set db =

26、 OpenDatabase(App.Path & data.mdb) Set re = db.OpenRecordset(user) If Text7.Text re.Fields(1) Then MsgBox 您的舊密碼輸入錯誤., , 錯誤 Else If Text8.Text = Text9.Text Then re.Edit re.Fields(1) = Text8.Text re.Update Text7.Text = Text8.Text = Text9.Text = MsgBox 密碼已經(jīng)成功修改., , 修改成功 Else MsgBox 兩次輸入的新密碼不相同,請重新輸入.,

27、, 錯誤 Text8.Text = Text9.Text = End If End If收支類型設置添加收支類型，根據(jù)個人的實際情況添加，編輯，刪除收入和支出類型，通過在左側的列表框中選擇數(shù)據(jù)項在右側的文本框同步顯示所選擇的數(shù)據(jù)，以便對該項數(shù)據(jù)進行操作。實現(xiàn)代碼如下: Set db = OpenDatabase(App.Path & data.mdb) Set re = db.OpenRecordset(outType) If Text11.Text Then re.AddNew re.Fields(0) = Text11.Text re.Update List2.AddItem Text11

28、.Text MsgBox 成功添加., , 成功 Else MsgBox 添加項目不允許為空., , 錯誤 End If Label13.Caption = 共 + Str(List2.ListCount) + 項刪除收支類型項代碼:If Trim(Text11.Text) = Then MsgBox 請選擇要刪除的項!, vbCritical + vbOKOnly, 提示 Exit SubEnd IfDim yorn As Stringyorn = MsgBox(您確定要刪除該支出類型嗎?, vbQuestion + vbYesNo, 提示)If yorn = vbYes Then Set

29、db = OpenDatabase(App.Path & data.mdb) Set re = db.OpenRecordset(outType) Do While Not re.EOF If List2.Text = re.Fields(0) Then re.Delete MsgBox 數(shù)據(jù)已成功刪除., , 刪除成功 Exit Do End If re.MoveNext Loop List2.Clear re.MoveFirst Do While Not re.EOF List2.AddItem re.Fields(0) re.MoveNext LoopEnd If5.5 搜索模塊設計5.

30、5.1 按發(fā)生金額搜索按發(fā)生金額搜索可以選擇是按某個特定的數(shù)字進行搜索,或者選擇某個數(shù)值區(qū)間進行搜索。執(zhí)行搜索代碼如下:If Option1.Value = True Then If Text1.Text = Then MsgBox 對不起,搜索條件不能為空., , 錯誤 Else aa = Text1.Text dbname = App.Path If Right(dbname, 1) Then dbname = dbname + dbname = dbname + data.mdb connSTR = Provider=Microsoft.Jet.OLEDB.4.0;Data Source

31、= & dbname & ;Persist Security Info=False Form_main.Adodc1.ConnectionString = connSTR strsql = select * from szmx where 發(fā)生金額= + aa Form_main.Adodc1.RecordSource = strsql Form_main.Adodc1.Refresh Set Form_main.DataGrid1.DataSource = Form_main.Adodc1 Form_main.DataGrid1.Refresh Unload Me End IfEnd IfI

32、f Option2.Value = True Then If Text2.Text = Or Text3.Text = Then MsgBox 對不起,搜索條件不能為空., , 錯誤 Else If Val(Text2.Text) Val(Text3.Text) Then aa = Text3.Text bb = Text2.Text Else aa = Text2.Text bb = Text3.Text End If dbname = App.Path If Right(dbname, 1) Then dbname = dbname + dbname = dbname + data.mdb

33、 connSTR = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & dbname & ;Persist Security Info=False Form_main.Adodc1.ConnectionString = connSTR If aa = bb Then strsql = select * from szmx where 發(fā)生金額= + aa + Else strsql = select * from szmx where 發(fā)生金額= + aa + And + 發(fā)生金額= + bb End If Form_main.Adodc1.Rec

34、ordSource = strsql Form_main.Adodc1.Refresh Set Form_main.DataGrid1.DataSource = Form_main.Adodc1 Form_main.DataGrid1.Refresh Unload Me End IfEnd If5.5.2按發(fā)生日期或錄入日期搜索按發(fā)生日期或者錄入日期搜索實現(xiàn)原理基本相同，該搜索功能可以根據(jù)特定的日期搜索，也可以搜索處在某個日期區(qū)別的所有數(shù)據(jù)?，F(xiàn)實執(zhí)行搜索代碼如下:If Option1.Value = True Then If MaskEdBox1.Text = Then MsgBox 對不起,搜索條件不能為空., , 錯誤 Else aa = MaskEdBox1.Text dbname = App.Path If Right(dbname, 1) Then dbname = dbname + dbname =