【文章內容簡介】 圖 35 資產統(tǒng)計模塊流程 資產統(tǒng)計的界面 輸入統(tǒng)計信息 信息是否 完整 成功保存到數(shù)據(jù)庫 否 是 資產查詢模塊 功能說明：這部分都是根據(jù)上面家庭收入和支出的信息以及編號的信息所以前面比較重要，這也是查詢語句的關鍵點，只有上面的輸入比較正確那么整個查詢才有比較正確。 根據(jù)編號查詢，而且是分編號查詢（收入，支出）相比之下比較簡單 。 而按日期查詢也是同樣的 ， 但選擇日期也是根據(jù)本軟件自己定的，也是由 COMBOY控件所帶的功能，然 后寫入 相關的載如信息，所以選擇相應的日期也便于管理和系統(tǒng)的查詢。顯 示用戶查詢頁面，通過輸入查詢條件查詢符合條件的記錄，無查詢條件則 不顯示用戶信息。查詢結果以表形式顯示在頁面上 ， 可以通過點擊單條記錄后面的編輯，刪除鏈接到相應的處理頁面對用戶信息進行管理?？梢酝ㄟ^點擊添加新用戶鏈接到增加新用戶頁面。 進入收支查詢界面 輸入查詢條件 查詢條件是否完整 查詢日期是否重復 從數(shù)據(jù)庫中讀取數(shù)據(jù) 是 否 是 否 將相關的數(shù)據(jù)返回界面 圖 36收支查詢模塊流程圖 功能說明：系統(tǒng)管理員登錄后，通過點擊信息統(tǒng)計進入統(tǒng)計頁面（這 部分本來在 家庭理財里面分析）根據(jù)收入和支出的金額統(tǒng)計出各個總 金額。 便于管理整個家庭的現(xiàn)金問題和節(jié)余 情況 ， 根 據(jù)統(tǒng)計表的分布更能說明整個家庭現(xiàn)金布局，統(tǒng)計分析圖表的出現(xiàn)便于 很好的顯示出整個資金的現(xiàn)狀 ， 餅圖 的出現(xiàn) 讓用戶更好的了解當前資金的動向以便做出合理的家庭財務管理。 圖 37功能示意 圖 家庭理財系統(tǒng) 用戶登陸 家庭理財 資產管理 數(shù)據(jù)庫管理 退出系統(tǒng) 用戶登陸 增加新用戶 修改密碼 收入支出總 家庭收入 家庭總財產 收入編號查詢 支出編號查詢 日期查詢 退出系統(tǒng) 家庭 支出 4 系統(tǒng)設計 該系統(tǒng)采用 ACCESS 2020 作為后臺數(shù)據(jù)庫去存儲所有 關的數(shù)據(jù)，通過對整個系統(tǒng)運行過程和數(shù)據(jù)流程分析，設計出實際的數(shù)據(jù) 庫實體，以及他們之間的關系，為后面的數(shù)據(jù)庫結構設計打基礎。這些數(shù)據(jù)包括收入信息、支出信息以及各種家庭財產信息。 數(shù)據(jù)模型的最終目的就是規(guī)劃且能夠有效地處理事務，把系統(tǒng)中大量的數(shù)據(jù)按一定的模型組織起來，提供存儲、維護、檢索數(shù)據(jù)的功能，使信息系統(tǒng)可以方便、及時、準確地從數(shù)據(jù)庫中獲得所需的信息，并且保持應用開發(fā) 簡潔 性的關系數(shù)據(jù)庫，并在數(shù)據(jù)庫的規(guī)范話、性能優(yōu)化以及數(shù)據(jù)的簡潔性之間達到平衡。 根據(jù)系統(tǒng)分析和功能的說明， 設計相應數(shù)據(jù)庫， 可以將 該系統(tǒng)的數(shù)據(jù)庫劃分為四 個表，具體內容如下表所示。 主要的目標是根據(jù)各個功能關系 很直觀的看到數(shù)據(jù) 的整體 流向 圖如下： 圖 41輸入輸出示意 圖 根據(jù)需求分析，本系統(tǒng)后臺數(shù)據(jù)庫 共分為 4 個表，以下分別給出各個數(shù)據(jù)庫表的簡單描述 。 理財系統(tǒng)管理 該表存儲用戶基本信息 ， 以供登錄密碼驗證，顯示用戶身份用 。 登錄數(shù)據(jù) 統(tǒng)計 數(shù)據(jù)查詢 家庭收 /支統(tǒng)計 DBMS 資產管理統(tǒng)計 輸入 輸入 輸入 輸出 表 2 用戶基本信息 字段名 字段類型 是否主鍵 說明 用戶名 自動編號 是 管理員賬號 密碼 文本 否 管理員 密碼 權限 文本 否 管理員 權限 家庭 收入表 記錄家庭的收入情況和各個數(shù)據(jù)類型的設置 。 表 3 家庭收入信息表 字段名 字段類型 是否主鍵 說明 編號 自動編號 是 設計收入物體的編號 收入說明 文本 否 管理員 密碼 收入金額 數(shù)字 否 管理員 權限 年 數(shù)字 否 設置日期年 月 數(shù)字 否 設置日期月 日 數(shù)字 否 設置日期日 收入者 文本 否 添加收入者的姓名 備注 文本 否 添加關于物品的息 記錄家庭的支出情況和各個表的數(shù)據(jù)類型。 表 4 家庭支出信息表 字段名 字段類型 是否主鍵 說明 編號 自動 編號 是 設計支出物體編號 支出說明 文本 否 管理員 密碼 支出金額 數(shù)字 否 管理員 權限 年 數(shù)字 否 設置日期年 月 數(shù)字 否 設置日期月 日 數(shù)字 否 設置日期日 支出者 文本 否 添加支出者姓名 備注 文本 否 添加物品的信息 管理用戶的資財錄入的各個財產情況 。 表 5 資財管理表 字段名 字段類型 是否主鍵 說明 編號 自動編號 是 管理員賬號 資產名稱 文本 否 管理員 密碼 購買價格 文本 否 管理員 權限 購買數(shù)量 數(shù)字 否 所買物品數(shù)量 年 數(shù)字 否 購買日期年 月 數(shù)字 否 購買日期月 日 數(shù)字 否 購買日期日 系統(tǒng)主要功能的實現(xiàn) 用戶登錄和注冊 用戶注冊采用 VB 自帶控件。在用戶注冊時，通過其配套的驗證控件對用戶 輸入進行驗證，如當用戶名已存在時，當密碼與確認密碼不匹配等時候，提示其重新輸入。注冊成功后自動將用 戶添加到家庭理財數(shù)據(jù)庫的理財系統(tǒng)管理表中，并且通過選擇方法將添加 用戶角色 的設置 。如果用戶忘記密碼，可以用別人的 SYSTEM 密碼和賬號進入系統(tǒng) ，進入后可以進行相應修改密碼，如果用戶名與數(shù)據(jù)庫中保存的相同，則系統(tǒng)提示信息 。如果錯誤，則輸出相應的錯誤提示消息。理財系統(tǒng)的首頁如圖 51： 圖 42 理財系統(tǒng)登陸首頁 為了更好的提供用戶的權限和密碼的修改，系統(tǒng)總體進行各個方面權限。如下圖提供修改密碼的窗口如下圖所示： 圖 43修改密碼窗口 這兩部分都是用同一 數(shù)據(jù)庫但代碼有相當大的差別，但修改過的數(shù)據(jù)還是存儲在理財系統(tǒng)管理數(shù)據(jù)里面。如果密碼不一致就會報錯，但密碼 填寫可以同修改前一致 ，其修改密碼的典型代碼如下所示： If = True Then //根據(jù)輸入信息判斷 MsgBox 沒有這個用戶 , vbOKOnly + vbExclamation, ElseIf Trim((1)) Trim() Then MsgBox 原密碼不正確 , vbOKOnly + vbExclamation, ElseIf Trim() = Then MsgBox 新密碼不能為空 , vbOKOnly + vbExclamation, ElseIf Trim() Trim() Then MsgBox 密碼不一致 , vbOKOnly + vbExclamation, = = Else (1) = MsgBox 修改密碼成功 , vbOKOnly + vbExclamation, Unload Me End If 家庭理財 財務管理主要是由家庭收入、家庭支出、家庭收入支出統(tǒng)計圖表所組成的。 但最關鍵 是統(tǒng)計圖表 的視覺效果。更給用戶一目了然的統(tǒng)計，顯示 家庭的收入和支出的比例關系 ,最后節(jié)余的 也是 通過控件以圖 顯示 如下： 圖 44餅圖分析家庭節(jié)余 由于圖片分析比較直觀所以典型代碼如下所示： Dim sql As String sql = select sum ( 收 入 金 額 ) as 家 庭 總 收 入 金 額 from 家 庭 收 入 sql, conn, adOpenKeyset, adLockPessimistic If 0 And Len(Trim((0))) 0 Then = (0) End If sql = select sum ( 支 出 金 額 ) as 家 庭 總 支 出 金 額 from 家 庭 支 出 sql, conn, adOpenKeyset, adLockPessimistic If 0 And Len(Trim((0))) 0 Then = (0) End If Set rs_famshouru = Nothing = Val(Text1) Val(Text2) Dim A(0, 2) As Single A(0, 0) = Val(Text1) A(0, 1) = Val(Text2) A(0, 2) = Val(Text3) With MSChart1//根據(jù)控件設置相應的坐標 .ChartData = A End With End Sub 資產管理 根據(jù)財產情況添加用戶所有資產價格名稱等 統(tǒng)計 每天的情況。而編號是系統(tǒng)自動生成的，采用 DataGrid 控添加表格，使用戶的真實情況全部都反映出來，而且這個表和數(shù)據(jù)庫的表是相互關聯(lián)的 ， 所以建立表應該按照數(shù)據(jù)庫的設計和 SQL語句嚴格來控制。如下圖所示： 圖 45資產管理 數(shù)據(jù)庫管理 數(shù) 據(jù) 庫管理是根據(jù)編號查詢，而且是分編號查詢（收入，支出）相比之下 簡單明白。而按日期查詢也是同樣的 ， 但選擇日期也是根據(jù)本軟件自己定的，也是由 COMBOY 控 件所帶的功能。然后寫入 相關的載如信息，所以選擇相應的日期也便 于管理和系統(tǒng)的查詢。顯示用戶查詢頁面，通過 輸入查詢條件，如查詢條 件 不符合 不顯示用戶信息 ， 根據(jù)控件DataGrid 的添加 。 圖 46 日期查詢 由于數(shù)據(jù)庫的日期查詢需要添加控件 boy 但是加載的時候就應該控制用戶只能選擇年份，月份和日期而不讓用戶自己控制。這樣在系統(tǒng)得數(shù)據(jù)庫中存儲數(shù)據(jù)也比較方便，最后還是根據(jù) DataGrid 控件套出數(shù)據(jù)庫德數(shù)據(jù)和添加進數(shù)據(jù)庫表的數(shù)據(jù)一樣，從而保證了數(shù)據(jù)的安全性。其典型代碼如下： Dim find1 As String Dim find2 As String If = Then MsgBox 請選擇年份！ , vbOKOnly + vbExclamation, ，如不選擇則顯示相應得信息 Exit Sub End If If = Then MsgBox 請選擇月份！ , vbOKOnly + vbExclamation, ，如不選擇則顯示相應得信息 Exit Sub End If If = Then MsgBox 請選擇日期 , vbOKOnly + vbExclamation, ，如不選擇則顯示相應得信息 Exit Sub End If If = Then MsgBox 請選擇年份！ , vbOKOnly + vbExclamation, Exit Sub End If If = Then MsgBox 請選擇月份！ , vbOKOnly + vbExclamation, Exit Sub End If If = Then MsgBox 請選擇日期 , vbOKOnly + vbExclamation, Exit Sub End If find1 = Format(CDate( amp。 amp。 amp。 amp。 )) find2 = Format(CDate( amp。 amp。 amp。 amp。 )) Private Sub Form_Load()//下面是加載控件信息 ， For i = 2020 To 2020 i Next i For i = 1 To 12 i N