【正文】 如果月份為 12，則結(jié)束日期為下一年度1 月 1 日 StrDate2 = Trim(Val() + 1) + 0101 Else StrDate2 = Trim() + + Trim( + 1) + 01 End If StrSch = And = + StrDate1 + And + StrDate2 + Else StrDate1 = Trim() + 0101 StrDate2 = Trim() + 1231 StrSch = And = + StrDate1 + And = + StrDate2 + End If TmpSource = Select AS 收支分類 ,SUM() AS 收支金額 _ + From InOutList l,Types t Where = + StrSch _ + Group By , Order By 39。如果修改自身用戶名，則更新 CurUser 對象 If OriUser = And Trim(txtUserName) OriUser Then = Trim(txtUserName) () End If MsgBox 修改成功 End If End With Unload Me End Sub 日常收支統(tǒng)計窗體代碼 Private Sub Cmd_Back_Click() Unload Me End Sub Private Sub cob_Month_Click() 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 40 DataRefresh End Sub Private Sub cob_Year_Click() DataRefresh End Sub Private Sub Form_Load() Dim StrDate As String StrDate = Str(Year(Date)) Str(Year(Date) 1), 0 Str(Year(Date)), 1 Str(Year(Date) + 1), 2 = 1 , 0 1, 1 2, 2 3, 3 4, 4 5, 5 6, 6 7, 7 8, 8 9, 9 10, 10 11, 11 12, 12 = Month(Date) DataRefresh End Sub 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 41 Private Sub DataRefresh() Dim StrSch As String Dim TmpSource As String Dim StrDate1 As String Dim StrDate2 As String If 0 Then 39。如果是插入新的用戶，則必須進(jìn)行判斷；如果是修改已有的用戶，則當(dāng)用戶名被修改時進(jìn)行判斷 With MyUser If Modify = False Or OriUser Trim(txtUserName) Then If .In_DB(txtUserName) = True Then MsgBox 用戶名已經(jīng)存在，請重新輸入 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 39 = 0 = Len(txtUserName) Exit Sub End If End If .UserName = Trim(txtUserName) .UserPwd = Trim(txtPass) 39。判斷輸入的用戶名和密碼是否符合標(biāo)準(zhǔn) If Trim(txtUserName) = Then MsgBox 請輸入用戶名 Exit Sub End If If Len(txtPass) 6 Then MsgBox 密碼長度不能小于 6 = 0 = Len(txtPass2) Exit Sub End If If txtPass txtPass2 Then MsgBox 密碼和確認(rèn)密碼不相同，請重新確認(rèn) = 0 = Len(txtPass2) Exit Sub End If 39。設(shè)置用戶名 lblUserName = 39。如果沒有選擇用戶名，則返回 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 37 If = Then Exit Sub End If 39。啟動窗體 FrmUserEdit .Show 1 End With 39。如果當(dāng)前用戶為 Admin，則不能修改用戶名 If Format(, ) = admin Then . = False End If 39。如果沒有選擇用戶名，則返回 If = Then MsgBox 請選擇要修改的用戶 Exit Sub End If 39。刪除當(dāng)前用戶 () MsgBox 刪除成功 39。如果選擇用戶名為 Admin，則提示不能刪除，返回 If Format(, ) = admin Then MsgBox 此用戶不能刪除 Exit Sub End If 39。 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 34 參考文獻(xiàn) [1] Visual Basic 使用指南 ， Bob Reselman , Richard Peasley , Wayne Pruchniak，電子工業(yè)出版社 [2] Visual Basic 中文版控件大全 ， Microsoft， 電子工業(yè)出版社 [3] 中文 Access 2021 24 學(xué)時教程 ， Craig Eddy ， Timothy Buchanan 機(jī)械工業(yè)出版社 [4] 肖春蓮 . 合同管理系統(tǒng)設(shè)計 . 有色冶金設(shè)計與研究 .2021,(3),5060,64 [5] 劉祟欣 , 張 建 新 . 合 同 管 理 信 息 系 統(tǒng) . 計算機(jī) .1997,(6),3132,37 [6] 黃華 ,付鋒 ,陳軒 . Visual Basic 在高校教務(wù)管理系統(tǒng)中的應(yīng)用 . 計算機(jī)與現(xiàn)代化 .2021,(2),7983 [7] [美 ]Evangelous Petroutsos． Visual Basic 6 從入門到精通[M].北京：電子工業(yè)出版社， 1999． 1． [8] 新思維創(chuàng)作室． Visual Basic 編程 [M].北京，人民郵電出版社． 1998． 12． [9] 何斌，等． Visual Basic 應(yīng)用指南 [M].北京：人民郵電出版社， 1998， 12． [10] 安嘉瑩 ,章韻 . 企業(yè)進(jìn)口設(shè)備合同管理信息系統(tǒng) . 南京郵電學(xué)院學(xué)報 . 1996,(12),8690 [11] 李微 . 數(shù)據(jù) 庫軟件在我院 技術(shù)合同管理 中的應(yīng)用 . 糧食 和食品工業(yè) . 2021,(3),3740 [12] 朱成彪 ,楊紅杰 . 銷售合同管理系統(tǒng)的設(shè)計與研究 . 嘉 興學(xué)院學(xué)報 . 2021,(5)， 4445， 63 附錄：部分窗體源代碼 用戶管理窗體代碼 Private Sub Cmd_Add_Click() With FrmUserEdit .txtUserName = .txtPass = .txtPass2 = .Show 1 End With 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 35 DataList1_Click End Sub Private Sub Cmd_Back_Click() Unload Me End Sub Private Sub Cmd_Del_Click() 39。 另外， 我還要感謝在這幾年來對我教導(dǎo)所有的老師，他們孜孜不倦的教誨不但讓我學(xué)到了很多知識，而且讓我掌握了學(xué)習(xí)的方法，更教會了我做人處事的道理，在此表示感謝。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到 很大 的提高 ， 這對于我以 后 的工作和學(xué)習(xí)都有一種巨大的幫助， 在此 感謝他耐心的輔導(dǎo)。 在本次畢業(yè)設(shè)計中，我從指導(dǎo)老 師 身上學(xué)到了很多東西。相信本 家庭理財 管理系統(tǒng)是一套 家庭 在日常管理中必不可少的管理軟件，通過開發(fā)這個系統(tǒng)，我掌握了的項本過程，了解了的基本知識鞏固了我對 Visual Basic 的學(xué)習(xí)，但在這次畢業(yè)設(shè)計中的最大收獲并不是掌握這幾門開發(fā)工具的應(yīng)用，而是學(xué)會了設(shè)計系統(tǒng)的思維方法，以及與同學(xué)們之間相互幫助的精神。在本次開發(fā)過程由于硬件的限制，未能實現(xiàn)網(wǎng)絡(luò)功能，因此在以后的系統(tǒng)更新過程中可能會造成一些不必要的數(shù)據(jù)損失。因此，該系統(tǒng)必然會存在一些缺陷和不足。 編輯用戶信息窗體 結(jié)束語 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 32 在本系統(tǒng)的開發(fā)過程中，由于本人是初次開發(fā)軟件，在知識、經(jīng)驗方面都存在著不足。 用戶管理模塊設(shè)計 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 31 用戶管理模塊包括用戶管理和修改密碼等功能。 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 29 設(shè)計銀行交易統(tǒng)計窗體 銀行交易統(tǒng)計窗體的名稱為 FrmSBank，窗體布局如圖 18 所示。 數(shù)據(jù)統(tǒng)計管理模塊設(shè)計 數(shù)據(jù)統(tǒng)計管理模塊包括日常收支統(tǒng)計、銀行交易統(tǒng)計和家庭資產(chǎn)等功能。 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 27 設(shè)計銀行帳戶信息管理窗體 銀行帳戶信息編輯窗體的名稱為 FrmAccountMan，窗體布局如圖 15 所示。 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 26 設(shè)計日常收支信息管理窗體 日常收支信息管理窗體的名稱為 FrmListMan，窗體布局如圖 12 所示。 理財信息管理模塊設(shè)計 理財信息管理模塊包括日常收支管理、銀行交易管理和銀行帳戶管理等功能。 家庭成員信息編輯窗體 家庭成員信息編輯窗體的名稱為 FrmMemberEdit，窗體的布局如圖 9所示。判斷數(shù)據(jù)庫中是否已經(jīng)存在此類型名稱 If (Trim(txtName), nFlag) = True Then MsgBox (已經(jīng)存在此類型名稱 ) Exit Sub End If 39。設(shè)置列表綁定字段 End Sub Cmd_Add_Click 過程 在文本框中輸入新的類型名稱，單 擊“ 添加 ”按鈕時觸發(fā) Cmd_Add_Click 事件，代碼如下： Private Sub