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