【正文】 39。 amp。 Key amp。 39。), Str_textCall Wangge = False = False = = MsgBox 數(shù)據(jù)添加成功！, vbOKOnly, 成功..........................單擊菜單命令[工程]下拉菜單中的“添加窗體”圖標(biāo)按鈕，生成借出款管理窗體。在這個窗體上添加控件，屬性如圖 617 所示設(shè)置。圖 617 借出款管理窗體借出款管理窗體主要完成對借出款進(jìn)行添加、修改和刪除等功能。1．對借出款添加功能的實現(xiàn)。具體實現(xiàn)代碼如下：..........................If strflag = 添加 ThenA = MsgBox(是否添加前記錄？, vbYesNo + 32, 添加記錄)If A = True ThenExeCutesql insert into 借出信息 values(39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。), Str_textMsgBox 數(shù)據(jù)已經(jīng)保存！, vbOKOnly + 64, 成功..........................2．對借出款修改功能的實現(xiàn)。具體實現(xiàn)代碼如下：..........................If A = True Then 39。 Call Db MsgBox 數(shù)據(jù)修改成功！, vbOKOnly + 64, 成功..........................3．對借出款刪除功能的實現(xiàn)。具體實現(xiàn)代碼如下：..........................If A = True ThenExeCutesql delete from 借出信息 where 借款人=39。 amp。 amp。 39。, Str_textMsgBox 記錄已刪除！, , 刪除..........................單擊菜單命令[工程]下拉菜單中的“添加窗體”圖標(biāo)按鈕，生成借出款管理窗體。在這個窗體上添加控件，屬性如圖 618 所示設(shè)置。圖 618 借入款管理窗體由于借入款窗體與借出款窗體功能編碼類似，我就不再重復(fù)敘述。單擊菜單命令[工程]下拉菜單中的“添加窗體”圖標(biāo)按鈕，生成一個窗體。在這個窗體上添加控件，屬性如圖 619 所示設(shè)置。利用 Visual Basic 的SSTab 控件將日常收入情況和日常支出情況窗體集中到日常收支組合查詢窗體上，這樣不僅提高了系統(tǒng)的效率，還簡化了系統(tǒng)的操作。圖 619 日常收支組合查詢窗體日常收支組合查詢窗體主要通過時間、方式、金額、項目或它們的任意組合進(jìn)行查詢來完成對每個月的日常收支情況進(jìn)行查詢的功能。為了方便查詢我分別定義每個查詢類別一個查詢函數(shù)。它們是時間類別收入查詢函數(shù) Criqi、方式類別收入查詢函數(shù) Mode、金額類別收入查詢函數(shù) Money 和項目類別收入查詢函數(shù) Project。因為日常收入情況與日常支出情況窗體的設(shè)計和功能代碼類似，所以我只介紹日常收入情況窗體功能實現(xiàn)，對日常支出情況窗體功能實現(xiàn)就不再重復(fù)敘述。功能實現(xiàn)：1．時間類別收入查詢函數(shù) Criqi 的實現(xiàn)具體實現(xiàn)代碼如下：Private Function Criqi() Riqi = Format(, yyyymmdd) Riqi1 = Format(, yyyymmdd) Set Mydb = ExeCutesql(select * from 日常收入信息 where 時間 between 39。 amp。 Riqi amp。 39。and 39。 amp。 Riqi1 amp。 39。, Str_text) Set = Mydb2．方式類別收入查詢函數(shù) Mode 的實現(xiàn)具體實現(xiàn)代碼如下：Private Function Mode() Set Mydb1 = ExeCutesql(select * from 日常收入信息 where 方式=39。 amp。 amp。 39。, Str_text) Set = Mydb1End Function3．金額類別收入查詢函數(shù) Money 的實現(xiàn)具體實現(xiàn)代碼如下：Private Function Money() On Error Resume Next Set Mydb2 = ExeCutesql(select * from 日常收入信息 where 金額= amp。 , Str_text) Set = Mydb2End Function4．項目類別收入查詢函數(shù) Project 的實現(xiàn)具體實現(xiàn)代碼如下：Private Function Project() Set Mydb3 = ExeCutesql(select * from 日常收入信息 where 項目=39。 amp。 amp。 39。, Str_text) Set = Mydb3End Function單擊菜單命令[工程]下拉菜單中的“添加窗體”圖標(biāo)按鈕，生成一個窗體。在這個窗體上添加控件，屬性如圖 620 所示設(shè)置。利用 Visual Basic 的SSTab 控件將本月收入情況和本月支出情況窗體集中到理財分析報告窗體上，這樣不僅提高了系統(tǒng)的效率，還簡化了系統(tǒng)的操作。圖 620 理財分析報告窗體理財分析報告窗體主要的功能是對本月收入和支出情況進(jìn)行查詢統(tǒng)計，從而詳細(xì)了解某段時間內(nèi)的財務(wù)狀況。主要實現(xiàn)代碼：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 D = 超支 End If = Year(Now) amp。 年 amp。 Month(Now) amp。 月 amp。 , amp。 本月你 amp。 D amp。 C amp。 元！End Sub單擊菜單命令[工程]下拉菜單中的“添加窗體”圖標(biāo)按鈕，生成一個窗體。在這個窗體上添加控件，屬性如圖 621 所示設(shè)置。圖 621 選擇月份窗體單擊菜單命令[工程]下拉菜單中的“添加窗體”圖標(biāo)按鈕，生成一個窗體。在這個窗體上添加控件，屬性如圖 622 所示設(shè)置。圖 622 選擇月份窗體主要實現(xiàn)代碼：Set Mydb3 = ExeCutesql(select 人員,sum(金額) as 金額,str(cint(sum(金額)/39。 amp。 A amp。 39。*100)) amp。 39。%39。 as 百分比 from 日常支出信息 group by 人員 , Str_text)結(jié)論傳統(tǒng)手工的家庭財務(wù)管理，管理過程繁瑣而復(fù)雜，執(zhí)行效率低，并且易于出錯。通過這樣的系統(tǒng)，我們可以做到信息的規(guī)范管理和快速查詢，實現(xiàn)了家庭財務(wù)信息管理的系統(tǒng)化、規(guī)范化和自動化，這樣不僅減少了管理工作量，還提高了管理效率，降低了管理成本。在軟件的編寫過程中，我充分體會了軟件編程工作者的辛苦，因為每一個細(xì)微的細(xì)節(jié)都必須十分的注意，如果稍有不慎，就會全盤皆輸，而且往往很多的時候，程序我自己覺得非常的正確，但是就是編譯通不過，在查找錯誤的過程中，面臨著否認(rèn)自己的過程，非常的痛苦，而且由于自己的經(jīng)驗及各方面的能力的不足，所以進(jìn)展的速度非常的緩慢，往往幾天的時間還沒有一點進(jìn)展。在反反復(fù)復(fù)的學(xué)習(xí)之下，我的辛勤努力有了匯報，終于做出了一個簡單的軟件，雖然這個軟件的功能非常的簡單，但是經(jīng)過實際使用證明，該家庭財務(wù)管家系統(tǒng)可以滿足家庭財務(wù)管理方面的需要。當(dāng)然這其中肯定會有所不足，因為家庭財務(wù)管理工作的內(nèi)容非常的豐富，我涉及到的僅僅是家庭理財管理的一部分簡單內(nèi)容，離實際的用戶需求肯定還有一定的差距。但是，它畢竟代表了我二個月辛勤的結(jié)晶。由于我的知識淺薄，在該系統(tǒng)的設(shè)計方面還有很多不足，我會在實際的使用過程中，根據(jù)具體的需求不斷的修改，完善，爭取使該系統(tǒng)慢慢趨向完美。致謝首先感謝我的父母，是他們的大力支持使我順利讀完四年大學(xué)完成了學(xué)士學(xué)位，感謝他們對我的培養(yǎng)，在經(jīng)濟(jì)、生活上對我的關(guān)心和愛護(hù)。再次在本系統(tǒng)的設(shè)計過程和論文編寫過程中，很多老師、同事和朋友都給與了我許多無私的幫助，尤其是我的導(dǎo)師唐云老師給我的論文提出了很多寶貴的修改意見，在這里，我要感謝我的導(dǎo)師——唐云老師，他在我研究，設(shè)計開發(fā)該系統(tǒng)的過程中一直給予了我各方面的支持，給我指明了數(shù)據(jù)庫的設(shè)計方向和思想；在設(shè)計的中期，當(dāng)我迷茫困惑時，又及時幫助我解答疑難，使我重塑信心，最終順利的完成了系統(tǒng)的設(shè)計；在畢業(yè)論文的寫作，幫助我查看格式，提出建議進(jìn)行修改，把他自己多年來的在數(shù)據(jù)庫上的開發(fā)經(jīng)驗，毫無保留的傳授給了我。最后感謝成都理工大學(xué)信息工程學(xué)院的老師們，感謝他們對我的培養(yǎng)、關(guān)心、愛護(hù)和支持，特別是計算機(jī)工程系的老師們，那些直接培養(yǎng)給我上過課的老師，在這即將畢業(yè)之際，對他們的辛勤培養(yǎng)表示感謝。參考文獻(xiàn)[1] Basic 數(shù)據(jù)庫開發(fā)應(yīng)用教程[M].北京：[2]李俊山，孫滿囤，韓先鋒，[M].西安：西安交通大學(xué)[3] Basic 基礎(chǔ)培訓(xùn)百例[M].北京：[4]段凡丁，[M].成都：[5]白曉勇， Basic 課程設(shè)計案例精編[M].北京：[6]（第四版）[M].北京：[7]張植民,張春葆. Visual Basic 數(shù)據(jù)庫系統(tǒng)設(shè)計與開發(fā)[M]. .[8] Basic 程序設(shè)計—數(shù)據(jù)庫篇[M].北京:[9]季海娟. Visual Basic 基礎(chǔ)教程[M]. .[10]劉韜，駱娟. Visual Basic 數(shù)據(jù)庫通用模塊及典型系統(tǒng)開發(fā)[M]. 人民郵電出版社.2022.[11] Basic 數(shù)據(jù)庫開發(fā)自學(xué)教程[M].北京：人民郵電出版社，2022[12]樊春峰， VB 開發(fā)上位機(jī)與 OMRON PLC 之間的一種通訊程序[J].洛陽工學(xué)院學(xué)報，2022，23（2）：8284[13] Jung P. The Waite Group’s Visual Basic 6 [M]，1999.[14]— Wileyamp。Sons[M],2022[15] Ekedahl M V. Visual Basic Advanced Topics[M]. Course Technology，20