【導讀】System)中的一種，它是一個計算機軟硬件資源以及數(shù)據(jù)庫的人-機系統(tǒng)。隨著信息技術，計。算機技術的發(fā)展，在社會各領域都已經(jīng)離不開信息系統(tǒng)的支持。家庭財務管理系統(tǒng)針對個人。便個人理財，做出正確的財務決策。

　　

【正文】 en End If ?遍歷數(shù)據(jù)所有記錄 While Not If = adStateOpen Then ?Fetch Data “Select * from szmx where 序號 = ?” amp。 (“序號 ”) amp。 “?”, dbConnect, adOpenDynamic ?移動指針到第一條記錄 If Not Then End If ?增加新的記錄 (“序號 ”) = (“序號 ”) (“收入支出 ”) = (“收入支出 ”) (“收支類型 ”) = (“收支類型 ”) (“發(fā)生日期 ”) = (“發(fā)生日期 ”) (“發(fā)生金額 ”) = (“發(fā)生金額 ”) (“錄入日期 ”) = (“錄入日期 ”) (“備注 ”) = (“備注 ”) ?對數(shù)據(jù)更新操作 ?移到下一條記錄 36 Wend Set = rptdata Case “1” “序號 ”, adChar, 20, adFldFixed “轉(zhuǎn)入轉(zhuǎn)出 ”, adChar, 30, adFldFixed “轉(zhuǎn)賬日期 ”, adDate, 40, adFldFixed “轉(zhuǎn)賬金額 ”, adSingle, 40, adFldFixed “錄入日期 ”, adDate, 40, adFldFixed “備注 ”, adChar, 50, adFldFixed If = adStateOpen Then “Select * from jzmx”, dbConnect, adOpenDynamic ?將數(shù)據(jù)記錄 指針移到第一條 If Not Then End If ?打開數(shù)據(jù)記錄集 ?遍歷數(shù)據(jù)所有記錄 While Not If = adStateOpen Then “Select * from jzmx where 序號 = ?” amp。 (“序號 ”) amp。 “?”, dbConnect, adOpenDynamic ?移動指針到第一條記錄 If Not Then End If 37 ?增加新的記錄 (“序號 ”) = (“序號 ”) (“轉(zhuǎn)入轉(zhuǎn)出 ”) = (“轉(zhuǎn)入轉(zhuǎn)出 ”) (“轉(zhuǎn)賬日期 ”) = (“轉(zhuǎn)賬日期 ”) (“轉(zhuǎn)賬金額 ”) = (“轉(zhuǎn)賬金額 ”) (“錄入日期 ”) = (“錄入日期 ”) (“備注 ”) = (“備注 ”) ?對數(shù)據(jù)更新操作 ?移到下一條記錄 Wend Set = rptdata ?顯示打印窗體 End Select End Sub 打開 Windows 記事本代碼（計算器代碼類似）： Private Sub notpad_Click() Dim pid As Long pid = Shell( + \, vbNormalFocus) If pid = 0 Then MsgBox 無法打開記事本！ , vbOKOnly + vbExclamation, 打開程序出錯 End If End Sub 38 系統(tǒng)基本設置模塊設計 1. 用戶設置，包括用戶資料及登錄密碼的修改。 其中密碼修改部分首先要求輸入舊密碼，并對“新密碼”及“確認新密碼”進行對比，如果這兩項驗證其中有一項不成立，即不能進行密碼的修改。實現(xiàn)代碼如下： Set db = OpenDatabase( amp。 \) Set re = (user) If (1) Then MsgBox 您的舊密碼輸入錯誤 ., , 錯誤 Else If = Then (1) = = = = MsgBox 密碼已經(jīng)成功修改 ., , 修改成功 39 Else MsgBox 兩次輸入的新密碼不相同 ,請重新輸入 ., , 錯誤 = = End If End If 2. 收支類型設置 設置窗體載入代碼 : Set db = OpenDatabase( amp。 \) Set re = (user) = (0) = (2) = (3) = (4) = (5) = (6) Set db = OpenDatabase( amp。 \) Set re = (inType) 40 Do While Not (0) Loop Set db = OpenDatabase( amp。 \) Set re = (outType) Do While Not (0) Loop = 共 + Str() + 項 = 共 + Str() + 項 添加收支類型，根據(jù)個人的實際情況添加，編輯，刪除收入和支出類型，通過在左側(cè)的列表框中選擇數(shù)據(jù)項在右側(cè)的文本框同步顯示所選擇的數(shù)據(jù)，以便對該項數(shù)據(jù)進行操作。實現(xiàn)代碼如下 : Set db = OpenDatabase( amp。 \) Set re = (outType) If Then (0) = MsgBox 成功添加 ., , 成功 Else MsgBox 添加項目不允許為空 ., , 錯誤 End If = 共 + Str() + 項 41 修改收支類型代碼 : Set db = OpenDatabase( amp。 \) Set re = (outType) Do While Not If = (0) Then (0) = MsgBox 數(shù)據(jù)已成功修改 ., , 修改成功 Exit Do End If Loop Do While Not (0) Loop = 共 + Str() + 項 刪除收支類型項 代碼 : If Trim() = Then MsgBox 請選擇要刪除的項 !, vbCritical + vbOKOnly, 提示 Exit Sub End If Dim yorn As String yorn = MsgBox(您確定要刪除該支出類型嗎 ?, vbQuestion + vbYesNo, 提示 ) 42 If yorn = vbYes Then Set db = OpenDatabase( amp。 \) Set re = (outType) Do While Not If = (0) Then MsgBox 數(shù)據(jù)已成功刪除 ., , 刪除成功 Exit Do End If Loop Do While Not (0) Loop End If 43 數(shù)據(jù)導入及圖表分析設計 1. 從外部導入 Excel 電子表格中數(shù)據(jù) 本程序有從外數(shù)據(jù) Excel 文件中導入數(shù)據(jù)項功能，將所導入的數(shù)據(jù)存入Access 數(shù)據(jù)庫中，并顯示在數(shù)據(jù)網(wǎng)絡中。在操作數(shù)據(jù)導入中必須注意的是在 Excel 文件中的第一行必須和數(shù)據(jù)庫中數(shù)據(jù)字段一致，包括程序也必須保持一致，否則會出現(xiàn)導入出錯，在本系統(tǒng)的文件目錄分別提供有收支數(shù)據(jù)和轉(zhuǎn)賬數(shù)據(jù)導入的 Excel 樣表。 數(shù)據(jù)導入實現(xiàn)代碼如下 : Set db = OpenDatabase( amp。 \) Set rs = (szmx) With CommonDialog1 .DialogTitle = 從 Excel 導出數(shù)據(jù) .FileName = *.xls .Filter = (Excel)*.xls|*.xls .CancelError = True .ShowOpen End With b = [ + Trim() + $] strn = Provider=。Persist Security Info=false。Data Source= amp。 amp。 。Extended Properties=39。Excel 。HDR=Yes39。 44 Set n = New strn strsql_db = select * from amp。 b strsql_db Set rs_db = New strsql_db, n, adOpenKeyset, adLockOptimistic For j = 1 To (序號 ) = + 1 (收入支出 ) = (0) (收支類型 ) = (1) (收支說明 ) = (2) (發(fā)生日期 ) = CDate((3)) (發(fā)生金額 ) = (4) (錄入日期 ) = CDate((5)) (備注 ) = (6) Next j MsgBox 導入成功，共有 amp。 amp。 條記錄！ , 48, 提示 Unload Me 2. 數(shù)據(jù)圖表分析 45 根據(jù)收支情況和轉(zhuǎn)賬情況進行數(shù)據(jù)匯總后用圖表直觀顯示出來，數(shù)據(jù)圖表顯示代碼如下 : Private Sub Form_Load() Set db = OpenDatabase( amp。 \) If = 1 Then Set re = (jzmx) X = 0 Y = 0 Do While Not If (轉(zhuǎn)入轉(zhuǎn)出 ) = 轉(zhuǎn)入 Then X = X + Val((轉(zhuǎn)賬金額 )) End If If (轉(zhuǎn)入轉(zhuǎn)出 ) = 轉(zhuǎn)出 Then Y = Y + Val((轉(zhuǎn)賬金額 )) End If Loop Dim arrData(1, 1 To 2) arrData(0, 1) = 轉(zhuǎn)入 39。 在第一 列設置標簽。 arrData(1, 1) = 轉(zhuǎn)出 arrData(0, 2) = X arrData(1, 2) = Y = arrData End If If = 0 Then Set re = (szmx) X = 0 Y = 0 46 Do While Not If (收入支出 ) = 收入 Then X = X + Val((發(fā)生金額 )) End If If (收入支出 ) = 支出 Then Y = Y + Val((發(fā)生金額 )) End If Loop Dim arrdata1(1, 1 To 2) arrdata1(0, 1) = 收入 39。 在第一列設置標簽。 arrdata1(1, 1) = 支出 arrdata1(0, 2) = X arrdata1(1, 2) = Y = arrdata1 End If End Sub 47 搜索模塊設計 按收入 /支出 ,轉(zhuǎn)入 /轉(zhuǎn)出搜索 按收入或者支出，或按轉(zhuǎn)入、轉(zhuǎn)出搜索是顯示所有的收入或者支出的收支明細，或者顯示轉(zhuǎn)入或轉(zhuǎn)出的所有轉(zhuǎn)賬明細。也就是數(shù)據(jù)分類顯示。實現(xiàn)代碼如下 : If = Then MsgBox 對不起 ,搜索條件不能為空 ., , 錯誤 Else aa =