【導(dǎo)讀】的信息和快捷的查詢手段，方便個人管理者的合理理財(cái)。這些優(yōu)點(diǎn)能夠極大地提高個人財(cái)務(wù)管理的效率,也是個人理財(cái)?shù)目茖W(xué)化、正。規(guī)化管理,與先進(jìn)科學(xué)技術(shù)接軌的重要條件。

　　

【正文】 Month1, Riqi, Riqi1, Riqi3, Riqi4 If aa = True Then Set Mydb = ExeCutesql(select * from 收入 where 日期 between 39。 amp。 Cdate1 amp。 39。 and 39。 amp。 Cdate2 amp。 39。 , ) Set = Mydb Set Mydb1 = ExeCutesql(select * from 支出 where 日期 between 39。 amp。 Cdate1 amp。 39。 and 39。 amp。 Cdate2 amp。 39。 , ) Set = Mydb1 Set Money = ExeCutesql(select sum(金額 ) from 收入 where 日期 between 39。 amp。 Cdate1 amp。 39。and 39。 amp。 Cdate2 amp。 39。, ) A = (0) If IsNull(A) Then A = 0 End If = A Set Money1 = ExeCutesql(select sum(金額 ) from 支出 where 日期 between 39。 amp。 Cdate1 amp。 39。and 39。 amp。 Cdate2 amp。 39。, ) B = (0) If IsNull(B) Then B = 0 End If = B C = A B If C 0 Then D = 盈余 Else （論文） 14 D = 透支 End If = Format(Cdate1, yyyy 年 mm 月 ) amp。 , amp。 本月 amp。 D amp。 C amp。 元 Else Year1 = Year(Now) Month1 = Month(Now) Riqi = Year1 amp。 amp。 Month1 Riqi1 = Year1 amp。 amp。 Month1 + 1 Set Mydb = ExeCutesql(select * from 收入 where 日期 between 39。 amp。 Format(Riqi, yyyymm) amp。 39。and 39。 amp。 Format(Riqi1, yyyymm) amp。 39。, Str_text) Set = Mydb Set = Mydb1 Set Money = ExeCutesql(select sum(金額 ) from 收入 where 日期 between 39。 amp。 Format(Riqi, yyyymm) amp。 39。and 39。 amp。 Format(Riqi1, yyyymm) amp。 39。, ) A = (0) If IsNull(A) Then A = 0 End If = A Set Money1 = ExeCutesql(select sum(金額 ) from 支出 where 日期 between 39。 amp。 Format(Riqi, yyyymm) amp。 39。and 39。 amp。 Format(Riqi1, yyyymm) amp。 39。, ) B = (0) If IsNull(B) Then B = 0 End If = B C = A B If C 0 Then （論文） 15 D = 盈余 Else C = Abs(C) D = 透支 End If = Year(Now) amp。 年 amp。 Month(Now) amp。 月 amp。 , amp。 本月 amp。 D amp。 C amp。 元 End If End Sub Private Sub Form_Load() On Error Resume Next Dim A, B, C As Integer Dim D As String Dim Year1, Month1, Riqi, Riqi1, Riqi3, Riqi4 Year1 = Year(Now) Month1 = Month(Now) Riqi = Year1 amp。 amp。 Month1 Riqi1 = Year1 amp。 amp。 Month1 + 1 Set Mydb = ExeCutesql(select * from 收入 where 日期 between 39。 amp。 Format(Riqi, yyyymm) amp。 39。and 39。 amp。 Format(Riqi1, yyyymm) amp。 39。, Str_text) Set = Mydb Set Mydb1 = ExeCutesql(select * from 支出 where 日期 between 39。 amp。 Format(Riqi, yyyymm) amp。 39。and 39。 amp。 Format(Riqi1, yyyymm) amp。 39。, Str_text) Set = Mydb1 Set Money = ExeCutesql(select sum(金額 ) from 收入 where 日期 between 39。 amp。 Format(Riqi, yyyymm) amp。 39。and 39。 amp。 Format(Riqi1, yyyymm) amp。 39。, ) A = (0) If IsNull(A) Then A = 0 （論文） 16 End If = A Set Money1 = ExeCutesql(select sum(金額 ) from 支出 where 日期 between 39。 amp。 Format(Riqi, yyyymm) amp。 39。and 39。 amp。 Format(Riqi1, yyyymm) amp。 39。, ) B = (0) If IsNull(B) Then B = 0 End If = B C = A B If C 0 Then D = 盈余 Else C = Abs(C) D = 透支 End If = Year(Now) amp。 年 amp。 Month(Now) amp。 月 amp。 , amp。 本月 amp。 D amp。 C amp。 元 End Sub Private Sub MSHFlexGrid2_Click() End Sub 【銀行交易統(tǒng)計(jì)】窗體代碼設(shè)計(jì) 【項(xiàng)目管理】窗體代碼設(shè)計(jì) 【基本信息查詢】窗體代碼設(shè)計(jì) 【選擇月份】窗體代碼設(shè)計(jì) 代碼設(shè)計(jì)如下： Dim Mydb As New Dim Riqi, Riqi1, Year1, Month As String （論文） 17 Private Sub Command1_Click() If = Then MsgBox 請選擇年份！ , vbOKOnly + 32, 注意！ Else If = Then MsgBox 請選擇月份！ , vbOKOnly + 32, 注意！ Else aa = True Year1 = Month = Riqi = Year1 amp。 amp。 Month Riqi1 = Year1 amp。 amp。 Month + 1 Cdate1 = Format(Riqi, yyyymm) Cdate2 = Format(Riqi1, yyyymm) Unload Me End If End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Dim Y, M As Integer Y = 2020 For Y = Int(Year(Now) 5) To Int(Year(Now)) Y Next Y M = 1 For M = 1 To 12 M Next M End Sub （論文） 18 6 系統(tǒng)運(yùn)行 系統(tǒng)主界面操作 系統(tǒng)運(yùn)行從主界面開始，這樣才能調(diào)用其他窗體。選擇【工程】 【屬性】菜單命令，在彈出的【個人財(cái)務(wù)管理系統(tǒng) — 工程屬性】對話框中，選取【通用】選項(xiàng)卡下的【啟動對象】下拉列表中的【 frm_main】窗體，然后單擊【確定】按鈕。 單擊工程中的【啟動】按鈕或按【 F5】快捷鍵運(yùn)行系統(tǒng)，顯示系統(tǒng)主界面，在主界面上選擇不同的菜單命令或者單擊不同的命令按鈕，即可顯示不同的窗體。 項(xiàng)目管理操作 選擇【系統(tǒng)設(shè)置】 【項(xiàng)目管理】菜單命令，或者單擊工具欄中的【項(xiàng)目管理】按鈕，即可進(jìn)入【項(xiàng)目管理】界面。 單擊【添加】按鈕，在【添加項(xiàng)目】文本框中輸入“轉(zhuǎn)賬”，然后單擊【保存】按鈕，即可往系統(tǒng)中添加一條收入項(xiàng)目。選中一條記錄后單擊【刪除】按鈕，即可把已經(jīng)存在的收入項(xiàng)目刪除。 對支出項(xiàng)目的管理與此類似。 日常收入、支出管理 和銀行賬戶信息 操作 單擊工具欄中的【日常收入】 按鈕，即可進(jìn)入【日常收入】管理界面。 分別填寫日常收入的相關(guān)信息后單擊【添加】按鈕，即可添加一條收入記錄。選中一條記錄，然后單擊【刪除】按鈕，即可刪除記錄。 對日常支出的管理 和銀行賬戶信息的管理 與此類似。 借入款項(xiàng)、借出款項(xiàng) 和用戶個人信息 管理操作 單擊工具欄中的【借入款項(xiàng)】按鈕，即可進(jìn)入【借入款項(xiàng)】管理的界面。 對借入款項(xiàng)的添加、修改和刪除操作與對日常收入記錄的管理類似。單擊【首條】按鈕，即可顯示借入款項(xiàng)的第 1條記錄信息。 單擊【上一條】、【下一條】按鈕，可以瀏覽記錄，單擊【末條】按鈕則會顯示最后 一條記錄信息。 借出款項(xiàng)管理 和用戶個人信息管理 與此類似。 （論文） 19 月度統(tǒng)計(jì)管理操作 單擊工具欄中的【月度統(tǒng)計(jì)】按鈕，即可進(jìn)入【月度統(tǒng)計(jì)】管理界面。 窗體加載時，會自動對當(dāng)月進(jìn)行統(tǒng)計(jì)，分別在【本月收入情況】和【本月支出情況】顯示詳細(xì)的記錄，并在窗體下方顯示月度盈余或透支總結(jié)。 單擊【其他月份】按鈕，在彈出的【選擇月份】窗口中選擇相應(yīng)的日期，然后單擊【確定】按鈕，則會在【月度統(tǒng)計(jì)】窗口中顯示已選擇月份的統(tǒng)計(jì)詳情。 （論文） 20 結(jié)束語 本系統(tǒng)在設(shè)計(jì)之初，我對 VB 和 SQL 有一定的了解，在老師和同學(xué)的幫助下，根據(jù)所學(xué)的關(guān)于軟件工程的知識，從最初的數(shù)據(jù)庫設(shè)計(jì)到最后系統(tǒng)前臺界面的設(shè)計(jì)及代碼的實(shí)現(xiàn)經(jīng)歷了大約 2 周的時間，在這 2 周中，我們按照軟件工程的生命周期方法學(xué)來完成設(shè)計(jì)，即系統(tǒng)的需求分析、數(shù)據(jù)庫設(shè)計(jì)、程序設(shè)計(jì)、系統(tǒng)調(diào)試等開發(fā)步驟，分階段地完成各設(shè)計(jì)任務(wù)設(shè)計(jì)過程中，由于要實(shí)現(xiàn)某些功能，互聯(lián)網(wǎng)幫了我的大忙。網(wǎng)絡(luò)資源是一個豐富的共享體系，我通過在 論壇上提出問題得到了很多熱心網(wǎng)友的幫助，這堅(jiān)定了我通過 網(wǎng)絡(luò)吸收知識的信心。 （論文） 21 參考文獻(xiàn) [1] Visual Basic 從入門到精通 . 第 1 版 . 人民郵電出版社 . 2020 [2] 龔沛曾，楊志強(qiáng)，陸慰民 . Visual Basic 程序設(shè)計(jì)教程 . 第 3 版 . 高等教育出版社 . 2020